home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISASSEMB.ARC / UNOP4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  760 b   |  38 lines
  1. 10 ;EXAMPLE USED HERE IS JMP $661C
  2. 40 FINDMN LDY #$00
  3. 50 LDA ($FB),Y; #$4C "JMP"
  4. 60 TAX;INDEX TO # OF BYTES IN ARG
  5. 70 TAY;INDEX TO OP
  6. 71 STA INDJMP
  7. 72 AND #$1F
  8. 73 STA BUF1;HOLDS # $ ( ETC.
  9. 80 INY
  10. 90 LDA #$00;COUNT BY 3'S TO OP-CODE
  11. 100 STA $22
  12. 110 LDA #>OP;WHEN FINIHED $22 & $23 WILL
  13. 120 STA $23
  14. 130 FIN CLC;POINT TO $60E7 "JMP"
  15. 140 LDA #$03
  16. 150 ADC $22
  17. 160 STA $22
  18. 170 LDA $23
  19. 180 ADC #$00
  20. 190 STA $23
  21. 200 DEY
  22. 210 BNE FIN
  23. 270 LDA $FC;#$60
  24. 280 JSR HEXCON;PRINT HI BYTE ADDRESS TO SCREEN
  25. 290 LDA $FB
  26. 300 JSR HEXCON; LO BYTE SCREEN NOW HAS 6000
  27. 310 JSR SPC;PRINT A SPACE
  28. 320 LDA BYTE,X;# OF BYTES IN JMP ARGUMENT
  29. 330 STA BUF2
  30. 340 INC BUF2
  31. 350 TAY
  32. 360 LDA CMND2,Y
  33. 370 STA BUF0
  34. 380 LDY #$00
  35. 390 U41 LDA ($FB),Y; #$4C
  36. 400 JSR HEXCON;PRINT 4C TO SREEN 6000 4C
  37. 410 .FILE UNOP5
  38.