        ORG     $3380

    ***DISASSEMBLER MODULE***

L3380   LDA     #$00
        STA     L3713
        JMP     L37F4

L3388   BCC     L338E
        LSR     A
        LSR     A
        LSR     A
        LSR     A
L338E   AND     #$0F
        RTS
L3391   LDX     $87
        LDY     $88
        JSR     L366B
        JSR     L3454
        LDA     ($87,X)
        TAY
        LSR     A
        BCC     L33AA
        ROR     A
        BCS     L33B4
        CMP     #$A2
        BEQ     L33B4
        AND     #$87
L33AA   LSR     A
        TAX
        LDA     L346E,X
        JSR     L3388
        BNE     L33B8
L33B4   LDY     #$80
        LDA     #$00
L33B8   TAX
        LDA     L34B2,X
        STA     $82
        AND     #$03
        STA     $83
        TYA
        AND     #$8F
        TAX
        TYA
        LDY     #$03
        CPX     #$8A
        BEQ     L33D8
L33CD   LSR     A
        BCC     L33D8
        LSR     A
L33D1   LSR     A
        ORA     #$20
        DEY
        BNE     L33D1
        INY
L33D8   DEY
        BNE     L33CD
        RTS
L33DC   JSR     L3391
        PHA
L33E0   LDA     ($87),Y
        JSR     L36AF
        LDX     #$01
L33E7   JSR     L3456
        CPY     $83
        INY
        BCC     L33E0
        LDX     #$03
        CPY     #$04
        BCC     L33E7
        PLA
        TAY
        LDA     L34CC,Y
        STA     $80
        LDA     L350C,Y
        STA     $81
L3401   LDA     #$00
        LDY     #$05
L3405   ASL     $81
        ROL     $80
        ROL     A
        DEY
        BNE     L3405
        ADC     #$3F
        JSR     L36C2
        DEX
        BNE     L3401
        JSR     L3454
        LDY     $83
        LDX     #$06
L341C   CPX     #$03
        BEQ     L343C
L3420   ASL     $82
        BCC     L3432
        LDA     L34BF,X
        JSR     L36C2
        LDA     L34C5,X
        BEQ     L3432
        JSR     L36C2
L3432   DEX
        BNE     L341C
        RTS
L3436   DEY
        BMI     L3420
        JSR     L36AF
L343C   LDA     $82
        CMP     #$E8
        LDA     ($87),Y
        BCC     L3436
        JSR     L3462
        TAX
        INX
        BNE     L344C
        INY
L344C   TYA
        JSR     L36AF
        TXA
        JMP     L36AF
L3454   LDX     #$03
L3456   LDA     #$20
        JSR     L36C2
        DEX
        BNE     L3456
        RTS
L345F   SEC
L3460   LDA     $83
L3462   LDY     $88
        TAX
        BPL     L3468
        DEY
L3468   ADC     $87
        BCC     L346D
        INY
L346D   RTS


L346E   DB      $4,$20,$54
        DB      $30,$D
        DB      $80,$4,$90
        DB      $3,$22
        DB      $54,$33,$D
        DB      $80,$4
        DB      $90,$4,$20
        DB      $54,$33
        DB      $D,$80,$4
        DB      $90,$4
        DB      $20,$54,$3B
        DB      $D,$80
        DB      $4,$90,$0
        DB      $22,$44
        DB      $33,$D,$C8
        DB      $44,$0
        DB      $11,$22,$44
        DB      $33,$D
        DB      $C8,$44,$A9
        DB      $1,$22
        DB      $44,$33,$D
        DB      $80,$4
        DB      $90,$1,$22
        DB      $44,$33
        DB      $D,$80,$4
        DB      $90
        DB      $26,$31,$87
        DB      $9A

L34B2   DB      $00
        DB      $21
        DB      $81
        DB      $82
        DB      $00
        DB      $00
        DB      $59
        DB      $4D
        DB      $91
        DB      $92
        DB      $86
        DB      $4A
        DB      $85
        DB      $9D

