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