Subversion Repositories rf6809

; ============================================================================
;        __
;   \\__/ o\    (C) 2013-2022  Robert Finch, Waterloo
;    \  __ /    All rights reserved.
;     \/_//     robfinch<remove>@opencores.org
;       ||
;  
;
; BSD 3-Clause License
; Redistribution and use in source and binary forms, with or without
; modification, are permitted provided that the following conditions are met:
;
; 1. Redistributions of source code must retain the above copyright notice, this
;    list of conditions and the following disclaimer.
;
; 2. Redistributions in binary form must reproduce the above copyright notice,
;    this list of conditions and the following disclaimer in the documentation
;    and/or other materials provided with the distribution.
;
; 3. Neither the name of the copyright holder nor the names of its
;    contributors may be used to endorse or promote products derived from
;    this software without specific prior written permission.
;
; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
;                                                                          
; ============================================================================
;
; Disassembler
;
;
DIRECT  EQU     1
LSREL           EQU     2
IMMB            EQU     3
SREL            EQU     4
NDX                     EQU     5
EXT                     EQU     6
IMMW            EQU     7
FAREXT  EQU     8

distbl1:
        ; 00 to 0F
        fcb             "NEG ", DIRECT
        fcb             "    ", 0
        fcb             "    ", 0
        fcb             "COM ", DIRECT
        fcb             "LSR ", DIRECT
        fcb             "    ", 0
        fcb             "ROR ", DIRECT
        fcb             "ASR ", DIRECT
        fcb             "ASL ", DIRECT
        fcb             "ROL ", DIRECT
        fcb             "DEC ", DIRECT
        fcb             "    ", 0
        fcb             "INC ", DIRECT
        fcb             "TST ", DIRECT
        fcb             "JMP ", DIRECT
        fcb             "CLR ", DIRECT
        
        ; 10 to 1F
        fcb             "    ", 0
        fcb             "    ", 0
        fcb             "NOP ", 0
        fcb             "SYNC", 0
        fcb             "    ", 0
        fcb             "FAR ", 0
        fcb             "LBRA", LSREL
        fcb             "LBSR", LSREL
        fcb             "    ", 0
        fcb             "DAA ", 0
        fcb             "ORCC", IMMB
        fcb             "    ", 0
        fcb             "ANDC", IMMB
        fcb             "SEX ", 0
        fcb             "EXG ", IMMB
        fcb             "TFR ", IMMB
        
        ; 20 to 2F
        fcb             "BRA ", SREL
        fcb             "BRN ", SREL
        fcb             "BHI ", SREL
        fcb             "BLS ", SREL
        fcb             "BHS ", SREL
        fcb             "BLO ", SREL
        fcb             "BNE ", SREL
        fcb             "BEQ ", SREL
        fcb             "BVC ", SREL
        fcb             "BVS ", SREL
        fcb             "BPL ", SREL
        fcb             "BMI ", SREL
        fcb             "BGE ", SREL
        fcb             "BLT ", SREL
        fcb             "BGT ", SREL
        fcb             "BLE ", SREL
        
        ; 30 to 3F
        fcb             "LEAX", NDX
        fcb             "LEAY", NDX
        fcb             "LEAS", NDX
        fcb             "LEAU", NDX
        fcb             "PSHS", IMMB
        fcb             "PULS", IMMB
        fcb             "PSHU", IMMB
        fcb             "PULU", IMMB
        fcb             "RTF ", 0
        fcb             "RTS ", 0
        fcb             "ABX ", 0
        fcb             "RTI ", 0
        fcb             "CWAI", IMMB
        fcb             "MUL ", 0
        fcb             "    ", 0
        fcb             "SWI ", 0

        ; 40 to 4F
        fcb             "NEGA", 0
        fcb             "    ", 0
        fcb       "    ", 0
        fcb             "COMA", 0
        fcb             "LSRA", 0
        fcb             "    ", 0
        fcb             "RORA", 0
        fcb             "ASRA", 0
        fcb             "ASLA", 0
        fcb             "ROLA", 0
        fcb             "DECA", 0
        fcb             "    ", 0
        fcb             "INCA", 0
        fcb             "TSTA", 0
        fcb             "    ", 0
        fcb             "CLRA", 0
        
        ; 50 to 5F
        fcb             "NEGB", 0
        fcb             "    ", 0
        fcb       "    ", 0
        fcb             "COMB", 0
        fcb             "LSRB", 0
        fcb             "    ", 0
        fcb             "RORB", 0
        fcb             "ASRB", 0
        fcb             "ASLB", 0
        fcb             "ROLB", 0
        fcb             "DECB", 0
        fcb             "    ", 0
        fcb             "INCB", 0
        fcb             "TSTB", 0
        fcb             "    ", 0
        fcb             "CLRB", 0
        
        ; 60 to 6F
        fcb             "NEG ", NDX
        fcb             "    ", 0
        fcb       "    ", 0
        fcb             "COM ", NDX
        fcb             "LSR ", NDX
        fcb             "    ", 0
        fcb             "ROR ", NDX
        fcb             "ASR ", NDX
        fcb             "ASL ", NDX
        fcb             "ROL ", NDX
        fcb             "DEC ", NDX
        fcb             "    ", 0
        fcb             "INC ", NDX
        fcb             "TST ", NDX
        fcb             "JMP ", NDX
        fcb             "CLR ", NDX

        ; 70 to 7F
        fcb             "NEG ", EXT
        fcb             "    ", 0
        fcb       "    ", 0
        fcb             "COM ", EXT
        fcb             "LSR ", EXT
        fcb             "    ", 0
        fcb             "ROR ", EXT
        fcb             "ASR ", EXT
        fcb             "ASL ", EXT
        fcb             "ROL ", EXT
        fcb             "DEC ", EXT
        fcb             "    ", 0
        fcb             "INC ", EXT
        fcb             "TST ", EXT
        fcb             "JMP ", EXT
        fcb             "CLR ", EXT

        ; 80 to 8F
        fcb             "SUBA", IMMB
        fcb             "CMPA", IMMB
        fcb             "SBCA", IMMB
        fcb             "SUBD", IMMW
        fcb             "ANDA", IMMB
        fcb             "BITA", IMMB
        fcb             "LDA ", IMMB
        fcb             "    ", 0
        fcb             "EORA", IMMB
        fcb             "ADCA", IMMB
        fcb             "ORA ", IMMB
        fcb             "ADDA", IMMB
        fcb             "CMPX", IMMW
        fcb             "BSR ", SREL
        fcb             "LDX ", IMMW
        fcb             "JMF ", FAREXT
        
        ; 90 to 9F
        fcb             "SUBA", DIRECT
        fcb             "CMPA", DIRECT
        fcb             "SBCA", DIRECT
        fcb             "SUBD", DIRECT
        fcb             "ANDA", DIRECT
        fcb             "BITA", DIRECT
        fcb             "LDA ", DIRECT
        fcb             "STA ", DIRECT
        fcb             "EORA", DIRECT
        fcb             "ADCA", DIRECT
        fcb             "ORA ", DIRECT
        fcb             "ADDA", DIRECT
        fcb             "CMPX", DIRECT
        fcb             "JSR ", DIRECT
        fcb             "LDX ", DIRECT
        fcb             "STX ", DIRECT

        ; A0 to AF
        fcb             "SUBA", NDX
        fcb             "CMPA", NDX
        fcb             "SBCA", NDX
        fcb             "SUBD", NDX
        fcb             "ANDA", NDX
        fcb             "BITA", NDX
        fcb             "LDA ", NDX
        fcb             "STA ", NDX
        fcb             "EORA", NDX
        fcb             "ADCA", NDX
        fcb             "ORA ", NDX
        fcb             "ADDA", NDX
        fcb             "CMPX", NDX
        fcb             "JSR ", NDX
        fcb             "LDX ", NDX
        fcb             "STX ", NDX

        ; B0 to BF
        fcb             "SUBA", EXT
        fcb             "CMPA", EXT
        fcb             "SBCA", EXT
        fcb             "SUBD", EXT
        fcb             "ANDA", EXT
        fcb             "BITA", EXT
        fcb             "LDA ", EXT
        fcb             "STA ", EXT
        fcb             "EORA", EXT
        fcb             "ADCA", EXT
        fcb             "ORA ", EXT
        fcb             "ADDA", EXT
        fcb             "CMPX", EXT
        fcb             "JSR ", EXT
        fcb             "LDX ", EXT
        fcb             "STX ", EXT
        
        ; C0 to CF
        fcb             "SUBB", IMMB
        fcb             "CMPB", IMMB
        fcb             "SBCb", IMMB
        fcb             "ADDD", IMMW
        fcb             "ANDB", IMMB
        fcb             "BITB", IMMB
        fcb             "LDB ", IMMB
        fcb             "    ", 0
        fcb             "EORB", IMMB
        fcb             "ADCB", IMMB
        fcb             "ORB ", IMMB
        fcb             "ADDB", IMMB
        fcb             "LDD ", IMMW
        fcb             "    ", SREL
        fcb             "LDU ", IMMW
        fcb             "JSF ", FAREXT

        ; D0 to DF
        fcb             "SUBB", DIRECT
        fcb             "CMPB", DIRECT
        fcb             "SBCB", DIRECT
        fcb             "ADDD", DIRECT
        fcb             "ANDB", DIRECT
        fcb             "BITB", DIRECT
        fcb             "LDB ", DIRECT
        fcb             "STB ", DIRECT
        fcb             "EORB", DIRECT
        fcb             "ADCB", DIRECT
        fcb             "ORB ", DIRECT
        fcb             "ADDB", DIRECT
        fcb             "LDD ", DIRECT
        fcb             "STD ", DIRECT
        fcb             "LDU ", DIRECT
        fcb             "STU ", DIRECT

        ; E0 to EF      
        fcb             "SUBB", NDX
        fcb             "CMPB", NDX
        fcb             "SBCB", NDX
        fcb             "ADDD", NDX
        fcb             "ANDB", NDX
        fcb             "BITB", NDX
        fcb             "LDB ", NDX
        fcb             "STB ", NDX
        fcb             "EORB", NDX
        fcb             "ADCB", NDX
        fcb             "ORB ", NDX
        fcb             "ADDB", NDX
        fcb             "LDD ", NDX
        fcb             "STD ", NDX
        fcb             "LDU ", NDX
        fcb             "STU ", NDX

        ; F0 to FF
        fcb             "SUBB", EXT
        fcb             "CMPB", EXT
        fcb             "SBCB", EXT
        fcb             "ADDD", EXT
        fcb             "ANDB", EXT
        fcb             "BITB", EXT
        fcb             "LDB ", EXT
        fcb             "STB ", EXT
        fcb             "EORB", EXT
        fcb             "ADCB", EXT
        fcb             "ORB ", EXT
        fcb             "ADDB", EXT
        fcb             "LDD ", EXT
        fcb             "STD ", EXT
        fcb             "LDU ", EXT
        fcb             "STU ", EXT

        ; 120 to 12F
