sky

[bootcard] / bootcard.asm

diff --git a/bootcard.asm b/bootcard.asm
index e0955ed..434bf0b 100644 (file)
--- a/bootcard.asm
+++ b/bootcard.asm
@@ -7,13 +7,15 @@
        bits 16
 
 data_start     equ 7e00h
-osc_freq       equ 1193182
+nticks         equ data_start
+tmoffs         equ nticks + 4
+muscur         equ tmoffs + 4
+data_end       equ muscur + 4
+
+OSC_FREQ       equ 1193182
 PIT_DATA0      equ 40h
-PIT_DATA2      equ 42h
 PIT_CMD                equ 43h
 PIT_CMD_CHAN0  equ 00h
-PIT_CMD_CHAN1  equ 40h
-PIT_CMD_CHAN2  equ 80h
 PIT_CMD_HILO   equ 30h
 PIT_CMD_SQWAVE equ 06h
 KB_CTRL                equ 61h
@@ -27,7 +29,6 @@ KB_CTRL               equ 61h
        mov ah, 2
        int 10h
 %endmacro
-
 %macro spkon 0
        in al, KB_CTRL
        or al, 3
@@ -38,23 +39,67 @@ KB_CTRL             equ 61h
        and al, 0fch
        out KB_CTRL, al
 %endmacro
+%macro settimer 2
+       mov al, (PIT_CMD_CHAN0 + (%1 << 6)) | PIT_CMD_HILO | PIT_CMD_SQWAVE
+       out PIT_CMD, al
+       mov ax, %2
+       out PIT_DATA0 + %1, al
+       mov al, ah
+       out PIT_DATA0 + %1, al
+%endmacro
 
-       xor ax, ax
+start: xor eax, eax
        mov ds, ax
+       mov es, ax
        mov ss, ax
        mov sp, 7c00h
 
-       call init_spk
+       mov di, data_start
+       mov cx, (data_end - data_start) / 2
+       rep stosw
+
+       mov word [32], timer_intr
+       mov [34], ax
+
+       settimer 0, DIV_ROUND(OSC_FREQ, 200)
 
        mov ax, 13h
        int 10h
-       mov ax, 0a000h
-       mov es, ax
-
-       mov ax, 0303h
-       mov cx, 32000
+       push 0a000h
+       pop es
+
+       ; setup palette
+       mov cx, 128
+       mov dx, 3c8h
+       mov al, 16
+       out dx, al
+       inc dx
+.cmapsetup:
+       mov al, cl
+       shr al, 2
+       out dx, al
+       neg al
+       and al, 03fh
+       shr al, 1
+       mov ah, al
+       shr al, 2
+       out dx, al
+       mov al, ah
+       out dx, al
+       dec cx
+       jnz .cmapsetup
+       
+drawbg:
+       mov bx, 200
        xor di, di
+.fillgrad:
+       mov ax, bx
+       add ax, 16
+       mov ah, al
+       mov cx, 320
        rep stosw
+       dec bx
+       jnz .fillgrad
 
        setcursor 10, 12
        mov si, str1
@@ -63,27 +108,12 @@ KB_CTRL            equ 61h
        mov si, str2
        call textout
 
+       sti
+
 infloop:
        hlt
        jmp infloop
 
-init_spk:
-       xor ax, ax
-       mov [32], ax
-       mov word [34], timer_intr
-
-       mov al, PIT_CMD_CHAN2 | PIT_CMD_HILO | PIT_CMD_SQWAVE
-       out PIT_CMD, al
-       mov ax, DIV_ROUND(osc_freq, 440)
-       out PIT_DATA2, al
-       mov al, ah
-       out PIT_DATA2, al
-
-       spkon
-
-       sti
-       ret
-
 textout:
        mov al, [si]
        and al, al
@@ -96,14 +126,88 @@ textout:
 .done: ret
 
 timer_intr:
-       spkoff
-       mov al, 20h
+       pusha
+       mov ax, [nticks]
+       inc ax
+       mov [nticks], ax
+
+       sub ax, [tmoffs]
+.pmus: mov bx, [muscur]
+       shl bx, 2
+       mov cx, [music + bx]    ; event time
+       cmp cx, 0ffffh
+       jz .loop
+       cmp ax, cx
+       jb .eoi
+
+       inc dword [muscur]
+       mov ax, [music + 2 + bx] ; event counter reload
+       test ax, ax
+       jz .off
+       mov bx, ax
+       settimer 2, bx
+       spkon
+       jmp .eoi
+
+.off:  spkoff
+
+.eoi:  mov al, 20h
        out 20h, al     ; EOI
+       popa
        iret
 
+.loop: neg cx
+       mov [muscur], cx
+       mov ax, [nticks]
+       mov [tmoffs], ax
+       jmp .pmus
+       
+
 str1:  db 'message message blah',0
 str2:  db 'Michael & Athina',0
 
+G2     equ 24351/2
+C3     equ 18243/2
+D3     equ 16252/2
+B2     equ 19328/2
+F3     equ 13666/2
+E3     equ 14479/2
+
+%define TM(x)  (40 + (x) * 4)
+
+music: dw 0, 0
+       dw TM(0),       G2
+       dw TM(40),      C3
+       dw TM(70),      C3
+
+       dw TM(80),      C3
+       dw TM(140),     0
+
+       dw TM(160),     G2
+       dw TM(200),     D3
+       dw TM(230),     B2
+
+       dw TM(240),     C3
+       dw TM(300),     0
+
+       dw TM(320),     G2
+       dw TM(360),     C3
+       dw TM(390),     F3
+
+       dw TM(400),     F3
+       dw TM(440),     E3
+       dw TM(470),     D3
+
+       dw TM(480),     C3
+       dw TM(520),     B2
+       dw TM(550),     C3
+
+       dw TM(560),     D3
+       dw TM(640),     0
+
+       dw TM(680),     0
+       dw 0ffffh, 0
+
        times 446-($-$$) db 0
        dd 00212080h
        dd 0820280ch