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

hgr: oval bot

Browse Source
This commit is contained in:
Vince Weaver 2021-10-25 17:13:29 -04:00
parent 0527513905
commit d491f6ddca
2 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
graphics/hgr/plasma/Makefile
View File

@ -15,7 +15,7 @@ plasma_hgr.dsk: HELLO OVAL PURPLE_WAVES ZEBRA JAWS TWIST OVAL_BOT
$(DOS33) -y plasma_hgr.dsk BSAVE -a 0xc00 ZEBRA $(DOS33) -y plasma_hgr.dsk BSAVE -a 0xc00 ZEBRA
$(DOS33) -y plasma_hgr.dsk BSAVE -a 0xc00 JAWS $(DOS33) -y plasma_hgr.dsk BSAVE -a 0xc00 JAWS
$(DOS33) -y plasma_hgr.dsk BSAVE -a 0xc00 TWIST $(DOS33) -y plasma_hgr.dsk BSAVE -a 0xc00 TWIST
$(DOS33) -y plasma_hgr.dsk BSAVE -a 0x378 OVAL_BOT $(DOS33) -y plasma_hgr.dsk BSAVE -a 0x3F5 OVAL_BOT
### ###
@ -33,7 +33,7 @@ oval.o: oval.s
### ###
OVAL_BOT: oval_bot.o OVAL_BOT: oval_bot.o
ld65 -o OVAL_BOT oval_bot.o -C $(LINKERSCRIPTS)/apple2_378.inc ld65 -o OVAL_BOT oval_bot.o -C $(LINKERSCRIPTS)/apple2_3f5.inc
oval_bot.o: oval_bot.s oval_bot.o: oval_bot.s
ca65 -o oval_bot.o oval_bot.s -l oval_bot.lst ca65 -o oval_bot.o oval_bot.s -l oval_bot.lst

22
graphics/hgr/plasma/oval_bot.s
View File

@ -86,12 +86,10 @@ draw_oval:
inc FRAME inc FRAME
lda #191 ; YY lda #191 ; YY
; sta HGR_Y
create_yloop: create_yloop:
; dec HGR_Y ; HGR_Y (YY) is in A here
; lda HGR_Y
; ldx #39 ; X is don't care? ; ldx #39 ; X is don't care?
ldy #0 ldy #0
@ -99,8 +97,6 @@ create_yloop:
; restore values ; restore values
ldy #39 ; XX
lda HGR_Y ; YY lda HGR_Y ; YY
calcsine_div2: calcsine_div2:
@ -113,7 +109,7 @@ calcsine_div2:
ldx HGR_Y ; YY ldx HGR_Y ; YY
ldy #39 ; XX
create_xloop: create_xloop:
;===================== ;=====================
@ -147,6 +143,7 @@ ror_nop_smc:
dec HGR_Y dec HGR_Y
lda HGR_Y lda HGR_Y
cmp #$ff
bne create_yloop bne create_yloop
; we skip drawing line 0 as it makes it easier ; we skip drawing line 0 as it makes it easier
@ -155,13 +152,13 @@ flip_pages:
; Y should be $FF here ; Y should be $FF here
iny ; iny
lda HGR_PAGE lda HGR_PAGE
cmp #$20 cmp #$20
beq done_page bne done_page
iny dey
done_page: done_page:
ldx PAGE1,Y ; set display page to PAGE1 or PAGE2 ldx PAGE1-$FE,Y ; set display page to PAGE1 or PAGE2
eor #$60 ; flip draw page between $400/$800 eor #$60 ; flip draw page between $400/$800
sta HGR_PAGE sta HGR_PAGE
@ -185,9 +182,8 @@ sinetable_base:
; for bot ; for bot
; 3F5 - 7d = 378 ; 3F5 - 7d = 378
jmp oval ; jmp oval
sinetable=$6000 sinetable=$6000
gbasl = $6100
gbash = $6200