COAET" • r

6084- CB A0 A6 2320 .AS -"EACH 'LIST' WITH &"
6087- 8D 00 2330 .HS 8D00 C/R EOT
2340 *--------------------------------
2350 INIT
6089- A9 28 2360 LDA #$28 CHECK FOR A/S ROM
608B- CG 01 E0 2370 CMP $E001
608E- D0 lB 2380 BNE DOS -NOT THERE!
6090- A9 4C 2390 LDA #$4C "JMP" OPCODE
6092- CD 00 E0 2400 CMP $E000
6095- D0 14 2410 BNE DOS -NOT THERE!
2420 *
6097- SD F5 03 2430 STA $3F5 & VECTOR
609A- A9 AE 2440 LDA #AMPER
609C- SD . F6 03 2450 STA $3F6
609F- A9 60 2460 LDA /AMPER
60Al- 8D F7 03 2470 STA $3F7
2480
60A4- A9 12 2490 *
LDA #BANNER DISPLAY BANNER
60A6- A0 60 2500 LDY /BANNER TEXT MESSAGE
60A8- 20 3A DB 2510 JSR STROUT
2520 DOS
60AB- 4C D0 03 2530 JMP $03D0 --> DOS/BASIC
2540 *--------------------------------
2550 AMPER
2560 2570 AMPERSAND ENTRY POINT
2580 *
60AE- AA 2590 TAX SAVE lST TOKEN
60AF- 20 Bl 00 2600 JSR CHRGET GET 2ND TOKEN
60B2- 08 2610 PHP SAVE STATUS
*
"LIST" TOKEN?
60B3- E0 BC
2620
2630 CPX #lSS
60B5- F0 08 2640 BEQ XLIST
60B7- E0 4C 2650 CPX #$4C "L" CHAR?
60B9- F0 04 2660 BEQ XLIST
60BB- 28 2670 PLP
26S0 ERROR
60BC- 4C C9 OE 2690 JMP SNERR SYNTAX ERROR
2700
2710 XL *--------------------------------
I ST
60BF- 2S 2720 PLP
60C0- 90 0A 2730 BCC LIS010 DIGIT NEXT
60C2- F0 0S 2740 BEQ LIS010 : OR EOL
II
60C4- C9 C9 2750 CMP #$C9 - II TOKEN
60C6- F0 04 2760 BEQ LIS010 LIST - ...
II II
60C8- C9 2C 2770 CMP #$2C , CHAR
60CA- D0 F0 2780 BNE ERROR -ERROR
2790 LIS010
60CC- 20 0C DA 2800 JSR LINGET GET LINE NR
60CF- 20 lA D6 2810 JSR FNDLIN LOWTR -> LINE
60D2- 20 B7 00 2820 JSR CHRGOT NEXT CHAR
60D5- F0 10 2830 BEQ LIS030 : OR EOL
II
60D7- C9 C9 2S40 CMP #$C9 - II TOKEN
60D9- F0 04 2S50 BEQ LIS020
II II
60DB- C9 2C 2860 CMP #$2C , CHAR
60DD- D0 DD 2S70 BI\TE ERROR -ERROR
42 Apple Orchard