; ===================================================
; Microsoft BASIC v2 for MSX System v3.0
;
; Initial values for variables
; Disassembled by Romychs @ 2026-09-03
; ===================================================



    MODULE INIVAL

START EQU $

    OUT   (PSSR), A
    LD    E, (HL)
    JR    PSSR_OUT_D
WRPRIM:
    OUT   (PSSR), A
    LD    (HL), E
PSSR_OUT_D:
    LD    A, D
    OUT   (PSSR), A
    RET
CLPRIM:
    OUT   (PSSR), A
    EX    AF, AF
    CALL  CLPRM1
    EX    AF, AF
    POP   AF
    OUT   (PSSR), A
    EX    AF, AF
    RET
    JP    (IX)

; --------------------------------------------------
MB_USRTAB:
    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

; --------------------------------------------------
MB_LINL40:
    DB    39
MB_LINL32:
    DB    29
MB_LINLEN:
    DB    29
MB_CRTCNT:
    DB    24
MB_CLMLST:
    DB    14
TXTNAM:
    DW    0x00
TXTCOL:
    DW    0x00
TXTCGP:
    DW    0x800
TXTATR:
    DW    0x00
TXTPAT:
    DW    0x00
T32NAM:
    DW    0x1800
T32COL:
    DW    0x2000
T32CGP:
    DW    0x00
T32ATR:
    DW    0x1B00
T32PAT:
    DW    0x3800
GRPNAM:
    DW    0x1800
GRPCOL:
    DW    0x2000
GRPCGP:
    DW    0x00
GRPATR:
    DW    0x1B00
GRPPAT:
    DW    0x3800
MLTNAM:
    DW    0x800
MLTCOL:
    DW    0x00
MLTCGP:
    DW    0x00
MLTATR:
    DW    0x1B00
MLTPAT:
    DW    0x3800
CLIKSW:
    DB    1
CSRY:
    DB    1
CSRX:
    DB    1
CNSDFG:
    DB    0
RG0SAV:
    DB    0
RG1SAV:
    DB    0xE0
RG2SAV:
    DB    0
RG3SAV:
    DB    0
RG4SAV:
    DB    0
RG5SAV:
    DB    0
RG6SAV:
    DB    0
RG7SAV:
    DB    0
STATFL:
    DB    0
TRGFLG:
    DB    0xFF
FORCLR:
    DB    0x0F
BAKCLR:
    DB    4
BDRCLR:
    DB    7
MAXUPD:
    JP    RST0
MINUPD:
    JP    RST0
ATRBYT:
    DB    0x0F
QUEUES:
    DW    MB_QUETAB
FRCNEW:
    DB    0xFF
SCNCNT:
    DB    1
REPCNT:
    DB    50
PUTPNT:
    DW    MB_KEYBUF
GETPNT:
    DW    MB_KEYBUF
CS1200:
    DB    0x53, 0x5C, 0x26, 0x2D, 0x0F
CS2400:
    DB    0x25, 0x2D, 0x0E, 0x16, 0x1F
    DB    0x53, 0x5C, 0x26, 0x2D, 0x0F
ASPCT1:
    DW    0x0100
ASPCT2:
    DW    0x0100
ENDPRG:
    DB    ':'

SIZE EQU $ - START                                  ; Size of initval block

    ENDMODULE