home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISASSEMB.ARC / UNOP5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  806 b   |  49 lines
  1. 10 JSR SPC
  2. 20 INY
  3. 30 CPY BUF2; # OF BYTES IN CMND AND ARG
  4. 40 BNE U41; PRINT REST 6000 4C 1C 66
  5. 50 DEY
  6. 60 LDA CMND4,Y;# OF SPCS TO PRINT
  7. 70 TAY
  8. 80 JSR SPC1
  9. 90 LDY #$00
  10. 100 U52 LDA ($22),Y; PRINT JMP
  11. 110 BPL NOREV;SEVENTH BIT NOT SET
  12. 120 AND #$7F:STA BYT
  13. 130 LDA #$12
  14. 140 JSR PRINT
  15. 150 LDA BYT
  16. 160 NOREV JSR PRINT
  17. 170 INY
  18. 180 CPY #$03
  19. 190 BNE U52
  20. 200 LDA #$92
  21. 210 JSR PRINT
  22. 220 JSR SPC
  23. 230 LDY BUF2; #$20
  24. 240 DEY
  25. 250 BNE U53
  26. 260 JMP CHKTYP
  27. 270 U53 LDA TYPE,X; HOLDS # $ Y OR X
  28. 280 CMP #$23;#
  29. 290 BNE U54;MUST BE $
  30. 300 JSR PRINT
  31. 310 DEC BUF0
  32. 320 U54 LDA INDJMP
  33. 330 CMP #$6C
  34. 340 BNE U54A
  35. 350 JMP PAR
  36. 360 U54A LDA BUF1;#$0C
  37. 370 AND #$0F;#$0C
  38. 380 CMP #$01;INDIRECT TYPES EQUAL #$01 OR #$03
  39. 390 BEQ PAR;PRINT (
  40. 400 CMP #$03
  41. 410 BNE U55;NOT INDIRECT
  42. 420 PAR LDA #$28
  43. 430 JSR PRINT
  44. 440 DEC BUF0
  45. 450 DEC BUF0
  46. 460 U55 LDA #$24;$
  47. 470 JSR PRINT
  48. 480 .FILE UNOP6
  49.