Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- STACK .EQU 2099H
- .ORG 0000H
- ld SP, STACK
- ld B, 255
- jp 2000H
- .fill 0038H-$, 0
- .ORG 0038H
- DI
- ld B, 255
- jp service_routine
- .fill 0066H-$, 0
- .ORG 0066H
- DI
- ld B, 0FH
- jp service_routine
- .fill 2000H-$, 0
- .ORG 2000H
- EI
- IM 1
- ld A, 55H
- LOOP:
- ADD A, 00H
- jp LOOP
- service_routine:
- DI
- xor b
- out (07H),A
- EI
- ret
Add Comment
Please, Sign In to add comment