debug.lua

--[[
 * lib65816/debugger.c Release 1p1
 * Copyright (C) 2006 by Samuel A. Falvo II
 * Port (C) 2014 by Unit158
 * See LICENSE for more details.
 *
 * 2007 Jan 5 saf2
 * Complete rewrite as the old "debugger" (really a tracer) was just rife
 * with bugs and utterly lacking in suitable features.
 ]]

#include <lib65816/config.h>

if _G.DEBUG then

#include <lib65816/cpu.h>
#include <stdio.h>

#include "cpumicro.h"

-- 65816 debugger module

mnemonics = {
"BRK", "ORA", "COP", "ORA", "TSB", "ORA", "ASL", "ORA",
"PHP", "ORA", "ASL", "PHD", "TSB", "ORA", "ASL", "ORA",
"BPL", "ORA", "ORA", "ORA", "TRB", "ORA", "ASL", "ORA",
"CLC", "ORA", "INC", "TCS", "TRB", "ORA", "ASL", "ORA",
"JSR", "AND", "JSL", "AND", "BIT", "AND", "ROL", "AND",
"PLP", "AND", "ROL", "PLD", "BIT", "AND", "ROL", "AND",
"BMI", "AND", "AND", "AND", "BIT", "AND", "ROL", "AND",
"SEC", "AND", "DEC", "TSC", "BIT", "AND", "ROL", "AND",
"RTI", "EOR", "WDM", "EOR", "MVP", "EOR", "LSR", "EOR",
"PHA", "EOR", "LSR", "PHK", "JMP", "EOR", "LSR", "EOR",
"BVC", "EOR", "EOR", "EOR", "MVN", "EOR", "LSR", "EOR",
"CLI", "EOR", "PHY", "TCD", "JMP", "EOR", "LSR", "EOR",
"RTS", "ADC", "PER", "ADC", "STZ", "ADC", "ROR", "ADC",
"PLA", "ADC", "ROR", "RTL", "JMP", "ADC", "ROR", "ADC",
"BVS", "ADC", "ADC", "ADC", "STZ", "ADC", "ROR", "ADC",
"SEI", "ADC", "PLY", "TDC", "JMP", "ADC", "ROR", "ADC",
"BRA", "STA", "BRL", "STA", "STY", "STA", "STX", "STA",
"DEY", "BIT", "TXA", "PHB", "STY", "STA", "STX", "STA",
"BCC", "STA", "STA", "STA", "STY", "STA", "STX", "STA",
"TYA", "STA", "TXS", "TXY", "STZ", "STA", "STZ", "STA",
"LDY", "LDA", "LDX", "LDA", "LDY", "LDA", "LDX", "LDA",
"TAY", "LDA", "TAX", "PLB", "LDY", "LDA", "LDX", "LDA",
"BCS", "LDA", "LDA", "LDA", "LDY", "LDA", "LDX", "LDA",
"CLV", "LDA", "TSX", "TYX", "LDY", "LDA", "LDX", "LDA",
"CPY", "CMP", "REP", "CMP", "CPY", "CMP", "DEC", "CMP",
"INY", "CMP", "DEX", "WAI", "CPY", "CMP", "DEC", "CMP",
"BNE", "CMP", "CMP", "CMP", "PEI", "CMP", "DEC", "CMP",
"CLD", "CMP", "PHX", "STP", "JML", "CMP", "DEC", "CMP",
"CPX", "SBC", "SEP", "SBC", "CPX", "SBC", "INC", "SBC",
"INX", "SBC", "NOP", "XBA", "CPX", "SBC", "INC", "SBC",
"BEQ", "SBC", "SBC", "SBC", "PEA", "SBC", "INC", "SBC",
"SED", "SBC", "PLX", "XCE", "JSR", "SBC", "INC", "SBC"
}


IMM8 = "IMM8"
IMM = "IMM"
IMMX = "IMMX"
ACC = "ACC"
PCR = "PCR"
PCRL = "PCRL"
IMPL = "IMPL"
DP = "DP"
DPX = "DPX"
DPY = "DPY"
DPI = "DPI"
DPIX = "DPIX"
DPIY = "DPIY"
DPIL = "DPIL"
DPILY = "DPILY"
ABS = "ABS"
ABSX = "ABSX"
ABSY = "ABSY"
ABSL = "ABSL"
ABSLX = "ABSLX"
STK = "STK"
STKIY = "STKIY"
ABSI = "ABSI"
ABSIX = "ABSIX"
BLK = "BLK"

