MSX Basic v2 draft

MSX_v2/inival.inc

@@ -0,0 +1,165 @@
+; ===================================================
+; 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    LAB_1
+WRPRIM:
+    OUT   (PSSR), A
+    LD    (HL), E
+LAB_1:
+    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