Rotinas da BIOS e SUB-ROM do MSX 2

LD IX, rotina
CALL EXTROM

PUSH IX
LD IX, rotina
JP SUBROM

NVBXLN (00C9H)
  Função: desenhar uma caixa
  Entradas: ponto inicial: BC para a coordenada X, DE para a coordenada Y
            ponto final: GXPOS (FCB3H) para a coordenada X
                         GYPOS (FCB5H) para a coordenada Y
            cor: ATRBYT (F3F3H) para o atributo
            operação lógica: LOGOPR (FB02H)
  Saídas: nada
  Registradores afetados: todos

10 ORG &HC000
20 NVBXLN: EQU &HC9
30 EXTROM: EQU &H15F
40 CHGMOD: EQU &H5F
50 CHGET: EQU &H9F
60 GXPOS: EQU &HFCB3
70 GYPOS: EQU &HFCB5
80 ATRBYT: EQU &HF3F3
90 LOGOPR: EQU &HFB02
94 ;
95 ; -- Altera para screen 5
96 ;
100 LD A,5
110 CALL CHGMOD
114 ;
115 ; -- Prepara dados e desenha caixa
116 ;
120 XOR A
130 LD (LOGOPR),A
140 LD A,15
150 LD (ATRBYT),A
160 LD HL,100
170 LD (GXPOS),HL
180 LD HL,100
190 LD (GYPOS),HL
200 LD BC,10
210 LD DE,10
220 LD IX,NVBXLN
230 CALL EXTROM
234 ;
235 ; -- Aguarda tecla
236 ;
240 CALL CHGET
244 ;
245 ; -- Volta a screen 0
246 ;
250 XOR A
260 CALL CHGMOD
270 RET

10 SCREEN 5
20 LINE(10,10)-(100,100),15,B,PSET
30 A$=INPUT$(1)
40 SCREEN 0

10 E=&HC000
20 READ A$:IF A$="M" THEN 60
30 POKE E,VAL("&H"+A$)
40 E=E+1
50 GOTO 20
60 DEFUSR=&HC000:X=USR(0)
70 DATA 3E,05,CD,5F,00,AF,32,02
80 DATA FB,3E,0F,32,F3,F3,21,64
90 DATA 00,22,B3,FC,21,64,00,22
100 DATA B5,FC,01,0A,00,11,0A,00
110 DATA DD,21,C9,00,CD,5F,01,CD
120 DATA 9F,00,AF,CD,5F,00,C9,M

0. Relógio
1. Alarme
2. Configurações do MSX
3. Configurações título/password/prompt

Dezena   Unidade
reg+1    reg

Dezena Unidade
  1      3
Reg#8   Reg#7

O dia é 13.

• ID 0 - Armazena uma string de até 6 caracteres para o título no boot.
• ID 1 - Armazena uma senha de até 6 caracteres para o boot.
• ID 2 - Armazena uma string de até 6 caracteres para o prompt do Basic.

Registrador   Dado
----------------------------------
     1        Caracterere 1 (low)
     2        Caracterere 1 (high)
     3        Caracterere 2 (low)
     4        Caracterere 2 (high)
     5        Caracterere 3 (low)
     6        Caracterere 3 (high)
     7        Caracterere 4 (low)
     8        Caracterere 4 (high)
     9        Caracterere 5 (low)
    10        Caracterere 5 (high)
    11        Caracterere 6 (low)
    12        Caracterere 6 (high)

Código ASCII: &H41

high  low
 4     1

Registrador  1  2
Valor        1  4

3 2 1 0
R A M M

R - Relógio, onde 0-parado e 1-funcionando.
A - Alarme, onde 0-desligado e 1-ligado.
M - Modo, que equivale ao número do bloco.

REDCLK (01F5H)
Função: Ler um registrador do CLOCK-IC.
Entrada: C - endereço do CLOCK-IC.
Saída: A - Dado lido (somente os primeiros 4 bits). 

WRTCLK (01F9H)
Função: Escrever no registrador do CLOCK-IC.
Entrada: C - endereço do CLOCK-IC.
Saída: A - Dado a ser escrito (somente os primeiros 4 bits). 

