fixes for byte-to-byte compilation

2026-10-15 15:13:08 +03:00
1 parent 2558e64a34
commit 51d8b772dc
@@ -0,0 +1,120 @@
+; ===================================================
+; 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
+BYTE_ram_8315:
+    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
+LAB_ram_831c:
+    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
+; ---------------------------------------------------