L34C0   DB      ',),#($'
L34C6   DB      'Y',0,'X$$',0

L34CC   DB      $1C,$8A,$1C
        DB      $23,$5D,$8B
        DB      $1B,$A1,$9D
        DB      $8A,$1D,$23
        DB      $9D,$8B,$1D
        DB      $A1,$0,$29
        DB      $19,$AE,$69
        DB      $A8,$19,$23
        DB      $24,$53,$1B
        DB      $23,$24,$53
        DB      $19,$A1
        DB      $0,$1A,$5B
        DB      $5B,$A5,$69
        DB      $24,$24
        DB      $AE,$AE,$A8
        DB      $AD,$29,$0
        DB      $7C,$0
        DB      $15,$9C,$6D
        DB      $9C,$A5,$69
        DB      $29,$53
        DB      $84,$13,$34
        DB      $11,$A5,$69
        DB      $23,$A0

L350C   DB      $D8,$62,$5A
        DB      $48,$26,$62
        DB      $94,$88,$54
        DB      $44,$C8,$54
        DB      $68,$44,$E8
        DB      $94,$0,$B4
        DB      $8,$84,$74
        DB      $B4,$28,$6E
        DB      $74,$F4,$CC
        DB      $4A,$72,$F2
        DB      $A4,$8A
        DB      $0,$AA,$A2
        DB      $A2,$74,$74
        DB      $74,$72
        DB      $44,$68,$B2
        DB      $32,$B2,$0
        DB      $22,$0
        DB      $1A,$1A,$26
        DB      $26,$72,$72
        DB      $88,$C8
        DB      $C4,$CA,$26
        DB      $48,$44,$44
        DB      $A2,$C8
        DB      $FF,$FF,$FF

   ***TRACER MODULE***


L354F   JSR     L33DC
        PLA
        STA     $80
        PLA
        STA     $81
        LDX     #$08
L355A   LDA     L361C,X
        STA     $8A,X
        DEX
        BNE     L355A
        LDA     ($87,X)
        BEQ     L35A8
        LDY     $83
        CMP     #$20
        BEQ     L35C5
        CMP     #$60
        BEQ     L35B5
        CMP     #$4C
        BEQ     L35D0
        CMP     #$6C
        BEQ     L35D1
        CMP     #$40
        BEQ     L35B1
        AND     #$1F
        EOR     #$14
        CMP     #$04
        BEQ     L3586
L3584   LDA     ($87),Y
L3586   STA     $8A,Y
        DEY
        BPL     L3584
        JSR     L3794
        JMP     $8A
        STA     $94
        PLA
        PHA
        ASL     A
        ASL     A
        ASL     A
        BMI     L359E
        JMP     L37F4
L359E   PLP
        JSR     L37A1
        PLA
        STA     $87
        PLA
        STA     $88
L35A8   JSR     L3391
        JSR     L35E6
        JMP     L37F4
L35B1   CLC
        PLA
        STA     $97
L35B5   PLA
        STA     $87
        PLA
L35B9   STA     $88
L35BB   LDA     $83
        JSR     L3462
        STY     $88
        CLC
        BCC     L35D9
L35C5   CLC
        JSR     L3460
        TAX
        TYA
        PHA
        TXA
        PHA
        LDY     #$02
L35D0   CLC
L35D1   LDA     ($87),Y
        TAX
        DEY
        LDA     ($87),Y
        STX     $88
L35D9   STA     $87
        BCS     L35D0
        LDA     $81
        PHA
        LDA     $80
        PHA
L35E3   JSR     L3662
L35E6   LDA     #$94
        STA     $8E
        LDA     #$00
        STA     $8F
        LDX     #$FB
L35F0   LDA     #$20
        JSR     L36C2
        LDA     L352A,X
        JSR     L36C2
        LDA     #$3D
        JSR     L36C2
        LDA     $99,X
        JSR     L36AF
        INX
        BMI     L35F0
        RTS
