mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 23:54:33 +00:00
plasma: trying to get to fit
This commit is contained in:
parent
2010c7b715
commit
7e217c75a0
@ -11,7 +11,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
|
|||||||
RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
|
RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
|
||||||
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
|
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
|
||||||
RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
|
RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
|
||||||
FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS
|
FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS
|
||||||
cp empty.dsk appleiibot.dsk
|
cp empty.dsk appleiibot.dsk
|
||||||
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
||||||
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0C00 FASTAR2
|
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0C00 FASTAR2
|
||||||
@ -54,6 +54,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
|
|||||||
$(DOS33) -y appleiibot.dsk SAVE A SNOW.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A SNOW.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A XMAS.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A XMAS.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A AN3.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A AN3.BAS
|
||||||
|
$(DOS33) -y appleiibot.dsk SAVE A PLASMA.BAS
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
||||||
@ -146,6 +147,11 @@ XMAS.BAS: xmas.bas
|
|||||||
AN3.BAS: an3.bas
|
AN3.BAS: an3.bas
|
||||||
$(TOKENIZE) < an3.bas > AN3.BAS
|
$(TOKENIZE) < an3.bas > AN3.BAS
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
PLASMA.BAS: plasma.bas
|
||||||
|
$(TOKENIZE) < plasma.bas > PLASMA.BAS
|
||||||
|
|
||||||
|
|
||||||
####
|
####
|
||||||
|
|
||||||
|
2
basic/appleiibot/plasma.bas
Normal file
2
basic/appleiibot/plasma.bas
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
1REM,=n9D`M1X/5Z.NO.MO-AS'1k-1b3kR4jjk/3bbnXA3k0j_E`>0S91X1P2(02ImRB28=mY8J0N9:W3T/JhO;X/OoI73)mZ[/3/1BQ]M2Q<63nWoR,gb1`<QC8:JoLE0#.1+01,/omnngmoP(L3748DA$ 2@-$ 1CKJA"3'--&)KTA1MF$(*@,F^'W<3'=
|
||||||
|
2FORI=0TO141:POKE3072+I,4*PEEK(2054+I)-192+(PEEK(2195+I/3)-32)/4^(I-INT(I/3)*3):NEXT:CALL3072
|
@ -14,6 +14,9 @@
|
|||||||
|
|
||||||
; 149 -- add page flipping
|
; 149 -- add page flipping
|
||||||
; 144 -- optimize a bit
|
; 144 -- optimize a bit
|
||||||
|
; 141 -- smc DRAW_PAGE
|
||||||
|
|
||||||
|
; goal=135
|
||||||
|
|
||||||
.include "zp.inc"
|
.include "zp.inc"
|
||||||
.include "hardware.inc"
|
.include "hardware.inc"
|
||||||
@ -30,15 +33,11 @@ SAVEY = $FF
|
|||||||
jsr SETGR
|
jsr SETGR
|
||||||
bit FULLGR
|
bit FULLGR
|
||||||
|
|
||||||
; lda #4
|
|
||||||
; sta DRAW_PAGE
|
|
||||||
|
|
||||||
;col = ( 8.0 + (sintable[xx&0xf])
|
;col = ( 8.0 + (sintable[xx&0xf])
|
||||||
; + 8.0 + (sintable[yy&0xf])
|
; + 8.0 + (sintable[yy&0xf])
|
||||||
; ) / 2;
|
; ) / 2;
|
||||||
|
|
||||||
create_lookup:
|
create_lookup:
|
||||||
|
|
||||||
ldy #15
|
ldy #15
|
||||||
create_yloop:
|
create_yloop:
|
||||||
ldx #15
|
ldx #15
|
||||||
@ -84,17 +83,15 @@ plot_frame:
|
|||||||
; flip page
|
; flip page
|
||||||
|
|
||||||
; ldx #0 ; x already 0
|
; ldx #0 ; x already 0
|
||||||
lda DRAW_PAGE
|
|
||||||
|
lda draw_page_smc+1 ; DRAW_PAGE
|
||||||
beq done_page
|
beq done_page
|
||||||
inx
|
inx
|
||||||
done_page:
|
done_page:
|
||||||
ldy PAGE0,X
|
ldy PAGE0,X
|
||||||
|
|
||||||
eor #$4
|
eor #$4
|
||||||
sta DRAW_PAGE
|
sta draw_page_smc+1 ; DRAW_PAGE
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; plot frame
|
; plot frame
|
||||||
|
|
||||||
@ -117,15 +114,15 @@ plot_yloop:
|
|||||||
; after, A is GBASL, C is clear
|
; after, A is GBASL, C is clear
|
||||||
|
|
||||||
lda GBASH
|
lda GBASH
|
||||||
adc DRAW_PAGE
|
draw_page_smc:
|
||||||
|
adc #0
|
||||||
sta GBASH
|
sta GBASH
|
||||||
|
|
||||||
plp
|
plp
|
||||||
|
|
||||||
lda #$0f ; setup mask
|
lda #$0f ; setup mask
|
||||||
bcc plot_mask
|
bcc plot_mask
|
||||||
adc #$e0
|
adc #$e0 ; needlessly clever, from monitor rom src
|
||||||
|
|
||||||
plot_mask:
|
plot_mask:
|
||||||
sta MASK
|
sta MASK
|
||||||
|
|
||||||
@ -153,6 +150,7 @@ plot_lookup_smc:
|
|||||||
|
|
||||||
and #$f
|
and #$f
|
||||||
lsr
|
lsr
|
||||||
|
|
||||||
tax
|
tax
|
||||||
lda colorlookup,X
|
lda colorlookup,X
|
||||||
sta COLOR
|
sta COLOR
|
||||||
@ -168,16 +166,6 @@ plot_lookup_smc:
|
|||||||
bpl plot_yloop
|
bpl plot_yloop
|
||||||
bmi forever_loop
|
bmi forever_loop
|
||||||
|
|
||||||
; iny
|
|
||||||
; cpy #40
|
|
||||||
; bne plot_xlooph
|
|
||||||
|
|
||||||
; inx
|
|
||||||
; cpx #40
|
|
||||||
; bne plot_yloop
|
|
||||||
; beq forever_loop
|
|
||||||
|
|
||||||
|
|
||||||
colorlookup:
|
colorlookup:
|
||||||
bw_color_lookup:
|
bw_color_lookup:
|
||||||
.byte $55,$22,$66,$77,$ff,$77,$55 ; ,$00 shared w sin table
|
.byte $55,$22,$66,$77,$ff,$77,$55 ; ,$00 shared w sin table
|
||||||
@ -192,7 +180,7 @@ sinetable:
|
|||||||
;.byte $00,$55,$77,$ff,$77,$66,$22,$55
|
;.byte $00,$55,$77,$ff,$77,$66,$22,$55
|
||||||
|
|
||||||
|
|
||||||
|
; make lookup happen at page boundary
|
||||||
|
|
||||||
.org $d00
|
.org $d00
|
||||||
;.align $100
|
|
||||||
lookup:
|
lookup:
|
||||||
|
Loading…
Reference in New Issue
Block a user