daily pastebin goal
17%
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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top