0100 ;IDE38.ASM 06/03/96 Of10 ; 0000. 0120 *= $C95B POINT SIO TO IDE C95B 2000D6 0130 JSB $D600 0140 ; C95E Ot50 *= $FC98 COLOSTART FCQS 4C77E4 0160 JMP $E4'T7 0170 ; FCQB 0180 $FC34 SELECT IDE SEG "F1 FC34 203907 0190 JSR SELNXTHD FC37 4C6DFC 0200 JMP $FC6D 0210 FC3A 0220 *= $FCB5 TOGGLE D2 "F2 FCB5 2091D7 0230 JSR PROCD2 FCSB EA 0240 ,BYTE $EA,$EA,$EA,$EA FCB9 EA FC8A EA FCBB EA FCBC EA 0250 .BYTE $EA,$EA,$EA,$EA FCBD EA FCBE EA FCBF EA FCCO A900 0260 LDA 4$00 0270 FCC2 0280 *= $C31D KILL ROM CHKSUM C31D EA 0290 NOP C31E EA 0300 NOP 0310 C3:1F 032Q *= $C400 INIT IDE C400 2012D7 0330 JSR INITCODE 0340 ; C403 0350 $D600 IDE CODE D600 AD1FDO 0360 LDA $D01F CHK FOR SELECT KEY D603 2902 0370 ANO 0$02 D605::F019 0380 BEG JMPTOSIO IF DOWN, DO SIO 0607 AD0003 0390 LDA $0300 D60A C9P1 0400 CMP #$31 D60C D012 0410 BNE JMPTOSIO 060E A23C 0420 LDX 4f$3C 0430 0440 SRCH D610 BDC3D7 0450 LDA HDTABL+3,X ,D 6.1 3 290F 0460 ANO 0$0F 13615 CD0103 047G CMP $0301 D618 F009 0480 BEQ IDECODE D61A CA 0490 DEX D61B CA 0500 DEX D61C CA 0510 DEX D61D CA 0520 DEX D61E 10FO 0530 BPL SRCH 0540 0550 JMPTOSIO D620 4C71E9 0560 JMP $E971 0570 0580 IDECODE D623 AD57D1 0590 LPBZY LDA $D157 D626 2980 0600 AND #$80 0628 DOF9 0610 BNE LPBZY 0620 ; 062A AD0203 0630 LDA. $0302 D62D C953 0640 CMP #$53 D62F F025 0650 BEG STATUSCIAD D63:1: C921 0660 CMP 0 $21. D633 F033 0670 BEG FORMATCMD D635 C922 0680 CMP .0$22 0637 F02F 0690 BEQ . FORMATCMO D639 C952 0700 ChlP $52 D63B F040 0710 BEG READCMD D63D C957 0720 CMP #$57 D63F F06D 0730 BEG WRTCMO 0641 C950 0740 CMP 0$50 D643 F069 0750 BEQ WRTCMD D645 C94E 0760 CMP #$4E D647 FOOD 0770 BEQ STATUSCMD 0780 ; 0790 CMDREJ D649 A901 0800 LDA #$01 D64B 8DEA02 0810 STA $02EA D64E A98B 0820 LDA 0$8B 0830 ; 0840 RETURN D650 8D0303 0850 STA $0303 D653 AB 0860 TAY D654 38 0870 SEC D655 60 0880 RTS