home *** CD-ROM | disk | FTP | other *** search
- 10 SPC LDA #$20;PRINT 1 SPACE
- 20 JMP PRINT
- 30 ;
- 40 SPC1 LDA CMND3,Y;PRINT # OF SPACES
- 50 JSR PRINT
- 60 DEY
- 70 BNE SPC1
- 80 RTS
- 90 ;
- 100 CR LDA #$0D;PRINT A CARRAIGE RETURN
- 110 JSR PRINT
- 120 RTS
- 130 ;
- 140 HEXCON PHA;NUMBER MANIPULATION
- 150 LSR:LSR:LSR:LSR
- 160 JSR MN2
- 170 PLA
- 180 AND #$0F
- 190 JMP MN2
- 200 MN2 CMP #$0A
- 210 BCC U92
- 220 ADC #$06;ADJUST FOR A TO F
- 230 ;
- 240 U92 ADC #$30;ADJUST 0 TO 9
- 250 JMP PRINT
- 260 ;
- 270 OPEN LDA #$00;SET UP PRINTER
- 280 JSR $FFBD;SET FILENAME
- 290 LDA #$04; DEVICE
- 300 TAX
- 310 LDY #$07;LOWER CASE CHARACTERS
- 320 JSR $FFBA;SET LOGICAL FILE
- 330 JSR $FFC0;OPEN FILE (OPEN4,4,7)
- 340 LDX #$04
- 350 JMP $FFC9;SET OUTPUT CHANNEL
- 360 ;
- 370 CLOSE LDA #$0D;TURN OFF PRINTER
- 380 JSR PRINT
- 390 LDA #$04
- 400 JSR $FFC3;CLOSE FILE
- 410 ;
- 420 BUF0 .BYTE 0
- 430 BUF1 .BYTE 0
- 440 BUF2 .BYTE 0
- 450 BUF3 .BYTE 0
- 460 BYT .BYTE 0
- 470 INDJMP .B 0
- 480 ADDBUF .BYTE 0 0 0 0 0 0 0 0 0 0 0 0
- 490 SCRN LDA #<HDR
- 500 STA $FB
- 510 LDA #>HDR
- 520 STA $FC
- 530 LDY #$00
- 540 HDRLP LDA ($FB),Y
- 550 BEQ HDREND
- 560 JSR PRINT
- 570 JSR INCFB
- 580 JMP HDRLP
- 590 HDREND RTS
- 600 BEQ HDREND
- 610 BRK
- 620 INCFB INC $FB
- 630 BNE INC1
- 640 INC $FC
- 650 INC1 RTS
- 660 HDR .B 147 31
- 670 .B " [193]LL [207]P [196]IS-[193]SSEMBLER
- 680 .B 13 13 159
- 690 .B " PEEKY
- 700 .B 13 13 154
- 710 .B " [205]L [194]UG
- 720 .B 13 13 158
- 730 .B " (null)HARE (null)ARE
- 740 .B 13 13 155
- 750 .B " ([195]) [195]OPYRIGHT 1987
- 760 .B 13 13 129
- 770 .B " ATNLL (null)IGHTS (null)ESERVED
- 780 .B 13 13 153
- 790 .B "[197]NTER BEGINNING AND ENDING ADDRESSES TO
- 800 .B 13 13
- 810 .B "DIS-ASSEMBLE
- 820 .B 13 13 30
- 830 .B "[197]XAMPLE D C000 C32E
- 840 .B 13 13
- 850 .B "(null)SE P TO PRINT, X TO QUIT
- 860 .B 13 0
- 880 .END UNOP EQ
-