home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISASSEMB.ARC / UNOP2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  800 b   |  39 lines
  1. 40 D JSR DIS;SET UP ADDRESS ROUTINE
  2. 50 JSR FINDMN;PRINT DISASSEMBLY
  3. 60 JMP ST1;WHEN FINISHED TERMINATE
  4. 70 P JSR DIS
  5. 80 JSR OPEN;SET UP PRINTER
  6. 90 JSR FINDMN
  7. 100 JSR CLOSE
  8. 110 JMP ST1;WHEN FINISHED TERMINATE
  9. 120 X JMP $C000;JMP M/L MONITOR
  10. 130 N JMP START
  11. 160 DIS LDY #$00
  12. 170 JSR SETADD
  13. 180 STA $22;HI BYTE BEGIN ADDRESS
  14. 190 JSR SETADD
  15. 200 STA $23
  16. 210 JSR HEX;WHEN RETURN HI BYTE BEGIN IN HEX
  17. 220 STA $FC
  18. 230 JSR SETADD
  19. 240 STA $22;LO BYTE BEGIN ADDRESS
  20. 250 JSR SETADD
  21. 260 STA $23
  22. 270 JSR HEX;LO BYTE BEGIN ADDRESS
  23. 280 STA $FB
  24. 290 JSR SETADD
  25. 300 STA $22;HI BYTE END ADDRESS
  26. 310 JSR SETADD
  27. 320 STA $23
  28. 330 JSR HEX; CONVERT ADD TO HEX
  29. 340 STA $FE;HI BYTE END ADDRESS
  30. 350 JSR SETADD
  31. 360 STA $22;LO BYTE END ADDRESS
  32. 370 JSR SETADD
  33. 380 STA $23
  34. 390 JSR HEX
  35. 400 STA $FD;LO BYTE END ADDRESS
  36. 410 RTS
  37. 420 ST JMP ST1
  38. 430 .FILE UNOP3
  39.