distbl2:
        fcb             "LBRA"
        fcb             "LBRN"
        fcb             "LBHI"
        fcb             "LBLS"
        fcb             "LBHS"
        fcb             "LBLO"
        fcb             "LBNE"
        fcb             "LBEQ"
        fcb             "LBVC"
        fcb             "LBVS"
        fcb             "LBPL"
        fcb             "LBMI"
        fcb             "LBGE"
        fcb             "LBLT"
        fcb             "LBGT"
        fcb             "LBLE"
        
distbl3:
        fcb             $13F
        fcb             $183
        fcb             $18C
        fcb             $18E
        fcb             $193
        fcb             $19C
        fcb             $19E
        fcb             $19F
        fcb             $1A3
        fcb             $1AC
        fcb             $1AE
        fcb             $1AF
        fcb             $1B3
        fcb             $1BC
        fcb             $1BE
        fcb             $1BF
        fcb             $1CE
        fcb             $1DE
        fcb             $1DF
        fcb             $1EE
        fcb             $1EF
        fcb             $1FE
        fcb             $1FF
        fcb             $23F
        fcb             $283
        fcb             $28C
        fcb             $293
        fcb             $29C
        fcb             $2A3
        fcb             $2AC
        fcb             $2B3
        fcb             $2BC

distbl4:        
        fcb             "SWI2", 0
        fcb             "CMPD", IMMW
        fcb             "CMPY", IMMW
        fcb             "LDY ", IMMW
        fcb             "CMPD", DIRECT
        fcb             "CMPY", DIRECT  
        fcb             "LDY ", DIRECT
        fcb             "STY ", DIRECT
        fcb             "CMPD", NDX
        fcb             "CMPY", NDX
        fcb             "LDY ", NDX
        fcb             "STY ", NDX
        fcb             "CMPD", EXT
        fcb             "CMPY", EXT
        fcb             "LDY ", EXT
        fcb             "STY ", EXT
        fcb             "LDS ", IMMW
        fcb             "LDS ", DIRECT
        fcb             "STS ", DIRECT
        fcb             "LDS ", NDX
        fcb             "STS ", NDX
        fcb             "LDS ", EXT
        fcb             "STS ", EXT
        fcb             "SWI3", 0
        fcb             "CMPU", IMMW
        fcb             "CMPS", IMMW
        fcb             "CMPU", DIRECT
        fcb             "CMPS", DIRECT
        fcb             "CMPU", NDX
        fcb             "CMPS", NDX
        fcb             "CMPU", EXT
        fcb             "CMPS", EXT

