forked from sejo/uxneria
change pos-y-dev to variable
This commit is contained in:
parent
2452ca30f3
commit
30fb962114
|
@ -39,7 +39,6 @@
|
|||
|
||||
%col-sep { #0024 } ( separation between byte columns )
|
||||
|
||||
%pos-y-dev { #0020 }
|
||||
|
||||
( variables )
|
||||
|
||||
|
@ -109,6 +108,7 @@ BRK
|
|||
@pos-x-dev0 000c
|
||||
@pos-x-dev1 005e
|
||||
@pos-x-dev2 00af
|
||||
@pos-y-dev 0020
|
||||
|
||||
@samples
|
||||
:saw ( 0 )
|
||||
|
@ -123,22 +123,22 @@ BRK
|
|||
#02 ;update-dev JSR2
|
||||
|
||||
&draw-registers
|
||||
;pos-x-dev0 LDA2 pos-y-dev #00
|
||||
;pos-x-dev0 LDA2 ;pos-y-dev LDA2 #00
|
||||
;draw-bytes JSR2
|
||||
|
||||
;pos-x-dev0 LDA2 col-sep ADD2 pos-y-dev #08
|
||||
;pos-x-dev0 LDA2 col-sep ADD2 ;pos-y-dev LDA2 #08
|
||||
;draw-bytes JSR2
|
||||
|
||||
;pos-x-dev1 LDA2 pos-y-dev #10
|
||||
;pos-x-dev1 LDA2 ;pos-y-dev LDA2 #10
|
||||
;draw-bytes JSR2
|
||||
|
||||
;pos-x-dev1 LDA2 col-sep ADD2 pos-y-dev #18
|
||||
;pos-x-dev1 LDA2 col-sep ADD2 ;pos-y-dev LDA2 #18
|
||||
;draw-bytes JSR2
|
||||
|
||||
;pos-x-dev2 LDA2 pos-y-dev #20
|
||||
;pos-x-dev2 LDA2 ;pos-y-dev LDA2 #20
|
||||
;draw-bytes JSR2
|
||||
|
||||
;pos-x-dev2 LDA2 col-sep ADD2 pos-y-dev #28
|
||||
;pos-x-dev2 LDA2 col-sep ADD2 ;pos-y-dev LDA2 #28
|
||||
;draw-bytes JSR2
|
||||
|
||||
( inc framecount )
|
||||
|
@ -225,7 +225,7 @@ RTN
|
|||
#00
|
||||
&loop
|
||||
STHk
|
||||
#00 SWP #10 MUL pos-y-dev ADD2 STH2k .Screen/y DEO2
|
||||
#00 SWP #10 MUL ;pos-y-dev LDA2 ADD2 STH2k .Screen/y DEO2
|
||||
#20 .Screen/color DEO
|
||||
STH2r #0008 ADD2 .Screen/y DEO2
|
||||
#20 .Screen/color DEO
|
||||
|
@ -235,7 +235,7 @@ RTN
|
|||
POP
|
||||
|
||||
STHr ( recover beat )
|
||||
#00 SWP #10 MUL pos-y-dev ADD2 STH2k .Screen/y DEO2
|
||||
#00 SWP #10 MUL ;pos-y-dev LDA2 ADD2 STH2k .Screen/y DEO2
|
||||
,&color LDR .Screen/color DEO
|
||||
STH2r #0008 ADD2 .Screen/y DEO2
|
||||
,&color LDR .Screen/color DEO
|
||||
|
|
Binary file not shown.
Loading…
Reference in New Issue