home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1997-04-16 | 17.1 KB | [TEXT/dosa] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| Compact Compressed (Unix) (archive/compact)
| ext
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Wed Apr 16 10:09:50 1997, modified Wed Apr 16 10:09:50 1997, creator Macintosh MS-DOS file system, type ASCII, 16813 bytes "PSEUDOS.C" , at 0x422d 410 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [dosa] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 50 53 45 55 44 4f | 53 2e 43 00 00 00 00 00 |..PSEUDO|S.C.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 64 6f 73 | 61 01 00 00 00 00 00 00 |.TEXTdos|a.......|
|00000050| 00 00 00 00 00 41 ad 00 | 00 01 9a af 7a 8e 2e af |.....A..|....z...|
|00000060| 7a 8e 2e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |z.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e3 b8 00 00 |........|........|
|00000080| 2f 2f 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |//======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 2f 2f 20 48 61 6e 64 |=======.|.// Hand|
|000000d0| 6c 65 20 50 73 65 75 64 | 6f 2d 4f 70 73 20 66 6f |le Pseud|o-Ops fo|
|000000e0| 72 20 44 41 53 4d 2e 0d | 0a 2f 2f 0d 0a 2f 2f 20 |r DASM..|.//..// |
|000000f0| 57 72 69 74 74 65 6e 20 | 62 79 20 4c 61 6e 65 20 |Written |by Lane |
|00000100| 52 6f 61 74 68 65 0d 0a | 2f 2f 20 28 63 29 20 43 |Roathe..|// (c) C|
|00000110| 6f 70 79 72 69 67 68 74 | 20 31 39 39 35 20 49 64 |opyright| 1995 Id|
|00000120| 65 61 73 20 46 72 6f 6d | 20 74 68 65 20 44 65 65 |eas From| the Dee|
|00000130| 70 2c 20 4c 74 64 2e 20 | 41 6c 6c 20 52 69 67 68 |p, Ltd. |All Righ|
|00000140| 74 73 20 52 65 73 65 72 | 76 65 64 21 0d 0a 2f 2f |ts Reser|ved!..//|
|00000150| 0d 0a 2f 2f 20 52 45 4c | 45 41 53 45 20 4e 4f 54 |..// REL|EASE NOT|
|00000160| 45 53 3a 0d 0a 2f 2f 0d | 0a 2f 2f 09 54 68 69 73 |ES:..//.|.//.This|
|00000170| 20 63 6f 64 65 20 69 73 | 20 72 65 6c 65 61 73 65 | code is| release|
|00000180| 64 20 61 73 20 43 6f 64 | 65 57 61 72 65 2c 20 6d |d as Cod|eWare, m|
|00000190| 65 61 6e 69 6e 67 20 74 | 68 61 74 20 79 6f 75 20 |eaning t|hat you |
|000001a0| 61 72 65 20 66 72 65 65 | 20 74 6f 20 75 73 65 20 |are free| to use |
|000001b0| 69 74 2c 0d 0a 2f 2f 09 | 69 6e 20 65 78 63 68 61 |it,..//.|in excha|
|000001c0| 6e 67 65 20 66 6f 72 20 | 73 65 6e 64 69 6e 67 20 |nge for |sending |
|000001d0| 4c 61 6e 65 20 52 6f 61 | 74 68 65 20 3c 6c 72 6f |Lane Roa|the <lro|
|000001e0| 61 74 68 65 40 69 66 64 | 2e 66 69 78 6e 65 74 2e |athe@ifd|.fixnet.|
|000001f0| 63 6f 6d 3e 20 61 20 75 | 74 69 6c 69 74 79 20 61 |com> a u|tility a|
|00000200| 6e 64 2f 6f 72 0d 0a 2f | 2f 09 70 69 65 63 65 20 |nd/or../|/.piece |
|00000210| 6f 66 20 73 6f 75 72 63 | 65 20 63 6f 64 65 20 6f |of sourc|e code o|
|00000220| 66 20 73 69 6d 69 6c 61 | 72 20 76 61 6c 75 65 2e |f simila|r value.|
|00000230| 20 59 6f 75 20 6d 61 79 | 20 64 69 73 74 72 69 62 | You may| distrib|
|00000240| 75 74 65 20 74 68 69 73 | 20 63 6f 64 65 20 66 72 |ute this| code fr|
|00000250| 65 65 6c 79 2c 0d 0a 2f | 2f 09 61 73 20 6c 6f 6e |eely,../|/.as lon|
|00000260| 67 20 61 73 20 69 74 20 | 69 73 20 64 69 73 74 72 |g as it |is distr|
|00000270| 69 62 75 74 65 64 20 61 | 73 20 61 6e 20 65 6e 74 |ibuted a|s an ent|
|00000280| 69 72 65 20 70 61 63 6b | 61 67 65 20 77 69 74 68 |ire pack|age with|
|00000290| 6f 75 74 20 6d 6f 64 69 | 66 69 63 61 74 69 6f 6e |out modi|fication|
|000002a0| 73 21 0d 0a 2f 2f 0d 0a | 2f 2f 09 49 66 20 79 6f |s!..//..|//.If yo|
|000002b0| 75 20 75 73 65 20 61 6e | 79 20 6f 66 20 74 68 69 |u use an|y of thi|
|000002c0| 73 20 63 6f 64 65 2c 20 | 70 6c 65 61 73 65 20 67 |s code, |please g|
|000002d0| 69 76 65 20 4c 61 6e 65 | 20 52 6f 61 74 68 65 20 |ive Lane| Roathe |
|000002e0| 63 72 65 64 69 74 2e 20 | 54 68 61 6e 6b 73 21 0d |credit. |Thanks!.|
|000002f0| 0a 2f 2f 0d 0a 2f 2f 09 | 49 66 20 79 6f 75 20 6d |.//..//.|If you m|
|00000300| 61 6b 65 20 6d 6f 64 69 | 66 69 63 61 74 69 6f 6e |ake modi|fication|
|00000310| 73 20 79 6f 75 27 64 20 | 6c 69 6b 65 20 74 6f 20 |s you'd |like to |
|00000320| 73 65 65 20 69 6e 20 74 | 68 65 20 64 69 73 74 72 |see in t|he distr|
|00000330| 69 62 75 74 69 6f 6e 20 | 70 61 63 6b 61 67 65 2c |ibution |package,|
|00000340| 0d 0a 2f 2f 09 70 6c 65 | 61 73 65 20 66 65 65 6c |..//.ple|ase feel|
|00000350| 20 66 72 65 65 20 74 6f | 20 73 65 6e 64 20 74 68 | free to| send th|
|00000360| 65 6d 20 74 6f 20 4c 61 | 6e 65 20 77 2f 61 20 6e |em to La|ne w/a n|
|00000370| 6f 74 65 2e 20 4d 6f 73 | 74 20 6c 69 6b 65 6c 79 |ote. Mos|t likely|
|00000380| 20 69 74 20 77 69 6c 6c | 20 68 61 70 70 65 6e 2e | it will| happen.|
|00000390| 0d 0a 2f 2f 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..//----|--------|
|000003a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 0a 2f 2f 20 30 32 |--------|-..// 02|
|000003e0| 2d 32 34 2d 39 37 20 4c | 52 20 3a 66 69 78 20 70 |-24-97 L|R :fix p|
|000003f0| 5f 44 54 20 28 77 61 73 | 20 6e 65 76 65 72 20 74 |_DT (was| never t|
|00000400| 65 73 74 65 64 21 29 0d | 0a 2f 2f 20 30 32 2d 31 |ested!).|.// 02-1|
|00000410| 36 2d 39 37 20 4c 52 20 | 3a 66 69 78 20 62 75 67 |6-97 LR |:fix bug|
|00000420| 73 20 28 68 6f 77 20 74 | 68 65 79 20 67 65 74 20 |s (how t|hey get |
|00000430| 69 6e 20 68 65 72 65 3f | 29 2c 20 63 6c 65 61 6e |in here?|), clean|
|00000440| 20 75 70 20 66 6f 72 20 | 78 2d 70 6c 61 74 66 6f | up for |x-platfo|
|00000450| 72 6d 0d 0a 2f 2f 20 31 | 31 2d 31 31 2d 39 35 20 |rm..// 1|1-11-95 |
|00000460| 4c 52 20 3a 66 69 78 20 | 52 65 73 49 6e 66 6f 2c |LR :fix |ResInfo,|
|00000470| 20 75 73 65 20 74 65 6d | 70 20 6d 65 6d 6f 72 79 | use tem|p memory|
|00000480| 20 66 6f 72 20 6d 61 63 | 72 6f 20 62 75 66 66 65 | for mac|ro buffe|
|00000490| 72 73 0d 0a 2f 2f 20 31 | 30 2d 33 30 2d 39 35 20 |rs..// 1|0-30-95 |
|000004a0| 4c 52 20 3a 70 73 65 75 | 64 6f 2d 6f 70 20 6e 61 |LR :pseu|do-op na|
|000004b0| 6d 65 73 20 6e 6f 77 20 | 73 74 6f 72 65 64 20 69 |mes now |stored i|
|000004c0| 6e 20 61 20 53 54 52 23 | 20 72 65 73 6f 75 72 63 |n a STR#| resourc|
|000004d0| 65 20 28 65 61 73 69 65 | 72 20 74 6f 20 6d 6f 64 |e (easie|r to mod|
|000004e0| 69 66 79 21 29 0d 0a 2f | 2f 20 31 30 2d 32 38 2d |ify!)../|/ 10-28-|
|000004f0| 39 35 20 4c 52 20 3a 66 | 69 78 20 27 74 79 70 65 |95 LR :f|ix 'type|
|00000500| 64 65 66 27 20 74 6f 20 | 61 6c 6c 6f 77 20 6e 6f |def' to |allow no|
|00000510| 6e 2d 73 74 72 75 63 74 | 20 64 65 66 2e 20 28 69 |n-struct| def. (i|
|00000520| 65 2c 20 74 79 70 65 64 | 65 66 20 69 6e 74 20 73 |e, typed|ef int s|
|00000530| 77 6f 72 64 29 0d 0a 2f | 2f 20 30 36 2d 31 33 2d |word)../|/ 06-13-|
|00000540| 39 35 20 4c 52 20 3a 65 | 78 70 61 6e 64 73 20 61 |95 LR :e|xpands a|
|00000550| 6e 64 20 61 73 73 65 6d | 62 6c 65 73 20 6d 61 63 |nd assem|bles mac|
|00000560| 72 6f 73 20 77 2f 70 61 | 72 6d 73 2c 20 65 6e 75 |ros w/pa|rms, enu|
|00000570| 6d 73 2c 20 74 79 70 65 | 64 65 66 73 2c 20 23 64 |ms, type|defs, #d|
|00000580| 65 66 69 6e 65 73 21 0d | 0a 2f 2f 20 30 36 2d 31 |efines!.|.// 06-1|
|00000590| 32 2d 39 35 20 4c 52 20 | 3a 23 69 6e 63 6c 75 64 |2-95 LR |:#includ|
|000005a0| 65 73 2c 20 6d 61 63 72 | 6f 20 72 65 61 64 73 2c |es, macr|o reads,|
|000005b0| 20 73 61 76 65 73 20 6f | 75 74 70 75 74 0d 0a 2f | saves o|utput../|
|000005c0| 2f 20 30 36 2d 31 31 2d | 39 35 20 4c 52 20 3a 61 |/ 06-11-|95 LR :a|
|000005d0| 73 73 65 6d 62 6c 65 73 | 20 44 57 2c 20 3d 2c 20 |ssembles| DW, =, |
|000005e0| 45 51 55 2c 20 61 6e 64 | 20 65 78 70 72 65 73 73 |EQU, and| express|
|000005f0| 69 6f 6e 73 20 63 6f 72 | 72 65 63 74 6c 79 0d 0a |ions cor|rectly..|
|00000600| 2f 2f 20 30 36 2d 31 30 | 2d 39 35 20 4c 52 20 3a |// 06-10|-95 LR :|
|00000610| 57 65 20 6e 65 65 64 20 | 61 20 77 6f 72 6b 69 6e |We need |a workin|
|00000620| 67 20 22 61 73 73 65 6d | 62 6c 65 72 22 2c 20 73 |g "assem|bler", s|
|00000630| 6f 20 77 72 69 74 65 20 | 6f 6e 65 21 0d 0a 2f 2f |o write |one!..//|
|00000640| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000650| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000660| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000680| 3d 3d 3d 3d 3d 0d 0a 0d | 0a 23 69 6e 63 6c 75 64 |=====...|.#includ|
|00000690| 65 20 22 69 6e 63 6c 75 | 64 65 73 2e 68 22 09 2f |e "inclu|des.h"./|
|000006a0| 2f 20 72 65 71 75 69 72 | 65 64 20 74 6f 20 63 72 |/ requir|ed to cr|
|000006b0| 65 61 74 65 20 50 43 48 | 20 6f 6e 20 50 43 2c 20 |eate PCH| on PC, |
|000006c0| 65 6d 70 74 79 20 6f 6e | 20 4d 61 63 0d 0a 0d 0a |empty on| Mac....|
|000006d0| 2f 2f 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |//======|========|
|000006e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000700| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000710| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 2f 2f 09 70 5f 49 4e |=======.|.//.p_IN|
|00000720| 43 4c 55 44 45 0d 0a 2f | 2f 0d 0a 2f 2f 09 49 6e |CLUDE../|/..//.In|
|00000730| 63 6c 75 64 65 20 61 6e | 6f 74 68 65 72 20 73 6f |clude an|other so|
|00000740| 75 72 63 65 20 66 69 6c | 65 20 66 6f 72 20 61 73 |urce fil|e for as|
|00000750| 73 65 6d 62 6c 79 0d 0a | 2f 2f 3d 3d 3d 3d 3d 3d |sembly..|//======|
|00000760| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000770| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000780| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000790| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000007a0| 0a 0d 0a 73 74 61 74 69 | 63 20 4f 53 45 72 72 20 |...stati|c OSErr |
|000007b0| 70 5f 49 4e 43 4c 55 44 | 45 28 20 50 74 72 20 2a |p_INCLUD|E( Ptr *|
|000007c0| 73 20 29 0d 0a 7b 0d 0a | 09 63 68 61 72 20 77 6f |s )..{..|.char wo|
|000007d0| 72 64 62 75 66 5b 32 35 | 36 5d 3b 09 2f 2f 20 70 |rdbuf[25|6];.// p|
|000007e0| 61 74 68 73 20 63 61 6e | 20 62 65 20 3e 20 56 41 |aths can| be > VA|
|000007f0| 52 53 49 5a 45 21 0d 0a | 09 4f 53 45 72 72 20 65 |RSIZE!..|.OSErr e|
|00000800| 72 72 6f 72 3b 0d 0a 09 | 69 6e 74 20 6c 69 6e 65 |rror;...|int line|
|00000810| 3b 09 09 2f 2f 73 61 76 | 65 20 67 6c 6f 62 61 6c |;..//sav|e global|
|00000820| 20 76 61 6c 75 65 73 20 | 6c 6f 63 61 6c 6c 79 20 | values |locally |
|00000830| 28 72 65 63 75 72 73 69 | 6f 6e 29 0d 0a 09 50 74 |(recursi|on)...Pt|
|00000840| 72 20 62 75 66 65 6e 64 | 3b 0d 0a 0d 0a 09 69 66 |r bufend|;.....if|
|00000850| 28 20 67 53 74 61 74 65 | 20 3e 20 4c 49 4e 45 5f |( gState| > LINE_|
|00000860| 4f 50 43 4f 44 45 20 29 | 0d 0a 09 09 65 72 72 6f |OPCODE )|....erro|
|00000870| 72 20 3d 20 45 52 52 4f | 52 5f 53 59 4e 54 41 58 |r = ERRO|R_SYNTAX|
|00000880| 3b 0d 0a 09 65 6c 73 65 | 20 69 66 28 20 67 49 6e |;...else| if( gIn|
|00000890| 4d 61 63 72 6f 20 29 0d | 0a 09 09 65 72 72 6f 72 |Macro ).|...error|
|000008a0| 20 3d 20 45 52 52 4f 52 | 5f 4d 41 43 52 4f 3b 0d | = ERROR|_MACRO;.|
|000008b0| 0a 09 65 6c 73 65 0d 0a | 09 09 65 72 72 6f 72 20 |..else..|..error |
|000008c0| 3d 20 4e 65 78 74 57 6f | 72 64 28 20 73 2c 20 77 |= NextWo|rd( s, w|
|000008d0| 6f 72 64 62 75 66 2c 20 | 32 35 35 20 29 3b 0d 0a |ordbuf, |255 );..|
|000008e0| 0d 0a 09 69 66 28 20 21 | 65 72 72 6f 72 20 29 0d |...if( !|error ).|
|000008f0| 0a 09 7b 0d 0a 09 09 42 | 6f 6f 6c 65 61 6e 20 66 |..{....B|oolean f|
|00000900| 75 6c 6c 53 65 61 72 63 | 68 20 3d 20 77 6f 72 64 |ullSearc|h = word|
|00000910| 62 75 66 5b 30 5d 20 3d | 3d 20 27 22 27 3b 09 09 |buf[0] =|= '"';..|
|00000920| 2f 2f 20 22 20 3d 3d 20 | 79 65 73 2c 20 3c 20 3d |// " == |yes, < =|
|00000930| 3d 20 6c 6f 63 61 6c 20 | 20 6f 6e 6c 79 0d 0a 0d |= local | only...|
|00000940| 0a 09 09 69 66 28 20 77 | 6f 72 64 62 75 66 5b 30 |...if( w|ordbuf[0|
|00000950| 5d 20 3c 20 27 41 27 20 | 29 0d 0a 09 09 7b 0d 0a |] < 'A' |)....{..|
|00000960| 09 09 09 73 74 72 63 70 | 79 28 20 77 6f 72 64 62 |...strcp|y( wordb|
|00000970| 75 66 2c 20 77 6f 72 64 | 62 75 66 2b 31 20 29 3b |uf, word|buf+1 );|
|00000980| 09 2f 2f 20 69 66 20 22 | 78 78 78 22 20 2d 3e 20 |.// if "|xxx" -> |
|00000990| 78 78 78 0d 0a 09 09 09 | 77 6f 72 64 62 75 66 5b |xxx.....|wordbuf[|
|000009a0| 73 74 72 6c 65 6e 28 20 | 77 6f 72 64 62 75 66 20 |strlen( |wordbuf |
|000009b0| 29 2d 31 5d 20 3d 20 30 | 3b 0d 0a 09 09 7d 0d 0a |)-1] = 0|;....}..|
|000009c0| 0d 0a 09 09 6c 69 6e 65 | 20 3d 20 67 4c 69 6e 65 |....line| = gLine|
|000009d0| 3b 0d 0a 09 09 62 75 66 | 65 6e 64 20 3d 20 67 42 |;....buf|end = gB|
|000009e0| 75 66 66 65 72 45 6e 64 | 3b 0d 0a 09 09 65 72 72 |ufferEnd|;....err|
|000009f0| 6f 72 20 3d 20 49 6e 63 | 6c 75 64 65 46 69 6c 65 |or = Inc|ludeFile|
|00000a00| 28 20 77 6f 72 64 62 75 | 66 2c 20 66 75 6c 6c 53 |( wordbu|f, fullS|
|00000a10| 65 61 72 63 68 20 29 3b | 09 2f 2f 20 64 6f 20 74 |earch );|.// do t|
|00000a20| 68 65 20 66 69 6c 65 0d | 0a 09 09 67 42 75 66 66 |he file.|...gBuff|
|00000a30| 65 72 45 6e 64 20 3d 20 | 62 75 66 65 6e 64 3b 0d |erEnd = |bufend;.|
|00000a40| 0a 09 09 67 4c 69 6e 65 | 20 3d 20 6c 69 6e 65 3b |...gLine| = line;|
|00000a50| 0d 0a 09 7d 0d 0a 0d 0a | 09 67 4c 61 62 65 6c 5b |...}....|.gLabel[|
|00000a60| 30 5d 20 3d 20 30 3b 09 | 2f 2f 20 6e 6f 74 68 69 |0] = 0;.|// nothi|
|00000a70| 6e 67 20 74 6f 20 72 65 | 70 6f 72 74 20 73 69 72 |ng to re|port sir|
|00000a80| 21 0d 0a 0d 0a 09 72 65 | 74 75 72 6e 28 20 65 72 |!.....re|turn( er|
|00000a90| 72 6f 72 20 29 3b 0d 0a | 7d 0d 0a 0d 0a 2f 2f 3d |ror );..|}....//=|
|00000aa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ab0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ac0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ad0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ae0| 3d 3d 3d 3d 0d 0a 2f 2f | 09 70 5f 44 45 46 49 4e |====..//|.p_DEFIN|
|00000af0| 45 0d 0a 2f 2f 0d 0a 2f | 2f 09 23 64 65 66 69 6e |E..//../|/.#defin|
|00000b00| 65 20 61 73 20 69 6e 20 | 43 2c 20 62 75 74 20 6c |e as in |C, but l|
|00000b10| 69 6d 69 74 65 64 20 74 | 6f 20 6e 75 6d 65 72 69 |imited t|o numeri|
|00000b20| 63 20 61 73 73 69 67 6e | 6d 65 6e 74 73 0d 0a 2f |c assign|ments../|
|00000b30| 2f 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |/=======|========|
|00000b40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b70| 3d 3d 3d 3d 3d 3d 0d 0a | 0d 0a 73 74 61 74 69 63 |======..|..static|
|00000b80| 20 4f 53 45 72 72 20 70 | 5f 44 45 46 49 4e 45 28 | OSErr p|_DEFINE(|
|00000b90| 20 50 74 72 20 2a 73 20 | 29 0d 0a 7b 0d 0a 09 4f | Ptr *s |)..{...O|
|00000ba0| 53 45 72 72 20 65 72 72 | 6f 72 20 3d 20 4e 4f 45 |SErr err|or = NOE|
|00000bb0| 52 52 3b 0d 0a 0d 0a 09 | 69 66 28 20 67 53 74 61 |RR;.....|if( gSta|
|00000bc0| 74 65 20 3e 20 4c 49 4e | 45 5f 4f 50 43 4f 44 45 |te > LIN|E_OPCODE|
|00000bd0| 20 29 0d 0a 09 09 65 72 | 72 6f 72 20 3d 20 45 52 | )....er|ror = ER|
|00000be0| 52 4f 52 5f 53 59 4e 54 | 41 58 3b 0d 0a 09 65 6c |ROR_SYNT|AX;...el|
|00000bf0| 73 65 20 69 66 28 20 67 | 49 6e 4d 61 63 72 6f 20 |se if( g|InMacro |
|00000c00| 29 0d 0a 09 09 65 72 72 | 6f 72 20 3d 20 45 52 52 |)....err|or = ERR|
|00000c10| 4f 52 5f 4d 41 43 52 4f | 3b 0d 0a 09 65 6c 73 65 |OR_MACRO|;...else|
|00000c20| 0d 0a 09 7b 0d 0a 09 09 | 63 68 61 72 20 2a 65 70 |...{....|char *ep|
|00000c30| 20 3d 20 2a 73 3b 0d 0a | 09 09 65 72 72 6f 72 20 | = *s;..|..error |
|00000c40| 3d 20 4e 65 78 74 57 6f | 72 64 28 20 73 2c 20 67 |= NextWo|rd( s, g|
|00000c50| 4c 61 62 65 6c 2c 20 56 | 41 52 53 49 5a 45 20 29 |Label, V|ARSIZE )|
|00000c60| 3b 0d 0a 0d 0a 09 09 69 | 66 28 20 21 65 72 72 6f |;......i|f( !erro|
|00000c70| 72 20 29 0d 0a 09 09 09 | 65 72 72 6f 72 20 3d 20 |r ).....|error = |
|00000c80| 44 6f 45 78 70 72 28 20 | 73 2c 20 26 67 4c 61 62 |DoExpr( |s, &gLab|
|00000c90| 65 6c 56 61 6c 75 65 20 | 29 3b 0d 0a 0d 0a 09 09 |elValue |);......|
|00000ca0| 67 70 45 72 72 57 6f 72 | 64 20 3d 20 65 70 3b 0d |gpErrWor|d = ep;.|
|00000cb0| 0a 09 09 67 4e 65 77 4c | 6f 63 61 6c 47 72 6f 75 |...gNewL|ocalGrou|
|00000cc0| 70 20 3d 20 66 61 6c 73 | 65 3b 09 2f 2f 20 63 61 |p = fals|e;.// ca|
|00000cd0| 6e 27 74 20 63 61 75 73 | 65 20 6e 65 77 20 6c 6f |n't caus|e new lo|
|00000ce0| 63 61 6c 20 6c 61 62 65 | 6c 20 67 72 6f 75 70 21 |cal labe|l group!|
|00000cf0| 0d 0a 09 7d 0d 0a 09 72 | 65 74 75 72 6e 28 20 65 |...}...r|eturn( e|
|00000d00| 72 72 6f 72 20 29 3b 0d | 0a 7d 0d 0a 0d 0a 2f 2f |rror );.|.}....//|
|00000d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d50| 3d 3d 3d 3d 3d 0d 0a 2f | 2f 09 70 5f 45 4e 55 4d |=====../|/.p_ENUM|
|00000d60| 0d 0a 2f 2f 0d 0a 2f 2f | 09 50 61 72 73 65 20 61 |..//..//|.Parse a|
|00000d70| 20 43 20 63 6f 6d 70 61 | 74 69 62 6c 65 20 65 6e | C compa|tible en|
|00000d80| 75 6d 20 64 65 66 69 6e | 69 74 69 6f 6e 2c 20 69 |um defin|ition, i|
|00000d90| 6e 63 6c 75 64 69 6e 67 | 20 27 3d 27 20 61 73 73 |ncluding| '=' ass|
|00000da0| 69 67 6e 6d 65 6e 74 73 | 0d 0a 2f 2f 3d 3d 3d 3d |ignments|..//====|
|00000db0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000dc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000dd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000de0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000df0| 3d 0d 0a 0d 0a 73 74 61 | 74 69 63 20 4f 53 45 72 |=....sta|tic OSEr|
|00000e00| 72 20 70 5f 45 4e 55 4d | 28 20 50 74 72 20 2a 73 |r p_ENUM|( Ptr *s|
|00000e10| 20 29 0d 0a 7b 0d 0a 09 | 4f 53 45 72 72 20 65 72 | )..{...|OSErr er|
|00000e20| 72 6f 72 20 3d 20 4e 4f | 45 52 52 3b 0d 0a 09 63 |ror = NO|ERR;...c|
|00000e30| 68 61 72 20 77 6f 72 64 | 62 75 66 5b 56 41 52 53 |har word|buf[VARS|
|00000e40| 49 5a 45 2b 31 5d 2c 20 | 76 61 72 62 75 66 5b 56 |IZE+1], |varbuf[V|
|00000e50| 41 52 53 49 5a 45 2b 31 | 5d 2c 20 2a 65 70 3b 0d |ARSIZE+1|], *ep;.|
|00000e60| 0a 09 55 4c 4f 4e 47 20 | 76 61 6c 75 65 3b 0d 0a |..ULONG |value;..|
|00000e70| 09 69 6e 74 20 64 6f 6e | 65 3b 0d 0a 0d 0a 09 69 |.int don|e;.....i|
|00000e80| 66 28 20 67 53 74 61 74 | 65 20 3e 20 4c 49 4e 45 |f( gStat|e > LINE|
|00000e90| 5f 4f 50 43 4f 44 45 20 | 29 0d 0a 09 09 65 72 72 |_OPCODE |)....err|
|00000ea0| 6f 72 20 3d 20 45 52 52 | 4f 52 5f 53 59 4e 54 41 |or = ERR|OR_SYNTA|
|00000eb0| 58 3b 0d 0a 09 65 6c 73 | 65 20 69 66 28 20 67 49 |X;...els|e if( gI|
|00000ec0| 6e 4d 61 63 72 6f 20 29 | 0d 0a 09 09 65 72 72 6f |nMacro )|....erro|
|00000ed0| 72 20 3d 20 45 52 52 4f | 52 5f 4d 41 43 52 4f 3b |r = ERRO|R_MACRO;|
|00000ee0| 0d 0a 09 65 6c 73 65 0d | 0a 09 7b 0d 0a 09 09 77 |...else.|..{....w|
|00000ef0| 68 69 6c 65 28 20 2a 2a | 73 20 21 3d 20 27 7b 27 |hile( **|s != '{'|
|00000f00| 20 26 26 20 2a 73 20 3c | 3d 20 67 42 75 66 66 65 | && *s <|= gBuffe|
|00000f10| 72 45 6e 64 29 09 2f 2f | 20 66 69 6e 64 20 73 74 |rEnd).//| find st|
|00000f20| 61 72 74 20 6f 66 20 64 | 65 63 6c 61 72 61 74 69 |art of d|eclarati|
|00000f30| 6f 6e 73 0d 0a 09 09 09 | 28 2a 73 29 2b 2b 3b 0d |ons.....|(*s)++;.|
|00000f40| 0a 0d 0a 09 09 69 66 28 | 20 2a 28 2a 73 29 2b 2b |.....if(| *(*s)++|
|00000f50| 20 21 3d 20 27 7b 27 20 | 29 0d 0a 09 09 09 65 72 | != '{' |).....er|
|00000f60| 72 6f 72 20 3d 20 45 52 | 52 4f 52 5f 53 59 4e 54 |ror = ER|ROR_SYNT|
|00000f70| 41 58 3b 0d 0a 09 7d 0d | 0a 09 69 66 28 20 21 65 |AX;...}.|..if( !e|
|00000f80| 72 72 6f 72 20 29 0d 0a | 09 7b 0d 0a 09 09 76 61 |rror )..|.{....va|
|00000f90| 6c 75 65 20 3d 20 30 3b | 0d 0a 09 09 64 6f 6e 65 |lue = 0;|....done|
|00000fa0| 20 3d 20 66 61 6c 73 65 | 3b 0d 0a 0d 0a 09 09 77 | = false|;......w|
|00000fb0| 68 69 6c 65 28 20 21 64 | 6f 6e 65 20 26 26 20 21 |hile( !d|one && !|
|00000fc0| 65 72 72 6f 72 20 29 0d | 0a 09 09 7b 0d 0a 09 09 |error ).|...{....|
|00000fd0| 09 65 72 72 6f 72 20 3d | 20 4e 65 78 74 57 6f 72 |.error =| NextWor|
|00000fe0| 64 28 20 73 2c 20 76 61 | 72 62 75 66 2c 20 56 41 |d( s, va|rbuf, VA|
|00000ff0| 52 53 49 5a 45 20 29 3b | 09 2f 2f 20 67 65 74 20 |RSIZE );|.// get |
|00001000| 6c 61 62 65 6c 0d 0a 09 | 09 09 65 70 20 3d 20 65 |label...|..ep = e|
|00001010| 72 72 5f 6c 69 6e 65 53 | 74 61 72 74 20 3d 20 67 |rr_lineS|tart = g|
|00001020| 70 45 72 72 57 6f 72 64 | 3b 0d 0a 0d 0a 09 09 09 |pErrWord|;.......|
|00001030| 69 66 28 20 65 72 72 6f | 72 20 3d 3d 20 45 52 52 |if( erro|r == ERR|
|00001040| 4f 52 5f 45 4f 4c 20 29 | 09 2f 2f 20 6e 6f 20 6c |OR_EOL )|.// no l|
|00001050| 61 62 65 6c 2c 20 62 75 | 74 20 65 6e 64 20 6f 66 |abel, bu|t end of|
|00001060| 20 6c 69 6e 65 3f 0d 0a | 09 09 09 7b 0d 0a 09 09 | line?..|...{....|
|00001070| 09 09 65 72 72 6f 72 20 | 3d 20 4e 65 78 74 4c 69 |..error |= NextLi|
|00001080| 6e 65 28 20 73 20 29 3b | 0d 0a 09 09 09 09 63 6f |ne( s );|......co|
|00001090| 6e 74 69 6e 75 65 3b 0d | 0a 09 09 09 7d 0d 0a 0d |ntinue;.|....}...|
|000010a0| 0a 09 09 09 69 66 28 20 | 76 61 72 62 75 66 5b 30 |....if( |varbuf[0|
|000010b0| 5d 20 21 3d 20 27 7d 27 | 20 26 26 20 21 65 72 72 |] != '}'| && !err|
|000010c0| 6f 72 20 29 0d 0a 09 09 | 09 09 69 66 28 20 4e 65 |or )....|..if( Ne|
|000010d0| 78 74 57 6f 72 64 28 20 | 73 2c 20 77 6f 72 64 62 |xtWord( |s, wordb|
|000010e0| 75 66 2c 20 56 41 52 53 | 49 5a 45 20 29 20 3d 3d |uf, VARS|IZE ) ==|
|000010f0| 20 4e 4f 45 52 52 20 29 | 09 2f 2f 20 67 65 74 20 | NOERR )|.// get |
|00001100| 76 61 6c 75 65 0d 0a 09 | 09 09 09 09 69 66 28 20 |value...|....if( |
|00001110| 77 6f 72 64 62 75 66 5b | 30 5d 20 3d 3d 20 27 3d |wordbuf[|0] == '=|
|00001120| 27 20 26 26 20 21 77 6f | 72 64 62 75 66 5b 31 5d |' && !wo|rdbuf[1]|
|00001130| 20 29 0d 0a 09 09 09 09 | 09 09 65 72 72 6f 72 20 | )......|..error |
|00001140| 3d 20 44 6f 45 78 70 72 | 28 20 73 2c 20 26 76 61 |= DoExpr|( s, &va|
|00001150| 6c 75 65 20 29 3b 0d 0a | 0d 0a 09 09 09 69 66 28 |lue );..|.....if(|
|00001160| 20 65 72 72 6f 72 20 3d | 3d 20 45 52 52 4f 52 5f | error =|= ERROR_|
|00001170| 45 4f 4c 20 29 0d 0a 09 | 09 09 09 65 72 72 6f 72 |EOL )...|...error|
|00001180| 20 3d 20 4e 4f 45 52 52 | 3b 0d 0a 09 09 09 69 66 | = NOERR|;.....if|
|00001190| 28 20 21 65 72 72 6f 72 | 20 29 0d 0a 09 09 09 09 |( !error| )......|
|000011a0| 67 70 45 72 72 57 6f 72 | 64 20 3d 20 65 70 3b 09 |gpErrWor|d = ep;.|
|000011b0| 09 2f 2f 20 64 6f 6e 27 | 74 20 75 6e 64 6f 20 72 |.// don'|t undo r|
|000011c0| 65 61 6c 20 65 72 72 6f | 72 20 70 6f 69 6e 74 65 |eal erro|r pointe|
|000011d0| 72 21 0d 0a 0d 0a 09 09 | 09 69 66 28 20 76 61 72 |r!......|.if( var|
|000011e0| 62 75 66 5b 30 5d 20 21 | 3d 20 27 7d 27 20 26 26 |buf[0] !|= '}' &&|
|000011f0| 20 21 65 72 72 6f 72 20 | 29 0d 0a 09 09 09 7b 0d | !error |).....{.|
|00001200| 0a 09 09 09 09 69 66 28 | 20 67 46 69 72 73 74 50 |.....if(| gFirstP|
|00001210| 61 73 73 20 29 0d 0a 09 | 09 09 09 09 65 72 72 6f |ass )...|....erro|
|00001220| 72 20 3d 20 68 61 73 68 | 5f 41 64 64 28 20 67 53 |r = hash|_Add( gS|
|00001230| 79 6d 54 62 6c 48 64 6c | 2c 20 76 61 72 62 75 66 |ymTblHdl|, varbuf|
|00001240| 2c 20 76 61 6c 75 65 2b | 2b 20 29 3b 0d 0a 09 09 |, value+|+ );....|
|00001250| 09 09 65 6c 73 65 0d 0a | 09 09 09 09 09 65 72 72 |..else..|.....err|
|00001260| 6f 72 20 3d 20 68 61 73 | 68 5f 55 70 64 61 74 65 |or = has|h_Update|
|00001270| 28 20 67 53 79 6d 54 62 | 6c 48 64 6c 2c 20 76 61 |( gSymTb|lHdl, va|
|00001280| 72 62 75 66 2c 20 76 61 | 6c 75 65 2b 2b 20 29 3b |rbuf, va|lue++ );|
|00001290| 0d 0a 0d 0a 09 09 09 09 | 69 66 28 20 65 72 72 6f |........|if( erro|
|000012a0| 72 20 29 0d 0a 09 09 09 | 09 09 65 72 72 6f 72 20 |r ).....|..error |
|000012b0| 3d 20 45 72 72 6f 72 4d | 65 73 73 61 67 65 28 20 |= ErrorM|essage( |
|000012c0| 65 72 72 6f 72 2c 20 65 | 72 72 6f 72 2c 20 67 4c |error, e|rror, gL|
|000012d0| 69 6e 65 2c 20 6b 45 72 | 72 6f 72 20 29 3b 09 2f |ine, kEr|ror );./|
|000012e0| 2f 20 65 72 72 6f 72 73 | 20 68 65 72 65 20 6d 61 |/ errors| here ma|
|000012f0| 6b 65 20 6d 6f 72 65 20 | 73 65 6e 73 65 21 0d 0a |ke more |sense!..|
|00001300| 09 09 09 7d 0d 0a 09 09 | 09 64 6f 6e 65 20 3d 20 |...}....|.done = |
|00001310| 28 20 76 61 72 62 75 66 | 5b 30 5d 20 3d 3d 20 27 |( varbuf|[0] == '|
|00001320| 7d 27 20 7c 7c 20 77 6f | 72 64 62 75 66 5b 30 5d |}' || wo|rdbuf[0]|
|00001330| 20 3d 3d 20 27 7d 27 20 | 29 3b 0d 0a 09 09 7d 0d | == '}' |);....}.|
|00001340| 0a 09 7d 0d 0a 0d 0a 09 | 72 65 74 75 72 6e 28 20 |..}.....|return( |
|00001350| 65 72 72 6f 72 20 29 3b | 0d 0a 7d 0d 0a 0d 0a 2f |error );|..}..../|
|00001360| 2f 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |/=======|========|
|00001370| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000013a0| 3d 3d 3d 3d 3d 3d 0d 0a | 2f 2f 09 70 5f 54 59 50 |======..|//.p_TYP|
|000013b0| 45 44 45 46 0d 0a 2f 2f | 0d 0a 2f 2f 09 53 6b 69 |EDEF..//|..//.Ski|
|000013c0| 70 20 70 61 73 74 20 61 | 20 43 20 73 74 79 6c 65 |p past a| C style|
|000013d0| 20 54 59 50 45 44 45 46 | 20 28 77 2f 61 20 66 65 | TYPEDEF| (w/a fe|
|000013e0| 77 20 72 65 73 74 72 69 | 63 74 69 6f 6e 73 29 0d |w restri|ctions).|
|000013f0| 0a 2f 2f 09 47 65 6e 65 | 72 61 74 65 73 20 6e 6f |.//.Gene|rates no|
|00001400| 20 63 6f 64 65 2c 20 6e | 6f 20 65 71 75 61 74 65 | code, n|o equate|
|00001410| 73 2c 20 64 6f 65 73 20 | 6e 6f 74 68 69 6e 67 20 |s, does |nothing |
|00001420| 62 75 74 20 75 70 64 61 | 74 65 20 70 74 72 0d 0a |but upda|te ptr..|
|00001430| 2f 2f 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |//======|========|
|00001440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001450| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001470| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 0d 0a 73 74 61 74 69 |=======.|...stati|
|00001480| 63 20 4f 53 45 72 72 20 | 70 5f 54 59 50 45 44 45 |c OSErr |p_TYPEDE|
|00001490| 46 28 20 50 74 72 20 2a | 73 20 29 0d 0a 7b 0d 0a |F( Ptr *|s )..{..|
|000014a0| 09 72 65 67 69 73 74 65 | 72 20 4f 53 45 72 72 20 |.registe|r OSErr |
|000014b0| 65 72 72 6f 72 20 3d 20 | 4e 4f 45 52 52 3b 0d 0a |error = |NOERR;..|
|000014c0| 09 72 65 67 69 73 74 65 | 72 20 50 74 72 20 70 20 |.registe|r Ptr p |
|000014d0| 3d 20 2a 73 3b 0d 0a 0d | 0a 09 2f 2f 20 6c 6f 6f |= *s;...|..// loo|
|000014e0| 6b 20 66 6f 72 20 73 74 | 61 72 74 20 6f 66 20 73 |k for st|art of s|
|000014f0| 74 72 75 63 74 2c 20 6f | 72 20 65 6e 64 20 6f 66 |truct, o|r end of|
|00001500| 20 73 69 6e 67 6c 65 20 | 69 74 65 6d 20 74 79 70 | single |item typ|
|00001510| 65 64 65 66 0d 0a 0d 0a | 09 77 68 69 6c 65 28 20 |edef....|.while( |
|00001520| 2a 70 20 21 3d 20 27 7b | 27 20 26 26 20 2a 70 20 |*p != '{|' && *p |
|00001530| 21 3d 20 27 3b 27 20 26 | 26 20 70 20 3c 3d 20 67 |!= ';' &|& p <= g|
|00001540| 42 75 66 66 65 72 45 6e | 64 20 29 0d 0a 09 09 70 |BufferEn|d )....p|
|00001550| 2b 2b 3b 0d 0a 0d 0a 09 | 2f 2f 20 6a 75 73 74 20 |++;.....|// just |
|00001560| 6c 6f 6f 6b 20 66 6f 72 | 20 65 6e 64 69 6e 67 20 |look for| ending |
|00001570| 62 72 61 63 65 20 6f 66 | 20 74 79 70 65 64 65 66 |brace of| typedef|
|00001580| 2c 20 74 68 65 6e 20 69 | 74 27 73 20 73 65 6d 69 |, then i|t's semi|
|00001590| 63 6f 6c 6f 6e 0d 0a 0d | 0a 09 69 66 28 20 2a 70 |colon...|..if( *p|
|000015a0| 20 3d 3d 20 27 7b 27 20 | 29 0d 0a 09 09 77 68 69 | == '{' |)....whi|
|000015b0| 6c 65 28 20 2a 70 20 21 | 3d 20 27 7d 27 20 26 26 |le( *p !|= '}' &&|
|000015c0| 20 70 20 3c 3d 20 67 42 | 75 66 66 65 72 45 6e 64 | p <= gB|ufferEnd|
|000015d0| 29 0d 0a 09 09 09 70 2b | 2b 3b 0d 0a 0d 0a 09 69 |).....p+|+;.....i|
|000015e0| 66 28 20 70 20 3e 3d 20 | 67 42 75 66 66 65 72 45 |f( p >= |gBufferE|
|000015f0| 6e 64 20 20 29 09 2f 2f | 20 66 6f 75 6e 64 20 77 |nd ).//| found w|
|00001600| 68 61 74 20 77 65 27 72 | 65 20 6c 6f 6f 6b 69 6e |hat we'r|e lookin|
|00001610| 67 20 66 6f 72 3f 0d 0a | 09 09 65 72 72 6f 72 20 |g for?..|..error |
|00001620| 3d 20 45 52 52 4f 52 5f | 53 59 4e 54 41 58 3b 0d |= ERROR_|SYNTAX;.|
|00001630| 0a 09 65 6c 73 65 0d 0a | 09 7b 0d 0a 09 09 77 68 |..else..|.{....wh|
|00001640| 69 6c 65 28 20 2a 70 20 | 21 3d 20 27 3b 27 20 26 |ile( *p |!= ';' &|
|00001650| 26 20 70 20 3c 3d 20 67 | 42 75 66 66 65 72 45 6e |& p <= g|BufferEn|
|00001660| 64 29 09 2f 2f 20 66 69 | 6e 64 20 65 6e 64 20 6f |d).// fi|nd end o|
|00001670| 66 20 74 79 70 65 64 65 | 66 0d 0a 09 09 09 70 2b |f typede|f.....p+|
|00001680| 2b 3b 0d 0a 0d 0a 09 09 | 69 66 28 20 2a 70 20 21 |+;......|if( *p !|
|00001690| 3d 20 27 3b 27 20 29 0d | 0a 09 09 09 65 72 72 6f |= ';' ).|....erro|
|000016a0| 72 20 3d 20 45 52 52 4f | 52 5f 53 59 4e 54 41 58 |r = ERRO|R_SYNTAX|
|000016b0| 3b 0d 0a 09 7d 0d 0a 09 | 2a 73 20 3d 20 70 3b 09 |;...}...|*s = p;.|
|000016c0| 09 2f 2f 20 65 78 69 74 | 20 77 2f 75 70 64 61 74 |.// exit| w/updat|
|000016d0| 65 64 20 70 6f 69 6e 74 | 65 72 0d 0a 09 72 65 74 |ed point|er...ret|
|000016e0| 75 72 6e 28 20 65 72 72 | 6f 72 20 29 3b 0d 0a 7d |urn( err|or );..}|
|000016f0| 0d 0a 0d 0a 2f 2f 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |....//==|========|
|00001700| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001710| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001720| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001730| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0a 2f 2f 09 |========|===..//.|
|00001740| 70 5f 45 51 55 0d 0a 2f | 2f 0d 0a 2f 2f 09 41 73 |p_EQU../|/..//.As|
|00001750| 73 69 67 6e 20 61 20 6c | 61 62 65 6c 20 74 6f 20 |sign a l|abel to |
|00001760| 74 68 65 20 67 69 76 65 | 6e 20 76 61 6c 75 65 0d |the give|n value.|
|00001770| 0a 2f 2f 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.//=====|========|
|00001780| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001790| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017b0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0a 0d 0a 73 74 61 74 |========|....stat|
|000017c0| 69 63 20 4f 53 45 72 72 | 20 70 5f 45 51 55 28 20 |ic OSErr| p_EQU( |
|000017d0| 50 74 72 20 2a 73 20 29 | 0d 0a 7b 0d 0a 09 4f 53 |Ptr *s )|..{...OS|
|000017e0| 45 72 72 20 65 72 72 6f | 72 20 3d 20 4e 4f 45 52 |Err erro|r = NOER|
|000017f0| 52 3b 0d 0a 0d 0a 09 69 | 66 28 20 67 53 74 61 74 |R;.....i|f( gStat|
|00001800| 65 20 21 3d 20 4c 49 4e | 45 5f 4f 50 43 4f 44 45 |e != LIN|E_OPCODE|
|00001810| 20 29 0d 0a 09 09 65 72 | 72 6f 72 20 3d 20 45 52 | )....er|ror = ER|
|00001820| 52 4f 52 5f 53 59 4e 54 | 41 58 3b 0d 0a 09 65 6c |ROR_SYNT|AX;...el|
|00001830| 73 65 20 69 66 28 20 67 | 49 6e 4d 61 63 72 6f 20 |se if( g|InMacro |
|00001840| 29 0d 0a 09 09 65 72 72 | 6f 72 20 3d 20 45 52 52 |)....err|or = ERR|
|00001850| 4f 52 5f 4d 41 43 52 4f | 3b 0d 0a 09 65 6c 73 65 |OR_MACRO|;...else|
|00001860| 20 69 66 20 28 21 67 46 | 69 72 73 74 50 61 73 73 | if (!gF|irstPass|
|00001870| 20 29 0d 0a 09 09 65 72 | 72 6f 72 20 3d 20 44 6f | )....er|ror = Do|
|00001880| 45 78 70 72 28 20 73 2c | 20 26 67 4c 61 62 65 6c |Expr( s,| &gLabel|
|00001890| 56 61 6c 75 65 20 29 3b | 0d 0a 0d 0a 09 67 4e 65 |Value );|.....gNe|
|000018a0| 77 4c 6f 63 61 6c 47 72 | 6f 75 70 20 3d 20 66 61 |wLocalGr|oup = fa|
|000018b0| 6c 73 65 3b 09 2f 2f 20 | 63 61 6e 27 74 20 63 61 |lse;.// |can't ca|
|000018c0| 75 73 65 20 6e 65 77 20 | 6c 6f 63 61 6c 20 6c 61 |use new |local la|
|000018d0| 62 65 6c 20 67 72 6f 75 | 70 21 0d 0a 0d 0a 09 72 |bel grou|p!.....r|
|000018e0| 65 74 75 72 6e 28 20 65 | 72 72 6f 72 20 29 3b 0d |eturn( e|rror );.|
|000018f0| 0a 7d 0d 0a 0d 0a 2f 2f | 3d 3d 3d 3d 3d 3d 3d 3d |.}....//|========|
|00001900| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001920| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001930| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 0a 2f |========|=====../|
|00001940| 2f 09 70 5f 44 42 0d 0a | 2f 2f 0d 0a 2f 2f 09 53 |/.p_DB..|//..//.S|
|00001950| 74 6f 72 65 20 61 20 62 | 79 74 65 20 69 6e 20 74 |tore a b|yte in t|
|00001960| 68 65 20 6f 75 74 70 75 | 74 20 73 74 72 65 61 6d |he outpu|t stream|
|00001970| 0d 0a 2f 2f 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..//====|========|
|00001980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000019a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000019b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 0d 0a 73 74 61 |========|=....sta|
|000019c0| 74 69 63 20 4f 53 45 72 | 72 20 70 5f 44 42 28 20 |tic OSEr|r p_DB( |
|000019d0| 50 74 72 20 2a 73 20 29 | 0d 0a 7b 0d 0a 09 4f 53 |Ptr *s )|..{...OS|
|000019e0| 45 72 72 20 65 72 72 6f | 72 2c 20 65 72 72 20 3d |Err erro|r, err =|
|000019f0| 20 4e 4f 45 52 52 3b 0d | 0a 09 55 4c 4f 4e 47 20 | NOERR;.|..ULONG |
|00001a00| 76 61 6c 75 65 3b 0d 0a | 0d 0a 09 64 6f 0d 0a 09 |value;..|...do...|
|00001a10| 7b 0d 0a 09 09 65 72 72 | 6f 72 20 3d 20 44 6f 45 |{....err|or = DoE|
|00001a20| 78 70 72 28 20 73 2c 20 | 26 76 61 6c 75 65 20 29 |xpr( s, |&value )|
|00001a30| 3b 0d 0a 09 09 69 66 28 | 20 21 65 72 72 6f 72 20 |;....if(| !error |
|00001a40| 7c 7c 20 65 72 72 6f 72 | 20 3d 3d 20 45 52 52 4f ||| error| == ERRO|
|00001a50| 52 5f 45 4f 4c 20 29 09 | 2f 2f 20 67 65 74 20 26 |R_EOL ).|// get &|
|00001a60| 20 73 74 6f 72 65 20 76 | 61 6c 75 65 0d 0a 09 09 | store v|alue....|
|00001a70| 09 69 66 28 20 67 46 69 | 72 73 74 50 61 73 73 20 |.if( gFi|rstPass |
|00001a80| 29 0d 0a 09 09 09 09 67 | 50 43 20 2b 3d 20 73 69 |)......g|PC += si|
|00001a90| 7a 65 6f 66 28 55 42 59 | 54 45 29 3b 0d 0a 09 09 |zeof(UBY|TE);....|
|00001aa0| 09 65 6c 73 65 0d 0a 09 | 09 09 09 65 72 72 20 3d |.else...|...err =|
|00001ab0| 20 4f 75 74 42 79 74 65 | 28 20 76 61 6c 75 65 20 | OutByte|( value |
|00001ac0| 29 3b 0d 0a 09 7d 20 77 | 68 69 6c 65 28 20 21 65 |);...} w|hile( !e|
|00001ad0| 72 72 6f 72 20 29 3b 0d | 0a 0d 0a 09 69 66 28 20 |rror );.|....if( |
|00001ae0| 65 72 72 6f 72 20 3d 3d | 20 45 52 52 4f 52 5f 45 |error ==| ERROR_E|
|00001af0| 4f 4c 20 29 09 2f 2f 20 | 6f 6b 20 74 6f 20 67 65 |OL ).// |ok to ge|
|00001b00| 74 20 74 68 69 73 21 0d | 0a 09 7b 0d 0a 09 09 28 |t this!.|..{....(|
|00001b10| 2a 73 29 2d 2d 3b 0d 0a | 09 09 65 72 72 6f 72 20 |*s)--;..|..error |
|00001b20| 3d 20 4e 4f 45 52 52 3b | 0d 0a 09 7d 0d 0a 0d 0a |= NOERR;|...}....|
|00001b30| 09 69 66 28 20 21 65 72 | 72 6f 72 20 29 0d 0a 09 |.if( !er|ror )...|
|00001b40| 09 65 72 72 6f 72 20 3d | 20 65 72 72 3b 0d 0a 0d |.error =| err;...|
|00001b50| 0a 09 72 65 74 75 72 6e | 28 20 65 72 72 6f 72 20 |..return|( error |
|00001b60| 29 3b 0d 0a 7d 0d 0a 0d | 0a 2f 2f 3d 3d 3d 3d 3d |);..}...|.//=====|
|00001b70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001ba0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001bb0| 0d 0a 2f 2f 09 70 5f 44 | 57 0d 0a 2f 2f 0d 0a 2f |..//.p_D|W..//../|
|00001bc0| 2f 09 53 74 6f 72 65 20 | 61 20 77 6f 72 64 20 69 |/.Store |a word i|
|00001bd0| 6e 20 74 68 65 20 6f 75 | 74 70 75 74 20 73 74 72 |n the ou|tput str|
|00001be0| 65 61 6d 0d 0a 2f 2f 3d | 3d 3d 3d 3d 3d 3d 3d 3d |eam..//=|========|
|00001bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0a 0d 0a |========|====....|
|00001c30| 73 74 61 74 69 63 20 4f | 53 45 72 72 20 70 5f 44 |static O|SErr p_D|
|00001c40| 57 28 20 50 74 72 20 2a | 73 20 29 0d 0a 7b 0d 0a |W( Ptr *|s )..{..|
|00001c50| 09 4f 53 45 72 72 20 65 | 72 72 6f 72 2c 20 65 72 |.OSErr e|rror, er|
|00001c60| 72 20 3d 20 4e 4f 45 52 | 52 3b 0d 0a 09 55 4c 4f |r = NOER|R;...ULO|
|00001c70| 4e 47 20 76 61 6c 75 65 | 3b 0d 0a 0d 0a 09 64 6f |NG value|;.....do|
|00001c80| 0d 0a 09 7b 0d 0a 09 09 | 65 72 72 6f 72 20 3d 20 |...{....|error = |
|00001c90| 44 6f 45 78 70 72 28 20 | 73 2c 20 26 76 61 6c 75 |DoExpr( |s, &valu|
|00001ca0| 65 20 29 3b 0d 0a 09 09 | 69 66 28 20 21 65 72 72 |e );....|if( !err|
|00001cb0| 6f 72 20 7c 7c 20 65 72 | 72 6f 72 20 3d 3d 20 45 |or || er|ror == E|
|00001cc0| 52 52 4f 52 5f 45 4f 4c | 20 29 09 2f 2f 20 67 65 |RROR_EOL| ).// ge|
|00001cd0| 74 20 26 20 73 74 6f 72 | 65 20 76 61 6c 75 65 0d |t & stor|e value.|
|00001ce0| 0a 09 09 09 69 66 28 20 | 67 46 69 72 73 74 50 61 |....if( |gFirstPa|
|00001cf0| 73 73 20 29 0d 0a 09 09 | 09 09 67 50 43 20 2b 3d |ss )....|..gPC +=|
|00001d00| 20 73 69 7a 65 6f 66 28 | 55 57 4f 52 44 29 3b 0d | sizeof(|UWORD);.|
|00001d10| 0a 09 09 09 65 6c 73 65 | 0d 0a 09 09 09 09 65 72 |....else|......er|
|00001d20| 72 20 3d 20 4f 75 74 57 | 6f 72 64 28 20 76 61 6c |r = OutW|ord( val|
|00001d30| 75 65 20 29 3b 09 2f 2f | 20 63 61 6e 27 74 20 6f |ue );.//| can't o|
|00001d40| 76 65 72 77 72 69 74 65 | 20 65 6e 64 69 6e 67 20 |verwrite| ending |
|00001d50| 45 4f 4c 20 65 72 72 6f | 72 21 0d 0a 09 7d 20 77 |EOL erro|r!...} w|
|00001d60| 68 69 6c 65 28 20 21 65 | 72 72 6f 72 20 29 3b 0d |hile( !e|rror );.|
|00001d70| 0a 0d 0a 09 69 66 28 20 | 65 72 72 6f 72 20 3d 3d |....if( |error ==|
|00001d80| 20 45 52 52 4f 52 5f 45 | 4f 4c 20 29 09 2f 2f 20 | ERROR_E|OL ).// |
|00001d90| 6f 6b 20 74 6f 20 67 65 | 74 20 74 68 69 73 21 0d |ok to ge|t this!.|
|00001da0| 0a 09 7b 0d 0a 09 09 28 | 2a 73 29 2d 2d 3b 0d 0a |..{....(|*s)--;..|
|00001db0| 09 09 65 72 72 6f 72 20 | 3d 20 4e 4f 45 52 52 3b |..error |= NOERR;|
|00001dc0| 0d 0a 09 7d 0d 0a 0d 0a | 09 69 66 28 20 21 65 72 |...}....|.if( !er|
|00001dd0| 72 6f 72 20 29 0d 0a 09 | 09 65 72 72 6f 72 20 3d |ror )...|.error =|
|00001de0| 20 65 72 72 3b 0d 0a 0d | 0a 09 72 65 74 75 72 6e | err;...|..return|
|00001df0| 28 20 65 72 72 6f 72 20 | 29 3b 0d 0a 7d 0d 0a 0d |( error |);..}...|
|00001e00| 0a 2f 2f 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.//=====|========|
|00001e10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e40| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0a 2f 2f 09 70 5f 44 |========|..//.p_D|
|00001e50| 4c 0d 0a 2f 2f 0d 0a 2f | 2f 09 53 74 6f 72 65 20 |L..//../|/.Store |
|00001e60| 61 20 6c 6f 6e 67 20 69 | 6e 20 74 68 65 20 6f 75 |a long i|n the ou|
|00001e70| 74 70 75 74 20 73 74 72 | 65 61 6d 0d 0a 2f 2f 3d |tput str|eam..//=|
|00001e80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001ea0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001eb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001ec0| 3d 3d 3d 3d 0d 0a 0d 0a | 73 74 61 74 69 63 20 4f |====....|static O|
|00001ed0| 53 45 72 72 20 70 5f 44 | 4c 28 20 50 74 72 20 2a |SErr p_D|L( Ptr *|
|00001ee0| 73 20 29 0d 0a 7b 0d 0a | 09 4f 53 45 72 72 20 65 |s )..{..|.OSErr e|
|00001ef0| 72 72 6f 72 2c 20 65 72 | 72 20 3d 20 4e 4f 45 52 |rror, er|r = NOER|
|00001f00| 52 3b 0d 0a 09 55 4c 4f | 4e 47 20 76 61 6c 75 65 |R;...ULO|NG value|
|00001f10| 3b 0d 0a 0d 0a 09 64 6f | 0d 0a 09 7b 0d 0a 09 09 |;.....do|...{....|
|00001f20| 65 72 72 6f 72 20 3d 20 | 44 6f 45 78 70 72 28 20 |error = |DoExpr( |
|00001f30| 73 2c 20 26 76 61 6c 75 | 65 20 29 3b 0d 0a 09 09 |s, &valu|e );....|
|00001f40| 69 66 28 20 21 65 72 72 | 6f 72 20 7c 7c 20 65 72 |if( !err|or || er|
|00001f50| 72 6f 72 20 3d 3d 20 45 | 52 52 4f 52 5f 45 4f 4c |ror == E|RROR_EOL|
|00001f60| 20 29 09 2f 2f 20 67 65 | 74 20 26 20 73 74 6f 72 | ).// ge|t & stor|
|00001f70| 65 20 76 61 6c 75 65 73 | 20 75 6e 74 69 6c 20 64 |e values| until d|
|00001f80| 6f 6e 65 0d 0a 09 09 09 | 69 66 28 20 67 46 69 72 |one.....|if( gFir|
|00001f90| 73 74 50 61 73 73 20 29 | 0d 0a 09 09 09 09 67 50 |stPass )|......gP|
|00001fa0| 43 20 2b 3d 20 73 69 7a | 65 6f 66 28 55 4c 4f 4e |C += siz|eof(ULON|
|00001fb0| 47 29 3b 0d 0a 09 09 09 | 65 6c 73 65 0d 0a 09 09 |G);.....|else....|
|00001fc0| 09 09 65 72 72 20 3d 20 | 4f 75 74 4c 6f 6e 67 28 |..err = |OutLong(|
|00001fd0| 20 76 61 6c 75 65 20 29 | 3b 0d 0a 09 7d 20 77 68 | value )|;...} wh|
|00001fe0| 69 6c 65 28 20 21 65 72 | 72 6f 72 20 29 3b 0d 0a |ile( !er|ror );..|
|00001ff0| 0d 0a 09 69 66 28 20 65 | 72 72 6f 72 20 3d 3d 20 |...if( e|rror == |
|00002000| 45 52 52 4f 52 5f 45 4f | 4c 20 29 09 2f 2f 20 6f |ERROR_EO|L ).// o|
|00002010| 6b 20 74 6f 20 67 65 74 | 20 74 68 69 73 21 0d 0a |k to get| this!..|
|00002020| 09 7b 0d 0a 09 09 28 2a | 73 29 2d 2d 3b 0d 0a 09 |.{....(*|s)--;...|
|00002030| 09 65 72 72 6f 72 20 3d | 20 4e 4f 45 52 52 3b 0d |.error =| NOERR;.|
|00002040| 0a 09 7d 0d 0a 0d 0a 09 | 69 66 28 20 21 65 72 72 |..}.....|if( !err|
|00002050| 6f 72 20 29 0d 0a 09 09 | 65 72 72 6f 72 20 3d 20 |or )....|error = |
|00002060| 65 72 72 3b 0d 0a 0d 0a | 09 72 65 74 75 72 6e 28 |err;....|.return(|
|00002070| 20 65 72 72 6f 72 20 29 | 3b 0d 0a 7d 0d 0a 0d 0a | error )|;..}....|
|00002080| 2f 2f 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |//======|========|
|00002090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020c0| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 2f 2f 09 70 5f 4f 52 |=======.|.//.p_OR|
|000020d0| 47 0d 0a 2f 2f 0d 0a 2f | 2f 09 53 65 74 20 74 68 |G..//../|/.Set th|
|000020e0| 65 20 50 43 20 74 6f 20 | 74 68 65 20 67 69 76 65 |e PC to |the give|
|000020f0| 6e 20 76 61 6c 75 65 0d | 0a 2f 2f 3d 3d 3d 3d 3d |n value.|.//=====|
|00002100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002140| 0d 0a 0d 0a 73 74 61 74 | 69 63 20 4f 53 45 72 72 |....stat|ic OSErr|
|00002150| 20 70 5f 4f 52 47 28 20 | 50 74 72 20 2a 73 20 29 | p_ORG( |Ptr *s )|
|00002160| 0d 0a 7b 0d 0a 09 4f 53 | 45 72 72 20 65 72 72 6f |..{...OS|Err erro|
|00002170| 72 3b 0d 0a 0d 0a 09 65 | 72 72 6f 72 20 3d 20 44 |r;.....e|rror = D|
|00002180| 6f 45 78 70 72 28 20 73 | 2c 20 26 67 4c 61 62 65 |oExpr( s|, &gLabe|
|00002190| 6c 56 61 6c 75 65 20 29 | 3b 0d 0a 0d 0a 09 69 66 |lValue )|;.....if|
|000021a0| 28 20 21 65 72 72 6f 72 | 20 7c 7c 20 65 72 72 6f |( !error| || erro|
|000021b0| 72 20 3d 3d 20 45 52 52 | 4f 52 5f 45 4f 4c 20 29 |r == ERR|OR_EOL )|
|000021c0| 09 2f 2f 20 61 73 73 69 | 67 6e 20 50 43 20 74 6f |.// assi|gn PC to|
|000021d0| 20 6e 65 77 20 76 61 6c | 75 65 0d 0a 09 09 67 50 | new val|ue....gP|
|000021e0| 43 20 3d 20 67 4c 61 62 | 65 6c 56 61 6c 75 65 3b |C = gLab|elValue;|
|000021f0| 0d 0a 0d 0a 09 72 65 74 | 75 72 6e 28 20 65 72 72 |.....ret|urn( err|
|00002200| 6f 72 20 29 3b 0d 0a 7d | 0d 0a 0d 0a 2f 2f 3d 3d |or );..}|....//==|
|00002210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002250| 3d 3d 3d 0d 0a 2f 2f 09 | 70 5f 44 53 0d 0a 2f 2f |===..//.|p_DS..//|
|00002260| 0d 0a 2f 2f 09 44 65 66 | 69 6e 65 20 73 6f 6d 65 |..//.Def|ine some|
|00002270| 20 73 74 6f 72 61 67 65 | 20 73 70 61 63 65 2e 20 | storage| space. |
|00002280| 44 6f 65 73 6e 27 74 20 | 6f 75 74 70 75 74 20 62 |Doesn't |output b|
|00002290| 79 74 65 73 2c 20 6f 6e | 6c 79 20 75 70 64 61 74 |ytes, on|ly updat|
|000022a0| 65 73 20 50 43 0d 0a 2f | 2f 3d 3d 3d 3d 3d 3d 3d |es PC../|/=======|
|000022b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000022c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000022d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000022e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0a |========|======..|
|000022f0| 0d 0a 73 74 61 74 69 63 | 20 4f 53 45 72 72 20 70 |..static| OSErr p|
|00002300| 5f 44 53 28 20 50 74 72 | 20 2a 73 20 29 0d 0a 7b |_DS( Ptr| *s )..{|
|00002310| 0d 0a 09 4f 53 45 72 72 | 20 65 72 72 6f 72 3b 0d |...OSErr| error;.|
|00002320| 0a 09 55 4c 4f 4e 47 20 | 73 69 7a 65 3b 0d 0a 0d |..ULONG |size;...|
|00002330| 0a 09 65 72 72 6f 72 20 | 3d 20 44 6f 45 78 70 72 |..error |= DoExpr|
|00002340| 28 20 73 2c 20 26 73 69 | 7a 65 20 29 3b 09 09 2f |( s, &si|ze );../|
|00002350| 2f 20 67 65 74 20 73 69 | 7a 65 20 6f 66 20 73 74 |/ get si|ze of st|
|00002360| 6f 72 61 67 65 20 61 72 | 65 61 0d 0a 09 69 66 28 |orage ar|ea...if(|
|00002370| 20 21 65 72 72 6f 72 20 | 7c 7c 20 65 72 72 6f 72 | !error ||| error|
|00002380| 20 3d 3d 20 45 52 52 4f | 52 5f 45 4f 4c 20 29 0d | == ERRO|R_EOL ).|
|00002390| 0a 09 09 67 50 43 20 2b | 3d 20 73 69 7a 65 3b 0d |...gPC +|= size;.|
|000023a0| 0a 0d 0a 09 72 65 74 75 | 72 6e 28 20 65 72 72 6f |....retu|rn( erro|
|000023b0| 72 20 29 3b 0d 0a 7d 0d | 0a 0d 0a 2f 2f 3d 3d 3d |r );..}.|...//===|
|000023c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000023d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000023e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000023f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002400| 3d 3d 0d 0a 2f 2f 09 70 | 5f 44 43 53 0d 0a 2f 2f |==..//.p|_DCS..//|
|00002410| 0d 0a 2f 2f 09 44 65 66 | 69 6e 65 20 43 6f 6e 73 |..//.Def|ine Cons|
|00002420| 74 61 6e 74 20 53 74 6f | 72 61 67 65 2e 20 4f 75 |tant Sto|rage. Ou|
|00002430| 74 70 75 74 73 20 61 20 | 62 75 6e 63 68 20 6f 66 |tputs a |bunch of|
|00002440| 20 62 79 74 65 73 20 6f | 66 20 73 70 65 63 69 66 | bytes o|f specif|
|00002450| 69 63 20 76 61 6c 75 65 | 0d 0a 2f 2f 3d 3d 3d 3d |ic value|..//====|
|00002460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002490| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000024a0| 3d 0d 0a 0d 0a 73 74 61 | 74 69 63 20 4f 53 45 72 |=....sta|tic OSEr|
|000024b0| 72 20 70 5f 44 43 53 28 | 20 50 74 72 20 2a 73 20 |r p_DCS(| Ptr *s |
|000024c0| 29 0d 0a 7b 0d 0a 09 4f | 53 45 72 72 20 65 72 72 |)..{...O|SErr err|
|000024d0| 6f 72 3b 0d 0a 09 55 4c | 4f 4e 47 20 73 69 7a 65 |or;...UL|ONG size|
|000024e0| 2c 76 61 6c 75 65 3b 0d | 0a 0d 0a 09 65 72 72 6f |,value;.|....erro|
|000024f0| 72 20 3d 20 44 6f 45 78 | 70 72 28 20 73 2c 20 26 |r = DoEx|pr( s, &|
|00002500| 73 69 7a 65 20 29 3b 09 | 09 2f 2f 20 67 65 74 20 |size );.|.// get |
|00002510| 6e 75 6d 62 65 72 20 6f | 66 20 62 79 74 65 73 20 |number o|f bytes |
|00002520| 74 6f 20 77 72 69 74 65 | 0d 0a 09 69 66 28 20 21 |to write|...if( !|
|00002530| 65 72 72 6f 72 20 7c 7c | 20 65 72 72 6f 72 20 3d |error ||| error =|
|00002540| 3d 20 45 52 52 4f 52 5f | 45 4f 4c 20 29 0d 0a 09 |= ERROR_|EOL )...|
|00002550| 7b 0d 0a 09 09 65 72 72 | 6f 72 20 3d 20 44 6f 45 |{....err|or = DoE|
|00002560| 78 70 72 28 20 73 2c 20 | 26 76 61 6c 75 65 20 29 |xpr( s, |&value )|
|00002570| 3b 0d 0a 09 09 69 66 28 | 20 21 65 72 72 6f 72 20 |;....if(| !error |
|00002580| 7c 7c 20 65 72 72 6f 72 | 20 3d 3d 20 45 52 52 4f ||| error| == ERRO|
|00002590| 52 5f 45 4f 4c 20 29 09 | 2f 2f 20 67 65 74 20 62 |R_EOL ).|// get b|
|000025a0| 79 74 65 20 74 6f 20 77 | 72 69 74 65 0d 0a 09 09 |yte to w|rite....|
|000025b0| 7b 0d 0a 09 09 09 65 72 | 72 6f 72 20 3d 20 6e 6f |{.....er|ror = no|
|000025c0| 45 72 72 3b 0d 0a 0d 0a | 09 09 09 77 68 69 6c 65 |Err;....|...while|
|000025d0| 28 20 21 65 72 72 6f 72 | 20 26 26 20 73 69 7a 65 |( !error| && size|
|000025e0| 2d 2d 20 29 0d 0a 09 09 | 09 09 65 72 72 6f 72 20 |-- )....|..error |
|000025f0| 3d 20 4f 75 74 42 79 74 | 65 28 20 76 61 6c 75 65 |= OutByt|e( value|
|00002600| 20 29 3b 09 09 2f 2f 20 | 6f 75 74 70 75 74 20 74 | );..// |output t|
|00002610| 68 65 6d 20 62 79 74 65 | 73 21 0d 0a 09 09 7d 0d |hem byte|s!....}.|
|00002620| 0a 09 7d 0d 0a 0d 0a 09 | 72 65 74 75 72 6e 28 20 |..}.....|return( |
|00002630| 65 72 72 6f 72 20 29 3b | 0d 0a 7d 0d 0a 0d 0a 2f |error );|..}..../|
|00002640| 2f 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |/=======|========|
|00002650| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002660| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002680| 3d 3d 3d 3d 3d 3d 0d 0a | 2f 2f 09 70 5f 44 54 0d |======..|//.p_DT.|
|00002690| 0a 2f 2f 0d 0a 2f 2f 09 | 44 65 66 69 6e 65 20 61 |.//..//.|Define a|
|000026a0| 20 74 65 78 74 20 73 74 | 72 69 6e 67 20 22 73 74 | text st|ring "st|
|000026b0| 72 69 6e 67 22 20 3d 20 | 43 20 53 74 72 69 6e 67 |ring" = |C String|
|000026c0| 2c 20 3c 73 74 72 69 6e | 67 3e 20 3d 20 50 61 73 |, <strin|g> = Pas|
|000026d0| 63 61 6c 20 53 74 72 69 | 6e 67 0d 0a 2f 2f 3d 3d |cal Stri|ng..//==|
|000026e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000026f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002700| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002710| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002720| 3d 3d 3d 0d 0a 0d 0a 73 | 74 61 74 69 63 20 4f 53 |===....s|tatic OS|
|00002730| 45 72 72 20 70 5f 44 54 | 28 20 50 74 72 20 2a 73 |Err p_DT|( Ptr *s|
|00002740| 20 29 0d 0a 7b 0d 0a 09 | 4f 53 45 72 72 20 65 72 | )..{...|OSErr er|
|00002750| 72 6f 72 3b 0d 0a 09 63 | 68 61 72 20 62 75 66 5b |ror;...c|har buf[|
|00002760| 32 35 36 5d 3b 0d 0a 0d | 0a 09 65 72 72 6f 72 20 |256];...|..error |
|00002770| 3d 20 4e 65 78 74 57 6f | 72 64 28 20 73 2c 20 62 |= NextWo|rd( s, b|
|00002780| 75 66 2c 20 32 35 35 20 | 29 3b 09 2f 2f 20 67 65 |uf, 255 |);.// ge|
|00002790| 74 20 73 74 72 69 6e 67 | 20 7b 20 66 6f 72 6d 61 |t string| { forma|
|000027a0| 74 20 3d 3d 20 22 73 74 | 72 69 6e 67 20 6f 72 20 |t == "st|ring or |
|000027b0| 3c 73 74 72 69 6e 67 20 | 7d 0d 0a 09 69 66 28 20 |<string |}...if( |
|000027c0| 21 65 72 72 6f 72 20 7c | 7c 20 65 72 72 6f 72 20 |!error ||| error |
|000027d0| 3d 3d 20 45 52 52 4f 52 | 5f 45 4f 4c 20 29 0d 0a |== ERROR|_EOL )..|
|000027e0| 09 7b 0d 0a 09 09 69 6e | 74 20 69 20 3d 20 31 3b |.{....in|t i = 1;|
|000027f0| 0d 0a 0d 0a 09 09 69 66 | 28 20 62 75 66 5b 30 5d |......if|( buf[0]|
|00002800| 20 3d 3d 20 27 3c 27 20 | 29 0d 0a 09 09 09 65 72 | == '<' |).....er|
|00002810| 72 6f 72 20 3d 20 4f 75 | 74 42 79 74 65 28 20 73 |ror = Ou|tByte( s|
|00002820| 74 72 6c 65 6e 28 20 62 | 75 66 20 29 20 29 3b 09 |trlen( b|uf ) );.|
|00002830| 09 2f 2f 20 63 6f 75 6e | 74 20 69 6e 20 66 72 6f |.// coun|t in fro|
|00002840| 6e 74 20 69 66 20 50 53 | 74 72 69 6e 67 0d 0a 0d |nt if PS|tring...|
|00002850| 0a 09 09 77 68 69 6c 65 | 28 20 21 65 72 72 6f 72 |...while|( !error|
|00002860| 20 26 26 20 62 75 66 5b | 69 5d 20 29 0d 0a 09 09 | && buf[|i] )....|
|00002870| 09 65 72 72 6f 72 20 3d | 20 4f 75 74 42 79 74 65 |.error =| OutByte|
|00002880| 28 20 62 75 66 5b 69 2b | 2b 5d 20 29 3b 09 2f 2f |( buf[i+|+] );.//|
|00002890| 20 77 72 69 74 65 20 73 | 74 72 69 6e 67 0d 0a 0d | write s|tring...|
|000028a0| 0a 09 09 69 66 28 20 21 | 65 72 72 6f 72 20 26 26 |...if( !|error &&|
|000028b0| 20 62 75 66 5b 30 5d 20 | 21 3d 20 27 3c 27 20 29 | buf[0] |!= '<' )|
|000028c0| 09 09 2f 2f 20 65 6e 64 | 20 43 20 73 74 72 69 6e |..// end| C strin|
|000028d0| 67 0d 0a 09 09 09 65 72 | 72 6f 72 20 3d 20 4f 75 |g.....er|ror = Ou|
|000028e0| 74 42 79 74 65 28 20 30 | 20 29 3b 0d 0a 09 7d 0d |tByte( 0| );...}.|
|000028f0| 0a 0d 0a 09 72 65 74 75 | 72 6e 28 20 65 72 72 6f |....retu|rn( erro|
|00002900| 72 20 29 3b 0d 0a 7d 0d | 0a 0d 0a 2f 2f 3d 3d 3d |r );..}.|...//===|
|00002910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002920| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002930| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002940| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002950| 3d 3d 0d 0a 2f 2f 09 70 | 5f 4d 41 43 52 4f 0d 0a |==..//.p|_MACRO..|
|00002960| 2f 2f 0d 0a 2f 2f 09 55 | 73 65 72 20 77 61 6e 74 |//..//.U|ser want|
|00002970| 73 20 74 6f 20 64 65 66 | 69 6e 65 20 61 20 6d 61 |s to def|ine a ma|
|00002980| 63 72 6f 2e 20 4a 75 73 | 74 20 72 65 6d 65 6d 62 |cro. Jus|t rememb|
|00002990| 65 72 20 74 68 65 20 6d | 61 63 72 6f 20 74 65 78 |er the m|acro tex|
|000029a0| 74 20 66 6f 72 20 6c 61 | 74 65 72 20 75 73 65 0d |t for la|ter use.|
|000029b0| 0a 2f 2f 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.//=====|========|
|000029c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029f0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0a 0d 0a 73 74 61 74 |========|....stat|
|00002a00| 69 63 20 4f 53 45 72 72 | 20 70 5f 4d 41 43 52 4f |ic OSErr| p_MACRO|
|00002a10| 28 20 50 74 72 20 2a 73 | 20 29 0d 0a 7b 0d 0a 09 |( Ptr *s| )..{...|
|00002a20| 50 74 72 20 73 74 61 72 | 74 2c 20 65 6e 64 3b 0d |Ptr star|t, end;.|
|00002a30| 0a 09 48 61 6e 64 6c 65 | 20 68 3b 0d 0a 09 55 4c |..Handle| h;...UL|
|00002a40| 4f 4e 47 20 73 69 7a 65 | 3b 0d 0a 09 4f 53 45 72 |ONG size|;...OSEr|
|00002a50| 72 20 65 72 72 6f 72 20 | 3d 20 4e 4f 45 52 52 3b |r error |= NOERR;|
|00002a60| 0d 0a 09 63 68 61 72 20 | 77 6f 72 64 5b 56 41 52 |...char |word[VAR|
|00002a70| 53 49 5a 45 2b 31 5d 3b | 0d 0a 09 69 6e 74 20 64 |SIZE+1];|...int d|
|00002a80| 6f 6e 65 20 3d 20 66 61 | 6c 73 65 2c 20 6c 69 6e |one = fa|lse, lin|
|00002a90| 65 20 3d 20 67 4c 69 6e | 65 3b 0d 0a 0d 0a 09 69 |e = gLin|e;.....i|
|00002aa0| 66 28 20 67 53 74 61 74 | 65 20 3e 20 4c 49 4e 45 |f( gStat|e > LINE|
|00002ab0| 5f 4f 50 43 4f 44 45 20 | 7c 7c 20 67 49 6e 4d 61 |_OPCODE ||| gInMa|
|00002ac0| 63 72 6f 20 29 09 2f 2f | 20 6d 61 63 72 6f 20 66 |cro ).//| macro f|
|00002ad0| 6f 72 6d 61 74 20 4d 55 | 53 54 20 62 65 20 22 4d |ormat MU|ST be "M|
|00002ae0| 41 43 52 4f 20 6c 61 62 | 65 6c 22 20 6f 72 20 22 |ACRO lab|el" or "|
|00002af0| 6c 61 62 65 6c 20 4d 41 | 43 52 4f 22 0d 0a 09 09 |label MA|CRO"....|
|00002b00| 72 65 74 75 72 6e 28 20 | 45 52 52 4f 52 5f 4d 41 |return( |ERROR_MA|
|00002b10| 43 52 4f 20 29 3b 0d 0a | 0d 0a 09 69 66 28 20 21 |CRO );..|...if( !|
|00002b20| 67 4c 61 62 65 6c 5b 30 | 5d 20 29 0d 0a 09 09 65 |gLabel[0|] )....e|
|00002b30| 72 72 6f 72 20 3d 20 4e | 65 78 74 57 6f 72 64 28 |rror = N|extWord(|
|00002b40| 20 73 2c 20 67 4c 61 62 | 65 6c 2c 20 56 41 52 53 | s, gLab|el, VARS|
|00002b50| 49 5a 45 20 29 3b 09 2f | 2f 20 67 65 74 20 6d 61 |IZE );./|/ get ma|
|00002b60| 63 72 6f 20 6c 61 62 65 | 6c 20 69 66 20 6e 6f 74 |cro labe|l if not|
|00002b70| 20 61 6c 72 65 61 64 79 | 20 67 6f 74 74 65 6e 0d | already| gotten.|
|00002b80| 0a 0d 0a 09 69 66 28 20 | 21 65 72 72 6f 72 20 7c |....if( |!error ||
|00002b90| 7c 20 65 72 72 6f 72 20 | 3d 3d 20 45 52 52 4f 52 || error |== ERROR|
|00002ba0| 5f 45 4f 4c 20 29 0d 0a | 09 7b 0d 0a 09 09 65 72 |_EOL )..|.{....er|
|00002bb0| 72 6f 72 20 3d 20 4e 65 | 78 74 4c 69 6e 65 28 20 |ror = Ne|xtLine( |
|00002bc0| 73 20 29 3b 09 2f 2f 20 | 67 65 74 20 74 6f 20 73 |s );.// |get to s|
|00002bd0| 74 61 72 74 20 6f 66 20 | 6d 61 63 72 6f 0d 0a 09 |tart of |macro...|
|00002be0| 09 73 74 61 72 74 20 3d | 20 2a 73 3b 0d 0a 09 7d |.start =| *s;...}|
|00002bf0| 0d 0a 0d 0a 09 77 68 69 | 6c 65 28 20 21 64 6f 6e |.....whi|le( !don|
|00002c00| 65 20 26 26 20 21 65 72 | 72 6f 72 20 29 09 2f 2f |e && !er|ror ).//|
|00002c10| 20 73 6b 69 70 20 6c 69 | 6e 65 73 20 74 69 6c 6c | skip li|nes till|
|00002c20| 20 27 45 4e 44 4d 27 20 | 66 6f 75 6e 64 0d 0a 09 | 'ENDM' |found...|
|00002c30| 7b 0d 0a 09 09 65 6e 64 | 20 3d 20 2a 73 3b 0d 0a |{....end| = *s;..|
|00002c40| 09 09 65 72 72 6f 72 20 | 3d 20 4e 65 78 74 57 6f |..error |= NextWo|
|00002c50| 72 64 28 20 73 2c 20 77 | 6f 72 64 2c 20 56 41 52 |rd( s, w|ord, VAR|
|00002c60| 53 49 5a 45 20 29 3b 0d | 0a 09 09 69 66 28 20 21 |SIZE );.|...if( !|
|00002c70| 65 72 72 6f 72 20 7c 7c | 20 65 72 72 6f 72 20 3d |error ||| error =|
|00002c80| 3d 20 45 52 52 4f 52 5f | 45 4f 4c 20 29 0d 0a 09 |= ERROR_|EOL )...|
|00002c90| 09 7b 0d 0a 09 09 09 65 | 72 72 6f 72 20 3d 20 4e |.{.....e|rror = N|
|00002ca0| 4f 45 52 52 3b 0d 0a 09 | 09 09 69 66 28 20 21 77 |OERR;...|..if( !w|
|00002cb0| 6f 72 64 5b 34 5d 20 29 | 0d 0a 09 09 09 7b 0d 0a |ord[4] )|.....{..|
|00002cc0| 09 09 09 09 55 70 70 65 | 72 43 61 73 65 28 20 77 |....Uppe|rCase( w|
|00002cd0| 6f 72 64 2c 20 77 6f 72 | 64 20 29 3b 0d 0a 09 09 |ord, wor|d );....|
|00002ce0| 09 09 64 6f 6e 65 20 3d | 20 28 77 6f 72 64 5b 30 |..done =| (word[0|
|00002cf0| 5d 20 3d 3d 20 27 45 27 | 20 26 26 20 77 6f 72 64 |] == 'E'| && word|
|00002d00| 5b 31 5d 20 3d 3d 20 27 | 4e 27 20 26 26 20 77 6f |[1] == '|N' && wo|
|00002d10| 72 64 5b 32 5d 20 3d 3d | 20 27 44 27 20 26 26 20 |rd[2] ==| 'D' && |
|00002d20| 77 6f 72 64 5b 33 5d 20 | 3d 3d 20 27 4d 27 20 29 |word[3] |== 'M' )|
|00002d30| 3b 0d 0a 09 09 09 7d 0d | 0a 09 09 09 69 66 28 20 |;.....}.|....if( |
|00002d40| 21 64 6f 6e 65 20 29 0d | 0a 09 09 09 09 65 72 72 |!done ).|.....err|
|00002d50| 6f 72 20 3d 20 4e 65 78 | 74 4c 69 6e 65 28 20 73 |or = Nex|tLine( s|
|00002d60| 20 29 3b 09 2f 2f 20 61 | 64 76 61 6e 63 65 73 20 | );.// a|dvances |
|00002d70| 61 75 74 6f 6d 61 74 69 | 63 61 6c 6c 79 20 61 66 |automati|cally af|
|00002d80| 74 65 72 20 65 78 69 74 | 69 6e 67 0d 0a 09 09 7d |ter exit|ing....}|
|00002d90| 0d 0a 09 7d 0d 0a 0d 0a | 09 69 66 28 20 65 72 72 |...}....|.if( err|
|00002da0| 6f 72 20 29 0d 0a 09 7b | 0d 0a 09 09 67 4c 69 6e |or )...{|....gLin|
|00002db0| 65 20 3d 20 6c 69 6e 65 | 3b 0d 0a 09 09 72 65 74 |e = line|;....ret|
|00002dc0| 75 72 6e 28 20 45 52 52 | 4f 52 5f 4d 41 43 52 4f |urn( ERR|OR_MACRO|
|00002dd0| 20 29 3b 0d 0a 09 7d 0d | 0a 0d 0a 09 69 66 28 20 | );...}.|....if( |
|00002de0| 67 46 69 72 73 74 50 61 | 73 73 20 29 09 2f 2f 20 |gFirstPa|ss ).// |
|00002df0| 6f 6e 6c 79 20 61 63 74 | 75 61 6c 6c 79 20 63 72 |only act|ually cr|
|00002e00| 65 61 74 65 20 6d 61 63 | 72 6f 20 77 2f 66 69 72 |eate mac|ro w/fir|
|00002e10| 73 74 20 70 61 73 73 0d | 0a 09 7b 0d 0a 09 09 73 |st pass.|..{....s|
|00002e20| 69 7a 65 20 3d 20 65 6e | 64 20 2d 20 73 74 61 72 |ize = en|d - star|
|00002e30| 74 3b 0d 0a 09 09 68 20 | 3d 20 54 65 6d 70 4e 65 |t;....h |= TempNe|
|00002e40| 77 48 61 6e 64 6c 65 28 | 20 73 69 7a 65 2c 20 26 |wHandle(| size, &|
|00002e50| 65 72 72 6f 72 20 29 3b | 09 2f 2f 4c 52 20 39 35 |error );|.//LR 95|
|00002e60| 31 31 31 31 0d 0a 09 09 | 69 66 28 20 65 72 72 6f |1111....|if( erro|
|00002e70| 72 20 29 0d 0a 09 09 09 | 72 65 74 75 72 6e 28 20 |r ).....|return( |
|00002e80| 45 52 52 4f 52 5f 4d 45 | 4d 4f 52 59 20 29 3b 0d |ERROR_ME|MORY );.|
|00002e90| 0a 0d 0a 09 09 42 6c 6f | 63 6b 4d 6f 76 65 28 20 |.....Blo|ckMove( |
|00002ea0| 73 74 61 72 74 2c 20 2a | 68 2c 20 73 69 7a 65 20 |start, *|h, size |
|00002eb0| 29 3b 0d 0a 09 09 65 72 | 72 6f 72 20 3d 20 68 61 |);....er|ror = ha|
|00002ec0| 73 68 5f 41 64 64 28 20 | 67 4d 61 63 72 6f 54 62 |sh_Add( |gMacroTb|
|00002ed0| 6c 48 64 6c 2c 20 67 4c | 61 62 65 6c 2c 20 28 48 |lHdl, gL|abel, (H|
|00002ee0| 61 73 68 56 61 6c 75 65 | 54 79 70 65 29 68 20 29 |ashValue|Type)h )|
|00002ef0| 3b 0d 0a 09 7d 0d 0a 09 | 67 4c 61 62 65 6c 5b 30 |;...}...|gLabel[0|
|00002f00| 5d 20 3d 20 30 3b 0d 0a | 09 72 65 74 75 72 6e 28 |] = 0;..|.return(|
|00002f10| 20 65 72 72 6f 72 20 29 | 3b 0d 0a 7d 0d 0a 0d 0a | error )|;..}....|
|00002f20| 2f 2f 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |//======|========|
|00002f30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f60| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 2f 2f 09 70 5f 44 43 |=======.|.//.p_DC|
|00002f70| 0d 0a 2f 2f 0d 0a 2f 2f | 09 44 65 66 69 6e 65 20 |..//..//|.Define |
|00002f80| 43 6f 6e 73 74 61 6e 74 | 2e 20 47 65 74 27 73 20 |Constant|. Get's |
|00002f90| 74 79 70 65 2c 20 61 6e | 64 20 63 61 6c 6c 73 20 |type, an|d calls |
|00002fa0| 61 70 70 72 6f 70 72 69 | 61 74 65 20 70 5f 20 68 |appropri|ate p_ h|
|00002fb0| 61 6e 64 6c 65 72 0d 0a | 2f 2f 3d 3d 3d 3d 3d 3d |andler..|//======|
|00002fc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002fd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002fe0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ff0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00003000| 0a 0d 0a 73 74 61 74 69 | 63 20 4f 53 45 72 72 20 |...stati|c OSErr |
|00003010| 70 5f 44 43 28 20 50 74 | 72 20 2a 73 20 29 0d 0a |p_DC( Pt|r *s )..|
|00003020| 7b 0d 0a 09 4f 53 45 72 | 72 20 65 72 72 6f 72 3b |{...OSEr|r error;|
|00003030| 0d 0a 0d 0a 09 65 72 72 | 6f 72 20 3d 20 45 52 52 |.....err|or = ERR|
|00003040| 4f 52 5f 53 59 4e 54 41 | 58 3b 09 09 2f 2f 20 61 |OR_SYNTA|X;..// a|
|00003050| 73 73 75 6d 65 20 6e 6f | 74 20 61 20 67 6f 6f 64 |ssume no|t a good|
|00003060| 20 6f 70 0d 0a 0d 0a 09 | 69 66 28 20 2a 2a 73 20 | op.....|if( **s |
|00003070| 3d 3d 20 27 2e 27 20 29 | 0d 0a 09 7b 0d 0a 09 09 |== '.' )|...{....|
|00003080| 28 2a 73 29 2b 2b 3b 0d | 0a 0d 0a 09 09 73 77 69 |(*s)++;.|.....swi|
|00003090| 74 63 68 28 20 75 70 70 | 65 72 28 2a 28 2a 73 29 |tch( upp|er(*(*s)|
|000030a0| 2b 2b 29 20 29 0d 0a 09 | 09 7b 0d 0a 09 09 09 63 |++) )...|.{.....c|
|000030b0| 61 73 65 20 27 42 27 3a | 0d 0a 09 09 09 09 65 72 |ase 'B':|......er|
|000030c0| 72 6f 72 20 3d 20 70 5f | 44 42 28 20 73 20 29 3b |ror = p_|DB( s );|
|000030d0| 0d 0a 09 09 09 09 62 72 | 65 61 6b 3b 0d 0a 0d 0a |......br|eak;....|
|000030e0| 09 09 09 63 61 73 65 20 | 27 57 27 3a 0d 0a 09 09 |...case |'W':....|
|000030f0| 09 09 65 72 72 6f 72 20 | 3d 20 70 5f 44 57 28 20 |..error |= p_DW( |
|00003100| 73 20 29 3b 0d 0a 09 09 | 09 09 62 72 65 61 6b 3b |s );....|..break;|
|00003110| 0d 0a 0d 0a 09 09 09 63 | 61 73 65 20 27 4c 27 3a |.......c|ase 'L':|
|00003120| 0d 0a 09 09 09 09 65 72 | 72 6f 72 20 3d 20 70 5f |......er|ror = p_|
|00003130| 44 4c 28 20 73 20 29 3b | 0d 0a 09 09 09 09 62 72 |DL( s );|......br|
|00003140| 65 61 6b 3b 0d 0a 0d 0a | 09 09 09 63 61 73 65 20 |eak;....|...case |
|00003150| 27 53 27 3a 0d 0a 09 09 | 09 09 65 72 72 6f 72 20 |'S':....|..error |
|00003160| 3d 20 70 5f 44 43 53 28 | 20 73 20 29 3b 0d 0a 09 |= p_DCS(| s );...|
|00003170| 09 09 09 62 72 65 61 6b | 3b 0d 0a 0d 0a 09 09 09 |...break|;.......|
|00003180| 63 61 73 65 20 27 54 27 | 3a 0d 0a 09 09 09 09 65 |case 'T'|:......e|
|00003190| 72 72 6f 72 20 3d 20 70 | 5f 44 54 28 20 73 20 29 |rror = p|_DT( s )|
|000031a0| 3b 0d 0a 09 09 09 09 62 | 72 65 61 6b 3b 0d 0a 09 |;......b|reak;...|
|000031b0| 09 7d 0d 0a 09 7d 0d 0a | 09 72 65 74 75 72 6e 28 |.}...}..|.return(|
|000031c0| 20 65 72 72 6f 72 20 29 | 3b 0d 0a 7d 0d 0a 0d 0a | error )|;..}....|
|000031d0| 2f 2f 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |//======|========|
|000031e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000031f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003210| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 2f 2f 09 70 5f 45 4e |=======.|.//.p_EN|
|00003220| 44 4d 0d 0a 2f 2f 0d 0a | 2f 2f 09 48 61 6e 64 6c |DM..//..|//.Handl|
|00003230| 65 64 20 62 79 20 4d 41 | 43 52 4f 20 70 61 72 73 |ed by MA|CRO pars|
|00003240| 65 72 2c 20 73 6f 20 69 | 74 27 73 20 61 6e 20 65 |er, so i|t's an e|
|00003250| 72 72 6f 72 20 68 65 72 | 65 0d 0a 2f 2f 3d 3d 3d |rror her|e..//===|
|00003260| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000032a0| 3d 3d 0d 0a 0d 0a 73 74 | 61 74 69 63 20 4f 53 45 |==....st|atic OSE|
|000032b0| 72 72 20 70 5f 45 4e 44 | 4d 28 20 50 74 72 20 2a |rr p_END|M( Ptr *|
|000032c0| 73 20 29 0d 0a 7b 0d 0a | 23 70 72 61 67 6d 61 20 |s )..{..|#pragma |
|000032d0| 75 6e 75 73 65 64 20 28 | 73 29 0d 0a 0d 0a 09 72 |unused (|s).....r|
|000032e0| 65 74 75 72 6e 28 20 45 | 52 52 4f 52 5f 53 59 4e |eturn( E|RROR_SYN|
|000032f0| 54 41 58 20 29 3b 09 2f | 2f 20 70 61 72 73 65 64 |TAX );./|/ parsed|
|00003300| 20 62 79 20 22 4d 41 43 | 52 4f 22 20 68 61 6e 64 | by "MAC|RO" hand|
|00003310| 6c 65 72 0d 0a 7d 0d 0a | 0d 0a 2f 2f 3d 3d 3d 3d |ler..}..|..//====|
|00003320| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003340| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003350| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003360| 3d 0d 0a 2f 2f 09 70 5f | 4f 55 54 46 49 4c 45 0d |=..//.p_|OUTFILE.|
|00003370| 0a 2f 2f 0d 0a 2f 2f 09 | 41 6c 6c 6f 77 73 20 75 |.//..//.|Allows u|
|00003380| 73 65 72 20 74 6f 20 64 | 65 74 65 72 6d 69 6e 65 |ser to d|etermine|
|00003390| 20 6f 75 74 70 75 74 20 | 66 69 6c 65 6e 61 6d 65 | output |filename|
|000033a0| 2e 20 56 41 52 53 49 5a | 45 20 69 6e 73 75 72 65 |. VARSIZ|E insure|
|000033b0| 73 20 75 6e 64 65 72 20 | 36 33 20 63 68 61 72 73 |s under |63 chars|
|000033c0| 20 28 46 53 53 70 65 63 | 20 6c 69 6d 69 74 29 0d | (FSSpec| limit).|
|000033d0| 0a 2f 2f 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.//=====|========|
|000033e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000033f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003400| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003410| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0a 0d 0a 73 74 61 74 |========|....stat|
|00003420| 69 63 20 4f 53 45 72 72 | 20 70 5f 4f 55 54 46 49 |ic OSErr| p_OUTFI|
|00003430| 4c 45 28 20 50 74 72 20 | 2a 73 20 29 0d 0a 7b 0d |LE( Ptr |*s )..{.|
|00003440| 0a 09 63 68 61 72 20 77 | 6f 72 64 62 75 66 5b 56 |..char w|ordbuf[V|
|00003450| 41 52 53 49 5a 45 2b 31 | 5d 3b 0d 0a 09 4f 53 45 |ARSIZE+1|];...OSE|
|00003460| 72 72 20 65 72 72 6f 72 | 3b 0d 0a 0d 0a 09 69 66 |rr error|;.....if|
|00003470| 28 20 67 53 74 61 74 65 | 20 3e 20 4c 49 4e 45 5f |( gState| > LINE_|
|00003480| 4f 50 43 4f 44 45 20 29 | 0d 0a 09 09 65 72 72 6f |OPCODE )|....erro|
|00003490| 72 20 3d 20 45 52 52 4f | 52 5f 53 59 4e 54 41 58 |r = ERRO|R_SYNTAX|
|000034a0| 3b 0d 0a 09 65 6c 73 65 | 0d 0a 09 09 65 72 72 6f |;...else|....erro|
|000034b0| 72 20 3d 20 4e 65 78 74 | 57 6f 72 64 28 20 73 2c |r = Next|Word( s,|
|000034c0| 20 77 6f 72 64 62 75 66 | 2c 20 56 41 52 53 49 5a | wordbuf|, VARSIZ|
|000034d0| 45 20 29 3b 0d 0a 0d 0a | 09 69 66 28 20 21 65 72 |E );....|.if( !er|
|000034e0| 72 6f 72 20 26 26 20 21 | 67 46 69 72 73 74 50 61 |ror && !|gFirstPa|
|000034f0| 73 73 20 29 09 09 2f 2f | 4c 52 20 39 35 31 31 31 |ss )..//|LR 95111|
|00003500| 31 20 3a 6f 6e 6c 79 20 | 72 65 71 2e 20 6f 6e 20 |1 :only |req. on |
|00003510| 73 65 63 6f 6e 64 20 70 | 61 73 73 0d 0a 09 7b 0d |second p|ass...{.|
|00003520| 0a 09 09 73 74 72 63 70 | 79 28 20 67 4f 75 74 66 |...strcp|y( gOutf|
|00003530| 69 6c 65 2c 20 26 77 6f | 72 64 62 75 66 5b 31 5d |ile, &wo|rdbuf[1]|
|00003540| 20 29 3b 0d 0a 09 09 67 | 4f 75 74 66 69 6c 65 5b | );....g|Outfile[|
|00003550| 20 73 74 72 6c 65 6e 28 | 20 67 4f 75 74 66 69 6c | strlen(| gOutfil|
|00003560| 65 20 29 20 2d 20 31 5d | 20 3d 20 30 3b 09 09 2f |e ) - 1]| = 0;../|
|00003570| 2f 20 6d 61 6b 65 20 22 | 66 69 6c 65 22 20 69 6e |/ make "|file" in|
|00003580| 74 6f 20 66 69 6c 65 0d | 0a 09 7d 0d 0a 09 72 65 |to file.|..}...re|
|00003590| 74 75 72 6e 28 20 65 72 | 72 6f 72 20 29 3b 0d 0a |turn( er|ror );..|
|000035a0| 7d 0d 0a 0d 0a 2f 2f 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}....//=|========|
|000035b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000035c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000035d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000035e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0a 2f 2f |========|====..//|
|000035f0| 09 70 5f 4f 55 54 54 59 | 50 45 0d 0a 2f 2f 0d 0a |.p_OUTTY|PE..//..|
|00003600| 2f 2f 09 41 6c 6c 6f 77 | 73 20 75 73 65 72 20 74 |//.Allow|s user t|
|00003610| 6f 20 64 65 74 65 72 6d | 69 6e 65 20 6f 75 74 70 |o determ|ine outp|
|00003620| 75 74 20 74 79 70 65 20 | 28 64 61 74 61 20 6f 72 |ut type |(data or|
|00003630| 20 72 65 73 6f 75 72 63 | 65 29 0d 0a 2f 2f 3d 3d | resourc|e)..//==|
|00003640| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003650| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003660| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003680| 3d 3d 3d 0d 0a 0d 0a 73 | 74 61 74 69 63 20 4f 53 |===....s|tatic OS|
|00003690| 45 72 72 20 70 5f 4f 55 | 54 54 59 50 45 28 20 50 |Err p_OU|TTYPE( P|
|000036a0| 74 72 20 2a 73 20 29 0d | 0a 7b 0d 0a 09 63 68 61 |tr *s ).|.{...cha|
|000036b0| 72 20 77 6f 72 64 62 75 | 66 5b 56 41 52 53 49 5a |r wordbu|f[VARSIZ|
|000036c0| 45 2b 31 5d 3b 0d 0a 09 | 4f 53 45 72 72 20 65 72 |E+1];...|OSErr er|
|000036d0| 72 6f 72 3b 0d 0a 0d 0a | 09 69 66 28 20 67 53 74 |ror;....|.if( gSt|
|000036e0| 61 74 65 20 3e 20 4c 49 | 4e 45 5f 4f 50 43 4f 44 |ate > LI|NE_OPCOD|
|000036f0| 45 20 29 0d 0a 09 09 65 | 72 72 6f 72 20 3d 20 45 |E )....e|rror = E|
|00003700| 52 52 4f 52 5f 53 59 4e | 54 41 58 3b 0d 0a 09 65 |RROR_SYN|TAX;...e|
|00003710| 6c 73 65 0d 0a 09 09 65 | 72 72 6f 72 20 3d 20 4e |lse....e|rror = N|
|00003720| 65 78 74 57 6f 72 64 28 | 20 73 2c 20 77 6f 72 64 |extWord(| s, word|
|00003730| 62 75 66 2c 20 56 41 52 | 53 49 5a 45 20 29 3b 0d |buf, VAR|SIZE );.|
|00003740| 0a 0d 0a 09 69 66 28 20 | 21 65 72 72 6f 72 20 26 |....if( |!error &|
|00003750| 26 20 67 46 69 72 73 74 | 50 61 73 73 20 29 09 09 |& gFirst|Pass )..|
|00003760| 2f 2f 4c 52 20 39 35 31 | 31 31 31 20 3a 6f 6e 6c |//LR 951|111 :onl|
|00003770| 79 20 72 65 71 2e 20 6f | 6e 20 73 65 63 6f 6e 64 |y req. o|n second|
|00003780| 20 70 61 73 73 0d 0a 09 | 7b 0d 0a 09 09 55 70 70 | pass...|{....Upp|
|00003790| 65 72 43 61 73 65 28 20 | 77 6f 72 64 62 75 66 2c |erCase( |wordbuf,|
|000037a0| 20 77 6f 72 64 62 75 66 | 20 29 3b 0d 0a 09 09 69 | wordbuf| );....i|
|000037b0| 66 28 20 21 73 74 72 63 | 6d 70 28 20 77 6f 72 64 |f( !strc|mp( word|
|000037c0| 62 75 66 2c 20 22 44 41 | 54 41 22 20 29 20 29 0d |buf, "DA|TA" ) ).|
|000037d0| 0a 09 09 09 67 50 72 65 | 66 73 2e 6f 75 74 70 75 |....gPre|fs.outpu|
|000037e0| 74 20 3d 20 6b 50 72 6f | 6a 54 79 70 65 42 69 6e |t = kPro|jTypeBin|
|000037f0| 61 72 79 3b 0d 0a 09 09 | 65 6c 73 65 20 69 66 28 |ary;....|else if(|
|00003800| 20 21 73 74 72 63 6d 70 | 28 20 77 6f 72 64 62 75 | !strcmp|( wordbu|
|00003810| 66 2c 20 22 52 53 52 43 | 22 20 29 20 29 0d 0a 09 |f, "RSRC|" ) )...|
|00003820| 09 09 67 50 72 65 66 73 | 2e 6f 75 74 70 75 74 20 |..gPrefs|.output |
|00003830| 3d 20 6b 50 72 6f 6a 54 | 79 70 65 52 65 73 6f 75 |= kProjT|ypeResou|
|00003840| 72 63 65 3b 0d 0a 09 09 | 65 6c 73 65 20 69 66 28 |rce;....|else if(|
|00003850| 20 21 73 74 72 63 6d 70 | 28 20 77 6f 72 64 62 75 | !strcmp|( wordbu|
|00003860| 66 2c 20 22 4c 49 4e 4b | 22 20 29 20 29 0d 0a 09 |f, "LINK|" ) )...|
|00003870| 09 09 67 50 72 65 66 73 | 2e 6f 75 74 70 75 74 20 |..gPrefs|.output |
|00003880| 3d 20 6b 50 72 6f 6a 54 | 79 70 65 4c 69 6e 6b 65 |= kProjT|ypeLinke|
|00003890| 64 3b 0d 0a 09 09 65 6c | 73 65 0d 0a 09 09 09 65 |d;....el|se.....e|
|000038a0| 72 72 6f 72 20 3d 20 45 | 52 52 4f 52 5f 53 59 4e |rror = E|RROR_SYN|
|000038b0| 54 41 58 3b 0d 0a 09 7d | 0d 0a 09 72 65 74 75 72 |TAX;...}|...retur|
|000038c0| 6e 28 20 65 72 72 6f 72 | 20 29 3b 0d 0a 7d 0d 0a |n( error| );..}..|
|000038d0| 0d 0a 2f 2f 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..//====|========|
|000038e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000038f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003900| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 09 70 5f |========|=..//.p_|
|00003920| 52 45 53 49 4e 46 4f 0d | 0a 2f 2f 0d 0a 2f 2f 09 |RESINFO.|.//..//.|
|00003930| 41 6c 6c 6f 77 20 74 68 | 65 20 75 73 65 72 20 74 |Allow th|e user t|
|00003940| 6f 20 64 65 66 69 6e 65 | 20 74 68 65 20 74 79 70 |o define| the typ|
|00003950| 65 20 26 20 69 64 20 6f | 66 20 74 68 65 20 72 65 |e & id o|f the re|
|00003960| 73 6f 75 72 63 65 20 66 | 6f 72 20 74 68 69 73 20 |source f|or this |
|00003970| 64 61 74 61 0d 0a 2f 2f | 3d 3d 3d 3d 3d 3d 3d 3d |data..//|========|
|00003980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000039a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000039b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 0a 0d |========|=====...|
|000039c0| 0a 73 74 61 74 69 63 20 | 4f 53 45 72 72 20 70 5f |.static |OSErr p_|
|000039d0| 52 45 53 49 4e 46 4f 28 | 20 50 74 72 20 2a 73 20 |RESINFO(| Ptr *s |
|000039e0| 29 0d 0a 7b 0d 0a 09 4f | 53 45 72 72 20 09 09 65 |)..{...O|SErr ..e|
|000039f0| 72 72 6f 72 20 3d 20 6e | 6f 45 72 72 3b 0d 0a 09 |rror = n|oErr;...|
|00003a00| 55 4c 4f 4e 47 09 09 09 | 77 6f 72 6b 4c 3b 0d 0a |ULONG...|workL;..|
|00003a10| 0d 0a 09 2f 2f 20 46 69 | 72 73 74 2c 20 69 6e 73 |...// Fi|rst, ins|
|00003a20| 75 72 65 20 77 65 27 72 | 65 20 61 62 6c 65 20 74 |ure we'r|e able t|
|00003a30| 6f 20 75 73 65 20 74 68 | 69 73 20 70 73 65 75 64 |o use th|is pseud|
|00003a40| 6f 2d 6f 70 0d 0a 0d 0a | 09 69 66 28 20 67 50 72 |o-op....|.if( gPr|
|00003a50| 65 66 73 2e 6f 75 74 70 | 75 74 20 3d 3d 20 6b 50 |efs.outp|ut == kP|
|00003a60| 72 6f 6a 54 79 70 65 42 | 69 6e 61 72 79 20 26 26 |rojTypeB|inary &&|
|00003a70| 20 67 46 69 72 73 74 50 | 61 73 73 20 29 0d 0a 09 | gFirstP|ass )...|
|00003a80| 09 72 65 74 75 72 6e 28 | 20 45 72 72 6f 72 4d 65 |.return(| ErrorMe|
|00003a90| 73 73 61 67 65 28 20 57 | 41 52 4e 49 4e 47 5f 52 |ssage( W|ARNING_R|
|00003aa0| 45 53 50 53 45 55 44 4f | 2c 20 65 72 72 6f 72 2c |ESPSEUDO|, error,|
|00003ab0| 20 67 4c 69 6e 65 2c 20 | 6b 57 61 72 6e 69 6e 67 | gLine, |kWarning|
|00003ac0| 20 29 20 29 3b 0d 0a 0d | 0a 09 2f 2f 20 54 68 65 | ) );...|..// The|
|00003ad0| 6e 20 67 65 74 20 74 68 | 65 20 70 61 72 6d 73 0d |n get th|e parms.|
|00003ae0| 0a 0d 0a 09 69 66 28 20 | 67 53 74 61 74 65 20 3e |....if( |gState >|
|00003af0| 20 4c 49 4e 45 5f 4f 50 | 43 4f 44 45 20 29 09 2f | LINE_OP|CODE )./|
|00003b00| 2f 20 66 6f 72 6d 61 74 | 20 6d 75 73 74 20 62 65 |/ format| must be|
|00003b10| 3a 20 52 45 53 49 4e 46 | 4f 20 27 74 79 70 65 27 |: RESINF|O 'type'|
|00003b20| 2c 31 32 33 0d 0a 09 09 | 65 72 72 6f 72 20 3d 20 |,123....|error = |
|00003b30| 45 52 52 4f 52 5f 53 59 | 4e 54 41 58 3b 0d 0a 09 |ERROR_SY|NTAX;...|
|00003b40| 65 6c 73 65 20 69 66 28 | 20 21 67 46 69 72 73 74 |else if(| !gFirst|
|00003b50| 50 61 73 73 20 29 09 09 | 09 2f 2f 4c 52 20 39 35 |Pass )..|.//LR 95|
|00003b60| 31 31 31 31 20 3a 6f 6e | 6c 79 20 72 65 71 2e 20 |1111 :on|ly req. |
|00003b70| 6f 6e 20 73 65 63 6f 6e | 64 20 70 61 73 73 0d 0a |on secon|d pass..|
|00003b80| 09 7b 0d 0a 09 09 65 72 | 72 6f 72 20 3d 20 44 6f |.{....er|ror = Do|
|00003b90| 45 78 70 72 28 20 73 2c | 20 26 67 50 72 65 66 73 |Expr( s,| &gPrefs|
|00003ba0| 2e 74 79 70 65 20 29 3b | 0d 0a 09 09 69 66 28 20 |.type );|....if( |
|00003bb0| 21 65 72 72 6f 72 20 29 | 0d 0a 09 09 7b 0d 0a 09 |!error )|....{...|
|00003bc0| 09 09 65 72 72 6f 72 20 | 3d 20 44 6f 45 78 70 72 |..error |= DoExpr|
|00003bd0| 28 20 73 2c 20 26 77 6f | 72 6b 4c 20 29 3b 0d 0a |( s, &wo|rkL );..|
|00003be0| 09 09 09 69 66 28 20 21 | 65 72 72 6f 72 20 7c 7c |...if( !|error |||
|00003bf0| 20 65 72 72 6f 72 20 3d | 3d 20 45 52 52 4f 52 5f | error =|= ERROR_|
|00003c00| 45 4f 4c 20 29 09 2f 2f | 4c 52 20 39 35 31 31 31 |EOL ).//|LR 95111|
|00003c10| 31 20 3a 61 6c 6c 6f 77 | 20 65 6f 6c 20 65 72 72 |1 :allow| eol err|
|00003c20| 6f 72 73 21 0d 0a 09 09 | 09 7b 0d 0a 09 09 09 09 |ors!....|.{......|
|00003c30| 67 50 72 65 66 73 2e 69 | 64 20 3d 20 77 6f 72 6b |gPrefs.i|d = work|
|00003c40| 4c 3b 0d 0a 09 09 09 7d | 0d 0a 09 09 7d 0d 0a 09 |L;.....}|....}...|
|00003c50| 7d 0d 0a 0d 0a 09 72 65 | 74 75 72 6e 28 20 65 72 |}.....re|turn( er|
|00003c60| 72 6f 72 20 29 3b 0d 0a | 7d 0d 0a 0d 0a 2f 2f 3d |ror );..|}....//=|
|00003c70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ca0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003cb0| 3d 3d 3d 3d 0d 0a 2f 2f | 09 49 6e 69 74 50 73 65 |====..//|.InitPse|
|00003cc0| 75 64 6f 73 0d 0a 2f 2f | 0d 0a 2f 2f 09 43 72 65 |udos..//|..//.Cre|
|00003cd0| 61 74 65 20 68 61 73 68 | 20 74 61 62 6c 65 20 66 |ate hash| table f|
|00003ce0| 6f 72 20 71 75 69 63 6b | 20 63 6f 6d 70 61 72 69 |or quick| compari|
|00003cf0| 73 6f 6e 73 20 6f 66 20 | 6f 75 72 20 70 73 65 75 |sons of |our pseu|
|00003d00| 64 6f 73 0d 0a 2f 2f 3d | 3d 3d 3d 3d 3d 3d 3d 3d |dos..//=|========|
|00003d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003d30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003d40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0a 0d 0a |========|====....|
|00003d50| 4f 53 45 72 72 20 49 6e | 69 74 50 73 65 75 64 6f |OSErr In|itPseudo|
|00003d60| 73 28 20 53 69 7a 65 20 | 6d 61 78 5f 73 69 7a 65 |s( Size |max_size|
|00003d70| 20 29 0d 0a 7b 0d 0a 09 | 69 6e 74 20 69 3b 0d 0a | )..{...|int i;..|
|00003d80| 09 4f 53 45 72 72 20 65 | 72 72 3b 0d 0a 09 53 74 |.OSErr e|rr;...St|
|00003d90| 72 36 33 20 70 73 65 75 | 64 6f 3b 0d 0a 0d 0a 09 |r63 pseu|do;.....|
|00003da0| 67 4d 61 63 72 6f 4c 69 | 6e 65 50 74 72 20 3d 20 |gMacroLi|nePtr = |
|00003db0| 4e 65 77 50 74 72 28 20 | 6d 61 78 5f 73 69 7a 65 |NewPtr( |max_size|
|00003dc0| 20 29 3b 09 2f 2f 20 6d | 61 63 72 6f 20 6c 69 6e | );.// m|acro lin|
|00003dd0| 65 20 62 75 66 66 65 72 | 20 6f 66 20 6d 61 78 20 |e buffer| of max |
|00003de0| 73 69 7a 65 0d 0a 09 69 | 66 28 20 4d 65 6d 45 72 |size...i|f( MemEr|
|00003df0| 72 6f 72 28 29 20 29 0d | 0a 09 09 65 72 72 20 3d |ror() ).|...err =|
|00003e00| 20 45 52 52 4f 52 5f 4d | 45 4d 4f 52 59 3b 09 2f | ERROR_M|EMORY;./|
|00003e10| 2f 20 65 6c 73 65 20 65 | 72 72 20 3d 20 6e 6f 45 |/ else e|rr = noE|
|00003e20| 72 72 20 73 65 74 20 62 | 79 20 27 68 61 73 68 5f |rr set b|y 'hash_|
|00003e30| 41 64 64 27 20 61 62 6f | 76 65 0d 0a 0d 0a 09 67 |Add' abo|ve.....g|
|00003e40| 50 73 65 75 64 6f 54 62 | 6c 48 64 6c 20 3d 20 68 |PseudoTb|lHdl = h|
|00003e50| 61 73 68 5f 4e 65 77 28 | 20 50 53 45 55 44 4f 43 |ash_New(| PSEUDOC|
|00003e60| 4e 54 20 29 3b 0d 0a 0d | 0a 09 66 6f 72 28 20 69 |NT );...|..for( i|
|00003e70| 20 3d 20 30 3b 20 69 20 | 3c 20 50 53 45 55 44 4f | = 0; i |< PSEUDO|
|00003e80| 43 4e 54 3b 20 69 2b 2b | 20 29 0d 0a 09 7b 0d 0a |CNT; i++| )...{..|
|00003e90| 09 09 47 65 74 49 6e 64 | 53 74 72 69 6e 67 28 20 |..GetInd|String( |
|00003ea0| 70 73 65 75 64 6f 2c 20 | 50 53 45 55 44 4f 5f 52 |pseudo, |PSEUDO_R|
|00003eb0| 45 53 5f 53 54 52 2c 20 | 69 2b 31 20 29 3b 0d 0a |ES_STR, |i+1 );..|
|00003ec0| 09 09 50 74 6f 43 73 74 | 72 28 20 70 73 65 75 64 |..PtoCst|r( pseud|
|00003ed0| 6f 20 29 3b 0d 0a 09 09 | 69 66 28 20 28 65 72 72 |o );....|if( (err|
|00003ee0| 20 3d 20 68 61 73 68 5f | 41 64 64 28 20 67 50 73 | = hash_|Add( gPs|
|00003ef0| 65 75 64 6f 54 62 6c 48 | 64 6c 2c 20 28 63 68 61 |eudoTblH|dl, (cha|
|00003f00| 72 20 2a 29 70 73 65 75 | 64 6f 2c 20 69 20 29 29 |r *)pseu|do, i ))|
|00003f10| 20 21 3d 20 4e 4f 45 52 | 52 20 29 0d 0a 09 09 09 | != NOER|R ).....|
|00003f20| 72 65 74 75 72 6e 28 20 | 65 72 72 20 29 3b 0d 0a |return( |err );..|
|00003f30| 09 7d 0d 0a 0d 0a 09 72 | 65 74 75 72 6e 28 20 65 |.}.....r|eturn( e|
|00003f40| 72 72 20 29 3b 0d 0a 7d | 0d 0a 0d 0a 2f 2f 3d 3d |rr );..}|....//==|
|00003f50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f90| 3d 3d 3d 0d 0a 2f 2f 09 | 54 65 72 6d 50 73 65 75 |===..//.|TermPseu|
|00003fa0| 64 6f 73 0d 0a 2f 2f 0d | 0a 2f 2f 09 53 69 6d 70 |dos..//.|.//.Simp|
|00003fb0| 6c 79 20 66 72 65 65 73 | 20 61 6e 79 20 6d 65 6d |ly frees| any mem|
|00003fc0| 6f 72 79 20 77 65 27 76 | 65 20 61 6c 6c 6f 63 61 |ory we'v|e alloca|
|00003fd0| 74 65 64 20 66 6f 72 20 | 50 73 65 75 64 6f 20 68 |ted for |Pseudo h|
|00003fe0| 61 6e 64 6c 69 6e 67 0d | 0a 2f 2f 3d 3d 3d 3d 3d |andling.|.//=====|
|00003ff0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004000| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004030| 0d 0a 0d 0a 4f 53 45 72 | 72 20 54 65 72 6d 50 73 |....OSEr|r TermPs|
|00004040| 65 75 64 6f 73 28 20 76 | 6f 69 64 20 29 0d 0a 7b |eudos( v|oid )..{|
|00004050| 0d 0a 09 69 66 28 20 67 | 4d 61 63 72 6f 4c 69 6e |...if( g|MacroLin|
|00004060| 65 50 74 72 20 29 0d 0a | 09 09 44 69 73 70 6f 73 |ePtr )..|..Dispos|
|00004070| 65 50 74 72 28 20 67 4d | 61 63 72 6f 4c 69 6e 65 |ePtr( gM|acroLine|
|00004080| 50 74 72 20 29 3b 0d 0a | 0d 0a 09 68 61 73 68 5f |Ptr );..|...hash_|
|00004090| 44 69 73 70 6f 73 65 28 | 20 67 50 73 65 75 64 6f |Dispose(| gPseudo|
|000040a0| 54 62 6c 48 64 6c 20 29 | 3b 0d 0a 0d 0a 09 69 66 |TblHdl )|;.....if|
|000040b0| 28 20 4d 65 6d 45 72 72 | 6f 72 28 29 20 29 0d 0a |( MemErr|or() )..|
|000040c0| 09 09 72 65 74 75 72 6e | 28 20 45 52 52 4f 52 5f |..return|( ERROR_|
|000040d0| 4d 45 4d 4f 52 59 20 29 | 3b 0d 0a 09 65 6c 73 65 |MEMORY )|;...else|
|000040e0| 0d 0a 09 09 72 65 74 75 | 72 6e 28 20 6e 6f 45 72 |....retu|rn( noEr|
|000040f0| 72 20 29 3b 0d 0a 7d 0d | 0a 0d 0a 2f 2f 20 48 61 |r );..}.|...// Ha|
|00004100| 6e 64 6c 65 72 20 70 72 | 6f 63 20 69 73 20 64 65 |ndler pr|oc is de|
|00004110| 63 6c 61 72 65 64 20 68 | 65 72 65 20 62 65 63 61 |clared h|ere beca|
|00004120| 75 73 65 20 65 76 65 72 | 79 74 68 69 6e 67 20 69 |use ever|ything i|
|00004130| 73 20 64 65 63 6c 61 72 | 65 64 20 61 62 6f 76 65 |s declar|ed above|
|00004140| 0d 0a 0d 0a 50 53 45 55 | 44 4f 5f 50 52 4f 43 20 |....PSEU|DO_PROC |
|00004150| 70 48 61 6e 64 6c 65 72 | 5b 50 53 45 55 44 4f 43 |pHandler|[PSEUDOC|
|00004160| 4e 54 5d 20 3d 0d 0a 7b | 0d 0a 09 70 5f 49 4e 43 |NT] =..{|...p_INC|
|00004170| 4c 55 44 45 2c 0d 0a 09 | 70 5f 44 45 46 49 4e 45 |LUDE,...|p_DEFINE|
|00004180| 2c 0d 0a 09 70 5f 45 4e | 55 4d 2c 0d 0a 09 70 5f |,...p_EN|UM,...p_|
|00004190| 54 59 50 45 44 45 46 2c | 0d 0a 09 70 5f 45 51 55 |TYPEDEF,|...p_EQU|
|000041a0| 2c 0d 0a 09 70 5f 45 51 | 55 2c 0d 0a 09 70 5f 44 |,...p_EQ|U,...p_D|
|000041b0| 42 2c 0d 0a 09 70 5f 44 | 57 2c 0d 0a 09 70 5f 44 |B,...p_D|W,...p_D|
|000041c0| 4c 2c 0d 0a 09 70 5f 4f | 52 47 2c 0d 0a 09 70 5f |L,...p_O|RG,...p_|
|000041d0| 44 53 2c 0d 0a 09 70 5f | 44 43 2c 0d 0a 09 70 5f |DS,...p_|DC,...p_|
|000041e0| 44 43 53 2c 0d 0a 09 70 | 5f 44 54 2c 0d 0a 09 70 |DCS,...p|_DT,...p|
|000041f0| 5f 4d 41 43 52 4f 2c 0d | 0a 09 70 5f 45 4e 44 4d |_MACRO,.|..p_ENDM|
|00004200| 2c 0d 0a 09 70 5f 4f 55 | 54 46 49 4c 45 2c 0d 0a |,...p_OU|TFILE,..|
|00004210| 09 70 5f 52 45 53 49 4e | 46 4f 2c 0d 0a 09 70 5f |.p_RESIN|FO,...p_|
|00004220| 4f 55 54 54 59 50 45 0d | 0a 7d 3b 0d 0a 00 00 00 |OUTTYPE.|.};.....|
|00004230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004280| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00004290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000042a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000042b0| 09 50 53 45 55 44 4f 53 | 2e 43 02 00 00 00 54 45 |.PSEUDOS|.C....TE|
|000042c0| 58 54 64 6f 73 61 01 00 | 00 00 00 00 00 00 00 00 |XTdosa..|........|
|000042d0| 00 00 54 45 58 54 64 6f | 73 61 01 00 00 00 00 00 |..TEXTdo|sa......|
|000042e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042f0| 00 00 00 00 00 00 00 00 | 41 ad 00 00 01 9a 74 75 |........|A.....tu|
|00004300| 72 6e 73 20 61 20 76 61 | 6c 75 65 20 28 6f 72 20 |rns a va|lue (or |
|00004310| 65 72 72 6f 72 29 0d 0a | 2f 2f 09 28 74 6f 6b 65 |error)..|//.(toke|
|00004320| 6e 69 7a 61 74 69 6f 6e | 20 63 6f 64 65 20 66 6f |nization| code fo|
|00004330| 75 6e 64 20 69 6e 20 54 | 4f 4b 45 4e 2e 43 20 66 |und in T|OKEN.C f|
|00004340| 69 6c 65 29 0d 0a 2f 2f | 0d 0a 2f 2f 20 57 72 69 |ile)..//|..// Wri|
|00004350| 74 74 65 6e 20 62 79 20 | 4c 61 6e 65 20 52 6f 61 |tten by |Lane Roa|
|00004360| 74 68 65 0d 0a 2f 2f 20 | 28 63 29 20 43 6f 70 79 |the..// |(c) Copy|
|00004370| 72 69 67 68 74 20 31 39 | 39 35 20 49 64 65 61 73 |right 19|95 Ideas|
|00004380| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00004390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043a0| 00 00 00 00 00 00 00 02 | 00 02 00 74 00 1c 02 64 |........|...t...d|
|000043b0| 02 72 00 74 00 1c 02 64 | 02 72 af 78 72 e6 00 00 |.r.t...d|.r.xr...|
|000043c0| 06 00 00 00 06 00 00 00 | 05 ec 01 00 00 00 00 04 |........|........|
|000043d0| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|000043e0| 00 00 00 46 09 a5 80 74 | 26 ee 00 00 00 1c 00 46 |...F...t|&......F|
|000043f0| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00004400| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00004410| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00004420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
