API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 7th, 2018
114
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Z80 Assembler 1.85 KB | None | 0 0
raw download clone embed print report
  1. ;zadanie 1
  2.  
  3.  
  4. PORT0:  SET $00
  5. PORT1:  SET $01
  6. PORT2:  SET $02
  7. PORT3:  SET $03
  8.  
  9.  
  10. ; dla rst0
  11.     ORG $0000
  12.     LXI SP,$0000
  13.     EI
  14.     JMP START
  15.  
  16. START:  ORG $0100
  17. ;   tresc programu
  18.  
  19.  
  20.  
  21. POCZ:   IN $00      ;wczytanie wartosci z klawisza
  22.             MVI B, 10
  23.  
  24.             CPI $01     ; porownaj wartosc akumulatora z 0
  25.             JZ PRG1
  26.  
  27.             CPI $02     ; porownaj wartosc akumulatora z 1
  28.             JZ PRG2
  29.  
  30.             CPI $04     ; porownaj wartosc akumulatora z 2
  31.             JZ PRG3
  32.  
  33.             CPI $08     ; porownaj wartosc akumulatora z 3
  34.             JZ PRG4
  35.  
  36.             CPI $10     ; porownaj wartosc akumulatora z 4
  37.             JZ PRG5
  38.  
  39.             CPI $20     ; porownaj wartosc akumulatora z 5
  40.             JZ PRG6
  41.  
  42.             CPI $40     ; porownaj wartosc akumulatora z 6
  43.             JZ PRG7
  44.  
  45.             CPI $80     ; porownaj wartosc akumulatora z 7
  46.             JZ PRG8
  47.  
  48.             JMP POCZ
  49.             HLT
  50.  
  51. ;PODPROCEDURY
  52.  
  53. PRAWO:  MVI A,02
  54.             OUT PORT1
  55.             MVI A,04
  56.             OUT PORT1
  57.             MVI A,01
  58.             OUT PORT1
  59.             MVI A,02
  60.             OUT PORT1
  61.                 RET
  62.  
  63. LEWO:       MVI A,02
  64.             OUT PORT1
  65.             MVI A,01
  66.             OUT PORT1
  67.             MVI A,04
  68.             OUT PORT1
  69.             MVI A,02
  70.             OUT PORT1
  71.                 RET
  72.  
  73. GORA:   MVI A,02
  74.             OUT PORT2
  75.             MVI A,04
  76.             OUT PORT2
  77.             MVI A,01
  78.             OUT PORT2
  79.             MVI A,02
  80.             OUT PORT2
  81.                 RET
  82.  
  83. DOL:        MVI A,02
  84.             OUT PORT2
  85.             MVI A,01
  86.             OUT PORT2
  87.             MVI A,04
  88.             OUT PORT2
  89.             MVI A,02
  90.             OUT PORT2
  91.                 RET
  92.  
  93.  
  94. PRG1:       CALL PRAWO
  95.                 DCR B
  96.                 JNZ PRG1
  97.                 JMP POCZ
  98.  
  99. PRG2:       CALL LEWO
  100.                 DCR B
  101.                 JNZ PRG2
  102.                 JMP POCZ
  103.  
  104. PRG3:       CALL GORA
  105.                 DCR B
  106.                 JNZ PRG3
  107.                 JMP POCZ
  108.  
  109. PRG4:       CALL DOL
  110.                 DCR B
  111.                 JNZ PRG4
  112.                 JMP POCZ
  113.  
  114. PRG5:       CALL GORA
  115.                 CALL PRAWO
  116.                 DCR B
  117.                 JNZ PRG5
  118.                 JMP POCZ
  119.  
  120. PRG6:   CALL GORA
  121.                 CALL LEWO
  122.                 DCR B
  123.                 JNZ PRG6
  124.                 JMP POCZ
  125.  
  126. PRG7:       CALL DOL
  127.                 CALL PRAWO
  128.                 DCR B
  129.                 JNZ PRG7
  130.                 JMP POCZ
  131.  
  132. PRG8:   CALL DOL
  133.                 CALL LEWO
  134.                 DCR B
  135.                 JNZ PRG8
  136.                 JMP POCZ
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!