L3609   CLC
        LDY     #$01
        LDA     ($87),Y
        JSR     L3462
        STA     $87
        TYA
        SEC
        BCS     L35B9
L3617   JSR     L379F
        SEC
        BCS     L35BB
        NOP
        NOP
        JMP     L3617
        JMP     L3609
L3625   DB      'AXYPS'
L362A   INC     $90
        BNE     L3630
        INC     $91
L3630   LDA     $8A
        CMP     $8C
        LDA     $8B
        SBC     $8D
        INC     $8A
        BNE     L363E
        INC     $8B
L363E   RTS
        LDA     #$00
        STA     $97
        RTS

   ***INPUT MODULE***

L3644   LDX     #$00
        LDA     #$05
        STA     ICCOM,X
        LDA     #$82
        STA     ICBAL,X
        LDA     #$38
        STA     ICBAH,X
        LDA     #$60
        STA     ICBLL,X
        LDA     #$00
        STA     ICBLH,X
        JSR     LE456
L3662   LDA     #$9B
        JMP     L36C2

   ***HEX OUT MODULE***

L3667   LDY     $8B
        LDX     $8A
L366B   JSR     L3662
        JSR     L344C
        LDY     #$00
        LDA     #$2D
        JMP     L36C2
L3678   LDA     $8A
        ORA     #$07
        STA     $8C
        LDA     $8B
        STA     $8D
L3682   LDA     $8A
        AND     #$07
        BNE     L368B
L3688   JSR     L3667
L368B   LDA     #$20
        JSR     L36C2
        LDA     ($8A),Y
        JSR     L36AF
        JSR     L3630
        BCC     L3682
        RTS
L369B   LSR     A
        BCC     L3688
        LSR     A
        LSR     A
        LDA     $8C
        BCC     L36A6
        EOR     #$FF
L36A6   ADC     $8A
        PHA
        LDA     #$3D
        JSR     L36C2
        PLA
L36AF   PHA
        LSR     A
        LSR     A
        LSR     A
        LSR     A
        JSR     L36BA
        PLA
        AND     #$0F
L36BA   ORA     #$30
        CMP     #$3A
        BCC     L36C2
        ADC     #$06

    This module falls into the
             next one.



   ***OUTPUT MODULE***

L36C2   STY     $86
        STX     $89
        STA     L3712
        LDA     L3713
        BEQ     L36EC
        LDX     #$10
        LDA     #$0B
        STA     ICCOM,X
        LDA     #$12
        STA     ICBAL,X
        LDA     #$37
        STA     ICBAH,X
        LDA     #$01
        STA     ICBLL,X
        LDA     #$00
        STA     ICBLH,X
        JSR     LE456
L36EC   LDX     #$00
        LDA     #$0B
        STA     ICCOM,X
        LDA     #$12
        STA     ICBAL,X
        LDA     #$37
        STA     ICBAH,X
        LDA     #$01
        STA     ICBLL,X
        LDA     #$00
        STA     ICBLH,X
        JSR     LE456
        LDY     $86
        LDX     $89
        LDA     L3712
        RTS
L3712   DB      1
L3713   DB      1

     ***SUBROUTINE MODULE***
   This module must all be on
         the same page!

L3714   DEC     $85
        BNE     L371F
        JMP     L3678
        JSR     L37AE
        RTS
L371F   DEX
        BNE     L373B
        CMP     #$3A
        BEQ     L3729
        JMP     L369B
L3729   STA     $84
        LDA     $8C
        STA     ($8E),Y
        INC     $8E
        BNE     L3735
        INC     $8F
L3735   RTS
        LDY     $85
        LDA     L3881,Y
L373B   STA     $84
        RTS
        LDX     #$01
L3740   LDA     $8C,X
        STA     $90,X
        STA     $92,X
        DEX
        BPL     L3740
        RTS
