Guest User

Untitled

a guest
Nov 30th, 2018
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. STACK .EQU 2099H
  2. .ORG 0000H
  3.     ld  SP, STACK
  4.     ld  B, 255
  5.     jp 2000H
  6.  
  7. .fill 0038H-$, 0
  8.  
  9. .ORG 0038H
  10.     DI
  11.     ld  B, 255
  12.     jp  service_routine
  13.  
  14. .fill 0066H-$, 0
  15.  
  16. .ORG 0066H
  17.     DI
  18.     ld  B, 0FH
  19.     jp  service_routine
  20.    
  21. .fill 2000H-$, 0
  22.  
  23. .ORG 2000H
  24.     EI
  25.     IM 1
  26.     ld  A, 55H
  27. LOOP:
  28.     ADD A, 00H
  29.     jp  LOOP
  30.  
  31. service_routine:
  32.     DI
  33.     xor b
  34.     out (07H),A
  35.     EI
  36.     ret
Add Comment
Please, Sign In to add comment