... | ... |
@@ -87,7 +87,7 @@ |
87 | 87 |
|
88 | 88 |
&filename |
89 | 89 |
( "test.usm 00 ) |
90 |
- "projects/demos/piano.usm 00 |
|
90 |
+ "projects/examples/gui/label.usm 00 |
|
91 | 91 |
|
92 | 92 |
&lines [ 20 "lines 20 "in 20 "total. 0a 00 ] |
93 | 93 |
|
... | ... |
@@ -110,19 +110,23 @@ |
110 | 110 |
&loop |
111 | 111 |
OVR2 .File/name DEO2 |
112 | 112 |
DUP2 .File/offset DEO2 |
113 |
- #0100 .File/length DEO2 |
|
114 |
- #fe00 DUP2k .File/load DEO2 |
|
115 |
- .File/success DEI2 ORAk ,¬-end JCN |
|
116 |
- POP2 POP2 |
|
117 |
- &error |
|
118 |
- POP2 POP2 POP2 |
|
119 |
- JMP2r |
|
120 |
- |
|
121 |
- ¬-end |
|
113 |
+ #0023 STH2k .File/length DEO2 |
|
114 |
+ #f000 DUP2k .File/load DEO2 |
|
115 |
+ .File/success DEI2 |
|
116 |
+ DUP2 STH2r SUB2 ORA ,&last-one JCN |
|
122 | 117 |
,asma-assemble-chunk JSR asma-IF-ERROR ,&error JCN |
123 | 118 |
SUB2 SUB2 |
124 | 119 |
,&loop JMP |
125 | 120 |
|
121 |
+ &last-one |
|
122 |
+ ADD2k #00 ROT ROT STA |
|
123 |
+ #0001 ADD2 |
|
124 |
+ ,asma-assemble-chunk JSR asma-IF-ERROR ,&error JCN |
|
125 |
+ POP2 |
|
126 |
+ &error |
|
127 |
+ POP2 POP2 POP2 |
|
128 |
+ JMP2r |
|
129 |
+ |
|
126 | 130 |
@asma-init-assembler ( -- ) |
127 | 131 |
#ff ;asma/pass STA |
128 | 132 |
#0000 ;asma/error STA2 |