home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISASSEMB.ARC / UNOP8 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  811 b   |  40 lines
  1. 30 ;ADD # OF BYTES TO BASE ADDRESS
  2. 40 U81 LDY BUF2;#$03
  3. 50 TYA
  4. 60 CLC
  5. 70 ADC $FB;#$00
  6. 80 STA $FB;#$03
  7. 90 LDA $FC;#$60
  8. 100 ADC #$00
  9. 110 STA $FC;#$60 ADDRESS NOW 6003
  10. 120 CMP $FE;HI BYTE END ADDRESS
  11. 130 BCC U82
  12. 140 LDA $FB;LO BYTE BEGIN ADDRESS
  13. 150 CMP $FD;LO BYTE END ADDRESS
  14. 160 BCC U82
  15. 170 RTS
  16. 180 MN1 AND #$7F;CHECK FOR PRINTABLE CHARACTERS
  17. 190 CMP #$21
  18. 200 BCC U83;< #$21
  19. 210 CMP #$5B;> #$5B
  20. 220 BCS U80
  21. 230 U84 JMP PRINT;PRINT CHARACHTER RIGHT HAND SCREEN
  22. 240 U83 ORA #$40
  23. 250 BNE U84
  24. 251 U80 AND #$40
  25. 252 BNE U84
  26. 253 JMP ST1;RUN STOP KEY DOWN TERMINATE
  27. 255 U82 JSR $FFE1;CHECK THE RUN/STOP KEY
  28. 256 BNE FIND;NOT PRESSED
  29. 257 JMP ST1;RUN STOP KEY DOWN TERMINATE
  30. 260 FIND JMP FINDMN;RETURN FOR NEXT LINE
  31. 270 GETADD LDY #$00;PUT COMMAND AND ADDRESSES @ $0200
  32. 280 U85 JSR $FFCF
  33. 290 STA ADDBUF,Y
  34. 300 INY
  35. 310 CMP #$0D
  36. 320 BNE U85
  37. 330 DEY
  38. 340 RTS
  39. 350 .FILE UNOP9
  40.