disassem:
        lbsr    GetTwoParams
        lbsr    CRLF
        ldy             mon_r1+2
disLoop1:
        tfr             y,d
        lbsr    DispWordAsHex
        ldb             #' '
        lbsr    OUTCH
        ldb             ,y+
        bitb    #$300
        lbne    dis1
dis20:
        ldx             #distbl1
dis23:
        lda             #5
        mul
        abx
        ldb             ,x+
        lbsr    OUTCH
        ldb             ,x+
        lbsr    OUTCH
        ldb             ,x+
        lbsr    OUTCH
        ldb             ,x+
        lbsr    OUTCH
        ldb             #' '
        lbsr    OUTCH
        ldb             ,x+
        lbeq    disNextLine
        cmpb    #DIRECT
        bne             disNotDirect
        ldb             ,y+
        lbsr    DispByteAsHex
        lbra    disNextLine
disNotDirect:
        cmpb    #LSREL
        bne             disNotLRel
dis21:
        ldd             ,y++
dis2:
        leax    d,y
        tfr             x,d
        lbsr    DispWordAsHex
        lbra    disNextLine
disNotLRel:
        cmpb    #SREL
        bne             disNotRel
        ldb             ,y+
        clra
        bra             dis2
disNotRel:
        cmpb    #NDX
        bne             disNotNdx
        ldb             ,y+
        bitb    #$800
        bne             disNot9                 ; test for offset 9 mode
        pshs    b
        andb    #$1FF                           ; mask to offset bits
        clra                                                    ;
        bitb    #$100                           ; test for negative offset
        beq             dis3
        deca                                                    ; sign extend offset
        orb             #$E00
