gr: tunnel: always wanted a tunnel effect
still not working
This commit is contained in:
parent
76442fb6d5
commit
cda248e40c
|
@ -16,7 +16,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
||||||
C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS \
|
C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS \
|
||||||
COMBO.BAS WIRES.BAS PATTERN.BAS BALL.BAS LINES.BAS MOD9.BAS \
|
COMBO.BAS WIRES.BAS PATTERN.BAS BALL.BAS LINES.BAS MOD9.BAS \
|
||||||
XOR_ZOOM.BAS MOD9_HGR.BAS SIER_HGR.BAS MOVE.BAS SINE.BAS XDRAW128.BAS \
|
XOR_ZOOM.BAS MOD9_HGR.BAS SIER_HGR.BAS MOVE.BAS SINE.BAS XDRAW128.BAS \
|
||||||
GATOR.BAS CURSOR.BAS
|
GATOR.BAS CURSOR.BAS WEIRD.BAS
|
||||||
|
|
||||||
# cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
|
# cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
|
||||||
cp empty.dsk appleiibot.dsk
|
cp empty.dsk appleiibot.dsk
|
||||||
|
@ -83,6 +83,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A XDRAW128.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A XDRAW128.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A GATOR.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A GATOR.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A CURSOR.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A CURSOR.BAS
|
||||||
|
$(DOS33) -y appleiibot.dsk SAVE A WEIRD.BAS
|
||||||
|
|
||||||
####
|
####
|
||||||
|
|
||||||
|
@ -256,6 +257,11 @@ GATOR.BAS: gator.bas
|
||||||
CURSOR.BAS: cursor.bas
|
CURSOR.BAS: cursor.bas
|
||||||
$(TOKENIZE) < cursor.bas > CURSOR.BAS
|
$(TOKENIZE) < cursor.bas > CURSOR.BAS
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
WEIRD.BAS: weird.bas
|
||||||
|
$(TOKENIZE) < weird.bas > WEIRD.BAS
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
####
|
####
|
||||||
|
|
|
@ -0,0 +1,2 @@
|
||||||
|
1FORI=0TO123:POKE892+I,4*PEEK(2125+I)-192+(PEEK(2249+I/3)-35)/4^(I-INT(I/3)*3):NEXT
|
||||||
|
2&",=n9D`S0QnZ0Oo6F3QeWoV/Q6QBk=J8QoM:Q9a;X9R1I0NnYlR86nYmYo76nVo8InYaVn76nRmY776`foWB8RmR1I1VhoR]>Rnj$NocnYnb1[Waod1V2Qc@S0CO0S+@*,4L4;6*4,I70.$*'0#Z'?3[0C75+@W=)G&4V&&
|
|
@ -0,0 +1,55 @@
|
||||||
|
include ../../../Makefile.inc
|
||||||
|
|
||||||
|
DOS33 = ../../../utils/dos33fs-utils/dos33
|
||||||
|
PNG2GR = ../../../utils/gr-utils/png2gr
|
||||||
|
PNG2RLE = ../../../utils/gr-utils/png2rle
|
||||||
|
TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
|
||||||
|
LINKERSCRIPTS = ../../../linker_scripts
|
||||||
|
EMPTYDISK = ../../../empty_disk
|
||||||
|
|
||||||
|
all: tunnel.dsk
|
||||||
|
|
||||||
|
$(DOS33):
|
||||||
|
cd ../../utils/dos33fs-utils && make
|
||||||
|
|
||||||
|
tunnel.dsk: $(DOS33) HELLO TUNNEL.BAS TUNNEL WEIRD
|
||||||
|
cp $(EMPTYDISK)/empty.dsk tunnel.dsk
|
||||||
|
$(DOS33) -y tunnel.dsk SAVE A HELLO
|
||||||
|
$(DOS33) -y tunnel.dsk SAVE A TUNNEL.BAS
|
||||||
|
$(DOS33) -y tunnel.dsk BSAVE -a 0xc00 TUNNEL
|
||||||
|
$(DOS33) -y tunnel.dsk BSAVE -a 0x37c WEIRD
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
HELLO: hello.bas
|
||||||
|
$(TOKENIZE) < hello.bas > HELLO
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
TUNNEL.BAS: tunnel.bas
|
||||||
|
$(TOKENIZE) < tunnel.bas > TUNNEL.BAS
|
||||||
|
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
TUNNEL: tunnel.o
|
||||||
|
ld65 -o TUNNEL tunnel.o -C $(LINKERSCRIPTS)/apple2_c00.inc
|
||||||
|
|
||||||
|
tunnel.o: tunnel.s
|
||||||
|
ca65 -o tunnel.o tunnel.s -l tunnel.lst
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
WEIRD: weird.o
|
||||||
|
ld65 -o WEIRD weird.o -C $(LINKERSCRIPTS)/apple2_37c.inc
|
||||||
|
|
||||||
|
weird.o: weird.s
|
||||||
|
ca65 -o weird.o weird.s -l weird.lst
|
||||||
|
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *~ *.o HELLO TUNNEL.BAS TUNNEL WEIRD *.lst
|
||||||
|
|
|
@ -0,0 +1,8 @@
|
||||||
|
5 REM BY @hisham_hm Mar 7 @AppleIIBot
|
||||||
|
10 GR:N=7
|
||||||
|
20 FOR X=0 TO 4
|
||||||
|
30 FOR I=X TO 15+X STEP 5:COLOR=0
|
||||||
|
40 Z=39-I:J=I+1:W=Z-1:HLIN J,W AT I:HLIN J,W AT Z:VLIN J,W AT I:VLIN J,W AT Z: COLOR=N:HLIN J,W AT J:HLIN J,W AT W:VLIN J,W AT J:VLIN J,W AT W:N=N+1
|
||||||
|
50 NEXT:N=N-4
|
||||||
|
60 NEXT:N=N-1:IF N=0 THEN N=12
|
||||||
|
70 GOTO 20
|
|
@ -0,0 +1,143 @@
|
||||||
|
; based roughly on 5 REM BY @hisham_hm Mar 7 @AppleIIBot
|
||||||
|
|
||||||
|
; this one was an accident due to bug trying to get tunnel code working
|
||||||
|
; very striking, but *warning flashing lights*
|
||||||
|
|
||||||
|
|
||||||
|
H2 = $2C
|
||||||
|
V2 = $2D
|
||||||
|
COLOR = $30
|
||||||
|
J = $FB
|
||||||
|
Z = $FC
|
||||||
|
COUNTMAX = $FD
|
||||||
|
COUNT = $FE
|
||||||
|
NEWCOLOR = $FF
|
||||||
|
|
||||||
|
FULLGR = $C052
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
HLINE = $F819 ;; HLINE Y,$2C at A
|
||||||
|
VLINE = $F828 ;; VLINE A,$2D at Y
|
||||||
|
SETCOL = $F864 ; COLOR=A
|
||||||
|
SETGR = $FB40
|
||||||
|
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||||||
|
|
||||||
|
tunnel:
|
||||||
|
; 10 GR:N=7
|
||||||
|
|
||||||
|
jsr SETGR
|
||||||
|
bit FULLGR
|
||||||
|
|
||||||
|
lda #$7
|
||||||
|
sta NEWCOLOR
|
||||||
|
|
||||||
|
|
||||||
|
; 20 FOR X=0 TO 4
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
sta COUNT
|
||||||
|
|
||||||
|
clc
|
||||||
|
adc #16
|
||||||
|
sta COUNTMAX
|
||||||
|
cycle:
|
||||||
|
|
||||||
|
; 30 FOR I=X TO 15+X STEP 5:COLOR=0
|
||||||
|
|
||||||
|
ldx COUNT
|
||||||
|
iloop:
|
||||||
|
lda #0
|
||||||
|
sta COLOR
|
||||||
|
|
||||||
|
; 40 Z=39-I:J=I+1:W=Z-1
|
||||||
|
|
||||||
|
txa
|
||||||
|
eor #$ff
|
||||||
|
sec
|
||||||
|
adc #39
|
||||||
|
sta Z
|
||||||
|
sta H2
|
||||||
|
sta V2
|
||||||
|
dec H2
|
||||||
|
dec V2
|
||||||
|
|
||||||
|
txa
|
||||||
|
clc
|
||||||
|
adc #1
|
||||||
|
sta J
|
||||||
|
|
||||||
|
; HLIN J,W AT I ; HLINE Y,$2C at A
|
||||||
|
|
||||||
|
ldy J
|
||||||
|
txa
|
||||||
|
jsr HLINE
|
||||||
|
|
||||||
|
; HLIN J,W AT Z ; HLINE Y,$2C at A
|
||||||
|
|
||||||
|
ldy J
|
||||||
|
lda Z
|
||||||
|
jsr HLINE
|
||||||
|
|
||||||
|
; VLIN J,W AT I ; VLINE A,$2D at Y
|
||||||
|
; VLIN J,W AT Z ; VLINE A,$2D at Y
|
||||||
|
|
||||||
|
|
||||||
|
; COLOR=N
|
||||||
|
lda NEWCOLOR
|
||||||
|
jsr SETCOL
|
||||||
|
|
||||||
|
; HLIN J,W AT J ; HLINE Y,$2C at A
|
||||||
|
|
||||||
|
ldy J
|
||||||
|
lda J
|
||||||
|
jsr HLINE
|
||||||
|
|
||||||
|
; HLIN J,W AT W ; HLINE Y,$2C at A
|
||||||
|
ldy J
|
||||||
|
lda H2
|
||||||
|
jsr HLINE
|
||||||
|
|
||||||
|
; VLIN J,W AT J ; VLINE A,$2D at Y
|
||||||
|
; VLIN J,W AT W ; VLINE A,$2D at Y
|
||||||
|
|
||||||
|
; N=N+1
|
||||||
|
|
||||||
|
inc NEWCOLOR
|
||||||
|
|
||||||
|
|
||||||
|
lda #75
|
||||||
|
jsr WAIT
|
||||||
|
|
||||||
|
; 50 NEXT:N=N-4
|
||||||
|
|
||||||
|
txa
|
||||||
|
clc
|
||||||
|
adc #5
|
||||||
|
tax
|
||||||
|
|
||||||
|
cpx COUNTMAX
|
||||||
|
bcc iloop
|
||||||
|
|
||||||
|
sec
|
||||||
|
lda NEWCOLOR
|
||||||
|
sbc #4
|
||||||
|
sta NEWCOLOR
|
||||||
|
|
||||||
|
; 60 NEXT:N=N-1:IF N=0 THEN N=12
|
||||||
|
|
||||||
|
inc COUNT
|
||||||
|
lda COUNT
|
||||||
|
cmp #4
|
||||||
|
bne cycle
|
||||||
|
|
||||||
|
dec NEWCOLOR
|
||||||
|
bne end
|
||||||
|
|
||||||
|
lda #12
|
||||||
|
sta NEWCOLOR
|
||||||
|
|
||||||
|
end:
|
||||||
|
; 70 GOTO 20
|
||||||
|
|
||||||
|
jmp cycle
|
|
@ -0,0 +1,144 @@
|
||||||
|
; 5 REM BY @hisham_hm Mar 7 @AppleIIBot
|
||||||
|
|
||||||
|
H2 = $2C
|
||||||
|
V2 = $2D
|
||||||
|
COLOR = $30
|
||||||
|
J = $FB
|
||||||
|
Z = $FC
|
||||||
|
COUNTMAX = $FD
|
||||||
|
COUNT = $FE
|
||||||
|
NEWCOLOR = $FF
|
||||||
|
|
||||||
|
FULLGR = $C052
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
HLINE = $F819 ;; HLINE Y,$2C at A
|
||||||
|
VLINE = $F828 ;; VLINE A,$2D at Y
|
||||||
|
SETCOL = $F864 ; COLOR=A
|
||||||
|
SETGR = $FB40
|
||||||
|
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||||||
|
|
||||||
|
tunnel:
|
||||||
|
; 10 GR:N=7
|
||||||
|
|
||||||
|
jsr SETGR
|
||||||
|
bit FULLGR
|
||||||
|
|
||||||
|
lda #$7
|
||||||
|
sta NEWCOLOR
|
||||||
|
|
||||||
|
|
||||||
|
; 20 FOR X=0 TO 4
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
sta COUNT
|
||||||
|
|
||||||
|
clc
|
||||||
|
adc #16
|
||||||
|
sta COUNTMAX
|
||||||
|
cycle:
|
||||||
|
|
||||||
|
; 30 FOR I=X TO 15+X STEP 5:COLOR=0
|
||||||
|
|
||||||
|
ldx COUNT
|
||||||
|
iloop:
|
||||||
|
lda #0
|
||||||
|
sta COLOR
|
||||||
|
|
||||||
|
; 40 Z=39-I:J=I+1:W=Z-1
|
||||||
|
|
||||||
|
txa
|
||||||
|
eor #$ff
|
||||||
|
sec
|
||||||
|
adc #39
|
||||||
|
sta Z
|
||||||
|
sta H2
|
||||||
|
sta V2
|
||||||
|
dec H2
|
||||||
|
dec V2
|
||||||
|
|
||||||
|
txa
|
||||||
|
clc
|
||||||
|
adc #1
|
||||||
|
sta J
|
||||||
|
|
||||||
|
; HLIN J,W AT I ; HLINE Y,$2C at A
|
||||||
|
|
||||||
|
ldy J
|
||||||
|
txa
|
||||||
|
jsr HLINE
|
||||||
|
|
||||||
|
; HLIN J,W AT Z ; HLINE Y,$2C at A
|
||||||
|
|
||||||
|
ldy J
|
||||||
|
lda Z
|
||||||
|
jsr HLINE
|
||||||
|
|
||||||
|
; VLIN J,W AT I ; VLINE A,$2D at Y
|
||||||
|
; VLIN J,W AT Z ; VLINE A,$2D at Y
|
||||||
|
|
||||||
|
|
||||||
|
; COLOR=N
|
||||||
|
lda NEWCOLOR
|
||||||
|
jsr SETCOL
|
||||||
|
|
||||||
|
; HLIN J,W AT J ; HLINE Y,$2C at A
|
||||||
|
|
||||||
|
ldy J
|
||||||
|
lda J
|
||||||
|
jsr HLINE
|
||||||
|
|
||||||
|
; HLIN J,W AT W ; HLINE Y,$2C at A
|
||||||
|
ldy J
|
||||||
|
lda H2
|
||||||
|
jsr HLINE
|
||||||
|
|
||||||
|
; VLIN J,W AT J ; VLINE A,$2D at Y
|
||||||
|
; VLIN J,W AT W ; VLINE A,$2D at Y
|
||||||
|
|
||||||
|
; N=N+1
|
||||||
|
|
||||||
|
inc NEWCOLOR
|
||||||
|
|
||||||
|
|
||||||
|
lda #75
|
||||||
|
jsr WAIT
|
||||||
|
|
||||||
|
; 50 NEXT:N=N-4
|
||||||
|
|
||||||
|
txa
|
||||||
|
clc
|
||||||
|
adc #5
|
||||||
|
tax
|
||||||
|
|
||||||
|
cpx COUNTMAX
|
||||||
|
bcc iloop
|
||||||
|
|
||||||
|
sec
|
||||||
|
lda NEWCOLOR
|
||||||
|
sbc #4
|
||||||
|
sta NEWCOLOR
|
||||||
|
|
||||||
|
; 60 NEXT:N=N-1:IF N=0 THEN N=12
|
||||||
|
|
||||||
|
inc COUNT
|
||||||
|
lda COUNT
|
||||||
|
cmp #4
|
||||||
|
bne cycle
|
||||||
|
|
||||||
|
dec NEWCOLOR
|
||||||
|
bne end
|
||||||
|
|
||||||
|
lda #12
|
||||||
|
sta NEWCOLOR
|
||||||
|
|
||||||
|
end:
|
||||||
|
; 70 GOTO 20
|
||||||
|
|
||||||
|
jmp cycle
|
||||||
|
|
||||||
|
; want to load at $3f5, this originally at 379
|
||||||
|
; so load at $37c
|
||||||
|
|
||||||
|
jmp tunnel
|
|
@ -0,0 +1,12 @@
|
||||||
|
MEMORY {
|
||||||
|
ZP: start = $00, size = $1A, type = rw;
|
||||||
|
RAM: start = $37c, size = $8E00, file = %O;
|
||||||
|
}
|
||||||
|
|
||||||
|
SEGMENTS {
|
||||||
|
CODE: load = RAM, type = ro;
|
||||||
|
RODATA: load = RAM, type = ro;
|
||||||
|
DATA: load = RAM, type = rw;
|
||||||
|
BSS: load = RAM, type = bss, define = yes;
|
||||||
|
ZEROPAGE: load = ZP, type = zp;
|
||||||
|
}
|
|
@ -0,0 +1,12 @@
|
||||||
|
MEMORY {
|
||||||
|
ZP: start = $00, size = $1A, type = rw;
|
||||||
|
RAM: start = $37f, size = $8E00, file = %O;
|
||||||
|
}
|
||||||
|
|
||||||
|
SEGMENTS {
|
||||||
|
CODE: load = RAM, type = ro;
|
||||||
|
RODATA: load = RAM, type = ro;
|
||||||
|
DATA: load = RAM, type = rw;
|
||||||
|
BSS: load = RAM, type = bss, define = yes;
|
||||||
|
ZEROPAGE: load = ZP, type = zp;
|
||||||
|
}
|
|
@ -0,0 +1,12 @@
|
||||||
|
MEMORY {
|
||||||
|
ZP: start = $00, size = $1A, type = rw;
|
||||||
|
RAM: start = $382, size = $8E00, file = %O;
|
||||||
|
}
|
||||||
|
|
||||||
|
SEGMENTS {
|
||||||
|
CODE: load = RAM, type = ro;
|
||||||
|
RODATA: load = RAM, type = ro;
|
||||||
|
DATA: load = RAM, type = rw;
|
||||||
|
BSS: load = RAM, type = bss, define = yes;
|
||||||
|
ZEROPAGE: load = ZP, type = zp;
|
||||||
|
}
|
Loading…
Reference in New Issue