Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-13 04:05:15 +00:00
Code Issues Projects Releases Wiki Activity

fire: qkumba knocked a byte off of it (now 63 bytes)

Browse Source
This commit is contained in:
Vince Weaver 2019-01-04 11:33:01 -05:00
parent 0e423a42b6
commit c8fb446acb
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fire/fe_monitor
View File

@ -1,3 +1,2 @@
70: 2C 50 C0 20 70 FC A9 FF 99 CF 07 88 D0 FA A9 16 85 25 20 22 FC A0 27 A5 4E F0 05 0A F0 04 90 02 49 1D 85 4E 30 09 B1 28 29 07 AA B5 A8 91 28 88 10 E5 C6 25 10 DC 30 CB 00 BB 00 AA 00 99 00 DD
70: 2C 50 C0 20 70 FC A9 FF 91 2A 88 10 FB A9 16 85 25 20 22 FC A0 27 A5 4E F0 05 0A F0 04 90 02 49 1D 85 4E 30 09 B1 28 29 07 AA B5 A7 91 28 88 10 E5 C6 25 10 DC 30 CC 00 BB 00 AA 00 99 00 DD
70G

18
fire/fire_extreme.s
View File

@ -1,4 +1,4 @@
; Apple ][ Lo-res fire animation, size-optimized to 64 bytes
; Apple ][ Lo-res fire animation, size-optimized to 63 bytes
; by deater (Vince Weaver) <vince@deater.net>
@ -10,7 +10,7 @@
; 80 bytes -- the size of tire_tiny.s
; 64 bytes -- use the firmware SCROLL routine to handle the scrolling
; this adds some flicker but saves many bytes
; 63 bytes -- qkumba noted that SCROLL leaves BAS2L:BAS2H pointing at $7d0
; Zero Page
@ -19,6 +19,8 @@ WNDBTM = $23
CV = $25
BASL = $28
BASH = $29
BAS2L = $2A
BAS2H = $2B
SEEDL = $4E
; Soft Switches
@ -57,13 +59,17 @@ scroll_loop:
;======================================
; re-draw bottom line (row 23) as white
lda #$ff ; top/bottom white ; 2
; ldy #39 ; Y is left at 40 after SCROLL
; Y is left at 40 after SCROLL
; also BAS2L:BAS2H is left at $7d0
; this code over-writes $7F8 (the MSLOT screen hole value)
; but this should not matter for this demo
lda #$ff ; top/bottom white ; 2
w_loop:
sta $7cf,Y ; hline 23 (46+47) ; 2
sta (BAS2L),Y ; hline 23 (46+47) ; 2
dey ; 1
bne w_loop ; 2
bpl w_loop ; 2
;============
; 8