@@@@@@@@    LCD    @@@@@@@@

'****  SCREEN  ****
$D840: 3C        PSHX  IMP    =>IX;SP<=SP-2
$D841: 37        PSHB  IMP    =>B;SP<=SP-1
$D842: 36        PSHA  IMP    =>A;SP<=SP-1
$D843: DF  50    STX   DIR    M:M+1<=IX
$D845: A6  00    LDAA  IND    A<=M
$D847: CE  DF4F  LDX   IMM    IX<=M:M+1
$D84A: BD  DB35  JSR   EXT    Jump to Subr=>Address $DB35
$D84D: 32        PULA  IMP    SP<=SP+1;<=A
$D84E: 33        PULB  IMP    SP<=SP+1;<=B
$D84F: 38        PULX  IMP    SP<=SP-2;<=IX
$D850: 39        RTS   IMP    Return from Subroutine

'****  SCRTST  ****
$D851: DE  50    LDX   DIR    IX<=M:M+1
$D853: 86  22    LDAA  IMM    A<=M
$D855: A7  01    STAA  IND    M<=A
$D857: 39        RTS   IMP    Return from Subroutine

'****  GETPSS  ****
$D858: CC  1303  LDD   IMM    A:B<=M:M+1
$D85B: 20  57    BRA   REL    Branch=> $D8B4 if (Always)

'****  SETSSP  ****
$D85D: DE  50    LDX   DIR    IX<=M:M+1
$D85F: A6  01    LDAA  IND    A<=M
$D861: B7  027D  STAA  EXT    M<=A
$D864: 39        RTS   IMP    Return from Subroutine

'****  SCRINT  ****
$D865: DE  50    LDX   DIR    IX<=M:M+1
$D867: EC  03    LDD   IND    A:B<=M:M+1
$D869: FD  0270  STD   EXT    M:M+1<=A:B
$D86C: FD  0274  STD   EXT    M:M+1<=A:B
$D86F: EC  01    LDD   IND    A:B<=M:M+1
$D871: 81  13    CMPA  IMM    A-M
$D873: 24  02    BCC   REL    Branch=> $D877 if C=0
$D875: 86  13    LDAA  IMM    A<=M
$D877: C1  03    CMPB  IMM    B-M
$D879: 24  02    BCC   REL    Branch=> $D87D if C=0
$D87B: C6  03    LDAB  IMM    B<=M
$D87D: FD  0276  STD   EXT    M:M+1<=A:B
$D880: 6F  01    CLR   IND    M<=0
$D882: 4C        INCA  IMP    M<=M+1
$D883: 5C        INCB  IMP    M<=M+1
$D884: 3D        MUL   IMP    A:B<=A*B
$D885: F3  0270  ADDD  EXT    A:B<=A:B+M:M+1
$D888: 18        XGDX  IMP    A:B<==>IX
$D889: 09        DEX   IMP    IX<=IX-1
$D88A: FF  0272  STX   EXT    M:M+1<=IX
$D88D: 8D  28    BSR   REL    Branch to Subr=> $D8B7
$D88F: 86  D0    LDAA  IMM    A<=M
$D891: B7  0280  STAA  EXT    M<=A
$D894: 3C        PSHX  IMP    =>IX;SP<=SP-2
$D895: 86  20    LDAA  IMM    A<=M
$D897: A7  00    STAA  IND    M<=A
$D899: 09        DEX   IMP    IX<=IX-1
$D89A: BC  0270  CPX   EXT    IX-M:M+1
$D89D: 24  F8    BCC   REL    Branch=> $D897 if C=0
$D89F: 38        PULX  IMP    SP<=SP-2;<=IX
$D8A0: F6  0277  LDAB  EXT    B<=M
$D8A3: 5C        INCB  IMP    M<=M+1
$D8A4: 08        INX   IMP    IX<=IX+1
$D8A5: 6F  00    CLR   IND    M<=0
$D8A7: 5A        DECB  IMP    M<=M-1
$D8A8: 26  FA    BNE   REL    Branch=> $D8A4 if Z=0
$D8AA: C6  01    LDAB  IMM    B<=M
$D8AC: E7  01    STAB  IND    M<=B
$D8AE: 7E  DCB5  JMP   EXT    Jump=>Address $DCB5

'****  GETSSZ  ****
$D8B1: FC  0276  LDD   EXT    A:B<=M:M+1
$D8B4: 7E  D933  JMP   EXT    Jump=>Address $D933
$D8B7: 7F  0279  CLR   EXT    M<=0
$D8BA: 7F  0278  CLR   EXT    M<=0
$D8BD: 39        RTS   IMP    Return from Subroutine

'****  SETCRP  ****
$D8BE: DE  50    LDX   DIR    IX<=M:M+1
$D8C0: FC  0276  LDD   EXT    A:B<=M:M+1
$D8C3: A1  01    CMPA  IND    A-M
$D8C5: 24  02    BCC   REL    Branch=> $D8C9 if C=0
$D8C7: A7  01    STAA  IND    M<=A
$D8C9: E1  02    CMPB  IND    B-M
$D8CB: 24  02    BCC   REL    Branch=> $D8CF if C=0
$D8CD: E7  02    STAB  IND    M<=B
$D8CF: BD  DF40  JSR   EXT    Jump to Subr=>Address $DF40
$D8D2: FE  0274  LDX   EXT    IX<=M:M+1
$D8D5: BD  DC56  JSR   EXT    Jump to Subr=>Address $DC56
$D8D8: DD  52    STD   DIR    M:M+1<=A:B
$D8DA: DE  50    LDX   DIR    IX<=M:M+1
$D8DC: EC  01    LDD   IND    A:B<=M:M+1
$D8DE: 90  52    SUBA  DIR    A<=A-M
$D8E0: 25  11    BCS   REL    Branch=> $D8F3 if C=1
$D8E2: 81  13    CMPA  IMM    A-M
$D8E4: 22  0D    BHI   REL    Branch=> $D8F3 if C|Z=0
$D8E6: D0  53    SUBB  DIR    B<=B-M
$D8E8: 25  09    BCS   REL    Branch=> $D8F3 if C=1
$D8EA: C1  03    CMPB  IMM    B-M
$D8EC: 22  05    BHI   REL    Branch=> $D8F3 if C|Z=0
$D8EE: FD  0278  STD   EXT    M:M+1<=A:B
$D8F1: 20  1A    BRA   REL    Branch=> $D90D if (Always)
$D8F3: 8D  C2    BSR   REL    Branch to Subr=> $D8B7
$D8F5: FC  0276  LDD   EXT    A:B<=M:M+1
$D8F8: DE  50    LDX   DIR    IX<=M:M+1
$D8FA: A0  01    SUBA  IND    A<=A-M
$D8FC: 81  13    CMPA  IMM    A-M
$D8FE: 25  10    BCS   REL    Branch=> $D910 if C=1
$D900: A6  01    LDAA  IND    A<=M
$D902: E0  02    SUBB  IND    B<=B-M
$D904: C1  03    CMPB  IMM    B-M
$D906: 25  18    BCS   REL    Branch=> $D920 if C=1
$D908: E6  02    LDAB  IND    B<=M
$D90A: BD  DC0C  JSR   EXT    Jump to Subr=>Address $DC0C
$D90D: 7E  DEA4  JMP   EXT    Jump=>Address $DEA4
$D910: 97  52    STAA  DIR    M<=A
$D912: 86  13    LDAA  IMM    A<=M
$D914: 90  52    SUBA  DIR    A<=A-M
$D916: B7  0278  STAA  EXT    M<=A
$D919: B6  0276  LDAA  EXT    A<=M
$D91C: 80  13    SUBA  IMM    A<=A-M
$D91E: 20  E2    BRA   REL    Branch=> $D902 if (Always)
$D920: D7  52    STAB  DIR    M<=B
$D922: C6  03    LDAB  IMM    B<=M
$D924: D0  52    SUBB  DIR    B<=B-M
$D926: F7  0279  STAB  EXT    M<=B
$D929: F6  0277  LDAB  EXT    B<=M
$D92C: C0  03    SUBB  IMM    B<=B-M
$D92E: 20  DA    BRA   REL    Branch=> $D90A if (Always)

'****  GETCRP  ****
$D930: BD  DE2E  JSR   EXT    Jump to Subr=>Address $DE2E
$D933: DE  50    LDX   DIR    IX<=M:M+1
$D935: ED  01    STD   IND    M:M+1<=A:B
$D937: 39        RTS   IMP    Return from Subroutine

