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

gr: tunnel: works now

Browse Source
This commit is contained in:
Vince Weaver 2021-06-06 01:21:14 -04:00
parent cda248e40c
commit 735f357728
2 changed files with 36 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
graphics/gr/tunnel/tunnel.s
View File

@ -15,8 +15,6 @@ NEWCOLOR = $FF
FULLGR = $C052 FULLGR = $C052
HLINE = $F819 ;; HLINE Y,$2C at A HLINE = $F819 ;; HLINE Y,$2C at A
VLINE = $F828 ;; VLINE A,$2D at Y VLINE = $F828 ;; VLINE A,$2D at Y
SETCOL = $F864 ; COLOR=A SETCOL = $F864 ; COLOR=A
@ -27,25 +25,28 @@ tunnel:
; 10 GR:N=7 ; 10 GR:N=7
jsr SETGR jsr SETGR
bit FULLGR ; bit FULLGR
lda #$7 lda #$7
sta NEWCOLOR sta NEWCOLOR
outer:
; 20 FOR X=0 TO 4 ; 20 FOR X=0 TO 4
lda #0 lda #0
sta COUNT sta COUNT
clc
adc #16
sta COUNTMAX
cycle: cycle:
; 30 FOR I=X TO 15+X STEP 5:COLOR=0 ; 30 FOR I=X TO 15+X STEP 5:COLOR=0
ldx COUNT lda COUNT
tax
clc
adc #16
sta COUNTMAX
iloop: iloop:
lda #0 lda #0
sta COLOR sta COLOR
@ -80,8 +81,15 @@ iloop:
jsr HLINE jsr HLINE
; VLIN J,W AT I ; VLINE A,$2D at Y ; VLIN J,W AT I ; VLINE A,$2D at Y
; VLIN J,W AT Z ; VLINE A,$2D at Y txa
tay
lda J
jsr VLINE
; VLIN J,W AT Z ; VLINE A,$2D at Y
ldy Z
lda J
jsr VLINE
; COLOR=N ; COLOR=N
lda NEWCOLOR lda NEWCOLOR
@ -99,16 +107,23 @@ iloop:
jsr HLINE jsr HLINE
; VLIN J,W AT J ; VLINE A,$2D at Y ; VLIN J,W AT J ; VLINE A,$2D at Y
ldy J
lda J
jsr VLINE
; VLIN J,W AT W ; VLINE A,$2D at Y ; VLIN J,W AT W ; VLINE A,$2D at Y
ldy V2
lda J
jsr VLINE
lda #150
jsr WAIT
; N=N+1 ; N=N+1
inc NEWCOLOR inc NEWCOLOR
lda #75
jsr WAIT
; 50 NEXT:N=N-4 ; 50 NEXT:N=N-4
txa txa
@ -128,7 +143,7 @@ iloop:
inc COUNT inc COUNT
lda COUNT lda COUNT
cmp #4 cmp #5
bne cycle bne cycle
dec NEWCOLOR dec NEWCOLOR
@ -140,4 +155,4 @@ iloop:
end: end:
; 70 GOTO 20 ; 70 GOTO 20
jmp cycle jmp outer

6
graphics/gr/tunnel/weird.s
View File

@ -1,5 +1,11 @@
; 5 REM BY @hisham_hm Mar 7 @AppleIIBot ; 5 REM BY @hisham_hm Mar 7 @AppleIIBot
; buggy version that looks cool
; took a while, but there are two bugs. COUNT (and thus X) gets the wrong
; value and never resets, mostly due to the jmp at the end going
; to the wrong place. The init of COUNTMAX is wrong too
H2 = $2C H2 = $2C
V2 = $2D V2 = $2D
COLOR = $30 COLOR = $30