;!IM=DI,0,10
;!IM=DI,1,20
;!IM=DI,2,30
;!IM=DI,3,40
;!IM=DO,4,50

    org 0e000
START:  in 10       ;; ersten Summanden einlesen
    mov b, a
    in 20       ;; zweiten Summanden einlesen
    mov c, a
    in 30       ;; ergebnis des schuelers einlesen
    mov d, a

    in 40
    mov e, a
    ani 01      ;; Ende der Eingabe wenn BitNr.0 = 1
    jnz START
    jz RECHNE

;; der Rechenvorgang
RECHNE: mov a, b
    add c
    mov b, a
    xor d
    jnz FALSCH
    jz S1

FALSCH: mvi b, 0ff
    jmp S1

;; Zeitverzoegerung um ein blinken der Ausgabe zu ermoeglichen Zaehler im format ZZ
S1: mvi c, 0ff
S2: mvi d, 0ff
    in 40
    ani 01
    jz NEU      ;;wenn DI,3 0 ist dann spring zu NEU
    dcr d       ;;dekrementoeren des ersten Zaehlers 0Z
    jnz S2
    dcr c       ;;dekrementeren des zweiten Zaehlers Z0
    jnz S1
    jz OUTPUT   ;;Am ende ergebnis ausgeben(verzeogert)

;; Setze alles auf 00
NEU:    xor a
    out 50
    jmp START

OUTPUT: mov a, b
    out 50
    jmp S1