home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / UNASM.RAM.ARC / UNASSM9 (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  107 lines
  1. 10 SPC LDA #$20;PRINT 1 SPACE
  2. 20 JSR SRC
  3. 30 JMP PRINT
  4. 40 ;
  5. 50 CR LDA #$0D;PRINT A CARRAIGE RETURN
  6. 60 JSR PRINT
  7. 70 RTS
  8. 80 ;
  9. 90 HEXCON PHA;NUMBER MANIPULATION
  10. 100 LSR:LSR:LSR:LSR
  11. 110 JSR MN2
  12. 120 PLA
  13. 130 AND #$0F
  14. 140 MN2 CMP #$0A
  15. 150 BCC U92
  16. 160 ADC #$06;ADJUST FOR A TO F
  17. 170 U92 ADC #$30;ADJUST 0 TO 9
  18. 180 JSR SRC
  19. 190 JMP PRINT
  20. 200 ;
  21. 210 OFILE LDA #$03;OPEN WRITE FILE
  22. 220 LDX DRV
  23. 230 LDY #$07
  24. 240 JSR SETLFS
  25. 250 LDA #$0A
  26. 260 LDX #<FILE
  27. 270 LDY #>FILE
  28. 280 JSR SETNM
  29. 290 JSR OPEN
  30. 300 RTS
  31. 310 ;
  32. 320 CFILE LDA #$03;CLOSE WRITE FILE
  33. 330 JSR CLOSE
  34. 340 ;
  35. 350 ADLIN LDA #$0A;ADD 10 TO LINE #
  36. 360 CLC
  37. 370 ADC LINE
  38. 380 STA LINE
  39. 390 LDA LINE+1
  40. 400 ADC #$00
  41. 410 STA LINE+1
  42. 420 RTS
  43. 430 ;
  44. 440 SRC STX Y;SAVE X REGISTER
  45. 450 LDX INDEX;BASIC SOURCE POINTER
  46. 460 STA ADDBUF,X;PLACE BYTE IN SOURCE LINE
  47. 470 INC INDEX
  48. 480 LDX Y;RESTORE X REGISTER
  49. 490 RTS
  50. 500 ;
  51. 510 BUF0 .B 0
  52. 520 BUF1 .B 0
  53. 530 BUF2 .B 0
  54. 540 BUF3 .B 0
  55. 550 INDJMP .B 0
  56. 560 Y .B 0
  57. 570 DRV .B 0
  58. 580 INDEX .B 0
  59. 590 FILE .B "SOURCE,P,W
  60. 600 AST .B 172 178:.B " $:.B 0 0 0 0 0
  61. 610 LINK .B 0 0
  62. 620 LINE .B 10 0
  63. 630 ADDBUF .B 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  64. 640 ;
  65. 650 ;PRINT INTRO SCREEN
  66. 660 ;
  67. 670 SCRN LDA #<HDR
  68. 680 STA $FB
  69. 690 LDA #>HDR
  70. 700 STA $FC
  71. 710 LDY #$00
  72. 720 HDRLP LDA ($FB),Y
  73. 730 BEQ HDREND
  74. 740 JSR PRINT
  75. 750 JSR INCFB
  76. 760 JMP HDRLP
  77. 770 HDREND RTS
  78. 780 BEQ HDREND
  79. 790 BRK
  80. 800 INCFB INC $FB
  81. 810 BNE INC1
  82. 820 INC $FC
  83. 830 INC1 RTS
  84. 840 HDR .B 147 31
  85. 850 .B "            [210]AM [213]N-[193]SSEMBLER
  86. 860 .B 13 13 159
  87. 870 .B "                   PEEKY
  88. 880 .B 13 13 154
  89. 890 .B "                 [205]L [194]UG
  90. 900 .B 13 13 158
  91. 910 .B "                (null)HARE (null)ARE
  92. 920 .B 13 13 155
  93. 930 .B "           ([195]) [195]OPYRIGHT 1987
  94. 940 .B 13 13 129
  95. 950 .B "           ATNLL (null)IGHTS (null)ESERVED
  96. 960 .B 13 13 153
  97. 970 .B "[197]NTER BEGINNING AND ENDING ADDRESSES TO
  98. 980 .B 13 13
  99. 990 .B "UN-ASSEMBLE
  100. 1000 .B 13 13 30
  101. 1010 .B "[197]XAMPLE U C000 C32E
  102. 1020 .B 13 13 0
  103. 1030 DNUM .B 13 13
  104. 1040 .B "(null)RITE SOURCE TO DRIVE # ? "
  105. 1050 .B 0
  106. 1060 .[128] UNASSM EQ
  107.