home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / UNASM.RAM.ARC / UNASSM7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  70 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 ;
  8. 80 PAR1 LDA #$29;PRINT )
  9. 90 JSR SRC
  10. 100 JSR PRINT
  11. 110 ;
  12. 120 U72 LDA INDJMP
  13. 130 CMP #$6C
  14. 140 BNE U72A
  15. 150 PLA
  16. 160 JMP PAR2
  17. 170 ;
  18. 180 U72A LDA #$2C;PRINT ,
  19. 190 JSR SRC
  20. 200 JSR PRINT
  21. 210 PLA
  22. 220 JSR SRC
  23. 230 JSR PRINT
  24. 240 ;
  25. 250 LDA BUF1
  26. 260 CMP #$01
  27. 270 BEQ PAR2
  28. 280 CMP #$03
  29. 290 BNE INCR
  30. 300 PAR2 LDA #$29;)
  31. 310 JSR SRC
  32. 320 JSR PRINT
  33. 330 ;
  34. 340 INCR JSR CR;LINE FINISHED PRINT CARRIAGE RETURN
  35. 350 LDA #$00;PLACE 0 AT END OF LINE
  36. 360 JSR SRC;FOR BASIC LINK
  37. 370 ;
  38. 380 LDA INDEX;# OF BYTES IN BASIC LINE
  39. 390 CLC
  40. 400 ADC LINK;ADJUST BASIC LINE LINK
  41. 410 STA LINK
  42. 420 LDA LINK+1
  43. 430 ADC #$00
  44. 440 STA LINK+1
  45. 450 ;
  46. 460 LDA #$00
  47. 470 STA INDEX;RESET BASIC BYTE COUNTER
  48. 480 ;
  49. 490 LDX #$03;SEND BASIC LINE LINK TO DISK
  50. 500 JSR OUTCHN;OPEN WRITE CHANNEL
  51. 510 LDA LINK
  52. 520 JSR PRINT
  53. 530 LDA LINK+1
  54. 540 JSR PRINT
  55. 550 ;
  56. 560 LDA LINE;SEND LINE # TO DISK
  57. 570 JSR PRINT
  58. 580 LDA LINE+1
  59. 590 JSR PRINT
  60. 600 ;
  61. 610 LDY #$00;SEND BASIC SOURCE LINE TO DISK
  62. 620 SRCLP LDA ADDBUF,Y
  63. 630 BEQ SRCLP1
  64. 640 JSR PRINT
  65. 650 INY
  66. 660 JMP SRCLP
  67. 670 SRCLP1 JSR PRINT
  68. 680 JSR CLRCHN;CLOSE WRITE CHANNEL
  69. 690 .FILE UNASSM8
  70.