home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / UNASM.RAM.ARC / UNASSM5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  815 b   |  45 lines
  1. 10 LDY #$00;PRINT MNEMONIC OP-CODE
  2. 20 STY INDEX;NEXT BYTE IN BASIC SOURCE LINE
  3. 30 U52 LDA ($22),Y; PRINT JMP
  4. 40 AND #%01111111;STRIP 7TH BIT OF OP
  5. 50 JSR SRC;SET ON FOR DIS-ASSEMBLER
  6. 60 JSR PRINT
  7. 70 INY
  8. 80 CPY #$03
  9. 90 BNE U52
  10. 100 ;
  11. 110 LDY BUF2; #$20
  12. 120 DEY;USED IN DIS-ASSEMBLER
  13. 130 BNE U53
  14. 140 JMP CHKTYP
  15. 150 ;
  16. 160 U53 JSR SPC
  17. 170 LDA TYPE,X; HOLDS # $ Y OR X
  18. 180 CMP #$23;#
  19. 190 BNE U54;MUST BE $
  20. 200 JSR SRC
  21. 210 JSR PRINT
  22. 220 DEC BUF0
  23. 230 ;
  24. 240 U54 LDA INDJMP
  25. 250 CMP #$6C
  26. 260 BNE U54A;FOUND SOMTHING LIKE JMP ($A002)
  27. 270 JMP PAR
  28. 280 ;
  29. 290 U54A LDA BUF1;#$0C
  30. 300 AND #$0F;#$0C
  31. 310 CMP #$01;INDIRECT TYPES EQUAL #$01 OR #$03
  32. 320 BEQ PAR
  33. 330 CMP #$03
  34. 340 BNE U55;NOT INDIRECT
  35. 350 PAR LDA #$28; (
  36. 360 JSR SRC
  37. 370 JSR PRINT
  38. 380 DEC BUF0;USED IN DIS-ASSEMBLER
  39. 390 DEC BUF0
  40. 400 ;
  41. 410 U55 LDA #$24;$
  42. 420 JSR SRC
  43. 430 JSR PRINT
  44. 440 .FILE UNASSM6
  45.