M src/assets.tal => src/assets.tal +31 -1
@@ 179,6 179,37 @@
8182 8282 8283 8553 8686 8687 8586 8686 8687 8586 8686 8687 8570 7172 7387 8574 7576 7787 8586 8686 8687 8586 8686 8687 898a 8a8a 8a8b ( joker2 )
9192 9292 9293 9596 9696 9697 9596 9696 9697 9596 9696 9697 9596 9696 9697 9596 9696 9697 9596 9696 9697 9596 9696 9697 999a 9a9a 9a9b ( blank )
+@splash-table
+ 0000 0000 0000 0000 0000 0098 9898 9898 9898 9898 9800 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00a9 aaa9 aaa9 aaa9 aaa9 aa00 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00b1 b1b1 b1b1 b1b1 b1b1 b100 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00a5 a4a5 a4a5 a5a4 a5a4 a500 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00a5 00a5 00a5 a500 a500 a500 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00a5 96a5 96a5 a596 a596 a500 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00b1 b1b1 b1b1 b1b1 b1b1 b100 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00aa a9aa a9aa a9aa a9aa a900 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00b1 b1b1 b1b1 b1b1 b1b1 b100 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00a5 a5a5 a5a5 a5a5 a5a5 a500 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 a7a7 a5a7 a5a5 a5a5 a3a5 a3a3 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
+ 0000 0000 0000 00b8 b1b5 b9b1 b5b8 b2b5 b9b1 90b9 b1b5 b300 0000 0000 0000 0000
+ 0000 0000 0000 00ba 00ba ba00 baba 00ba b6b1 b5ba 00ba ba00 0000 0000 0000 0000
+ 0000 0000 0000 00ba 00ba ba00 baba 00ba b300 baba 00ba ba00 0000 0000 0000 0000
+ 0000 0000 0000 00b0 b1bb b6b1 bbb0 00b4 b6b1 bbb6 b1bb b6b1 9000 0000 0000 0000
+ 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 a1a1 a5a1 a9b1 b1a9 a0a5 a0a0 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00a5 a4a5 aaa6 a6aa a5a4 a500 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 00a5 00a5 aa00 00aa a500 a500 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 a8a5 96a5 aa00 00aa a596 a5a8 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 00ac abab abab afae aeaf abab abab ad00 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 0000 0000 abaf afab 0000 0000 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 0000 0000 00ab ab00 0000 0000 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
+ 0000 0000 0000 000f 2537 3d00 0018 3336 3125 3000 0012 2536 2800 0000 0000 0000
+ 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
+ 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
@spritesheet
efc7 8301 01ab c7ff efc7 8301 01ab c7ff
@@ 373,4 404,3 @@
faff faf7 ea57 aad7 fdf9 fdf9 d5a9 5529
5fff 5fef 57ea 55eb bf9f bf9f ab95 aa94
ffff ffff ffff f7fb ffff ffff ff1f 0f17
-
M src/main.tal => src/main.tal +18 -5
@@ 29,7 29,7 @@
%RTN { JMP2r }
%TOB { NIP } %TOS { #00 SWP }
-%MOD { DIVk MUL SUB }
+%MOD { DIVk MUL SUB } %MOD2 { DIV2k MUL2 SUB2 }
%BRK? { #01 JCN BRK }
%SWP? { #01 JCN SWP } %SWP2? { #01 JCN SWP2 }
@@ 153,6 153,8 @@ BRK
@on-frame-menu ( -> )
+ ( nothing.. )
+
BRK
@start-menu ( -- )
@@ 164,6 166,17 @@ RTN
@draw-menu ( -- )
+ ( draw castle )
+
+ #0320 #0000
+ &loop
+ ( x ) DUP2 #0020 MOD2 8** .frame/x LDZ2 ++ #0010 -- .Screen/x DEO2
+ ( y ) DUP2 #0020 DIV2 8** .frame/y LDZ2 ++ #0040 -- .Screen/y DEO2
+ ( addr ) DUP2 ;splash-table ++ LDA #40 - TOS 10** ;spritesheet ++ .Screen/addr DEO2
+ ( draw ) #81 .Screen/sprite DEO
+ INC2 GTH2k ,&loop JCN
+ POP2 POP2
+
&options
( easy )
.frame/x LDZ2 WIDTH 2// #0048 -- ++
@@ 932,12 945,12 @@ RTN
@clear-screen ( -- )
;blank-icn .Screen/addr DEO2
- .frame/y2 LDZ2 .frame/y LDZ2 -- 8// NIP #00
+ .Screen/height DEI2 8// NIP #00
&y
- DUP TOS 8** .frame/y LDZ2 ++ .Screen/y DEO2
- .frame/x2 LDZ2 .frame/x LDZ2 -- 8// NIP #00
+ DUP TOS 8** .Screen/y DEO2
+ .Screen/width DEI2 8// NIP #00
&x
- DUP TOS 8** .frame/x LDZ2 ++ .Screen/x DEO2
+ DUP TOS 8** .Screen/x DEO2
#01 .Screen/sprite DEO
INC GTHk ,&x JCN
POP2