'****  SETSRP  ****
$D938: DE  50    LDX   DIR    IX<=M:M+1
$D93A: FC  0276  LDD   EXT    A:B<=M:M+1
$D93D: 80  13    SUBA  IMM    A<=A-M
$D93F: A1  01    CMPA  IND    A-M
$D941: 25  02    BCS   REL    Branch=> $D945 if C=1
$D943: A6  01    LDAA  IND    A<=M
$D945: C0  03    SUBB  IMM    B<=B-M
$D947: E1  02    CMPB  IND    B-M
$D949: 25  02    BCS   REL    Branch=> $D94D if C=1
$D94B: E6  02    LDAB  IND    B<=M
$D94D: 20  BB    BRA   REL    Branch=> $D90A if (Always)

'****  GETSRP  ****
$D94F: FE  0274  LDX   EXT    IX<=M:M+1
$D952: BD  DC56  JSR   EXT    Jump to Subr=>Address $DC56
$D955: 20  DC    BRA   REL    Branch=> $D933 if (Always)

'****  PSET  ****
$D957: 8D  4F    BSR   REL    Branch to Subr=> $D9A8
$D959: 8A  80    ORAA  IMM    A<=A|M
$D95B: BD  FF55  JSR   EXT    Jump to Subr=>Address $FF55
$D95E: 96  52    LDAA  DIR    A<=M
$D960: 48        ASLA  IMP    C<=########<=0
$D961: 48        ASLA  IMP    C<=########<=0
$D962: DE  50    LDX   DIR    IX<=M:M+1
$D964: E6  05    LDAB  IND    B<=M
$D966: 27  04    BEQ   REL    Branch=> $D96C if Z=1
$D968: 8A  40    ORAA  IMM    A<=A|M
$D96A: 20  02    BRA   REL    Branch=> $D96E if (Always)
$D96C: 8A  20    ORAA  IMM    A<=A|M
$D96E: BD  FF55  JSR   EXT    Jump to Subr=>Address $FF55
$D971: CC  0F08  LDD   IMM    A:B<=M:M+1
$D974: 7E  FED4  JMP   EXT    Jump=>Address $FED4

'****  PGET  ****
$D977: 8D  2F    BSR   REL    Branch to Subr=> $D9A8
$D979: 37        PSHB  IMP    =>B;SP<=SP-1
$D97A: 36        PSHA  IMP    =>A;SP<=SP-1
$D97B: 86  63    LDAA  IMM    A<=M
$D97D: BD  FF55  JSR   EXT    Jump to Subr=>Address $FF55
$D980: 32        PULA  IMP    SP<=SP+1;<=A
$D981: 8A  80    ORAA  IMM    A<=A|M
$D983: BD  FF55  JSR   EXT    Jump to Subr=>Address $FF55
$D986: 86  0F    LDAA  IMM    A<=M
$D988: 33        PULB  IMP    SP<=SP+1;<=B
$D989: C4  F7    ANDB  IMM    B<=B&M
$D98B: BD  FF58  JSR   EXT    Jump to Subr=>Address $FF58
$D98E: 86  08    LDAA  IMM    A<=M
$D990: D6  52    LDAB  DIR    B<=M
$D992: 10        SBA   IMP    A<=A-B
$D993: D6  2A    LDAB  DIR    B<=M
$D995: 4A        DECA  IMP    M<=M-1
$D996: 26  FB    BNE   REL    Branch=> $D993 if Z=0
$D998: 96  28    LDAA  DIR    A<=M
$D99A: 49        ROLA  IMP    C<=########<=C
$D99B: 49        ROLA  IMP    C<=########<=C
$D99C: 84  01    ANDA  IMM    A<=A&M
$D99E: DE  50    LDX   DIR    IX<=M:M+1
$D9A0: A7  01    STAA  IND    M<=A
$D9A2: CC  0F08  LDD   IMM    A:B<=M:M+1
$D9A5: 7E  FED4  JMP   EXT    Jump=>Address $FED4

'****  GTPCOR  ****
$D9A8: DE  50    LDX   DIR    IX<=M:M+1
$D9AA: 6D  01    TST   IND    M-0
$D9AC: 26  22    BNE   REL    Branch=> $D9D0 if Z=0
$D9AE: A6  02    LDAA  IND    A<=M
$D9B0: 81  78    CMPA  IMM    A-M
$D9B2: 24  1C    BCC   REL    Branch=> $D9D0 if C=0
$D9B4: 97  54    STAA  DIR    M<=A
$D9B6: A6  04    LDAA  IND    A<=M
$D9B8: 81  20    CMPA  IMM    A-M
$D9BA: 24  14    BCC   REL    Branch=> $D9D0 if C=0
$D9BC: 6D  03    TST   IND    M-0
$D9BE: 26  10    BNE   REL    Branch=> $D9D0 if Z=0
$D9C0: C6  FF    LDAB  IMM    B<=M
$D9C2: 5C        INCB  IMP    M<=M+1
$D9C3: 80  08    SUBA  IMM    A<=A-M
$D9C5: 24  FB    BCC   REL    Branch=> $D9C2 if C=0
$D9C7: 8B  08    ADDA  IMM    A<=A+M
$D9C9: 97  52    STAA  DIR    M<=A
$D9CB: A6  02    LDAA  IND    A<=M
$D9CD: 7E  FF52  JMP   EXT    Jump=>Address $FF52
$D9D0: 86  FF    LDAA  IMM    A<=M
$D9D2: A7  01    STAA  IND    M<=A
$D9D4: 38        PULX  IMP    SP<=SP-2;<=IX
$D9D5: 39        RTS   IMP    Return from Subroutine

