Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;!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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement