basic: add target
This commit is contained in:
Vince Weaver
parent
021d88784f
commit
3e93b60331
|
|
@ -25,7 +25,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
|||
HORROR.BAS DIAMOND.BAS LEMM.BAS OOPS.BAS SPLIT.BAS PARTICLE.BAS \
|
||||
PARTICLE_HGR.BAS DIAMOND_SCROLL.BAS RANDOM_SCROLL.BAS STAR_BOUNCE.BAS\
|
||||
OOZE.BAS HORIZ_STAR.BAS SECRET_COLLECT.BAS PLANET.BAS PLANET_GR.BAS \
|
||||
BOXES.BAS SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS
|
||||
BOXES.BAS SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS SOLARIS3.BAS \
|
||||
TARGET.BAS
|
||||
cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
|
||||
# cp empty.dsk appleiibot.dsk
|
||||
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
||||
|
|
@ -131,9 +132,11 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
|||
$(DOS33) -y appleiibot.dsk SAVE A PLANET.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A PLANET_GR.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A BOXES.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A SOLARIS.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A SOLARIS2.BAS
|
||||
# $(DOS33) -y appleiibot.dsk SAVE A SOLARIS.BAS
|
||||
# $(DOS33) -y appleiibot.dsk SAVE A SOLARIS2.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A ASPLODE.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A SOLARIS3.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A TARGET.BAS
|
||||
|
||||
#appleiibot2.dsk: BOXES.BAS HELLO
|
||||
# cp empty.dsk appleiibot2.dsk
|
||||
|
|
@ -756,9 +759,20 @@ SOLARIS2.BAS: solaris2.bas
|
|||
|
||||
####
|
||||
|
||||
SOLARIS3.BAS: solaris3.bas
|
||||
$(TOKENIZE) < solaris3.bas > SOLARIS3.BAS
|
||||
|
||||
|
||||
####
|
||||
|
||||
ASPLODE.BAS: asplode.bas
|
||||
$(TOKENIZE) < asplode.bas > ASPLODE.BAS
|
||||
|
||||
####
|
||||
|
||||
TARGET.BAS: target.bas
|
||||
$(TOKENIZE) < target.bas > TARGET.BAS
|
||||
|
||||
|
||||
|
||||
####
|
||||
|
|
|
|||
|
|
@ -0,0 +1,6 @@
|
|||
0REM~8)g)gX8X8)gX~82gN~8<gE~8Eg<~8Ng2~8Xg)~B3BN]N]3~I:IGVGV:~L=LDSDS=~N?NBQBQ?~D+D,N/N.O-Q.Q/[,Z+~D4D3N/N0O1Q0Q/[3Z4~M-N.~Q.R-~M1N0~Q0R1!
|
||||
1HGR2:DEFFNP(X)=3*PEEK(2054+I+X)-99
|
||||
2IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
|
||||
3HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,45 @@
|
|||
# Roughly based on https://dribbble.com/shots/7503971-Target
|
||||
# 25+28= 25 53 81 109 137 165
|
||||
279 70 25 210 25 # 0 Upper left Right
|
||||
210 165 # 1 Down
|
||||
70 165 # 2 Left
|
||||
70 25 # 3 Up
|
||||
210 165 # 4 Diagonal
|
||||
279 70 53 210 137 # 5 Diagonal2
|
||||
279 70 81 210 109 # 6 Diagonal3
|
||||
279 70 109 210 81 # 7 Diagonal4
|
||||
279 70 137 210 53 # 8 Diagonal5
|
||||
279 70 165 210 25 # 9 Diagonal6
|
||||
279 99 54 99 136 # 10 U#1
|
||||
180 136
|
||||
180 54
|
||||
279 120 75 120 116 # 11 U#2
|
||||
160 116
|
||||
160 75
|
||||
279 130 86 130 105 # 12 U#3
|
||||
150 105
|
||||
150 86
|
||||
279 136 90 136 101 # 13 U#4
|
||||
146 101
|
||||
146 90
|
||||
279 107 31 105 33 # X-WingTop tip
|
||||
135 43 # wing to body
|
||||
136 39 # +1,-4
|
||||
140 37 # +4,-2 top
|
||||
144 39 # +4,+2
|
||||
146 43 # +1,+4
|
||||
175 33 # body to tip
|
||||
173 31 # tip
|
||||
279 107 58 105 54 # X-wing bottom
|
||||
135 43 # wing to body
|
||||
136 47 # +1,+4
|
||||
140 49 # +4,+2
|
||||
144 47 # +4,-2
|
||||
146 43 # +1,-4
|
||||
175 54
|
||||
173 58
|
||||
279 133 36 135 40
|
||||
279 144 40 148 36
|
||||
279 133 50 135 47
|
||||
279 144 47 148 50
|
||||
0
|
||||
|
|
@ -0,0 +1,136 @@
|
|||
; Solaris scrolling code
|
||||
|
||||
; 150 bytes = from solaris2
|
||||
; 102 bytes = drop half terms from lookup table
|
||||
; 122 bytes = page flipping
|
||||
; 144 bytes = got some stars going
|
||||
; 143 bytes = re-arrange color assignment
|
||||
|
||||
; zero page
|
||||
GBASL = $26
|
||||
GBASH = $27
|
||||
|
||||
HGR_X = $E0
|
||||
HGR_XH = $E1
|
||||
HGR_Y = $E2
|
||||
HGR_COLOR = $E4
|
||||
HGR_PAGE = $E6
|
||||
HGR_SCALE = $E7
|
||||
|
||||
; soft-switches
|
||||
FULLGR = $C052
|
||||
PAGE1 = $C054
|
||||
|
||||
; ROM routines
|
||||
|
||||
HGR = $F3E2
|
||||
HGR2 = $F3D8
|
||||
HPOSN = $F411 ; (Y,X),(A) (values stores in HGRX,XH,Y)
|
||||
; put in GBASL/GBASH
|
||||
|
||||
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||||
|
||||
DRAW0 = $F601
|
||||
XDRAW0 = $F65D
|
||||
|
||||
COUNT = $FE
|
||||
FRAME = $FF
|
||||
|
||||
solaris4:
|
||||
|
||||
jsr HGR
|
||||
jsr HGR2
|
||||
|
||||
draw_stars:
|
||||
|
||||
ldx #32
|
||||
lda #1
|
||||
draw_stars_loop:
|
||||
ldy $D000,X
|
||||
stars1_smc:
|
||||
sta $2000,Y
|
||||
stars2_smc:
|
||||
sta $4000,Y
|
||||
inc stars1_smc+2
|
||||
inc stars2_smc+2
|
||||
dex
|
||||
bpl draw_stars_loop
|
||||
|
||||
|
||||
; X = FF here
|
||||
|
||||
outer_loop:
|
||||
|
||||
dex ; decrement offset
|
||||
txa
|
||||
and #$7 ; make sure stays less than 8
|
||||
tax
|
||||
|
||||
ldy #0
|
||||
; sty COUNT ; reset count to 0
|
||||
inner_loop:
|
||||
; count is in Y here
|
||||
sty COUNT
|
||||
sec
|
||||
lda #191
|
||||
sbc COUNT ; YY = 160-COUNT
|
||||
|
||||
jsr HPOSN ; calculate line addr in GBASL/H, trashes all
|
||||
|
||||
ldx HGR_X ; restore offset
|
||||
|
||||
lda #$ff ; default is white
|
||||
|
||||
ldy lookup,X ; see if match count
|
||||
cpy COUNT
|
||||
|
||||
bne skip_color
|
||||
|
||||
; clc ; needed?
|
||||
; carry always set here
|
||||
txa
|
||||
adc #7
|
||||
tax
|
||||
|
||||
lda #$00 ; draw black
|
||||
|
||||
skip_color:
|
||||
|
||||
|
||||
ldy #39 ; draw horizontal line at GBASL
|
||||
inner_inner_loop:
|
||||
sta (GBASL),Y
|
||||
dey
|
||||
bpl inner_inner_loop
|
||||
|
||||
; Y is FF here
|
||||
|
||||
ldy COUNT
|
||||
iny
|
||||
cpy #84
|
||||
bne inner_loop
|
||||
|
||||
|
||||
flip_pages:
|
||||
|
||||
; Y should be 84 here
|
||||
|
||||
lda HGR_PAGE ; will be $20/$40
|
||||
eor #$60 ; flip draw page between $2000/$4000
|
||||
sta HGR_PAGE
|
||||
|
||||
cmp #$40
|
||||
bne done_page
|
||||
dey
|
||||
done_page:
|
||||
lda PAGE1-83,Y ; set display page to PAGE1 or PAGE2
|
||||
|
||||
jmp outer_loop
|
||||
|
||||
lookup:
|
||||
.byte 2, 8,14,19,23,27,31,34
|
||||
.byte 37,40,43,45,47,49,51,53
|
||||
.byte 55,57,58,60,61,62,64,65
|
||||
.byte 66,67,68,69,70,71,71,72
|
||||
.byte 73,74,75,75,76,77,77,78
|
||||
.byte 78,79,79,80,80,81,81,82
|
||||
Loading…
Reference in New Issue