SHARE
TWEET

Untitled

a guest Jul 17th, 2017 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;!IM=DI,0,10
  2. ;!IM=DI,1,20
  3. ;!IM=DI,2,30
  4. ;!IM=DI,3,40
  5. ;!IM=DO,4,50
  6.    
  7.     org 0e000
  8. START:  in 10       ;; ersten Summanden einlesen
  9.     mov b, a
  10.     in 20       ;; zweiten Summanden einlesen
  11.     mov c, a
  12.     in 30       ;; ergebnis des schuelers einlesen
  13.     mov d, a
  14.  
  15.     in 40
  16.     mov e, a
  17.     ani 01      ;; Ende der Eingabe wenn BitNr.0 = 1
  18.     jnz START  
  19.     jz RECHNE
  20.  
  21. ;; der Rechenvorgang
  22. RECHNE: mov a, b
  23.     add c
  24.     mov b, a
  25.     xor d
  26.     jnz FALSCH
  27.     jz S1
  28.  
  29. FALSCH: mvi b, 0ff
  30.     jmp S1
  31.  
  32. ;; Zeitverzoegerung um ein blinken der Ausgabe zu ermoeglichen Zaehler im format ZZ
  33. S1: mvi c, 0ff
  34. S2: mvi d, 0ff
  35.     in 40
  36.     ani 01
  37.     jz NEU      ;;wenn DI,3 0 ist dann spring zu NEU
  38.     dcr d       ;;dekrementoeren des ersten Zaehlers 0Z
  39.     jnz S2     
  40.     dcr c       ;;dekrementeren des zweiten Zaehlers Z0
  41.     jnz S1
  42.     jz OUTPUT   ;;Am ende ergebnis ausgeben(verzeogert)
  43.  
  44. ;; Setze alles auf 00
  45. NEU:    xor a
  46.     out 50
  47.     jmp START
  48.  
  49. OUTPUT: mov a, b
  50.     out 50
  51.     jmp S1
RAW Paste Data
Top