ORG $C95B›       JSR $D600››       ORG $FC98›       JMP $E477››       ORG $FC34›       JSR  SELNXTHD›       JMP  $FC6D››       ORG $FCB5›       JSR PROCD2››       DTA B($EA),B($EA),B($EA),B($EA)›       DTA B($EA),B($EA),B($EA),B($EA)››       LDA  #$00››       ORG $C31D››       NOP›       NOP››       ORG $C400›       JSR INITCODE››       ORG $D600››         LDA $D01F›         AND #$02›         BEQ JMPTOSIO›         LDA $0300›         CMP #$31›         BNE JMPTOSIO›         LDX #$3C››SRCH     LDA HDTABL+3,X›         AND #$0F›         CMP $0301›         BEQ IDECODE›         DEX›         DEX›         DEX›         DEX›         BPL SRCH››JMPTOSIO JMP $E971››IDECODE   ORG *›LPBZY     LDA $D157›          AND #$80›          BNE LPBZY››          LDA $0302›          CMP #$53›          BEQ STATUSCMD›          CMP #$21›          BEQ FORMATCMD›          CMP #$22›          BEQ FORMATCMD›          CMP #$52›          BEQ READCMD›          CMP #$57›          BEQ WRTCMD›          CMP #$50›          BEQ WRTCMD›          CMP #$4E›          BEQ STATUSCMD››CMDREJ    LDA #$01›          STA $02EA›          LDA #$8B››RETURN    STA $0303›          TAY›          SEC›          RTS››STATUSCMD LDA HDTABL+3,X›          AND #$F0›          STA $02EA›          STA $0308›          STA $0309››CLRSTATUS LDA #$01›          BNE RETURN››FORMATCMD LDA $0304›         STA $0032›         LDA $0305›         STA $0033›         LDA #$FF›         LDY #$00›         STA ($32),Y›         INY›         STA ($32),Y›         BNE STATUSCMD››READCMD   JSR SETREGS›          BCS CMDREJ›          LDA #$20›          STA $D157›          LDY #$00›LP1       LDA $D157›          AND #$80›          BNE LP1›RDLP      LDA $D157›          AND #$08›          BEQ RDLP›          LDA $D150›          STA ($32),Y›          INY›          CPY $308›          BNE RDLP›ENDRD     LDA $D150›          LDA $D157›          AND #$08›          BNE ENDRD›          BEQ CLRSTATUS››WRTCMD       JSR SETREGS›             BCS CMDREJ›             LDA #$30›             STA $D157›             LDY #$00›LP2          LDA $D157›             AND #$80›             BNE LP2›WRTLP        LDA $D157›             AND #$08›             BEQ WRTLP›             LDA ($32),Y›             STA $D150›             INY›             BNE WRTLP›             BEQ CLRSTATUS››SETREGS     LDA $0304›            STA $0032›            LDA $0305›            STA $0033›            LDA $030A›            AND #$0F›            CLC›            ADC #$01›            STA $D153›            LDA $030A›            AND #$F0›            LSR @›            LSR @›            LSR @›            LSR @›            ORA #$A0›            STA $D156›            LDA $030B›            CMP HDTABL+2,X›            BCS SECTERR›            ADC HDTABL+1,X›            STA $D154›            LDA HDTABL,X›            ADC #$00›            STA $D155›            LDA #$01›            STA $D152›            CLC›SECTERR     RTS››INITCODE    ORG *›WAITHD      LDA #$50›            CMP $D157›            BNE WAITHD›            LDA #$10›            STA $D152›            LDA #$AF›            STA $D156›            LDA #$91›            STA $D157›            LDX #$40›WLP         DEY›            BNE WLP›            DEX›            BNE WLP›            JSR FINDX›            JSR SETL1L2›            JMP $C66E››SELNXTHD    JSR FINDX›            JSR INCRX›            JSR SETL1L2›            TAY›            RTS››FINDX       LDX #$0C›NXTPARM     LDA $D7BC+3,X›            AND #$0F›            BNE FOUNDX›            DEX›            DEX›            DEX›            DEX›            BNE NXTPARM›FOUNDX      RTS››INCRX       LDA #$A0›            STA $D180›            LDA $D7BC+3,X›            AND #$F0›            STA $D7BC+3,X›            TXA›            CLC›            ADC #$04›            AND #$0C›            TAX›            LDA $D7BC+3,X›            ORA #$01›            STA $D7BC+3,X›            LDA #$80›            STA $D180›            RTS››SETL1L2     LDA $D301›            AND #$F3›            STA $D301›            TXA›            LSR @›            LSR @›            TAX›            LDA DECODE,X›            ORA $D301›            STA $D301›            TAY›            RTS››DECODE      DTA B($0C),B($04),B($08),B($00)››PROCD2  LDA #$A0›        STA $D180›        LDA $07D3›        EOR #$02›        STA $D7D3›        LDA #$80›        STA $D180›        LDY $D301›        RTS››        ORG $D7BC›        DTA B($00),B($00),B($00),B($00)››HDTABL  DTA B($00),B($00),B($10),B($61)›        DTA B($00),B($10),B($06),B($60)›        DTA B($00),B($16),B($06),B($00)›        DTA B($00),B($1C),B($06),B($00)›        DTA B($00),B($20),B($80),B($62)›        DTA B($00),B($A0),B($10),B($63)›        DTA B($00),B($B0),B($06),B($64)›        DTA B($00),B($B6),B($06),B($65)›        DTA B($00),B($BC),B($10),B($66)›        DTA B($00),B($CC),B($04),B($67)›        DTA B($00),B($D0),B($FF),B($68)›        DTA B($01),B($D0),B($30),B($60)›        DTA B($02),B($00),B($FF),B($60)›        DTA B($03),B($00),B($FF),B($60)›        DTA B($04),B($00),B($FF),B($00)›        DTA B($05),B($00),B($FF),B($00)›