'****  LINE  ****
$D9D6: DE  50    LDX   DIR    IX<=M:M+1
$D9D8: A6  01    LDAA  IND    A<=M
$D9DA: 36        PSHA  IMP    =>A;SP<=SP-1
$D9DB: A6  05    LDAA  IND    A<=M
$D9DD: 36        PSHA  IMP    =>A;SP<=SP-1
$D9DE: A6  09    LDAA  IND    A<=M
$D9E0: A7  05    STAA  IND    M<=A
$D9E2: BD  D957  JSR   EXT    Jump to Subr=>Address $D957
$D9E5: DE  50    LDX   DIR    IX<=M:M+1
$D9E7: 32        PULA  IMP    SP<=SP+1;<=A
$D9E8: A7  05    STAA  IND    M<=A
$D9EA: 32        PULA  IMP    SP<=SP+1;<=A
$D9EB: A7  01    STAA  IND    M<=A
$D9ED: 39        RTS   IMP    Return from Subroutine
$D9EE: CC  0001  LDD   IMM    A:B<=M:M+1
$D9F1: ED  0A    STD   IND    M:M+1<=A:B
$D9F3: EC  04    LDD   IND    A:B<=M:M+1
$D9F5: A3  00    SUBD  IND    A:B<=A:B-M:M+1
$D9F7: ED  04    STD   IND    M:M+1<=A:B
$D9F9: 2A  0B    BPL   REL    Branch=> $DA06 if N=0
$D9FB: 4F        CLRA  IMP    M<=0
$D9FC: 5F        CLRB  IMP    M<=0
$D9FD: A3  04    SUBD  IND    A:B<=A:B-M:M+1
$D9FF: ED  04    STD   IND    M:M+1<=A:B
$DA01: CC  FFFF  LDD   IMM    A:B<=M:M+1
$DA04: ED  0A    STD   IND    M:M+1<=A:B
$DA06: 39        RTS   IMP    Return from Subroutine
$DA07: DE  50    LDX   DIR    IX<=M:M+1
$DA09: C6  01    LDAB  IMM    B<=M
$DA0B: 3A        ABX   IMP    IX<=IX+B
$DA0C: DF  5C    STX   DIR    M:M+1<=IX
$DA0E: 8D  DE    BSR   REL    Branch to Subr=> $D9EE
$DA10: DE  50    LDX   DIR    IX<=M:M+1
$DA12: C6  03    LDAB  IMM    B<=M
$DA14: 3A        ABX   IMP    IX<=IX+B
$DA15: DF  5E    STX   DIR    M:M+1<=IX
$DA17: 8D  D5    BSR   REL    Branch to Subr=> $D9EE
$DA19: DE  50    LDX   DIR    IX<=M:M+1
$DA1B: EC  07    LDD   IND    A:B<=M:M+1
$DA1D: A3  05    SUBD  IND    A:B<=A:B-M:M+1
$DA1F: 23  0E    BLS   REL    Branch=> $DA2F if C|Z=1
$DA21: DE  50    LDX   DIR    IX<=M:M+1
$DA23: C6  03    LDAB  IMM    B<=M
$DA25: 3A        ABX   IMP    IX<=IX+B
$DA26: DF  5C    STX   DIR    M:M+1<=IX
$DA28: DE  50    LDX   DIR    IX<=M:M+1
$DA2A: C6  01    LDAB  IMM    B<=M
$DA2C: 3A        ABX   IMP    IX<=IX+B
$DA2D: DF  5E    STX   DIR    M:M+1<=IX
$DA2F: DE  5C    LDX   DIR    IX<=M:M+1
$DA31: EC  04    LDD   IND    A:B<=M:M+1
$DA33: 04        LSRD  IMP    0=>################=>C
$DA34: DD  58    STD   DIR    M:M+1<=A:B
$DA36: CE  0000  LDX   IMM    IX<=M:M+1
$DA39: DF  5A    STX   DIR    M:M+1<=IX
$DA3B: 8D  99    BSR   REL    Branch to Subr=> $D9D6
$DA3D: DC  5A    LDD   DIR    A:B<=M:M+1
$DA3F: DE  5C    LDX   DIR    IX<=M:M+1
$DA41: A3  04    SUBD  IND    A:B<=A:B-M:M+1
$DA43: 27  C1    BEQ   REL    Branch=> $DA06 if Z=1
$DA45: EC  00    LDD   IND    A:B<=M:M+1
$DA47: E3  0A    ADDD  IND    A:B<=A:B+M:M+1
$DA49: ED  00    STD   IND    M:M+1<=A:B
$DA4B: DE  5E    LDX   DIR    IX<=M:M+1
$DA4D: DC  58    LDD   DIR    A:B<=M:M+1
$DA4F: E3  04    ADDD  IND    A:B<=A:B+M:M+1
$DA51: DD  58    STD   DIR    M:M+1<=A:B
$DA53: DE  5C    LDX   DIR    IX<=M:M+1
$DA55: A3  04    SUBD  IND    A:B<=A:B-M:M+1
$DA57: 25  0A    BCS   REL    Branch=> $DA63 if C=1
$DA59: DD  58    STD   DIR    M:M+1<=A:B
$DA5B: DE  5E    LDX   DIR    IX<=M:M+1
$DA5D: EC  00    LDD   IND    A:B<=M:M+1
$DA5F: E3  0A    ADDD  IND    A:B<=A:B+M:M+1
$DA61: ED  00    STD   IND    M:M+1<=A:B
$DA63: DE  5A    LDX   DIR    IX<=M:M+1
$DA65: 08        INX   IMP    IX<=IX+1
$DA66: DF  5A    STX   DIR    M:M+1<=IX
$DA68: 20  D1    BRA   REL    Branch=> $DA3B if (Always)

'****  LINTRM  ****
$DA6A: DE  50    LDX   DIR    IX<=M:M+1
$DA6C: E6  01    LDAB  IND    B<=M
$DA6E: FE  0272  LDX   EXT    IX<=M:M+1
$DA71: 3A        ABX   IMP    IX<=IX+B
$DA72: 6F  01    CLR   IND    M<=0
$DA74: 39        RTS   IMP    Return from Subroutine

'****  SETCMR  ****
$DA75: DE  50    LDX   DIR    IX<=M:M+1
$DA77: A6  01    LDAA  IND    A<=M
$DA79: B7  027C  STAA  EXT    M<=A
$DA7C: 39        RTS   IMP    Return from Subroutine

'****  GETCMR  ****
$DA7D: B6  027C  LDAA  EXT    A<=M
$DA80: 20  0B    BRA   REL    Branch=> $DA8D if (Always)

'****  SETSRS  ****
$DA82: DE  50    LDX   DIR    IX<=M:M+1
$DA84: EC  01    LDD   IND    A:B<=M:M+1
$DA86: FD  027A  STD   EXT    M:M+1<=A:B
$DA89: 39        RTS   IMP    Return from Subroutine

'****  GETSRS  ****
$DA8A: FC  027A  LDD   EXT    A:B<=M:M+1
$DA8D: 7E  D933  JMP   EXT    Jump=>Address $D933

'****  SETLFG  ****
$DA90: CE  0280  LDX   IMM    IX<=M:M+1
$DA93: 62  0100  OIM   IND    M<=IM|M
$DA96: BD  DBF6  JSR   EXT    Jump to Subr=>Address $DBF6
$DA99: 7E  DEA4  JMP   EXT    Jump=>Address $DEA4

'****  RSTLFG  ****
$DA9C: CE  0280  LDX   IMM    IX<=M:M+1
$DA9F: 61  FE00  AIM   IND    M<=IM&M
$DAA2: 39        RTS   IMP    Return from Subroutine

'****  CHKLIN  ****
$DAA3: BD  DE48  JSR   EXT    Jump to Subr=>Address $DE48
$DAA6: DE  50    LDX   DIR    IX<=M:M+1
$DAA8: 6F  01    CLR   IND    M<=0
$DAAA: DC  5C    LDD   DIR    A:B<=M:M+1
$DAAC: A7  02    STAA  IND    M<=A
$DAAE: B6  0276  LDAA  EXT    A<=M
$DAB1: A7  03    STAA  IND    M<=A
$DAB3: 5A        DECB  IMP    M<=M-1
$DAB4: E7  04    STAB  IND    M<=B
$DAB6: 39        RTS   IMP    Return from Subroutine

'****  READVS  ****
$DAB7: DE  50    LDX   DIR    IX<=M:M+1
$DAB9: E6  03    LDAB  IND    B<=M
$DABB: 37        PSHB  IMP    =>B;SP<=SP-1
$DABC: EC  01    LDD   IND    A:B<=M:M+1
$DABE: BD  DC9B  JSR   EXT    Jump to Subr=>Address $DC9B
$DAC1: 33        PULB  IMP    SP<=SP+1;<=B
$DAC2: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DAC3: 38        PULX  IMP    SP<=SP-2;<=IX
$DAC4: A6  00    LDAA  IND    A<=M
$DAC6: 08        INX   IMP    IX<=IX+1
$DAC7: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DAC8: DE  50    LDX   DIR    IX<=M:M+1
$DACA: 08        INX   IMP    IX<=IX+1
$DACB: A7  00    STAA  IND    M<=A
$DACD: DF  50    STX   DIR    M:M+1<=IX
$DACF: 5A        DECB  IMP    M<=M-1
$DAD0: 26  F1    BNE   REL    Branch=> $DAC3 if Z=0
$DAD2: 38        PULX  IMP    SP<=SP-2;<=IX
$DAD3: 39        RTS   IMP    Return from Subroutine

'****  NEWCW  ****
$DAD4: 8D  0B    BSR   REL    Branch to Subr=> $DAE1
$DAD6: BD  DE48  JSR   EXT    Jump to Subr=>Address $DE48
$DAD9: DC  5C    LDD   DIR    A:B<=M:M+1
$DADB: 5A        DECB  IMP    M<=M-1
$DADC: DE  50    LDX   DIR    IX<=M:M+1
$DADE: ED  03    STD   IND    M:M+1<=A:B
$DAE0: 39        RTS   IMP    Return from Subroutine

