Browse code
Reverted changes to screen.tal
neauoire authored on 01/08/2021 18:28:37
Showing 1 changed files
| ... | ... |
@@ -6,7 +6,6 @@ |
| 6 | 6 |
|
| 7 | 7 |
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ] |
| 8 | 8 |
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ] |
| 9 |
-|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ] |
|
| 10 | 9 |
|
| 11 | 10 |
( variables ) |
| 12 | 11 |
|
| ... | ... |
@@ -29,21 +28,13 @@ |
| 29 | 28 |
|
| 30 | 29 |
( draw ) |
| 31 | 30 |
;draw-table JSR2 |
| 32 |
- ;on-frame .Screen/vector DEO2 |
|
| 33 |
- |
|
| 31 |
+ ;draw-sprites JSR2 |
|
| 34 | 32 |
;draw-1bpp JSR2 |
| 35 | 33 |
;draw-2bpp JSR2 |
| 36 |
- |
|
| 37 | 34 |
;draw-pixels JSR2 |
| 38 |
- |
|
| 39 | 35 |
|
| 40 | 36 |
BRK |
| 41 | 37 |
|
| 42 |
-@on-frame ( -> ) |
|
| 43 |
- ;draw-background JSR2 |
|
| 44 |
- ;draw-sprites JSR2 |
|
| 45 |
- BRK |
|
| 46 |
- |
|
| 47 | 38 |
@draw-table ( -- ) |
| 48 | 39 |
|
| 49 | 40 |
#00 #10 |
| ... | ... |
@@ -110,19 +101,7 @@ RTN |
| 110 | 101 |
SWP #01 ADD SWP |
| 111 | 102 |
LTHk ,&loop JCN |
| 112 | 103 |
POP2 |
| 113 |
- |
|
| 114 |
-@draw-background ( -- ) |
|
| 115 |
- ;solid .Screen/addr DEO2 |
|
| 116 |
- #00 #00 |
|
| 117 |
- &loop |
|
| 118 |
- ( move ) OVR #0f AND #40 SFT #02 DIV #00 SWP |
|
| 119 |
- .center/x LDZ2 #0040 SUB2 ADD2 .Screen/x DEO2 |
|
| 120 |
- ( move ) OVR #f0 AND #02 DIV #00 SWP |
|
| 121 |
- .center/y LDZ2 #0040 SUB2 ADD2 .Screen/y DEO2 |
|
| 122 |
- ( draw ) OVR #40 AND .DateTime/second DEI #03 DIV #03 AND ORA .Screen/sprite DEO |
|
| 123 |
- ( incr ) SWP #01 ADD SWP |
|
| 124 |
- NEQk ,&loop JCN |
|
| 125 |
- POP2 |
|
| 104 |
+ |
|
| 126 | 105 |
RTN |
| 127 | 106 |
|
| 128 | 107 |
@draw-circle ( x* y* color depth -- ) |
| ... | ... |
@@ -160,9 +139,6 @@ RTN |
| 160 | 139 |
@preview_icn [ |
| 161 | 140 |
0f38 675f dfbf bfbf 0007 1820 2344 4848 |
| 162 | 141 |
|
| 163 |
-@solid |
|
| 164 |
- ffff ffff ffff ffff |
|
| 165 |
- |
|
| 166 | 142 |
@font-hex |
| 167 | 143 |
007c 8282 8282 827c 0030 1010 1010 1010 |
| 168 | 144 |
007c 8202 7c80 80fe 007c 8202 1c02 827c |