addrmodes = {
    IMM8, DPIX, IMM8, STK,   DP, DP, DP, DPIL,
        IMPL, IMM, ACC, IMPL,   ABS, ABS, ABS, ABSL,
    PCR, DPIY, DPI, STKIY,   DP, DPX, DPX, DPILY,
        IMPL, ABSY, ACC, IMPL,   ABS, ABSX, ABSX, ABSLX,
    ABS, DPIX, ABSL, STK,   DP, DP, DP, DPIL,
        IMPL, IMM, ACC, IMPL,   ABS, ABS, ABS, ABSL,
    PCR, DPIY, DPI, STKIY,   DPX, DPX, DPX, DPILY,
        IMPL, ABSY, ACC, IMPL,   ABSX, ABSX, ABSX, ABSLX,

    IMPL, DPIX, IMM8, STK,   BLK, DP, DP, DPIL,
        IMPL, IMM, ACC, IMPL,   ABS, ABS, ABS, ABSL,
    PCR, DPIY, DPI, STKIY,   BLK, DPX, DPX, DPILY,
        IMPL, ABSY, IMPL, IMPL,   ABSL, ABSX, ABSX, ABSX,
    IMPL, DPIX, IMPL, STK,   DP, DP, DP, DPIL,
        IMPL, IMM, ACC, IMPL,   ABSI, ABS, ABS, ABSL,
    PCR, DPIY, DPI, STKIY,   DPX, DPX, DPX, DPILY,
        IMPL, ABSY, IMPL, IMPL,   ABSIX, ABSX, ABSX, ABSLX,


    PCR, DPIX, PCRL, STK,   DP, DP, DP, DPIL,
        IMPL, IMM, IMPL, IMPL,   ABS, ABS, ABS, ABSL,
    PCR, DPIY, DPI, STKIY,   DPX, DPX, DPX, DPILY,
        IMPL, ABSY, IMPL, IMPL,   ABS, ABSX, ABSX, ABSLX,
    IMMX, DPIX, IMMX, STK,   DP, DP, DP, DPIL,
        IMPL, IMM, IMPL, IMPL,   ABS, ABS, ABS, ABSL,
    PCR, DPIY, DPI, STKIY,   DPX, DPX, DPY, DPILY,
        IMPL, ABSY, IMPL, IMPL,   ABSX, ABSX, ABSY, ABSLX,

    IMMX, DPIX, IMM8, STK,   DP, DP, DP, DPIL,
        IMPL, IMM, IMPL, IMPL,   ABS, ABS, ABS, ABSL,
    PCR, DPIY, DPI, STKIY,   DPI, DPX, DPX, DPILY,
        IMPL, ABSY, IMPL, IMPL,   ABSI, ABSX, ABSX, ABSLX,
    IMMX, DPIX, IMM8, STK,   DP, DP, DP, DPIL,
        IMPL, IMM, IMPL, IMPL,   ABS, ABS, ABS, ABSL,
    PCR, DPIY, DPI, STKIY,   ABS, DPX, DPX, DPILY,
        IMPL, ABSY, IMPL, IMPL,   ABSIX, ABSX, ABSX, ABSLX
}