'****  CHADSP  ****
$DAE1: BD  DF40  JSR   EXT    Jump to Subr=>Address $DF40
$DAE4: FE  0278  LDX   EXT    IX<=M:M+1
$DAE7: FF  027E  STX   EXT    M:M+1<=IX
$DAEA: BD  DC12  JSR   EXT    Jump to Subr=>Address $DC12
$DAED: F6  027C  LDAB  EXT    B<=M
$DAF0: 37        PSHB  IMP    =>B;SP<=SP-1
$DAF1: 85  01    BITA  IMM    A&M
$DAF3: 27  05    BEQ   REL    Branch=> $DAFA if Z=1
$DAF5: 86  01    LDAA  IMM    A<=M
$DAF7: B7  027C  STAA  EXT    M<=A
$DAFA: DE  50    LDX   DIR    IX<=M:M+1
$DAFC: A6  01    LDAA  IND    A<=M
$DAFE: 8D  32    BSR   REL    Branch to Subr=> $DB32
$DB00: 33        PULB  IMP    SP<=SP+1;<=B
$DB01: F7  027C  STAB  EXT    M<=B
$DB04: B6  0280  LDAA  EXT    A<=M
$DB07: 85  01    BITA  IMM    A&M
$DB09: 27  1D    BEQ   REL    Branch=> $DB28 if Z=1
$DB0B: FE  0274  LDX   EXT    IX<=M:M+1
$DB0E: BD  DC56  JSR   EXT    Jump to Subr=>Address $DC56
$DB11: 81  01    CMPA  IMM    A-M
$DB13: 25  13    BCS   REL    Branch=> $DB28 if C=1
$DB15: 26  18    BNE   REL    Branch=> $DB2F if Z=0
$DB17: FE  0274  LDX   EXT    IX<=M:M+1
$DB1A: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DB1B: 09        DEX   IMP    IX<=IX-1
$DB1C: FF  0274  STX   EXT    M:M+1<=IX
$DB1F: BD  DEA4  JSR   EXT    Jump to Subr=>Address $DEA4
$DB22: 38        PULX  IMP    SP<=SP-2;<=IX
$DB23: FF  0274  STX   EXT    M:M+1<=IX
$DB26: 20  07    BRA   REL    Branch=> $DB2F if (Always)
$DB28: DE  50    LDX   DIR    IX<=M:M+1
$DB2A: A6  01    LDAA  IND    A<=M
$DB2C: BD  DE7A  JSR   EXT    Jump to Subr=>Address $DE7A
$DB2F: 7E  D930  JMP   EXT    Jump=>Address $D930

'****  VSEDIT  ****
$DB32: CE  DF9A  LDX   IMM    IX<=M:M+1
$DB35: 08        INX   IMP    IX<=IX+1
$DB36: 08        INX   IMP    IX<=IX+1
$DB37: 08        INX   IMP    IX<=IX+1
$DB38: E6  00    LDAB  IND    B<=M
$DB3A: 27  03    BEQ   REL    Branch=> $DB3F if Z=1
$DB3C: 11        CBA   IMP    A-B
$DB3D: 26  F6    BNE   REL    Branch=> $DB35 if Z=0
$DB3F: EE  01    LDX   IND    IX<=M:M+1
$DB41: 6E  00    JMP   IND    Jump=>Address

'****  TAB  ****
$DB43: BD  DE2E  JSR   EXT    Jump to Subr=>Address $DE2E
$DB46: 84  07    ANDA  IMM    A<=A&M
$DB48: 36        PSHA  IMP    =>A;SP<=SP-1
$DB49: 8D  60    BSR   REL    Branch to Subr=> $DBAB
$DB4B: 32        PULA  IMP    SP<=SP+1;<=A
$DB4C: 4C        INCA  IMP    M<=M+1
$DB4D: 81  08    CMPA  IMM    A-M
$DB4F: 26  F7    BNE   REL    Branch=> $DB48 if Z=0
$DB51: BD  DE2E  JSR   EXT    Jump to Subr=>Address $DE2E
$DB54: 81  08    CMPA  IMM    A-M
$DB56: 24  03    BCC   REL    Branch=> $DB5B if C=0
$DB58: 7F  0278  CLR   EXT    M<=0
$DB5B: 39        RTS   IMP    Return from Subroutine

'****  CURLFT  ****
$DB5C: BD  DE2E  JSR   EXT    Jump to Subr=>Address $DE2E
$DB5F: 4D        TSTA  IMP    M-0
$DB60: 27  26    BEQ   REL    Branch=> $DB88 if Z=1
$DB62: B6  0278  LDAA  EXT    A<=M
$DB65: B1  027C  CMPA  EXT    A-M
$DB68: 24  1A    BCC   REL    Branch=> $DB84 if C=0
$DB6A: FE  0274  LDX   EXT    IX<=M:M+1
$DB6D: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DB6E: B6  027A  LDAA  EXT    A<=M
$DB71: 36        PSHA  IMP    =>A;SP<=SP-1
$DB72: 86  01    LDAA  IMM    A<=M
$DB74: B7  027A  STAA  EXT    M<=A
$DB77: BD  DC2F  JSR   EXT    Jump to Subr=>Address $DC2F
$DB7A: 32        PULA  IMP    SP<=SP+1;<=A
$DB7B: B7  027A  STAA  EXT    M<=A
$DB7E: 38        PULX  IMP    SP<=SP-2;<=IX
$DB7F: BC  0274  CPX   EXT    IX-M:M+1
$DB82: 26  03    BNE   REL    Branch=> $DB87 if Z=0
$DB84: 7A  0278  DEC   EXT    M<=M-1
$DB87: 39        RTS   IMP    Return from Subroutine
$DB88: 8D  71    BSR   REL    Branch to Subr=> $DBFB
$DB8A: 86  13    LDAA  IMM    A<=M
$DB8C: B7  0278  STAA  EXT    M<=A

'****  CURUP  ****
$DB8F: CE  DC04  LDX   IMM    IX<=M:M+1
$DB92: B6  0279  LDAA  EXT    A<=M
$DB95: 27  04    BEQ   REL    Branch=> $DB9B if Z=1
$DB97: 7A  0279  DEC   EXT    M<=M-1
$DB9A: 39        RTS   IMP    Return from Subroutine
$DB9B: B6  027B  LDAA  EXT    A<=M
$DB9E: 36        PSHA  IMP    =>A;SP<=SP-1
$DB9F: 86  01    LDAA  IMM    A<=M
$DBA1: B7  027B  STAA  EXT    M<=A
$DBA4: AD  00    JSR   IND    Jump to Subr=>Address
$DBA6: 32        PULA  IMP    SP<=SP+1;<=A
$DBA7: B7  027B  STAA  EXT    M<=A
$DBAA: 39        RTS   IMP    Return from Subroutine

'****  CURRGT  ****
$DBAB: BD  DE2E  JSR   EXT    Jump to Subr=>Address $DE2E
$DBAE: B1  0276  CMPA  EXT    A-M
$DBB1: 27  27    BEQ   REL    Branch=> $DBDA if Z=1
$DBB3: 86  13    LDAA  IMM    A<=M
$DBB5: B0  0278  SUBA  EXT    A<=A-M
$DBB8: B1  027C  CMPA  EXT    A-M
$DBBB: 24  19    BCC   REL    Branch=> $DBD6 if C=0
$DBBD: FE  0274  LDX   EXT    IX<=M:M+1
$DBC0: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DBC1: B6  027A  LDAA  EXT    A<=M
$DBC4: 36        PSHA  IMP    =>A;SP<=SP-1
$DBC5: 86  01    LDAA  IMM    A<=M
$DBC7: B7  027A  STAA  EXT    M<=A
$DBCA: 8D  6F    BSR   REL    Branch to Subr=> $DC3B
$DBCC: 32        PULA  IMP    SP<=SP+1;<=A
$DBCD: B7  027A  STAA  EXT    M<=A
$DBD0: 38        PULX  IMP    SP<=SP-2;<=IX
$DBD1: BC  0274  CPX   EXT    IX-M:M+1
$DBD4: 26  03    BNE   REL    Branch=> $DBD9 if Z=0
$DBD6: 7C  0278  INC   EXT    M<=M+1
$DBD9: 39        RTS   IMP    Return from Subroutine
$DBDA: 8D  1A    BSR   REL    Branch to Subr=> $DBF6
$DBDC: 7F  0278  CLR   EXT    M<=0

'****  CURDWN  ****
$DBDF: CE  DC1B  LDX   IMM    IX<=M:M+1
$DBE2: B6  0279  LDAA  EXT    A<=M
$DBE5: 81  03    CMPA  IMM    A-M
$DBE7: 27  B2    BEQ   REL    Branch=> $DB9B if Z=1
$DBE9: 7C  0279  INC   EXT    M<=M+1
$DBEC: 39        RTS   IMP    Return from Subroutine

'****  BOTSCR  ****
$DBED: 8D  64    BSR   REL    Branch to Subr=> $DC53
$DBEF: F6  0277  LDAB  EXT    B<=M
$DBF2: C0  03    SUBB  IMM    B<=B-M
$DBF4: 20  16    BRA   REL    Branch=> $DC0C if (Always)

'****  LFTSCR  ****
$DBF6: 8D  5B    BSR   REL    Branch to Subr=> $DC53
$DBF8: 4F        CLRA  IMP    M<=0
$DBF9: 20  11    BRA   REL    Branch=> $DC0C if (Always)

'****  RGTSCR  ****
$DBFB: 8D  56    BSR   REL    Branch to Subr=> $DC53
$DBFD: B6  0276  LDAA  EXT    A<=M
$DC00: 80  13    SUBA  IMM    A<=A-M
$DC02: 20  08    BRA   REL    Branch=> $DC0C if (Always)