Bit 7 6 5 4 3 2 1 0
        B B E E E E

B - Bloco, de 0 a 3.
E - Endereço, de 0 a 15.

10 ORG &HC000
20 EXTROM: EQU &H15F
30 REDCLK: EQU &H1F5
40 LD C,&HB00001000
50 LD IX,REDCLK
60 CALL EXTROM		; Lê registrador 8
70 LD (&HD000),A	; Armazena o resultado da dezena em D000
80 LD C,&b00000111
90 LD IX,REDCLK
100 CALL EXTROM		; Lê registrador 7
110 LD (&HD001),A	; Armazena o resultado da unidade em D001
120 RET

70 PRINT"Dia:";PEEK(&HD000)*10+PEEK(&HD001)
80 DATA 0E,08,DD,21,F5,01,CD,5F
90 DATA 01,32,00,D0,0E,07,DD,21
100 DATA F5,01,CD,5F,01,32,01,D0
110 DATA C9,M

10 E=&HC000
20 READ A$:IF A$="M" THEN 60
30 POKE E,VAL("&H"+A$)
40 E=E+1
50 GOTO 20
60 DEFUSR=&HC000:X=USR(0):CLS
70 PRINT"Informacoes do relogio do MSX":PRINT
80 PRINT"ID:";PEEK(&HD000)
90 POKE &HC001,&H21:X=USR(0)
100 PRINT"Ajuste horizontal:";PEEK(&HD000)
110 POKE &HC001,&H22:X=USR(0)
120 PRINT"Ajuste vertical:";PEEK(&HD000)
130 POKE &HC001,&H24:X=USR(0):A=PEEK(&HD000)
140 POKE &HC001,&H25:X=USR(0)
150 PRINT"Width:";PEEK(&HD000)*16+A
160 POKE &HC001,&H26:X=USR(0)
170 PRINT"Cor de frente:";PEEK(&HD000)
180 POKE &HC001,&H27:X=USR(0)
190 PRINT"Cor de fundo:";PEEK(&HD000)
200 POKE &HC001,&H28:X=USR(0)
210 PRINT"Cor da borda:";PEEK(&HD000)
220 POKE &HC001,&H29:X=USR(0)
230 PRINT"Printer:";INT(PEEK(&HD000)/4)
240 PRINT"Click:";INT(PEEK(&HD000)/2) AND 1
250 PRINT"Keys:";PEEK(&HD000) AND 1
260 POKE &HC001,&H2A:X=USR(0)
270 PRINT"Tom do beep:";INT(PEEK(&HD000)/4)
280 PRINT"Volume do beep:";PEEK(&HD000) AND 3
290 POKE &HC001,&H2B:X=USR(0)
300 PRINT"Tela de boot:";PEEK(&HD000) AND 3
310 POKE &HC001,&H2C:X=USR(0)
320 PRINT"Codigo nativo:";PEEK(&HD000)
500 DATA 0E,20,DD,21,F5,01,CD,5F
510 DATA 01,32,00,D0,C9,M

10 E=&HC000
20 READ A$:IF A$="M" THEN 60
30 POKE E,VAL("&H"+A$)
40 E=E+1
50 GOTO 20
60 DEFUSR=&HC000:X=USR(0):CLS:DIM N$(2)
70 N$(0)="Titulo":N$(1)="Senha":N$(2)="Prompt"
80 PRINT"Informacoes do relogio do MSX":PRINT
90 PRINT"Tipo: ";N$(PEEK(&HD000)):PRINT"String: ";
100 FOR I=1 TO 12 STEP 2
110 POKE &HC001,VAL("&H3"+HEX$(I)):X=USR(0)
120 A=PEEK(&hD000)
130 POKE &HC001,VAL("&H3"+HEX$(I+1)):X=USR(0)
140 PRINT CHR$(PEEK(&HD000)*16+A);
150 NEXT I
500 DATA 0E,30,DD,21,F5,01,CD,5F
510 DATA 01,32,00,D0,C9,M