mz700-js/lib/parse-addr.ts

MZ-700 Full JavaScript Emulator

"use strict";
import Z80BinUtil from "../Z80/bin-util";

/* tslint:disable: no-bitwise no-string-throw */

/**
 * Translate address string to value.
 * @param {string} addrToken
 * The address to be converted.
 * @param {Record<string, number>|null} mapLabelToAddress
 * A dictionary to get address of the labels.
 * @returns {number} as the address.
 */
const parseAddress = {
    parseAddress: (addrToken:string, mapLabelToAddress?:(Record<string, number>|null)):number => {
        const bytes = parseAddress.parseNumLiteralPair(addrToken);
        if(bytes == null) {
            return null;
        }
        let H = bytes[1];
        let L = bytes[0];
        if(mapLabelToAddress != null) {
            if(typeof(H) === "function") {
                H = H(mapLabelToAddress);
            }
            if(typeof(L) === "function") {
                L = L(mapLabelToAddress);
            }
        } else if(typeof(H) === "function" || typeof(L) === "function") {
            return null;
        }
        const addr = Z80BinUtil.pair(H as number, L as number);
        return addr;
    },
    
    parseNumLiteral: (tok:string):number | ((dictionary: Record<string, number>) => number) => {
        const n = parseAddress._parseNumLiteral(tok);
        if(typeof(n) === 'number') {
            if(n < -128 || 256 <= n) {
                throw 'operand ' + tok + ' out of range';
            }
            return n & 0xff;
        }
        return ((dictionary:Record<string, number>) => parseAddress.dereferLowByte(tok, dictionary));
    },

    parseNumLiteralPair: (tok:string):number[] | ((dictionary: Record<string, number>) => number)[] => {
        const n = parseAddress._parseNumLiteral(tok);
        if(typeof(n) === 'number') {
            if(n < -32768 || 65535 < n) {
                throw 'operand ' + tok + ' out of range';
            }
            return [n & 0xff, (n >> 8) & 0xff];
        }
        return [
            dictionary => (parseAddress.dereferLowByte(tok, dictionary)),
            dictionary => (parseAddress.dereferHighByte(tok, dictionary)),
        ];
    },

    parseRelAddr: (tok:string, fromAddr:number):number | ((dictionary: Record<string, number>) => number) => {
        let n = parseAddress._parseNumLiteral(tok);
        if(typeof(n) === 'number') {
            const c0 = tok.charAt(0);
            if(c0 !== '+' && c0 !== '-') {
                n = n - fromAddr + 2;
            }
            n -= 2;
            if(n < -128 || 256 <= n) {
                throw 'operand ' + tok + ' out of range';
            }
            return n & 0xff;
        }
        return (dictionary => ((parseAddress.derefer(tok, dictionary) - fromAddr) & 0xff));
    },

    dereferLowByte: (label:string, dictionary: Record<string, number>):number => {
        return parseAddress.derefer(label, dictionary) & 0xff;
    },

    dereferHighByte: (label:string, dictionary: Record<string, number>):number => {
        return (parseAddress.derefer(label, dictionary) >> 8) & 0xff;
    },

    derefer: (label:string, dictionary: Record<string, number>):number => {
        if(label in dictionary) {
            return dictionary[label];
        }
        return 0;
    },

    _parseNumLiteral: (tok:string): number | string => {
        if(/^[+-]?[0-9]+$/.test(tok) || /^[+-]?[0-9A-F]+H$/i.test(tok)) {
            let matches:RegExpMatchArray;
            let n = 0;
            const s = (/^-/.test(tok) ? -1:1);
            if(/[hH]$/.test(tok)) {
                matches = tok.match(/^[+-]?([0-9a-fA-F]+)[hH]$/);
                n = parseInt(matches[1], 16);
            } else if(/^[+-]?0/.test(tok)) {
                matches = tok.match(/^[+-]?([0-7]+)$/);
                n = parseInt(matches[1], 8);
            } else {
                matches = tok.match(/^[+-]?([0-9]+)$/);
                n = parseInt(matches[1], 10);
            }
            return s * n;
        }
        return tok;
    },
};
export default parseAddress;
module.exports = parseAddress;