Tigge

* Takes input data and displays it on a 7-segment display
* Numbers not in range display as E

inport           EQU                $600
outport          EQU                $400


* Hex number ftw
 
                 ORG                $3000
number:          FCB                $77,$22,$5b,$6b,$2e,$6d,$7d,$23,$7f,$6f

* BUGFIX, dooh
                 BGND   

* Program:        
main:            LDX                #$3000

                 LDAB        inport
                 LDAA        b,x
                        
                 JSR         delay
                 CMPB        #10
                 BHI         disperr

dispreal:        STAA        outport
                 JMP         main

disperr:         LDAA        #$5d
                 STAA        outport
                 JMP         main

* Delay function:

delay            PSHA
                 LDAA        #20
                        
delayloop        SUBA        #1
                 BNE         delayloop
                 PULA
                 RTS