dis3:
        lbsr    DispWordAsHex
        ldb             #','
        lbsr    OUTCH
        puls    b
        bsr             disNdxReg
        lbsr    OUTCH
        lbra    disNextLine
disNot9:
        pshs    b
        bitb    #$100                   ; check if indirect
        bne             dis4
        ldb             #'['
        lbsr    OUTCH
dis4:
        ldb             ,s                              ; get back b
        andb    #15
        bne             disNotRplus
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis5
        ldb             #']'
        lbsr    OUTCH
dis5:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        ldb             #'+'
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotRplus:
        cmpb    #1
        bne             disNotRplusplus 
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis6
        ldb             #']'
        lbsr    OUTCH
dis6:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        ldb             #'+'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotRplusplus:
        cmpb    #2
        bne             disNotRminus
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis7
        ldb             #']'
        lbsr    OUTCH
dis7:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotRminus:
        cmpb    #3
        bne             disNotRminusminus
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis8
        ldb             #']'
        lbsr    OUTCH
dis8:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotRminusminus:
        cmpb    #4
        bne             disNotR
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis9
        ldb             #']'
        lbsr    OUTCH
dis9:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotR:
        cmpb    #5
        bne             disNotBOffs
        ldb             #'B'
        lbsr    OUTCH
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis10
        ldb             #']'
        lbsr    OUTCH
dis10:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotBOffs:
        cmpb    #6
        bne             disNotAOffs
        ldb             #'A'
        lbsr    OUTCH
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis11
        ldb             #']'
        lbsr    OUTCH
dis11:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotAOffs:
        cmpb    #8
        bne             disNotBO
        ldb             ,y+
        sex
        lbsr    DispWordAsHex
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis12
        ldb             #']'
        lbsr    OUTCH
dis12:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotBO:
        cmpb    #9
        bne             disNotWO
        ldd             ,y++
        lbsr    DispWordAsHex
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis13
        ldb             #']'
        lbsr    OUTCH