L374A   LDA     ($8A),Y
        STA     ($90),Y
        JSR     L362A
        BCC     L374A
        RTS
        JSR     L376B
        LDA     #$14
L3759   PHA
        JSR     L33DC
        JSR     L345F
        STA     $87
        STY     $88
        PLA
        SEC
        SBC     #$01
        BNE     L3759
        RTS
L376B   TXA
        BEQ     L3775
L376E   LDA     $8A,X
        STA     $87,X
        DEX
        BPL     L376E
L3775   RTS
        JSR     L376B
        JSR     L3794
        JMP     ($87)
L377F   JMP     L35E3
        DEC     $85
        JSR     L376B
        JMP     L354F
        JSR     L3714
        PLA
        PLA
        BNE     L37F4
        JMP     (DOSVEC)
L3794   LDA     $97
        PHA
        LDA     $94
        LDX     $95
        LDY     $96
        PLP
        RTS
L379F   STA     $94
L37A1   STX     $95
        STY     $96
        PHP
        PLA
        STA     $97
        TSX
        STX     $98
        CLD
        RTS

   ***PRINTER CONTROL MODULE***

L37AE   LDX     #$10
        LDA     #$03
        STA     ICCOM,X
        LDA     #$E2
        STA     ICBAL,X
        LDA     #$37
        STA     ICBAH,X
        LDA     #$08
        STA     ICAX1,X
        LDA     #$00
        STA     L034B,X
        JSR     LE456
        LDX     #$01
        STX     L3713
        RTS
L37D2   JSR     L3662
        LDX     #$10
        LDA     #$0C
        JSR     LE456
        LDX     #$00
        STX     L3713
        RTS

L37E2   DB      'P',$9B

   ***COMMAND MODULE***

L37E4   LDY     #$15
L37E6   LDX     #$7F
L37E8   STX     LD01F
        STX     LD40A
        DEX
        BPL     L37E8
        DEY
        BPL     L37E6
L37F4   CLD
        LDA     L3713
L37F8   BEQ     L37FD
        JSR     L37D2
L37FD   JSR     L3662
        LDA     #$5D
        JSR     L36C2
        JSR     L3644
        JSR     L385F
L380B   JSR     L383F
        STY     $85
        LDY     #$0F
L3812   DEY
        BMI     L37E4
        CMP     L3864,Y
        BNE     L3812
        JSR     L3856
        LDY     $85
        JMP     L380B
L3822   LDX     #$03
        ASL     A
        ASL     A
        ASL     A
        ASL     A
L3828   ASL     A
        ROL     $8C
        ROL     $8D
        DEX
        BPL     L3828
L3830   LDA     $84
        BNE     L383A
        LDA     $8D,X
        STA     $8B,X
        STA     $8F,X
L383A   INX
        BEQ     L3830
        BNE     L3845
L383F   LDX     #$00
        STX     $8C
        STX     $8D
L3845   LDA     L3882,Y
        INY
        EOR     #$30
        CMP     #$0A
        BCC     L3822
        ADC     #$88
        CMP     #$FA
        BCS     L3822
        RTS
L3856   LDA     #$37
        PHA
        LDA     L3873,Y
        PHA
        LDA     $84
L385F   LDY     #$00
        STY     $84
        RTS

L3864   DB      $EB,$E9,$EA,$ED,$EC
        DB      $A6,$A4,$06,$95,$05
        DB      $00,$93,$A7,$34,$99

L3873   DB      LOW L377F-1
        DB      LOW L371B-1
        DB      LOW L3791-1
        DB      LOW L3782-1
        DB      LOW L3783-1
        DB      LOW L3735-1
        DB      LOW L3735-1
        DB      LOW L3749-1
        DB      LOW L373D-1
        DB      LOW L3753-1
        DB      LOW L3775-1
        DB      LOW L3735-1
        DB      LOW L3735-1
        DB      LOW L3789-1
        DB      LOW L371E-1

L3882   DS      $80
