Guest User

Untitled

a guest
Jan 15th, 2019
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. MON
  2.  
  3. 8000
  4. LXI D,F002
  5. LXI H,F004
  6. LXI B,0000
  7. PUSH B
  8. POP PSW
  9. LDAX D
  10. DCR A
  11. PUSH PSW
  12. DAA
  13. PUSH PSW
  14. POP B
  15. MOV A,B
  16. STA F00A
  17. MOV A,C
  18. STA F00C
  19. POP B
  20. MOV A,B
  21. STA F006
  22. MOV A,C
  23. STA F008
  24. RET
  25.  
  26. SYSTEM
  27.  
  28. NEW
  29.  
  30. 10 FOR A=0 TO 255
  31. 20 B=1
  32. 30 C=0
  33. 40 D=0
  34. 50 E=0
  35. 60 F=0
  36. 70 EXEC 0
  37. 80 PRINT A,B,C,D,E,F
  38. 90 NEXT A
Add Comment
Please, Sign In to add comment