You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
1<br />
2880 LIS020 612E- 29 7F 3440 AND #$7F MASK CHAR<br />
60DF- 20 Bl 00 2890 JSR CHRGET NEXT CHAR 6130- 20 6D 62 3450 JSR XOUTDO OUTPUT CHAR<br />
60E2- 20 0C DA 2900 JSR LINGET PARSE LINE NR 6133- A9 02 3460 LDA #2 CURSOR W/IN 2<br />
60E5- D0 D5 2910 BNE ERROR -ERROR 6135- 20 4B 62 3470 JSR OVRFLO OF WINDOW?<br />
2920 * : OR EOL 3480 LIS120<br />
2930 LIS030 6138- C8 3490 INY NEXT INPUT POS<br />
60E7- A9 00 2940 LDA #0 6139- 84 85 3500 STY FORPNT (SAVE Y)<br />
60E9- SD 05 60 2950 STA TABFOR NR FOR'S := 0 613B- Bl 9B 3510 LDA (LOWTR) I y GET CHAR/TOKEN<br />
60EC- A5 50 2960 LDA LINNUM 2ND LINE NR 613D- D0 14 3520 BNE LIS300 -VALID BYTE<br />
60EE- 05 51 2970 ORA LINNUM+l 3530 60F0- D0 06 2980 BNE LIS040 2ND LINE GIVEN<br />
3540 * END OF LINE, MOVE TO NEXT LINE<br />
60F2- A9 FF 2990 LDA #$FF 3550 *<br />
60F4- 85 50 3000 STA LINNUM DEFJ\ULT 2ND 613F- A8 3560 TAY y := 0<br />
60F6- 85 51 3010 STA LINNUM+l LINE NUMBER 6140- Bl 9B 3570 LDA (LOWTR),Y LINK PTR, LO<br />
3020 *--------------------------------<br />
6142- AA 3580 TAX<br />
3030 LIS040 6143- CB 3590 INY y := 1<br />
3040 * 6144- Bl 9B 3600 LDA (LOWTR),Y LINK PTR, HI<br />
3050 * LIST THE NEXT STATEMENT 6146- 86 9B 3610 STX LOWTR<br />
3060 * 6148- 85 9C 3620 STA LOWTR+l<br />
60F8- A0 01 3070 LDY #1 614A- 4C FB 60 3630 JMP LIS040<br />
60FA- Bl 9B 3080 LDA (LOWTR), Y LINK HI BYTE 3640 *--------------------------------<br />
60FC- F0 4F 3090 BEQ LIS200 END OF PROGRAM<br />
3650 LIS200<br />
60FE- 20 9B 62 3100 JSR PAUSE STOP LIST ? 3660 6101- 20 FB DA 3110 JSR CRDO OUTPUT CAR RET<br />
3670 * END OF PROGRAM - RETURN TO A/S<br />
6104- cs 3120 INY y := 2 3680 *<br />
3130 * 614D- 20 FB DA 3690 JSR CRDO NEW LINE<br />
3140 * CHECK FOR LINE NUMBER IN RANGE 6150- 4C D2 D7 3700 JMP NEWSTT EXIT<br />
3150 * 3710 *--------------------------------<br />
6105- Bl 9B 3160 LDA (LOWTR),Y LO BY'I'~ OF 3720 6107- AA 3170 TAX<br />
3730 PROCESS NEXT CHAR/TOKEN<br />
LINE l"·"·IBER<br />
6108- cs 3180 INY y := 3 3740 *<br />
6109- Bl 9B 3190 LDA (LOWTR) I y 3750 LIS300<br />
610B- C5 51 3200 CMP LINNUM+l HI BYTES 6153- C9 22 3760 CMP #$22 (") CHAR<br />
610D- D0 04 3210 BNE LIS050 6155- D0 0A 3770 BNE LIS301<br />
610F- E4 50 3220 CPX LIN.NUM LO BYTES 6157- A9 80 3780 LDA #$80 TOGGLE THE<br />
6111- F0 02 3230 BEQ LIS060 6159- 4D 07 60 3790 EOR TXTFLG TEXT FLAG<br />
3240 LIS050 615C- SD 07 60 3800 STA TXTFLG<br />
6113- B0 38 3250 BCS LIS200 END OF RANGE 615F- A9 22 3810 LDA #$22 ( ") CHAR<br />
3260 LIS060 3820 LIS301<br />
6115- 84 85 3270 STY FORPNT (TEMP SAVE) 6161- AE 07 60 3830 LDX TXTFLG IN REM/TEXT?<br />
3280 * 6164- D0 5B 3840 BNE LIS600 -YES<br />
3290 * PRINT THE LINE NUMBER 3850 *<br />
3300 * 6166- C9 2C 3860 CMP #$2C " ," CHAR<br />
6117- 20 77 62 3310 JSR XLINPR PRINT LINNUM 6168- F0 04 3870 BEQ LIS310<br />
611A- A9 00 3320 LDA #0 616A- C9 3B 3880 CMP #$3B ";" CHAR<br />
611C- SD 06 60 3330 STA TABIF NR NESTED IF'S 616C- D0 05 3890 BNE LIS320<br />
611F- 8D 07 60 3340 STA TXTFLG NO "/REM YET 3900 LIS310<br />
6122- 20 29 62 3350 JSR INDENT 616E- 20 6D 62 3910 JSR XOUTDO PRINT CHAR<br />
6125- A9 00 3360 LDA #0 6171- A9 20 3920 LDA #$20 SPACE CHAR<br />
"O<br />
6127- SD 03 60 3370 STA CONFLG<br />
3930 LIS320<br />
...<br />
«l<br />
612A- A9 20 3380 LDA #$20 6173- C9 3A 3940 CMP #$3A ":" CHAR ..c<br />
u<br />
0<br />
...<br />
3390 61 75- D0 lD 3950 BNE LIS330 -NO<br />
3400 * PRINT NEXT CHARACTER OR TOKEN 3960 * Q)<br />
3410 *<br />
3970 * BEGIN A NEW STATEMENT ( : ) 0..<br />
0..<br />
3420 LIS100 3980 *<br />
612C- A4 85 3430 LDY FORPNT (RESTORE Y) 6177- AE 03 60 3990 LDX CONFLG CONTINUED LINE?<br />
Change language