D6FB B014 1740 BCS SECTERR D6FD 7DC1D7 1750 ADC HDTABL+1,X D700 BD54D1 1760 STA $0154 D703 SDCOD7 1770 LDA HDTABL,X D706 6900 1780 ADC 0$00 D708 8D55D1 1790 STA $D155 D70B A901 1800 LDA 0$01 D70D 8D52D1 1810 STA $0152 D710 18 1820 CLC D711 60 1830 SECTERR RTS 1840 1850 INITCODE D712 A950 1860 WAITHD LDA 4550 D714 CD57D1 1870 CMP $D157 D717 DOF9 1880 BNE WAITHD 1890 D?19 A910 1900 LDA #$10 D718 BD52D1 1910 STA $D152 D71E A9AF 1920 LDA #$AF D720 8D56D1 1930 STA $D156 D723 A991 1940 LDA 0$91 D725 BD57D1 1950 STA $D15? 0728 A240 1960 LDX 0$40 D72A 88 1970 WLP DEY D72B DOFD 1980 BNE WLP D72D CA 1990 DEX D72E DOFA 2000 BNE WLP D730 2044D7 2010 JSB FINDX D733 207607 2020 JSR SETL1L2 D736 4C6EC6 2030 JMP SC66E ;OS 0 $C400 2040 2050 SELNXTHD D739 2044D7 2060 JSR FINDX D73C 2054D7 2070 JSR INCRX D73F 2076D7 2080 JSR SETL1L2 D742 AB 2090 TAY D743 60 2100 RTS 2110 2120 FINDX D744 A20C 2130 LDX Af$0C D746 BDBFD7 2140 NXTPARM LDA $D7BC+3,X D749 290F 2150 AND 0$0F D74B D006 2160 BNE FOUNDX D74D CA 2170 DEX D74E CA 2180 DEX D74F CA 2190 DEX D750 CA 2200 DEX D751 DOF3 2210 BNE NXTPARM D753 60 2220 FOUNDX RTS 2230 2240 INCRX D754 A9AO 2250 LDA 0$AO D756 8DSOD1 2260 STA $D180 D759 BDBFD7 2270 LDA $D7BC+3,X D75C 29FO 2280 AND 0$FO D75E 9DBFD7 2290 STA $D7BC+3,X D761 8A 2300 TXA D762 18 2310 CLC D763 6904 2320 ADC #$04 0765 290C 2330 ANO #$0C D767 AA 2340 TAX D768 BDBFD7 2350 LDA $D7BC+3,X D76B 0901 2360 ORA 0$01 D76D 9DBFD7 2370 STA SD7BC+3,X D770 A980 2380 LDA #$80 D772 8DSOD1 2390 STA $0180 D775 60 2400 RTS 2410 2420 SETLtL2 D776 AD0103 2430 LDA $D301 D779 29F3 2440 AND 0$F3 D17B 8D01D3 2450 STA $0301 D77E BA 2460 TXA D77F 4A 2470 LSR A D780 4A 2480 LSR A D781 AA 2490 TAX D782 BDSDD7 2500 LDA DECODE,X D785 OD01D3 2510 ORA $D301 D788 8D01D3 2520 STA $D301 D78B AB 2530 TAY D78C 60 2540 RTS 2550 2560 DECODE D78D OC 2570 .BYTE $0C,$04,$08,$00 D78E 04