'****  SCRUP  ****
$DC04: 8D  4D    BSR   REL    Branch to Subr=> $DC53
$DC06: F0  027B  SUBB  EXT    B<=B-M
$DC09: 24  01    BCC   REL    Branch=> $DC0C if C=0
$DC0B: 5F        CLRB  IMP    M<=0
$DC0C: BD  DC9B  JSR   EXT    Jump to Subr=>Address $DC9B
$DC0F: FF  0274  STX   EXT    M:M+1<=IX
$DC12: B6  0280  LDAA  EXT    A<=M
$DC15: 8A  80    ORAA  IMM    A<=A|M
$DC17: B7  0280  STAA  EXT    M<=A
$DC1A: 39        RTS   IMP    Return from Subroutine

'**** SCRDWN  ****
$DC1B: 8D  36    BSR   REL    Branch to Subr=> $DC53
$DC1D: CB  03    ADDB  IMM    B<=B+M
$DC1F: FB  027B  ADDB  EXT    B<=B+M
$DC22: 25  C9    BCS   REL    Branch=> $DBED if C=1
$DC24: F1  0277  CMPB  EXT    B-M
$DC27: 22  C4    BHI   REL    Branch=> $DBED if C|Z=0
$DC29: C0  03    SUBB  IMM    B<=B-M
$DC2B: 20  DF    BRA   REL    Branch=> $DC0C if (Always)

'****  SCRLFT  ****
$DC2D: 8D  1E    BSR   REL    Branch to Subr=> $DC4D
$DC2F: 8D  22    BSR   REL    Branch to Subr=> $DC53
$DC31: B0  027A  SUBA  EXT    A<=A-M
$DC34: 24  D6    BCC   REL    Branch=> $DC0C if C=0
$DC36: 4F        CLRA  IMP    M<=0
$DC37: 20  D3    BRA   REL    Branch=> $DC0C if (Always)

'****  SCRRGT  ****
$DC39: 8D  12    BSR   REL    Branch to Subr=> $DC4D
$DC3B: 8D  16    BSR   REL    Branch to Subr=> $DC53
$DC3D: 8B  13    ADDA  IMM    A<=A+M
$DC3F: BB  027A  ADDA  EXT    A<=A+M
$DC42: 25  B7    BCS   REL    Branch=> $DBFB if C=1
$DC44: B1  0276  CMPA  EXT    A-M
$DC47: 22  B2    BHI   REL    Branch=> $DBFB if C|Z=0
$DC49: 80  13    SUBA  IMM    A<=A-M
$DC4B: 20  BF    BRA   REL    Branch=> $DC0C if (Always)
$DC4D: 86  09    LDAA  IMM    A<=M
$DC4F: B7  0278  STAA  EXT    M<=A
$DC52: 39        RTS   IMP    Return from Subroutine

'****  FINEDP  ****
$DC53: FE  0274  LDX   EXT    IX<=M:M+1

'****  ADDCOR  ****
$DC56: 18        XGDX  IMP    A:B<==>IX
$DC57: B3  0270  SUBD  EXT    A:B<=A:B-M:M+1
$DC5A: 18        XGDX  IMP    A:B<==>IX
$DC5B: 4F        CLRA  IMP    M<=0
$DC5C: F6  0276  LDAB  EXT    B<=M
$DC5F: 5C        INCB  IMP    M<=M+1
$DC60: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DC61: 37        PSHB  IMP    =>B;SP<=SP-1
$DC62: 36        PSHA  IMP    =>A;SP<=SP-1
$DC63: 34        DES   IMP    SP<=SP-1
$DC64: 30        TSX   IMP    IX<=SP+1
$DC65: 86  01    LDAA  IMM    A<=M
$DC67: 6D  01    TST   IND    M-0
$DC69: 2B  0B    BMI   REL    Branch=> $DC76 if N=1
$DC6B: 4C        INCA  IMP    M<=M+1
$DC6C: 68  02    ASL   IND    C<=########<=0
$DC6E: 69  01    ROL   IND    C<=########<=C
$DC70: 2B  04    BMI   REL    Branch=> $DC76 if N=1
$DC72: 81  11    CMPA  IMM    A-M
$DC74: 26  F5    BNE   REL    Branch=> $DC6B if Z=0
$DC76: A7  00    STAA  IND    M<=A
$DC78: EC  03    LDD   IND    A:B<=M:M+1
$DC7A: 6F  03    CLR   IND    M<=0
$DC7C: 6F  04    CLR   IND    M<=0
$DC7E: A3  01    SUBD  IND    A:B<=A:B-M:M+1
$DC80: 24  05    BCC   REL    Branch=> $DC87 if C=0
$DC82: E3  01    ADDD  IND    A:B<=A:B+M:M+1
$DC84: 0C        CLC   IMP    C<=0
$DC85: 20  01    BRA   REL    Branch=> $DC88 if (Always)
$DC87: 0D        SEC   IMP    C<=1
$DC88: 69  04    ROL   IND    C<=########<=C
$DC8A: 69  03    ROL   IND    C<=########<=C
$DC8C: 64  01    LSR   IND    0=>########=>C
$DC8E: 66  02    ROR   IND    C=>########=>C
$DC90: 6A  00    DEC   IND    M<=M-1
$DC92: 26  EA    BNE   REL    Branch=> $DC7E if Z=0
$DC94: 17        TBA   IMP    A<=B
$DC95: 31        INS   IMP    SP<=SP+1
$DC96: 31        INS   IMP    SP<=SP+1
$DC97: 31        INS   IMP    SP<=SP+1
$DC98: 31        INS   IMP    SP<=SP+1
$DC99: 33        PULB  IMP    SP<=SP+1;<=B
$DC9A: 39        RTS   IMP    Return from Subroutine

'****  CORADD  ****
$DC9B: 36        PSHA  IMP    =>A;SP<=SP-1
$DC9C: B6  0276  LDAA  EXT    A<=M
$DC9F: 4C        INCA  IMP    M<=M+1
$DCA0: 3D        MUL   IMP    A:B<=A*B
$DCA1: F3  0270  ADDD  EXT    A:B<=A:B+M:M+1
$DCA4: 18        XGDX  IMP    A:B<==>IX
$DCA5: 33        PULB  IMP    SP<=SP+1;<=B
$DCA6: 3A        ABX   IMP    IX<=IX+B
$DCA7: 39        RTS   IMP    Return from Subroutine

'****  HOME  ****
$DCA8: FE  0270  LDX   EXT    IX<=M:M+1
$DCAB: FF  0274  STX   EXT    M:M+1<=IX
$DCAE: 7E  D8B7  JMP   EXT    Jump=>Address $D8B7

'****  CLEAR  ****
$DCB1: 8D  F5    BSR   REL    Branch to Subr=> $DCA8
$DCB3: 8D  04    BSR   REL    Branch to Subr=> $DCB9

'**** LCDCLR  ****
$DCB5: 5F        CLRB  IMP    M<=0
$DCB6: 7E  FF49  JMP   EXT    Jump=>Address $FF49

'****  CTEDS  ****
$DCB9: FE  0272  LDX   EXT    IX<=M:M+1
$DCBC: DF  5A    STX   DIR    M:M+1<=IX
$DCBE: BD  DE38  JSR   EXT    Jump to Subr=>Address $DE38
$DCC1: 8D  16    BSR   REL    Branch to Subr=> $DCD9
$DCC3: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DCC4: BD  DE2E  JSR   EXT    Jump to Subr=>Address $DE2E
$DCC7: 38        PULX  IMP    SP<=SP-2;<=IX
$DCC8: 3A        ABX   IMP    IX<=IX+B
$DCC9: 08        INX   IMP    IX<=IX+1
$DCCA: 6D  00    TST   IND    M-0
$DCCC: 2E  04    BGT   REL    Branch=> $DCD2 if Z|(N^V)=0
$DCCE: 6F  00    CLR   IND    M<=0
$DCD0: 20  F7    BRA   REL    Branch=> $DCC9 if (Always)
$DCD2: 39        RTS   IMP    Return from Subroutine

