home *** CD-ROM | disk | FTP | other *** search
- 10 U JSR DIS;SET UP ADDRESS COUNTER
- 20 ;
- 30 JSR OFILE;OPEN WRITE CHANNEL
- 40 ;
- 50 LDX #$03
- 60 JSR OUTCHN
- 70 LDA #$01;BASIC LINE LINK (LO)
- 80 JSR PRINT
- 90 LDA #$08;BASIC LINE LINK (HI)
- 100 JSR PRINT
- 110 ;
- 120 LDA #$0E;ADJUST FOR LINE 10
- 130 STA LINK;10 *= $XXXX
- 140 JSR PRINT
- 150 LDA #$08
- 160 STA LINK+1
- 170 JSR PRINT
- 180 ;
- 190 LDA LINE;PRINT LINE # TO SCREEN
- 200 JSR PRINT
- 210 LDA LINE+1
- 220 JSR PRINT
- 230 ;
- 240 LDY #$00;SET UP LINE IN BUFFER
- 250 LINLP LDA AST,Y;*= $XXXX
- 260 BEQ LINLP1
- 270 JSR PRINT
- 280 INY
- 290 JMP LINLP
- 300 ;
- 310 LINLP1 JSR PRINT
- 320 JSR CLRCHN;CLOSE WRITE CHANNEL
- 330 ;
- 340 JSR FINDMN;START UN-ASSEMBLY
- 350 ;
- 360 JMP START
- 370 ;
- 380 DIS LDY #$00
- 390 JSR SETADD
- 400 STA $22;HI BYTE BEGIN ADDRESS
- 410 JSR SETADD
- 420 STA $23
- 430 JSR HEX;WHEN RETURN HI BYTE BEGIN IN HEX
- 440 STA $FC
- 450 JSR SETADD
- 460 STA $22;LO BYTE BEGIN ADDRESS
- 470 JSR SETADD
- 480 STA $23
- 490 JSR HEX;LO BYTE BEGIN ADDRESS
- 500 STA $FB
- 510 JSR SETADD
- 520 STA $22;HI BYTE END ADDRESS
- 530 JSR SETADD
- 540 STA $23
- 550 JSR HEX; CONVERT ADD TO HEX
- 560 STA $FE;HI BYTE END ADDRESS
- 570 JSR SETADD
- 580 STA $22;LO BYTE END ADDRESS
- 590 JSR SETADD
- 600 STA $23
- 610 JSR HEX
- 620 STA $FD;LO BYTE END ADDRESS
- 630 RTS
- 640 ST JMP START
- 650 .FILE UNASSM3
-