dis13:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotWO:
        cmpb    #10
        bne             disNotTO
        ldb             ,y++
        lbsr    DispByteAsHex
        ldd             ,y++
        lbsr    DispWordAsHex
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis14
        ldb             #']'
        lbsr    OUTCH
dis14:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotTO:
        cmpb    #11
        bne             disNotDOffs
        ldb             #'D'
        lbsr    OUTCH
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis15
        ldb             #']'
        lbsr    OUTCH
dis15:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotDOffs:
        cmpb    #12
        bne             disNotPBO
        ldb             ,y+
        sex
        lbsr    DispWordAsHex
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis16
        ldb             #']'
        lbsr    OUTCH
dis16:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        ldb             #'P'
        lbsr    OUTCH
        ldb             #'C'
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotPBO:
        cmpb    #13
        bne             disNotPWO       
        ldd             ,y++
        lbsr    DispWordAsHex
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis17
        ldb             #']'
        lbsr    OUTCH
dis17:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        ldb             #'P'
        lbsr    OUTCH
        ldb             #'C'
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotPWO:
        cmpb    #14
        bne             disNotPTO
        ldb             ,y+
        lbsr    DispByteAsHex
        ldd             ,y++
        lbsr    DispWordAsHex
        ldb             ,s
        bitb    #$80                    ; outer indexed?
        bne             dis18
        ldb             #']'
        lbsr    OUTCH
dis18:
        ldb             #','
        lbsr    OUTCH
        ldb             ,s
        bsr             disNdxReg
        ldb             #'P'
        lbsr    OUTCH
        ldb             #'C'
        lbsr    OUTCH
        ldb             #'-'
        lbsr    OUTCH
        lbsr    OUTCH
        puls    b
        bitb    #$100
        lbne    disNextLine
        bitb    #$80
        lbne    disNextLine
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotPTO:
        ldb             #'['
        lbsr    OUTCH
        ldd             ,y++
        lbsr    DispWordAsHex
        ldb             #']'
        lbsr    OUTCH
        lbra    disNextLine
disNotNdx:
        cmpb    #EXT
        bne             disNotExt
        ldd             ,y++
        lbsr    DispWordAsHex
        lbra    disNextLine
disNotExt:
        cmpb    #IMMB
        bne             disNotIMMB
        ldb             #'#'
        lbsr    OUTCH
        ldb             ,y+
        lbsr    DispByteAsHex
        lbra    disNextLine
disNotIMMB:
        cmpb    #IMMW
        bne             disNotIMMW
        ldb             #'#'
        lbsr    OUTCH
        ldd             ,y++
        lbsr    DispWordAsHex
        bra             disNextLine
disNotIMMW:
dis1:
        cmpb    #$121
        blo             dis19
        cmpb    #$12F
        bhi             dis19
        andb    #$FF
        ldx             #distbl1
        aslb
        aslb
        abx
        ldb             ,x+
        lbsr    OUTCH
        ldb             ,x+
        lbsr    OUTCH
        ldb             ,x+
        lbsr    OUTCH
        ldb             ,x+
        lbsr    OUTCH
        ldb             #' '
        lbsr    OUTCH
        lbra    dis21
dis19:
        ldx             #0
dis24:
        cmpb    distbl3,x
        bne             dis25
        ldx             #distbl4
        lbra    dis23
dis25:
        inx
        cmpx    #31
        blo             dis24
        ldb             #'?'
        lbsr    OUTCH
        lbsr    OUTCH
        lbsr    OUTCH
        lbsr    OUTCH
        bra             disNextLine
disNextLine
        lbsr    CRLF
        cmpy    mon_r2+2
        lblo    disLoop1
        lbra    Monitor

disNdxRegs:
        fcb             'X','Y','S','U'
disNdxReg:
        andb    #$600
        rolb
        rolb
        rolb
        rolb
        clra
        pshs    u
        tfr             d,u
        lda             disNdxRegs,u
        puls    u
        exg             a,b
        rts

ASMO:
        pshs    d
        ldd             #ASMOUTCH
        std             CharOutVec
        puls    d,pc

ASMOO:
        pshs    d
        ldd             #DisplayChar
        std             CharOutVec
        puls    d,pc

ASMOUTCH:
        stb             ,u+
        rts

DumpAsmbuf:
        ldu             #asmbuf
dab2:
        ldb             ,u+
        beq             dab1
        lbsr    OUTCH
        bra             dab2
dab1:
        rts