( forth.s):00001 ( forth.s):00002 ;;; gcc for m6809 : Mar 27 2025 02:43:37 ( forth.s):00003 ;;; 4.6.4 (gcc6809lw pl9) ( forth.s):00004 ;;; ABI version 1 ( forth.s):00005 ;;; -mint16 ( forth.s):00006 .module forth.c ( forth.s):00007 ( forth.s):00008 .area .text 0000 ( forth.s):00009 _PutRawByte: 0000 3460 ( forth.s):00010 pshs y,u 0002 BE0000 ( forth.s):00011 ldx _cursor 0005 E780 ( forth.s):00012 stb ,x+ 0007 BF0000 ( forth.s):00013 stx _cursor 000A 2020 ( forth.s):00014 bra L2 000C ( forth.s):00015 L6: 000C CE3E00 ( forth.s):00016 ldu #15872 000F ( forth.s):00017 L3: 000F 31C820 ( forth.s):00018 leay 32,u 0012 ECA4 ( forth.s):00019 ldd ,y 0014 EDC1 ( forth.s):00020 std ,u++ 0016 11833FA0 ( forth.s):00021 cmpu #16288 ;cmphi: 001A 26F3 ( forth.s):00022 bne L3 001C ( forth.s):00023 L4: 001C 108E2020 ( forth.s):00024 ldy #8224 0020 10AFC1 ( forth.s):00025 sty ,u++ 0023 11833FC0 ( forth.s):00026 cmpu #16320 ;cmphi: 0027 26F3 ( forth.s):00027 bne L4 0029 3088E0 ( forth.s):00028 leax -32,x 002C ( forth.s):00029 L2: 002C 8C3FBF ( forth.s):00030 cmpx #16319 ;cmphi: 002F 22DB ( forth.s):00031 bhi L6 0031 BF0000 ( forth.s):00032 stx _cursor 0034 C6FF ( forth.s):00033 ldb #-1 0036 E784 ( forth.s):00034 stb ,x 0038 8E0000 ( forth.s):00035 ldx #0 003B ( forth.s):00036 L5: 003B BF3FFE ( forth.s):00037 stx 16382 003E 3001 ( forth.s):00038 leax 1,x 0040 8C0100 ( forth.s):00039 cmpx #256 ;cmphi: 0043 26F6 ( forth.s):00040 bne L5 0045 35E0 ( forth.s):00041 puls y,u,pc 0047 ( forth.s):00042 _PutChar: 0047 327F ( forth.s):00043 leas -1,s 0049 2002 ( forth.s):00044 bra L22 004B ( forth.s):00045 L18: 004B C65F ( forth.s):00046 ldb #95 004D ( forth.s):00047 L22: 004D E7E4 ( forth.s):00048 stb ,s 004F C620 ( forth.s):00049 ldb #32 0051 E79F0000 ( forth.s):00050 stb [_cursor] 0055 E6E4 ( forth.s):00051 ldb ,s 0057 C10A ( forth.s):00052 cmpb #10 ;cmpqi: 0059 2611 ( forth.s):00053 bne L21 005B 2003 ( forth.s):00054 bra L19 005D ( forth.s):00055 L14: 005D BD0000 ( forth.s):00056 jsr _PutChar 0060 ( forth.s):00057 L19: 0060 BE0000 ( forth.s):00058 ldx _cursor 0063 C620 ( forth.s):00059 ldb #32 0065 8C3FBE ( forth.s):00060 cmpx #16318 ;cmphi: 0068 23F3 ( forth.s):00061 bls L14 006A 20E1 ( forth.s):00062 bra L22 006C ( forth.s):00063 L21: 006C E6E4 ( forth.s):00064 ldb ,s 006E C11F ( forth.s):00065 cmpb #31 ;cmpqi: 0070 23D9 ( forth.s):00066 bls L18 0072 C15F ( forth.s):00067 cmpb #95 ;cmpqi: 0074 2206 ( forth.s):00068 bhi L16 0076 C43F ( forth.s):00069 andb #63 0078 E7E4 ( forth.s):00070 stb ,s 007A 200A ( forth.s):00071 bra L23 007C ( forth.s):00072 L16: 007C E6E4 ( forth.s):00073 ldb ,s 007E 2B04 ( forth.s):00074 bmi L17 0080 CBA0 ( forth.s):00075 addb #-96 0082 2002 ( forth.s):00076 bra L23 0084 ( forth.s):00077 L17: 0084 E6E4 ( forth.s):00078 ldb ,s 0086 ( forth.s):00079 L23: 0086 3261 ( forth.s):00080 leas 1,s 0088 7E0000 ( forth.s):00081 jmp _PutRawByte 008B ( forth.s):00082 _PutStr: 008B 3460 ( forth.s):00083 pshs y,u 008D 3184 ( forth.s):00084 leay ,x 008F CE001E ( forth.s):00085 ldu #30 0092 2012 ( forth.s):00086 bra L25 0094 ( forth.s):00087 L27: 0094 BD0000 ( forth.s):00088 jsr _PutChar 0097 11830000 ( forth.s):00089 cmpu #0 ;cmphi: 009B 2607 ( forth.s):00090 bne L26 009D C65C ( forth.s):00091 ldb #92 009F 3560 ( forth.s):00092 puls y,u 00A1 7E0000 ( forth.s):00093 jmp _PutChar 00A4 ( forth.s):00094 L26: 00A4 335F ( forth.s):00095 leau -1,u 00A6 ( forth.s):00096 L25: 00A6 E6A0 ( forth.s):00097 ldb ,y+ 00A8 26EA ( forth.s):00098 bne L27 00AA 35E0 ( forth.s):00099 puls y,u,pc 00AC ( forth.s):00100 _PutHex: 00AC 3440 ( forth.s):00101 pshs u 00AE 327C ( forth.s):00102 leas -4,s 00B0 3384 ( forth.s):00103 leau ,x 00B2 8C000F ( forth.s):00104 cmpx #15 ;cmphi: 00B5 2311 ( forth.s):00105 bls L29 00B7 1F10 ( forth.s):00106 tfr x,d 00B9 44 ( forth.s):00107 lsra 00BA 56 ( forth.s):00108 rorb 00BB 44 ( forth.s):00109 lsra 00BC 56 ( forth.s):00110 rorb 00BD 44 ( forth.s):00111 lsra 00BE 56 ( forth.s):00112 rorb 00BF 44 ( forth.s):00113 lsra 00C0 56 ( forth.s):00114 rorb 00C1 ED62 ( forth.s):00115 std 2,s 00C3 1F01 ( forth.s):00116 tfr d,x 00C5 BD0000 ( forth.s):00117 jsr _PutHex 00C8 ( forth.s):00118 L29: 00C8 1F30 ( forth.s):00119 tfr u,d 00CA 8400 ( forth.s):00120 anda #0 00CC C40F ( forth.s):00121 andb #15 00CE 1F01 ( forth.s):00122 tfr d,x 00D0 E6890000 ( forth.s):00123 ldb _HexAlphabet,x 00D4 3264 ( forth.s):00124 leas 4,s 00D6 3540 ( forth.s):00125 puls u 00D8 7E0000 ( forth.s):00126 jmp _PutChar 00DB ( forth.s):00127 _DivMod10: 00DB CC0000 ( forth.s):00128 ldd #0 00DE 2007 ( forth.s):00129 bra L31 00E0 ( forth.s):00130 L32: 00E0 3089D8F0 ( forth.s):00131 leax -10000,x 00E4 C303E8 ( forth.s):00132 addd #1000 00E7 ( forth.s):00133 L31: 00E7 8C270F ( forth.s):00134 cmpx #9999 ;cmphi: 00EA 22F4 ( forth.s):00135 bhi L32 00EC 2007 ( forth.s):00136 bra L39 00EE ( forth.s):00137 L34: 00EE 3089FC18 ( forth.s):00138 leax -1000,x 00F2 C30064 ( forth.s):00139 addd #100 00F5 ( forth.s):00140 L39: 00F5 8C03E7 ( forth.s):00141 cmpx #999 ;cmphi: 00F8 22F4 ( forth.s):00142 bhi L34 00FA 2006 ( forth.s):00143 bra L40 00FC ( forth.s):00144 L36: 00FC 30889C ( forth.s):00145 leax -100,x 00FF C3000A ( forth.s):00146 addd #10 0102 ( forth.s):00147 L40: 0102 8C0063 ( forth.s):00148 cmpx #99 ;cmphi: 0105 22F5 ( forth.s):00149 bhi L36 0107 2005 ( forth.s):00150 bra L41 0109 ( forth.s):00151 L38: 0109 3016 ( forth.s):00152 leax -10,x 010B C30001 ( forth.s):00153 addd #1 010E ( forth.s):00154 L41: 010E 8C0009 ( forth.s):00155 cmpx #9 ;cmphi: 0111 22F6 ( forth.s):00156 bhi L38 0113 EDF802 ( forth.s):00157 std [2,s] 0116 1F10 ( forth.s):00158 tfr x,d ;movlsbqihi: R:x -> R:b 0118 39 ( forth.s):00159 rts 0119 ( forth.s):00160 _PutDec: 0119 3460 ( forth.s):00161 pshs y,u 011B 327E ( forth.s):00162 leas -2,s 011D 33E4 ( forth.s):00163 leau ,s 011F 3184 ( forth.s):00164 leay ,x 0121 8C0009 ( forth.s):00165 cmpx #9 ;cmphi: 0124 2313 ( forth.s):00166 bls L43 0126 CC0000 ( forth.s):00167 ldd #0 0129 3440 ( forth.s):00168 pshs u ;addhi: R:d += R:u 012B E3E1 ( forth.s):00169 addd ,s++ 012D 3406 ( forth.s):00170 pshs d 012F BD0000 ( forth.s):00171 jsr _DivMod10 0132 AEC4 ( forth.s):00172 ldx ,u 0134 BD0000 ( forth.s):00173 jsr _PutDec 0137 3262 ( forth.s):00174 leas 2,s 0139 ( forth.s):00175 L43: 0139 CC0000 ( forth.s):00176 ldd #0 013C 3440 ( forth.s):00177 pshs u ;addhi: R:d += R:u 013E E3E1 ( forth.s):00178 addd ,s++ 0140 3406 ( forth.s):00179 pshs d 0142 30A4 ( forth.s):00180 leax ,y 0144 BD0000 ( forth.s):00181 jsr _DivMod10 0147 CB30 ( forth.s):00182 addb #48 0149 BD0000 ( forth.s):00183 jsr _PutChar 014C 3264 ( forth.s):00184 leas 4,s 014E 35E0 ( forth.s):00185 puls y,u,pc 0150 ( forth.s):00186 _comma: 0150 3440 ( forth.s):00187 pshs u 0152 FE0000 ( forth.s):00188 ldu _here 0155 AFC4 ( forth.s):00189 stx ,u 0157 3342 ( forth.s):00190 leau 2,u 0159 FF0000 ( forth.s):00191 stu _here 015C 35C0 ( forth.s):00192 puls u,pc 015E ( forth.s):00193 _unnest: 015E BE0000 ( forth.s):00194 ldx _rp 0161 EC84 ( forth.s):00195 ldd ,x 0163 3002 ( forth.s):00196 leax 2,x 0165 BF0000 ( forth.s):00197 stx _rp 0168 FD0000 ( forth.s):00198 std _ip 016B 39 ( forth.s):00199 rts 016C ( forth.s):00200 _semicolon: 016C BE0000 ( forth.s):00201 ldx _unnester 016F BD0000 ( forth.s):00202 jsr _comma 0172 CC0000 ( forth.s):00203 ldd #0 0175 FD0000 ( forth.s):00204 std _state 0178 39 ( forth.s):00205 rts 0179 ( forth.s):00206 _docolon: 0179 3440 ( forth.s):00207 pshs u 017B BE0000 ( forth.s):00208 ldx _rp 017E 331E ( forth.s):00209 leau -2,x 0180 FF0000 ( forth.s):00210 stu _rp 0183 FC0000 ( forth.s):00211 ldd _ip 0186 ED1E ( forth.s):00212 std -2,x 0188 FC0000 ( forth.s):00213 ldd _w 018B C30002 ( forth.s):00214 addd #2 018E FD0000 ( forth.s):00215 std _ip 0191 35C0 ( forth.s):00216 puls u,pc 0193 ( forth.s):00217 _type: 0193 3460 ( forth.s):00218 pshs y,u 0195 3184 ( forth.s):00219 leay ,x 0197 EE66 ( forth.s):00220 ldu 6,s 0199 2007 ( forth.s):00221 bra L49 019B ( forth.s):00222 L50: 019B E6A0 ( forth.s):00223 ldb ,y+ 019D BD0000 ( forth.s):00224 jsr _PutChar 01A0 335F ( forth.s):00225 leau -1,u 01A2 ( forth.s):00226 L49: 01A2 11830000 ( forth.s):00227 cmpu #0 ;cmphi: 01A6 26F3 ( forth.s):00228 bne L50 01A8 35E0 ( forth.s):00229 puls y,u,pc 01AA ( forth.s):00230 _parse_word: 01AA 3460 ( forth.s):00231 pshs y,u 01AC 327A ( forth.s):00232 leas -6,s 01AE AF64 ( forth.s):00233 stx 4,s 01B0 BE0000 ( forth.s):00234 ldx _num_source 01B3 AF62 ( forth.s):00235 stx 2,s 01B5 FC0000 ( forth.s):00236 ldd _source_adr 01B8 EDE4 ( forth.s):00237 std ,s 01BA BE0000 ( forth.s):00238 ldx _to_in 01BD 2002 ( forth.s):00239 bra L54 01BF ( forth.s):00240 L59: 01BF 30A4 ( forth.s):00241 leax ,y 01C1 ( forth.s):00242 L54: 01C1 AC62 ( forth.s):00243 cmpx 2,s ;cmphi: 01C3 240F ( forth.s):00244 bhs L60 01C5 ( forth.s):00245 L52: 01C5 3101 ( forth.s):00246 leay 1,x 01C7 ECE4 ( forth.s):00247 ldd ,s 01C9 338B ( forth.s):00248 leau d,x 01CB E6C4 ( forth.s):00249 ldb ,u 01CD 4F ( forth.s):00250 clra ;zero_extendqihi: R:b -> R:d 01CE 10830020 ( forth.s):00251 cmpd #32 ;cmphi: 01D2 2FEB ( forth.s):00252 ble L59 01D4 ( forth.s):00253 L60: 01D4 BF0000 ( forth.s):00254 stx _to_in 01D7 FC0000 ( forth.s):00255 ldd _source_adr 01DA EDE4 ( forth.s):00256 std ,s 01DC 338B ( forth.s):00257 leau d,x 01DE 10AE64 ( forth.s):00258 ldy 4,s 01E1 EFA4 ( forth.s):00259 stu ,y 01E3 FE0000 ( forth.s):00260 ldu _to_in 01E6 8E0000 ( forth.s):00261 ldx #0 01E9 2004 ( forth.s):00262 bra L55 01EB ( forth.s):00263 L58: 01EB 3001 ( forth.s):00264 leax 1,x 01ED 3341 ( forth.s):00265 leau 1,u 01EF ( forth.s):00266 L55: 01EF 11A362 ( forth.s):00267 cmpu 2,s ;cmphi: 01F2 240F ( forth.s):00268 bhs L61 01F4 ( forth.s):00269 L56: 01F4 ECE4 ( forth.s):00270 ldd ,s 01F6 31CB ( forth.s):00271 leay d,u 01F8 E6A4 ( forth.s):00272 ldb ,y 01FA 4F ( forth.s):00273 clra ;zero_extendqihi: R:b -> R:d 01FB 1F02 ( forth.s):00274 tfr d,y 01FD 10830020 ( forth.s):00275 cmpd #32 ;cmphi: 0201 2EE8 ( forth.s):00276 bgt L58 0203 ( forth.s):00277 L61: 0203 FF0000 ( forth.s):00278 stu _to_in 0206 3266 ( forth.s):00279 leas 6,s 0208 35E0 ( forth.s):00280 puls y,u,pc 020A ( forth.s):00281 _pop: 020A 3440 ( forth.s):00282 pshs u 020C FE0000 ( forth.s):00283 ldu _sp 020F AEC4 ( forth.s):00284 ldx ,u 0211 3342 ( forth.s):00285 leau 2,u 0213 FF0000 ( forth.s):00286 stu _sp 0216 35C0 ( forth.s):00287 puls u,pc 0218 ( forth.s):00288 _store: 0218 3460 ( forth.s):00289 pshs y,u 021A BD0000 ( forth.s):00290 jsr _pop 021D 3184 ( forth.s):00291 leay ,x 021F BD0000 ( forth.s):00292 jsr _pop 0222 3384 ( forth.s):00293 leau ,x 0224 AFA4 ( forth.s):00294 stx ,y 0226 35E0 ( forth.s):00295 puls y,u,pc 0228 ( forth.s):00296 _drop: 0228 7E0000 ( forth.s):00297 jmp _pop 022B ( forth.s):00298 _push: 022B 3460 ( forth.s):00299 pshs y,u 022D FE0000 ( forth.s):00300 ldu _sp 0230 315E ( forth.s):00301 leay -2,u 0232 10BF0000 ( forth.s):00302 sty _sp 0236 AF5E ( forth.s):00303 stx -2,u 0238 35E0 ( forth.s):00304 puls y,u,pc 023A ( forth.s):00305 _fetch: 023A BD0000 ( forth.s):00306 jsr _pop 023D AE84 ( forth.s):00307 ldx ,x 023F 7E0000 ( forth.s):00308 jmp _push 0242 ( forth.s):00309 _doliteral: 0242 3440 ( forth.s):00310 pshs u 0244 FE0000 ( forth.s):00311 ldu _ip 0247 AEC4 ( forth.s):00312 ldx ,u 0249 3342 ( forth.s):00313 leau 2,u 024B FF0000 ( forth.s):00314 stu _ip 024E 3540 ( forth.s):00315 puls u 0250 7E0000 ( forth.s):00316 jmp _push 0253 ( forth.s):00317 _dovariable: 0253 FC0000 ( forth.s):00318 ldd _w 0256 C30002 ( forth.s):00319 addd #2 0259 1F01 ( forth.s):00320 tfr d,x 025B 7E0000 ( forth.s):00321 jmp _push 025E ( forth.s):00322 _doconstant: 025E BE0000 ( forth.s):00323 ldx _w 0261 AE02 ( forth.s):00324 ldx 2,x 0263 7E0000 ( forth.s):00325 jmp _push 0266 ( forth.s):00326 _divide: 0266 3440 ( forth.s):00327 pshs u 0268 BD0000 ( forth.s):00328 jsr _pop 026B 3384 ( forth.s):00329 leau ,x 026D BD0000 ( forth.s):00330 jsr _pop 0270 3440 ( forth.s):00331 pshs u 0272 BD0000 ( forth.s):00332 jsr _divhi3 0275 3262 ( forth.s):00333 leas 2,s 0277 3540 ( forth.s):00334 puls u 0279 7E0000 ( forth.s):00335 jmp _push 027C ( forth.s):00336 _times: 027C 3460 ( forth.s):00337 pshs y,u 027E BD0000 ( forth.s):00338 jsr _pop 0281 3184 ( forth.s):00339 leay ,x 0283 BD0000 ( forth.s):00340 jsr _pop 0286 3384 ( forth.s):00341 leau ,x 0288 3410 ( forth.s):00342 pshs x 028A 30A4 ( forth.s):00343 leax ,y 028C BD0000 ( forth.s):00344 jsr _mulhi3 028F 3262 ( forth.s):00345 leas 2,s 0291 3560 ( forth.s):00346 puls y,u 0293 7E0000 ( forth.s):00347 jmp _push 0296 ( forth.s):00348 _minus: 0296 3440 ( forth.s):00349 pshs u 0298 BD0000 ( forth.s):00350 jsr _pop 029B 3384 ( forth.s):00351 leau ,x 029D BD0000 ( forth.s):00352 jsr _pop 02A0 1F10 ( forth.s):00353 tfr x,d 02A2 3440 ( forth.s):00354 pshs u ;subhi: R:d -= R:u 02A4 A3E1 ( forth.s):00355 subd ,s++ 02A6 1F01 ( forth.s):00356 tfr d,x 02A8 3540 ( forth.s):00357 puls u 02AA 7E0000 ( forth.s):00358 jmp _push 02AD ( forth.s):00359 _plus: 02AD 3460 ( forth.s):00360 pshs y,u 02AF BD0000 ( forth.s):00361 jsr _pop 02B2 3184 ( forth.s):00362 leay ,x 02B4 BD0000 ( forth.s):00363 jsr _pop 02B7 3384 ( forth.s):00364 leau ,x 02B9 1F20 ( forth.s):00365 tfr y,d 02BB 308B ( forth.s):00366 leax d,x 02BD 3560 ( forth.s):00367 puls y,u 02BF 7E0000 ( forth.s):00368 jmp _push 02C2 ( forth.s):00369 _depth: 02C2 CC0000 ( forth.s):00370 ldd #_stack+200 02C5 B30000 ( forth.s):00371 subd _sp ;subhi: R:d -= _sp 02C8 47 ( forth.s):00372 asra 02C9 56 ( forth.s):00373 rorb 02CA 1F01 ( forth.s):00374 tfr d,x 02CC 7E0000 ( forth.s):00375 jmp _push 02CF ( forth.s):00376 _dup: 02CF AE9F0000 ( forth.s):00377 ldx [_sp] 02D3 7E0000 ( forth.s):00378 jmp _push 02D6 ( forth.s):00379 _do_finish: 02D6 CC0001 ( forth.s):00380 ldd #1 02D9 FD0000 ( forth.s):00381 std _finished 02DC 39 ( forth.s):00382 rts 02DD ( forth.s):00383 _ctype: 02DD 3440 ( forth.s):00384 pshs u 02DF 3384 ( forth.s):00385 leau ,x 02E1 BD08F2 ( forth.s):00386 jsr _strlen 02E4 3410 ( forth.s):00387 pshs x 02E6 30C4 ( forth.s):00388 leax ,u 02E8 BD0000 ( forth.s):00389 jsr _type 02EB 3262 ( forth.s):00390 leas 2,s 02ED 35C0 ( forth.s):00391 puls u,pc 02EF ( forth.s):00392 LC0: 02EF 0A6F6B2000 ( forth.s):00393 .ascii "\nok \0" 02F4 ( forth.s):00394 LC1: 02F4 4E6F7420666F756E ( forth.s):00395 .ascii "Not found: \0" 643A2000 0300 ( forth.s):00396 _loop: 0300 3460 ( forth.s):00397 pshs y,u 0302 3271 ( forth.s):00398 leas -15,s 0304 8E0000 ( forth.s):00399 ldx #LC0 0307 BD0000 ( forth.s):00400 jsr _ctype 030A 10BE0000 ( forth.s):00401 ldy _source_len 030E BE0000 ( forth.s):00402 ldx _source_adr 0311 AF67 ( forth.s):00403 stx 7,s 0313 CE0000 ( forth.s):00404 ldu #0 0316 EF63 ( forth.s):00405 stu 3,s 0318 7E0000 ( forth.s):00406 jmp L130 031B ( forth.s):00407 L129: 031B F60020 ( forth.s):00408 ldb _gMono 031E ( forth.s):00409 L80: 031E F10020 ( forth.s):00410 cmpb _gMono ;cmpqi: 0321 27FB ( forth.s):00411 beq L80 0323 F60656 ( forth.s):00412 ldb _gKern+6 0326 CE007F ( forth.s):00413 ldu #127 0329 5D ( forth.s):00414 tstb ;cmpqi:(ZERO) 032A 10270091 ( forth.s):00415 lbeq L81 032E 8E0008 ( forth.s):00416 ldx #8 0331 C601 ( forth.s):00417 ldb #1 0333 E7E4 ( forth.s):00418 stb ,s 0335 ( forth.s):00419 L88: 0335 E6E4 ( forth.s):00420 ldb ,s 0337 53 ( forth.s):00421 comb 0338 F7FF02 ( forth.s):00422 stb -254 033B F6FF00 ( forth.s):00423 ldb -256 033E 53 ( forth.s):00424 comb 033F C47F ( forth.s):00425 andb #127 0341 1027006C ( forth.s):00426 lbeq L82 0345 E765 ( forth.s):00427 stb 5,s 0347 C67F ( forth.s):00428 ldb #127 0349 F7FF02 ( forth.s):00429 stb -254 034C F6FF00 ( forth.s):00430 ldb -256 034F E762 ( forth.s):00431 stb 2,s 0351 6362 ( forth.s):00432 com 2,s 0353 E662 ( forth.s):00433 ldb 2,s 0355 C440 ( forth.s):00434 andb #64 0357 E769 ( forth.s):00435 stb 9,s 0359 6F62 ( forth.s):00436 clr 2,s 035B ( forth.s):00437 L84: 035B E6E4 ( forth.s):00438 ldb ,s 035D 4F ( forth.s):00439 clra ;zero_extendqihi: R:b -> R:d 035E ED6B ( forth.s):00440 std 11,s 0360 8400 ( forth.s):00441 anda #0 0362 C401 ( forth.s):00442 andb #1 0364 10830000 ( forth.s):00443 cmpd #0 ;cmphi: 0368 260E ( forth.s):00444 bne L83 036A 64E4 ( forth.s):00445 lsr ,s 036C 6C62 ( forth.s):00446 inc 2,s 036E E662 ( forth.s):00447 ldb 2,s 0370 C108 ( forth.s):00448 cmpb #8 ;cmpqi: 0372 26E7 ( forth.s):00449 bne L84 0374 C6FF ( forth.s):00450 ldb #-1 0376 E762 ( forth.s):00451 stb 2,s 0378 ( forth.s):00452 L83: 0378 6FE4 ( forth.s):00453 clr ,s 037A ( forth.s):00454 L86: 037A E665 ( forth.s):00455 ldb 5,s 037C 4F ( forth.s):00456 clra ;zero_extendqihi: R:b -> R:d 037D ED6B ( forth.s):00457 std 11,s 037F 8400 ( forth.s):00458 anda #0 0381 C401 ( forth.s):00459 andb #1 0383 10830000 ( forth.s):00460 cmpd #0 ;cmphi: 0387 260E ( forth.s):00461 bne L85 0389 6465 ( forth.s):00462 lsr 5,s 038B 6CE4 ( forth.s):00463 inc ,s 038D E6E4 ( forth.s):00464 ldb ,s 038F C108 ( forth.s):00465 cmpb #8 ;cmpqi: 0391 26E7 ( forth.s):00466 bne L86 0393 C6FF ( forth.s):00467 ldb #-1 0395 E7E4 ( forth.s):00468 stb ,s 0397 ( forth.s):00469 L85: 0397 E6E4 ( forth.s):00470 ldb ,s 0399 58 ( forth.s):00471 aslb 039A 58 ( forth.s):00472 aslb 039B 58 ( forth.s):00473 aslb 039C EB62 ( forth.s):00474 addb 2,s 039E E7E4 ( forth.s):00475 stb ,s 03A0 E669 ( forth.s):00476 ldb 9,s 03A2 2706 ( forth.s):00477 beq L87 03A4 C680 ( forth.s):00478 ldb #-128 03A6 EAE4 ( forth.s):00479 orb ,s 03A8 E7E4 ( forth.s):00480 stb ,s 03AA ( forth.s):00481 L87: 03AA E6E4 ( forth.s):00482 ldb ,s 03AC 4F ( forth.s):00483 clra ;zero_extendqihi: R:b -> R:d 03AD 1F03 ( forth.s):00484 tfr d,u 03AF 200E ( forth.s):00485 bra L81 03B1 ( forth.s):00486 L82: 03B1 68E4 ( forth.s):00487 asl ,s 03B3 301F ( forth.s):00488 leax -1,x 03B5 8C0000 ( forth.s):00489 cmpx #0 ;cmphi: 03B8 1026FF79 ( forth.s):00490 lbne L88 03BC CE007F ( forth.s):00491 ldu #127 03BF ( forth.s):00492 L81: 03BF 1F30 ( forth.s):00493 tfr u,d 03C1 B80000 ( forth.s):00494 eora _prev_code 03C4 F80000 ( forth.s):00495 eorb _prev_code+1 03C7 8400 ( forth.s):00496 anda #0 03C9 C47F ( forth.s):00497 andb #127 03CB 10830000 ( forth.s):00498 cmpd #0 ;cmphi: 03CF 1027FF48 ( forth.s):00499 lbeq L129 03D3 FF0000 ( forth.s):00500 stu _prev_code 03D6 1183007F ( forth.s):00501 cmpu #127 ;cmphi: 03DA 1027FF3D ( forth.s):00502 lbeq L129 03DE 1F30 ( forth.s):00503 tfr u,d ;movlsbqihi: R:u -> R:b 03E0 E7E4 ( forth.s):00504 stb ,s 03E2 C47F ( forth.s):00505 andb #127 03E4 E762 ( forth.s):00506 stb 2,s 03E6 8E0000 ( forth.s):00507 ldx #_CocoKeyMap 03E9 E6E4 ( forth.s):00508 ldb ,s 03EB 2A03 ( forth.s):00509 bpl L91 03ED 8E0000 ( forth.s):00510 ldx #_CocoKeyMapShifted 03F0 ( forth.s):00511 L91: 03F0 E662 ( forth.s):00512 ldb 2,s 03F2 C131 ( forth.s):00513 cmpb #49 ;cmpqi: 03F4 2225 ( forth.s):00514 bhi L118 03F6 4F ( forth.s):00515 clra ;zero_extendqihi: R:b -> R:d 03F7 EDE4 ( forth.s):00516 std ,s 03F9 308B ( forth.s):00517 leax d,x 03FB E684 ( forth.s):00518 ldb ,x 03FD E7E4 ( forth.s):00519 stb ,s 03FF 271C ( forth.s):00520 beq L92 0401 BD0000 ( forth.s):00521 jsr _PutChar 0404 E6E4 ( forth.s):00522 ldb ,s 0406 C10A ( forth.s):00523 cmpb #10 ;cmpqi: 0408 272E ( forth.s):00524 beq L94 040A C10D ( forth.s):00525 cmpb #13 ;cmpqi: 040C 272A ( forth.s):00526 beq L94 040E C108 ( forth.s):00527 cmpb #8 ;cmpqi: 0410 260B ( forth.s):00528 bne L92 0412 3121 ( forth.s):00529 leay 1,y 0414 EC63 ( forth.s):00530 ldd 3,s 0416 C3FFFF ( forth.s):00531 addd #-1 0419 2013 ( forth.s):00532 bra L140 041B ( forth.s):00533 L118: 041B 6FE4 ( forth.s):00534 clr ,s 041D ( forth.s):00535 L92: 041D 313F ( forth.s):00536 leay -1,y 041F EC67 ( forth.s):00537 ldd 7,s 0421 E363 ( forth.s):00538 addd 3,s 0423 1F01 ( forth.s):00539 tfr d,x 0425 E6E4 ( forth.s):00540 ldb ,s 0427 E784 ( forth.s):00541 stb ,x 0429 EC63 ( forth.s):00542 ldd 3,s 042B C30001 ( forth.s):00543 addd #1 042E ( forth.s):00544 L140: 042E ED63 ( forth.s):00545 std 3,s 0430 ( forth.s):00546 L130: 0430 108C0000 ( forth.s):00547 cmpy #0 ;cmphi: 0434 1026FEE3 ( forth.s):00548 lbne L129 0438 ( forth.s):00549 L94: 0438 EE63 ( forth.s):00550 ldu 3,s 043A FF0000 ( forth.s):00551 stu _num_source 043D CC0000 ( forth.s):00552 ldd #0 0440 FD0000 ( forth.s):00553 std _to_in 0443 7E0000 ( forth.s):00554 jmp L131 0446 ( forth.s):00555 L113: 0446 AE6D ( forth.s):00556 ldx 13,s 0448 AF65 ( forth.s):00557 stx 5,s 044A 10BE0000 ( forth.s):00558 ldy _last 044E EE63 ( forth.s):00559 ldu 3,s 0450 7E0000 ( forth.s):00560 jmp L97 0453 ( forth.s):00561 L105: 0453 E622 ( forth.s):00562 ldb 2,y 0455 E767 ( forth.s):00563 stb 7,s 0457 4F ( forth.s):00564 clra ;zero_extendqihi: R:b -> R:d 0458 EDE4 ( forth.s):00565 std ,s 045A 8400 ( forth.s):00566 anda #0 045C C40F ( forth.s):00567 andb #15 045E 3440 ( forth.s):00568 pshs u ;cmphi: R:u with R:d 0460 10A3E1 ( forth.s):00569 cmpd ,s++ ;cmphi: 0463 1026004F ( forth.s):00570 lbne L98 0467 3023 ( forth.s):00571 leax 3,y 0469 AF6B ( forth.s):00572 stx 11,s 046B AE65 ( forth.s):00573 ldx 5,s 046D AF69 ( forth.s):00574 stx 9,s 046F EF63 ( forth.s):00575 stu 3,s 0471 30C4 ( forth.s):00576 leax ,u 0473 ( forth.s):00577 L101: 0473 EE69 ( forth.s):00578 ldu 9,s 0475 3341 ( forth.s):00579 leau 1,u 0477 EF69 ( forth.s):00580 stu 9,s 0479 335F ( forth.s):00581 leau -1,u 047B E6C0 ( forth.s):00582 ldb ,u+ 047D E7E4 ( forth.s):00583 stb ,s 047F EE6B ( forth.s):00584 ldu 11,s 0481 3341 ( forth.s):00585 leau 1,u 0483 EF6B ( forth.s):00586 stu 11,s 0485 335F ( forth.s):00587 leau -1,u 0487 E6C0 ( forth.s):00588 ldb ,u+ 0489 E762 ( forth.s):00589 stb 2,s 048B CB9F ( forth.s):00590 addb #-97 048D C119 ( forth.s):00591 cmpb #25 ;cmpqi: 048F 2206 ( forth.s):00592 bhi L99 0491 E662 ( forth.s):00593 ldb 2,s 0493 CBE0 ( forth.s):00594 addb #-32 0495 E762 ( forth.s):00595 stb 2,s 0497 ( forth.s):00596 L99: 0497 E6E4 ( forth.s):00597 ldb ,s 0499 CB9F ( forth.s):00598 addb #-97 049B C119 ( forth.s):00599 cmpb #25 ;cmpqi: 049D 2206 ( forth.s):00600 bhi L100 049F E6E4 ( forth.s):00601 ldb ,s 04A1 CBE0 ( forth.s):00602 addb #-32 04A3 E7E4 ( forth.s):00603 stb ,s 04A5 ( forth.s):00604 L100: 04A5 301F ( forth.s):00605 leax -1,x 04A7 E662 ( forth.s):00606 ldb 2,s 04A9 E1E4 ( forth.s):00607 cmpb ,s ;cmpqi: 04AB 2607 ( forth.s):00608 bne L139 04AD 8C0000 ( forth.s):00609 cmpx #0 ;cmphi: 04B0 26C1 ( forth.s):00610 bne L101 04B2 2007 ( forth.s):00611 bra L142 04B4 ( forth.s):00612 L139: 04B4 EE63 ( forth.s):00613 ldu 3,s 04B6 ( forth.s):00614 L98: 04B6 10AEA4 ( forth.s):00615 ldy ,y 04B9 200F ( forth.s):00616 bra L97 04BB ( forth.s):00617 L142: 04BB 30A812 ( forth.s):00618 leax 18,y 04BE CE0001 ( forth.s):00619 ldu #1 04C1 E667 ( forth.s):00620 ldb 7,s 04C3 2B0F ( forth.s):00621 bmi L104 04C5 CEFFFF ( forth.s):00622 ldu #-1 04C8 200A ( forth.s):00623 bra L104 04CA ( forth.s):00624 L97: 04CA 108C0000 ( forth.s):00625 cmpy #0 ;cmphi: 04CE 1026FF81 ( forth.s):00626 lbne L105 04D2 2056 ( forth.s):00627 bra L143 04D4 ( forth.s):00628 L104: 04D4 10BE0000 ( forth.s):00629 ldy _state 04D8 2708 ( forth.s):00630 beq L107 04DA 1183FFFF ( forth.s):00631 cmpu #-1 ;cmphi: 04DE 1027007D ( forth.s):00632 lbeq L141 04E2 ( forth.s):00633 L107: 04E2 BF0000 ( forth.s):00634 stx _executer 04E5 CE0000 ( forth.s):00635 ldu #_executer 04E8 FF0000 ( forth.s):00636 stu _ip 04EB CC0000 ( forth.s):00637 ldd #0 04EE FD0000 ( forth.s):00638 std _finished 04F1 ( forth.s):00639 L109: 04F1 FE0000 ( forth.s):00640 ldu _ip 04F4 AEC4 ( forth.s):00641 ldx ,u 04F6 BF0000 ( forth.s):00642 stx _w 04F9 3342 ( forth.s):00643 leau 2,u 04FB FF0000 ( forth.s):00644 stu _ip 04FE AD94 ( forth.s):00645 jsr [,x] 0500 BE0000 ( forth.s):00646 ldx _finished 0503 27EC ( forth.s):00647 beq L109 0505 7E0000 ( forth.s):00648 jmp L131 0508 ( forth.s):00649 L112: 0508 10AE69 ( forth.s):00650 ldy 9,s 050B 3121 ( forth.s):00651 leay 1,y 050D 10AF69 ( forth.s):00652 sty 9,s 0510 313F ( forth.s):00653 leay -1,y 0512 E6A0 ( forth.s):00654 ldb ,y+ 0514 4F ( forth.s):00655 clra ;zero_extendqihi: R:b -> R:d 0515 1F03 ( forth.s):00656 tfr d,u 0517 31C8D0 ( forth.s):00657 leay -48,u 051A 108C0000 ( forth.s):00658 cmpy #0 ;cmphi: 051E 2D17 ( forth.s):00659 blt L110 0520 301F ( forth.s):00660 leax -1,x 0522 108C0009 ( forth.s):00661 cmpy #9 ;cmphi: 0526 2F4E ( forth.s):00662 ble L111 0528 200D ( forth.s):00663 bra L110 052A ( forth.s):00664 L143: 052A EE65 ( forth.s):00665 ldu 5,s 052C AE63 ( forth.s):00666 ldx 3,s 052E CC0000 ( forth.s):00667 ldd #0 0531 EDE4 ( forth.s):00668 std ,s 0533 EF69 ( forth.s):00669 stu 9,s 0535 20D1 ( forth.s):00670 bra L112 0537 ( forth.s):00671 L110: 0537 8E0000 ( forth.s):00672 ldx #LC1 053A BD0000 ( forth.s):00673 jsr _ctype 053D AE63 ( forth.s):00674 ldx 3,s 053F 3410 ( forth.s):00675 pshs x 0541 AE67 ( forth.s):00676 ldx 7,s 0543 BD0000 ( forth.s):00677 jsr _type 0546 C60A ( forth.s):00678 ldb #10 0548 BD0000 ( forth.s):00679 jsr _PutChar 054B 10BE0000 ( forth.s):00680 ldy _num_source 054F 10BF0000 ( forth.s):00681 sty _to_in 0553 3262 ( forth.s):00682 leas 2,s 0555 2012 ( forth.s):00683 bra L131 0557 ( forth.s):00684 L114: 0557 BE0000 ( forth.s):00685 ldx _dolit 055A BD0000 ( forth.s):00686 jsr _comma 055D AEE4 ( forth.s):00687 ldx ,s 055F ( forth.s):00688 L141: 055F BD0000 ( forth.s):00689 jsr _comma 0562 2005 ( forth.s):00690 bra L131 0564 ( forth.s):00691 L145: 0564 AEE4 ( forth.s):00692 ldx ,s 0566 BD0000 ( forth.s):00693 jsr _push 0569 ( forth.s):00694 L131: 0569 306D ( forth.s):00695 leax 13,s 056B BD0000 ( forth.s):00696 jsr _parse_word 056E AF63 ( forth.s):00697 stx 3,s 0570 1026FED2 ( forth.s):00698 lbne L113 0574 201F ( forth.s):00699 bra L144 0576 ( forth.s):00700 L111: 0576 ECE4 ( forth.s):00701 ldd ,s 0578 58 ( forth.s):00702 aslb 0579 49 ( forth.s):00703 rola 057A EDE4 ( forth.s):00704 std ,s 057C 58 ( forth.s):00705 aslb 057D 49 ( forth.s):00706 rola 057E 58 ( forth.s):00707 aslb 057F 49 ( forth.s):00708 rola 0580 E3E4 ( forth.s):00709 addd ,s 0582 31AB ( forth.s):00710 leay d,y 0584 10AFE4 ( forth.s):00711 sty ,s 0587 8C0000 ( forth.s):00712 cmpx #0 ;cmphi: 058A 1026FF7A ( forth.s):00713 lbne L112 058E BE0000 ( forth.s):00714 ldx _state 0591 26C4 ( forth.s):00715 bne L114 0593 20CF ( forth.s):00716 bra L145 0595 ( forth.s):00717 L144: 0595 326F ( forth.s):00718 leas 15,s 0597 35E0 ( forth.s):00719 puls y,u,pc 0599 ( forth.s):00720 LC2: 0599 456E64206F66206C ( forth.s):00721 .ascii "End of line while parsing word\n\0" 696E65207768696C 652070617273696E 6720776F72640A00 05B9 ( forth.s):00722 _safe_parse_word: 05B9 3440 ( forth.s):00723 pshs u 05BB BD0000 ( forth.s):00724 jsr _parse_word 05BE 3384 ( forth.s):00725 leau ,x 05C0 8C0000 ( forth.s):00726 cmpx #0 ;cmphi: 05C3 2606 ( forth.s):00727 bne L147 05C5 8E0000 ( forth.s):00728 ldx #LC2 05C8 BD0000 ( forth.s):00729 jsr _ctype 05CB ( forth.s):00730 L147: 05CB 30C4 ( forth.s):00731 leax ,u 05CD 35C0 ( forth.s):00732 puls u,pc 05CF ( forth.s):00733 _Printf: 05CF 3460 ( forth.s):00734 pshs y,u 05D1 327C ( forth.s):00735 leas -4,s 05D3 336C ( forth.s):00736 leau 12,s 05D5 10AE6A ( forth.s):00737 ldy 10,s 05D8 8E001F ( forth.s):00738 ldx #31 05DB AF62 ( forth.s):00739 stx 2,s 05DD 7E0000 ( forth.s):00740 jmp L149 05E0 ( forth.s):00741 L161: 05E0 EC62 ( forth.s):00742 ldd 2,s 05E2 C3FFFF ( forth.s):00743 addd #-1 05E5 ED62 ( forth.s):00744 std 2,s 05E7 2608 ( forth.s):00745 bne L150 05E9 C65C ( forth.s):00746 ldb #92 05EB BD0000 ( forth.s):00747 jsr _PutChar 05EE 7E0000 ( forth.s):00748 jmp L148 05F1 ( forth.s):00749 L150: 05F1 E6E4 ( forth.s):00750 ldb ,s 05F3 C11F ( forth.s):00751 cmpb #31 ;cmpqi: 05F5 2204 ( forth.s):00752 bhi L152 05F7 C60A ( forth.s):00753 ldb #10 05F9 2006 ( forth.s):00754 bra L162 05FB ( forth.s):00755 L152: 05FB E6E4 ( forth.s):00756 ldb ,s 05FD C125 ( forth.s):00757 cmpb #37 ;cmpqi: 05FF 2708 ( forth.s):00758 beq L154 0601 ( forth.s):00759 L162: 0601 BD0000 ( forth.s):00760 jsr _PutChar 0604 10AFE4 ( forth.s):00761 sty ,s 0607 203C ( forth.s):00762 bra L153 0609 ( forth.s):00763 L154: 0609 3021 ( forth.s):00764 leax 1,y 060B AFE4 ( forth.s):00765 stx ,s 060D E621 ( forth.s):00766 ldb 1,y 060F C173 ( forth.s):00767 cmpb #115 ;cmpqi: 0611 2724 ( forth.s):00768 beq L157 0613 2206 ( forth.s):00769 bhi L160 0615 C164 ( forth.s):00770 cmpb #100 ;cmpqi: 0617 2629 ( forth.s):00771 bne L155 0619 200A ( forth.s):00772 bra L158 061B ( forth.s):00773 L160: 061B C175 ( forth.s):00774 cmpb #117 ;cmpqi: 061D 2706 ( forth.s):00775 beq L158 061F C178 ( forth.s):00776 cmpb #120 ;cmpqi: 0621 261F ( forth.s):00777 bne L155 0623 2009 ( forth.s):00778 bra L164 0625 ( forth.s):00779 L158: 0625 3142 ( forth.s):00780 leay 2,u 0627 AEC4 ( forth.s):00781 ldx ,u 0629 BD0000 ( forth.s):00782 jsr _PutDec 062C 2010 ( forth.s):00783 bra L163 062E ( forth.s):00784 L164: 062E 3142 ( forth.s):00785 leay 2,u 0630 AEC4 ( forth.s):00786 ldx ,u 0632 BD0000 ( forth.s):00787 jsr _PutHex 0635 2007 ( forth.s):00788 bra L163 0637 ( forth.s):00789 L157: 0637 3142 ( forth.s):00790 leay 2,u 0639 AEC4 ( forth.s):00791 ldx ,u 063B BD0000 ( forth.s):00792 jsr _PutStr 063E ( forth.s):00793 L163: 063E 33A4 ( forth.s):00794 leau ,y 0640 2003 ( forth.s):00795 bra L153 0642 ( forth.s):00796 L155: 0642 BD0000 ( forth.s):00797 jsr _PutChar 0645 ( forth.s):00798 L153: 0645 AEE4 ( forth.s):00799 ldx ,s 0647 3101 ( forth.s):00800 leay 1,x 0649 ( forth.s):00801 L149: 0649 E6A4 ( forth.s):00802 ldb ,y 064B E7E4 ( forth.s):00803 stb ,s 064D 1026FF8F ( forth.s):00804 lbne L161 0651 ( forth.s):00805 L148: 0651 3264 ( forth.s):00806 leas 4,s 0653 35E0 ( forth.s):00807 puls y,u,pc 0655 ( forth.s):00808 LC3: 0655 203D3E2025642000 ( forth.s):00809 .ascii " => %d \0" 065D ( forth.s):00810 _print: 065D BD0000 ( forth.s):00811 jsr _pop 0660 3410 ( forth.s):00812 pshs x 0662 8E0000 ( forth.s):00813 ldx #LC3 0665 AFE3 ( forth.s):00814 stx ,--s 0667 BD0000 ( forth.s):00815 jsr _Printf 066A 3264 ( forth.s):00816 leas 4,s 066C 39 ( forth.s):00817 rts 066D ( forth.s):00818 LC4: 066D 20697320746F6F20 ( forth.s):00819 .ascii " is too long\n\0" 6C6F6E670A00 067B ( forth.s):00820 _header: 067B 3460 ( forth.s):00821 pshs y,u 067D 327C ( forth.s):00822 leas -4,s 067F EC6A ( forth.s):00823 ldd 10,s 0681 EDE4 ( forth.s):00824 std ,s 0683 10AE6C ( forth.s):00825 ldy 12,s 0686 10AF62 ( forth.s):00826 sty 2,s 0689 1083000F ( forth.s):00827 cmpd #15 ;cmphi: 068D 2E06 ( forth.s):00828 bgt L167 068F 10BE0000 ( forth.s):00829 ldy _here 0693 2011 ( forth.s):00830 bra L168 0695 ( forth.s):00831 L167: 0695 ECE4 ( forth.s):00832 ldd ,s 0697 3406 ( forth.s):00833 pshs d 0699 BD0000 ( forth.s):00834 jsr _type 069C 8E0000 ( forth.s):00835 ldx #LC4 069F 3266 ( forth.s):00836 leas 6,s 06A1 3560 ( forth.s):00837 puls y,u 06A3 7E0000 ( forth.s):00838 jmp _ctype 06A6 ( forth.s):00839 L168: 06A6 33A4 ( forth.s):00840 leau ,y 06A8 1F20 ( forth.s):00841 tfr y,d 06AA 8400 ( forth.s):00842 anda #0 06AC C401 ( forth.s):00843 andb #1 06AE 3121 ( forth.s):00844 leay 1,y 06B0 10830000 ( forth.s):00845 cmpd #0 ;cmphi: 06B4 26F0 ( forth.s):00846 bne L168 06B6 31C814 ( forth.s):00847 leay 20,u 06B9 10BF0000 ( forth.s):00848 sty _here 06BD FC0000 ( forth.s):00849 ldd _last 06C0 EDC4 ( forth.s):00850 std ,u 06C2 FF0000 ( forth.s):00851 stu _last 06C5 ECE4 ( forth.s):00852 ldd ,s 06C7 E742 ( forth.s):00853 stb 2,u ;movlsbqihi: R:d -> 2,u 06C9 3143 ( forth.s):00854 leay 3,u 06CB 2004 ( forth.s):00855 bra L169 06CD ( forth.s):00856 L170: 06CD E680 ( forth.s):00857 ldb ,x+ 06CF E7A0 ( forth.s):00858 stb ,y+ 06D1 ( forth.s):00859 L169: 06D1 ECE4 ( forth.s):00860 ldd ,s 06D3 C3FFFF ( forth.s):00861 addd #-1 06D6 EDE4 ( forth.s):00862 std ,s 06D8 1083FFFF ( forth.s):00863 cmpd #-1 ;cmphi: 06DC 26EF ( forth.s):00864 bne L170 06DE AE62 ( forth.s):00865 ldx 2,s 06E0 AFC812 ( forth.s):00866 stx 18,u 06E3 3264 ( forth.s):00867 leas 4,s 06E5 35E0 ( forth.s):00868 puls y,u,pc 06E7 ( forth.s):00869 _cheader: 06E7 3460 ( forth.s):00870 pshs y,u 06E9 3384 ( forth.s):00871 leau ,x 06EB BD08F2 ( forth.s):00872 jsr _strlen 06EE 10AE66 ( forth.s):00873 ldy 6,s 06F1 3430 ( forth.s):00874 pshs x,y 06F3 30C4 ( forth.s):00875 leax ,u 06F5 BD0000 ( forth.s):00876 jsr _header 06F8 3264 ( forth.s):00877 leas 4,s 06FA 35E0 ( forth.s):00878 puls y,u,pc 06FC ( forth.s):00879 LC5: 06FC 2D2D2048656C6C6F ( forth.s):00880 .ascii "-- Hello FORTH -- \0" 20464F525448202D 2D2000 070F ( forth.s):00881 LC6: 070F 6578697400 ( forth.s):00882 .ascii "exit\0" 0714 ( forth.s):00883 LC7: 0714 3B00 ( forth.s):00884 .ascii ";\0" 0716 ( forth.s):00885 LC8: 0716 3A00 ( forth.s):00886 .ascii ":\0" 0718 ( forth.s):00887 LC9: 0718 7661726961626C65 ( forth.s):00888 .ascii "variable\0" 00 0721 ( forth.s):00889 LC10: 0721 636F6E7374616E74 ( forth.s):00890 .ascii "constant\0" 00 072A ( forth.s):00891 LC11: 072A 286C69746572616C ( forth.s):00892 .ascii "(literal)\0" 2900 0734 ( forth.s):00893 LC12: 0734 2B00 ( forth.s):00894 .ascii "+\0" 0736 ( forth.s):00895 LC13: 0736 2D00 ( forth.s):00896 .ascii "-\0" 0738 ( forth.s):00897 LC14: 0738 2A00 ( forth.s):00898 .ascii "*\0" 073A ( forth.s):00899 LC15: 073A 2F00 ( forth.s):00900 .ascii "/\0" 073C ( forth.s):00901 LC16: 073C 2E00 ( forth.s):00902 .ascii ".\0" 073E ( forth.s):00903 LC17: 073E 64726F7000 ( forth.s):00904 .ascii "drop\0" 0743 ( forth.s):00905 LC18: 0743 64757000 ( forth.s):00906 .ascii "dup\0" 0747 ( forth.s):00907 LC19: 0747 646570746800 ( forth.s):00908 .ascii "depth\0" 074D ( forth.s):00909 LC20: 074D 4000 ( forth.s):00910 .ascii "@\0" 074F ( forth.s):00911 LC21: 074F 2100 ( forth.s):00912 .ascii "!\0" 0751 ( forth.s):00913 LC22: 0751 62796500 ( forth.s):00914 .ascii "bye\0" ( forth.s):00915 ( forth.s):00916 .area .text.startup ( forth.s):00917 ( forth.s):00918 .globl _main 0000 ( forth.s):00919 _main: 0000 3440 ( forth.s):00920 pshs u ( forth.s):00921 ;----- asm ----- ( forth.s):00922 ; 5 "../kernel/game_postlude.h" 1 ( forth.s):00923 .globl __n1pre_entry ( forth.s):00924 ;--- end asm --- 0002 8E0000 ( forth.s):00925 ldx #__n1pre_entry 0005 BF0000 ( forth.s):00926 stx 0 ( forth.s):00927 ;----- asm ----- ( forth.s):00928 ; 8 "../kernel/game_postlude.h" 1 ( forth.s):00929 .globl __n1pre_final ( forth.s):00930 ;--- end asm --- 0008 CE0000 ( forth.s):00931 ldu #__n1pre_final 000B FF0000 ( forth.s):00932 stu 0 ( forth.s):00933 ;----- asm ----- ( forth.s):00934 ; 11 "../kernel/game_postlude.h" 1 ( forth.s):00935 .globl __n1pre_final_startup ( forth.s):00936 ;--- end asm --- 000E 8E0000 ( forth.s):00937 ldx #__n1pre_final_startup 0011 BF0000 ( forth.s):00938 stx 0 0014 5F ( forth.s):00939 clrb 0015 8E3E00 ( forth.s):00940 ldx #15872 0018 BD09C9 ( forth.s):00941 jsr _gTextScreen 001B 8E3E00 ( forth.s):00942 ldx #15872 001E ( forth.s):00943 L174: 001E CE2F2F ( forth.s):00944 ldu #12079 0021 EF81 ( forth.s):00945 stu ,x++ 0023 8C4000 ( forth.s):00946 cmpx #16384 ;cmphi: 0026 26F6 ( forth.s):00947 bne L174 0028 8E3FA0 ( forth.s):00948 ldx #16288 002B BF0000 ( forth.s):00949 stx _cursor 002E C6FF ( forth.s):00950 ldb #-1 0030 F73FA0 ( forth.s):00951 stb 16288 0033 8E0000 ( forth.s):00952 ldx #LC5 0036 AFE3 ( forth.s):00953 stx ,--s 0038 BD0000 ( forth.s):00954 jsr _Printf 003B CE0000 ( forth.s):00955 ldu #_origin 003E FF0000 ( forth.s):00956 stu _here 0041 8E0000 ( forth.s):00957 ldx #_unnest 0044 AFE3 ( forth.s):00958 stx ,--s 0046 8E0000 ( forth.s):00959 ldx #LC6 0049 BD0000 ( forth.s):00960 jsr _cheader 004C FC0000 ( forth.s):00961 ldd _last 004F C30012 ( forth.s):00962 addd #18 0052 FD0000 ( forth.s):00963 std _unnester 0055 8E0000 ( forth.s):00964 ldx #_semicolon 0058 AFE3 ( forth.s):00965 stx ,--s 005A 8E0000 ( forth.s):00966 ldx #LC7 005D BD0000 ( forth.s):00967 jsr _cheader 0060 BE0000 ( forth.s):00968 ldx _last 0063 E602 ( forth.s):00969 ldb 2,x 0065 CA80 ( forth.s):00970 orb #-128 0067 E702 ( forth.s):00971 stb 2,x 0069 CE0000 ( forth.s):00972 ldu #_colon 006C EFE3 ( forth.s):00973 stu ,--s 006E 8E0000 ( forth.s):00974 ldx #LC8 0071 BD0000 ( forth.s):00975 jsr _cheader 0074 3268 ( forth.s):00976 leas 8,s 0076 8E0000 ( forth.s):00977 ldx #_variable 0079 AFE3 ( forth.s):00978 stx ,--s 007B 8E0000 ( forth.s):00979 ldx #LC9 007E BD0000 ( forth.s):00980 jsr _cheader 0081 CE0000 ( forth.s):00981 ldu #_constant 0084 EFE3 ( forth.s):00982 stu ,--s 0086 8E0000 ( forth.s):00983 ldx #LC10 0089 BD0000 ( forth.s):00984 jsr _cheader 008C 8E0000 ( forth.s):00985 ldx #_doliteral 008F AFE3 ( forth.s):00986 stx ,--s 0091 8E0000 ( forth.s):00987 ldx #LC11 0094 BD0000 ( forth.s):00988 jsr _cheader 0097 FC0000 ( forth.s):00989 ldd _last 009A C30012 ( forth.s):00990 addd #18 009D FD0000 ( forth.s):00991 std _dolit 00A0 8E0000 ( forth.s):00992 ldx #_plus 00A3 AFE3 ( forth.s):00993 stx ,--s 00A5 8E0000 ( forth.s):00994 ldx #LC12 00A8 BD0000 ( forth.s):00995 jsr _cheader 00AB 3268 ( forth.s):00996 leas 8,s 00AD CE0000 ( forth.s):00997 ldu #_minus 00B0 EFE3 ( forth.s):00998 stu ,--s 00B2 8E0000 ( forth.s):00999 ldx #LC13 00B5 BD0000 ( forth.s):01000 jsr _cheader 00B8 8E0000 ( forth.s):01001 ldx #_times 00BB AFE3 ( forth.s):01002 stx ,--s 00BD 8E0000 ( forth.s):01003 ldx #LC14 00C0 BD0000 ( forth.s):01004 jsr _cheader 00C3 CE0000 ( forth.s):01005 ldu #_divide 00C6 EFE3 ( forth.s):01006 stu ,--s 00C8 8E0000 ( forth.s):01007 ldx #LC15 00CB BD0000 ( forth.s):01008 jsr _cheader 00CE 8E0000 ( forth.s):01009 ldx #_print 00D1 AFE3 ( forth.s):01010 stx ,--s 00D3 8E0000 ( forth.s):01011 ldx #LC16 00D6 BD0000 ( forth.s):01012 jsr _cheader 00D9 3268 ( forth.s):01013 leas 8,s 00DB CE0000 ( forth.s):01014 ldu #_drop 00DE EFE3 ( forth.s):01015 stu ,--s 00E0 8E0000 ( forth.s):01016 ldx #LC17 00E3 BD0000 ( forth.s):01017 jsr _cheader 00E6 8E0000 ( forth.s):01018 ldx #_dup 00E9 AFE3 ( forth.s):01019 stx ,--s 00EB 8E0000 ( forth.s):01020 ldx #LC18 00EE BD0000 ( forth.s):01021 jsr _cheader 00F1 CE0000 ( forth.s):01022 ldu #_depth 00F4 EFE3 ( forth.s):01023 stu ,--s 00F6 8E0000 ( forth.s):01024 ldx #LC19 00F9 BD0000 ( forth.s):01025 jsr _cheader 00FC 8E0000 ( forth.s):01026 ldx #_fetch 00FF AFE3 ( forth.s):01027 stx ,--s 0101 8E0000 ( forth.s):01028 ldx #LC20 0104 BD0000 ( forth.s):01029 jsr _cheader 0107 3268 ( forth.s):01030 leas 8,s 0109 CE0000 ( forth.s):01031 ldu #_store 010C EFE3 ( forth.s):01032 stu ,--s 010E 8E0000 ( forth.s):01033 ldx #LC21 0111 BD0000 ( forth.s):01034 jsr _cheader 0114 8E0000 ( forth.s):01035 ldx #_bye 0117 AFE3 ( forth.s):01036 stx ,--s 0119 8E0000 ( forth.s):01037 ldx #LC22 011C BD0000 ( forth.s):01038 jsr _cheader 011F CE0000 ( forth.s):01039 ldu #_return_stack+200 0122 FF0000 ( forth.s):01040 stu _rp 0125 CC0000 ( forth.s):01041 ldd #_stack+200 0128 FD0000 ( forth.s):01042 std _sp 012B CCFFFE ( forth.s):01043 ldd #-2 012E FD0000 ( forth.s):01044 std _source_id 0131 8E0000 ( forth.s):01045 ldx #_tib 0134 BF0000 ( forth.s):01046 stx _source_adr 0137 CE0084 ( forth.s):01047 ldu #132 013A FF0000 ( forth.s):01048 stu _source_len 013D CC0000 ( forth.s):01049 ldd #0 0140 FD0000 ( forth.s):01050 std _num_source 0143 FD0000 ( forth.s):01051 std _to_in 0146 8E0000 ( forth.s):01052 ldx #__n1pre_final_startup 0149 AFE3 ( forth.s):01053 stx ,--s 014B CE0000 ( forth.s):01054 ldu #__n1pre_final 014E EFE3 ( forth.s):01055 stu ,--s 0150 8E0000 ( forth.s):01056 ldx #_loop 0153 BD070A ( forth.s):01057 jsr _xAfterSetup 0156 3268 ( forth.s):01058 leas 8,s 0158 8E0000 ( forth.s):01059 ldx #0 015B 35C0 ( forth.s):01060 puls u,pc ( forth.s):01061 ( forth.s):01062 .area .text 0755 ( forth.s):01063 _variable: 0755 3440 ( forth.s):01064 pshs u 0757 327E ( forth.s):01065 leas -2,s 0759 30E4 ( forth.s):01066 leax ,s 075B BD0000 ( forth.s):01067 jsr _safe_parse_word 075E 8C0000 ( forth.s):01068 cmpx #0 ;cmphi: 0761 2712 ( forth.s):01069 beq L176 0763 CE0000 ( forth.s):01070 ldu #_dovariable 0766 3450 ( forth.s):01071 pshs x,u 0768 AE64 ( forth.s):01072 ldx 4,s 076A BD0000 ( forth.s):01073 jsr _header 076D 8E0000 ( forth.s):01074 ldx #0 0770 BD0000 ( forth.s):01075 jsr _comma 0773 3264 ( forth.s):01076 leas 4,s 0775 ( forth.s):01077 L176: 0775 3262 ( forth.s):01078 leas 2,s 0777 35C0 ( forth.s):01079 puls u,pc 0779 ( forth.s):01080 _constant: 0779 3440 ( forth.s):01081 pshs u 077B 327E ( forth.s):01082 leas -2,s 077D 30E4 ( forth.s):01083 leax ,s 077F BD0000 ( forth.s):01084 jsr _safe_parse_word 0782 8C0000 ( forth.s):01085 cmpx #0 ;cmphi: 0785 2712 ( forth.s):01086 beq L178 0787 CE0000 ( forth.s):01087 ldu #_doconstant 078A 3450 ( forth.s):01088 pshs x,u 078C AE64 ( forth.s):01089 ldx 4,s 078E BD0000 ( forth.s):01090 jsr _header 0791 BD0000 ( forth.s):01091 jsr _pop 0794 BD0000 ( forth.s):01092 jsr _comma 0797 3264 ( forth.s):01093 leas 4,s 0799 ( forth.s):01094 L178: 0799 3262 ( forth.s):01095 leas 2,s 079B 35C0 ( forth.s):01096 puls u,pc 079D ( forth.s):01097 _colon: 079D 3440 ( forth.s):01098 pshs u 079F 327E ( forth.s):01099 leas -2,s 07A1 30E4 ( forth.s):01100 leax ,s 07A3 BD0000 ( forth.s):01101 jsr _safe_parse_word 07A6 8C0000 ( forth.s):01102 cmpx #0 ;cmphi: 07A9 2712 ( forth.s):01103 beq L180 07AB CE0000 ( forth.s):01104 ldu #_docolon 07AE 3450 ( forth.s):01105 pshs x,u 07B0 AE64 ( forth.s):01106 ldx 4,s 07B2 BD0000 ( forth.s):01107 jsr _header 07B5 CC0001 ( forth.s):01108 ldd #1 07B8 FD0000 ( forth.s):01109 std _state 07BB 3264 ( forth.s):01110 leas 4,s 07BD ( forth.s):01111 L180: 07BD 3262 ( forth.s):01112 leas 2,s 07BF 35C0 ( forth.s):01113 puls u,pc 07C1 ( forth.s):01114 LC23: 07C1 2A2A204558495420 ( forth.s):01115 .ascii "** EXIT %d. (HIT BREAK) \n\0" 25642E2020284849 5420425245414B29 200A00 ( forth.s):01116 ( forth.s):01117 .globl __exit 07DC ( forth.s):01118 __exit: 07DC 3440 ( forth.s):01119 pshs u 07DE 3384 ( forth.s):01120 leau ,x 07E0 8E0000 ( forth.s):01121 ldx #LC23 07E3 BD0000 ( forth.s):01122 jsr _PutStr 07E6 2005 ( forth.s):01123 bra L183 07E8 ( forth.s):01124 L184: 07E8 FF3FE0 ( forth.s):01125 stu 16352 07EB 3341 ( forth.s):01126 leau 1,u 07ED ( forth.s):01127 L183: 07ED F60657 ( forth.s):01128 ldb _gKern+7 07F0 26F6 ( forth.s):01129 bne L184 07F2 ( forth.s):01130 L186: 07F2 20FE ( forth.s):01131 bra L186 ( forth.s):01132 ( forth.s):01133 .globl _exit 07F4 ( forth.s):01134 _exit: 07F4 3440 ( forth.s):01135 pshs u 07F6 3384 ( forth.s):01136 leau ,x 07F8 3410 ( forth.s):01137 pshs x 07FA 8E0000 ( forth.s):01138 ldx #LC23 07FD AFE3 ( forth.s):01139 stx ,--s 07FF BD0000 ( forth.s):01140 jsr _Printf 0802 3264 ( forth.s):01141 leas 4,s 0804 2005 ( forth.s):01142 bra L188 0806 ( forth.s):01143 L189: 0806 FF3FE0 ( forth.s):01144 stu 16352 0809 3341 ( forth.s):01145 leau 1,u 080B ( forth.s):01146 L188: 080B F60657 ( forth.s):01147 ldb _gKern+7 080E 26F6 ( forth.s):01148 bne L189 0810 ( forth.s):01149 L191: 0810 20FE ( forth.s):01150 bra L191 0812 ( forth.s):01151 _bye: 0812 8E0000 ( forth.s):01152 ldx #0 0815 7E0000 ( forth.s):01153 jmp _exit 0818 ( forth.s):01154 LC24: 0818 2A2A2041424F5254 ( forth.s):01155 .ascii "** ABORT. \n\0" 2E200A00 ( forth.s):01156 ( forth.s):01157 .globl _abort 0824 ( forth.s):01158 _abort: 0824 8E0000 ( forth.s):01159 ldx #LC24 0827 AFE3 ( forth.s):01160 stx ,--s 0829 BD0000 ( forth.s):01161 jsr _Printf 082C 8E000D ( forth.s):01162 ldx #13 082F 7E0000 ( forth.s):01163 jmp _exit ( forth.s):01164 ( forth.s):01165 .globl _fputc 0832 ( forth.s):01166 _fputc: 0832 1F10 ( forth.s):01167 tfr x,d ;movlsbqihi: R:x -> R:b 0834 BD0000 ( forth.s):01168 jsr _PutChar 0837 8E0000 ( forth.s):01169 ldx #0 083A 39 ( forth.s):01170 rts ( forth.s):01171 ( forth.s):01172 .globl _isspace 083B ( forth.s):01173 _isspace: 083B 3440 ( forth.s):01174 pshs u 083D CE0001 ( forth.s):01175 ldu #1 0840 8C0020 ( forth.s):01176 cmpx #32 ;cmphi: 0843 2F03 ( forth.s):01177 ble L196 0845 CE0000 ( forth.s):01178 ldu #0 0848 ( forth.s):01179 L196: 0848 30C4 ( forth.s):01180 leax ,u 084A 35C0 ( forth.s):01181 puls u,pc ( forth.s):01182 ( forth.s):01183 .area .bss 0000 ( forth.s):01184 _cursor: .blkb 2 ( forth.s):01185 ( forth.s):01186 .area .text 084C ( forth.s):01187 _HexAlphabet: 084C 3031323334353637 ( forth.s):01188 .ascii "0123456789ABCDEF\0" 3839414243444546 00 ( forth.s):01189 ( forth.s):01190 .area .text.entry 0000 ( forth.s):01191 __n1pre_entry: 0000 7E ( forth.s):01192 .byte 126 0001 0000 ( forth.s):01193 .word _main ( forth.s):01194 ( forth.s):01195 .area .final 0000 ( forth.s):01196 __n1pre_final: 0000 AEEE ( forth.s):01197 .word -20754 ( forth.s):01198 ( forth.s):01199 .area .final.setup 0000 ( forth.s):01200 __n1pre_final_startup: 0000 AEEF ( forth.s):01201 .word -20753 ( forth.s):01202 ( forth.s):01203 .area .bss 0002 ( forth.s):01204 _rp: .blkb 2 ( forth.s):01205 ( forth.s):01206 .area .data.more 0000 ( forth.s):01207 _return_stack: 0000 0000000000000000 ( forth.s):01208 zmb 210 ;skip space 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000 ( forth.s):01209 ( forth.s):01210 .area .bss 0004 ( forth.s):01211 _sp: .blkb 2 ( forth.s):01212 ( forth.s):01213 .area .data.more 00D2 ( forth.s):01214 _stack: 00D2 0000000000000000 ( forth.s):01215 zmb 210 ;skip space 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000 ( forth.s):01216 ( forth.s):01217 .area .bss 0006 ( forth.s):01218 _source_id: .blkb 2 0008 ( forth.s):01219 _source_adr: .blkb 2 ( forth.s):01220 ( forth.s):01221 .area .data.more 01A4 ( forth.s):01222 _tib: 01A4 0000000000000000 ( forth.s):01223 zmb 132 ;skip space 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 00000000 ( forth.s):01224 ( forth.s):01225 .area .bss 000A ( forth.s):01226 _source_len: .blkb 2 000C ( forth.s):01227 _num_source: .blkb 2 000E ( forth.s):01228 _to_in: .blkb 2 0010 ( forth.s):01229 _prev_code: .blkb 2 ( forth.s):01230 ( forth.s):01231 .area .text 085D ( forth.s):01232 _CocoKeyMapShifted: 085D 4041424344454647 ( forth.s):01233 .ascii "@ABCDEFGHIJKLMNOPQRSTUVWXYZ\0\0\010\0 \0!\042#$%&'()*+<=>?" 48494A4B4C4D4E4F 5051525354555657 58595A0000080020 0021222324252627 28292A2B3C3D3E3F 088D 0A00 ( forth.s):01234 .ascii "\n\0" 088F ( forth.s):01235 _CocoKeyMap: 088F 4041424344454647 ( forth.s):01236 .ascii "@ABCDEFGHIJKLMNOPQRSTUVWXYZ\0\0\010\0 0123456789:;,-./" 48494A4B4C4D4E4F 5051525354555657 58595A0000080020 3031323334353637 38393A3B2C2D2E2F 08BF 0A00 ( forth.s):01237 .ascii "\n\0" ( forth.s):01238 ( forth.s):01239 .area .bss 0012 ( forth.s):01240 _last: .blkb 2 0014 ( forth.s):01241 _state: .blkb 2 ( forth.s):01242 ( forth.s):01243 .area .data 0000 ( forth.s):01244 _executer: 0000 0000 ( forth.s):01245 .word 0 0002 0000 ( forth.s):01246 .word _finisher ( forth.s):01247 ( forth.s):01248 .area .bss 0016 ( forth.s):01249 _ip: .blkb 2 0018 ( forth.s):01250 _finished: .blkb 2 001A ( forth.s):01251 _w: .blkb 2 001C ( forth.s):01252 _dolit: .blkb 2 001E ( forth.s):01253 _here: .blkb 2 ( forth.s):01254 ( forth.s):01255 .area .data.more 0228 ( forth.s):01256 _origin: 0228 0000000000000000 ( forth.s):01257 zmb 800 ;skip space 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 ( forth.s):01258 ( forth.s):01259 .area .bss 0020 ( forth.s):01260 _unnester: .blkb 2 ( forth.s):01261 ( forth.s):01262 .area .data 0004 ( forth.s):01263 _finisher: 0004 0000 ( forth.s):01264 .word _do_finish ( forth.s):01265 .area .absolute ( forth.s):01266 .globl _gAlloc64 0B84 ( forth.s):01267 _gAlloc64 EQU $0B84 ( forth.s):01268 .globl _gConfig 0607 ( forth.s):01269 _gConfig EQU $0607 ( forth.s):01270 .globl _gFatal 0AC9 ( forth.s):01271 _gFatal EQU $0AC9 ( forth.s):01272 .globl _gFatalFIRQ 0B1A ( forth.s):01273 _gFatalFIRQ EQU $0B1A ( forth.s):01274 .globl _gFatalSWI1 0B5E ( forth.s):01275 _gFatalSWI1 EQU $0B5E ( forth.s):01276 .globl _gFatalSWI2 0B48 ( forth.s):01277 _gFatalSWI2 EQU $0B48 ( forth.s):01278 .globl _gFatalSWI3 0B31 ( forth.s):01279 _gFatalSWI3 EQU $0B31 ( forth.s):01280 .globl _gFree64 06EA ( forth.s):01281 _gFree64 EQU $06EA ( forth.s):01282 .globl _gIrqRestore 06DF ( forth.s):01283 _gIrqRestore EQU $06DF ( forth.s):01284 .globl _gIrqSaveAndDisable 06D2 ( forth.s):01285 _gIrqSaveAndDisable EQU $06D2 ( forth.s):01286 .globl _gKern 0650 ( forth.s):01287 _gKern EQU $0650 ( forth.s):01288 .globl _gModeScreen 0A92 ( forth.s):01289 _gModeScreen EQU $0A92 ( forth.s):01290 .globl _gMono 0020 ( forth.s):01291 _gMono EQU $0020 ( forth.s):01292 .globl _gNetworkLog 0D7D ( forth.s):01293 _gNetworkLog EQU $0D7D ( forth.s):01294 .globl _gPMode1Screen 0A65 ( forth.s):01295 _gPMode1Screen EQU $0A65 ( forth.s):01296 .globl _gReceiveCast64 0757 ( forth.s):01297 _gReceiveCast64 EQU $0757 ( forth.s):01298 .globl _gScore 060B ( forth.s):01299 _gScore EQU $060B ( forth.s):01300 .globl _gSendCast 0DB3 ( forth.s):01301 _gSendCast EQU $0DB3 ( forth.s):01302 .globl _gTextScreen 09C9 ( forth.s):01303 _gTextScreen EQU $09C9 ( forth.s):01304 .globl _gWall 0637 ( forth.s):01305 _gWall EQU $0637 ( forth.s):01306 .globl _memcpy 08D0 ( forth.s):01307 _memcpy EQU $08D0 ( forth.s):01308 .globl _memcpy_words 0774 ( forth.s):01309 _memcpy_words EQU $0774 ( forth.s):01310 .globl _memset 08AA ( forth.s):01311 _memset EQU $08AA ( forth.s):01312 .globl _memset_words 0862 ( forth.s):01313 _memset_words EQU $0862 ( forth.s):01314 .globl _strlen 08F2 ( forth.s):01315 _strlen EQU $08F2 ( forth.s):01316 .globl _xAfterSetup 070A ( forth.s):01317 _xAfterSetup EQU $070A ( forth.s):01318 .globl _xSendControlPacket 0D96 ( forth.s):01319 _xSendControlPacket EQU $0D96