Skip to main content

Full text of "Newell Industries OSNE v601 source code"

See other formats


PAGE 1 0SNEV601 



10 

.TITLE "0SNEV601" 

0000 

0100 

t= $£400 

=E45? 

0110 SIOV = $E459 

=E45C 

0120 SETVBV = $E45C 

=E468 

0130 SENDEV = IE46B 

=F095 

0140 SIOSB = IF095 

E400 F8F3 

0150 EDITOF' .WORD 4F3FC-1 

E402 33F6 

0160 

. WORD JF634-1 

E404 3DF6 

0170 

•WORD IF63E-1 

E406 A3F6 

0180 

.WORD IF6A4-1 

E408 33F6 

0190 

.WORD SF634-1 

E40fi 3CF6 

0200 

.WORD IF63D-1 

E40C 4CD0F3 

0210 

JMP $F3D0 ; PWRONA 

E40F 00 

0220 

.BYTE 0 

E410 F5F3 

0230 DI8PLA .WORD IF3F6-1 

E412 33F6 

0240 

.WORD $F634-1 

E414 92F5 

0250 

.WORD $F593-1 

E416 B6F5 

0260 

.WORD IF5B7-1 

E418 33F6 

0270 

.WORD IF634-1 

£41 A DCFC 

0280 

•WORD IFCDD-l 

E41C 4CDQF3 

0290 

JHP *F3D0 

E41F 00 

0300 

.BYTE 0 

E420 33F6 

0310 KBDHND .HQRD 4F634-1 

E422 33F6 

0320 

.WORD $F634-1 

E424 E1F6 

0330 

.WORD IF6E2-1 

£426 3CF6 

0340 

.WORD *F63D-1 

E428 33F6 

0350 

.WORD IF634-1 

E42A 5CF6 

0360 

.WORD $F63D-1 

E42C 4CD0F3 

0370 

JHP $F3D0 

E42F 00 

0380 

.BYTE 0 

E430 9EEE 

0390 PTRHND .WORD PHOPEN-1 

£432 DBEE 

0400 

.WORD PHCLOS-1 

E434 9DEE 

0410 

.WORD BADST-1 

E436 A6EE 

0420 

.WORD PHWRIT-1 

E438 80EE 

0430 

.WORD PHST AT- 1 

E43A 9DEE 

0440 

.WORD BADST-1 

E43C 4C78EE 

0450 

JHP PHINIT 

E43F 00 

0460 

.BYTE 0 

E440 4BEF 

0470 CASHND .WORD OPENC-1 

E442 2AF0 

0480 

•WORD $F02B-1 

E444 05EF 

0490 

.WORD GBYTE-1 

E446 0FF0 

0500 

.WORD JF010-1 

E448 27F0 

0510 

.WORD *F028-1 

E44A 4AEF 

0520 

.WORD SPECIA-1 

E44C 4C41EF 

0530 

JHP INIT 

E44F 00 

0540 

.BYTE 0 

£450 4CEAED 

0550 

JHP DINIT 

E453 4CF0ED 

0560 

JHP DSKIF 

E456 4CC4E4 

0570 

JHP CIO 

E459 4C39E9 

0580 

JHP SIO 

E45C 4CEDE8 

0590 

JHP SETVBL 

E45F 4CAEE7 

0600 

JHP SYSVBL 

E462 4C05E9 

0610 

JHP XITVBL 

E465 4C44E9 

0620 

JHP SIOINT 

E468 4CF2EB 

0630 

JHP SENDEN 

E46B 4CD5E6 

0640 

JHP IHINIT 

E46E 4CA6E4 

0650 

JHP CIOINT 

E471 4C23F2 

0660 

JHP *F223 

E474 4C1BF1 

0670 

JHP tFllB 

E477 4C25F1 

0680 

JHP $F125 

E47A 4CE9EF 

0690 

JHP RBLOK 



PAGE 2 QSNEV601 


E47D 4C5DEF 

0700 

JMP OPINP 

E480 90E7 

0710 

• HORD SYRTI 

E482 8FE7 

0720 

.HORD SYIRQB 

E484 8FE7 

0730 

. WORD SYIRQB 

E4B6 8FE7 

0740 

.HORD SYIRQB 

E488 BEFF 

0750 

.HORD tFFBE 

E48A OFEB 

0760 

.HORD ISRSIR 

E48C 90EA 

0770 

•WORD ISRODN 

E48E CFEA 

0780 

.HORD ISRTD 

E49Q BFE7 

0790 

.HORD SYIRQB 

E492 8FE7 

0800 

.HORD SYIRQB 

E494 8FE7 

0810 

.HORD SYIRQB 

E496 06E7 

0820 

.HORD SYIRQ 


E4?B OOOOOOOO 0830 .BYTE 0.0, 0,0, 0,0, 0,0, 0,0 
E49C OOOOOOOO 


E4A0 0000 



E4A2 AEE7 

0840 

.HORD SYSVBL 

E4A4 05E9 

0850 

.HORD XITVBL 

E4A6 A200 

0860 CIOINT LDX #0 

E4A8 A9FF 

0870 CI0I1 IDA #$FF 

E4AA 9D4003 

0880 

STA $0340,!! 

E4AD A9C0 

0890 

LDA #$C0 

E4AF 9D4603 

0900 

STA $0346, X 

E4B2 A9E4 

0910 

LDA #$E4 

E4B4 9D4703 

0920 

STA $0347, X 

E4B7 8A 

0930 

TXA 

E4B8 18 

0940 

CLC 

E4B9 6910 

0950 

ADC »$10 

E4BB AA 

0960 

TAX 

E4BC C980 

0970 

CMP #$80 

E4BE 90E8 

0980 

BCC CI0I1 

E4C0 60 

0990 

RTS 

=E4C0 

1000 ERRTN = $E4C0 

=00E4 

1010 ERRTNH = $E4 

=0000 

1020 ERRTNL = 4C0 

E4C1 A085 

1030 

LDY #$85 

E4C3 60 

1040 

RTS 

E4C4 852F 

1050 CIO STA $2F 

E4C6 862E 

1060 

STX $2E 

E4C8 8A 

1070 

TXA 

E4C9 290F 

1080 

AND #$0F 

E4CB D004 

1090 

BNE CIERR1 

E4CD E080 

1100 

CPX #$80 

E4CF 9005 

1110 

BCC I0C1 

E4D1 A086 

1120 CIERR1 LDY #$86 

E4D3 4C1BE6 

1130 

JHP CIRTN1 

E4D6 AOOO 

1140 I0C1 LDY #0 

E4D8 BD4003 

1150 

I0C1A LDA $0340, X 

E4DB 992000 

1160 

STA $20, Y 

E4DE E8 

1170 

INX 

E4DF 08 

1180 

INY 

E4E0 0000 

1190 

CRY #12 

E4E2 90F4 

1200 

BCC I0C1A 

E4E4 A084 

1210 

LDY #$84 

E4E6 A522 

1220 

LDA $22 

E4E8 0903 

1230 

CMP #3 

E4EA 9025 

1240 

BCC CIERR4 

E4EC A8 

1250 

TAY 

E4ED COOE 

1260 

CPY #$0E 

E4EF 9002 

1270 

BCC IQC2 

E4F1 AOOE 

1280 

LDY #$0E 


RASE 3 0SNEV601 


E4F3 8417 

1290 I0C2 STY $17 

E4F5 B9C6E6 

1300 

LDA COMTAB-3, Y 

E4F8 FOOF 

1310 

BEQ Cl OPEN 

E4Ffi C902 

1320 

CHP #2 

E4FC F035 

1330 

BES CICLDS 

E4FE C908 

1340 

CHP #8 

E500 B04C 

1350 

BCS CISTSP 

E502 C904 

1360 

CHP #4 

E504 F063 

1370 

BEQ CIREAD 

E506 4CC9E5 

1380 

JHP CIWRIT 

E509 A520 

1390 Cl OPEN LDA $20 

E50B C9FF 

1400 

CHP #$FF 

E50D F005 

1410 

BEQ I0C6 

E50F A081 

1420 CIERR3 LDY #$81 

ES11 4C1BE6 

1430 CIERR4 JHP CIRTN1 

E514 209EE6 

1440 I0C6 JSR DEVSRC 

E517 B0F8 

1450 

BCS CIERR4 

E519 203DE6 

1460 

IQC7 JSR COHENT 

E51C B0F3 

1470 

BCS CIERR4 

E51E 2089E6 

1480 

JSR SOHAND 

E521 A90B 

1490 

LDA MOB 

E523 8517 

1500 

STA $17 

E525 203DE6 

1510 

JSR COHENT 

E528 A52C 

1520 

LDA $2C 

E52A 8526 

1530 

STA $26 

E52C A52D 

1540 

LDA $2D 

E52E 8527 

1550 

STA $27 

E530 4C1DE6 

1560 

JHP CIRTN2 

E533 AOOl 

1570 CICLQS LDY #1 

E535 8423 

1580 

STY $23 

E537 203DE6 

1590 

JSR COHENT 

E53A B003 

1600 

BCS CICL02 

E53C 2089E6 

1610 

JSR SOHAND 

E53F A9FF 

1620 CICL02 LDA #$FF 

E541 8520 

1630 

STA $20 

E543 A9E4 

1640 

LDA fERRTNH 

E545 8527 

1650 

STA $27 

E547 A9C0 

1660 

LDA IERRTNL 

E549 8526 

1670 

STA $26 

E54B 4CIDE6 

1680 

JHP CIRTN2 

E54E A520 

1690 CISTSP LDA $20 

ESSO C9FF 

1700 

CHP #$FF 

E552 D005 

1710 

BNE CIST1 

E554 209EE6 

1720 

JSR DEVSRC 

E557 BOBS 

1730 

BCS CIERR4 

E559 203DE6 

1740 CIST1 JSR CQMENT 

E55C 2089E6 

1750 

JSR SOHAND 

ES5F A62E 

1760 

LDX $2E 

E561 BD4003 

1770 

LDA $0340 ,X 

E564 3520 

1780 

STA $20 

E566 4C1DE6 

1790 

JHP CIRTN2 

E569 A522 

1800 CIREAD LDA $22 

E56B 252A 

1810 

AND $2A 

E56D D005 

1820 

BNE RCI1A 

E56F A083 

1830 

LDY #$83 

E571 4C1BE6 

1840 RCI1B JHP CIRTN1 

E574 203DE6 

1850 RCI1A JSR COHENT 

E577 BOFB 

1860 

BCS RCI1B 

E579 A528 

1870 

LDA $28 

E57B 0529 

1880 

ORA $29 

E57D D008 

1B90 

BNE RCI3 



PA6E 4 OSNEV601 


E57F 2Q89E6 

