; ===================================================
; MSX BASIC for Orion-128
;
; Data area, variables
; Disassembled by Romychs @ 2026-10-15
; ===================================================

; ---------------------------------------------------
MB_INIVALS1:
    DW    MB_FCERR
    DW    MB_FCERR
    DW    MB_FCERR
    DW    MB_FCERR
    DW    MB_FCERR
    DW    MB_FCERR
    DW    MB_FCERR
    DW    MB_FCERR
    DW    MB_FCERR
    DW    MB_FCERR

    DB    0x30, 0x30, 0x21, 0, 0, 0, 0x20, 0x30, 0, 0xC0

MB_INIVALS2:
    DB    0x0, 0x0, 0x0, 0x30, 0x4, 0x0, 0x0, 0xDB, 0x89, 0x58

MB_INIVALS3:
    DB    0x00, 0x00, 0x00, 0x00, 0xFF, 0x00, 0x01, 0x00
    DB    0x00, 0xC3, 0x00, 0x00, 0xC3, 0x00, 0x00, 0x0F
    DB    0x00, 0x00, 0xFF, 0x01, 0x32, 0xFA, 0x8F, 0xFA
    DB    0x8F, 0x53, 0x5C, 0x26, 0x2D, 0x0F, 0x25, 0x2D
    DB    0x0E, 0x16, 0x1F, 0x53, 0x5C, 0x26, 0x2D, 0x0F
    DB    0x80, 0x01, 0xAB, 0x00, 0x3A

; ---------------------------------------------------
MSX_FIX_0DN:
    LD    DE, MB_PROCNM
    AND   A
    RET   NZ
    INC   B
    RET

; ---------------------------------------------------
MB_USRTAB:
    DW   0x3C42
    DW   0x74FF
    DW   0x98CD
    DW   0xC300
    DW   0x7758
    DW   0xFE7E
    DW   0xCA01
    DW   0x778B
    DW   0x1A3E
    DW   0xCDE5
    DW   0x77F7

; ---------------------------------------------------
MB_CLMLST:
    DB    0xCC
OR_ATTR_TMP:
    DB    149
MB_WIDTH_3:
    DB    119
MB_WIDTH_2:
    DB    225
MB_WIDTH_1:
    DB    205
MB_LINLEN:
    DB    236
    DB    0x77
    DB    0xCA
CAS_CLOSE_BODY:
    ADC   A, E
    LD    (HL), A
    PUSH  HL
    ADD   HL, BC
    LD    (HL), 0x1a
    INC   HL
    INC   C
    JP    NZ, CAS_CLOSE_PAD
    POP   HL
    CALL  CAS_WR_BLK
    XOR   A
    LD    (MB_CASPRV), A
    RET
    LD    A, C
    CALL  CAS_OB_PTR
    RET   NZ
    XOR   A
    CALL  CAS_START_OUT
    LD    B, 0x0
    LD    A, (HL)
    CALL  CAS_WR_CHAR
    INC   HL
    DEC   B
    JP    NZ, CAS_WR_NXT
    JP    TAPOOF
    EX    DE, HL
    LD    HL, MB_CASPRV
    CALL  CASS_GET_PB
    EX    DE, HL
    CALL  CASS_RD_HDR
    JP    NZ, CASS_RD_FIN
    PUSH  HL
    CALL  CAS_START_INP
    POP   HL
    LD    B, 0x0
    CALL  CAS_RD_CHAR
    LD    (HL), A
    INC   HL
    DEC   B
    JP    NZ, CAS_INP_NXT
    CALL  TAPIOF
    DEC   H
    XOR   A
    LD    B, A
    LD    C, A
    ADD   HL, BC
    LD    A, (HL)
    CP    0x1a
; ---------------------------------------------------