... | ... |
@@ -5,16 +5,15 @@ |
5 | 5 |
%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 } |
6 | 6 |
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 } |
7 | 7 |
|
8 |
-%RTN { JMP2r } |
|
9 |
-%TOS { #00 SWP } |
|
10 |
- |
|
11 |
-%DEBUG { ;print-hex/byte JSR2 #0a18 DEO } |
|
12 |
-%DEBUG2 { ;print-hex JSR2 #0a18 DEO } |
|
8 |
+%AUTO-X { #01 .Screen/auto DEO } |
|
9 |
+%AUTO-Y { #02 .Screen/auto DEO } |
|
13 | 10 |
%AUTO-YADDR { #06 .Screen/auto DEO } |
14 | 11 |
|
12 |
+%RTN { JMP2r } |
|
13 |
+%2// { #01 SFT2 } |
|
14 |
+ |
|
15 | 15 |
( devices ) |
16 | 16 |
|
17 |
-|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1 |
|
18 | 17 |
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |
19 | 18 |
|
20 | 19 |
( variables ) |
... | ... |
@@ -25,168 +24,70 @@ |
25 | 24 |
|
26 | 25 |
|0100 ( -> ) |
27 | 26 |
|
28 |
- #0010 .Screen/x DEO2 |
|
29 |
- #0010 .Screen/y DEO2 |
|
27 |
+ ;draw-cross JSR2 |
|
30 | 28 |
|
31 | 29 |
AUTO-YADDR |
32 |
- |
|
33 | 30 |
#0010 #0000 |
34 | 31 |
&wst |
35 |
- ( color ) DUP #fe00 LDA EQU #41 + STH |
|
32 |
+ ( working stack ) |
|
33 |
+ #0010 .Screen/y DEO2 |
|
34 |
+ DUP2 #0018 ** #0010 ++ .Screen/x DEO2 |
|
35 |
+ DUP #fe00 LDA ( ptr ) EQU #41 + STH |
|
36 | 36 |
DUP2 #fe01 ++ LDA STHr ;draw-hex JSR2 |
37 |
- .Screen/x DEI2k #0008 ++ ROT DEO2 |
|
37 |
+ ( return stack ) |
|
38 |
+ #0028 .Screen/y DEO2 |
|
39 |
+ DUP2 #0018 ** #0010 ++ .Screen/x DEO2 |
|
40 |
+ DUP #ff00 LDA ( ptr ) EQU #41 + STH |
|
41 |
+ DUP2 #ff01 ++ LDA STHr ;draw-hex JSR2 |
|
38 | 42 |
INC2 GTH2k ,&wst JCN |
39 | 43 |
POP2 POP2 |
40 | 44 |
|
41 |
- #0010 .Screen/x DEO2 |
|
42 |
- #0020 .Screen/y DEO2 |
|
45 |
+BRK |
|
43 | 46 |
|
44 |
- #0010 #0000 |
|
45 |
- &rst |
|
46 |
- ( color ) DUP #ff00 LDA EQU #41 + STH |
|
47 |
- DUP2 #ff01 ++ LDA STHr ;draw-hex JSR2 |
|
48 |
- .Screen/x DEI2k #0008 ++ ROT DEO2 |
|
49 |
- INC2 GTH2k ,&rst JCN |
|
47 |
+@draw-cross ( -- ) |
|
48 |
+ |
|
49 |
+ ( ver ) |
|
50 |
+ AUTO-Y |
|
51 |
+ #0000 .Screen/y DEO2 |
|
52 |
+ .Screen/width DEI2 2// .Screen/x DEO2 |
|
53 |
+ .Screen/height DEI2 #0000 |
|
54 |
+ &ver |
|
55 |
+ #43 .Screen/pixel DEO |
|
56 |
+ .Screen/y DEI2k INC2 ROT DEO2 |
|
57 |
+ INC2 GTH2k ,&ver JCN |
|
50 | 58 |
POP2 POP2 |
51 | 59 |
|
52 |
-BRK |
|
60 |
+ ( hor ) |
|
61 |
+ AUTO-X |
|
62 |
+ #0000 .Screen/x DEO2 |
|
63 |
+ .Screen/height DEI2 2// .Screen/y DEO2 |
|
64 |
+ .Screen/width DEI2 #0000 |
|
65 |
+ &hor |
|
66 |
+ #43 .Screen/pixel DEO |
|
67 |
+ .Screen/x DEI2k INC2 ROT DEO2 |
|
68 |
+ INC2 GTH2k ,&hor JCN |
|
69 |
+ POP2 POP2 |
|
70 |
+ |
|
71 |
+RTN |
|
53 | 72 |
|
54 | 73 |
@draw-hex ( byte color -- ) |
55 | 74 |
|
56 | 75 |
STH |
57 |
- |
|
58 |
- DUP #04 SFT ;print-hex/parse JSR2 STHkr ;draw-char JSR2 |
|
59 |
- #0f AND ;print-hex/parse JSR2 STHr ;draw-char JSR2 |
|
76 |
+ DUP #04 SFT ,&parse JSR STHkr ,draw-char JSR |
|
77 |
+ #0f AND ,&parse JSR STHr ,draw-char JSR |
|
60 | 78 |
|
61 | 79 |
RTN |
62 |
- |
|
63 |
-@print-hex ( value* -- ) |
|
64 |
- |
|
65 |
- SWP ,&byte JSR |
|
66 |
- &byte ( byte -- ) |
|
67 |
- STHk #04 SFT ,&parse JSR #18 DEO |
|
68 |
- STHr #0f AND ,&parse JSR #18 DEO |
|
69 |
- JMP2r |
|
70 | 80 |
&parse ( byte -- char ) DUP #09 GTH ,&above JCN #30 ADD JMP2r |
71 | 81 |
&above #57 ADD JMP2r |
72 | 82 |
|
73 |
-JMP2r |
|
74 |
- |
|
75 |
-@hello-str "Hello $1 |
|
76 |
- |
|
77 |
-@draw-str ( str* color -- ) |
|
78 |
- |
|
79 |
- STH |
|
80 |
- &while |
|
81 |
- LDAk STHkr ,draw-char JSR |
|
82 |
- INC2 LDAk ,&while JCN |
|
83 |
- POP2 |
|
84 |
- POPr |
|
85 |
- |
|
86 |
-JMP2r |
|
87 |
- |
|
88 | 83 |
@draw-char ( char color -- ) |
89 | 84 |
|
90 | 85 |
SWP |
91 | 86 |
[ #20 - #00 SWP #40 SFT2 ;font ++ ] .Screen/addr DEO2 |
92 | 87 |
.Screen/sprite DEOk DEO |
93 |
- .Screen/y DEI2 #0010 -- .Screen/y DEO2 |
|
94 |
- .Screen/x DEI2 #0008 ++ .Screen/x DEO2 |
|
88 |
+ .Screen/x DEI2k #0008 ++ ROT DEO2 |
|
89 |
+ .Screen/y DEI2k #0010 -- ROT DEO2 |
|
95 | 90 |
|
96 | 91 |
JMP2r |
97 | 92 |
|
98 |
-@font |
|
99 |
- 0000 0000 0000 0000 0000 0000 0000 0000 |
|
100 |
- 0000 183c 3c3c 1818 1800 1818 0000 0000 |
|
101 |
- 0066 6666 2400 0000 0000 0000 0000 0000 |
|
102 |
- 0000 006c 6cfe 6c6c 6cfe 6c6c 0000 0000 |
|
103 |
- 1818 7cc6 c2c0 7c06 0686 c67c 1818 0000 |
|
104 |
- 0000 0000 c2c6 0c18 3060 c686 0000 0000 |
|
105 |
- 0000 386c 6c38 76dc cccc cc76 0000 0000 |
|
106 |
- 0030 3030 6000 0000 0000 0000 0000 0000 |
|
107 |
- 0000 0c18 3030 3030 3030 180c 0000 0000 |
|
108 |
- 0000 3018 0c0c 0c0c 0c0c 1830 0000 0000 |
|
109 |
- 0000 0000 0066 3cff 3c66 0000 0000 0000 |
|
110 |
- 0000 0000 0018 187e 1818 0000 0000 0000 |
|
111 |
- 0000 0000 0000 0000 0018 1818 3000 0000 |
|
112 |
- 0000 0000 0000 00fe 0000 0000 0000 0000 |
|
113 |
- 0000 0000 0000 0000 0000 1818 0000 0000 |
|
114 |
- 0000 0000 0206 0c18 3060 c080 0000 0000 |
|
115 |
- 0000 386c c6c6 d6d6 c6c6 6c38 0000 0000 |
|
116 |
- 0000 1838 7818 1818 1818 187e 0000 0000 |
|
117 |
- 0000 7cc6 060c 1830 60c0 c6fe 0000 0000 |
|
118 |
- 0000 7cc6 0606 3c06 0606 c67c 0000 0000 |
|
119 |
- 0000 0c1c 3c6c ccfe 0c0c 0c1e 0000 0000 |
|
120 |
- 0000 fec0 c0c0 fc06 0606 c67c 0000 0000 |
|
121 |
- 0000 3860 c0c0 fcc6 c6c6 c67c 0000 0000 |
|
122 |
- 0000 fec6 0606 0c18 3030 3030 0000 0000 |
|
123 |
- 0000 7cc6 c6c6 7cc6 c6c6 c67c 0000 0000 |
|
124 |
- 0000 7cc6 c6c6 7e06 0606 0c78 0000 0000 |
|
125 |
- 0000 0000 1818 0000 0018 1800 0000 0000 |
|
126 |
- 0000 0000 1818 0000 0018 1830 0000 0000 |
|
127 |
- 0000 0006 0c18 3060 3018 0c06 0000 0000 |
|
128 |
- 0000 0000 007e 0000 7e00 0000 0000 0000 |
|
129 |
- 0000 0060 3018 0c06 0c18 3060 0000 0000 |
|
130 |
- 0000 7cc6 c60c 1818 1800 1818 0000 0000 |
|
131 |
- 0000 007c c6c6 dede dedc c07c 0000 0000 |
|
132 |
- 0000 1038 6cc6 c6fe c6c6 c6c6 0000 0000 |
|
133 |
- 0000 fc66 6666 7c66 6666 66fc 0000 0000 |
|
134 |
- 0000 3c66 c2c0 c0c0 c0c2 663c 0000 0000 |
|
135 |
- 0000 f86c 6666 6666 6666 6cf8 0000 0000 |
|
136 |
- 0000 fe66 6268 7868 6062 66fe 0000 0000 |
|
137 |
- 0000 fe66 6268 7868 6060 60f0 0000 0000 |
|
138 |
- 0000 3c66 c2c0 c0de c6c6 663a 0000 0000 |
|
139 |
- 0000 c6c6 c6c6 fec6 c6c6 c6c6 0000 0000 |
|
140 |
- 0000 3c18 1818 1818 1818 183c 0000 0000 |
|
141 |
- 0000 1e0c 0c0c 0c0c cccc cc78 0000 0000 |
|
142 |
- 0000 e666 666c 7878 6c66 66e6 0000 0000 |
|
143 |
- 0000 f060 6060 6060 6062 66fe 0000 0000 |
|
144 |
- 0000 c6ee fefe d6c6 c6c6 c6c6 0000 0000 |
|
145 |
- 0000 c6e6 f6fe dece c6c6 c6c6 0000 0000 |
|
146 |
- 0000 7cc6 c6c6 c6c6 c6c6 c67c 0000 0000 |
|
147 |
- 0000 fc66 6666 7c60 6060 60f0 0000 0000 |
|
148 |
- 0000 7cc6 c6c6 c6c6 c6d6 de7c 0c0e 0000 |
|
149 |
- 0000 fc66 6666 7c6c 6666 66e6 0000 0000 |
|
150 |
- 0000 7cc6 c660 380c 06c6 c67c 0000 0000 |
|
151 |
- 0000 7e7e 5a18 1818 1818 183c 0000 0000 |
|
152 |
- 0000 c6c6 c6c6 c6c6 c6c6 c67c 0000 0000 |
|
153 |
- 0000 c6c6 c6c6 c6c6 c66c 3810 0000 0000 |
|
154 |
- 0000 c6c6 c6c6 d6d6 d6fe ee6c 0000 0000 |
|
155 |
- 0000 c6c6 6c7c 3838 7c6c c6c6 0000 0000 |
|
156 |
- 0000 6666 6666 3c18 1818 183c 0000 0000 |
|
157 |
- 0000 fec6 860c 1830 60c2 c6fe 0000 0000 |
|
158 |
- 0000 3c30 3030 3030 3030 303c 0000 0000 |
|
159 |
- 0000 0080 c0e0 7038 1c0e 0602 0000 0000 |
|
160 |
- 0000 3c0c 0c0c 0c0c 0c0c 0c3c 0000 0000 |
|
161 |
- 1038 6cc6 0000 0000 0000 0000 0000 0000 |
|
162 |
- 0000 0000 0000 0000 0000 0000 00ff 0000 |
|
163 |
- 3030 1800 0000 0000 0000 0000 0000 0000 |
|
164 |
- 0000 0000 0078 0c7c cccc cc76 0000 0000 |
|
165 |
- 0000 e060 6078 6c66 6666 667c 0000 0000 |
|
166 |
- 0000 0000 007c c6c0 c0c0 c67c 0000 0000 |
|
167 |
- 0000 1c0c 0c3c 6ccc cccc cc76 0000 0000 |
|
168 |
- 0000 0000 007c c6fe c0c0 c67c 0000 0000 |
|
169 |
- 0000 386c 6460 f060 6060 60f0 0000 0000 |
|
170 |
- 0000 0000 0076 cccc cccc cc7c 0ccc 7800 |
|
171 |
- 0000 e060 606c 7666 6666 66e6 0000 0000 |
|
172 |
- 0000 1818 0038 1818 1818 183c 0000 0000 |
|
173 |
- 0000 0606 000e 0606 0606 0606 6666 3c00 |
|
174 |
- 0000 e060 6066 6c78 786c 66e6 0000 0000 |
|
175 |
- 0000 3818 1818 1818 1818 183c 0000 0000 |
|
176 |
- 0000 0000 00ec fed6 d6d6 d6c6 0000 0000 |
|
177 |
- 0000 0000 00dc 6666 6666 6666 0000 0000 |
|
178 |
- 0000 0000 007c c6c6 c6c6 c67c 0000 0000 |
|
179 |
- 0000 0000 00dc 6666 6666 667c 6060 f000 |
|
180 |
- 0000 0000 0076 cccc cccc cc7c 0c0c 1e00 |
|
181 |
- 0000 0000 00dc 7666 6060 60f0 0000 0000 |
|
182 |
- 0000 0000 007c c660 380c c67c 0000 0000 |
|
183 |
- 0000 1030 30fc 3030 3030 361c 0000 0000 |
|
184 |
- 0000 0000 00cc cccc cccc cc76 0000 0000 |
|
185 |
- 0000 0000 0066 6666 6666 3c18 0000 0000 |
|
186 |
- 0000 0000 00c6 c6d6 d6d6 fe6c 0000 0000 |
|
187 |
- 0000 0000 00c6 6c38 3838 6cc6 0000 0000 |
|
188 |
- 0000 0000 00c6 c6c6 c6c6 c67e 060c f800 |
|
189 |
- 0000 0000 00fe cc18 3060 c6fe 0000 0000 |
|
190 |
- 0000 0e18 1818 7018 1818 180e 0000 0000 |
|
191 |
- 0000 1818 1818 0018 1818 1818 0000 0000 |
|
192 |
- 0000 7018 1818 0e18 1818 1870 0000 0000 |
|
93 |
+~projects/assets/msx01x02.tal |
|
193 | 94 |
\ No newline at end of file |