1900 

JSR SOHAND 

E582 852F 

1910 

STA $2F 

E5B4 4C1DE6 

1920 

JHP CIRTN2 

E587 2089E6 

1930 RCI3 JSR 60HAND 

E58A 852F 

1940 

STA $2F 

E58C 3035 

1950 

BHI RCI4 

E58E A000 

1960 

LDY #0 

E590 9124 

1970 

STA ($24!, Y 

E5?2 2070E6 

1980 

JSR INCBFP 

E595 A522 

1990 

LDA $22 

E597 2902 

2000 

AND #2 

E59? DOOC 

2010 

BNE RCI1 

E59B A52F 

2020 

LDA $2F 

E59D C998 

2030 

CNR #$9B 

E59F D006 

2040 

BNE RCI1 

E5A1 2063E6 

2050 

JSR DECBFL 

E5A4 4CC3E5 

2060 

JHP RC14 

E5A7 2063E6 

2070 RCI1 JSR DECBFL 

E5AA DODB 

2080 

BNE RCI3 

E5AC A522 

2090 RCI2 LDA $22 

E5AE 2902 

2100 

AND #2 

E5B0 0011 

2110 

BNE RCI4 

E5B2 2089E6 

2120 RCI6 JSR SOHAND 

E5B5 852F 

2130 

STA $2F 

E5B7 300A 

2140 

BHI RCI4 

E5B9 A52F 

2150 

LDA $2F 

E5BB C99B 

2160 

CHP #$9B 

E5BD D0F3 

2170 

BNE RCI6 

E5BF A989 

2180 RCI11 LDA #$89 

E5C1 8323 

2190 

STA $23 

E5C3 2077E6 

2200 RCI4 JSR SUBBFL 

E5C6 4C1DE6 

2210 

JHP CIRTN2 

E5C9 A522 

2220 CIHRIT LDA $22 

E5CB 252A 

2230 

AND $2A 

E5CD D005 

2240 

BNE HCI1 A 

E5CF A087 

2250 

LDY #$87 

ESDI 4C1BE6 

2260 WCI1B JHP CIRTN1 

E5D4 203DE6 

2270 WCI1A JSR COHENT 

E5D7 B0F8 

2280 

BCS WCI1B 

E5D9 A528 

2290 

LDA $28 

E5DB 0529 

2300 

ORA $29 

E5DD D006 

2310 

BNE WCI3 

E5DF A52F 

2320 

LDA $2F 

E5E1 E628 

2330 

INC $28 

E5E3 D006 

2340 

BNE WC I 4 

E5E5 AOOO 

2350 WCI3 LDY #0 

E5E7 B124 

2360 

LDA ($24!, Y 

E5E9 852F 

2370 

STA $2F 

E5EB 2Q89E6 

2380 HCI4 JSR BOHAND 

E5EE 3025 

2390 

BHI WCI5 

E5F0 2070E6 

2400 

JSR INCBFP 

E5F3 A522 

2410 

LDA $22 

E5F5 2902 

2420 

AND *2 

E5F7 DOOC 

2430 

BNE WCI1 

E5F9 A52F 

2440 

LDA $2F 

E5FB C99B 

2450 

CHP #$9B 

E5FD D006 

2460 

BNE WCI1 

E5FF 2063E6 

2470 

JSR DECBFL 

E602 4C15E6 

2480 

JHP WCI5 

E605 2063E6 

2490 WCI1 JSR DECBFL 

E60B DODB 

2500 

BNE WCI3 



Pfl6E 5 QSNEV601 


E60A A522 

2510 WCI2 IDA *22 

E60C 2902 

2520 

AND *2 

E60E D005 

2530 

BNE NCI5 

E610 A99B 

2540 

LDA **9B 

E612 2089E6 

2550 

JSR 50HAND 

E615 2077E6 

2560 HCI5 JSR SUBBFL 

E618 4CIDE6 

2570 

JMP CIRTN2 

E61B 8423 

2580 CIRTN1 STY *23 

E61D A42E 

2590 CIRTN2 LDY *2E 

E61F B94403 

2600 

LDA *0344, Y 

E622 8524 

2610 

STA *24 

E624 B94503 

2620 

LDA *0345, Y 

£627 8525 

2630 

STA *25 

E629 A20O 

2640 

LDX *0 

E62B B520 

2650 CIRT3 LDA *20, X 

E62D 9940O3 

2660 

STA *0340, Y 

E630 E8 

2670 

INX 

E631 C8 

2680 

I NY 

E632 EOOC 

2690 

CPX *12 

E634 90F5 

2700 

BCC CIRT3 

E636 A52F 

2710 

LDA *2F 

E638 A62E 

2720 

LDX *2E 

E63A A423 

2730 

LDY *23 

E63C 60 

2740 

RTS 

E63D A420 

2750 COMENT LDY *20 

E63F C022 

2760 

CPY 1*21+1 

E641 9004 

2770 

BCC C0M1 

E643 A085 

2780 

LDY #*85 

E645 B01B 

2790 

BCS COM2 

E647 B91B03 

2B0O C0H1 LDA *0318, Y 

E64A 852C 

2810 

STA *2C 

E64C B91C03 

2820 

LDA *031C,Y 

E64F 852D 

2830 

STA *2D 

E651 A417 

2840 

LDY *17 

E653 B9C6E6 

2850 

LDA COHTAB-3, Y 

E656 A8 

2860 

TAY 

E657 B12C 

2870 

LDA (*2C!,Y 

E659 AA 

2880 

TAX 

E65A C8 

2890 

I NY 

E65B B12C 

2900 

LDA (*2C),Y 

E65D 852D 

2910 

STA *2D 

E65F 862C 

2920 

STX *2C 

E661 18 

2930 

CLC 

E662 60 

2940 COM2 RTS 

E663 C628 

2950 DECBFL DEC *28 

E665 A528 

2960 

LDA *28 

E667 C9FF 

2970 

CMP **FF 

E669 D0O2 

2980 

BNE DECBF1 

E66B C629 

2990 

DEC *29 

E66D 0529 

30O0 DECBF1 ORA *29 

E66F 60 

3010 

RTS 

E670 E624 

3020 INCBFP INC *24 

E672 D002 

3030 

BNE INCBF1 

E674 E625 

3040 

INC *25 

E676 60 

3050 INCBF1 RTS 

E677 A62E 

3060 SUBBFL LDX *2E 

E679 38 

3070 

SEC 

E67A BD4803 

3O80 

LDA *0348, X 

E67C E528 

3090 

SBC *28 

E67F 8528 

3100 

STA *28 

E681 BD4903 

3110 

LDA *0349, X 



PAGE 6 0SNEV601 


E684 E529 

3120 

SBC $29 

E686 8529 

3130 

STA $29 

£688 60 

3140 

RTS 

E689 A092 

3150 60HAND LDY *492 

E68B 2093E6 

3160 

JSR Cl JUMP 

E68E 8423 

3170 

STY $23 

E690 C000 

31B0 

CPY #0 

E692 60 

3190 

RTS 

E693 AA 

3200 Cl JUMP TAX 

E694 A52D 

3210 

LDA $2D 

E696 48 

3220 

PHA 

E697 A52C 

3230 

LDA $2C 

E699 48 

3240 

PHA 

E69A 8A 

3250 

TXA 

E69B A62E 

3260 

LDX $2E 

E69D 60 

3270 

RTS 

E69E AOOO 

3280 DEVSRC LDY #0 

E6A0 B124 

3290 

LDA ($24), Y 

E6A2 FOOC 

3300 

BE9 CIERR2 

E6A4 A021 

3310 

LDY #$21 

E6A6 D91A03 

3320 DEVS1 CUP $031 A, Y 

E6A9 FOOA 

3330 

BED DEVS2 

E6AB 88 

3340 

DEY 

E6AC 88 

3350 

DEY 

E6AD 88 

3360 

DEY 

E6AE 10F6 

3370 

BPL DEySl 

E6B0 A082 

3380 CIERR2 LDY #$82 

E6B2 38 

3390 

SEC 

E6B3 B0!3 

3400 

BCS DEVS4 

E6B5 98 

3410 DEVS2 TYA 

E6B6 8520 

3420 

STA $20 

E6B8 38 

3430 

SEC 

E6B9 A001 

3440 

LDY #1 

E6BB B124 

3450 

LDA ($24), Y 

E6BD E930 

3460 

SBC #$30 

E6BF C90A 

3470 

CMP #$0A 

E6C1 9002 

3480 

BCC DEVS3 

E6C3 A901 

3490 

LDA *1 

E6C5 8521 

3500 DEVS3 STA $21 

E6C7 18 

3510 

CLC 

E6C8 60 

3520 DEVS4 RTS 

E6C9 00040404 

3530 COMTAB .BYTE 0,4, 4, 4, 4, 6 

E6CD 0406 



E6CF 06060602 

3540 

.BYTE 6,6,6,2,8,10 

E6D3 080A 



E6B5 A940 

3550 IHINIT LDA #$40 

E6D7 8D0EB4 

3560 

STA $D40E 

E6DA A938 

3570 

LDA #$38 

E6DC 8D02D3 

3530 

STA $D302 

E6DF 8D03D3 

3590 

STA $D303 

E6E2 A900 

3600 

LDA #0 

E6E4 8D00D3 

3610 

STA $D300 

E6E7 8D01D3 

3620 

STA $D301 

E6EA A93C 

3630 

LDA #$3C 

E6EC 8D02D3 

3640 

STA $D302 

E6EF 8D03D3 

3650 

STA $D303 

E6F2 60 

3660 

RTS 

E6F3 6C1602 

3670 PIRQ JHP ($0216) 

E6F6 80400402 

3680 CNPTAB .BYTE $80, $40, 4.2, 1,8, $10, $20 

E6FA 01081020 



E6FE 36081412 

3690 ADRTAB .BYTE $36,8,$14,$12,$10,$0E,$0C,$0A 



PAGE 7 0SNEV601 


E702 1O0EOCOA 



E706 48 

3700 SYIRQ PHA 

E707 AD0ED2 

3710 

LDA ID20E 

E70A 2920 

3720 

AND *$20 

E70C D00D 

3730 

BNE SYIRQ2 

E70E A9DF 

3740 

LDA i$DF 

E710 8D0ED2 

3750 

STA *D20E 

E713 A510 

3760 

LDA $10 

E715 3D0ED2 

3770 

STA $D20E 

E718 6C0A02 

3780 

JHP ($O20A) 

E718 8A 

3790 SYIRQ2 TXA 

E71C 48 

3800 

PHA 

E710 A206 

3810 

LDX »6 

E71F BDF6E6 

3820 LQOPH LDA CHPTAB, X 

E722 E005 

3830 

CPX 15 

E724 D004 

3840 

BNE L0QPH2 

E726 2510 

3850 

AND $10 

E728 F005 

3860 

BES LL 

E72A 2C0ED2 

3870 L00PH2 BIT $D20E 

E72D F006 

3880 

BED JHPP 

E72F CA 

3890 LL 

m 

X 

E730 10ED 

3900 

BPL LQOPH 

E732 4C62E7 

3910 

JHP SYIRQB 

E735 49FF 

3920 JHPP EOR i$FF 

E737 8D0ED2 

3930 

STA $D20£ 

E73A A510 

3940 

LDA $10 

E73C 8DOE02 

3950 

STA $02OE 

E73F BDFEE6 

3960 

LDA ADRTAB, X 

E742 AA 

3970 

TAX 

E743 BD0002 

3980 

LDA $0200, X 

E746 8D8C02 

3990 

STA $028C 

E749 BD0102 

4000 

LDA $0200+1, X 

E74C BD8D02 

4010 

STA $028D 

E74F 68 

4020 

PLA 

E750 AA 

4030 

TAX 

E751 6C8C02 

4040 

JHP {$0280 

E754 A900 

4050 BRKKY2 LDA #0 

E756 8511 

4060 

STA $11 

E758 8DFF02 

4070 

STA $02FF 

E75B 8DF0O2 

4080 

STA $02F0 

E75E 854D 

4090 

STA $4D 

E760 68 

4100 

PLA 

E761 40 

4110 

RTI 

E762 68 

4120 SYIRQ8 PLA 

E763 AA 

4130 

TAX 

E764 2C02D3 

4140 

BIT $D302 

E767 1006 

4150 

BPL SYIRB9 

E769 AD00D3 

4160 

LDA $D300 

E76C 6C0202 

4170 

JHP ($0202) 

E76F 2C03D3 

4180 SYIR89 BIT $D303 

E772 1006 

4190 

BPL SYIRQA 

E774 AD01D3 

4200 

LDA $D301 

E777 6C0402 

4210 

JHP ($0204) 

E77A 68 

4220 SYIRQA PLA 

E77B 8D8C02 

4230 

STA $02BC 

E77E 68 

4240 

PLA 

E77F 48 

4250 

PHA 

E780 2910 

4260 

AND #$10 

E782 F007 

4270 

BEQ SYRTI2 

E784 AD8C02 

4280 

LDA $028C 

E787 48 

4290 

PHA 


PAGE 8 0SNEV601 


E788 6C0602 

4300 

JMP ($0206) 

E78B AD8C02 

4310 SYRTI2 LDA $028C 

E78E 48 

4320 

PHA 

E7BF 68 

4330 SYIR9B PLA 

E790 40 

4340 SYRTI RTI 

E791 2C0FD4 

4350 PNHI BIT ID40F 

E794 1003 

4360 

BPL PNMI1 

E796 6C0002 

4370 

JMP ($0200) 

E799 48 

4380 PNHI1 PHA 

E79A AD0FD4 

4390 

LDA $D40F 

E79D 2920 

4400 

AND #$20 

E79F F003 

4410 

BE8 1+5 

E7A1 4C74E4 

4420 

JMP $E474 

E7A4 8A 

4430 

TXA 

E7A5 48 

4440 

PHA 

E7A6 98 

4450 

TYA 

E7A7 48 

4460 

PHA 

E7A8 8D0FD4 

4470 

STA $D40F 

E7AB 6C2202 

4480 

JMP ($0222) 

E7AE E614 

4490 SYSVBL INC $14 

E7B0 D008 

4500 

BNE BYSVB1 

E7B2 E64D 

4510 

INC $4D 

E7B4 E613 

4520 

INC $13 

E7B6 D002 

4530 

BNE SYSVB1 

E7B8 E612 

4540 

INC $12 

E7BA A9FE 

4550 SYSVB1 LDA t$FE 

E7BC A200 

4560 

LDX #0 

E7BE A44D 

4570 

LDY $4D 

E7C0 1006 

4580 

BPL VBATRA 

E7C2 854D 

4590 

STA $4D 

E7C4 A613 

4600 

LDX $13 

E7C6 A9F6 

4610 

LDA *$F6 

E7C8 854E 

4620 VBATPA STA $4E 

E7CA 864F 

4630 

STX $4F 

E7CC A200 

4640 

LDX 10 

E7CE 20D0E8 

4650 

JSR DCTIMR 

E7D1 0003 

4660 

BNE SYSVB2 

E7D3 20CAE8 

4670 

JSR JTINR1 

E7D6 A542 

4680 SYSVB2 LDA $42 

E7D8 0008 

4690 

BNE XXIT 

E7DA BA 

4700 

TSX 

E7DB BD0401 

4710 

LDA $0104, X 

E7DE 2904 

4720 

AND *4 

E7E0 F003 

4730 

BEQ SYSVB3 

E7E2 4C05E9 

4740 XXIT JMP X ITVBL 

E7E5 AD0DD4 

4750 SYSVB3 LDA $D40D 

E7E8 803502 

4760 

STA $0235 

E7EB AD0CD4 

4770 

LDA $D40C 

E7EE 803402 

4780 

STA $0234 

E7F1 AD3102 

4790 

LDA $0231 

E7F4 8D03D4 

4800 

STA $D403 

E7F7 AD3002 

4810 

LDA $0230 

E7FA 800204 

4820 

STA $D402 

E7FD AD2F02 

4830 

LDA $022F 

E800 800004 

4840 

STA $D400 

E803 AD6F02 

4850 

LDA $026F 

E806 8D1BD0 

4860 

STA $D01B 

E809 A208 

4870 

LDX *8 

E80B 8E1FD0 

4880 

STX $D01F 

E80E 58 

4890 SCOLLP CLI 

E80F BDC002 

4900 

LDA $02C0, X 



PAGE 9 QSNEV6Q1 


E812 454F 

4910 

EOR $4F 

ESI 4 254E 

4920 

AN8 $4E 

EB16 9D12D0 

4930 

STA $8012, X 

E819 CA 

4940 

C3 

m 

X 

E81A 10F2 

4950 

BPL SCOLLP 

E81C ADF402 

4960 

LDA $02F4 

E81F 8D09D4 

4970 

STA $8409 

E822 ADF302 

4980 

LDA $02F3 

E825 880 1D4 

4990 

STA $8401 

E828 A202 

5000 

LDX #2 

E82A 20D0E8 

5010 

JSR DCTIHR 

E82D D003 

5020 

BNE SYSVB4 

E82F 20CDE8 

5030 

JSR JTIHR2 

E832 A202 

5040 SYSVB4 LDX 12 

E834 E8 

5050 SYSVBB I NX 

E835 E8 

5060 

INX 

E836 881802 

5070 

LDA $0218, X 

E839 181902 

5080 

ORA $0219, X 

E83C F006 

5090 

BEQ SYSVBA 

E83E 20D0E8 

5100 

JSR DCTIHR 

EB41 982602 

5110 

STA $0226, X 

E844 EOOB 

5120 SYSVBA CPX #8 

E846 BOEC 

5130 

BNE SYSVBB 

E848 A00FB2 

5140 

LDA $D20F 

E84E 2904 

5150 

AND *4 

E84D F008 

5160 

BE8 SYVB6A 

E84F ABF 102 

5170 

LDA $02F1 

E852 F003 

5180 

BE8 SYVB6A 

E854 CEF102 

5190 

DEC $02F1 

E857 AB2B02 

5200 SYVB6A LDA $022B 

E85A F017 

5210 

BEQ SYSVB7 

E85C AB0FB2 

5220 

LDA $D20F 

E85F 2904 

5230 

AND *4 

E861 8060 

5240 

BNE SYSVB6 

E863 CE2B02 

5250 

DEC $022B 

E866 OOOB 

5260 

BNE SYSVB7 

E868 A903 

5270 

LDA 13 

E86A 8D2B02 

5280 

STA $022B 

E86D AD09D2 

5290 

LDA $8209 

E870 8BFC02 

5300 

STA $02FC 

E873 A001 

5310 SYSVB7 LBY 11 

E875 A203 

5320 

LDX 13 

E877 B900B3 

5330 STLODP LDA 48300, Y 

E87A 4A 

5340 

LSR A 

E87B 4A 

5350 

LSR A 

E87C 4A 

5360 

LSR A 

E87B 4A 

5370 

LSR A 

E87E 987802 

5380 

STA $0278, X 

E881 CA 

5390 

DEX 

E882 B900B3 

5400 

LDA $D300,Y 

E885 290F 

5410 

AND #$0F 

E887 987802 

5420 

STA $0278, X 

E88A CA 

5430 

DEX 

E88B 88 

5440 

DEY 

E88C 10E9 

5450 

BPL STLOOP 

E88E A203 

5460 

LDX *3 

E890 8B10D0 

5470 STRL LDA $8010, X 

E893 988402 

5480 

STA $0284, X 

E896 BB00B2 

5490 

LDA $8200, X 

E899 987002 

5500 

STA $0270, X 

E89C B804B2 

5510 

LDA $8204, X 



PAGE 10 QSNEV601 


E89F 9D7402 

5520 

ST A *0274, X 

E8A2 CA 

5530 

DEX 

E8A3 10EB 

5540 

BPL STRL 

ESA5 8D06D2 

5550 

STA *D20B 

E8A8 A206 

5560 

LDX 16 

E8AA A003 

5570 

LDY 13 

E8AC B97802 

5580 

PTRLP LDA *0278, Y 

E8AF 4A 

5590 

LSR A 

E8B0 4A 

5600 

LSR A 

E8B1 4A 

5610 

LSR A 

E8B2 9D7DC2 

5620 

STA *027D,X 

E8B5 A900 

5630 

LDA tO 

E8B7 2A 

5640 

ROL A 

EBBS 9D7C02 

5650 

STA *027C,X 

E8BB CA 

5660 

DEX 

E8BC CA 

5670 

DEX 

E8BD 88 

5680 

DEY 

E8BE 10EC 

5690 

BPL PTRLP 

E8C0 6C2402 

5700 

JHP (*0224) 

=00E8 

5710 SV7H = SYSVB7/256 

=0073 

5720 SV7L = SYSVB7I255 

E8C3 A900 

5730 SYSVB6 LDA 10 

E8C5 8D2B02 

5740 

STA *0228 

E8C8 F0A9 

5750 

BED SYSVB7 

E8CA 6C2602 

5760 JTIHR1 JHP ($0226) 

E8CD 6C2802 

5770 JTIHR2 JHP ($0228) 

E8D0 BC1802 

5780 DCTIHR LDY 40218, X 

E8D3 D008 

5790 

BNE DCTIH1 

E8D5 BC1902 

5800 

LDY *0219, X 

E8D8 F010 

5810 

BED DCTXF 

E8DA DE1902 

5820 

DEC *0219, X 

E8DD BE 1802 

5830 

DCTIH1 DEC *0218, X 

E8E0 BOOB 

5840 

BNE DCTXF 

E8E2 BC1902 

5850 

LDY *0219, X 

E8E5 1)003 

5B60 

BNE DCTXF 

E8E7 A900 

5870 

LDA tO 

E8E9 60 

5B80 

RTS 

E8EA A9FF 

5890 DCTXF LDA #$FF 

E8EC 60 

5900 

RTS 

E8ED OA 

5910 SETVBL ASL A 

E8EE 8D2D02 

5920 

STA *022D 

E8F1 BA 

5930 

TXA 

EBF2 A205 

5940 

LDX 15 

E8F4 8D0AD4 

5950 

STA *D40A 

E8F7 CA 

5960 SETLOP DEX 

E8F8 DOFD 

5970 

BNE SETLOP 

E8FA AE2D02 

5980 

LDX *022D 

ESFD 9D1702 

5990 

STA *0217, X 

E900 98 

6000 

TYA 

E901 9D1602 

6010 

STA *0216, X 

E904 60 

6020 

RTS 

E905 68 

6030 XITVBL PLA 

E906 A8 

6040 

TAY 

E907 68 

6050 

PLA 

E90B AA 

6060 

TAX 

E909 68 

6070 

PLA 

E90A 40 

6080 

RTI 

E90B 66667E66 

6090 

.BYTE *66, *66, *7E, *66,0, 0, *7C 

E90F 00007C 



E912 4CEDE8 

6100 

JHP *EBED 

E915 4C25F1 

6110 0HNI1 JHP $F125 



PAGE 11 0SNEV601 


E918 EA 

6120 

NOP 

E919 4C9AE7 

6130 0HNI2 JMP PNHI1+1 

E91C 2C0FD4 

6140 

BIT $D40F 

E91F 1003 

6150 

BPL 0MNI3 

E921 6C0002 

6160 

JMP ($0200) 

E924 48 

6170 OWN I 3 PHA 

E925 AD00C0 

6180 

LDA $C000 

E928 C96B 

6190 

CUP #$68 

E92A DOED 

6200 

BNE 0NNI2 

E92C 4D00C0 

6210 

EOR $CQ00 

E92F D0E8 

6220 

BNE QHNI2 

E931 4CD7CF 

6230 

JHP ICFD7 

E934 EA 

6240 

NOP 

E935 ADOOCO 

6250 

LDA ICOOO 

E938 C968 

6260 

CMP #$68 

E93A D0D9 

6270 

BNE 0MNI1 

E93C 4D00C0 

6280 

EOR $C000 

E93F D0D4 

6290 

BNE 0MNI1 

E941 4CF5CF 

6300 

JMP $CFF5 

E944 A93C 

6310 SIOINT LDA #$3C 

E946 8D02D3 

6320 

STA $D302 

E949 A93C 

6330 

LDA #$3C 

E94B 8D03D3 

6340 

STA $D303 

E94E A903 

6350 

LDA #3 

E950 803202 

6360 

STA $0232 

E953 8541 

6370 

STA $41 

E955 8D0FD2 

6380 

STA $D20F 

E958 60 

6390 

RTS 

E959 BA 

6400 SIO 

TSX 

E95A 8E1803 

6410 

STX $0318 

E95D A901 

6420 

LDA #1 

E95F 8542 

6430 

STA $42 

E961 AD0003 

6440 

LDA $0300 

E964 C960 

6450 

CMP #$60 

E966 0003 

6460 

BNE NOTCST 

E96B 4C80EB 

6470 

JMP CASENT 

E96B A900 

6480 NOTCST LDA 10 

E96D 8D0F03 

6490 

STA $030F 

E970 A901 

6500 

LDA *1 

E972 8537 

6510 

STA $37 

E974 A90D 

6520 CONHND LDA !$0D 

E976 8536 

6530 

STA $36 

E978 A928 

6540 COMFRN LDA 1128 

E97A 800402 

6550 

STA $D204 

E97D A900 

6560 

LDA #0 

E97F 800602 

6570 

STA $D206 

E982 18 

6580 

CLC 

E9B3 AD0003 

6590 

LDA $0300 

E986 600103 

6600 

ADC $0301 

E989 69FF 

6610 

ADC #$FF 

E98B 8D3A02 

6620 

STA $023A 

E98E AD0203 

6630 

LDA $0302 

E991 8D3B02 

6640 

STA $023B 

E994 AD0A03 

6650 

LDA $030A 

E997 8D3C02 

6660 

STA $023C 

E99A AD0B03 

6670 

LDA $0308 

E99D 803002 

6680 

STA $023D 

E9A0 18 

6690 

CLC 

E9A1 A93A 

6700 

LDA *$3A 

E9A3 8532 

6710 

STA $32 

E9A5 6904 

6720 

ADC #4 


PAGE 12 0SNEV601 


E9A7 8534 

6730 

E9A9 A902 

6740 

E9AB 8533 

6750 

E9AD 8535 

6760 

E9AF A934 

6770 

E9B1 8D03D3 

6780 

E9B4 208AEC 

6790 

E9B7 AD3F02 

6800 

E9BA D003 

6810 

E9BC 98 

6820 

E9BD D007 

6830 

E9BF C636 

6840 

E9C1 10B5 

6850 

E9C3 4C06EA 

6860 

E9C6 AD0303 

6870 

E9C9 100C 

6880 

E9CB A90D 

6890 

E9CD B536 

6900 

E9CF 206AEB 

6910 

E9D2 20BAEC 

6920 

E9D5 F0E8 

6930 

E9D7 2075EC 

6940 

E9DA A900 

6950 

E9DC 8D3F02 

6960 

E9DF 209BEC 

6970 

E9E2 F012 

6980 

E9E4 2C0303 

6990 

E9E7 7007 

7000 

E9E9 AD3F02 

7010 

E9EC D018 

7020 

E9EE F01D 

7030 

E9F0 206AEB 

7040 

E9F3 20E0EA 

7050 

E9F6 AD3F02 

7060 

E9F9 F005 

7070 

E9FB ADI 903 

7080 

E9FE 8530 

7090 

EAOO A530 

7100 

EA02 C901 

7110 

EA04 F007 

7120 

EA06 C637 

7130 

EA08 3003 

7140 

EAOA 4C74E9 

7150 

EAOD 205FEC 

7160 

EA10 A900 

7170 

EA12 8542 

7180 

EA14 A430 

7190 

EA16 8C0303 

7200 

EA19 60 

7210 

EA1A A 900 

7220 

EA1C 8D3F02 

7230 

EA1F 18 

7240 

EA20 A93E 

7250 

EA22 8532 

7260 

EA24 6901 

7270 

EA26 8534 

7280 

EA28 A902 

7290 

EA2A 8533 

7300 

EA2C 8535 

7310 

EA2E A9FF 

7320 

EA30 853C 

7330 


STA $34 
LDA 12 
STA $33 
STA $35 
LDA *$34 
STA $D303 
JSR SENDIN 
IDA $023F 
BME BADCOH 
TYA 

BNE ACKREC 
BADCOH DEC $36 
BPL COHFRH 
JHP DERR1 
ACKREC LDA $0303 
BPL HATCQH 
LDA »$0D 
STA $36 
JSR LDPNTR 
JSR SENDIN 
BEQ BADCOH 
NATCOH JSR STTHOT 
LDA »0 
STA $023F 
JSR WAITER 
BEQ DERR 
BIT $0303 
BVS HODATA 
LDA $023F 
BNE DERR1 
BEQ RETURN 
HODATA JSR LDPNTR 
JSR RECEIV 
DERR LDA $023F 
BEQ NOTERR 
LDA $031? 

STA $30 

NOTERR LDA $30 
CHP 11 
BEQ RETURN 
DERR1 DEC $37 
BHI RETURN 
JHP COHHND 
RETURN JSR 5ENDDS 
LDA tO 
STA $42 
LDY $30 
STY $0303 
RTS 

WAIT LDA tO 
STA $023F 
CLC 

LDA t$3E 
STA $32 
ADC tl 
STA $34 
LDA t2 
STA $33 
STA $35 
LDA t$FF 
STA $3C 



PA6E 13 0SNEV601 


EA32 20EQEA 

7340 

JSR RECEIV 

EA35 AOFF 

7350 

LDY t$FF 

EA37 A530 

7360 

LDA $30 

EA39 C901 

7370 

CUP 11 

EA3B D019 

7380 

BNE NWOK 

EA3D AD3E02 

7390 WOK 

LDA $023E 

EA40 C941 

7400 

CHP $$41 

EA42 F021 

7410 

BEQ GOOD 

EA44 C943 

7420 

CHP #$43 

EA46 FOID 

7430 

BEQ GOOD 

EA48 C945 

7440 

CHP t$4S 

EA4A D006 

7450 

BNE NOTDER 

EA4C A990 

7460 

LDA #$90 

EA4E 8530 

7470 

STA $30 

EA50 D004 

7480 

BNE NWOK 

EA52 A988 

7490 NOTDER LOA #»8B 

EA54 8530 

7500 

STA $30 

EA56 A530 

7510 NWOK LOA $30 

EA58 C98A 

7520 

CHP »$8A 

EA5A F007 

7530 

BEQ BAD 

EA5C A9FF 

7540 

LDA #$FF 

EA5E BD3F02 

7550 

STA $023F 

EA61 D002 

7560 

BNE GOOD 

EA63 AOOO 

7570 BAD LDY 10 

EA65 A530 

7580 GOOD LDA $30 

EA67 8D1903 

7590 

STA $0319 

EA6A 60 

7600 

RTS 

EA6B A901 

7610 SEND LDA 11 

EA6D 8530 

7620 

STA $30 

EA6F 20F2EB 

7630 

JSR SENDEN 

EA72 AOOO 

7640 

LDY #0 

EA74 8431 

7650 

STY $31 

EA76 843B 

7660 

STY $3B 

EA78 843A 

7670 

STY $3A 

EA7A B132 

7680 

LDA ($32), V 

EA7C 8D0DD2 

7690 

STA $D20D 

EA7F 8531 

7700 

STA $31 

EA81 A511 

7710 NOTDON LDA $11 

EA83 D003 

7720 

BNE NTBRKO 

EA85 4CA0ED 

7730 

JHP BROKE 

EA88 A53A 

7740 NTBRKO LDA $3A 

EA8A F0F5 

7750 

BEQ NOTDON 

EA8C 205FEC 

7760 

JSR SENDDS 

EA8F 60 

7770 

RTS 

EA90 98 

7780 ISRODN TYA 

EA91 48 

7790 

PHA 

EA92 E632 

7800 

INC $32 

EA94 0002 

7810 

BNE NOWRPO 

EA96 E633 

7820 

INC $33 

EA98 A532 

7830 NQNRPO LDA $32 

EA9A C534 

7840 

CHP $34 

EA9C A533 

7850 

LDA $33 

EA9E E535 

7860 

SBC $35 

EAAO 90 1C 

7870 

BCC NOTEND 

EAA2 A53B 

7880 

LDA $3B 

EAA4 DOOB 

7890 

BNE RELONE 

EAA6 A531 

7900 

LDA $31 

EAA8 800002 

7910 

STA $D20D 

EAAB A9FF 

7920 

LDA #$FF 

EAAD 853B 

7930 

STA $3B 

EAAF 0009 

7940 

BNE CHKDON 



PAGE 14 0SNEV601 


EAB1 A510 

7950 RELONE LDA 410 

EAB3 0908 

7960 

ORA *8 

EABS 8510 

7970 

STA $10 

EAB7 8D0ED2 

7980 

STA $D20E 

EABA 68 

7990 CHKDON PLA 

EABB AB 

8000 

TAY 

EABC 68 

8010 

PLA 

EABD 40 

8020 

RTI 

EABE A000 

8030 NQTEND LDY 10 

EACO B132 

8040 

LDA ($32) , Y 

EAC2 8D0DD2 

8050 

STA $D20D 

EAC5 18 

8060 

CLC 

EAC6 6531 

8070 

ADC $31 

EAC8 6900 

8080 

ADC 10 

EACA 8531 

8090 

STA $31 

EACC 4CBAEA 

8100 

JHP CHKDON 

EACF A53B 

8110 ISRTD LDA $3B 

EAD1 FOOB 

8120 

BEQ FOOEY 

EAD3 853A 

8130 

STA $3A 

EAD5 A510 

8140 

LDA $10 

EAD7 29F7 

8150 

AND »$F7 

EAD9 8510 

8160 

STA $10 

EADB 8DOE02 

8170 

STA $D20E 

EADE 68 

8180 FDOEY PLA 

EADF 40 

8190 

RTI 

EAEO A900 

8200 RECEIV LDA 10 

EAE2 ACOF03 

8210 

LDY $030F 

EAE5 D002 

8220 

BNE NOCLR 

EAE7 8531 

8230 

STA $31 

EAE9 8538 

8240 NOCLR STA $38 

EAEB 8539 

8250 

STA $39 

EAED A901 

8260 

LDA 11 

EAEF 8530 

8270 

STA $30 

EAF1 201 BEC 

8280 

JSR RECVEN 

EAF4 A93C 

8290 

LDA t$3C 

EAF6 8D03D3 

8300 

STA $D303 

EAF9 AS 11 

8310 CHKTIH LDA $11 

EAFB D003 

8320 

BNE NTBRK1 

EAFD 4CA0E0 

8330 

JHP BROKE 

EBOO AD1703 

8340 NTBRK1 LDA $0317 

EB03 F005 

8350 

BEQ TOUT 

EB05 A539 

8360 

LDA $39 

EB07 FOFO 

8370 

BEQ CHKTIH 

EB09 60 

8380 60BACK RTS 

EBOA A98A 

8390 TOUT LDA t$8A 

EBOC 8530 

8400 

STA $30 

EBOE 60 

8410 RRETRN RTS 

EBOF 98 

8420 ISRSIR TYA 

EB10 48 

8430 

PHA 

EB11 AD0FD2 

8440 

LDA $D20F 

EB14 8D0AD2 

8450 

STA $D20A 

EB17 3004 

8460 

BHI NTFRAH 

EB19 A08C 

8470 

LDY #$8C 

EB1B 8430 

8480 

STY $30 

EB1D 2920 

8490 NTFRAH AND *$20 

EB1F D004 

8500 

BNE NTOVRN 

EB21 A08E 

8510 

LDY *$8E 

EB23 8430 

8520 

STY $30 

EB25 A538 

8530 NTOVRN LDA $38 

EB27 F013 

8540 

BEQ NOTYET 

EB29 AD0DD2 

8550 

LDA $D20D 



PA6E 15 0SNEV6Q1 


EB2C C531 

8560 

CHP *31 

EB2E F004 

8570 

BEQ SRETRN 

EB30 A08F 

8580 

LDY l$8F 

EB32 8430 

8590 

STY *30 

EB34 A9FF 

8600 SRETRN LDA #*FF 

EB36 8539 

8610 

STA *39 

EB38 68 

8620 SUSUAL PLA 

EB39 A8 

8630 

TAY 

EB3A 68 

8640 

PLA 

EB3B 40 

8650 

RTI 

EB3C AD0D02 

8660 NOTYET LDA *D20D 

EB3F A000 

8670 

LDY 10 

EB41 9132 

8680 

STA (*32),Y 

EB43 18 

8690 

CLC 

EB44 6531 

8700 

ADC *31 

EB46 6900 

8710 

ADC «0 

EB48 8531 

8720 

STA *31 

EB4A E632 

8730 

INC *32 

EB4C D002 

8740 

BNE NTNRP1 

EB4E E633 

8750 

INC *33 

EB50 A532 

8760 NTHRPt LDA *32 

EB52 C534 

8770 

CMP *34 

EB54 A533 

8780 

LDA *33 

EB56 E535 

8790 

SBC *35 

EB58 90DE 

8800 

BCC SUSUAL 

EB5A A53C 

8810 

LDA *3C 

EB5C F006 

8820 

BEQ GOON 

EB5E A900 

8830 

LDA tO 

EB60 853C 

8840 

STA *3C 

EB62 FODO 

8850 

BEQ SRETRN 

EB64 A9FF 

8860 GOON LDA «*FF 

EB66 8538 

8870 

STA *38 

EB68 DOCE 

8880 

BNE SUSUAL 

EB6A 18 

8890 LDPNTR CLC 

EB6B A00403 

8900 

LDA *0304 

EB6E 8532 

8910 

STA *32 

EB70 6D0803 

8920 

ADC *0308 

EB73 8534 

8930 

STA *34 

EB75 AD0503 

8940 

LDA *0305 

EB78 8533 

8950 

STA *33 

EB7A 6D0903 

8960 

ADC *0309 

EB7D 8535 

8970 

STA *35 

EB7F 60 

8980 

RTS 

EB80 AD0303 

8990 CASENT LDA *0303 

EB83 102E 

9000 

BPL CASRED 

EB85 20A3EC 

9010 

JSR COMPUT 

EB88 4C8FEB 

9020 

JHP NEW1 

EB8B 04 

9030 

.BYTE 4 

EB8C 8D06D2 

9040 

STA *0206 

EB8F 20F2EB 

9050 NEH1 JSR SENDEN 

EB92 AOOF 

9060 

LDY l*0F 

EB94 AD0B03 

9070 

LDA *Q30B 

EB97 3002 

9080 

BNI SRTIRO 

EB99 A0B4 

9090 

LDY »*B4 

EB9B A200 

9100 SRTIRO LDX 10 

EB9D 20B9ED 

9110 

JSR SETVBX 

EBAO A934 

9120 

LDA 1*34 

EBA2 8D02D3 

9130 

STA *0302 

EBA5 AD1703 

9140 TIHIT LDA *0317 

EBA8 DOFB 

9150 

BNE UNIT 

EBAA 206AEB 

9160 

JSR LDPNTR 



PAGE 16 0SNEV601 


EBAD 206BEA 

9170 

JSR SEND 

EBBO 4CDFEB 

9180 

JHP CRETRN 

EBB3 A9FF 

9190 CASRED LDA *$FF 

EBBS 8D0F03 

9200 

STA $030F 

EBB8 AOOA 

9210 

LDY #$0A 

EBBA AD0B03 

9220 

LDA $0306 

EBBD 3002 

9230 

BHI SRTIR1 

EBBF A07B 

9240 

LDY *$78 

EBC1 A200 

9250 SRTIR1 LDX #0 

EBC3 20B9ED 

9260 

JSR SETVBX 

EBC6 A934 

9270 

LDA *$34 

EBC8 8D02C3 

9280 

STA $D302 

EBCB AD 1703 

9290 TIHIT1 LDA $0317 

EBCE DOFB 

9300 

BNE TIHIT1 

EBDO 206AEB 

9310 

JSR LDPNTR 

EBD3 2075EC 

9320 

JSR STTHOT 

EBD6 20B9ED 

9330 

JSR SETVBX 

EBD9 2010ED 

9340 

JSR BE6IN 

EBDC 20E0EA 

9350 

JSR RECEIV 

EBDF AD0B03 

9360 CRETRN LDA 4030B 

EBE2 3005 

9370 

BHI SRTIR2 

EBE4 A93C 

93B0 

LDA i$3C 

EBE6 8D02D3 

9390 

STA $D302 

EBE9 4C0DEA 

9400 SRT1R2 JHP RETURN 

EBEC A900 

9410 JTIHER LDA 10 

EBEE 8D1703 

9420 

STA $0317 

EBF1 60 

9430 

RTS 

EBF2 A907 

9440 SENDEN LDA 17 

EBF4 2D3202 

9450 

AND $0232 

EBF7 0920 

9460 

ORA t$20 

EBF9 AC0003 

9470 

LDY $0300 

EBFC C060 

9480 

CPY *$60 

EBFE DOOC 

9490 

BNE NOTCAS 

ECOO 0908 

9500 

ORA *8 

EC02 A007 

9510 

LDY *7 

EC04 8C02D2 

9520 

STY $D202 

EC07 A005 

9530 

LDY *5 

EC09 8C00D2 

9540 

STY $D200 

ECOC 8D3202 

9550 NOTCAS STA $0232 

ECOF 8D0FD2 

9560 

STA $D20F 

EC 12 A9C7 

9570 

LDA *$C7 

EC14 2510 

9580 

AND $10 

EC16 0910 

9590 

ORA *$10 

EC18 4C31EC 

9600 

JHP CONTIN 

EC IB A907 

9610 RECVEN LDA 17 

EC1D 2D3202 

9620 

AND $0232 

EC20 0910 

9630 

ORA *$10 

EC22 8D3202 

9640 

STA $0232 

EC25 8D0FD2 

9650 

STA $D20F 

EC2B 8D0AD2 

9660 

STA $C20A 

EC2B A9C7 

9670 

LDA »$C7 

EC2D 2510 

9680 

AND $10 

EC2F 0920 

9690 

ORA *$20 

EC31 8510 

9700 CDNTIN STA $10 

EC33 8D0ED2 

9710 

STA $02OE 

EC36 A928 

9720 

LDA *$28 

EC38 8D08D2 

9730 

STA $0208 

EC3B A206 

9740 

LDX *6 

EC3D A9A8 

9750 

LDA *$A8 

EC3F A441 

9760 

LDY $41 

EC41 D002 

9770 

BNE N0ISE1 


PA6E 17 0SNEV601 


EC43 A9A0 

9780 

LDA MAO 

EC45 9D01D2 

9790 N0ISE1 STA 40201, X 

EC48 CA 

9800 

DEX 

EC49 CA 

9810 

DEX 

EC4A 10F9 

9820 

BPL N0ISE1 

EC4C A9A0 

9830 

LDA MAO 

EC4E 8D05D2 

9840 

STA *D205 

EC51 AC0003 

9850 

LDY $0300 

EC54 C060 

9860 

CPY 1*60 

EC56 F006 

9870 

BEQ CAS31 

EC58 8D01D2 

9880 

STA $D201 

EC5B 8D03D2 

9890 

STA $D203 

EC5E 60 

9900 CAS31 RTS 

EC5F EA 

9910 SENDDS NOP 

EC60 A9C7 

9920 RECVDS LOA #$C7 

EC62 2510 

9930 

AND $10 

EC64 8510 

9940 

STA $10 

EC66 8D0ED2 

9950 

STA *D20E 

EC69 A206 

9960 

LDX 16 

EC6B A900 

9970 

LDA 10 

EC6D 9D01D2 

9980 ZERIT STA $0201, X 

EC70 CA 

9990 

DEX 

EC71 CA 

010000 

DEX 

EC72 10F9 

010010 

BPL ZERIT 

EC74 60 

010020 

RTS 

EC75 AD0603 

010030 STTHOT LOA *0306 

EC78 6A 

010040 

ROR A 

EC79 6A 

010050 

ROR A 

EC7A A8 

010060 

TAY 

EC7B 293F 

010070 

AND M3F 

EC7D AA 

010080 

TAX 

EC7E 98 

010090 

TYA 

EC7F 6A 

010100 

ROR A 

EC80 29C0 

010110 

AND MCO 

EC82 A8 

010120 

TAY 

EC83 60 

010130 

RTS 

EC84 OFEB 

010140 

INTTBL .WORD ISRSIR 

EC86 90EA 

010150 

.WORD ISRODN 

EC88 CFEA 

010160 

.WORD ISRTD 

EC8A A201 

010170 SENDIN LDX »1 

EC8C AOFF 

010180 DELAYO LDY t*FF 

ECBE 88 

010190 DELAY1 BEY 

EC8F DOFD 

010200 

BNE DEL AY 1 

EC91 CA 

010210 

DEX 

EC92 D0F8 

010220 

BNE DELAYO 

EC94 206BEA 

010230 

JSR SEND 

EC97 A002 

010240 

LDY 12 

EC99 A200 

010250 

LDX #0 

EC9B 20B9ED 

010260 WAITER JSR SETVBX 

EC9E 201AEA 

010270 

JSR WAIT 

ECA1 98 

010280 

TYA 

ECA2 60 

010290 

RTS 

ECA3 ADEE02 

010300 COMPUT IDA *Q2EE 

ECA6 8D04D2 

010310 

STA *D204 

ECA9 ADEF02 

010320 

LDA $02EF 

ECAC 8D06D2 

010330 

STA *D206 

ECAF 60 

010340 

RTS 

ECBO A 908 

010350 TEST1 LDA IB 

ECB2 2C0FD2 

010360 

BIT *D20F 

ECB5 F003 

010370 

BEQ TRETRN 

ECB7 6CFEBF 

010380 

JHP (*BFFE) 


PAGE 18 0SNEV601 


ECBA 60 
ECB8 48 
ECBC A908 
ECBE 2C0FD2 
ECC1 F009 
ECC3 68 
ECC4 2901 
ECC6 F001 
ECC8 60 
ECC9 4CFFF1 
ECCC 68 
ECCD 20CFF2 
ECDO A900 
ECD2 8D4402 
ECD5 6C0A00 
ECD8 A908 
ECDA 2C0FD2 
ECDD F0E9 
ECDF 4C3CF2 
ECE2 A908 
ECE4 2C0FD2 
ECE7 FODF 
ECE9 4C39F2 
ECEC 00 
ECED 8C0E03 
ECFO 38 
ECF1 E907 
ECF3 1003 
ECF5 CE0E03 
ECF8 18 
ECF9 7DD0ED 
ECFC AB 
ECFD AD0E03 
EDOO 7DD1ED 
ED03 60 
ED04 C97C 
ED06 3004 
ED08 3B 
ED09 E97C 
EDOB 60 
EDOC 18 
EDOB 6907 
EDOF 60 
ED10 A511 
ED 12 D003 
ED14 4CA0ED 
ED17 78 
ED18 AD1703 
ED IB D002 
ED1D F025 
ED IF AD0FD2 
ED22 2910 
ED24 DOEA 
ED26 BD1603 
ED29 AE0BD4 
ED2C A414 
ED2E 8E0C03 
ED31 8C0D03 
ED34 A201 
ED36 8E1503 
ED39 AOOA 


010390 TRETRN RTS 
010400 TEST2 PHA 
010410 LDA #8 
010420 BIT $D20F 
010430 BEQ DOS 
010440 PLA 
010450 AND tl 
010460 BEO NB0T1 
010470 TRTRN1 RTS 
010480 NB0T1 JHP 4F1FF 
010490 DOS PLA 
010500 JSR $F2CF 
010510 LDA *0 
010520 STA $0244 
010530 JHP f$OA) 

010540 TEST3 LDA #8 
010550 BIT $D20F 
010560 BEQ TRTRN1 
010570 JHP 4F23C 
010580 TEST4 LDA 18 
010590 BIT $D20F 
010600 BEQ TRTRN1 
010610 JHP IF239 
010620 .BYTE 0 

010630 STY $030E ; JUNK CODE FROH HERE 

010640 SEC 

010650 SBC 17 

010660 BPL PLUS 

010670 DEC I030E 

010680 PLUS CLC 

010690 ADC POKTftB, X 

010700 TAY 

010710 LDA 4030E 

010720 ADC POKTAB+1 , X 

010730 RTS 

010740 ADJUST CHP l$7C 

010750 BHI ADJ1 

010760 SEC 

010770 SBC l$7C 

010780 RTS 

010790 ADJ1 CLC 

010800 ADC #7 

010810 RTS ; TO HERE. NOT USED BY OSN 

010820 BEGIN LDA $11 

01 0830 BNE NTBRK2 

010840 JHP BROKE 

010850 NTBRK2 SEI 

010860 LDA $0317 

010870 BNE 0KTIH1 

010880 BEQ T0UT1 

010890 0KTIH1 LDA $D20F 

010900 AND l$10 

010910 BNE BEGIN 

010920 STA $0316 

010930 LDX $D40B 

010940 LDY $14 

010950 STX $030C 

010960 STY $0300 

010970 LDX #1 

010980 STX $0315 

010990 LDY 110 


PA6E 19 0SNEV601 


ED3G A511 

011000 COUNT LDA $11 

ED3D F061 

011010 

BEQ BROKE 

ED3F AD 1703 

011020 

LDA $0317 

ED42 D004 

011030 

BNE OKTIHR 

ED44 58 

011040 T0UT1 CU 

ED45 4C0AEB 

011050 

JHP TOUT 

ED48 AD0FD2 

011060 OKTIHR LDA 4D20F 

ED4B 2910 

011070 

AND *$10 

ED4D CD 1603 

011080 

CHP $0316 

ED50 F0E9 

011090 

BEQ COUNT 

ED52 8D1603 

011100 

STA $0316 

ED55 B8 

011110 

DEY 

ED56 D0E3 

011120 

BNE COUNT 

ED58 CE1503 

011130 

DEC $0315 

ED5B 3012 

011140 

BHI 60READ 

ED5D AD0BD4 

011150 

LDA $D40B 

ED60 A414 

011160 

LDY $14 

ED62 20A3EC 

011170 

JSR COHPUT 

ED65 EA 

011180 

NOP 

ED66 EA 

011190 

NOP 

ED67 EA 

011200 

NOP 

ED68 EA 

011210 

NOP 

ED69 EA 

011220 

NOP 

ED6A EA 

011230 

NOP 

ED6B A009 

011240 

LDY #9 

ED6D DOCC 

011250 

BNE COUNT 

ED6F ADEE02 

011260 80READ LDA 402EE 

ED72 8D04D2 

011270 

STA $D204 

ED75 ADEF02 

011280 

LDA $02EF 

ED78 8D06D2 

011290 

STA $D206 

ED7B A900 

011300 

LDA «0 

ED7D 8D0FD2 

011310 

STA $D20F 

ED80 AD3202 

011320 

LDA $0232 

ED83 8D0FD2 

011330 

STA $D20F 

ED86 A955 

011340 

LDA #$55 

ED88 9132 

011350 

STA ($32), Y 

ED8A C8 

011360 

INY 

ED8B 9132 

011370 

STA !$32),Y 

ED8D A9AA 

011380 

LDA t$AA 

ED8F 8531 

011390 

STA $31 

ED91 18 

011400 

CLC 

ED92 A532 

011410 

LDA $32 

ED94 6902 

011420 

ADC 12 

ED96 8532 

011430 

STA $32 

ED98 A533 

011440 

LDA $33 

ED9A 6900 

011450 

ADC #0 

ED9C 8533 

011460 

STA $33 

ED9E 58 

011470 

CL I 

ED9F 60 

011480 

RTS 

EDAO 205FEC 

011490 

BROKE JSR SENDDS 

EDA3 A93C 

011500 

LDA «$3C 

EDA5 8D02D3 

011510 

STA $D302 

EDA8 8D03D3 

011520 

STA $D303 

EDAB A980 

011530 

LDA *$80 

EDAD 8530 

011540 

STA $30 

EDAF AE1803 

011550 

LDX $0318 

EDB2 9A 

011560 

TXS 

EDB3 C611 

011570 

DEC $11 

EDB5 58 

011580 

CL I 

EDB6 4C0DEA 

011590 

JHP RETURN 

EDB9 A9EC 

011600 SETVBX LDA f$EC 



PAGE 20 0SNEV601 


EDBB 8D2602 
EDBE A9EB 
EDCO 8D2702 
EDC3 A901 
EDC5 78 
EDC6 205CE4 
EDC9 A901 
EDCB 8D1703 
EOCE 58 
EDCF 60 
EDDO E803 
EDD2 4304 
EDD4 9E04 
EDD6 F904 
EDD8 5405 
EDDA AF05 
EDDC 0A06 
EDDE 6506 
EDEO C006 
EDE2 1A07 
EDE4 7507 
EDE6 D007 
EDE8 2485 
EDEA A9A0 
EDEC 8D4602 
EDEF 60 
EDFO A931 
EDF2 8D0003 
EDF5 AD4602 
EDFB AE0203 
EDFB E021 
EDFB F002 
EDFF A907 
EE01 8D0603 
EE04 A240 
EE06 A080 
EE08 AD0203 
EEOB C957 
EEOO 0002 
EEOF A2B0 
EE 11 C953 
EE13 DOOC 
EE15 A9EA 
EE 17 800403 
EE1A A902 
EE1C 800503 
EE IF A004 
EE21 8E0303 
EE24 8C0803 
EE27 A900 
EE29 800903 
EE2C 2059E4 
EE2F 1001 
EE31 60 
EE32 AD0203 
EE35 C953 
EE37 DOOA 
EE39 206DEE 
EE3C A002 
EE3E B115 
EE40 804602 


011610 STA *0226 

011620 IDA #$EB 

011630 STA *0227 

011640 LDA »1 

011650 SEI 

011660 JSR *£45C 

011670 LDA »t 

011680 STA *0317 

011690 CLI 

011700 RTS 

011720 POKTAB .WORD *03E8 ;NQT USED 

011730 .BORD *0443 

011740 .WORD *049E 

011750 .BORO *04F9 

011760 .BORO *0554 

011770 .BORO *05AF 

011780 .BORO *060A 

011790 .BORO *0665 

011800 .BORO tOaCO 

011810 .BORO *071 A 

011820 .BORD *0775 

011830 .BORO *0700 

011840 .BYTE *24, *85 

011850 DINIT LDA »*A0 

011860 STA *0246 

011870 RTS 

011880 DSKIF LDA **31 

011890 STA *0300 

011900 LDA *0246 

011910 LDX *0302 

011920 CPI 1*2! 

011930 BEQ PUTDTO 

011940 LDA *7 

011950 PUTDTO STA *0306 
011960 LDX 1*40 

011970 LDY 1*80 

011980 LDA *0302 

011990 CHP 1*57 

012000 BNE CKSTC 

012010 LDX **80 

012020 CKSTC CMP **53 
012030 BNE PUTCNT 

012040 LDA **EA 

012050 STA *0304 

012060 LDA *2 

012070 STA *0305 

012080 LDY *4 

012090 PUTCNT STX *0303 


012100 

STY *0308 

012110 

LDA #0 

012120 

STA *0309 

012130 

JSR SIOV 

012140 

BPL GOODST 

012150 

RTS 

012160 

600DST LDA *0 

012170 

CMP **53 

012180 

BNE PUTBC 

012190 

JSR PUTADR 

012200 

LDY *2 

012210 

LDA (*!5),Y 

012220 

STA *0246 


I 



PA6E 21 0SNEV601 


EE43 AD0203 

012230 PUT8C LDA *0302 

EE46 C921 

012240 

CMP #*21 

EE48 D01F 

012250 

BNE ENDDIF 

EE4A 206DEE 

012260 FHTD JSR PUTADR 

EE4D AOFE 

012270 

LDY t*FE 

EE4F C8 

012280 TWICE INY 

EE50 C8 

012290 

INY 

EE51 B115 

012300 RDBAD LDA (*15),Y 

EE53 C9FF 

012310 

CMP #*FF 

EE55 D0F8 

012320 

BNE TWICE 

EE57 CB 

012330 

INY 

EE58 BUS 

012340 

LDA (*15),Y 

EE5A C8 

012350 

INY 

EE5B C9FF 

012360 

CNF' #*FF 

EE5D D0F2 

012370 

BNE RDBAD 

EE5F 88 

012380 

DEY 

EE60 88 

012390 

DEY 

EE61 BC0803 

012400 

STY *0308 

EE64 A900 

012410 

LDA #0 

EE66 8D0903 

012420 

STA *0309 

EE69 AC0303 

012430 ENDDIF LDY *0303 

EE6C 60 

012440 

RTS 

EE6D AD0403 

012450 PUTADR LDA *0304 

EE70 8515 

012460 

STA *15 

EE72 AD0503 

012470 

LDA *0305 

EE75 8516 

012480 

STA *16 

EE77 60 

012490 

RTS 

EE78 A91E 

012500 

PHINIT LDA 130 

EE7A 85 1C 

012510 

STA *1C 

EE7C 60 

012520 

RTS 

EE7D EA02 

012530 PHSTLO .WORD *02EA 

EE7F C003 

012540 PHCHLO .WORD *03C0 

EE81 A904 

012550 PHSTAT LDA #4 

EE83 85 IE 

012560 

STA *1E 

EE85 AE7DEE 

012570 

LDX PHSTLO 

EEB8 AC7EEE 

012580 

LDY PHSTLO+1 

EE8B A953 

012590 

LDA «*53 

EE8D 8D0203 

012600 

STA *0302 

EE90 8D0A03 

012610 

STA *030A 

EE93 20E6EE 

012620 

JSR SETDCB 

EE96 2059E4 

012630 

JSR SIOV 

EE99 3003 

012640 

BNI BADST 

EE9B 2014EF 

012650 

JSR PHPUT 

EE9E 60 

012660 BADST RTS 

EE9F 2081 EE 

012670 PHOPEN JSR PHSTAT 

EEA2 A900 

012680 

LDA «0 

EEA4 85 ID 

012690 

STA *1D 

EEA6 60 

012700 

RTS 

EEA7 85 IF 

012710 PHWRIT STA *1F 

EEA9 201AEF 

012720 

JSR PRHODE 

EE AC A61D 

012730 

LDX tlD 

EEAE A51F 

012740 

LDA *1F 

EEBO 9DC003 

012750 

STA *03C0,X 

EEB3 E8 

012760 

INX 

EEB4 E41E 

012770 

CPX *1E 

EEB6 F013 

012780 

BEQ BUFFUL 

EEB8 86 ID 

012790 

STX tlD 

EEBA C99B 

012800 

CMP #*9B 

EEBC F003 

012810 

BEQ BLFILL 

EEBE A001 

012820 

LDY #1 

EECO 60 

012830 

RTS 


PA6E 22 QSNEV601 


EEC1 A920 

012840 BLFILL LDA #$20 

EEC3 9DC003 

012850 FILLBF STA I03C0.X 

EEC6 E8 

012860 

INX 

EEC7 E41E 

012870 

CPX $1E 

EEC9 D0F8 

012880 

BNE FILLBF 

EECB A900 

012890 BUFFUL LDA »0 

EECD 85 ID 

012900 

STA $1D 

EECF AE7FEE 

012910 

LDX PHCHLO 

EED2 AC80EE 

012920 

LDY PHCHLO+t 

EED5 20E6EE 

012930 

JSR SETDCB 

EED8 2059E4 

012940 

JSR SIOV 

EEDB £0 

012950 

RTS 

EEDC 201AEF 

012960 PHCLQS JSR PftMODE 

EEDF A61D 

012970 

LDX $1D 

EEE1 DODE 

012980 

BNE BLFILL 

EEE3 A001 

012990 

LDY #1 

EEE5 60 

013000 

RTS 

EEE6 8E0403 

013010 SETDCB STX $0304 

EEE9 8C0503 

013020 

STY $0305 

EEEC A940 

013030 

LDA #$40 

EEEE 8D0003 

013040 

STA $0300 

EEF1 A901 

013050 

LDA #1 

EEF3 8D0103 

013060 

STA $0301 

EEF6 A980 

013070 

LDA #$80 

EEF8 AE0203 

013080 

LDX $0302 

EEFB E053 

013090 

CPX #$53 

EEFD D002 

013100 

BNE PSIOC 

EEFF A940 

013110 

LDA #$40 

EF01 8D0303 

013120 PSIOC STA $0303 

EF04 A5!E 

013130 

LDA $1E 

EF06 8D0803 

013140 

STA $0308 

EF09 A900 

013150 

LDA *0 

EFOB 8D0903 

013160 

STA $0309 

EFOE A51C 

013170 

LDA $1C 

EF10 8D0603 

013180 

STA $0306 

EF13 60 

013190 

RTS 

EF14 ADEC02 

013200 PHPUT LDA $02EC 

EF17 B51C 

013210 

STA $1C 

EF19 60 

013220 

RTS 

EF1A A057 

013230 PRHQDE LDY #$57 

EF1C A52B 

013240 

LDA $28 

EF1E C94E 

013250 CMODE CHP l$4E 

EF20 D004 

013260 

BNE CDUBL 

EF22 A228 

013270 

LDX *$28 

EF24 DOOE 

013280 

BNE SETBSZ 

EF26 C944 

013290 CDUBL CHP t$44 

EF28 D004 

013300 

BNE CSIDE 

EF2A A2I4 

013310 

LDX #$14 

EF2C D006 

013320 

BNE SETBSZ 

EF2E C953 

013330 CSIDE CHP l$53 

EF30 DOOB 

013340 

BNE 60ERR 

EF32 A21D 

013350 

LDX #$1D 

EF34 86 IE 

013360 SETBSZ STX $1E 

EF36 8C0203 

013370 

STY $0302 

EF39 8D0A03 

013380 

STA $030A 

EF3C 60 

013390 

RTS 

EF3D A94E 

013400 GQERR LDA »$4E 

EF3F DODD 

013410 

BNE CHODE 

EF41 A9CC 

013420 INIT LDA #$CC 

EF43 BDEE02 

013430 

STA $02EE 

EF46 A905 

013440 

LDA *5 


PA6E 23 0SNEV601 


EF48 8DEF02 

013450 

STA 402EF 

EF4B 60 

013460 SPECIA RTS 

EF4C A528 

013470 OPENC IDA *2B 

EF4E 853E 

013480 

STA 43E 

EF50 A52A 

013490 

LDA 42A 

EF52 290C 

013500 

AND #40C 

EF54 C904 

013510 

CUP 14 

EF56 F005 

013520 

BED OPINP 

EF58 C908 

013530 

CMP 18 

EF5A F039 

013540 

BEQ OPOUT 

EF5C 60 

013550 

RTS 

EF5D A900 

013560 

OPINP LDA #0 

EF5F 8D8902 

013570 

STA 40289 

EF62 B53F 

013580 

STA 43F 

EF64 A901 

013590 SFH LDA #1 

EF66 2058FO 

013600 

JSR 4F058 ;B 

EF69 3024 

013610 

BMI OPNRTN 

EF6B A934 

013620 

LDA 1434 

EF6D 8D02D3 

013630 

STA 4D302 

EF70 A040 

013640 

LDY #440 

EF72 A202 

013650 

LDX *2 

EF74 A903 

013660 

LDA 13 

EF76 8D2A02 

013670 

STA 4022A 

EF79 205CE4 

013680 

JSR SETVBV 

EF7C AD2A02 

013690 HAITTH LDA 4022A 

EF7F DOFB 

013700 

BNE WftITTM 

EF81 A980 

013710 

LDA 1480 

EF83 853D 

013720 

STA 43D 

EF85 8D8A02 

013730 

STA 4028A 

EF88 4CD3EF 

013740 

JNP OPOK 

EF8B A080 

013750 PBRK LDY #480 

EF8D C611 

013760 

DEC 411 

EF8F A900 

013770 GPNRTN LDA #0 

EF91 8D8902 

013780 

STA 40289 

EF94 60 

013790 

RTS 

EF95 A980 

013800 OPOUT LDA 1480 

EF97 SD8902 

013810 

STA 40289 

EF9A A902 

013820 

LDA «2 

EF9C 2058F0 

013830 

JSR 4F058 

EF9F 30EE 

013840 

BMI OPNRTN 

EFA1 20A3EC 

013850 

JSR COMPUT 

EFA4 4CABEF 

013860 

JNP EFAB 

EFA7 04 

013870 

.BYTE 4 

EFA8 8D06D2 

013880 

STA 4D206 

EFAB A960 

013890 EFAB LDA *460 

EFAD 8D0003 

013900 

STA 40300 

EFBO 2068E4 

013910 

JSR SENDEV 

EFB3 A934 

013920 

LDA #434 

EFB5 8D02D3 

013930 

STA 4D302 

EFB8 A903 

013940 

LDA #3 

EFBA A202 

013950 

LDX #2 

EFBC A080 

013960 

LDY 1480 

EFBE 205CE4 

013970 

JSR SETVBV 

EFC1 A9FF 

013980 

LDA #4FF 

EFC3 8D2A02 

013990 

STA 4022A 

EFC6 A511 

014000 MDLR LDA 411 

EFC8 FOCI 

014010 

BE8 PBRK 

EFCA AD2A02 

014020 

LDA 4022A 

EFCD D0F7 

014030 

BNE MLR 

EFCF A900 

014040 

LDA #0 

EFD1 853D 

014050 

STA 43D 



PAGE 24 0SNEV601 


EFD3 A001 

014060 OPOK LDY li 

EFD5 60 

014070 

RTS 

EFD6 A53F 

014080 6BYTE LDA $3F 

EFD8 3033 

014090 

BN I ISEOF 

EFDA A63D 

014100 

LDX $3D 

EFDC EC8A02 

014110 

CPX <02BA 

EFDF F008 

014120 

BE8 RBLOK 

EFE1 BD0004 

014130 

LDA <0400, X 

EFE4 E63D 

014140 

INC <3D 

EFE6 A001 

014150 

LDY «1 

EFE8 60 

014160 5BX RTS 

EFE9 A952 

014170 RBLOK LDA §<52 

EFEB 2095F0 

014180 

JSR SIOSB 

EFEE 98 

014190 

TYA 

EFEF 30F7 

014200 

BN I GBX 

EFF1 A900 

014210 

LDA §0 

EFF3 853D 

014220 

STA f 3D 

EFF5 A280 

014230 

LDX ><80 

EFF7 ADFF03 

014240 

LDA <03FF 

EFFA C9FE 

014250 

CMP t<FE 

EFFC FOOD 

014260 

BE8 ATEOF 

EFFE C9FA 

014270 

CMP #<FA 

FOOO D003 

014280 

BNE NLR 

F002 AE7F04 

014290 

LDX <047F 

F005 8E8A02 

014300 NLR STX <028A 

F008 4CD6EF 

014310 

JMP GBYTE 

FOOB C63F 

014320 ATEOF DEC <3F 

FOOD A088 

014330 ISEOF LDY 1188 

FOOF 60 

014340 

RTS 


PAGE 25 QSNEV601 
SYMBOLS 


E9C6 ACKREC 

EDOC ADJ1 

ED04 ADJUST 

E6FE ADRTAB 

FOOB ATEOF 

EA63 BAD 

E9BF BADCOM 

EE9E BADST 

EDIO BEGIN 

EEC1 BLFILL 

E754 BRKKY2 

EDAO BROKE 

EECB BUFFUL 

EC5E CAS31 

EB80 CASENT 

E440 CASHND 

EBB3 CASRED 

EF26 CDUBL 

EABA CHKDON 

EAF9 CHKTIH 

E53F CICL02 

E533 CICLOS 

E4DI CIERR1 

E6B0 CIERR2 

E50F CIERR3 

E511 CIERR4 

E693 Cl JUMP 

E4C4 CIO 

E4A8 CIOI1 

E4A& CIOINT 

E509 Cl OPEN 

E569 CIREAD 

E62B CIRT3 

E61B CIRTN1 

E61D CIRTN2 

E559 CIST1 

E54E CISTSP 

E5C9 CIWRIT 

EE11 CKSTC 

EF1E CMODE 

EGFi CMPTAB 

E647 COMi 

E662 COM2 

E63D COMENT 

E978 COHFRH 

E974 COHHND 

ECA3 COMPUT 

E&C9 COMTAB 

EC31 CONTIN 

ED3B COUNT 

EBDF CRETRN 

EF2E CSIDE 

E8DD DCTIH1 

EBOO DCTIMR 

E8EA DCTXF 

E66D DECBF1 

E663 DECBFL 

EC8C DELAYO 

EC8E DELAY I 

E9F& DERR 

EA06 DERR1 

E6A6 DEVS1 

E6B5 DEVS2 

E6C5 DEVS3 

E6CB DEVS4 

E69E DEVSRC 

EDEA DINIT 

E410 DISPLA 

ECCC DOS 

EDFO DSKIF 

E400 EDITOR 

EFAB EFAB 

EE69 ENDDIF 

=E4C0 ERRTN 

=00E4 ERRTNH 

=OOCO ERRTNL 

EEC3 FILLBF 

EE4A FMTD 

EADE FOOEY 

EFE8 6BX 

EFD6 GBYTE 

EB09 GOBACK 

EF3D 60ERR 

E689 GOHAND 

EA65 GOOD 

EE32 GOODST 

EB64 GOON 

ED6F GOREAD 

E6D5 IHINIT 

E676 INCBFi 

E670 INCBFP 

EF41 INIT 

EC84 INTTBL 

E4D6 IOC1 

E4DB I0C1A 

E4F3 I0C2 

E514 I0C6 

E519 IOC7 

FOOD ISEOF 

EA90 ISRODN 

EBOF ISRSIR 

EACF ISRTD 

E735 JMPP 

EBEC JTINER 

E8CA JTIMR1 

E8CD JTIMR2 

E420 KBDHND 

EB6A LDPNTR 

E72F LL 

E71F LOOPH 

E72A L00PM2 

E9F0 MODATA 

ECC9 NBOT1 

EB8F NEN1 

F005 NLR 

EAE9 NOCLR 

EC45 NOISE1 

ECOC NOTCAS 

E96B NOTCST 

EA52 NOTDER 

EA81 NOTDON 

EABE NOTEND 

EAOO NOTERR 

EB3C NOTYET 

EA98 NONRPO 

EAB8 NTBRKO 

EBOO NTBRK1 

ED17 NTBRK2 

EB1D NTFRAH 

EB25 NTOVRN 

EB50 NTNRP1 

EA5& NWOK 

ED1F OKTIH1 

ED48 OKTIHR 

E915 0HNI1 

E919 0RNI2 

E924 OMNI 3 

EF4C OPENC 

EF5D OPINP 

EF8F OPNRTN 

EFD3 OPOK 

EF95 OPOUT 

EF8B PBRK 

EE7F PHCHLO 

EEDC PHCLOS 

EE78 PHINIT 

EE9F PHOPEN 

EF14 PHPUT 

EE81 PHSTAT 

EE7D PHSTLO 

EEA7 PHNRIT 

E6F3 PIRQ 

ECFB PLUS 

E791 PNMI 

E799 PNHI1 

EDDO POKTAB 

EF1A PRMODE 

EFOl PS IOC 

E430 PTRHND 

E8AC PTRLP 

EE6D PUTADR 

EE43 PUTBC 

EE2I PUTCNT 

EEOl PUTDTO 

EFE9 RBLOK 

E5A7 RCI1 

E5BF RCIll 

E574 RCI1A 

E571 RCI1B 

E5AC RCI2 

E587 RCI3 

E5C3 RCI4 

E5B2 RCI6 

EE51 RDBAD 

EAEO RECEIV 

EC60 RECVDS 

EC IB RECVEN 

EAB1 RELONE 

EAOD RETURN 

EBOE RRETRN 

E80E SCOLLP 

EA6B SEND 

EC5F SENDDS 

EBF2 SENDEN 

=E468 SENDEV 

EC8A SEND IN 

EF34 SETBSZ 

EEE6 SETDCB 

E8F7 SETLOP 

E8ED SETVBL 

=E45C SETVBV 

EDB9 SETVBX 

EF64 SFH 

E959 SIO 

E944 SIOINT 

=F095 SIOSB 

=E459 SIOV 

EF4B SPECIA 

EB34 SRETRN 

EB9B SRTIRO 

EBC1 SRTIR1 

EBE9 SRTIR2 

E877 STLOOP 

E890 STRL 

EC75 STTMOT 

E677 SUBBFL 

EB38 SUSUAL 

*00E8 SV7H 

=0073 SV7L 

E706 SYIR9 

E71B SYIR92 

E762 SYIRQB 

E76F SYIR89 

E77A SYIR9A 

E78F SYIRBB 

E790 SYRTI 

E78B SYRTI 2 

E7BA SYSVB1 

E7D6 SYSVB2 

E7E5 SYSVB3 

E832 SYSVB4 

E8C3 SYSVB6 

E873 SYSVB7 

E844 SYSVBA 

E834 SYSVBB 

E7AE SYSVBL 

E857 SYVB6A 

ECBO TEST1 

ECBB TEST2 

ECD8 TEST3 

ECE2 TEST4 

EBA5 TIMIT 

EBCB TINIT1 

EBOA TOUT 

ED44 T0UT1 

ECBA TRETRN 

ECC8 TRTRN1 

EE4F TWICE 

E7C8 VBATRA 

EA1A NAIT 

EC9B WAITER 

EF7C NAITTH 

E9D7 WATCDM 

E605 WCI1 

E5D4 WCI1 A 

ESDI NCI IB 

E60A NCI 2 

E5E5 WCI3 

E5EB NCI 4 

E615 NCI5 

EFC6 NDLR 

EA3D WOK 

E905 XITVBL 

E7E2 XXIT 

EC6D ZERIT