'****  CTEOL  ****
$DCD3: BD  DE48  JSR   EXT    Jump to Subr=>Address $DE48
$DCD6: BD  DE38  JSR   EXT    Jump to Subr=>Address $DE38
$DCD9: 86  20    LDAA  IMM    A<=M
$DCDB: A7  00    STAA  IND    M<=A
$DCDD: 08        INX   IMP    IX<=IX+1
$DCDE: 9C  5A    CPX   DIR    IX-M:M+1
$DCE0: 23  F7    BLS   REL    Branch=> $DCD9 if C|Z=1
$DCE2: 39        RTS   IMP    Return from Subroutine

'****  INSERT  ****
$DCE3: 96  5D    LDAA  DIR    A<=M
$DCE5: B1  0277  CMPA  EXT    A-M
$DCE8: 22  2B    BHI   REL    Branch=> $DD15 if C|Z=0
$DCEA: BD  DDE6  JSR   EXT    Jump to Subr=>Address $DDE6
$DCED: BD  DE48  JSR   EXT    Jump to Subr=>Address $DE48
$DCF0: DE  5A    LDX   DIR    IX<=M:M+1
$DCF2: A6  00    LDAA  IND    A<=M
$DCF4: 81  20    CMPA  IMM    A-M
$DCF6: 26  EB    BNE   REL    Branch=> $DCE3 if Z=0
$DCF8: BD  DE38  JSR   EXT    Jump to Subr=>Address $DE38
$DCFB: 9C  5A    CPX   DIR    IX-M:M+1
$DCFD: 27  E4    BEQ   REL    Branch=> $DCE3 if Z=1
$DCFF: E6  00    LDAB  IND    B<=M
$DD01: 6F  00    CLR   IND    M<=0
$DD03: DE  5A    LDX   DIR    IX<=M:M+1
$DD05: 09        DEX   IMP    IX<=IX-1
$DD06: A6  00    LDAA  IND    A<=M
$DD08: 27  04    BEQ   REL    Branch=> $DD0E if Z=1
$DD0A: A7  01    STAA  IND    M<=A
$DD0C: 20  F7    BRA   REL    Branch=> $DD05 if (Always)
$DD0E: E7  01    STAB  IND    M<=B
$DD10: C6  20    LDAB  IMM    B<=M
$DD12: E7  00    STAB  IND    M<=B
$DD14: 39        RTS   IMP    Return from Subroutine
$DD15: BD  DDB6  JSR   EXT    Jump to Subr=>Address $DDB6
$DD18: BD  DB5C  JSR   EXT    Jump to Subr=>Address $DB5C
$DD1B: F6  0277  LDAB  EXT    B<=M
$DD1E: 5A        DECB  IMP    M<=M-1
$DD1F: 8D  57    BSR   REL    Branch to Subr=> $DD78
$DD21: BD  DB8F  JSR   EXT    Jump to Subr=>Address $DB8F
$DD24: 20  C7    BRA   REL    Branch=> $DCED if (Always)

'****  DELETE  ****
$DD26: BD  DE48  JSR   EXT    Jump to Subr=>Address $DE48
$DD29: BD  DE38  JSR   EXT    Jump to Subr=>Address $DE38
$DD2C: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DD2D: 9C  58    CPX   DIR    IX-M:M+1
$DD2F: 27  06    BEQ   REL    Branch=> $DD37 if Z=1
$DD31: 38        PULX  IMP    SP<=SP-2;<=IX
$DD32: 09        DEX   IMP    IX<=IX-1
$DD33: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DD34: BD  DB5C  JSR   EXT    Jump to Subr=>Address $DB5C
$DD37: DE  5A    LDX   DIR    IX<=M:M+1
$DD39: A6  01    LDAA  IND    A<=M
$DD3B: 6F  01    CLR   IND    M<=0
$DD3D: 38        PULX  IMP    SP<=SP-2;<=IX
$DD3E: 36        PSHA  IMP    =>A;SP<=SP-1
$DD3F: A6  01    LDAA  IND    A<=M
$DD41: 27  05    BEQ   REL    Branch=> $DD48 if Z=1
$DD43: A7  00    STAA  IND    M<=A
$DD45: 08        INX   IMP    IX<=IX+1
$DD46: 20  F7    BRA   REL    Branch=> $DD3F if (Always)
$DD48: C6  20    LDAB  IMM    B<=M
$DD4A: E7  00    STAB  IND    M<=B
$DD4C: 32        PULA  IMP    SP<=SP+1;<=A
$DD4D: A7  01    STAA  IND    M<=A
$DD4F: 39        RTS   IMP    Return from Subroutine

'****  ORDCHA  ****
$DD50: 81  20    CMPA  IMM    A-M
$DD52: 25  FB    BCS   REL    Branch=> $DD4F if C=1
$DD54: F6  0280  LDAB  EXT    B<=M
$DD57: C4  7F    ANDB  IMM    B<=B&M
$DD59: F7  0280  STAB  EXT    M<=B
$DD5C: 36        PSHA  IMP    =>A;SP<=SP-1
$DD5D: BD  DE38  JSR   EXT    Jump to Subr=>Address $DE38
$DD60: 32        PULA  IMP    SP<=SP+1;<=A
$DD61: A7  00    STAA  IND    M<=A
$DD63: BD  DE2E  JSR   EXT    Jump to Subr=>Address $DE2E
$DD66: B1  0276  CMPA  EXT    A-M
$DD69: 26  15    BNE   REL    Branch=> $DD80 if Z=0
$DD6B: F1  0277  CMPB  EXT    B-M
$DD6E: 26  08    BNE   REL    Branch=> $DD78 if Z=0
$DD70: 37        PSHB  IMP    =>B;SP<=SP-1
$DD71: 8D  43    BSR   REL    Branch to Subr=> $DDB6
$DD73: BD  DC12  JSR   EXT    Jump to Subr=>Address $DC12
$DD76: 33        PULB  IMP    SP<=SP+1;<=B
$DD77: 5A        DECB  IMP    M<=M-1
$DD78: FE  0272  LDX   EXT    IX<=M:M+1
$DD7B: 3A        ABX   IMP    IX<=IX+B
$DD7C: 08        INX   IMP    IX<=IX+1
$DD7D: BD  DE29  JSR   EXT    Jump to Subr=>Address $DE29
$DD80: 7E  DBAB  JMP   EXT    Jump=>Address $DBAB

'****  CR  ****
$DD83: BD  DBF6  JSR   EXT    Jump to Subr=>Address $DBF6
$DD86: BD  DE2E  JSR   EXT    Jump to Subr=>Address $DE2E
$DD89: 7F  0278  CLR   EXT    M<=0
$DD8C: FE  0272  LDX   EXT    IX<=M:M+1
$DD8F: 3A        ABX   IMP    IX<=IX+B
$DD90: 6D  02    TST   IND    M-0
$DD92: 2E  02    BGT   REL    Branch=> $DD96 if Z|(N^V)=0
$DD94: 6F  02    CLR   IND    M<=0
$DD96: 39        RTS   IMP    Return from Subroutine

'****  CRLF  ****
$DD97: 8D  EA    BSR   REL    Branch to Subr=> $DD83

'****  LF  ****
$DD99: BD  DE2E  JSR   EXT    Jump to Subr=>Address $DE2E
$DD9C: F1  0277  CMPB  EXT    B-M
$DD9F: 26  02    BNE   REL    Branch=> $DDA3 if Z=0
$DDA1: 20  13    BRA   REL    Branch=> $DDB6 if (Always)
$DDA3: 7E  DBDF  JMP   EXT    Jump=>Address $DBDF

'****  LFTMSC  ****
$DDA6: BD  DBF6  JSR   EXT    Jump to Subr=>Address $DBF6
$DDA9: 7F  0278  CLR   EXT    M<=0
$DDAC: 39        RTS   IMP    Return from Subroutine

'****  RGTMSC  ****
$DDAD: BD  DBFB  JSR   EXT    Jump to Subr=>Address $DBFB
$DDB0: 86  13    LDAA  IMM    A<=M
$DDB2: B7  0278  STAA  EXT    M<=A
$DDB5: 39        RTS   IMP    Return from Subroutine

