@@@@@@@@    DISCON    @@@@@@@@

'****  DISCON  ****
$D7A0: 37        PSHB  IMP    =>B;SP<=SP-1
$D7A1: 3C        PSHX  IMP    =>IX;SP<=SP-2
$D7A2: A6  00    LDAA  IND    A<=M
$D7A4: 81  84    CMPA  IMM    A-M
$D7A6: 27  0E    BEQ   REL    Branch=> $D7B6 if Z=1
$D7A8: F6  028E  LDAB  EXT    B<=M
$D7AB: C1  30    CMPB  IMM    B-M
$D7AD: 27  0E    BEQ   REL    Branch=> $D7BD if Z=1
$D7AF: BD  D840  JSR   EXT    Jump to Subr=>Address $D840
$D7B2: 4F        CLRA  IMP    M<=0
$D7B3: 38        PULX  IMP    SP<=SP-2;<=IX
$D7B4: 33        PULB  IMP    SP<=SP+1;<=B
$D7B5: 39        RTS   IMP    Return from Subroutine

'****  DEVSET  ****
$D7B6: A6  01    LDAA  IND    A<=M
$D7B8: B7  028E  STAA  EXT    M<=A
$D7BB: 20  F5    BRA   REL    Branch=> $D7B2 if (Always)

'****  OUTCRT  ****
$D7BD: 3C        PSHX  IMP    =>IX;SP<=SP-2
$D7BE: CE  D7FF  LDX   IMM    IX<=M:M+1
$D7C1: 08        INX   IMP    IX<=IX+1
$D7C2: 08        INX   IMP    IX<=IX+1
$D7C3: 6D  00    TST   IND    M-0
$D7C5: 27  25    BEQ   REL    Branch=> $D7EC if Z=1
$D7C7: A1  00    CMPA  IND    A-M
$D7C9: 26  F6    BNE   REL    Branch=> $D7C1 if Z=0
$D7CB: E6  01    LDAB  IND    B<=M
$D7CD: 38        PULX  IMP    SP<=SP-2;<=IX
$D7CE: 09        DEX   IMP    IX<=IX-1
$D7CF: 09        DEX   IMP    IX<=IX-1
$D7D0: 09        DEX   IMP    IX<=IX-1
$D7D1: 09        DEX   IMP    IX<=IX-1
$D7D2: 36        PSHA  IMP    =>A;SP<=SP-1
$D7D3: ED  03    STD   IND    M:M+1<=A:B
$D7D5: CC  3020  LDD   IMM    A:B<=M:M+1
$D7D8: ED  01    STD   IND    M:M+1<=A:B
$D7DA: 6F  00    CLR   IND    M<=0
$D7DC: 33        PULB  IMP    SP<=SP+1;<=B
$D7DD: 4F        CLRA  IMP    M<=0
$D7DE: C4  40    ANDB  IMM    B<=B&M
$D7E0: 26  01    BNE   REL    Branch=> $D7E3 if Z=0
$D7E2: 4C        INCA  IMP    M<=M+1
$D7E3: BD  FF70  JSR   EXT    Jump to Subr=>Address $FF70
$D7E6: 25  CB    BCS   REL    Branch=> $D7B3 if C=1
$D7E8: 26  C9    BNE   REL    Branch=> $D7B3 if Z=0
$D7EA: 20  C6    BRA   REL    Branch=> $D7B2 if (Always)
$D7EC: 38        PULX  IMP    SP<=SP-2;<=IX
$D7ED: 20  C4    BRA   REL    Branch=> $D7B3 if (Always)

'****  D1CVS  ****
$D7EF: C6  92    LDAB  IMM    B<=M
$D7F1: F7  0293  STAB  EXT    M<=B
$D7F4: B7  0294  STAA  EXT    M<=A
$D7F7: CE  0293  LDX   IMM    IX<=M:M+1
$D7FA: BD  D7A0  JSR   EXT    Jump to Subr=>Address $D7A0
$D7FD: FE  0294  LDX   EXT    IX<=M:M+1
$D800: 39        RTS   IMP    Return from Subroutine

'****  COMMAND LENGTH TABLE  ****
$D801--$D807:    NUL  DATA       85 00 86 00 87 03 88
$D808--$D80F:    NUL  DATA    00 89 00 C0 01 8A 00 C2
$D810--$D817:    NUL  DATA    01 8C 00 C3 00 8D 00 C4
$D818--$D81F:    NUL  DATA    01 8E 00 C5 00 C6 00 C7
$D820--$D827:    NUL  DATA    04 8F 03 C8 08 91 00 C9
$D828--$D82F:    NUL  DATA    00 92 00 CA 00 CB 00 93
$D830--$D837:    NUL  DATA    02 CD 01 CE 01 95 00 CF
$D838--$D83F:    NUL  DATA    00 97 02 98 00 D4 00 00

' END