home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISASSEMB.ARC / UNOP7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  717 b   |  45 lines
  1. 10 U71 PHA
  2. 20 LDA BUF1
  3. 30 CMP #$11
  4. 40 BEQ PAR1
  5. 50 CMP #$13
  6. 60 BNE U72
  7. 70 PAR1 LDA #$29;PRINT )
  8. 80 JSR PRINT
  9. 81 U72 LDA INDJMP
  10. 82 CMP #$6C
  11. 83 BNE U72A
  12. 84 PLA
  13. 85 JMP PAR2
  14. 90 U72A LDA #$2C;PRINT ,
  15. 100 JSR PRINT
  16. 110 PLA
  17. 120 JSR PRINT
  18. 130 LDA BUF1
  19. 140 CMP #$01
  20. 150 BEQ PAR2
  21. 160 CMP #$03
  22. 170 BNE INCR
  23. 180 PAR2 LDA #$29
  24. 190 JSR PRINT
  25. 200 ;INCR INC BUF0
  26. 210 ;INC BUF0;REST OF SPACES TO PRINT
  27. 220 ;INC BUF0
  28. 230 ;LDY BUF0
  29. 240 ;JSR SPC1;PRINT TOTAL SPACES
  30. 250 ;LDY #$00
  31. 260 ;U73 LDA ($FB),Y;PRINTS RIGHT HAND SIDE OF SCREEN
  32. 270 ;JSR MN1
  33. 280 ;INY
  34. 290 ;CPY BUF2
  35. 300 ;BNE U73
  36. 310 INCR JSR CR;LINE FINISHED PRINT CARRIAGE RETURN
  37. 320 LDY #$00
  38. 330 LDA ($FB),Y;IF RTS OR JMP SKIP A LINE
  39. 340 CMP #$60
  40. 350 BEQ U74
  41. 360 CMP #$4C
  42. 370 BNE U81
  43. 380 U74 JSR CR
  44. 390 .FILE UNOP8
  45.