ER STATSJSRDSTAT *-02EA-*LDAST02EA,Y0,1 (AND#$03 2STADIV<LDAST1TAB,Y2(WE)FASL PAND#4 ZTSBDIVdLDAST3TAB,Y3(WP) nAND#8 xTSBDIVLDAPORTA4(MOT)ASL AND#$10 TSBDIVLDAPBYTHI,Y5(DD) CMP#$01 BCC.01.DA#SB5,#DIV.01LDAPSEKLO,Y7(MD)CMP#$13;>18=MDLDAPBYTHI,Y;ifnotBEQ.02;>128CLC;By/Sec.02BCC.03.DA#SB7,#DIV.03LDADIV"STAST02EA,Y,STASIOBUF 6*-02EB-*@LDAST02EB,Y(2-6) JAND#$7C TSTADIV^LDAST3TAB,Y7(DC) hAND#$80 rTSBDIV|LDAFDCST0,1 AND#$50ASLASLASLASL CMP#2 BCC.04 EOR#6.04EOR#3 ORADIVSTAST02EB,YSTASIOBUF+1 *-02EC-*LDA#$E0TimeoutSTAST02EC,YSTASIOBUF+2 &*-02ED-*0LDAFDCST:STAST02ED,YDSTASIOBUF+3N;XLDA#COMPLTSendenbJSRSIOPUT lLDA#4vSTABUFLENSTZBUFLEN+1JSRSSIOBF JSRXMIT;LDAST02EA,Y AND#$FCSTAST02EA,Y;LDAST02EB,Y AND#$83 ORA#$18 STADIVLDAST3TAB,Y AND#$40 EOR#$40 TSBDIV LDAST3TAB,Y *AND#$104LSR>LSR HORADIVRSTAST02EB,Y\JMPWAITCMDf-pSRDSTLDYACTDRVzLDAST02EB,YResetORA#$3C2,3,4,5 STADIVLDAST2TAB,Y5(CM) AND#$40LSR TRBDIVLDAST1TAB,Y5,4,?,2AND#$34->LSR2,5,4LSRLSR BCC.01 ORA#8 .01ASL EOR#$FF ANDDIV$STAST02EB,Y.RTS8-