home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-09-05 | 4.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: ';pchk'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 70 63 68 6b 7b 61 2c | 62 7d 00 3b 00 80 0d 20 |;pchk{a,|b}.;... |
|00000010| 70 63 68 6b 00 80 1c 20 | 60 31 3c 3e 60 32 00 20 |pchk... |`1<>`2. |
|00000020| 20 20 20 80 20 20 22 57 | 72 6f 6e 67 20 6e 75 6d | . "W|rong num|
|00000030| 62 65 72 20 6f 66 20 6d | 61 63 72 6f 20 70 61 72 |ber of m|acro par|
|00000040| 61 6d 65 74 65 72 73 22 | 00 80 1f 00 80 02 20 80 |ameters"|...... .|
|00000050| 0d 00 00 3b 65 63 68 6b | 7b 61 2c 62 7d 00 3b 00 |...;echk|{a,b}.;.|
|00000060| 80 0d 20 65 63 68 6b 00 | 80 1c 20 60 31 3c 60 32 |.. echk.|.. `1<`2|
|00000070| 00 20 20 20 20 80 20 20 | 22 4e 6f 74 20 65 6e 6f |. . |"Not eno|
|00000080| 75 67 68 20 70 61 72 61 | 6d 65 74 65 72 73 22 00 |ugh para|meters".|
|00000090| 80 1f 00 80 02 20 80 0d | 00 00 3b 73 79 73 6c 69 |..... ..|..;sysli|
|000000a0| 62 68 65 61 64 65 72 7b | 6c 69 62 6e 75 6d 2c 66 |bheader{|libnum,f|
|000000b0| 69 72 73 74 74 6f 6b 65 | 2c 6c 61 73 74 74 6f 6b |irsttoke|,lasttok|
|000000c0| 65 2b 31 2c 69 6e 69 74 | 2c 72 65 74 75 72 6e 2c |e+1,init|,return,|
|000000d0| 66 69 6e 69 74 2c 65 72 | 72 6f 72 5b 2c 66 6c 61 |finit,er|ror[,fla|
|000000e0| 67 73 5d 7d 00 3b 20 20 | 20 20 20 20 20 20 20 20 |gs]}.; | |
|000000f0| 20 20 20 20 20 31 20 20 | 20 20 20 20 20 20 32 20 | 1 | 2 |
|00000100| 20 20 20 20 20 20 20 20 | 33 20 20 20 20 20 20 20 | |3 |
|00000110| 34 20 20 20 20 20 35 20 | 20 20 20 20 20 36 20 20 |4 5 | 6 |
|00000120| 20 20 20 37 20 20 20 20 | 20 20 38 00 80 0d 20 73 | 7 | 8... s|
|00000130| 79 73 6c 69 62 68 65 61 | 64 65 72 00 80 1c 20 60 |yslibhea|der... `|
|00000140| 30 3c 3e 38 00 20 20 20 | 20 21 70 63 68 6b 7b 60 |0<>8. | !pchk{`|
|00000150| 30 2c 37 7d 00 20 20 20 | 20 80 81 20 23 30 2c 64 |0,7}. | .. #0,d|
|00000160| 30 3a 80 94 3a 80 25 20 | 60 31 3a 80 25 2e 6c 20 |0:..:.% |`1:.%.l |
|00000170| 30 2c 30 3a 80 25 20 60 | 32 2c 60 33 3a 80 25 2e |0,0:.% `|2,`3:.%.|
|00000180| 6c 20 30 2c 60 34 00 20 | 20 20 20 80 25 20 60 35 |l 0,`4. | .% `5|
|00000190| 3a 80 25 2e 6c 20 60 36 | 2c 30 2c 30 2c 30 2c 60 |:.%.l `6|,0,0,0,`|
|000001a0| 37 00 80 1e 00 20 20 20 | 20 80 81 20 23 30 2c 64 |7.... | .. #0,d|
|000001b0| 30 3a 80 94 3a 80 25 20 | 60 31 3a 80 25 2e 6c 20 |0:..:.% |`1:.%.l |
|000001c0| 30 3a 80 25 20 30 2c 60 | 38 2c 60 32 2c 60 33 3a |0:.% 0,`|8,`2,`3:|
|000001d0| 80 25 2e 6c 20 30 2c 60 | 34 00 20 20 20 20 80 25 |.%.l 0,`|4. .%|
|000001e0| 20 60 35 3a 80 25 2e 6c | 20 60 36 2c 30 2c 30 2c | `5:.%.l| `6,0,0,|
|000001f0| 30 2c 60 37 00 80 1f 00 | 80 02 20 80 0d 00 00 3b |0,`7....|.. ....;|
|00000200| 6c 69 62 68 65 61 64 65 | 72 7b 6c 69 62 6e 75 6d |libheade|r{libnum|
|00000210| 2c 69 6e 69 74 2c 72 65 | 74 75 72 6e 2c 66 69 6e |,init,re|turn,fin|
|00000220| 69 74 2c 65 72 72 6f 72 | 7d 00 3b 20 20 20 20 20 |it,error|}.; |
|00000230| 20 20 20 20 20 20 20 31 | 20 20 20 20 20 32 20 20 | 1| 2 |
|00000240| 20 20 20 33 20 20 20 20 | 20 20 34 20 20 20 20 35 | 3 | 4 5|
|00000250| 00 80 0d 20 6c 69 62 68 | 65 61 64 65 72 00 21 70 |... libh|eader.!p|
|00000260| 63 68 6b 7b 60 30 2c 35 | 7d 00 80 81 20 23 30 2c |chk{`0,5|}... #0,|
|00000270| 64 30 3a 80 94 3a 80 25 | 20 60 31 3a 80 28 2e 6c |d0:..:.%| `1:.(.l|
|00000280| 20 34 2c 30 3a 80 25 2e | 6c 20 60 32 3a 80 25 20 | 4,0:.%.|l `2:.% |
|00000290| 60 33 3a 80 25 2e 6c 20 | 60 34 00 80 28 2e 6c 20 |`3:.%.l |`4..(.l |
|000002a0| 33 2c 30 3a 80 25 2e 6c | 20 60 35 00 80 02 20 80 |3,0:.%.l| `5... .|
|000002b0| 0d 00 00 23 77 6f 72 64 | 72 65 74 3d 2d 31 3a 23 |...#word|ret=-1:#|
|000002c0| 6e 6f 72 65 74 3d 30 3a | 23 6c 6f 6e 67 72 65 74 |noret=0:|#longret|
|000002d0| 3d 31 00 00 3b 6c 69 62 | 66 69 6e 7b 7d 00 3b 6f |=1..;lib|fin{}.;o|
|000002e0| 72 20 6c 69 62 66 69 6e | 7b 74 6f 6b 65 2c 6c 6f |r libfin|{toke,lo|
|000002f0| 61 64 2c 73 61 76 65 2c | 75 73 65 2c 66 72 65 65 |ad,save,|use,free|
|00000300| 2c 64 65 66 6d 61 78 2c | 73 68 69 66 74 7d 20 69 |,defmax,|shift} i|
|00000310| 66 20 6d 61 78 69 6d 75 | 6d 73 20 6e 65 65 64 65 |f maximu|ms neede|
|00000320| 64 20 66 6f 72 20 74 68 | 69 73 00 3b 20 20 20 20 |d for th|is.; |
|00000330| 20 20 20 20 20 20 20 20 | 31 20 20 20 20 32 20 20 | |1 2 |
|00000340| 20 33 20 20 20 20 34 20 | 20 20 20 35 20 20 20 20 | 3 4 | 5 |
|00000350| 20 36 20 20 20 20 20 37 | 00 80 0d 20 6c 69 62 66 | 6 7|... libf|
|00000360| 69 6e 00 80 1c 20 60 30 | 3e 30 00 20 20 20 20 21 |in... `0|>0. !|
|00000370| 70 63 68 6b 7b 60 30 2c | 37 7d 00 80 1f 00 80 25 |pchk{`0,|7}.....%|
|00000380| 20 2d 31 00 80 1c 20 60 | 30 3d 30 00 20 20 20 20 | -1... `|0=0. |
|00000390| 80 25 2e 6c 20 30 00 80 | 1e 00 20 20 20 20 80 25 |.%.l 0..|.. .%|
|000003a0| 2e 6c 20 60 31 2c 60 32 | 2c 60 33 2c 60 34 2c 60 |.l `1,`2|,`3,`4,`|
|000003b0| 35 3a 80 25 20 30 2c 60 | 36 2c 60 37 00 80 1f 00 |5:.% 0,`|6,`7....|
|000003c0| 80 02 20 80 0d 00 00 3b | 61 73 74 61 74 65 6d 65 |.. ....;|astateme|
|000003d0| 6e 74 00 3b 00 80 0d 20 | 61 73 74 61 74 65 6d 65 |nt.;... |astateme|
|000003e0| 6e 74 00 21 70 63 68 6b | 7b 60 30 2c 30 7d 00 80 |nt.!pchk|{`0,0}..|
|000003f0| 25 20 31 2c 30 2c 30 00 | 80 02 20 80 0d 00 00 3b |% 1,0,0.|.. ....;|
|00000400| 75 73 74 61 74 65 6d 65 | 6e 74 20 2d 20 75 6e 6b |ustateme|nt - unk|
|00000410| 6e 6f 77 6e 20 74 79 70 | 65 2c 20 67 65 74 73 20 |nown typ|e, gets |
|00000420| 70 61 73 73 65 64 20 74 | 6f 20 73 75 62 20 6f 6e |passed t|o sub on|
|00000430| 20 74 68 65 20 73 74 61 | 63 6b 00 3b 00 80 0d 20 | the sta|ck.;... |
|00000440| 75 73 74 61 74 65 6d 65 | 6e 74 00 21 70 63 68 6b |ustateme|nt.!pchk|
|00000450| 7b 60 30 2c 30 7d 00 80 | 25 20 38 2b 31 2c 30 2c |{`0,0}..|% 8+1,0,|
|00000460| 30 00 80 02 20 80 0d 00 | 00 3b 61 66 75 6e 63 74 |0... ...|.;afunct|
|00000470| 69 6f 6e 7b 74 79 70 65 | 7d 00 3b 00 80 0d 20 61 |ion{type|}.;... a|
|00000480| 66 75 6e 63 74 69 6f 6e | 00 21 70 63 68 6b 7b 60 |function|.!pchk{`|
|00000490| 30 2c 31 7d 00 80 25 20 | 7b 60 31 20 80 7c 20 38 |0,1}..% |{`1 .| 8|
|000004a0| 7d 2b 32 2c 30 2c 30 00 | 80 02 20 80 0d 00 00 3b |}+2,0,0.|.. ....;|
|000004b0| 75 66 75 6e 63 74 69 6f | 6e 20 2d 20 75 6e 6b 6e |ufunctio|n - unkn|
|000004c0| 6f 77 6e 20 74 79 70 65 | 2c 20 74 79 70 65 20 73 |own type|, type s|
|000004d0| 65 6c 65 63 74 65 64 20 | 70 75 73 68 65 64 20 6f |elected |pushed o|
|000004e0| 6e 20 73 74 61 63 6b 00 | 3b 00 80 0d 20 75 66 75 |n stack.|;... ufu|
|000004f0| 6e 63 74 69 6f 6e 00 21 | 70 63 68 6b 7b 60 30 2c |nction.!|pchk{`0,|
|00000500| 30 7d 00 80 25 20 38 2b | 32 2c 30 2c 30 00 80 02 |0}..% 8+|2,0,0...|
|00000510| 20 80 0d 00 00 3b 61 63 | 6f 6d 6d 61 6e 64 7b 74 | ....;ac|ommand{t|
|00000520| 79 70 65 7d 00 3b 00 80 | 0d 20 61 63 6f 6d 6d 61 |ype}.;..|. acomma|
|00000530| 6e 64 00 21 70 63 68 6b | 7b 60 30 2c 31 7d 00 80 |nd.!pchk|{`0,1}..|
|00000540| 25 20 7b 60 31 20 80 7c | 20 38 7d 2b 33 2c 30 2c |% {`1 .|| 8}+3,0,|
|00000550| 30 00 80 02 20 80 0d 00 | 00 23 62 79 74 65 3d 31 |0... ...|.#byte=1|
|00000560| 00 23 77 6f 72 64 3d 32 | 00 23 6c 6f 6e 67 3d 33 |.#word=2|.#long=3|
|00000570| 00 23 71 75 69 63 6b 3d | 34 00 23 66 6c 6f 61 74 |.#quick=|4.#float|
|00000580| 3d 35 00 23 73 74 72 69 | 6e 67 3d 37 00 3b 00 23 |=5.#stri|ng=7.;.#|
|00000590| 75 73 65 73 69 7a 65 3d | 30 00 23 75 6e 6b 6e 6f |usesize=|0.#unkno|
|000005a0| 77 6e 3d 38 00 23 61 72 | 72 61 79 65 6e 64 3d 31 |wn=8.#ar|rayend=1|
|000005b0| 36 00 23 61 72 72 61 79 | 3d 33 32 00 23 70 75 73 |6.#array|=32.#pus|
|000005c0| 68 3d 36 34 00 23 76 61 | 72 70 74 72 3d 31 32 38 |h=64.#va|rptr=128|
|000005d0| 00 00 3b 70 75 74 61 72 | 67 73 7b 31 2c 32 2c 33 |..;putar|gs{1,2,3|
|000005e0| 2c 34 7d 00 3b 00 80 0d | 20 70 75 74 61 72 67 73 |,4}.;...| putargs|
|000005f0| 00 80 1d 20 22 60 31 22 | 3e 22 22 00 20 20 20 20 |... "`1"|>"". |
|00000600| 80 25 2e 62 20 60 31 3a | 21 70 75 74 61 72 67 73 |.%.b `1:|!putargs|
|00000610| 7b 60 32 2c 60 33 2c 60 | 34 2c 60 35 2c 60 36 2c |{`2,`3,`|4,`5,`6,|
|00000620| 60 37 2c 60 38 2c 60 39 | 2c 60 61 2c 60 62 2c 60 |`7,`8,`9|,`a,`b,`|
|00000630| 63 2c 60 64 2c 60 65 7d | 00 80 1f 00 80 02 20 80 |c,`d,`e}|...... .|
|00000640| 0d 00 00 3b 61 72 67 73 | 7b 31 2c 32 2c 33 2c 34 |...;args|{1,2,3,4|
|00000650| 2c 2e 2e 2e 7d 00 3b 00 | 80 0d 20 61 72 67 73 00 |,...}.;.|.. args.|
|00000660| 80 25 20 60 30 3a 21 70 | 75 74 61 72 67 73 7b 60 |.% `0:!p|utargs{`|
|00000670| 31 2c 60 32 2c 60 33 2c | 60 34 2c 60 35 2c 60 36 |1,`2,`3,|`4,`5,`6|
|00000680| 2c 60 37 2c 60 38 2c 60 | 39 2c 60 61 2c 60 62 2c |,`7,`8,`|9,`a,`b,|
|00000690| 60 63 2c 60 64 2c 60 65 | 2c 60 66 7d 00 80 27 00 |`c,`d,`e|,`f}..'.|
|000006a0| 80 02 20 80 0d 00 00 3b | 72 65 70 61 72 67 73 7b |.. ....;|repargs{|
|000006b0| 66 69 72 73 74 20 72 65 | 70 2c 6e 75 6d 20 72 65 |first re|p,num re|
|000006c0| 70 2c 31 2c 32 2c 33 2c | 34 2e 2e 2e 2e 2e 7d 00 |p,1,2,3,|4.....}.|
|000006d0| 3b 00 80 0d 20 72 65 70 | 61 72 67 73 00 21 65 63 |;... rep|args.!ec|
|000006e0| 68 6b 7b 60 30 2c 33 7d | 00 80 25 20 7b 60 31 20 |hk{`0,3}|..% {`1 |
|000006f0| 80 7c 20 31 32 7d 20 80 | 8a 20 7b 60 32 20 80 7c |.| 12} .|. {`2 .||
|00000700| 20 38 7d 20 80 8a 20 7b | 60 30 2d 32 7d 00 21 70 | 8} .. {|`0-2}.!p|
|00000710| 75 74 61 72 67 73 7b 60 | 33 2c 60 34 2c 60 35 2c |utargs{`|3,`4,`5,|
|00000720| 60 36 2c 60 37 2c 60 38 | 2c 60 39 2c 60 61 2c 60 |`6,`7,`8|,`9,`a,`|
|00000730| 62 2c 60 63 2c 60 64 2c | 60 65 2c 60 66 2c 60 67 |b,`c,`d,|`e,`f,`g|
|00000740| 2c 60 68 2c 60 69 2c 60 | 6a 2c 60 6b 7d 00 80 27 |,`h,`i,`|j,`k}..'|
|00000750| 00 80 02 20 80 0d 00 00 | 3b 70 75 74 6c 69 62 73 |... ....|;putlibs|
|00000760| 00 3b 00 80 0d 20 70 75 | 74 6c 69 62 73 00 80 1d |.;... pu|tlibs...|
|00000770| 20 22 60 31 22 3e 22 22 | 00 20 20 20 20 80 25 20 | "`1">""|. .% |
|00000780| 60 31 2c 60 32 3a 21 70 | 75 74 6c 69 62 73 7b 60 |`1,`2:!p|utlibs{`|
|00000790| 33 2c 60 34 2c 60 35 2c | 60 36 2c 60 37 2c 60 38 |3,`4,`5,|`6,`7,`8|
|000007a0| 2c 60 39 2c 60 61 2c 60 | 62 2c 60 63 2c 60 64 2c |,`9,`a,`|b,`c,`d,|
|000007b0| 60 65 2c 60 66 7d 00 80 | 1f 00 80 02 20 80 0d 00 |`e,`f}..|.... ...|
|000007c0| 00 3b 6c 69 62 73 7b 6c | 69 62 2c 72 65 67 2c 6c |.;libs{l|ib,reg,l|
|000007d0| 69 62 2c 72 65 67 2e 2e | 2e 2e 7d 00 3b 00 80 0d |ib,reg..|..}.;...|
|000007e0| 20 6c 69 62 73 00 21 70 | 63 68 6b 7b 28 60 30 20 | libs.!p|chk{(`0 |
|000007f0| 80 42 20 31 29 2c 30 7d | 00 21 70 75 74 6c 69 62 |.B 1),0}|.!putlib|
|00000800| 73 7b 60 31 2c 60 32 2c | 60 33 2c 60 34 2c 60 35 |s{`1,`2,|`3,`4,`5|
|00000810| 2c 60 36 2c 60 37 2c 60 | 38 2c 60 39 2c 60 61 2c |,`6,`7,`|8,`9,`a,|
|00000820| 60 62 2c 60 63 2c 60 64 | 2c 60 65 2c 60 66 2c 60 |`b,`c,`d|,`e,`f,`|
|00000830| 67 2c 60 68 7d 00 80 25 | 20 30 00 80 02 20 80 0d |g,`h}..%| 0... ..|
|00000840| 00 00 3b 54 68 65 73 65 | 20 63 6f 6e 73 74 61 6e |..;These| constan|
|00000850| 74 73 20 61 72 65 20 66 | 6f 72 20 70 61 73 73 69 |ts are f|or passi|
|00000860| 6e 67 20 64 61 74 61 20 | 64 69 72 65 63 74 6c 79 |ng data |directly|
|00000870| 20 74 6f 20 61 20 72 65 | 67 69 73 74 65 72 00 3b | to a re|gister.;|
|00000880| 66 72 6f 6d 20 61 20 6c | 69 62 72 61 72 79 2e 00 |from a l|ibrary..|
|00000890| 3b 00 23 6c 64 30 3d 30 | 3a 23 6c 64 31 3d 24 31 |;.#ld0=0|:#ld1=$1|
|000008a0| 30 30 3a 23 6c 64 32 3d | 24 32 30 30 3a 23 6c 64 |00:#ld2=|$200:#ld|
|000008b0| 33 3d 24 33 30 30 00 23 | 6c 64 34 3d 24 34 30 30 |3=$300.#|ld4=$400|
|000008c0| 3a 23 6c 64 35 3d 24 35 | 30 30 3a 23 6c 64 36 3d |:#ld5=$5|00:#ld6=|
|000008d0| 24 36 30 30 3a 23 6c 64 | 37 3d 24 37 30 30 00 3b |$600:#ld|7=$700.;|
|000008e0| 00 23 6c 61 30 3d 24 31 | 30 30 30 3a 23 6c 61 31 |.#la0=$1|000:#la1|
|000008f0| 3d 24 31 31 30 30 3a 23 | 6c 61 32 3d 24 31 32 30 |=$1100:#|la2=$120|
|00000900| 30 3a 23 6c 61 33 3d 24 | 31 33 30 30 00 23 6c 61 |0:#la3=$|1300.#la|
|00000910| 36 3d 24 31 36 30 30 00 | 00 3b 54 68 69 73 20 6f |6=$1600.|.;This o|
|00000920| 6e 65 20 6d 65 61 6e 73 | 20 79 6f 75 20 77 61 6e |ne means| you wan|
|00000930| 74 20 69 74 20 70 75 73 | 68 65 64 20 6f 6e 20 74 |t it pus|hed on t|
|00000940| 68 65 20 73 74 61 63 6b | 00 3b 00 23 6c 70 75 73 |he stack|.;.#lpus|
|00000950| 68 3d 24 66 66 30 30 00 | 00 3b 41 73 6b 69 6e 67 |h=$ff00.|.;Asking|
|00000960| 20 66 6f 72 20 61 20 55 | 53 45 44 20 74 79 70 65 | for a U|SED type|
|00000970| 20 64 61 74 61 20 70 75 | 74 73 20 74 68 65 20 63 | data pu|ts the c|
|00000980| 75 72 72 65 6e 74 6c 79 | 20 75 73 65 64 00 3b 73 |urrently| used.;s|
|00000990| 74 72 75 63 74 20 6f 66 | 20 61 20 6d 61 78 20 74 |truct of| a max t|
|000009a0| 79 70 65 20 6c 69 62 20 | 69 6e 74 6f 20 74 68 65 |ype lib |into the|
|000009b0| 20 61 70 70 72 6f 70 72 | 69 61 74 65 20 72 65 67 | appropr|iate reg|
|000009c0| 00 3b 00 23 75 73 65 64 | 3d 32 00 3b 00 23 75 64 |.;.#used|=2.;.#ud|
|000009d0| 30 3d 23 6c 64 30 7c 23 | 75 73 65 64 3a 23 75 64 |0=#ld0|#|used:#ud|
|000009e0| 31 3d 23 6c 64 31 7c 23 | 75 73 65 64 00 23 75 64 |1=#ld1|#|used.#ud|
|000009f0| 32 3d 23 6c 64 32 7c 23 | 75 73 65 64 3a 23 75 64 |2=#ld2|#|used:#ud|
|00000a00| 33 3d 23 6c 64 33 7c 23 | 75 73 65 64 00 23 75 64 |3=#ld3|#|used.#ud|
|00000a10| 34 3d 23 6c 64 34 7c 23 | 75 73 65 64 3a 23 75 64 |4=#ld4|#|used:#ud|
|00000a20| 35 3d 23 6c 64 35 7c 23 | 75 73 65 64 00 23 75 64 |5=#ld5|#|used.#ud|
|00000a30| 36 3d 23 6c 64 36 7c 23 | 75 73 65 64 3a 23 75 64 |6=#ld6|#|used:#ud|
|00000a40| 37 3d 23 6c 64 37 7c 23 | 75 73 65 64 00 00 23 75 |7=#ld7|#|used..#u|
|00000a50| 61 30 3d 23 6c 61 30 7c | 23 75 73 65 64 3a 23 75 |a0=#la0||#used:#u|
|00000a60| 61 31 3d 23 6c 61 31 7c | 23 75 73 65 64 00 23 75 |a1=#la1||#used.#u|
|00000a70| 61 32 3d 23 6c 61 32 7c | 23 75 73 65 64 3a 23 75 |a2=#la2||#used:#u|
|00000a80| 61 33 3d 23 6c 61 33 7c | 23 75 73 65 64 00 23 75 |a3=#la3||#used.#u|
|00000a90| 61 36 3d 23 6c 61 36 7c | 23 75 73 65 64 00 00 3b |a6=#la6||#used..;|
|00000aa0| 41 73 6b 69 6e 67 20 66 | 6f 72 20 61 20 42 41 53 |Asking f|or a BAS|
|00000ab0| 45 20 74 79 70 65 20 64 | 61 74 61 20 70 75 74 73 |E type d|ata puts|
|00000ac0| 20 74 68 65 20 62 61 73 | 65 20 69 74 65 6d 20 28 | the bas|e item (|
|00000ad0| 69 74 65 6d 20 30 29 00 | 3b 6f 66 20 61 20 62 6c |item 0).|;of a bl|
|00000ae0| 6f 63 6b 20 6f 66 20 6d | 61 78 20 74 79 70 65 20 |ock of m|ax type |
|00000af0| 73 74 72 75 63 74 73 20 | 69 6e 74 6f 20 74 68 65 |structs |into the|
|00000b00| 20 70 61 72 69 74 63 75 | 6c 61 72 20 72 65 67 00 | paritcu|lar reg.|
|00000b10| 3b 00 23 62 61 73 65 3d | 31 00 3b 00 23 62 64 30 |;.#base=|1.;.#bd0|
|00000b20| 3d 23 6c 64 30 7c 23 62 | 61 73 65 3a 23 62 64 31 |=#ld0|#b|ase:#bd1|
|00000b30| 3d 23 6c 64 31 7c 23 62 | 61 73 65 00 23 62 64 32 |=#ld1|#b|ase.#bd2|
|00000b40| 3d 23 6c 64 32 7c 23 62 | 61 73 65 3a 23 62 64 33 |=#ld2|#b|ase:#bd3|
|00000b50| 3d 23 6c 64 33 7c 23 62 | 61 73 65 00 23 62 64 34 |=#ld3|#b|ase.#bd4|
|00000b60| 3d 23 6c 64 34 7c 23 62 | 61 73 65 3a 23 62 64 35 |=#ld4|#b|ase:#bd5|
|00000b70| 3d 23 6c 64 35 7c 23 62 | 61 73 65 00 23 62 64 36 |=#ld5|#b|ase.#bd6|
|00000b80| 3d 23 6c 64 36 7c 23 62 | 61 73 65 3a 23 62 64 37 |=#ld6|#b|ase:#bd7|
|00000b90| 3d 23 6c 64 37 7c 23 62 | 61 73 65 00 3b 00 23 62 |=#ld7|#b|ase.;.#b|
|00000ba0| 61 30 3d 23 6c 61 30 7c | 23 62 61 73 65 3a 23 62 |a0=#la0||#base:#b|
|00000bb0| 61 31 3d 23 6c 61 31 7c | 23 62 61 73 65 00 23 62 |a1=#la1||#base.#b|
|00000bc0| 61 32 3d 23 6c 61 32 7c | 23 62 61 73 65 3a 23 62 |a2=#la2||#base:#b|
|00000bd0| 61 33 3d 23 6c 61 33 7c | 23 62 61 73 65 00 23 62 |a3=#la3||#base.#b|
|00000be0| 61 36 3d 23 6c 61 36 7c | 23 62 61 73 65 00 00 3b |a6=#la6||#base..;|
|00000bf0| 41 73 6b 69 6e 67 20 66 | 6f 72 20 49 54 45 4d 20 |Asking f|or ITEM |
|00000c00| 74 79 70 65 20 64 61 74 | 61 20 63 61 6c 63 75 6c |type dat|a calcul|
|00000c10| 61 74 65 73 20 61 20 6d | 61 78 20 74 79 70 65 20 |ates a m|ax type |
|00000c20| 73 74 72 75 63 74 00 3b | 65 6e 74 72 79 20 62 61 |struct.;|entry ba|
|00000c30| 73 65 64 20 6f 6e 20 61 | 20 73 70 65 63 69 66 69 |sed on a| specifi|
|00000c40| 65 64 20 64 61 74 61 20 | 72 65 67 69 73 74 65 72 |ed data |register|
|00000c50| 2e 20 4a 75 73 74 20 4f | 52 00 3b 69 6e 20 74 68 |. Just O|R.;in th|
|00000c60| 65 20 70 61 72 61 6d 74 | 65 72 20 28 23 70 64 30 |e paramt|er (#pd0|
|00000c70| 2d 23 70 64 37 29 20 79 | 6f 75 20 77 68 69 63 68 |-#pd7) y|ou which|
|00000c80| 20 74 6f 20 75 73 65 20 | 69 6e 20 74 68 65 00 3b | to use |in the.;|
|00000c90| 63 61 6c 63 75 6c 61 74 | 69 6f 6e 2e 20 54 68 65 |calculat|ion. The|
|00000ca0| 20 66 69 6e 61 6c 20 70 | 6f 69 6e 74 65 72 20 65 | final p|ointer e|
|00000cb0| 6e 64 73 20 69 6e 20 61 | 6e 20 61 64 64 72 65 73 |nds in a|n addres|
|00000cc0| 73 20 72 65 67 69 73 74 | 65 72 00 3b 00 23 70 64 |s regist|er.;.#pd|
|00000cd0| 30 3d 30 3a 23 70 64 31 | 3d 31 3a 23 70 64 32 3d |0=0:#pd1|=1:#pd2=|
|00000ce0| 32 3a 23 70 64 33 3d 33 | 00 23 70 64 34 3d 34 3a |2:#pd3=3|.#pd4=4:|
|00000cf0| 23 70 64 35 3d 35 3a 23 | 70 64 36 3d 36 3a 23 70 |#pd5=5:#|pd6=6:#p|
|00000d00| 64 37 3d 37 00 3b 00 23 | 69 74 65 6d 3d 24 38 30 |d7=7.;.#|item=$80|
|00000d10| 00 3b 00 23 69 61 30 3d | 23 6c 61 30 7c 23 69 74 |.;.#ia0=|#la0|#it|
|00000d20| 65 6d 3a 23 69 61 31 3d | 23 6c 61 31 7c 23 69 74 |em:#ia1=|#la1|#it|
|00000d30| 65 6d 00 23 69 61 32 3d | 23 6c 61 32 7c 23 69 74 |em.#ia2=|#la2|#it|
|00000d40| 65 6d 3a 23 69 61 33 3d | 23 6c 61 33 7c 23 69 74 |em:#ia3=|#la3|#it|
|00000d50| 65 6d 00 23 69 61 36 3d | 23 6c 61 36 7c 23 69 74 |em.#ia6=|#la6|#it|
|00000d60| 65 6d 00 00 3b 41 73 6b | 69 6e 67 20 66 6f 72 20 |em..;Ask|ing for |
|00000d70| 61 20 4d 41 58 20 74 79 | 70 65 20 64 61 74 61 20 |a MAX ty|pe data |
|00000d80| 70 61 73 73 65 73 20 74 | 68 65 20 63 75 72 72 65 |passes t|he curre|
|00000d90| 6e 74 6c 79 20 64 65 66 | 69 6e 65 64 00 3b 6d 61 |ntly def|ined.;ma|
|00000da0| 78 69 6d 75 6d 20 73 65 | 74 74 69 6e 67 20 61 73 |ximum se|tting as|
|00000db0| 20 73 65 6c 65 63 74 65 | 64 20 69 6e 20 43 4f 4d | selecte|d in COM|
|00000dc0| 50 49 4c 45 52 20 4f 50 | 54 49 4f 4e 53 00 3b 00 |PILER OP|TIONS.;.|
|00000dd0| 23 6d 61 78 3d 33 00 3b | 00 23 6d 64 30 3d 23 6c |#max=3.;|.#md0=#l|
|00000de0| 64 30 7c 23 6d 61 78 3a | 23 6d 64 31 3d 23 6c 64 |d0|#max:|#md1=#ld|
|00000df0| 31 7c 23 6d 61 78 00 23 | 6d 64 32 3d 23 6c 64 32 |1|#max.#|md2=#ld2|
|00000e00| 7c 23 6d 61 78 3a 23 6d | 64 33 3d 23 6c 64 33 7c ||#max:#m|d3=#ld3||
|00000e10| 23 6d 61 78 00 23 6d 64 | 34 3d 23 6c 64 34 7c 23 |#max.#md|4=#ld4|#|
|00000e20| 6d 61 78 3a 23 6d 64 35 | 3d 23 6c 64 35 7c 23 6d |max:#md5|=#ld5|#m|
|00000e30| 61 78 00 23 6d 64 36 3d | 23 6c 64 36 7c 23 6d 61 |ax.#md6=|#ld6|#ma|
|00000e40| 78 3a 23 6d 64 37 3d 23 | 6c 64 37 7c 23 6d 61 78 |x:#md7=#|ld7|#max|
|00000e50| 00 3b 00 23 6d 61 30 3d | 23 6c 61 30 7c 23 6d 61 |.;.#ma0=|#la0|#ma|
|00000e60| 78 3a 23 6d 61 31 3d 23 | 6c 61 31 7c 23 6d 61 78 |x:#ma1=#|la1|#max|
|00000e70| 00 23 6d 61 32 3d 23 6c | 61 32 7c 23 6d 61 78 3a |.#ma2=#l|a2|#max:|
|00000e80| 23 6d 61 33 3d 23 6c 61 | 33 7c 23 6d 61 78 00 23 |#ma3=#la|3|#max.#|
|00000e90| 6d 61 36 3d 23 6c 61 36 | 7c 23 6d 61 78 00 00 3b |ma6=#la6||#max..;|
|00000ea0| 73 75 62 73 7b 63 6f 64 | 65 2c 65 72 72 6f 72 31 |subs{cod|e,error1|
|00000eb0| 2c 30 7d 00 3b 00 80 0d | 20 73 75 62 73 00 21 70 |,0}.;...| subs.!p|
|00000ec0| 63 68 6b 7b 60 30 2c 33 | 7d 00 80 25 2e 6c 20 60 |chk{`0,3|}..%.l `|
|00000ed0| 32 2c 60 31 2c 60 33 00 | 80 27 00 80 02 20 80 0d |2,`1,`3.|.'... ..|
|00000ee0| 00 00 3b 6e 61 6d 65 7b | 22 6e 61 6d 65 22 2c 22 |..;name{|"name","|
|00000ef0| 68 65 6c 70 22 7d 00 3b | 6f 72 20 6e 61 6d 65 7b |help"}.;|or name{|
|00000f00| 22 6e 61 6d 65 22 2c 22 | 68 65 6c 70 22 2c 6c 61 |"name","|help",la|
|00000f10| 62 65 6c 7d 00 3b 00 80 | 0d 20 6e 61 6d 65 00 80 |bel}.;..|. name..|
|00000f20| 1c 20 60 30 3c 3e 32 00 | 20 20 20 20 21 70 63 68 |. `0<>2.| !pch|
|00000f30| 6b 7b 60 30 2c 33 7d 00 | 80 1f 00 80 25 20 2d 31 |k{`0,3}.|....% -1|
|00000f40| 3a 80 25 2e 6c 20 30 3a | 80 25 20 30 00 60 33 3a |:.%.l 0:|.% 0.`3:|
|00000f50| 80 25 2e 62 20 60 31 2c | 30 00 80 25 2e 62 20 60 |.%.b `1,|0..%.b `|
|00000f60| 32 2c 30 00 80 27 00 80 | 02 20 80 0d 00 00 3b 6e |2,0..'..|. ....;n|
|00000f70| 75 6c 6c 73 75 62 7b 72 | 6f 75 74 69 6e 65 2c 65 |ullsub{r|outine,e|
|00000f80| 72 72 6f 72 31 2c 65 72 | 72 6f 72 32 2c 6c 69 62 |rror1,er|ror2,lib|
|00000f90| 2c 6c 69 62 2c 6c 69 62 | 2e 2e 2e 2e 7d 00 3b 00 |,lib,lib|....}.;.|
|00000fa0| 80 0d 20 6e 75 6c 6c 73 | 75 62 00 21 65 63 68 6b |.. nulls|ub.!echk|
|00000fb0| 7b 60 30 2c 33 7d 00 80 | 25 20 30 2c 30 2c 30 00 |{`0,3}..|% 0,0,0.|
|00000fc0| 21 6c 69 62 73 7b 60 34 | 2c 60 35 2c 60 36 2c 60 |!libs{`4|,`5,`6,`|
|00000fd0| 37 2c 60 38 2c 60 39 2c | 60 61 2c 60 62 2c 60 63 |7,`8,`9,|`a,`b,`c|
|00000fe0| 2c 60 64 2c 60 65 2c 60 | 66 7d 00 80 25 2e 6c 20 |,`d,`e,`|f}..%.l |
|00000ff0| 60 32 2c 60 31 2c 60 33 | 00 80 02 20 80 0d 00 00 |`2,`1,`3|... ....|
|00001000| 3b 64 75 6d 74 6f 6b 65 | 7b 22 6e 61 6d 65 22 2c |;dumtoke|{"name",|
|00001010| 22 68 65 6c 70 22 2c 6c | 61 62 65 6c 7d 00 3b 00 |"help",l|abel}.;.|
|00001020| 80 0d 20 64 75 6d 74 6f | 6b 65 00 21 70 63 68 6b |.. dumto|ke.!pchk|
|00001030| 7b 33 2c 60 30 7d 00 80 | 25 20 38 2c 30 2c 30 3a |{3,`0}..|% 8,0,0:|
|00001040| 80 25 2e 6c 20 30 3a 80 | 25 20 30 00 60 33 3a 80 |.%.l 0:.|% 0.`3:.|
|00001050| 25 2e 62 20 60 31 2c 30 | 00 80 25 2e 62 20 60 32 |%.b `1,0|..%.b `2|
|00001060| 2c 30 00 80 27 00 80 02 | 20 80 0d 00 00 80 0d 20 |,0..'...| ...... |
|00001070| 62 6c 69 74 77 61 69 74 | 00 80 57 20 23 36 2c 24 |blitwait|..W #6,$|
|00001080| 30 30 32 28 61 31 29 3a | 27 62 6c 69 74 77 61 69 |002(a1):|'blitwai|
|00001090| 74 60 40 3a 80 57 20 23 | 36 2c 24 30 30 32 28 61 |t`@:.W #|6,$002(a|
|000010a0| 31 29 3a 80 50 20 27 62 | 6c 69 74 77 61 69 74 60 |1):.P 'b|litwait`|
|000010b0| 40 00 80 02 20 80 0d 00 | 00 3b 63 6f 70 77 61 69 |@... ...|.;copwai|
|000010c0| 74 7b 78 2c 79 7d 00 3b | 00 80 0d 20 63 6f 70 77 |t{x,y}.;|... copw|
|000010d0| 61 69 74 00 21 70 63 68 | 6b 7b 32 2c 60 30 7d 00 |ait.!pch|k{2,`0}.|
|000010e0| 80 25 20 7b 7b 60 32 20 | 80 7c 20 38 7d 20 80 8a |.% {{`2 |.| 8} ..|
|000010f0| 20 60 31 7d 2b 37 2c 24 | 66 66 66 65 00 80 02 20 | `1}+7,$|fffe... |
|00001100| 80 0d 00 00 3b 63 6f 70 | 6d 6f 76 65 7b 72 65 67 |....;cop|move{reg|
|00001110| 2c 76 61 6c 7d 00 3b 00 | 80 0d 20 63 6f 70 6d 6f |,val}.;.|.. copmo|
|00001120| 76 65 00 21 70 63 68 6b | 7b 32 2c 60 30 7d 00 80 |ve.!pchk|{2,`0}..|
|00001130| 25 20 60 31 2c 60 32 00 | 80 02 20 80 0d 00 00 3b |% `1,`2.|.. ....;|
|00001140| 63 6f 70 65 6e 64 00 3b | 00 80 0d 20 63 6f 70 65 |copend.;|... cope|
|00001150| 6e 64 00 21 70 63 68 6b | 7b 30 2c 60 30 7d 00 80 |nd.!pchk|{0,`0}..|
|00001160| 25 20 24 66 66 66 66 2c | 24 66 66 66 65 00 80 02 |% $ffff,|$fffe...|
|00001170| 20 80 0d 00 00 80 13 20 | 22 6c 69 62 6e 75 6d 73 | ...... |"libnums|
|00001180| 2e 62 62 22 00 00 3b 53 | 65 74 74 69 6e 67 20 75 |.bb"..;S|etting u|
|00001190| 70 20 61 20 6c 69 62 72 | 61 72 79 20 73 68 6f 75 |p a libr|ary shou|
|000011a0| 6c 64 20 68 61 70 70 65 | 6e 20 61 73 20 66 6f 6c |ld happe|n as fol|
|000011b0| 6c 6f 77 73 3a 00 3b 00 | 3b 61 6e 79 20 64 75 6d |lows:.;.|;any dum|
|000011c0| 74 6f 6b 65 73 20 66 6f | 72 20 6f 62 6a 65 63 74 |tokes fo|r object|
|000011d0| 20 6e 61 6d 65 73 20 73 | 68 6f 75 6c 64 20 62 65 | names s|hould be|
|000011e0| 20 61 74 20 74 68 65 20 | 74 6f 70 00 3b 28 61 66 | at the |top.;(af|
|000011f0| 74 65 72 20 6c 69 62 68 | 65 61 64 65 72 29 2c 20 |ter libh|eader), |
|00001200| 73 6f 20 74 68 65 79 20 | 64 6f 6e 27 74 20 67 65 |so they |don't ge|
|00001210| 74 20 6d 6f 76 65 64 20 | 61 72 6f 75 6e 64 20 77 |t moved |around w|
|00001220| 68 65 6e 00 3b 74 68 65 | 20 6c 69 62 72 61 72 79 |hen.;the| library|
|00001230| 20 69 73 20 65 78 74 65 | 6e 64 65 64 2e 00 3b 00 | is exte|nded..;.|
|00001240| 3b 20 20 20 21 6c 69 62 | 68 65 61 64 65 72 00 3b |; !lib|header.;|
|00001250| 00 3b 20 20 20 5b 21 64 | 75 6d 74 6f 6b 65 5d 20 |.; [!d|umtoke] |
|00001260| 66 6f 72 20 6f 62 6a 65 | 63 74 20 6e 61 6d 65 20 |for obje|ct name |
|00001270| 2d 3e 20 69 66 20 6f 62 | 6a 65 63 74 20 74 79 70 |-> if ob|ject typ|
|00001280| 65 20 6c 69 62 21 00 3b | 00 3b 20 20 20 21 61 73 |e lib!.;|.; !as|
|00001290| 74 61 74 65 6d 65 6e 74 | 2f 21 66 75 6e 63 74 69 |tatement|/!functi|
|000012a0| 6f 6e 2f 21 75 73 74 61 | 74 65 6d 65 6e 74 2f 21 |on/!usta|tement/!|
|000012b0| 75 66 75 6e 63 74 69 6f | 6e 00 3b 20 20 20 21 61 |ufunctio|n.; !a|
|000012c0| 72 67 73 00 3b 20 20 20 | 21 6c 69 62 73 00 3b 20 |rgs.; |!libs.; |
|000012d0| 20 20 21 73 75 62 73 20 | 5b 62 61 63 6b 20 74 6f | !subs |[back to|
|000012e0| 20 61 72 67 73 2f 6c 69 | 62 73 20 69 66 20 6d 6f | args/li|bs if mo|
|000012f0| 72 65 5d 00 3b 20 20 20 | 21 6e 61 6d 65 00 3b 00 |re].; |!name.;.|
|00001300| 3b 20 20 20 21 61 73 74 | 61 74 65 6d 65 6e 74 00 |; !ast|atement.|
|00001310| 3b 20 20 20 2e 00 3b 20 | 20 20 2e 00 3b 20 20 20 |; ..; | ..; |
|00001320| 2e 00 3b 00 3b 20 20 20 | 21 6c 69 62 66 69 6e 00 |..;.; |!libfin.|
|00001330| 3b 00 3b 54 68 65 6e 20 | 79 6f 75 72 20 61 63 74 |;.;Then |your act|
|00001340| 75 61 6c 20 63 6f 64 65 | 21 00 00 |ual code|!.. |
+--------+-------------------------+-------------------------+--------+--------+
