org 7c00h
bits 16
-data_start equ 7e00h
-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
-
-%define DIV_ROUND(a, b) ((a) / (b) + ((a) % (b)) / ((b) / 2))
-
-%macro setcursor 2
- mov dl, %1
- mov dh, %2
+nticks equ 7e00h
+tmoffs equ 7e04h
+musptr equ 7e08h
+ppos equ 7e0ch
+
+%macro setcur 2
+ mov dx, %1 | (%2 << 8)
xor bx, bx
mov ah, 2
int 10h
%endmacro
-
%macro spkon 0
- in al, KB_CTRL
+ in al, 61h
or al, 3
- out KB_CTRL, al
+ out 61h, al
%endmacro
%macro spkoff 0
- in al, KB_CTRL
+ in al, 61h
and al, 0fch
- out KB_CTRL, al
+ out 61h, al
+%endmacro
+%macro stimer 2
+ mov al, (%1 << 6) | 36h
+ out 43h, al
+ mov ax, %2
+ out 40h + %1, al
+ mov al, ah
+ out 40h + %1, al
%endmacro
- xor ax, ax
+start: xor ax, ax
mov ds, ax
+ mov es, ax
mov ss, ax
mov sp, 7c00h
- call init_spk
+ mov di, nticks
+ mov cx, 8
+ rep stosw
+
+ mov word [32], tintr
+ mov [34], ax
+
+ stimer 0, 5966
mov ax, 13h
int 10h
- mov ax, 0a000h
- mov es, ax
-
- mov ax, 0303h
- mov cx, 32000
- xor di, di
- rep stosw
+ push 0a000h
+ pop es
- setcursor 10, 12
+ setcur 10, 0
mov si, str1
call textout
- setcursor 12, 13
+ setcur 12, 1
mov si, str2
call textout
-infloop:
- hlt
- jmp infloop
+ sti
-init_spk:
- xor ax, ax
- mov [32], ax
- mov word [34], timer_intr
+mainloop:
+ mov dx, 3dah
+.invb: in al, dx
+ and al, 8
+ jnz .invb
+.novb: in al, dx
+ and al, 8
+ jz .novb
- 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
+ call drawbg
- spkon
+ call psys
- sti
+ jmp mainloop
+
+drawbg:
+ mov bx, 200
+ mov di, 5120
+.fillgrad:
+ mov ax, bx
+ mov ah, al
+ mov cx, 2400 ; 15 lines
+ rep stosw
+ inc bx
+ cmp bx, 208
+ jnz .fillgrad
+
+ ; mountains
+ mov cx, 320
+ mov bp, sp
+.mnt: mov [bp - 2], cx
+ fild word [bp - 2]
+ fidiv word [w30]
+ fsincos
+ fiadd word [w5]
+ fimul word [w5]
+ fistp word [bp - 2]
+ fstp st0
+ mov bx, [bp - 2]
+ add bx, 100
+ imul bx, bx, 320
+ add bx, cx
+.mntcol:
+ mov byte [es:bx], 0
+ add bx, 320
+ cmp bx, 64000
+ jb .mntcol
+
+ dec cx
+ jnz .mnt
+
+ ret
+
+psys: cmp word [ppos + 2], 0
+ ja .skipspawn
+
+ call rnd
+ add ax, 128
+ mov [ppos + 2], ax
+ call rnd
+ add ax, 32
+ mov [ppos], ax
+.skipspawn:
+ dec word [ppos + 2]
+ mov ax, [ppos + 2]
+ shr ax, 2
+ imul bx, ax, 320
+ add bx, [ppos]
+ mov byte [es:bx], 0eh
+
+rnd: in al, 40h
+ mov ah, al
+ in al, 40h
+ shr ax, 8
ret
textout:
and al, al
jz .done
mov ah, 0eh
- mov bx, 0fh
+ mov bx, 82
int 10h
inc si
jmp textout
.done: ret
-timer_intr:
- spkoff
- mov al, 20h
- out 20h, al ; EOI
+tintr:
+ pusha
+ mov ax, [nticks]
+ inc ax
+ mov [nticks], ax
+
+ mov bx, [musptr]
+ cmp bx, 23*3
+ jnz .skiploop
+ xor bx, bx
+ mov [tmoffs], ax
+.skiploop:
+ xor cx, cx
+ mov cl, [music + bx]
+ shl cx, 4
+ sub ax, [tmoffs]
+ cmp ax, cx
+ jb .eoi
+
+ mov ax, [music + 1 + bx]
+ add bx, 3
+ mov [musptr], bx
+ test ax, ax
+ jz .off
+ mov bx, ax
+ stimer 2, bx
+ spkon
+ jmp .eoi
+
+.off: spkoff
+
+.eoi: mov al, 20h
+ out 20h, al
+ popa
iret
-str1: db 'message message blah',0
-str2: db 'Michael & Athina',0
+str1: db 'message blah',0
+str2: db 'Michael & Athena',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 446-($-$$) db 0
dd 00212080h
dd 0820280ch
dd 00000800h
dd 0001f800h
+
times 510-($-$$) db 0
dw 0aa55h