0890 ; 0900 STATUSCMD I3656: BDC3D7 0910 LDA HDTABL+3,X D659 29FO 0920 AND #$FO D65B 813EA02 0930 STA $02EA D65E 8D0803 0940 STA $0308 066:1 SD0903 09SO STA $0309 0960 ; 0970 CLRSTATUS D664 A901 0980 LDA #$01 D666 DOEB 0990 BNE RETURN 1000 ; 1010 FORMATCMD D668 AD0403 1020 LDA $0304 D66B 8532 1030 STA $0032 D660 AD0503 1040 LDA $0305 D670 8533 1050 STA $0033 0672 A9FF 1060 LDA #$FF D674 AQOO 1070 LOY 0$00 D676 9132 1080 STA ($32),V D678 C8 1090 INY D679 9132 1100 STA ($32),Y D67B DOD9 1110 BNE STATUSCMD 1't20 1130 READCMD D67D 20D2D6 1140 JSR SETREGS D680 BOC7 1150 BCS CMDREJ D682 A920 1160 LDA hf$20 D684 8D57D1 1170 STA $D157 D687 AOOO 1180 LDY #$00 D689 AD57D1 1190 LP1 LDA $0157 D68C 2980 1200 AND 0$80 D6BE DOF9 1210 BNE LP1 D690 AD57D1 1220 RDLP LDA $D157 D693 2908 1230 AND 0$08 D695 FOF9 1240 BEG RDLP D697 AD50D1 1250 LDA $D150 D69A 9132 1260 STA ($32),Y D69.C CB 12TO INY D69D CCQ803 1280 CPY $308 D6AO DOEE 1290 BNE RQLP D6A2 ADSOD1 1300 ENDRD LDA $D150 D6AS AD5701 1310 LDA $D157 D6A8 2908 1320 AND #$08 D6AA DOF6 1330 BNE ENDRD D6AC FOB6 1340 BEQ CLRSTATUS 1350 1360 WRTCMD D6AE 20D2D6 13TO JSR SETREGS D6B1 B096 1380 BCS CMDREJ D683 A930 1390 LDA 4$30 D685 8D57D1 1400 STA $D157 D6B8 AOOO 1410 LDY 0$00 D6BA AD57D1 1420 LP2 LDA $D157 D680 2980 1430 AND e$so D6BF DOF9 1440 BNE LP2 D6C1 AD57D1 1450 WBTLP LDA $D157 D6C4 2908 1460 AND O$08 D6C6 FOF9 1470 BEQ WRTLP D6C8 B132 1480 LDA ($32),V D6CA 8D5001 1490 STA $D150 D6CD C8 1500 INY D6CE DOF1 1510 BNE WRTLP D600 F092 1520 BEO CLRSTATUS 1530 ; 1540 SETREGS D602.AD0403 1550 LOA $0304 D6DS 8532 1560 STA $0032 D6D7 AD0503 1570 LDA $0305 D6DA 8533 1580 STA $0033 D6DC ADOA03 1590 LDA $030A D60F 290F 1600 AND #$0F D6E1 18 1610 CLC D6E2 6901 1620 ADC 0$01 D6E4 BD53D1 1630 STA $D153 06E7 ADOA03 1640 LDA $030A D6EA 29FQ 1650 AND lft$ F0 D6EC 4A 1660 LSR A D6ED 4A 1670 LSR A D6EE 4A 1680 LSB A D6EF 4A 1690 LSR A D6FO 09AO 1700 ORA #$AO D6F2 BD56D1 1710 STA $D156 D6F5 ADOB03 1720 LDA $030B D6F8 DDC207 1730 CMP HDTABL+2,X