'****  VSUP  ****
$DDB6: FE  0272  LDX   EXT    IX<=M:M+1
$DDB9: 6F  01    CLR   IND    M<=0
$DDBB: FE  0270  LDX   EXT    IX<=M:M+1
$DDBE: F6  0276  LDAB  EXT    B<=M
$DDC1: 5C        INCB  IMP    M<=M+1
$DDC2: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DDC3: 3A        ABX   IMP    IX<=IX+B
$DDC4: A6  00    LDAA  IND    A<=M
$DDC6: 27  07    BEQ   REL    Branch=> $DDCF if Z=1
$DDC8: 38        PULX  IMP    SP<=SP-2;<=IX
$DDC9: A7  00    STAA  IND    M<=A
$DDCB: 08        INX   IMP    IX<=IX+1
$DDCC: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DDCD: 20  F4    BRA   REL    Branch=> $DDC3 if (Always)
$DDCF: FE  0272  LDX   EXT    IX<=M:M+1
$DDD2: DF  5A    STX   DIR    M:M+1<=IX
$DDD4: 38        PULX  IMP    SP<=SP-2;<=IX
$DDD5: BD  DCD9  JSR   EXT    Jump to Subr=>Address $DCD9
$DDD8: 6F  00    CLR   IND    M<=0
$DDDA: 08        INX   IMP    IX<=IX+1
$DDDB: A6  01    LDAA  IND    A<=M
$DDDD: 2E  04    BGT   REL    Branch=> $DDE3 if Z|(N^V)=0
$DDDF: A7  00    STAA  IND    M<=A
$DDE1: 20  F7    BRA   REL    Branch=> $DDDA if (Always)
$DDE3: 6F  00    CLR   IND    M<=0
$DDE5: 39        RTS   IMP    Return from Subroutine

'****  VSDWN  ****
$DDE6: DE  5A    LDX   DIR    IX<=M:M+1
$DDE8: A6  00    LDAA  IND    A<=M
$DDEA: 36        PSHA  IMP    =>A;SP<=SP-1
$DDEB: 6F  00    CLR   IND    M<=0
$DDED: 4F        CLRA  IMP    M<=0
$DDEE: F6  0276  LDAB  EXT    B<=M
$DDF1: 5C        INCB  IMP    M<=M+1
$DDF2: DD  52    STD   DIR    M:M+1<=A:B
$DDF4: FC  0272  LDD   EXT    A:B<=M:M+1
$DDF7: 93  52    SUBD  DIR    A:B<=A:B-M:M+1
$DDF9: 18        XGDX  IMP    A:B<==>IX
$DDFA: F6  0276  LDAB  EXT    B<=M
$DDFD: 5C        INCB  IMP    M<=M+1
$DDFE: A6  00    LDAA  IND    A<=M
$DE00: 27  08    BEQ   REL    Branch=> $DE0A if Z=1
$DE02: 09        DEX   IMP    IX<=IX-1
$DE03: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DE04: 3A        ABX   IMP    IX<=IX+B
$DE05: A7  01    STAA  IND    M<=A
$DE07: 38        PULX  IMP    SP<=SP-2;<=IX
$DE08: 20  F4    BRA   REL    Branch=> $DDFE if (Always)
$DE0A: 32        PULA  IMP    SP<=SP+1;<=A
$DE0B: A7  00    STAA  IND    M<=A
$DE0D: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DE0E: 3A        ABX   IMP    IX<=IX+B
$DE0F: DF  5A    STX   DIR    M:M+1<=IX
$DE11: 38        PULX  IMP    SP<=SP-2;<=IX
$DE12: BD  DCDD  JSR   EXT    Jump to Subr=>Address $DCDD
$DE15: FE  0272  LDX   EXT    IX<=M:M+1
$DE18: F6  0277  LDAB  EXT    B<=M
$DE1B: 3A        ABX   IMP    IX<=IX+B
$DE1C: D0  5D    SUBB  DIR    B<=B-M
$DE1E: 17        TBA   IMP    A<=B
$DE1F: 27  08    BEQ   REL    Branch=> $DE29 if Z=1
$DE21: E6  00    LDAB  IND    B<=M
$DE23: E7  01    STAB  IND    M<=B
$DE25: 09        DEX   IMP    IX<=IX-1
$DE26: 4A        DECA  IMP    M<=M-1
$DE27: 26  F8    BNE   REL    Branch=> $DE21 if Z=0
$DE29: 86  FF    LDAA  IMM    A<=M
$DE2B: A7  01    STAA  IND    M<=A
$DE2D: 39        RTS   IMP    Return from Subroutine

'****  CURPOT  ****
$DE2E: BD  DC53  JSR   EXT    Jump to Subr=>Address $DC53
$DE31: BB  0278  ADDA  EXT    A<=A+M
$DE34: FB  0279  ADDB  EXT    B<=B+M
$DE37: 39        RTS   IMP    Return from Subroutine

'****  CURADD  ****
$DE38: FC  0278  LDD   EXT    A:B<=M:M+1
$DE3B: 36        PSHA  IMP    =>A;SP<=SP-1
$DE3C: B6  0276  LDAA  EXT    A<=M
$DE3F: 4C        INCA  IMP    M<=M+1
$DE40: 3D        MUL   IMP    A:B<=A*B
$DE41: F3  0274  ADDD  EXT    A:B<=A:B+M:M+1
$DE44: 18        XGDX  IMP    A:B<==>IX
$DE45: 33        PULB  IMP    SP<=SP+1;<=B
$DE46: 3A        ABX   IMP    IX<=IX+B
$DE47: 39        RTS   IMP    Return from Subroutine

'****  LINADD  ****
$DE48: 8D  E4    BSR   REL    Branch to Subr=> $DE2E
$DE4A: FE  0272  LDX   EXT    IX<=M:M+1
$DE4D: 3A        ABX   IMP    IX<=IX+B
$DE4E: 08        INX   IMP    IX<=IX+1
$DE4F: A6  00    LDAA  IND    A<=M
$DE51: 27  06    BEQ   REL    Branch=> $DE59 if Z=1
$DE53: 5A        DECB  IMP    M<=M-1
$DE54: 09        DEX   IMP    IX<=IX-1
$DE55: A6  00    LDAA  IND    A<=M
$DE57: 26  FA    BNE   REL    Branch=> $DE53 if Z=0
$DE59: D7  5C    STAB  DIR    M<=B
$DE5B: 5C        INCB  IMP    M<=M+1
$DE5C: 08        INX   IMP    IX<=IX+1
$DE5D: 6D  00    TST   IND    M-0
$DE5F: 2B  FA    BMI   REL    Branch=> $DE5B if N=1
$DE61: D7  5D    STAB  DIR    M<=B
$DE63: B6  0276  LDAA  EXT    A<=M
$DE66: 4C        INCA  IMP    M<=M+1
$DE67: 36        PSHA  IMP    =>A;SP<=SP-1
$DE68: 3D        MUL   IMP    A:B<=A*B
$DE69: F3  0270  ADDD  EXT    A:B<=A:B+M:M+1
$DE6C: 18        XGDX  IMP    A:B<==>IX
$DE6D: 09        DEX   IMP    IX<=IX-1
$DE6E: DF  5A    STX   DIR    M:M+1<=IX
$DE70: 32        PULA  IMP    SP<=SP+1;<=A
$DE71: D6  5C    LDAB  DIR    B<=M
$DE73: 3D        MUL   IMP    A:B<=A*B
$DE74: F3  0270  ADDD  EXT    A:B<=A:B+M:M+1
$DE77: DD  58    STD   DIR    M:M+1<=A:B
$DE79: 39        RTS   IMP    Return from Subroutine

