Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-12 11:29:37 +00:00
Code Issues Projects Releases Wiki Activity

bubble: missed a file

Browse Source
This commit is contained in:
Vince Weaver 2024-01-02 02:08:34 -05:00
parent 17630cded6
commit 8bdc5f32a6
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
graphics/hgr/bubble/Makefile
View File

@ -25,7 +25,7 @@ HELLO: hello.bas
BUBBLE: bubble.o BUBBLE: bubble.o
ld65 -o BUBBLE bubble.o -C $(LINKER_SCRIPTS)/apple2_c00.inc ld65 -o BUBBLE bubble.o -C $(LINKER_SCRIPTS)/apple2_c00.inc
bubble.o: bubble.s bubble.o: bubble.s hgr_clear_screen.s
ca65 -o bubble.o bubble.s -l bubble.lst ca65 -o bubble.o bubble.s -l bubble.lst
### ###

28
graphics/hgr/bubble/hgr_table.s
View File

@ -1,7 +1,7 @@
;div7_table = $b800 div7_table = $6800
;mod7_table = $b900 mod7_table = $6900
;hposn_high = $ba00 hposn_high = $6a00
;hposn_low = $bb00 hposn_low = $6b00
hgr_make_tables: hgr_make_tables:
@ -76,7 +76,7 @@ btpl2:
rol rol
asl hposn_low, X asl hposn_low, X
rol rol
ora #$20 ; ora #$20
sta hposn_high, X sta hposn_high, X
inx inx
cpx #$C0 cpx #$C0
@ -84,14 +84,14 @@ btpl2:
; go 16 beyond, which allows our text scrolling routine ; go 16 beyond, which allows our text scrolling routine
ldx #16 ; ldx #16
extra_table_loop: ;extra_table_loop:
lda hposn_low,X ; lda hposn_low,X
sta hposn_low+192,X ; sta hposn_low+192,X
lda hposn_high,X ; lda hposn_high,X
eor #$60 ; eor #$60
sta hposn_high+192,X ; sta hposn_high+192,X
dex ; dex
bpl extra_table_loop ; bpl extra_table_loop
rts rts