home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISASSEMB.ARC / UNOP9 (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  88 lines

  1. 10 SPC LDA #$20;PRINT 1 SPACE
  2. 20 JMP PRINT
  3. 30 ;
  4. 40 SPC1 LDA CMND3,Y;PRINT # OF SPACES
  5. 50 JSR PRINT
  6. 60 DEY
  7. 70 BNE SPC1
  8. 80 RTS
  9. 90 ;
  10. 100 CR LDA #$0D;PRINT A CARRAIGE RETURN
  11. 110 JSR PRINT
  12. 120 RTS
  13. 130 ;
  14. 140 HEXCON PHA;NUMBER MANIPULATION
  15. 150 LSR:LSR:LSR:LSR
  16. 160 JSR MN2
  17. 170 PLA
  18. 180 AND #$0F
  19. 190 JMP MN2
  20. 200 MN2 CMP #$0A
  21. 210 BCC U92
  22. 220 ADC #$06;ADJUST FOR A TO F
  23. 230 ;
  24. 240 U92 ADC #$30;ADJUST 0 TO 9
  25. 250 JMP PRINT
  26. 260 ;
  27. 270 OPEN LDA #$00;SET UP PRINTER
  28. 280 JSR $FFBD;SET FILENAME
  29. 290 LDA #$04; DEVICE
  30. 300 TAX
  31. 310 LDY #$07;LOWER CASE CHARACTERS
  32. 320 JSR $FFBA;SET LOGICAL FILE
  33. 330 JSR $FFC0;OPEN FILE (OPEN4,4,7)
  34. 340 LDX #$04
  35. 350 JMP $FFC9;SET OUTPUT CHANNEL
  36. 360 ;
  37. 370 CLOSE LDA #$0D;TURN OFF PRINTER
  38. 380 JSR PRINT
  39. 390 LDA #$04
  40. 400 JSR $FFC3;CLOSE FILE
  41. 410 ;
  42. 420 BUF0 .BYTE 0
  43. 430 BUF1 .BYTE 0
  44. 440 BUF2 .BYTE 0
  45. 450 BUF3 .BYTE 0
  46. 460 BYT .BYTE 0
  47. 470 INDJMP .B 0
  48. 480 ADDBUF .BYTE 0 0 0 0 0 0 0 0 0 0 0 0
  49. 490 SCRN LDA #<HDR
  50. 500 STA $FB
  51. 510 LDA #>HDR
  52. 520 STA $FC
  53. 530 LDY #$00
  54. 540 HDRLP LDA ($FB),Y
  55. 550 BEQ HDREND
  56. 560 JSR PRINT
  57. 570 JSR INCFB
  58. 580 JMP HDRLP
  59. 590 HDREND RTS
  60. 600 BEQ HDREND
  61. 610 BRK
  62. 620 INCFB INC $FB
  63. 630 BNE INC1
  64. 640 INC $FC
  65. 650 INC1 RTS
  66. 660 HDR .B 147 31
  67. 670 .B "          [193]LL [207]P [196]IS-[193]SSEMBLER
  68. 680 .B 13 13 159
  69. 690 .B "                   PEEKY
  70. 700 .B 13 13 154
  71. 710 .B "                 [205]L [194]UG
  72. 720 .B 13 13 158
  73. 730 .B "                (null)HARE (null)ARE
  74. 740 .B 13 13 155
  75. 750 .B "           ([195]) [195]OPYRIGHT 1987
  76. 760 .B 13 13 129
  77. 770 .B "           ATNLL (null)IGHTS (null)ESERVED
  78. 780 .B 13 13 153
  79. 790 .B "[197]NTER BEGINNING AND ENDING ADDRESSES TO
  80. 800 .B 13 13
  81. 810 .B "DIS-ASSEMBLE
  82. 820 .B 13 13 30
  83. 830 .B "[197]XAMPLE D C000 C32E
  84. 840 .B 13 13
  85. 850 .B "(null)SE P TO PRINT, X TO QUIT
  86. 860 .B 13 0
  87. 880 .END UNOP EQ
  88.