Misc/abrash-black-book
Watch
1
0
Fork
You've already forked abrash-black-book
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Normal quotes

Browse source
This commit is contained in:
James Gregory 2013-12-30 18:34:31 +11:00
commit 18011c595a
352 changed files with 6040 additions and 6040 deletions
Download patch file Download diff file Expand all files Collapse all files

30
43-03.md
View file

@ -18,7 +18,7 @@
;
SLOWDOWN equ 10000
;
; Plane selects for the four colors we’re using.
; Plane selects for the four colors we're using.
;
RED equ 01h
GREEN equ 02h
@ -34,15 +34,15 @@
SCREEN_WIDTH equ 80 ;# of bytes across screen
SCREEN_HEIGHT equ 350 ;# of scan lines on screen
WORD_OUTS_OK equ 1 ;set to 0 to assemble for
; computers that can’t
; computers that can't
; handle word outs to
; indexed VGA regs
;
stack segment para stack ‘STACK’
stack segment para stack ‘STACK'
db 512 dup (?)
stack ends
;
; Complete info about one object that we’re animating.
; Complete info about one object that we're animating.
;
ObjectStructure struc
Delay dw ? ;used to delay for n passes
@ -72,7 +72,7 @@
; word-aligned)
ObjectStructure ends
;
Data segment word ‘DATA’
Data segment word ‘DATA'
;
; Palette settings to give plane 0 precedence, followed by
; planes 1, 2, and 3. Plane 3 has the lowest precedence (is
@ -98,9 +98,9 @@
db 000h ;border color=black
;
; Image of a hollow square.
; There’s an 8-pixel-wide blank border around all edges
; There's an 8-pixel-wide blank border around all edges
; so that the image erases the old version of itself as
; it’s moved and redrawn.
; it's moved and redrawn.
;
Square label byte
dw 48,6 ;height in pixels, width in bytes
@ -147,9 +147,9 @@
;
; Image of a hollow diamond with a smaller diamond in the
; middle.
; There’s an 8-pixel-wide blank border around all edges
; There's an 8-pixel-wide blank border around all edges
; so that the image erases the old version of itself as
; it’s moved and redrawn.
; it's moved and redrawn.
;
Diamond label byte
dw 48,6 ;height in pixels, width in bytes
@ -301,15 +301,15 @@
mov bx,offset ObjectList ;point to the first
; object in the list
;
; For each object, see if it’s time to move and draw that
; For each object, see if it's time to move and draw that
; object.
;
ObjectLoop:
;
; See if it’s time to move this object.
; See if it's time to move this object.
;
dec [bx+Delay] ;count down delay
jnz DoNextObject ;still delaying-don’t move
jnz DoNextObject ;still delaying-don't move
mov ax,[bx+BaseDelay]
mov [bx+Delay],ax ;reset delay for next time
;
@ -354,7 +354,7 @@
; above, only one plane will be affected.
;
mov si,[bx+Image] ;point to the
; object’s image
; object's image
; info
call DrawObject
;
@ -374,7 +374,7 @@
loop DelayLoop
endif
;
; If a key’s been pressed, we’re done, otherwise animate
; If a key's been pressed, we're done, otherwise animate
; again.
;
CheckKey:
@ -436,7 +436,7 @@
; solid cross line)
BackdropRowLoop:
mov cx,SCREEN_WIDTH/2
rep stosw ;draw this scan line’s bit
rep stosw ;draw this scan line's bit
; of all the vertical lines
; on the screen
dec dx