SHARE
TWEET

Untitled

a guest Nov 30th, 2018 76 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
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top