projects
/
bootcard
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
556d594
)
Revert "slight source minification 2"
author
John Tsiombikas
<nuclear@member.fsf.org>
Sun, 24 Jul 2022 18:45:58 +0000
(21:45 +0300)
committer
John Tsiombikas
<nuclear@member.fsf.org>
Sun, 24 Jul 2022 18:45:58 +0000
(21:45 +0300)
This reverts commit
556d5949c6abded2cd793f7adda37adfe9ec5682
.
bootcard.asm
patch
|
blob
|
history
diff --git
a/bootcard.asm
b/bootcard.asm
index
29f0e5c
..
1c4542a
100644
(file)
--- a/
bootcard.asm
+++ b/
bootcard.asm
@@
-1,15
+1,31
@@
; boot me!
; boot me!
-; nasm -f bin -o foo.img foo.asm
-; cat foo.img >/dev/<usbstick>
+; nasm -f bin -o bootcard.img bootcard.asm
+; cat bootcard.img >/dev/<usbstick>
org 7c00h
bits 16
org 7c00h
bits 16
+barh equ 4
+nbars equ 11
+barstart equ 152
+
nticks equ 7e00h
tmoffs equ 7e04h
musptr equ 7e08h
nticks equ 7e00h
tmoffs equ 7e04h
musptr equ 7e08h
+frame equ 7e0ch
+fval equ 7e10h
cmap equ 7e14h
cmap equ 7e14h
+%macro spkon 0
+ in al, 61h
+ or al, 3
+ out 61h, al
+%endmacro
+%macro spkoff 0
+ in al, 61h
+ and al, 0fch
+ out 61h, al
+%endmacro
%macro stimer 2
mov al, (%1 << 6) | 36h
out 43h, al
%macro stimer 2
mov al, (%1 << 6) | 36h
out 43h, al
@@
-32,6
+48,7
@@
start: xor ax, ax
cli
mov word [32], tintr
mov [34], ax
cli
mov word [32], tintr
mov [34], ax
+
stimer 0, 5966
mov ax, 13h
stimer 0, 5966
mov ax, 13h
@@
-40,14
+57,14
@@
start: xor ax, ax
pop es
mov al, 16
pop es
mov al, 16
- mov di, 48640
- mov bx, 11
-.bars:
- mov cx, 1280
+ mov di, barstart * 320
+ mov bx, nbars
+.drawbars:
+ mov cx, barh * 320
rep stosb
inc al
dec bx
rep stosb
inc al
dec bx
- jnz .bars
+ jnz .drawbars
mov dx, 100ch
xor bx, bx
mov dx, 100ch
xor bx, bx
@@
-56,13
+73,13
@@
start: xor ax, ax
mov si, str1
.txout: mov al, [si]
and al, al
mov si, str1
.txout: mov al, [si]
and al, al
- jz .done
+ jz .txdone
mov ah, 0eh
mov bx, 82
int 10h
inc si
jmp .txout
mov ah, 0eh
mov bx, 82
int 10h
inc si
jmp .txout
-.done:
+.txdone:
sti
mainloop:
sti
mainloop:
@@
-80,12
+97,13
@@
drawbg:
.fillgrad:
mov ax, bx
mov ah, al
.fillgrad:
mov ax, bx
mov ah, al
- mov cx, 2400
+ mov cx, 2400 ; 15 lines
rep stosw
inc bx
cmp bx, 208
jnz .fillgrad
rep stosw
inc bx
cmp bx, 208
jnz .fillgrad
+ ; mountains
mov cx, 320
mov bp, sp
.mnt: mov [bp - 2], cx
mov cx, 320
mov bp, sp
.mnt: mov [bp - 2], cx
@@
-109,6
+127,7
@@
drawbg:
dec cx
jnz .mnt
dec cx
jnz .mnt
+ ; upd pal
mov dx, 3c8h
mov al, 16
out dx, al
mov dx, 3c8h
mov al, 16
out dx, al
@@
-153,14
+172,10
@@
tintr:
mov bx, ax
stimer 2, bx
mov bx, ax
stimer 2, bx
- in al, 61h
- or al, 3
- out 61h, al
+ spkon
jmp .end
jmp .end
-.off: in al, 61h
- and al, 0fch
- out 61h, al
+.off: spkoff
.end: test word [nticks], 1
jnz .eoi
.end: test word [nticks], 1
jnz .eoi