'****  DISVS  ****
$DE7A: CE  0280  LDX   IMM    IX<=M:M+1
$DE7D: 81  16    CMPA  IMM    A-M
$DE7F: 26  05    BNE   REL    Branch=> $DE86 if Z=0
$DE81: 62  4000  OIM   IND    M<=IM|M
$DE84: 20  1A    BRA   REL    Branch=> $DEA0 if (Always)
$DE86: 81  17    CMPA  IMM    A-M
$DE88: 26  09    BNE   REL    Branch=> $DE93 if Z=0
$DE8A: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DE8B: BD  DF40  JSR   EXT    Jump to Subr=>Address $DF40
$DE8E: 38        PULX  IMP    SP<=SP-2;<=IX
$DE8F: 61  BF00  AIM   IND    M<=IM&M
$DE92: 39        RTS   IMP    Return from Subroutine
$DE93: F6  0280  LDAB  EXT    B<=M
$DE96: C5  80    BITB  IMM    B&M
$DE98: 26  0A    BNE   REL    Branch=> $DEA4 if Z=0
$DE9A: FE  027E  LDX   EXT    IX<=M:M+1
$DE9D: BD  FF4C  JSR   EXT    Jump to Subr=>Address $FF4C
$DEA0: BD  DF1C  JSR   EXT    Jump to Subr=>Address $DF1C
$DEA3: 39        RTS   IMP    Return from Subroutine
$DEA4: B6  0280  LDAA  EXT    A<=M
$DEA7: 84  10    ANDA  IMM    A<=A&M
$DEA9: 27  18    BEQ   REL    Branch=> $DEC3 if Z=1
$DEAB: 86  09    LDAA  IMM    A<=M
$DEAD: B0  027D  SUBA  EXT    A<=A-M
$DEB0: 27  11    BEQ   REL    Branch=> $DEC3 if Z=1
$DEB2: CE  4FFF  LDX   IMM    IX<=M:M+1
$DEB5: 09        DEX   IMP    IX<=IX-1
$DEB6: 26  FD    BNE   REL    Branch=> $DEB5 if Z=0
$DEB8: 4A        DECA  IMP    M<=M-1
$DEB9: 26  F7    BNE   REL    Branch=> $DEB2 if Z=0
$DEBB: B6  0280  LDAA  EXT    A<=M
$DEBE: 84  EF    ANDA  IMM    A<=A&M
$DEC0: B7  0280  STAA  EXT    M<=A
$DEC3: FE  0278  LDX   EXT    IX<=M:M+1
$DEC6: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DEC7: CE  021F  LDX   IMM    IX<=M:M+1
$DECA: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DECB: 7F  0057  CLR   EXT    M<=0
$DECE: 4F        CLRA  IMP    M<=0
$DECF: 5F        CLRB  IMP    M<=0
$DED0: FD  027E  STD   EXT    M:M+1<=A:B
$DED3: FE  027E  LDX   EXT    IX<=M:M+1
$DED6: FF  0278  STX   EXT    M:M+1<=IX
$DED9: BD  DE38  JSR   EXT    Jump to Subr=>Address $DE38
$DEDC: A6  00    LDAA  IND    A<=M
$DEDE: 38        PULX  IMP    SP<=SP-2;<=IX
$DEDF: 08        INX   IMP    IX<=IX+1
$DEE0: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DEE1: A1  00    CMPA  IND    A-M
$DEE3: 27  28    BEQ   REL    Branch=> $DF0D if Z=1
$DEE5: 7C  0057  INC   EXT    M<=M+1
$DEE8: A7  00    STAA  IND    M<=A
$DEEA: FE  027E  LDX   EXT    IX<=M:M+1
$DEED: BD  FF5B  JSR   EXT    Jump to Subr=>Address $FF5B
$DEF0: FF  027E  STX   EXT    M:M+1<=IX
$DEF3: 8C  0000  CPX   IMM    IX-M:M+1
$DEF6: 26  DB    BNE   REL    Branch=> $DED3 if Z=0
$DEF8: 96  57    LDAA  DIR    A<=M
$DEFA: 81  02    CMPA  IMM    A-M
$DEFC: 2B  08    BMI   REL    Branch=> $DF06 if N=1
$DEFE: 86  10    LDAA  IMM    A<=M
$DF00: BA  0280  ORAA  EXT    A<=A|M
$DF03: B7  0280  STAA  EXT    M<=A
$DF06: 38        PULX  IMP    SP<=SP-2;<=IX
$DF07: 38        PULX  IMP    SP<=SP-2;<=IX
$DF08: FF  0278  STX   EXT    M:M+1<=IX
$DF0B: 20  93    BRA   REL    Branch=> $DEA0 if (Always)
$DF0D: FC  027E  LDD   EXT    A:B<=M:M+1
$DF10: 4C        INCA  IMP    M<=M+1
$DF11: 81  14    CMPA  IMM    A-M
$DF13: 26  04    BNE   REL    Branch=> $DF19 if Z=0
$DF15: 4F        CLRA  IMP    M<=0
$DF16: 5C        INCB  IMP    M<=M+1
$DF17: C4  03    ANDB  IMM    B<=B&M
$DF19: 18        XGDX  IMP    A:B<==>IX
$DF1A: 20  D4    BRA   REL    Branch=> $DEF0 if (Always)

'****  CURSET  ****
$DF1C: B6  0280  LDAA  EXT    A<=M
$DF1F: 85  40    BITA  IMM    A&M
$DF21: 27  1C    BEQ   REL    Branch=> $DF3F if Z=1
$DF23: 8A  20    ORAA  IMM    A<=A|M
$DF25: B7  0280  STAA  EXT    M<=A
$DF28: 36        PSHA  IMP    =>A;SP<=SP-1
$DF29: FE  0278  LDX   EXT    IX<=M:M+1
$DF2C: FF  027E  STX   EXT    M:M+1<=IX
$DF2F: 3C        PSHX  IMP    =>IX;SP<=SP-2
$DF30: BD  DE38  JSR   EXT    Jump to Subr=>Address $DE38
$DF33: A6  00    LDAA  IND    A<=M
$DF35: 38        PULX  IMP    SP<=SP-2;<=IX
$DF36: BD  FF4C  JSR   EXT    Jump to Subr=>Address $FF4C
$DF39: 32        PULA  IMP    SP<=SP+1;<=A
$DF3A: 84  DF    ANDA  IMM    A<=A&M
$DF3C: B7  0280  STAA  EXT    M<=A
$DF3F: 39        RTS   IMP    Return from Subroutine

'****  CURRST  ****
$DF40: B6  0280  LDAA  EXT    A<=M
$DF43: 84  40    ANDA  IMM    A<=A&M
$DF45: 27  F8    BEQ   REL    Branch=> $DF3F if Z=1
$DF47: BD  DE38  JSR   EXT    Jump to Subr=>Address $DE38
$DF4A: A6  00    LDAA  IND    A<=M
$DF4C: FE  027E  LDX   EXT    IX<=M:M+1
$DF4F: 7E  FF4C  JMP   EXT    Jump=>Address $FF4C

'****  LCD FUNCTION MANAGEMENT JUMP TABLE  ****
$DF52--$DF57:    NUL  DATA          86 D8 51 87 D8 65
$DF58--$DF5F:    NUL  DATA    88 D8 B1 89 D8 58 C0 D9
$DF60--$DF67:    NUL  DATA    38 8A D9 4F C2 D8 BE 8C
$DF68--$DF6F:    NUL  DATA    D9 30 C3 DA 75 8D DA 7D
$DF70--$DF77:    NUL  DATA    C4 DA 82 8E DA 8A C5 DA
$DF78--$DF7F:    NUL  DATA    90 C6 DA 9C C7 D9 57 8F
$DF80--$DF87:    NUL  DATA    D9 77 C8 DA 07 91 DA A3
$DF88--$DF8F:    NUL  DATA    C9 DA 6A 92 DA E1 CA DC
$DF90--$DF97:    NUL  DATA    B5 CB D8 5D 97 DA B7 98
$DF98--$DF9C:    NUL  DATA    DA D4 00 D8 50         

'****  JUMP TABLE  ****
$DF9D--$DF9F     NUL  DATA                   09 DB 43
$DFA0--$DFA7:    NUL  DATA    1E DB 8F 1D DB 5C 1C DB
$DFA8--$DFAF:    NUL  DATA    AB 1F DB DF 10 DC 04 13
$DFB0--$DFB7:    NUL  DATA    DC 2D 04 DC 39 11 DC 1B
$DFB8--$DFBF:    NUL  DATA    01 DD A6 06 DD AD 12 DC
$DFC0--$DFC7:    NUL  DATA    ED 0B DC A8 0C DC B1 1A
$DFC8--$DFCF:    NUL  DATA    DC B9 05 DC D3 08 DD 26
$DFD0--$DFD7:    NUL  DATA    0D DD 83 0A DD 99 00 DD
$DFD8--$DFD8:    NUL  DATA    50                     

' END
$DFD9--$DFDF:    NUL  DATA       FF FF FF FF FF FF FF
$DFE0--$DFE7:    NUL  DATA    FF FF FF FF FF FF FF FF
$DFE8--$DFED:    NUL  DATA    FF FF FF FF FF FF      

$DFEE: 7E  DEA4  JMP   EXT    Jump=>Address $DEA4   'LCRECV
$DFF1: 7E  D7EF  JMP   EXT    Jump=>Address $D7EF   'SCRCHR
$DFF4: 7E  D7A0  JMP   EXT    Jump=>Address $D7A0   'SCRFNC
$DFF7: 7E  D310  JMP   EXT    Jump=>Address $D310   'MON
$DFFA: 7E  D329  JMP   EXT    Jump=>Address $D329   'MONTRP
$DFFD: 7E  D00E  JMP   EXT    Jump=>Address $D00E   'MENU