home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / UNASM.RAM.ARC / UNASSM8 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  61 lines
  1. 10 ;ADD # OF BYTES TO BASE ADDRESS
  2. 20 ;
  3. 30 U81 LDA BUF2;#$03
  4. 40 CLC
  5. 50 ADC $FB;#$00
  6. 60 STA $FB;#$03
  7. 70 LDA $FC;#$60
  8. 80 ADC #$00
  9. 90 STA $FC;#$60 ADDRESS NOW 6003
  10. 100 ;
  11. 110 CMP $FE;HI BYTE END ADDRESS
  12. 120 BCC U82
  13. 130 LDA $FB;LO BYTE BEGIN ADDRESS
  14. 140 CMP $FD;LO BYTE END ADDRESS
  15. 150 BCC U82;END ADDRESS NOT REACHED
  16. 160 ;
  17. 170 STP LDX #$03
  18. 180 JSR OUTCHN;OPEN WRITE CHANNEL
  19. 190 LDA #$00;ADD 3 0'S TO BASIC SOURCE
  20. 200 JSR PRINT;END OF PROGRAM
  21. 210 JSR PRINT
  22. 220 JSR PRINT
  23. 230 JSR CLRCHN;CLOSE WRITE CHANNEL
  24. 240 JSR CFILE;CLOSE FILE
  25. 250 JMP ($A002);TO BASIC WARM START
  26. 260 ;
  27. 270 U82 JSR STOP;CHECK THE RUN/STOP KEY
  28. 280 BNE FIND;NOT PRESSED
  29. 290 ;
  30. 300 JMP STP;RUN STOP KEY DOWN TERMINATE
  31. 310 FIND JMP FINDMN;RETURN FOR NEXT LINE
  32. 320 ;
  33. 330 ;GET U COMMAND, BEGINNING AND
  34. 340 ;ENDING ADRESS FOR UN-ASSEMBLY
  35. 350 ;
  36. 360 GETADD LDY #$00
  37. 370 U85 JSR $FFCF
  38. 380 CMP #$20;SPACE (U C000 OR UC000)
  39. 390 BEQ U85
  40. 400 CMP #$2C;"," C000,C100 OR C000 C100
  41. 410 BEQ U85
  42. 420 STA ADDBUF,Y
  43. 430 INY
  44. 440 CMP #$0D;END OF COMMAND
  45. 450 BNE U85
  46. 460 ;
  47. 470 STY Y;SAVE COMMAND COUNT
  48. 480 LDX #$04
  49. 490 LDY #$01;POINT TO BEGIN ADDRESS
  50. 500 ASTLP LDA ADDBUF,Y
  51. 510 STA AST,X;HOLDS *= $ ADD ADDRESS FOR FIRST LINE
  52. 520 INX
  53. 530 INY
  54. 540 CPY #$05
  55. 550 BNE ASTLP
  56. 560 ;
  57. 570 LDY Y;ADJUST COMMAND COUNT
  58. 580 DEY
  59. 590 RTS
  60. 600 .FILE UNASSM9
  61.