; ---- boot me! ----
; nasm -f bin -o bootcard.img bootcard.asm
; cat bootcard.img >/dev/<usbstick>
-; reboot
org 7c00h
bits 16
+barh equ 4
+nbars equ 11
+barstart equ 200 - (nbars+1) * barh
+
nticks equ 7e00h
tmoffs equ 7e04h
-muscur equ 7e08h
+musptr equ 7e08h
+frame equ 7e0ch
+fval equ 7e10h
+cmap equ 7e14h
%macro setcur 2
mov dx, %1 | (%2 << 8)
mov sp, 7c00h
mov di, nticks
- mov cx, 6
+ mov cx, 16
rep stosw
+ cli
mov word [32], tintr
mov [34], ax
mov ax, 13h
int 10h
- push 1000h
+ push 0a000h
pop es
+
+ mov al, 16
+ mov di, barstart * 320
+ mov bx, nbars
+.drawbars:
+ mov cx, barh * 320
+ rep stosb
+ inc al
+ dec bx
+ jnz .drawbars
+
+ setcur 12, 16
+ mov si, str1
+ call textout
+
sti
mainloop:
- call drawbg
-
- push ds
- push es
- push es
- pop ds
- push 0a000h
- pop es
- xor di, di
- xor si, si
- mov cx, 32000
-
mov dx, 3dah
.invb: in al, dx
and al, 8
and al, 8
jz .novb
- rep movsw
- pop es
- pop ds
-
- setcur 10, 0
- mov si, str1
- call textout
- setcur 12, 1
- mov si, str2
- call textout
-
- jmp mainloop
-
drawbg:
mov bx, 200
- mov di, 5120
+ xor di, di
.fillgrad:
mov ax, bx
mov ah, al
- mov cx, 2400 ; 15 lines
+ mov cx, 2400 ; 15 lines
rep stosw
inc bx
cmp bx, 208
fistp word [bp - 2]
fstp st0
mov bx, [bp - 2]
- add bx, 100
+ add bx, 84
imul bx, bx, 320
add bx, cx
.mntcol:
mov byte [es:bx], 0
add bx, 320
- cmp bx, 64000
+ cmp bx, 128 * 320
jb .mntcol
dec cx
jnz .mnt
-
- ret
+ ; upd colormap
+ mov dx, 3c8h
+ mov al, 16
+ out dx, al
+ inc dx
+ mov si, cmap
+ mov cx, 16 * 3
+ rep outsb
+
+ jmp mainloop
textout:
mov al, [si]
jmp textout
.done: ret
+
tintr:
pusha
- push ds
- push word 0
- pop ds
mov ax, [nticks]
inc ax
mov [nticks], ax
+ mov bx, [musptr]
+ cmp bx, 22*3
+ jnz .skiploop
+ xor bx, bx
+ mov [tmoffs], ax
+.skiploop:
+ xor cx, cx
+ mov cl, [music + bx]
+ shl cx, 4
sub ax, [tmoffs]
-.pmus: mov bx, [muscur]
- shl bx, 2
- mov cx, [music + bx]
- cmp cx, 0ffffh
- jz .loop
cmp ax, cx
- jb .eoi
+ jb .end
- inc word [muscur]
- mov ax, [music + 2 + bx]
+ mov ax, [music + 1 + bx]
+ add bx, 3
+ mov [musptr], bx
test ax, ax
jz .off
+
+ mov bx, ax
+ shr bx, 9
+ sub bx, 13
+ imul bx, bx, 3
+ mov byte [cmap + bx], 3fh
+ mov word [cmap + bx + 1], 2f2fh
+
mov bx, ax
stimer 2, bx
spkon
- jmp .eoi
+ jmp .end
.off: spkoff
+.end: test word [nticks], 1
+ jnz .eoi
+ mov cx, 16 * 3
+ mov si, cmap
+.fadecol:
+ lodsb
+ test al, al
+ jz .skipdec
+ dec al
+ mov [si-1], al
+.skipdec:
+ dec cx
+ jnz .fadecol
+
.eoi: mov al, 20h
out 20h, al
- pop ds
popa
iret
-.loop: neg cx
- mov [muscur], cx
- mov ax, [nticks]
- mov [tmoffs], ax
- jmp .pmus
-
+str1: db 'Michael ',3,' Athena',0
-str1: db 'message blah',0
-str2: db 'Michael & Athena',0
-
-G2 equ 12175
-C3 equ 9121
-D3 equ 8126
-B2 equ 9664
-F3 equ 6833
-E3 equ 7239
-
-music: dw 0, 0
- dw 40, G2
- dw 200, C3
- dw 320, C3
- dw 360, C3
- dw 600, 0
- dw 680, G2
- dw 840, D3
- dw 960, B2
- dw 1000, C3
- dw 1240, 0
- dw 1320, G2
- dw 1480, C3
- dw 1600, F3
- dw 1640, F3
- dw 1800, E3
- dw 1920, D3
- dw 1960, C3
- dw 2120, B2
- dw 2240, C3
- dw 2280, D3
- dw 2600, 0
- dw 2760, 0
- dw 0ffffh, 0
+music: dd 0a2f8f00h, 0a11123a1h, 23a11423h, 28000023h, 0be322f8fh, 25c0391fh
+ dd 4b23a13ch, 8f500000h, 23a15a2fh, 641ab161h, 476e1ab1h, 1fbe751ch
+ dd 8223a178h, 0a18925c0h, 1fbe8c23h, 0aa0000a0h
+ dw 0
w5: dw 5
w30: dw 30
times 510-($-$$) db 0
dw 0aa55h
-
; vi:ft=nasm ts=8 sts=8 sw=8: