Added day6

This commit is contained in:
neauoire 2022-12-17 10:51:50 -08:00
parent 7130c89204
commit 3b634fcf93
6 changed files with 147 additions and 387 deletions

View File

@ -58,8 +58,6 @@ BRK
DUP #04 SFT STHr ADD DUP #04 SFT STHr ADD
DUP #04 SFT ORA DUP #04 SFT ORA
OVR #0f AND EOR OVR #0f AND EOR
SWP #0f AND .f LDZ2 #01 SFT2 NIP #0f AND #0f SWP SUB EQU ORA SWP #0f AND .f LDZ2 #01 SFT2 NIP #0f AND #0f SWP SUB EQU ORA
.Screen/pixel DEO .Screen/pixel DEO

147
tcc/day6.tal Normal file
View File

@ -0,0 +1,147 @@
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|0000
@f $2
|0100
( theme )
#ff0f .System/r DEO2
#0fa0 .System/g DEO2
#0f20 .System/b DEO2
( size )
#0100 .Screen/width DEO2
#0080 .Screen/height DEO2
( animate )
#01 .Screen/auto DEO
;on-frame .Screen/vector DEO2
BRK
@on-frame ( -> )
.Screen/height DEI2 #0000
&v
STH2k
DUP2 .Screen/y DEO2
.Screen/width DEI2 #0000
&h
DUP2 .Screen/x DEO2
DUP2 STH2kr ;pixel JSR2
INC2 GTH2k ,&h JCN
POP2 POP2 POP2r
INC2 GTH2k ,&v JCN
POP2 POP2
.f LDZ2k INC2 #00ff AND2 ROT STZ2
;draw-text JSR2
BRK
@pixel ( x* y* -- )
STH2k
ADD2k .f LDZ2 SUB2 ADD2
( y ) DUP2 ADD2 #00ff AND2 INC2 ;cos ADD2 LDA STH
.f LDZ2 ADD2
( x ) #00ff AND2 DUP2 ADD2 ;cos ADD2 LDA STHr
ADD .f LDZ2 STH2r ADD2 DUP2 ADD2 NIP ADD
#04 SFT .Screen/pixel DEO
JMP2r
@draw-text ( -- )
( x )
#0100 .f LDZ2 #10 SFT2 SUB2 #01ff AND2 #0100 SUB2
.Screen/x DEO2
( text )
;text
&w
( y )
DUP2 ;text SUB2 #20 SFT2 .f LDZ2 #10 SFT2 SUB2 #00ff AND2 ;cos ADD2 LDA #00 SWP #02 SFT2 #0020 ADD2
.Screen/y DEO2
( addr* )
LDAk #20 SUB #00 SWP #30 SFT2 ;font ADD2
.Screen/addr DEO2
#01 .Screen/sprite DEO
INC2 LDAk ,&w JCN
POP2
JMP2r
@text "Tiny 20 "Code 20 "Christmas 20 "2022 $1
(
@|assets )
@font ( atari8 )
0000 0000 0000 0000 6060 6060 6000 6000
6666 6600 0000 0000 006c fe6c 6cfe 6c00
183e 603c 067c 1800 0066 6c18 3066 4600
386c 3870 decc 7600 6060 6000 0000 0000
1c30 3030 3030 1c00 380c 0c0c 0c0c 3800
0066 3cff 3c66 0000 0018 187e 1818 0000
0000 0000 0030 3060 0000 007e 0000 0000
0000 0000 0018 1800 0306 0c18 3060 c000
3c66 6e76 6666 3c00 1838 1818 1818 7e00
3c66 060c 1830 7e00 7e0c 180c 0666 3c00
0c1c 3c6c 7e0c 0c00 7e60 7c06 0666 3c00
3c60 607c 6666 3c00 7e06 0c18 3030 3000
3c66 663c 6666 3c00 3c66 663e 060c 3800
0018 1800 0018 1800 0018 1800 1818 3000
0c18 3060 3018 0c00 0000 7e00 007e 0000
3018 0c06 0c18 3000 3c66 060c 1800 1800
3c66 6e6a 6e60 3e00 183c 6666 7e66 6600
7c66 667c 6666 7c00 3c66 6060 6066 3c00
786c 6666 666c 7800 7e60 607c 6060 7e00
7e60 607c 6060 6000 3e60 606e 6666 3e00
6666 667e 6666 6600 3c18 1818 1818 3c00
3e06 0606 0666 3c00 666c 7870 786c 6600
6060 6060 6060 7e00 c6ee fed6 c6c6 c600
6676 7e7e 6e66 6600 3c66 6666 6666 3c00
7c66 667c 6060 6000 3c66 6666 766c 3600
7c66 667c 6c66 6600 3c66 603c 0666 3c00
7e18 1818 1818 1800 6666 6666 6666 3e00
6666 6666 663c 1800 c6c6 c6d6 feee c600
6666 3c18 3c66 6600 6666 663c 1818 1800
7e06 0c18 3060 7e00 3c30 3030 3030 3c00
c060 3018 0c06 0300 3c0c 0c0c 0c0c 3c00
1038 6cc6 0000 0000 0000 0000 0000 fe00
0060 3018 0000 0000 0000 3c06 3e66 3e00
6060 7c66 6666 7c00 0000 3c60 6060 3c00
0606 3e66 6666 3e00 0000 3c66 7e60 3c00
1c30 7c30 3030 3000 0000 3e66 663e 067c
6060 7c66 6666 6600 1800 3818 1818 3c00
1800 1818 1818 1870 6060 666c 786c 6600
3818 1818 1818 3c00 0000 ecfe d6c6 c600
0000 7c66 6666 6600 0000 3c66 6666 3c00
0000 7c66 6666 7c60 0000 3e66 6666 3e06
0000 7c66 6060 6000 0000 3e60 3c06 7c00
0018 7e18 1818 0e00 0000 6666 6666 3e00
0000 6666 663c 1800 0000 c6c6 d67c 6c00
0000 663c 183c 6600 0000 6666 663e 067c
0000 7e0c 1830 7e00 1c30 3060 3030 1c00
1818 1818 1818 1818 380c 0c06 0c0c 3800
0000 60f2 9e0c 0000 3c42 9985 8599 423c
@cos ( cos256 )
ffff ffff ffff fefe fdfc fcfb faf9 f8f7
f6f5 f3f2 f0ef edec eae8 e6e4 e2e0 dedc
dad8 d5d3 d1ce ccc9 c7c4 c1bf bcb9 b6b3
b0ae aba8 a5a2 9f9c 9895 928f 8c89 8683
807c 7976 7370 6d6a 6763 605d 5a57 5451
4f4c 4946 4340 3e3b 3836 3331 2e2c 2a27
2523 211f 1d1b 1917 1513 1210 0f0d 0c0a
0908 0706 0504 0303 0201 0100 0000 0000
0000 0000 0000 0101 0203 0304 0506 0708
090a 0c0d 0f10 1213 1517 191b 1d1f 2123
2527 2a2c 2e31 3336 383b 3e40 4346 494c
4f51 5457 5a5d 6063 676a 6d70 7376 797c
7f83 8689 8c8f 9295 989c 9fa2 a5a8 abae
b0b3 b6b9 bcbf c1c4 c7c9 ccce d1d3 d5d8
dadc dee0 e2e4 e6e8 eaec edef f0f2 f3f5
f6f7 f8f9 fafb fcfc fdfe feff ffff ffff

View File

@ -1,51 +0,0 @@
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|0100
#23ef .System/r DEO2
#3b7f .System/g DEO2
#665f .System/b DEO2
,draw-tree JSR
BRK
@draw-tree ( -- )
#0060 .Screen/y DEO2
( star )
#0103
DUP2 ,draw-line JSR
#0203 ,draw-line JSR
,draw-line JSR
( tree )
#8000
&tree
DUP #02 SFT #3f AND DUP ADD STH
DUP #0f AND STHr ADD #01 ,draw-line JSR
INC GTHk ,&tree JCN
POP2
( bark )
#1000
&bark
#0802 ,draw-line JSR
INC GTHk ,&bark JCN
POP2
( ground )
#ff03
@draw-line ( width color -- )
,&c STR
#00 SWP
DUP2 .Screen/width DEI2 #01 SFT2 SWP2 SUB2 ,&o STR2
DUP2 ADD2 INC2 #0000
&l
DUP2 [ LIT2 &o $2 ] ADD2 .Screen/x DEO2
[ LIT &c $1 ] .Screen/pixel DEO
INC2 GTH2k ,&l JCN
POP2 POP2
.Screen/y DEI2k INC2 ROT DEO2
JMP2r

View File

@ -1,112 +0,0 @@
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
|0100
#23ef .System/r DEO2
#3b7f .System/g DEO2
#665f .System/b DEO2
,draw-tree JSR
;prng-init JSR2
( prepare particles )
.Screen/width DEI2 #0000
&l
( addr ) DUP2 #20 SFT2 ;snow ADD2 STH2
( x ) DUP2 STH2kr STA2
( y ) INC2r INC2r ;prng JSR2 #0100 ( mod2 ) DIV2k MUL2 SUB2 STH2r STA2
INC2 GTH2k ,&l JCN
POP2 POP2
( animate )
;on-frame .Screen/vector DEO2
BRK
@draw-tree ( -- )
#0060 .Screen/y DEO2
( star )
#0103
DUP2 ,draw-line JSR
#0203 ,draw-line JSR
,draw-line JSR
( tree )
#8000
&tree
DUP #02 SFT #3f AND DUP ADD STH
DUP #0f AND STHr ADD #01 ,draw-line JSR
INC GTHk ,&tree JCN
POP2
( bark )
#1000
&bark
#0802 ,draw-line JSR
INC GTHk ,&bark JCN
POP2
( ground )
#ff03
@draw-line ( width color -- )
,&c STR
#00 SWP
DUP2 .Screen/width DEI2 #01 SFT2 SWP2 SUB2 ,&o STR2
DUP2 ADD2 INC2 #0000
&l
DUP2 [ LIT2 &o $2 ] ADD2 .Screen/x DEO2
[ LIT &c $1 ] .Screen/pixel DEO
INC2 GTH2k ,&l JCN
POP2 POP2
.Screen/y DEI2k INC2 ROT DEO2
JMP2r
@on-frame ( -> )
.Screen/width DEI2 #0000
&l
;prng JSR2 NIP #07 AND ,&skip JCN
DUP2 #20 SFT2 ;snow ADD2
( clear ) DUP2 #40 ,draw-snowflake JSR
( y ) INC2k INC2 LDA2k INC2 #00f0 DIV2k MUL2 SUB2 SWP2 STA2
( draw ) #43 ,draw-snowflake JSR
&skip
INC2 GTH2k ,&l JCN
POP2 POP2
BRK
@draw-snowflake ( addr* color -- )
ROT ROT LDA2k .Screen/x DEO2
INC2 INC2 LDA2 .Screen/y DEO2
.Screen/pixel DEO
JMP2r
@prng-init ( -- )
( seed )
#00 .DateTime/second DEI
#00 .DateTime/minute DEI #60 SFT2 EOR2
#00 .DateTime/hour DEI #c0 SFT2 EOR2 ,prng/x STR2
#00 .DateTime/hour DEI #04 SFT2
#00 .DateTime/day DEI #10 SFT2 EOR2
#00 .DateTime/month DEI #60 SFT2 EOR2
.DateTime/year DEI2 #a0 SFT2 EOR2 ,prng/y STR2
JMP2r
@prng ( -- number* )
LIT2 &x $2
DUP2 #50 SFT2 EOR2
DUP2 #03 SFT2 EOR2
LIT2 &y $2 DUP2 ,&x STR2
DUP2 #01 SFT2 EOR2 EOR2
,&y STR2k POP
JMP2r
@snow

View File

@ -1,39 +0,0 @@
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|0000
@f $2
|0100
#ff0f .System/r DEO2
#f0a0 .System/g DEO2
#f020 .System/b DEO2
( size )
#0100 .Screen/width DEO2
#0080 .Screen/height DEO2
( animate )
;on-frame .Screen/vector DEO2
BRK
@on-frame ( -> )
.Screen/height DEI2 #0000
&v
STHk
DUP2 .Screen/y DEO2
.Screen/width DEI2 #0000
&h
DUP2 .Screen/x DEO2
DUP STHkr ADD #1f AND .f LDZ ADD #03 SFT
.Screen/pixel DEO
INC2 GTH2k ,&h JCN
POP2 POP2 POPr
INC2 GTH2k ,&v JCN
POP2 POP2
.f LDZk INC SWP STZ
BRK

View File

@ -1,183 +0,0 @@
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|0000
@f $2
|0100
#ff0f .System/r DEO2
#f0a0 .System/g DEO2
#f020 .System/b DEO2
( size )
#0100 .Screen/width DEO2
#0080 .Screen/height DEO2
( animate )
;on-frame .Screen/vector DEO2
BRK
@on-frame ( -> )
.Screen/height DEI2 #0000
&v
STH2k
DUP2 .Screen/y DEO2
.Screen/width DEI2 #0000
&h
DUP2 .Screen/x DEO2
DUP2 STH2kr ;pixel JSR2
INC2 GTH2k ,&h JCN
POP2 POP2 POP2r
INC2 GTH2k ,&v JCN
POP2 POP2
.f LDZ2k INC2 ROT STZ2
BRK
@pixel ( x* y* -- )
STH2k
ADD2k .f LDZ2 SUB2 ADD2
( y ) DUP2 ADD2 #03ff AND2 DUP2 ADD2 INC2 ;sin ADD2 LDA STH
.f LDZ2 ADD2
( x ) #03ff AND2 DUP2 ADD2 ;sin ADD2 LDA STHr
ADD .f LDZ2 STH2r ADD2 DUP2 ADD2 NIP ADD
#04 SFT .Screen/pixel DEO
JMP2r
|8000
@sin ( xy positions on a circle )
8000 8000 8100 8200 8300 8300 8400 8500
8600 8700 8700 8800 8900 8a00 8a00 8b00
8c00 8d00 8e00 8e00 8f00 9001 9101 9201
9201 9301 9401 9501 9501 9602 9702 9802
9802 9902 9a02 9b02 9c03 9c03 9d03 9e03
9f03 9f04 a004 a104 a204 a204 a305 a405
a505 a505 a605 a706 a806 a806 a906 aa07
ab07 ab07 ac08 ad08 ae08 ae08 af09 b009
b009 b10a b20a b30a b30a b40b b50b b60b
b60c b70c b80c b80d b90d ba0e ba0e bb0e
bc0f bd0f bd0f be10 bf10 bf11 c011 c111
c112 c212 c313 c313 c413 c514 c514 c615
c715 c716 c816 c916 c917 ca17 ca18 cb18
cc19 cc19 cd1a ce1a ce1b cf1b cf1c d01c
d11d d11d d21e d31e d31f d41f d420 d520
d521 d621 d722 d722 d823 d823 d924 d924
da25 db26 db26 dc27 dc27 dd28 dd28 de29
de2a df2a df2b e02b e02c e12c e12d e22e
e22e e32f e330 e430 e431 e531 e532 e633
e633 e734 e735 e835 e836 e936 e937 e938
ea38 ea39 eb3a eb3a ec3b ec3c ec3c ed3d
ed3e ee3e ee3f ee40 ef40 ef41 f042 f042
f043 f144 f145 f145 f246 f247 f347 f348
f349 f449 f44a f44b f54c f54c f54d f54e
f64f f64f f650 f751 f751 f752 f753 f854
f854 f855 f956 f957 f957 f958 fa59 fa5a
fa5a fa5b fa5c fb5d fb5d fb5e fb5f fb60
fc60 fc61 fc62 fc63 fc63 fd64 fd65 fd66
fd67 fd67 fd68 fd69 fe6a fe6a fe6b fe6c
fe6d fe6d fe6e fe6f ff70 ff71 ff71 ff72
ff73 ff74 ff75 ff75 ff76 ff77 ff78 ff78
ff79 ff7a ff7b ff7c ff7c ff7d ff7e ff7f
ff80 ff80 ff81 ff82 ff83 ff83 ff84 ff85
ff86 ff87 ff87 ff88 ff89 ff8a ff8a ff8b
ff8c ff8d ff8e ff8e ff8f fe90 fe91 fe92
fe92 fe93 fe94 fe95 fe95 fd96 fd97 fd98
fd98 fd99 fd9a fd9b fc9c fc9c fc9d fc9e
fc9f fb9f fba0 fba1 fba2 fba2 faa3 faa4
faa5 faa5 faa6 f9a7 f9a8 f9a8 f9a9 f8aa
f8ab f8ab f7ac f7ad f7ae f7ae f6af f6b0
f6b0 f5b1 f5b2 f5b3 f5b3 f4b4 f4b5 f4b6
f3b6 f3b7 f3b8 f2b8 f2b9 f1ba f1ba f1bb
f0bc f0bd f0bd efbe efbf eebf eec0 eec1
edc1 edc2 ecc3 ecc3 ecc4 ebc5 ebc5 eac6
eac7 e9c7 e9c8 e9c9 e8c9 e8ca e7ca e7cb
e6cc e6cc e5cd e5ce e4ce e4cf e3cf e3d0
e2d1 e2d1 e1d2 e1d3 e0d3 e0d4 dfd4 dfd5
ded5 ded6 ddd7 ddd7 dcd8 dcd8 dbd9 dbd9
dada d9db d9db d8dc d8dc d7dd d7dd d6de
d5de d5df d4df d4e0 d3e0 d3e1 d2e1 d1e2
d1e2 d0e3 cfe3 cfe4 cee4 cee5 cde5 cce6
cce6 cbe7 cae7 cae8 c9e8 c9e9 c8e9 c7e9
c7ea c6ea c5eb c5eb c4ec c3ec c3ec c2ed
c1ed c1ee c0ee bfee bfef beef bdf0 bdf0
bcf0 bbf1 baf1 baf1 b9f2 b8f2 b8f3 b7f3
b6f3 b6f4 b5f4 b4f4 b3f5 b3f5 b2f5 b1f5
b0f6 b0f6 aff6 aef7 aef7 adf7 acf7 abf8
abf8 aaf8 a9f9 a8f9 a8f9 a7f9 a6fa a5fa
a5fa a4fa a3fa a2fb a2fb a1fb a0fb 9ffb
9ffc 9efc 9dfc 9cfc 9cfc 9bfd 9afd 99fd
98fd 98fd 97fd 96fd 95fe 95fe 94fe 93fe
92fe 92fe 91fe 90fe 8fff 8eff 8eff 8dff
8cff 8bff 8aff 8aff 89ff 88ff 87ff 87ff
86ff 85ff 84ff 83ff 83ff 82ff 81ff 80ff
80ff 7fff 7eff 7dff 7cff 7cff 7bff 7aff
79ff 78ff 78ff 77ff 76ff 75ff 75ff 74ff
73ff 72ff 71ff 71ff 70ff 6ffe 6efe 6dfe
6dfe 6cfe 6bfe 6afe 6afe 69fd 68fd 67fd
67fd 66fd 65fd 64fd 63fc 63fc 62fc 61fc
60fc 60fb 5ffb 5efb 5dfb 5dfb 5cfa 5bfa
5afa 5afa 59fa 58f9 57f9 57f9 56f9 55f8
54f8 54f8 53f7 52f7 51f7 51f7 50f6 4ff6
4ff6 4ef5 4df5 4cf5 4cf5 4bf4 4af4 49f4
49f3 48f3 47f3 47f2 46f2 45f1 45f1 44f1
43f0 42f0 42f0 41ef 40ef 40ee 3fee 3eee
3eed 3ded 3cec 3cec 3bec 3aeb 3aeb 39ea
38ea 38e9 37e9 36e9 36e8 35e8 35e7 34e7
33e6 33e6 32e5 31e5 31e4 30e4 30e3 2fe3
2ee2 2ee2 2de1 2ce1 2ce0 2be0 2bdf 2adf
2ade 29de 28dd 28dd 27dc 27dc 26db 26db
25da 24d9 24d9 23d8 23d8 22d7 22d7 21d6
21d5 20d5 20d4 1fd4 1fd3 1ed3 1ed2 1dd1
1dd1 1cd0 1ccf 1bcf 1bce 1ace 1acd 19cc
19cc 18cb 18ca 17ca 17c9 16c9 16c8 16c7
15c7 15c6 14c5 14c5 13c4 13c3 13c3 12c2
12c1 11c1 11c0 11bf 10bf 10be 0fbd 0fbd
0fbc 0ebb 0eba 0eba 0db9 0db8 0cb8 0cb7
0cb6 0bb6 0bb5 0bb4 0ab3 0ab3 0ab2 0ab1
09b0 09b0 09af 08ae 08ae 08ad 08ac 07ab
07ab 07aa 06a9 06a8 06a8 06a7 05a6 05a5
05a5 05a4 05a3 04a2 04a2 04a1 04a0 049f
039f 039e 039d 039c 039c 029b 029a 0299
0298 0298 0297 0296 0195 0195 0194 0193
0192 0192 0191 0190 008f 008e 008e 008d
008c 008b 008a 008a 0089 0088 0087 0087
0086 0085 0084 0083 0083 0082 0081 0080
0080 007f 007e 007d 007c 007c 007b 007a
0079 0078 0078 0077 0076 0075 0075 0074
0073 0072 0071 0071 0070 016f 016e 016d
016d 016c 016b 016a 016a 0269 0268 0267
0267 0266 0265 0264 0363 0363 0362 0361
0360 0460 045f 045e 045d 045d 055c 055b
055a 055a 0559 0658 0657 0657 0656 0755
0754 0754 0853 0852 0851 0851 0950 094f
094f 0a4e 0a4d 0a4c 0a4c 0b4b 0b4a 0b49
0c49 0c48 0c47 0d47 0d46 0e45 0e45 0e44
0f43 0f42 0f42 1041 1040 1140 113f 113e
123e 123d 133c 133c 133b 143a 143a 1539
1538 1638 1637 1636 1736 1735 1835 1834
1933 1933 1a32 1a31 1b31 1b30 1c30 1c2f
1d2e 1d2e 1e2d 1e2c 1f2c 1f2b 202b 202a
212a 2129 2228 2228 2327 2327 2426 2426
2525 2624 2624 2723 2723 2822 2822 2921
2a21 2a20 2b20 2b1f 2c1f 2c1e 2d1e 2e1d
2e1d 2f1c 301c 301b 311b 311a 321a 3319
3319 3418 3518 3517 3617 3616 3716 3816
3815 3915 3a14 3a14 3b13 3c13 3c13 3d12
3e12 3e11 3f11 4011 4010 4110 420f 420f
430f 440e 450e 450e 460d 470d 470c 480c
490c 490b 4a0b 4b0b 4c0a 4c0a 4d0a 4e0a
4f09 4f09 5009 5108 5108 5208 5308 5407
5407 5507 5606 5706 5706 5806 5905 5a05
5a05 5b05 5c05 5d04 5d04 5e04 5f04 6004
6003 6103 6203 6303 6303 6402 6502 6602
6702 6702 6802 6902 6a01 6a01 6b01 6c01
6d01 6d01 6e01 6f01 7000 7100 7100 7200
7300 7400 7500 7500 7600 7700 7800 7800
7900 7a00 7b00 7c00 7c00 7d00 7e00 7f00