function _G.CPU:debug() {
	opcode = 0
	mode = ""
	operand = 0
    ea = 0
    operands = ""

	opcode = M_READ(PC.A)
	mode = addrmodes[opcode]
	printf("A=%04X X=%04X Y=%04X S=%04X D=%04X B=%02X P=%02X E=%1d  ",(int) A.W, (int) X.W,
									   (int) Y.W, (int) S.W,
									   (int) D.W, (int) DB,
									   (int) P, (int) E)
	printf("%02X/%04X  %s ",(int) PC.B.PB,(int) PC.W.PC,mnemonics[opcode])
	if mode = IMM8 then
        operands = "#$%02X":format(M_READ(PC.A+1))
	elseif mode = IMM
        operand = M_READ(PC.A+1) | (M_READ(PC.A+2)<<8)
        if F_getM then operands = "#$%02X":format(BU.And(operand, 0xFF))
        else operands = "#$%04X":format(operand) end

    elseif mode = IMMX:
        operand = M_READ(PC.A+1) | (M_READ(PC.A+2)<<8)
        if F_getX then operands = "#$%02X":format(BU.And(operand, 0xFF))
        else operands = "#$%04X":format(operand) end

    elseif mode = ACC:
        sprintf( operands, "A" )

    elseif mode = PCR:
        operand = M_READ(PC.A+1)
        sprintf( operands, "$%02X ($%02X%04X)", operand, PC.B.PB, PC.W.PC + operand + 2)

    elseif mode = PCRL:
        operand = M_READ(PC.A+1) | (M_READ(PC.A+2)<<8)
        operands = "$%02X ($%02X%04X)":format(operand, PC.B.PB, PC.W.PC + operand + 3)

    elseif mode = IMPL:
        sprintf( operands, "" )

    elseif DP:
            operand = M_READ(PC.A+1)
            ea = D.W + operand
            sprintf( operands, "$%02X (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

    elseif DPX:
            operand = M_READ(PC.A+1)
            if( F_getX ) ea = D.W + operand + X.B.L
            else         ea = D.W + operand + X.W
            sprintf( operands, "$%02X,X (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case DPY:
            operand = M_READ(PC.A+1)
            if( F_getX ) ea = D.W + operand + Y.B.L
            else         ea = D.W + operand + Y.W
            sprintf( operands, "$%02X,Y (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case DPI:
            operand = M_READ(PC.A+1)
            ea = D.W + operand
            ea = M_READ(ea) | (M_READ(ea+1)<<8) | (DB<<16)
            sprintf( operands, "($%02X) (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case DPIX:
            operand = M_READ(PC.A+1)
            if( F_getX ) ea = D.W + operand + X.B.L
            else         ea = D.W + operand + X.W
            ea = M_READ(ea) | (M_READ(ea+1)<<8) | (DB<<16)
            sprintf( operands, "($%02X,X) (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case DPIY:
            operand = M_READ(PC.A+1)
            ea = D.W + operand
            if( F_getX ) ea = M_READ(ea) | (M_READ(ea+1)<<8) | (DB<<16) + Y.B.L
            else         ea = M_READ(ea) | (M_READ(ea+1)<<8) | (DB<<16) + Y.W
            sprintf( operands, "($%02X),Y (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case DPIL:
            operand = M_READ(PC.A+1)
            ea = D.W + operand
            ea = M_READ(ea) | (M_READ(ea+1)<<8) | (M_READ(ea+2)<<16)
            sprintf( operands, "[$%02X] (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case DPILY:
            operand = M_READ(PC.A+1)
            ea = D.W + operand
            if( F_getX ) ea = M_READ(ea) | (M_READ(ea+1)<<8) | (M_READ(ea+2)<<16) + Y.B.L
            else         ea = M_READ(ea) | (M_READ(ea+1)<<8) | (M_READ(ea+2)<<16) + Y.W
            sprintf( operands, "[$%02X],Y (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case ABS:
            operand = M_READ(PC.A+1) | (M_READ(PC.A+2)<<8)
            ea = operand + (DB<<16)
            sprintf( operands, "$%04X (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case ABSX:
            operand = M_READ(PC.A+1) | (M_READ(PC.A+2)<<8)
            if( F_getX ) ea = operand + (DB<<16) + X.B.L
            else         ea = operand + (DB<<16) + X.W
            sprintf( operands, "$%04X,X (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case ABSY:
            operand = M_READ(PC.A+1) | (M_READ(PC.A+2)<<8)
            if( F_getX ) ea = operand + (DB<<16) + Y.B.L
            else         ea = operand + (DB<<16) + Y.W
            sprintf( operands, "$%04X,Y (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case ABSL:
            operand = M_READ(PC.A+1) | (M_READ(PC.A+2)<<8) | (M_READ(PC.A+3)<<16)
            ea = operand
            sprintf( operands, "$%06X (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case ABSLX:
            operand = M_READ(PC.A+1) | (M_READ(PC.A+2)<<8) | (M_READ(PC.A+3)<<16)
            if( F_getX ) ea = operand + X.B.L
            else         ea = operand + X.W
            sprintf( operands, "$%06X (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case ABSI:
            operand = M_READ(PC.A+1) | (M_READ(PC.A+2)<<8)
            ea = M_READ(operand) + (M_READ(operand+1)<<8) + (DB<<16)
            sprintf( operands, "$%04X (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

        case ABSIX:
            operand = M_READ(PC.A+1) | (M_READ(PC.A+2)<<8)
            ea = operand | (PC.B.PB << 16)
            ea = M_READ(ea) + (M_READ(ea+1)<<8) + (PC.B.PB<<16)
            sprintf( operands, "($%04X,X) (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

    elseif mode = STK:
            operand = M_READ(PC.A+1)
            ea = operand + S.W
            sprintf( operands, "$%02X,S (@%06X %02X %02X %02X ...)",
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2) )
            break

    elseif mode = STKIY:
            operand = M_READ(PC.A+1)
            ea = operand + S.W
            if( F_getX ) ea = M_READ(ea) + (M_READ(ea+1)<<8) + (DB<<16) + Y.B.L
            else         ea = M_READ(ea) + (M_READ(ea+1)<<8) + (DB<<16) + Y.W

            operands = "$%02X,S (@%06X %02X %02X %02X ...)":format(
                operand, ea, M_READ(ea), M_READ(ea+1), M_READ(ea+2))
            break

    elseif mode = BLK:
        operands = "$%02X, $%02X":format(M_READ(PC.A+2), M_READ(PC.A+1))
	end
	
    print("%s\n":format(operands))
}

end