back to the standard palette

[bootcard] / bootcard.asm

diff --git a/bootcard.asm b/bootcard.asm
index f22c65c..80779b3 100644 (file)
--- a/bootcard.asm
+++ b/bootcard.asm
@@ -8,9 +8,11 @@
 
 data_start     equ 7e00h
 nticks         equ data_start
-muscur         equ nticks + 4
-spkstat                equ muscur + 4
-vol            equ spkstat + 4
+tmoffs         equ nticks + 4
+muscur         equ tmoffs + 4
+data_end       equ muscur + 4
+
+backbuf_seg    equ 1000h
 
 OSC_FREQ       equ 1193182
 PIT_DATA0      equ 40h
@@ -48,49 +50,81 @@ KB_CTRL             equ 61h
        out PIT_DATA0 + %1, al
 %endmacro
 
-       xor eax, eax
+start: xor eax, eax
        mov ds, ax
+       mov es, ax
        mov ss, ax
        mov sp, 7c00h
 
-       mov [nticks], eax
-       mov [muscur], eax
-       ;mov [spkstat], eax
-       ;mov word [vol], 04h
+       mov di, data_start
+       mov cx, (data_end - data_start) / 2
+       rep stosw
+
        mov word [32], timer_intr
-       mov word [34], 0
+       mov [34], ax
 
-       settimer 0, DIV_ROUND(OSC_FREQ, 100)
+       settimer 0, DIV_ROUND(OSC_FREQ, 200)
 
        mov ax, 13h
        int 10h
-       mov ax, 0a000h
-       mov es, ax
+       push backbuf_seg
+       pop es
 
-       mov ax, 0303h
-       mov cx, 32000
+       sti
+
+mainloop:
+       call drawbg
+
+       mov dx, 3dah
+.invb: in al, dx
+       and al, 8
+       jnz mainloop
+.novb: in al, dx
+       and al, 8
+       jz .novb
+
+       push ds
+       push es
+       push es
+       pop ds
+       push 0a000h
+       pop es
        xor di, di
-       rep stosw
+       xor si, si
+       mov cx, 32000
+       rep movsw
+       pop es
+       pop ds
 
-       setcursor 10, 12
+       setcursor 10, 0
        mov si, str1
        call textout
-       setcursor 12, 13
+       setcursor 12, 1
        mov si, str2
        call textout
 
-       sti
+       jmp mainloop
+
+drawbg:
+       mov bx, 200
+       mov di, 5120
+.fillgrad:
+       mov ax, bx
+       mov ah, al
+       mov cx, 3680    ; 20 lines
+       rep stosw
+       inc bx
+       cmp bx, 208
+       jnz .fillgrad
+       ret
 
-infloop:
-       hlt
-       jmp infloop
 
 textout:
        mov al, [si]
        and al, al
        jz .done
        mov ah, 0eh
-       mov bx, 0fh
+       mov bx, 82
        int 10h
        inc si
        jmp textout
@@ -102,13 +136,14 @@ timer_intr:
        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 .dopwm
+       jb .eoi
 
        inc dword [muscur]
        mov ax, [music + 2 + bx] ; event counter reload
@@ -117,27 +152,9 @@ timer_intr:
        mov bx, ax
        settimer 2, bx
        spkon
-       mov word [spkstat], 1
-       jmp .dopwm
-
-.off:  spkoff
-       mov word [spkstat], 0
        jmp .eoi
 
-       ; PWM for volume control
-.dopwm:        jmp .eoi
-       spkoff
-       mov ax, [spkstat]
-       test ax, ax
-       jz .eoi
-       mov ax, [nticks]
-       and ax, 0fh
-       cmp ax, [vol]
-       jae .pwmoff
-       spkon
-       jmp .eoi
-.pwmoff:
-       spkoff
+.off:  spkoff
 
 .eoi:  mov al, 20h
        out 20h, al     ; EOI
@@ -146,35 +163,54 @@ timer_intr:
 
 .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
 
-music:
-       dw 0, 2000
-       dw 10, 1900
-       dw 20, 1800
-       dw 30, 1700
-       dw 40, 1600
-       dw 50, 1500
-       dw 60, 1400
-       dw 70, 1300
-       dw 80, 1200
-       dw 90, 1100
-       dw 100, 1000
-       dw 110, 1100
-       dw 120, 1200
-       dw 130, 1300
-       dw 140, 1400
-       dw 150, 1500
-       dw 160, 1600
-       dw 170, 1700
-       dw 180, 1800
-       dw 190, 1900
-       dw 200, 2000
-       dw 210, 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