Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- MON
- 8000
- LXI D,F002
- LXI H,F004
- LXI B,0000
- PUSH B
- POP PSW
- LDAX D
- DCR A
- PUSH PSW
- DAA
- PUSH PSW
- POP B
- MOV A,B
- STA F00A
- MOV A,C
- STA F00C
- POP B
- MOV A,B
- STA F006
- MOV A,C
- STA F008
- RET
- SYSTEM
- NEW
- 10 FOR A=0 TO 255
- 20 B=1
- 30 C=0
- 40 D=0
- 50 E=0
- 60 F=0
- 70 EXEC 0
- 80 PRINT A,B,C,D,E,F
- 90 NEXT A
Add Comment
Please, Sign In to add comment