121 lines
2.4 KiB
NASM
121 lines
2.4 KiB
NASM
; ===================================================
|
|
; 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
|
|
; ---------------------------------------------------
|