home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / UNASM.RAM.ARC / UNASSM4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  772 b   |  40 lines
  1. 10 FINDMN LDA LINE+1
  2. 20 LDX LINE
  3. 30 JSR $BDCD;BASIC ROM PRINT # ROUTINE
  4. 40 ;
  5. 50 ;EXAMPLE USED HERE IS JMP $661C
  6. 60 ;
  7. 70 LDY #$00
  8. 80 LDA ($FB),Y; #$4C "JMP"
  9. 90 TAX;INDEX TO # OF BYTES IN ARG
  10. 100 TAY;INDEX TO OP
  11. 110 STA INDJMP;FLAG FOR INDIRECT JMP
  12. 120 ;
  13. 130 AND #$1F
  14. 140 STA BUF1;HOLDS # $ ( ETC.
  15. 150 INY
  16. 160 LDA #$00;COUNT BY 3'S TO OP-CODE
  17. 170 STA $22
  18. 180 LDA #>OP;WHEN FINIHED $22 & $23 WILL
  19. 190 STA $23
  20. 200 ;
  21. 210 FIN CLC;POINT TO $60E7 "JMP"
  22. 220 LDA #$03
  23. 230 ADC $22
  24. 240 STA $22
  25. 250 LDA $23
  26. 260 ADC #$00
  27. 270 STA $23
  28. 280 DEY
  29. 290 BNE FIN
  30. 300 ;
  31. 310 JSR SPC;PRINT A SPACE
  32. 320 JSR ADLIN;ADD 10 TO LINE #
  33. 330 LDA BYTE,X;# OF BYTES IN JMP ARGUMENT
  34. 340 STA BUF2
  35. 350 INC BUF2;ADJUST FOR OP-CODE
  36. 360 TAY
  37. 370 LDA CMND2,Y;SPACES BUFFER
  38. 380 STA BUF0;USED IN DIS-ASSEMBLER
  39. 390 .FILE UNASSM5
  40.