Browse code
(screen.tal) Housekeeping
Devine Lu Linvega authored on 10/01/2023 03:14:31
Showing 1 changed files
| ... | ... |
@@ -18,8 +18,8 @@ |
| 18 | 18 |
#f0c0 .System/b DEO2 |
| 19 | 19 |
( gba screen size 00f0 x 00a0 ) |
| 20 | 20 |
( nds screen size 0100 x 00c0 ) |
| 21 |
- #00f0 .Screen/width DEO2 |
|
| 22 |
- #00a0 .Screen/height DEO2 |
|
| 21 |
+ #0100 .Screen/width DEO2 |
|
| 22 |
+ #00b0 .Screen/height DEO2 |
|
| 23 | 23 |
( find screen center ) |
| 24 | 24 |
.Screen/width DEI2 #01 SFT2 .center/x STZ2 |
| 25 | 25 |
.Screen/height DEI2 #01 SFT2 .center/y STZ2 |
| ... | ... |
@@ -28,8 +28,7 @@ |
| 28 | 28 |
;draw-sprites JSR2 |
| 29 | 29 |
;draw-1bpp JSR2 |
| 30 | 30 |
;draw-2bpp JSR2 |
| 31 |
- #00 .Screen/auto DEO |
|
| 32 |
- |
|
| 31 |
+ |
|
| 33 | 32 |
BRK |
| 34 | 33 |
|
| 35 | 34 |
( |
| ... | ... |
@@ -39,7 +38,8 @@ BRK |
| 39 | 38 |
|
| 40 | 39 |
.center/x LDZ2 #0070 SUB2 .Screen/x DEO2 |
| 41 | 40 |
.center/y LDZ2 #0048 SUB2 .Screen/y DEO2 |
| 42 |
- ;anim-chr #00 [ LIT &f $1 ] INCk ,&f STR #07 AND #40 SFT ADD2 .Screen/addr DEO2 |
|
| 41 |
+ ;anim-chr #00 [ LIT &f $1 ] INCk ,&f STR |
|
| 42 |
+ #02 SFT #07 AND #40 SFT ADD2 .Screen/addr DEO2 |
|
| 43 | 43 |
#81 .Screen/sprite DEO |
| 44 | 44 |
|
| 45 | 45 |
BRK |
| ... | ... |
@@ -52,28 +52,27 @@ BRK |
| 52 | 52 |
( horizontal ) |
| 53 | 53 |
.center/x LDZ2 #0060 SUB2 .Screen/x DEO2 |
| 54 | 54 |
.center/y LDZ2 #0048 SUB2 .Screen/y DEO2 |
| 55 |
- ;font-hex .Screen/addr DEO2 |
|
| 55 |
+ ;font-icn .Screen/addr DEO2 |
|
| 56 | 56 |
#f6 .Screen/auto DEO |
| 57 | 57 |
#01 .Screen/sprite DEO |
| 58 | 58 |
( vertical ) |
| 59 | 59 |
.center/x LDZ2 #0070 SUB2 .Screen/x DEO2 |
| 60 | 60 |
.center/y LDZ2 #0038 SUB2 .Screen/y DEO2 |
| 61 |
- ;font-hex .Screen/addr DEO2 |
|
| 61 |
+ ;font-icn .Screen/addr DEO2 |
|
| 62 | 62 |
#f5 .Screen/auto DEO |
| 63 | 63 |
#01 .Screen/sprite DEO |
| 64 |
- |
|
| 65 |
- #00 .Screen/auto DEO |
|
| 66 | 64 |
( table ) |
| 67 |
- ;preview_icn .Screen/addr DEO2 |
|
| 68 |
- #0000 |
|
| 65 |
+ #00 .Screen/auto DEO |
|
| 66 |
+ ;preview-chr .Screen/addr DEO2 |
|
| 67 |
+ #00 |
|
| 69 | 68 |
&loop |
| 70 |
- ( move ) #00 OVR #0f AND [ #40 SFT #01 SFT ] |
|
| 69 |
+ ( move ) #00 OVR #0f AND #30 SFT |
|
| 71 | 70 |
.center/x LDZ2 #0060 SUB2 ADD2 .Screen/x DEO2 |
| 72 | 71 |
( move ) #00 OVR #f0 AND #01 SFT |
| 73 | 72 |
.center/y LDZ2 #0038 SUB2 ADD2 .Screen/y DEO2 |
| 74 | 73 |
( draw ) DUP .Screen/sprite DEO |
| 75 |
- INC NEQk ,&loop JCN |
|
| 76 |
- POP2 |
|
| 74 |
+ INC DUP ,&loop JCN |
|
| 75 |
+ POP |
|
| 77 | 76 |
|
| 78 | 77 |
JMP2r |
| 79 | 78 |
|
| ... | ... |
@@ -110,7 +109,7 @@ JMP2r |
| 110 | 109 |
@draw-circle ( x* y* color depth -- ) |
| 111 | 110 |
|
| 112 | 111 |
ADD STH |
| 113 |
- ;preview_icn .Screen/addr DEO2 |
|
| 112 |
+ ;preview-chr .Screen/addr DEO2 |
|
| 114 | 113 |
.Screen/y DEO2 |
| 115 | 114 |
.Screen/x DEO2 |
| 116 | 115 |
#01 .Screen/auto DEO |
| ... | ... |
@@ -144,7 +143,7 @@ JMP2r |
| 144 | 143 |
NIP |
| 145 | 144 |
&emit |
| 146 | 145 |
DUP [ LIT &z $1 ] EQU ,&skip JCN |
| 147 |
- #ff ,&z STR #00 OVR #30 SFT ;font-hex ADD2 .Screen/addr DEO2 |
|
| 146 |
+ #ff ,&z STR #00 OVR #30 SFT ;font-icn ADD2 .Screen/addr DEO2 |
|
| 148 | 147 |
#01 .Screen/sprite DEO |
| 149 | 148 |
&skip |
| 150 | 149 |
POP |
| ... | ... |
@@ -157,9 +156,9 @@ JMP2r |
| 157 | 156 |
|
| 158 | 157 |
@x-icn |
| 159 | 158 |
0000 0018 1800 0000 |
| 160 |
-@preview_icn |
|
| 159 |
+@preview-chr |
|
| 161 | 160 |
0f38 675f dfbf bfbf 0007 1820 2344 4848 |
| 162 |
-@font-hex |
|
| 161 |
+@font-icn ( 0-f ) |
|
| 163 | 162 |
007c 8282 8282 827c 0030 1010 1010 1010 |
| 164 | 163 |
007c 8202 7c80 80fe 007c 8202 1c02 827c |
| 165 | 164 |
000c 1424 4484 fe04 00fe 8080 7c02 827c |
| ... | ... |
@@ -168,7 +167,6 @@ JMP2r |
| 168 | 167 |
007c 8202 7e82 827e 00fc 8282 fc82 82fc |
| 169 | 168 |
007c 8280 8080 827c 00fc 8282 8282 82fc |
| 170 | 169 |
007c 8280 f080 827c 007c 8280 f080 8080 |
| 171 |
- |
|
| 172 | 170 |
@anim-chr |
| 173 | 171 |
0000 0018 1800 0000 c381 0000 0000 81c3 0000 183c 3c18 0000 0000 0000 0000 0000 |
| 174 | 172 |
0018 3c7e 7e3c 1800 0000 0000 0000 0000 3c7e ffe7 e7ff 7e3c 0000 0018 1800 0000 |