|
|
|
|
@ -750,7 +750,7 @@ JMP2r
|
|
|
|
|
( channel 2 ) |
|
|
|
|
[ STHr ] [ STH2r ] #0008 ADD2 LDA SWP |
|
|
|
|
#07 SWP SUB SFT #01 AND |
|
|
|
|
#10 SFT |
|
|
|
|
DUP ADD |
|
|
|
|
ADD |
|
|
|
|
|
|
|
|
|
JMP2r |
|
|
|
|
@ -957,7 +957,7 @@ JMP2r
|
|
|
|
|
#0400 |
|
|
|
|
&loop |
|
|
|
|
.dataview/x1 LDZ2 .Screen/x DEO2 |
|
|
|
|
#00 OVR #10 SFT .settings/focus LDZ2 ADD2 |
|
|
|
|
#00 OVR DUP ADD .settings/focus LDZ2 ADD2 |
|
|
|
|
#01 ;draw-chr/color STA |
|
|
|
|
( ch1 ) LDA2k ;draw-short JSR2 |
|
|
|
|
.Screen/x DEI2k #000c ADD2 ROT DEO2 |
|
|
|
|
@ -1343,7 +1343,7 @@ JMP2r
|
|
|
|
|
JMP2r |
|
|
|
|
&sprite 8000 8000 8000 8000 |
|
|
|
|
|
|
|
|
|
@rol ( byte -- byte ) DUP #07 SFT SWP #10 SFT ADD JMP2r |
|
|
|
|
@rol ( byte -- byte ) DUP #07 SFT SWP DUP ADD ADD JMP2r |
|
|
|
|
@ror ( byte -- byte ) DUP #70 SFT SWP #01 SFT ADD JMP2r |
|
|
|
|
|
|
|
|
|
@untitled-txt "untitled.chr $1 |
|
|
|
|
|
Devine Lu Linvega
4 years ago