home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISASSEMB.ARC / UNOP1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  541 b   |  26 lines
  1. 10 BEG LDA #$93;SCREEN FORMAT
  2. 20 JSR PRINT
  3. 30 LDA #$00
  4. 40 STA $D020
  5. 50 STA $D021
  6. 60 LDA #$05
  7. 70 STA $0286
  8. 80 START LDX #$FF;RESET THE STACK
  9. 90 TXS
  10. 91 JSR SCRN
  11. 100 ST1 JSR GETADD;GET BEGINNING & ENDING ADDRESS
  12. 110 JSR CR
  13. 120 STY $24;HOLDS # OF BYTES IN "D" ADRESSES
  14. 130 LDX #$00
  15. 140 LDA ADDBUF;GET COMMAND D, P, I, OR X
  16. 150 CMP #$44;"D" DIS-ASSEMBLE
  17. 160 BNE CHKP
  18. 170 JMP D; DISASSEMBLE TO SCREEN
  19. 180 CHKP CMP #$50
  20. 190 BNE CHKX
  21. 200 JMP P;DIS-ASSEMBLE TO PRINTER
  22. 210 CHKX CMP #$58
  23. 220 BNE N;INCORRECT FORMAT
  24. 230 JMP X;RETURN TO M/L MONITOR @ $C000
  25. 240 .FILE UNOP2
  26.