home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-09-23 | 8.4 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%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 46 69 | 6c 74 65 72 4c 69 62 0d |..... Fi|lterLib.|
|00000010| 00 14 2b f4 20 4c 69 62 | 72 61 72 79 20 66 6f 72 |..+. Lib|rary for|
|00000020| 20 46 49 4c 54 45 52 53 | 45 4c 20 66 69 6c 74 65 | FILTERS|EL filte|
|00000030| 72 20 70 72 6f 67 72 61 | 6d 73 0d 00 1e 1c f4 20 |r progra|ms..... |
|00000040| 57 72 69 74 74 65 6e 20 | 62 79 20 44 61 72 72 65 |Written |by Darre|
|00000050| 6e 20 53 61 6c 74 0d 00 | 28 1e f4 20 56 65 72 73 |n Salt..|(.. Vers|
|00000060| 69 6f 6e 20 31 2e 30 30 | 2c 20 39 20 53 65 70 20 |ion 1.00|, 9 Sep |
|00000070| 31 39 39 35 0d 00 32 04 | 0d 00 3c 26 f4 20 43 6f |1995..2.|..<&. Co|
|00000080| 6d 6d 65 6e 74 73 20 61 | 6e 64 20 65 78 74 65 6e |mments a|nd exten|
|00000090| 73 69 6f 6e 73 20 77 65 | 6c 63 6f 6d 65 21 0d 00 |sions we|lcome!..|
|000000a0| 46 04 0d 00 50 1c 85 20 | 30 2c 22 54 68 69 73 20 |F...P.. |0,"This |
|000000b0| 69 73 20 61 20 6c 69 62 | 72 61 72 79 21 22 0d 00 |is a lib|rary!"..|
|000000c0| 5a 05 e0 0d 00 64 04 0d | 00 6e 04 0d 00 78 36 f4 |Z....d..|.n...x6.|
|000000d0| 20 50 52 4f 43 66 69 6c | 74 65 72 5f 69 6e 69 74 | PROCfil|ter_init|
|000000e0| 69 61 6c 69 73 65 28 64 | 65 6c 65 74 65 5f 66 6c |ialise(d|elete_fl|
|000000f0| 61 67 25 2c 66 69 6c 74 | 65 72 5f 6e 61 6d 65 24 |ag%,filt|er_name$|
|00000100| 29 0d 00 82 43 f4 20 54 | 68 69 73 20 6d 75 73 74 |)...C. T|his must|
|00000110| 20 62 65 20 63 61 6c 6c | 65 64 20 62 65 66 6f 72 | be call|ed befor|
|00000120| 65 20 75 73 69 6e 67 20 | 61 6e 79 20 6f 74 68 65 |e using |any othe|
|00000130| 72 20 46 69 6c 74 65 72 | 4c 69 62 20 72 6f 75 74 |r Filter|Lib rout|
|00000140| 69 6e 65 2e 0d 00 8c 11 | f4 20 49 74 20 73 65 74 |ine.....|. It set|
|00000150| 73 20 75 70 3a 0d 00 96 | 2a f4 20 20 20 20 20 20 |s up:...|*. |
|00000160| 20 74 68 65 20 66 69 6c | 65 20 68 61 6e 64 6c 65 | the fil|e handle|
|00000170| 73 2c 20 69 6e 25 20 61 | 6e 64 20 6f 75 74 25 0d |s, in% a|nd out%.|
|00000180| 00 a0 28 f4 20 20 20 20 | 20 20 20 74 68 65 20 66 |..(. | the f|
|00000190| 69 6c 65 20 6e 61 6d 65 | 73 2c 20 69 6e 24 20 61 |ile name|s, in$ a|
|000001a0| 6e 64 20 6f 75 74 24 0d | 00 aa 42 f4 20 20 20 20 |nd out$.|..B. |
|000001b0| 20 20 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 20 | the a|rgument |
|000001c0| 73 74 72 69 6e 67 2c 20 | 61 72 67 24 20 28 6c 65 |string, |arg$ (le|
|000001d0| 73 73 20 72 65 64 69 72 | 65 63 74 69 6f 6e 20 6f |ss redir|ection o|
|000001e0| 70 65 72 61 74 6f 72 73 | 29 0d 00 b4 45 f4 20 20 |perators|)...E. |
|000001f0| 20 20 20 20 20 61 20 62 | 75 66 66 65 72 20 66 6f | a b|uffer fo|
|00000200| 72 20 74 68 65 20 61 72 | 67 75 6d 65 6e 74 20 6c |r the ar|gument l|
|00000210| 69 73 74 20 28 66 69 6c | 6c 65 64 20 69 6e 20 62 |ist (fil|led in b|
|00000220| 79 20 50 52 4f 43 67 65 | 74 61 72 67 73 29 0d 00 |y PROCge|targs)..|
|00000230| be 26 f4 20 20 20 20 20 | 20 20 73 6f 6d 65 20 6d |.&. | some m|
|00000240| 61 63 68 69 6e 65 20 63 | 6f 64 65 20 72 6f 75 74 |achine c|ode rout|
|00000250| 69 6e 65 73 0d 00 c8 1c | f4 20 20 20 20 20 20 20 |ines....|. |
|00000260| 61 6e 20 65 72 72 6f 72 | 20 68 61 6e 64 6c 65 72 |an error| handler|
|00000270| 0d 00 d2 1b f4 20 20 20 | 20 20 20 20 74 68 65 20 |..... | the |
|00000280| 66 69 6c 74 65 72 20 6e | 61 6d 65 0d 00 dc 2b f4 |filter n|ame...+.|
|00000290| 20 20 20 20 20 20 20 74 | 68 65 20 64 65 6c 65 74 | t|he delet|
|000002a0| 65 20 66 6c 61 67 20 28 | 75 73 65 64 20 6f 6e 20 |e flag (|used on |
|000002b0| 65 72 72 6f 72 29 0d 00 | e6 43 f4 20 20 20 20 20 |error)..|.C. |
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 69 66 20 54 | | if T|
|000002d0| 52 55 45 2c 20 74 68 65 | 6e 20 6f 75 74 70 75 74 |RUE, the|n output|
|000002e0| 20 66 69 6c 65 20 69 73 | 20 64 65 6c 65 74 65 64 | file is| deleted|
|000002f0| 20 6f 6e 20 65 72 72 6f | 72 0d 00 f0 04 0d 00 fa | on erro|r.......|
|00000300| 1f dd 20 f2 66 69 6c 74 | 65 72 5f 69 6e 69 74 69 |.. .filt|er_initi|
|00000310| 61 6c 69 73 65 28 44 25 | 2c 61 24 29 0d 01 04 18 |alise(D%|,a$)....|
|00000320| c8 99 20 22 4f 53 5f 42 | 79 74 65 22 2c 36 2c 32 |.. "OS_B|yte",6,2|
|00000330| 32 39 2c 31 0d 01 0e 3f | 69 6e 25 3d 2d 31 3a 6f |29,1...?|in%=-1:o|
|00000340| 75 74 25 3d 2d 31 3a 60 | 64 65 6c 25 3d 44 25 3a |ut%=-1:`|del%=D%:|
|00000350| 60 66 69 6c 74 65 72 5f | 6e 61 6d 65 24 3d 61 24 |`filter_|name$=a$|
|00000360| 3a 60 61 72 67 25 3d 2d | 31 3a 60 61 6c 6c 6f 63 |:`arg%=-|1:`alloc|
|00000370| 25 3d 93 0d 01 18 15 ee | 20 85 20 f2 66 69 6c 74 |%=......| . .filt|
|00000380| 65 72 5f 65 72 72 6f 72 | 0d 01 22 2b de 20 60 61 |er_error|.."+. `a|
|00000390| 72 67 73 74 72 25 20 31 | 30 32 34 2c 60 61 72 67 |rgstr% 1|024,`arg|
|000003a0| 62 75 66 25 20 31 30 32 | 34 2c 60 65 72 72 25 20 |buf% 102|4,`err% |
|000003b0| 32 35 36 0d 01 2c 2c 60 | 61 72 67 70 74 72 25 3d |256..,,`|argptr%=|
|000003c0| 60 61 72 67 73 74 72 25 | 3a 60 61 72 67 65 6e 64 |`argstr%|:`argend|
|000003d0| 25 3d 60 61 72 67 73 74 | 72 25 2b 31 30 32 34 0d |%=`argst|r%+1024.|
|000003e0| 01 36 19 c8 99 20 22 4f | 53 5f 47 65 74 45 6e 76 |.6... "O|S_GetEnv|
|000003f0| 22 20 b8 20 61 72 67 24 | 0d 01 40 2a 61 72 67 24 |" . arg$|..@*arg$|
|00000400| 3d a4 73 74 72 69 70 73 | 70 61 63 65 73 28 c1 61 |=.strips|paces(.a|
|00000410| 72 67 24 2c a7 61 72 67 | 24 2c 22 20 22 29 2b 31 |rg$,.arg|$," ")+1|
|00000420| 29 29 0d 01 4a 2a 61 72 | 67 24 3d a4 73 74 72 69 |))..J*ar|g$=.stri|
|00000430| 70 73 70 61 63 65 73 28 | c1 61 72 67 24 2c a7 61 |pspaces(|.arg$,.a|
|00000440| 72 67 24 2c 22 20 22 29 | 2b 31 29 29 0d 01 54 2e |rg$," ")|+1))..T.|
|00000450| 61 72 67 24 3d 22 20 22 | 2b a4 73 74 72 69 70 73 |arg$=" "|+.strips|
|00000460| 70 61 63 65 73 28 c1 61 | 72 67 24 2c a7 61 72 67 |paces(.a|rg$,.arg|
|00000470| 24 2c 22 20 22 29 2b 31 | 29 29 0d 01 5e 0e ea 20 |$," ")+1|))..^.. |
|00000480| 49 25 2c 4f 25 2c 45 25 | 0d 01 68 3a 49 25 3d a7 |I%,O%,E%|..h:I%=.|
|00000490| 61 72 67 24 2c 22 20 3c | 22 29 3a e7 20 49 25 3d |arg$," <|"):. I%=|
|000004a0| 30 20 8c 20 85 20 31 2c | 22 4e 6f 20 73 6f 75 72 |0 . . 1,|"No sour|
|000004b0| 63 65 20 66 69 6c 65 20 | 73 70 65 63 69 66 69 65 |ce file |specifie|
|000004c0| 64 22 0d 01 72 21 69 6e | 24 3d a4 73 74 72 69 70 |d"..r!in|$=.strip|
|000004d0| 73 70 61 63 65 73 28 c1 | 61 72 67 24 2c 49 25 2b |spaces(.|arg$,I%+|
|000004e0| 32 29 29 0d 01 7c 27 e7 | 20 a7 69 6e 24 2c 22 20 |2))..|'.| .in$," |
|000004f0| 22 29 20 8c 20 69 6e 24 | 3d c0 69 6e 24 2c a7 69 |") . in$|=.in$,.i|
|00000500| 6e 24 2c 22 20 22 29 2d | 31 29 0d 01 86 34 61 72 |n$," ")-|1)...4ar|
|00000510| 67 24 3d c0 61 72 67 24 | 2c 49 25 2b 31 29 2b a4 |g$=.arg$|,I%+1)+.|
|00000520| 6c 6f 73 65 61 72 67 28 | a4 6c 6f 73 65 61 72 67 |losearg(|.losearg|
|00000530| 28 c1 61 72 67 24 2c 49 | 25 2b 32 29 29 29 0d 01 |(.arg$,I|%+2)))..|
|00000540| 90 3a 4f 25 3d a7 61 72 | 67 24 2c 22 20 3e 22 29 |.:O%=.ar|g$," >")|
|00000550| 3a e7 20 49 25 3d 30 20 | 8c 20 85 20 31 2c 22 4e |:. I%=0 |. . 1,"N|
|00000560| 6f 20 73 6f 75 72 63 65 | 20 66 69 6c 65 20 73 70 |o source| file sp|
|00000570| 65 63 69 66 69 65 64 22 | 0d 01 9a 22 6f 75 74 24 |ecified"|..."out$|
|00000580| 3d a4 73 74 72 69 70 73 | 70 61 63 65 73 28 c1 61 |=.strips|paces(.a|
|00000590| 72 67 24 2c 4f 25 2b 32 | 29 29 0d 01 a4 2b e7 20 |rg$,O%+2|))...+. |
|000005a0| a7 6f 75 74 24 2c 22 20 | 22 29 20 8c 20 6f 75 74 |.out$," |") . out|
|000005b0| 24 3d c0 6f 75 74 24 2c | a7 6f 75 74 24 2c 22 20 |$=.out$,|.out$," |
|000005c0| 22 29 2d 31 29 0d 01 ae | 34 61 72 67 24 3d c0 61 |")-1)...|4arg$=.a|
|000005d0| 72 67 24 2c 4f 25 2b 31 | 29 2b a4 6c 6f 73 65 61 |rg$,O%+1|)+.losea|
|000005e0| 72 67 28 a4 6c 6f 73 65 | 61 72 67 28 c1 61 72 67 |rg(.lose|arg(.arg|
|000005f0| 24 2c 4f 25 2b 32 29 29 | 29 0d 01 b8 13 45 25 3d |$,O%+2))|)....E%=|
|00000600| a7 61 72 67 24 2c 22 20 | 32 3e 22 29 0d 01 c2 3b |.arg$," |2>")...;|
|00000610| e7 20 45 25 20 8c 20 61 | 72 67 24 3d c0 61 72 67 |. E% . a|rg$=.arg|
|00000620| 24 2c 45 25 2b 31 29 2b | a4 6c 6f 73 65 61 72 67 |$,E%+1)+|.losearg|
|00000630| 28 a4 6c 6f 73 65 61 72 | 67 28 c1 61 72 67 24 2c |(.losear|g(.arg$,|
|00000640| 45 25 2b 32 29 29 29 0d | 01 cc 11 f2 66 69 6c 74 |E%+2))).|....filt|
|00000650| 65 72 5f 6d 63 6f 64 65 | 0d 01 d6 05 e1 0d 01 e0 |er_mcode|........|
|00000660| 04 0d 01 ea 04 0d 01 f4 | 15 f4 20 46 4e 6c 6f 73 |........|.. FNlos|
|00000670| 65 61 72 67 28 61 72 67 | 24 29 0d 01 fe 34 f4 20 |earg(arg|$)...4. |
|00000680| 52 65 74 75 72 6e 73 20 | 61 72 67 75 6d 65 6e 74 |Returns |argument|
|00000690| 20 73 74 72 69 6e 67 20 | 77 69 74 68 6f 75 74 20 | string |without |
|000006a0| 66 69 72 73 74 20 61 72 | 67 75 6d 65 6e 74 0d 02 |first ar|gument..|
|000006b0| 08 23 f4 20 55 73 65 64 | 20 62 79 20 50 52 4f 43 |.#. Used| by PROC|
|000006c0| 66 69 6c 74 65 72 5f 69 | 6e 69 74 69 61 6c 69 73 |filter_i|nitialis|
|000006d0| 65 0d 02 12 04 0d 02 1c | 14 dd 20 a4 6c 6f 73 65 |e.......|.. .lose|
|000006e0| 61 72 67 28 61 72 67 24 | 29 0d 02 26 1b 61 72 67 |arg(arg$|)..&.arg|
|000006f0| 24 3d a4 73 74 72 69 70 | 73 70 61 63 65 73 28 61 |$=.strip|spaces(a|
|00000700| 72 67 24 29 0d 02 30 12 | e7 20 97 20 61 72 67 24 |rg$)..0.|. . arg$|
|00000710| 3c 3e 33 34 20 8c 0d 02 | 3a 36 20 e7 20 a7 61 72 |<>34 ...|:6 . .ar|
|00000720| 67 24 2c 22 20 22 29 20 | 8c 20 3d a4 73 74 72 69 |g$," ") |. =.stri|
|00000730| 70 73 70 61 63 65 73 28 | c1 61 72 67 24 2c a7 61 |pspaces(|.arg$,.a|
|00000740| 72 67 24 2c 22 20 22 29 | 2b 31 29 29 0d 02 44 08 |rg$," ")|+1))..D.|
|00000750| 20 3d 22 22 0d 02 4e 05 | cd 0d 02 58 1f 61 72 67 | =""..N.|...X.arg|
|00000760| 24 3d c1 61 72 67 24 2c | a7 61 72 67 24 2c 22 22 |$=.arg$,|.arg$,""|
|00000770| 22 22 2c 32 29 2b 31 29 | 0d 02 62 1b c8 95 20 61 |"",2)+1)|..b... a|
|00000780| 72 67 24 3e 22 22 20 80 | 20 97 20 61 72 67 24 3c |rg$>"" .| . arg$<|
|00000790| 3e 33 34 0d 02 6c 1a 20 | e7 20 a7 61 72 67 24 2c |>34..l. |. .arg$,|
|000007a0| 22 22 22 22 2c 32 29 20 | 8b 20 3d 22 22 0d 02 76 |"""",2) |. =""..v|
|000007b0| 20 20 61 72 67 24 3d c1 | 61 72 67 24 2c a7 61 72 | arg$=.|arg$,.ar|
|000007c0| 67 24 2c 22 22 22 22 2c | 32 29 2b 31 29 0d 02 80 |g$,"""",|2)+1)...|
|000007d0| 05 ce 0d 02 8a 17 3d a4 | 73 74 72 69 70 73 70 61 |......=.|stripspa|
|000007e0| 63 65 73 28 61 72 67 24 | 29 0d 02 94 04 0d 02 9e |ces(arg$|).......|
|000007f0| 04 0d 02 a8 16 f4 20 50 | 52 4f 43 66 69 6c 74 65 |...... P|ROCfilte|
|00000800| 72 5f 65 72 72 6f 72 0d | 02 b2 1c f4 20 53 74 61 |r_error.|.... Sta|
|00000810| 6e 64 61 72 64 20 65 72 | 72 6f 72 20 68 61 6e 64 |ndard er|ror hand|
|00000820| 6c 65 72 0d 02 bc 32 f4 | 20 43 6c 6f 73 65 73 20 |ler...2.| Closes |
|00000830| 73 74 61 6e 64 61 72 64 | 20 69 6e 70 75 74 20 26 |standard| input &|
|00000840| 20 6f 75 74 70 75 74 20 | 66 69 6c 65 73 20 69 66 | output |files if|
|00000850| 20 6f 70 65 6e 0d 02 c6 | 35 f4 20 44 65 6c 65 74 | open...|5. Delet|
|00000860| 65 73 20 6f 75 74 70 75 | 74 20 66 69 6c 65 20 69 |es outpu|t file i|
|00000870| 66 20 70 72 65 73 65 6e | 74 20 41 4e 44 20 64 65 |f presen|t AND de|
|00000880| 6c 25 20 69 73 20 54 52 | 55 45 0d 02 d0 04 0d 02 |l% is TR|UE......|
|00000890| da 13 dd 20 f2 66 69 6c | 74 65 72 5f 65 72 72 6f |... .fil|ter_erro|
|000008a0| 72 0d 02 e4 0b ea 20 41 | 25 2c 42 25 0d 02 ee 09 |r..... A|%,B%....|
|000008b0| ee 20 85 20 87 0d 02 f8 | 40 e7 20 69 6e 25 3e 30 |. . ....|@. in%>0|
|000008c0| 20 8c 20 c8 99 20 22 58 | 4f 53 5f 46 69 6e 64 22 | . .. "X|OS_Find"|
|000008d0| 2c 2c 69 6e 25 20 b8 20 | 41 25 3b 42 25 3a e7 20 |,,in% . |A%;B%:. |
|000008e0| 42 25 20 80 20 31 20 8c | 20 f2 72 65 70 6f 72 74 |B% . 1 .| .report|
|000008f0| 62 28 41 25 29 0d 03 02 | 40 e7 20 6f 75 74 25 3e |b(A%)...|@. out%>|
|00000900| 30 20 8c 20 c8 99 20 22 | 58 4f 53 5f 46 69 6e 64 |0 . .. "|XOS_Find|
|00000910| 22 2c 2c 6f 75 74 25 20 | b8 20 41 25 3b 42 25 3a |",,out% |. A%;B%:|
|00000920| e7 20 42 25 80 31 20 8c | 20 f2 72 65 70 6f 72 74 |. B%.1 .| .report|
|00000930| 62 28 41 25 29 0d 03 0c | 0d e7 20 60 64 65 6c 25 |b(A%)...|.. `del%|
|00000940| 20 8c 0d 03 16 1f 20 c8 | 99 20 22 58 4f 53 5f 46 | ..... .|. "XOS_F|
|00000950| 69 6c 65 22 2c 31 37 2c | 6f 75 74 24 20 b8 20 41 |ile",17,|out$ . A|
|00000960| 25 0d 03 20 0d 20 e7 20 | 41 25 3d 31 20 8c 0d 03 |%.. . . |A%=1 ...|
|00000970| 2a 3a 20 20 c8 99 20 22 | 58 4f 53 5f 46 69 6c 65 |*: .. "|XOS_File|
|00000980| 22 2c 36 2c 6f 75 74 24 | 20 b8 20 41 25 3b 42 25 |",6,out$| . A%;B%|
|00000990| 3a e7 20 42 25 20 80 20 | 31 20 8c 20 f2 72 65 70 |:. B% . |1 . .rep|
|000009a0| 6f 72 74 62 28 41 25 29 | 0d 03 34 06 20 cd 0d 03 |ortb(A%)|..4. ...|
|000009b0| 3e 05 cd 0d 03 48 0c 85 | 20 a2 20 9f 2c f6 24 0d |>....H..| . .,.$.|
|000009c0| 03 52 05 e1 0d 03 5c 04 | 0d 03 66 04 0d 03 70 1c |.R....\.|..f...p.|
|000009d0| f4 20 50 52 4f 43 72 65 | 70 6f 72 74 28 65 72 72 |. PROCre|port(err|
|000009e0| 6f 72 5f 6d 73 67 24 29 | 0d 03 7a 1f f4 20 50 52 |or_msg$)|..z.. PR|
|000009f0| 4f 43 72 65 70 6f 72 74 | 62 28 65 72 72 6f 72 5f |OCreport|b(error_|
|00000a00| 62 6c 6f 63 6b 25 29 0d | 03 84 23 f4 20 53 74 61 |block%).|..#. Sta|
|00000a10| 6e 64 61 72 64 20 65 72 | 72 6f 72 20 72 65 70 6f |ndard er|ror repo|
|00000a20| 72 74 20 72 6f 75 74 69 | 6e 65 0d 03 8e 04 0d 03 |rt routi|ne......|
|00000a30| 98 18 dd 20 f2 72 65 70 | 6f 72 74 28 24 28 65 72 |... .rep|ort($(er|
|00000a40| 72 25 2b 34 29 29 0d 03 | a2 35 c8 99 20 22 57 69 |r%+4))..|.5.. "Wi|
|00000a50| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00000a60| 60 65 72 72 25 2c 32 2c | 66 69 6c 74 65 72 5f 6e |`err%,2,|filter_n|
|00000a70| 61 6d 65 24 2c 22 21 7a | 61 70 22 0d 03 ac 05 e1 |ame$,"!z|ap".....|
|00000a80| 0d 03 b6 04 0d 03 c0 12 | dd 20 f2 72 65 70 6f 72 |........|. .repor|
|00000a90| 74 62 28 41 25 29 0d 03 | ca 32 c8 99 20 22 57 69 |tb(A%)..|.2.. "Wi|
|00000aa0| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00000ab0| 41 25 2c 32 2c 66 69 6c | 74 65 72 5f 6e 61 6d 65 |A%,2,fil|ter_name|
|00000ac0| 24 2c 22 21 7a 61 70 22 | 0d 03 d4 05 e1 0d 03 de |$,"!zap"|........|
|00000ad0| 04 0d 03 e8 04 0d 03 f2 | 1f f4 20 46 4e 61 64 64 |........|.. FNadd|
|00000ae0| 73 77 69 74 63 68 28 73 | 77 69 74 63 68 5f 6e 61 |switch(s|witch_na|
|00000af0| 6d 65 24 29 0d 03 fc 40 | f4 20 41 64 64 73 20 61 |me$)...@|. Adds a|
|00000b00| 20 73 77 69 74 63 68 20 | 74 6f 20 74 68 65 20 6c | switch |to the l|
|00000b10| 69 73 74 20 6f 66 20 61 | 6c 6c 6f 77 65 64 20 61 |ist of a|llowed a|
|00000b20| 72 67 75 6d 65 6e 74 73 | 2c 20 65 67 2e 20 2d 64 |rguments|, eg. -d|
|00000b30| 75 6d 6d 79 0d 04 06 36 | f4 20 52 65 74 75 72 6e |ummy...6|. Return|
|00000b40| 73 20 61 20 6e 75 6d 62 | 65 72 20 77 68 69 63 68 |s a numb|er which|
|00000b50| 20 63 61 6e 20 62 65 20 | 70 61 73 73 65 64 20 74 | can be |passed t|
|00000b60| 6f 20 46 4e 73 77 69 74 | 63 68 0d 04 10 04 0d 04 |o FNswit|ch......|
|00000b70| 1a 21 f4 20 46 4e 61 64 | 64 76 61 6c 28 73 77 69 |.!. FNad|dval(swi|
|00000b80| 74 63 68 5f 6e 61 6d 65 | 24 2c 6b 65 79 25 29 0d |tch_name|$,key%).|
|00000b90| 04 24 44 f4 20 41 64 64 | 73 20 61 20 73 77 69 74 |.$D. Add|s a swit|
|00000ba0| 63 68 20 74 6f 20 74 68 | 65 20 6c 69 73 74 20 6f |ch to th|e list o|
|00000bb0| 66 20 61 6c 6c 6f 77 65 | 64 20 61 72 67 75 6d 65 |f allowe|d argume|
|00000bc0| 6e 74 73 2c 20 65 67 2e | 20 2d 64 75 6d 6d 79 20 |nts, eg.| -dummy |
|00000bd0| 31 32 33 0d 04 2e 4e f4 | 20 6b 65 79 25 20 69 73 |123...N.| key% is|
|00000be0| 20 54 52 55 45 20 69 66 | 20 74 68 65 20 73 77 69 | TRUE if| the swi|
|00000bf0| 74 63 68 20 69 73 20 6e | 6f 74 20 74 6f 20 62 65 |tch is n|ot to be|
|00000c00| 20 27 61 75 74 6f 6d 61 | 74 69 63 61 6c 6c 79 27 | 'automa|tically'|
|00000c10| 20 61 73 73 69 67 6e 65 | 64 20 61 20 76 61 6c 75 | assigne|d a valu|
|00000c20| 65 0d 04 38 36 f4 20 52 | 65 74 75 72 6e 73 20 61 |e..86. R|eturns a|
|00000c30| 20 6e 75 6d 62 65 72 20 | 77 68 69 63 68 20 63 61 | number |which ca|
|00000c40| 6e 20 62 65 20 70 61 73 | 73 65 64 20 74 6f 20 46 |n be pas|sed to F|
|00000c50| 4e 73 77 69 74 63 68 0d | 04 42 04 0d 04 4c 1f f4 |Nswitch.|.B...L..|
|00000c60| 20 46 4e 61 64 64 73 74 | 72 69 6e 67 28 73 77 69 | FNaddst|ring(swi|
|00000c70| 74 63 68 5f 6e 61 6d 65 | 24 29 0d 04 56 4e f4 20 |tch_name|$)..VN. |
|00000c80| 41 64 64 73 20 61 20 73 | 77 69 74 63 68 20 74 6f |Adds a s|witch to|
|00000c90| 20 74 68 65 20 6c 69 73 | 74 20 6f 66 20 61 6c 6c | the lis|t of all|
|00000ca0| 6f 77 65 64 20 61 72 67 | 75 6d 65 6e 74 73 2c 20 |owed arg|uments, |
|00000cb0| 65 67 2e 20 2d 64 75 6d | 6d 79 20 22 48 65 6c 6c |eg. -dum|my "Hell|
|00000cc0| 6f 20 77 6f 72 6c 64 22 | 0d 04 60 13 f4 20 6b 65 |o world"|..`.. ke|
|00000cd0| 79 25 20 61 73 20 61 62 | 6f 76 65 0d 04 6a 36 f4 |y% as ab|ove..j6.|
|00000ce0| 20 52 65 74 75 72 6e 73 | 20 61 20 6e 75 6d 62 65 | Returns| a numbe|
|00000cf0| 72 20 77 68 69 63 68 20 | 63 61 6e 20 62 65 20 70 |r which |can be p|
|00000d00| 61 73 73 65 64 20 74 6f | 20 46 4e 73 77 69 74 63 |assed to| FNswitc|
|00000d10| 68 0d 04 74 04 0d 04 7e | 2a dd 20 a4 61 64 64 73 |h..t...~|*. .adds|
|00000d20| 77 69 74 63 68 28 61 24 | 29 3d a4 61 64 64 73 74 |witch(a$|)=.addst|
|00000d30| 72 69 6e 67 28 61 24 2b | 22 2f 73 22 2c a3 29 0d |ring(a$+|"/s",.).|
|00000d40| 04 88 2b dd 20 a4 61 64 | 64 76 61 6c 28 61 24 2c |..+. .ad|dval(a$,|
|00000d50| 4b 25 29 3d a4 61 64 64 | 73 74 72 69 6e 67 28 61 |K%)=.add|string(a|
|00000d60| 24 2b 22 2f 65 22 2c 4b | 25 29 0d 04 92 04 0d 04 |$+"/e",K|%)......|
|00000d70| 9c 17 dd 20 a4 61 64 64 | 73 74 72 69 6e 67 28 61 |... .add|string(a|
|00000d80| 24 2c 4b 25 29 0d 04 a6 | 34 e7 20 a7 61 24 2c 22 |$,K%)...|4. .a$,"|
|00000d90| 2d 22 29 20 8c 20 85 20 | 30 2c 22 2d 20 6e 6f 74 |-") . . |0,"- not|
|00000da0| 20 72 65 71 75 69 72 65 | 64 20 69 6e 20 73 77 69 | require|d in swi|
|00000db0| 74 63 68 20 6e 61 6d 65 | 22 0d 04 b0 3e e7 20 a7 |tch name|"...>. .|
|00000dc0| 61 24 2c 22 2c 22 29 20 | 84 20 a7 61 24 2c 22 2f |a$,",") |. .a$,"/|
|00000dd0| 22 29 20 8c 20 85 20 30 | 2c 22 49 6e 76 61 6c 69 |") . . 0|,"Invali|
|00000de0| 64 20 73 77 69 74 63 68 | 20 6e 61 6d 65 20 27 22 |d switch| name '"|
|00000df0| 2b 61 24 2b 22 27 22 0d | 04 ba 13 e7 20 4b 25 20 |+a$+"'".|.... K% |
|00000e00| 8c 20 61 24 2b 3d 22 2f | 6b 22 0d 04 c4 24 e7 20 |. a$+="/|k"...$. |
|00000e10| 60 61 72 67 70 74 72 25 | 3c 3e 60 61 72 67 73 74 |`argptr%|<>`argst|
|00000e20| 72 25 20 8c 20 61 24 3d | 22 2c 22 2b 61 24 0d 04 |r% . a$=|","+a$..|
|00000e30| ce 47 e7 60 61 72 67 70 | 74 72 25 2b a9 20 61 24 |.G.`argp|tr%+. a$|
|00000e40| 3e 60 61 72 67 65 6e 64 | 25 20 8c 20 85 30 2c 22 |>`argend|% . .0,"|
|00000e50| 41 72 67 75 6d 65 6e 74 | 20 73 74 72 69 6e 67 20 |Argument| string |
|00000e60| 74 6f 6f 20 6c 6f 6e 67 | 20 61 74 20 27 22 2b 61 |too long| at '"+a|
|00000e70| 24 2b 22 27 22 0d 04 d8 | 34 24 60 61 72 67 70 74 |$+"'"...|4$`argpt|
|00000e80| 72 25 3d 61 24 3a 60 61 | 72 67 70 74 72 25 2b 3d |r%=a$:`a|rgptr%+=|
|00000e90| a9 20 61 24 3a 60 61 72 | 67 25 2b 3d 31 3a 3f 60 |. a$:`ar|g%+=1:?`|
|00000ea0| 61 72 67 70 74 72 25 3d | 30 0d 04 e2 0a 3d 60 61 |argptr%=|0....=`a|
|00000eb0| 72 67 25 0d 04 ec 04 0d | 04 f6 04 0d 05 00 11 f4 |rg%.....|........|
|00000ec0| 20 50 52 4f 43 67 65 74 | 61 72 67 73 0d 05 0a 49 | PROCget|args...I|
|00000ed0| f4 20 53 63 61 6e 20 73 | 75 70 70 6c 69 65 64 20 |. Scan s|upplied |
|00000ee0| 61 72 67 75 6d 65 6e 74 | 73 20 75 73 69 6e 67 20 |argument|s using |
|00000ef0| 73 79 6e 74 61 78 20 73 | 74 72 69 6e 67 20 62 75 |syntax s|tring bu|
|00000f00| 69 6c 74 20 77 69 74 68 | 20 46 4e 61 64 64 73 77 |ilt with| FNaddsw|
|00000f10| 69 74 63 68 2c 0d 05 14 | 1e f4 20 46 4e 61 64 64 |itch,...|.. FNadd|
|00000f20| 76 61 6c 20 61 6e 64 20 | 46 4e 61 64 64 73 74 72 |val and |FNaddstr|
|00000f30| 69 6e 67 0d 05 1e 04 0d | 05 28 0e dd 20 f2 67 65 |ing.....|.(.. .ge|
|00000f40| 74 61 72 67 73 0d 05 32 | 30 c8 99 20 22 4f 53 5f |targs..2|0.. "OS_|
|00000f50| 52 65 61 64 41 72 67 73 | 22 2c 60 61 72 67 73 74 |ReadArgs|",`argst|
|00000f60| 72 25 2c 61 72 67 24 2c | 60 61 72 67 62 75 66 25 |r%,arg$,|`argbuf%|
|00000f70| 2c 31 30 32 34 0d 05 3c | 05 e1 0d 05 46 04 0d 05 |,1024..<|....F...|
|00000f80| 50 04 0d 05 5a 20 f4 20 | 46 4e 73 77 69 74 63 68 |P...Z . |FNswitch|
|00000f90| 28 61 72 67 75 6d 65 6e | 74 5f 6e 75 6d 62 65 72 |(argumen|t_number|
|00000fa0| 25 29 0d 05 64 2a f4 20 | 55 73 65 64 20 66 6f 72 |%)..d*. |Used for|
|00000fb0| 20 73 77 69 74 63 68 65 | 73 20 77 69 74 68 6f 75 | switche|s withou|
|00000fc0| 74 20 70 61 72 61 6d 65 | 74 65 72 73 0d 05 6e 18 |t parame|ters..n.|
|00000fd0| f4 20 52 65 74 75 72 6e | 73 20 54 52 55 45 2f 46 |. Return|s TRUE/F|
|00000fe0| 41 4c 53 45 0d 05 78 3c | f4 20 61 72 67 75 6d 65 |ALSE..x<|. argume|
|00000ff0| 6e 74 5f 6e 75 6d 62 65 | 72 25 20 69 73 20 61 20 |nt_numbe|r% is a |
|00001000| 6e 75 6d 62 65 72 20 72 | 65 74 75 72 6e 65 64 20 |number r|eturned |
|00001010| 62 79 20 46 4e 61 64 64 | 73 77 69 74 63 68 28 29 |by FNadd|switch()|
|00001020| 0d 05 82 04 0d 05 8c 1d | f4 20 46 4e 76 61 6c 28 |........|. FNval(|
|00001030| 61 72 67 75 6d 65 6e 74 | 5f 6e 75 6d 62 65 72 25 |argument|_number%|
|00001040| 29 0d 05 96 3b f4 20 55 | 73 65 64 20 66 6f 72 20 |)...;. U|sed for |
|00001050| 73 77 69 74 63 68 65 73 | 20 77 69 74 68 20 6e 75 |switches| with nu|
|00001060| 6d 65 72 69 63 20 28 65 | 76 61 6c 75 61 74 65 64 |meric (e|valuated|
|00001070| 29 20 70 61 72 61 6d 65 | 74 65 72 73 0d 05 a0 1d |) parame|ters....|
|00001080| f4 20 52 65 74 75 72 6e | 73 20 70 61 72 61 6d 65 |. Return|s parame|
|00001090| 74 65 72 20 76 61 6c 75 | 65 0d 05 aa 39 f4 20 61 |ter valu|e...9. a|
|000010a0| 72 67 75 6d 65 6e 74 5f | 6e 75 6d 62 65 72 25 20 |rgument_|number% |
|000010b0| 69 73 20 61 20 6e 75 6d | 62 65 72 20 72 65 74 75 |is a num|ber retu|
|000010c0| 72 6e 65 64 20 62 79 20 | 46 4e 61 64 64 76 61 6c |rned by |FNaddval|
|000010d0| 28 29 0d 05 b4 04 0d 05 | be 20 f4 20 46 4e 73 74 |()......|. . FNst|
|000010e0| 72 69 6e 67 28 61 72 67 | 75 6d 65 6e 74 5f 6e 75 |ring(arg|ument_nu|
|000010f0| 6d 62 65 72 25 29 0d 05 | c8 2e f4 20 55 73 65 64 |mber%)..|... Used|
|00001100| 20 66 6f 72 20 73 77 69 | 74 63 68 65 73 20 77 69 | for swi|tches wi|
|00001110| 74 68 20 73 74 72 69 6e | 67 20 70 61 72 61 6d 65 |th strin|g parame|
|00001120| 74 65 72 73 0d 05 d2 14 | f4 20 52 65 74 75 72 6e |ters....|. Return|
|00001130| 73 20 73 74 72 69 6e 67 | 0d 05 dc 3c f4 20 61 72 |s string|...<. ar|
|00001140| 67 75 6d 65 6e 74 5f 6e | 75 6d 62 65 72 25 20 69 |gument_n|umber% i|
|00001150| 73 20 61 20 6e 75 6d 62 | 65 72 20 72 65 74 75 72 |s a numb|er retur|
|00001160| 6e 65 64 20 62 79 20 46 | 4e 61 64 64 73 74 72 69 |ned by F|Naddstri|
|00001170| 6e 67 28 29 0d 05 e6 04 | 0d 05 f0 24 dd 20 a4 73 |ng()....|...$. .s|
|00001180| 77 69 74 63 68 28 41 25 | 29 3d 60 61 72 67 62 75 |witch(A%|)=`argbu|
|00001190| 66 25 21 28 41 25 2a 34 | 29 3c 3e 30 0d 05 fa 23 |f%!(A%*4|)<>0...#|
|000011a0| dd 20 a4 76 61 6c 28 41 | 25 29 3d 21 28 60 61 72 |. .val(A|%)=!(`ar|
|000011b0| 67 62 75 66 25 21 28 41 | 25 2a 34 29 2b 31 29 0d |gbuf%!(A|%*4)+1).|
|000011c0| 06 04 2b dd 20 a4 73 74 | 72 69 6e 67 28 41 25 29 |..+. .st|ring(A%)|
|000011d0| 3d a4 73 74 72 69 6e 67 | 30 28 60 61 72 67 62 75 |=.string|0(`argbu|
|000011e0| 66 25 21 28 41 25 2a 34 | 29 29 0d 06 0e 04 0d 06 |f%!(A%*4|))......|
|000011f0| 18 04 0d 06 22 19 f4 20 | 46 4e 73 74 72 69 6e 67 |....".. |FNstring|
|00001200| 30 28 61 64 64 72 65 73 | 73 25 29 0d 06 2c 33 f4 |0(addres|s%)..,3.|
|00001210| 20 52 65 74 75 72 6e 73 | 20 74 68 65 20 6e 75 6c | Returns| the nul|
|00001220| 6c 2d 74 65 72 6d 69 6e | 61 74 65 64 20 73 74 72 |l-termin|ated str|
|00001230| 69 6e 67 20 61 74 20 61 | 64 64 72 65 73 73 0d 06 |ing at a|ddress..|
|00001240| 36 04 0d 06 40 1a f4 20 | 46 4e 73 74 72 69 6e 67 |6...@.. |FNstring|
|00001250| 4c 46 28 61 64 64 72 65 | 73 73 25 29 0d 06 4a 31 |LF(addre|ss%)..J1|
|00001260| f4 20 52 65 74 75 72 6e | 73 20 74 68 65 20 4c 46 |. Return|s the LF|
|00001270| 2d 74 65 72 6d 69 6e 61 | 74 65 64 20 73 74 72 69 |-termina|ted stri|
|00001280| 6e 67 20 61 74 20 61 64 | 64 72 65 73 73 0d 06 54 |ng at ad|dress..T|
|00001290| 04 0d 06 5e 19 f4 20 46 | 4e 73 74 72 69 6e 67 63 |...^.. F|Nstringc|
|000012a0| 28 61 64 64 72 65 73 73 | 25 29 0d 06 68 38 f4 20 |(address|%)..h8. |
|000012b0| 52 65 74 75 72 6e 73 20 | 74 68 65 20 63 74 72 6c |Returns |the ctrl|
|000012c0| 2d 63 6f 64 65 2d 74 65 | 72 6d 69 6e 61 74 65 64 |-code-te|rminated|
|000012d0| 20 73 74 72 69 6e 67 20 | 61 74 20 61 64 64 72 65 | string |at addre|
|000012e0| 73 73 0d 06 72 04 0d 06 | 7c 2c f4 20 46 4e 73 74 |ss..r...||,. FNst|
|000012f0| 72 69 6e 67 78 28 61 64 | 64 72 65 73 73 25 2c 20 |ringx(ad|dress%, |
|00001300| 74 65 72 6d 69 6e 61 74 | 69 6e 67 5f 63 6f 64 65 |terminat|ing_code|
|00001310| 25 29 0d 06 86 40 f4 20 | 52 65 74 75 72 6e 73 20 |%)...@. |Returns |
|00001320| 74 68 65 20 73 74 72 69 | 6e 67 20 61 74 20 61 64 |the stri|ng at ad|
|00001330| 64 72 65 73 73 20 2d 20 | 79 6f 75 20 73 70 65 63 |dress - |you spec|
|00001340| 69 66 79 20 74 68 65 20 | 74 65 72 6d 69 6e 61 74 |ify the |terminat|
|00001350| 6f 72 0d 06 90 04 0d 06 | 9a 3b f4 20 54 68 65 73 |or......|.;. Thes|
|00001360| 65 20 66 75 6e 63 74 69 | 6f 6e 73 20 77 69 6c 6c |e functi|ons will|
|00001370| 20 6f 6e 6c 79 20 72 65 | 74 75 72 6e 20 75 70 20 | only re|turn up |
|00001380| 74 6f 20 32 35 35 20 63 | 68 61 72 61 63 74 65 72 |to 255 c|haracter|
|00001390| 73 0d 06 a4 04 0d 06 ae | 21 dd 20 a4 73 74 72 69 |s.......|!. .stri|
|000013a0| 6e 67 30 28 41 25 29 3d | a4 73 74 72 69 6e 67 78 |ng0(A%)=|.stringx|
|000013b0| 28 41 25 2c 30 29 0d 06 | b8 23 dd 20 a4 73 74 72 |(A%,0)..|.#. .str|
|000013c0| 69 6e 67 4c 46 28 41 25 | 29 3d a4 73 74 72 69 6e |ingLF(A%|)=.strin|
|000013d0| 67 78 28 41 25 2c 31 30 | 29 0d 06 c2 04 0d 06 cc |gx(A%,10|).......|
|000013e0| 12 dd 20 a4 73 74 72 69 | 6e 67 63 28 41 25 29 0d |.. .stri|ngc(A%).|
|000013f0| 06 d6 0e d6 20 60 73 74 | 72 69 6e 67 63 0d 06 e0 |.... `st|ringc...|
|00001400| 10 3d 24 60 73 74 72 69 | 6e 67 62 75 66 0d 06 ea |.=$`stri|ngbuf...|
|00001410| 04 0d 06 f4 15 dd 20 a4 | 73 74 72 69 6e 67 78 28 |...... .|stringx(|
|00001420| 41 25 2c 42 25 29 0d 06 | fe 0e d6 20 60 73 74 72 |A%,B%)..|... `str|
|00001430| 69 6e 67 78 0d 07 08 10 | 3d 24 60 73 74 72 69 6e |ingx....|=$`strin|
|00001440| 67 62 75 66 0d 07 12 04 | 0d 07 1c 04 0d 07 26 16 |gbuf....|......&.|
|00001450| f4 20 46 4e 6c 65 6e 30 | 28 61 64 64 72 65 73 73 |. FNlen0|(address|
|00001460| 25 29 0d 07 30 35 f4 20 | 4c 65 6e 67 74 68 20 6f |%)..05. |Length o|
|00001470| 66 20 74 68 65 20 6e 75 | 6c 6c 2d 74 65 72 6d 69 |f the nu|ll-termi|
|00001480| 6e 61 74 65 64 20 73 74 | 72 69 6e 67 20 61 74 20 |nated st|ring at |
|00001490| 61 64 64 72 65 73 73 0d | 07 3a 04 0d 07 44 17 f4 |address.|.:...D..|
|000014a0| 20 46 4e 6c 65 6e 4c 46 | 28 61 64 64 72 65 73 73 | FNlenLF|(address|
|000014b0| 25 29 0d 07 4e 33 f4 20 | 4c 65 6e 67 74 68 20 6f |%)..N3. |Length o|
|000014c0| 66 20 74 68 65 20 4c 46 | 2d 74 65 72 6d 69 6e 61 |f the LF|-termina|
|000014d0| 74 65 64 20 73 74 72 69 | 6e 67 20 61 74 20 61 64 |ted stri|ng at ad|
|000014e0| 64 72 65 73 73 0d 07 58 | 04 0d 07 62 16 f4 20 46 |dress..X|...b.. F|
|000014f0| 4e 6c 65 6e 63 28 61 64 | 64 72 65 73 73 25 29 0d |Nlenc(ad|dress%).|
|00001500| 07 6c 3a f4 20 4c 65 6e | 67 74 68 20 6f 66 20 74 |.l:. Len|gth of t|
|00001510| 68 65 20 63 74 72 6c 2d | 63 6f 64 65 2d 74 65 72 |he ctrl-|code-ter|
|00001520| 6d 69 6e 61 74 65 64 20 | 73 74 72 69 6e 67 20 61 |minated |string a|
|00001530| 74 20 61 64 64 72 65 73 | 73 0d 07 76 04 0d 07 80 |t addres|s..v....|
|00001540| 29 f4 20 46 4e 6c 65 6e | 78 28 61 64 64 72 65 73 |). FNlen|x(addres|
|00001550| 73 25 2c 20 74 65 72 6d | 69 6e 61 74 69 6e 67 5f |s%, term|inating_|
|00001560| 63 6f 64 65 25 29 0d 07 | 8a 42 f4 20 4c 65 6e 67 |code%)..|.B. Leng|
|00001570| 74 68 20 6f 66 20 74 68 | 65 20 73 74 72 69 6e 67 |th of th|e string|
|00001580| 20 61 74 20 61 64 64 72 | 65 73 73 20 2d 20 79 6f | at addr|ess - yo|
|00001590| 75 20 73 70 65 63 69 66 | 79 20 74 68 65 20 74 65 |u specif|y the te|
|000015a0| 72 6d 69 6e 61 74 6f 72 | 0d 07 94 04 0d 07 9e 3b |rminator|.......;|
|000015b0| f4 20 54 68 65 73 65 20 | 66 75 6e 63 74 69 6f 6e |. These |function|
|000015c0| 73 20 77 69 6c 6c 20 6f | 6e 6c 79 20 72 65 74 75 |s will o|nly retu|
|000015d0| 72 6e 20 75 70 20 74 6f | 20 32 35 35 20 63 68 61 |rn up to| 255 cha|
|000015e0| 72 61 63 74 65 72 73 0d | 07 a8 04 0d 07 b2 1b dd |racters.|........|
|000015f0| 20 a4 6c 65 6e 30 28 41 | 25 29 3d a4 6c 65 6e 78 | .len0(A|%)=.lenx|
|00001600| 28 41 25 2c 30 29 0d 07 | bc 1d dd 20 a4 6c 65 6e |(A%,0)..|... .len|
|00001610| 4c 46 28 41 25 29 3d a4 | 6c 65 6e 78 28 41 25 2c |LF(A%)=.|lenx(A%,|
|00001620| 31 30 29 0d 07 c6 17 dd | 20 a4 6c 65 6e 63 28 41 |10).....| .lenc(A|
|00001630| 25 29 3d ba 20 60 6c 65 | 6e 63 0d 07 d0 1a dd 20 |%)=. `le|nc..... |
|00001640| a4 6c 65 6e 78 28 41 25 | 2c 42 25 29 3d ba 20 60 |.lenx(A%|,B%)=. `|
|00001650| 6c 65 6e 78 0d 07 da 04 | 0d 07 e4 04 0d 07 ee 48 |lenx....|.......H|
|00001660| f4 20 50 52 4f 43 6f 70 | 65 6e 69 6e 20 20 20 20 |. PROCop|enin |
|00001670| 20 20 4f 70 65 6e 73 20 | 74 68 65 20 69 6e 70 75 | Opens |the inpu|
|00001680| 74 20 66 69 6c 65 20 28 | 73 65 74 73 20 69 6e 25 |t file (|sets in%|
|00001690| 20 74 6f 20 74 68 65 20 | 66 69 6c 65 20 68 61 6e | to the |file han|
|000016a0| 64 6c 65 29 0d 07 f8 4a | f4 20 50 52 4f 43 6f 70 |dle)...J|. PROCop|
|000016b0| 65 6e 6f 75 74 20 20 20 | 20 20 4f 70 65 6e 73 20 |enout | Opens |
|000016c0| 74 68 65 20 6f 75 74 70 | 75 74 20 66 69 6c 65 20 |the outp|ut file |
|000016d0| 28 73 65 74 73 20 6f 75 | 74 25 20 74 6f 20 74 68 |(sets ou|t% to th|
|000016e0| 65 20 66 69 6c 65 20 68 | 61 6e 64 6c 65 29 0d 08 |e file h|andle)..|
|000016f0| 02 2b f4 20 50 52 4f 43 | 63 6c 6f 73 65 69 6e 20 |.+. PROC|closein |
|00001700| 20 20 20 20 43 6c 6f 73 | 65 73 20 74 68 65 20 69 | Clos|es the i|
|00001710| 6e 70 75 74 20 66 69 6c | 65 0d 08 0c 2c f4 20 50 |nput fil|e...,. P|
|00001720| 52 4f 43 63 6c 6f 73 65 | 6f 75 74 20 20 20 20 43 |ROCclose|out C|
|00001730| 6c 6f 73 65 73 20 74 68 | 65 20 6f 75 74 70 75 74 |loses th|e output|
|00001740| 20 66 69 6c 65 0d 08 16 | 04 0d 08 20 0d dd 20 f2 | file...|... .. .|
|00001750| 6f 70 65 6e 69 6e 0d 08 | 2a 18 e7 20 69 6e 25 3d |openin..|*.. in%=|
|00001760| 2d 31 20 8c 20 69 6e 25 | 3d 8e 20 69 6e 24 0d 08 |-1 . in%|=. in$..|
|00001770| 34 05 e1 0d 08 3e 04 0d | 08 48 0e dd 20 f2 6f 70 |4....>..|.H.. .op|
|00001780| 65 6e 6f 75 74 0d 08 52 | 1b e7 20 6f 75 74 25 3d |enout..R|.. out%=|
|00001790| 2d 31 20 8c 20 6f 75 74 | 25 3d ae 20 6f 75 74 24 |-1 . out|%=. out$|
|000017a0| 0d 08 5c 05 e1 0d 08 66 | 04 0d 08 70 0e dd 20 f2 |..\....f|...p.. .|
|000017b0| 63 6c 6f 73 65 69 6e 0d | 08 7a 1d e7 20 69 6e 25 |closein.|.z.. in%|
|000017c0| 3c 3e 2d 31 20 8c 20 d9 | 20 23 69 6e 25 3a 69 6e |<>-1 . .| #in%:in|
|000017d0| 25 3d 2d 31 0d 08 84 05 | e1 0d 08 8e 04 0d 08 98 |%=-1....|........|
|000017e0| 0f dd 20 f2 63 6c 6f 73 | 65 6f 75 74 0d 08 a2 20 |.. .clos|eout... |
|000017f0| e7 20 6f 75 74 25 3c 3e | 2d 31 20 8c 20 d9 20 23 |. out%<>|-1 . . #|
|00001800| 6f 75 74 25 3a 6f 75 74 | 25 3d 2d 31 0d 08 ac 05 |out%:out|%=-1....|
|00001810| e1 0d 08 b6 04 0d 08 c0 | 04 0d 08 ca 31 f4 20 50 |........|....1. P|
|00001820| 52 4f 43 6c 6f 61 64 69 | 6e 28 52 45 54 55 52 4e |ROCloadi|n(RETURN|
|00001830| 20 61 64 64 72 65 73 73 | 25 2c 20 52 45 54 55 52 | address|%, RETUR|
|00001840| 4e 20 6c 65 6e 67 74 68 | 25 29 0d 08 d4 2b f4 20 |N length|%)...+. |
|00001850| 43 6c 61 69 6d 20 6d 65 | 6d 6f 72 79 20 66 6f 72 |Claim me|mory for|
|00001860| 2c 20 61 6e 64 20 6c 6f | 61 64 20 69 6e 70 75 74 |, and lo|ad input|
|00001870| 20 66 69 6c 65 0d 08 de | 3f f4 20 45 6e 73 75 72 | file...|?. Ensur|
|00001880| 65 73 20 74 68 61 74 20 | 62 75 66 66 65 72 20 69 |es that |buffer i|
|00001890| 73 20 66 6f 6c 6c 6f 77 | 65 64 20 62 79 20 61 20 |s follow|ed by a |
|000018a0| 6c 69 6e 65 20 66 65 65 | 64 20 61 6e 64 20 61 20 |line fee|d and a |
|000018b0| 6e 75 6c 6c 0d 08 e8 04 | 0d 08 f2 23 f4 20 46 4e |null....|...#. FN|
|000018c0| 67 65 74 62 6c 6f 63 6b | 28 61 64 64 72 65 73 73 |getblock|(address|
|000018d0| 25 2c 20 6c 65 6e 67 74 | 68 25 29 0d 08 fc 4a f4 |%, lengt|h%)...J.|
|000018e0| 20 52 65 61 64 20 6c 65 | 6e 67 74 68 25 20 62 79 | Read le|ngth% by|
|000018f0| 74 65 73 20 66 72 6f 6d | 20 69 6e 70 75 74 20 66 |tes from| input f|
|00001900| 69 6c 65 20 28 6d 75 73 | 74 20 62 65 20 6f 70 65 |ile (mus|t be ope|
|00001910| 6e 65 64 20 75 73 69 6e | 67 20 50 52 4f 43 6f 70 |ned usin|g PROCop|
|00001920| 65 6e 69 6e 29 0d 09 06 | 3c f4 20 52 65 74 75 72 |enin)...|<. Retur|
|00001930| 6e 73 20 30 20 69 66 20 | 73 75 63 63 65 73 73 66 |ns 0 if |successf|
|00001940| 75 6c 2c 20 65 6c 73 65 | 20 6e 75 6d 62 65 72 20 |ul, else| number |
|00001950| 6f 66 20 62 79 74 65 73 | 20 6e 6f 74 20 72 65 61 |of bytes| not rea|
|00001960| 64 0d 09 10 04 0d 09 1a | 18 dd 20 f2 6c 6f 61 64 |d.......|.. .load|
|00001970| 69 6e 28 f8 20 41 25 2c | f8 20 42 25 29 0d 09 24 |in(. A%,|. B%)..$|
|00001980| 30 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 31 37 |0.. "OS_|File",17|
|00001990| 2c 69 6e 24 20 b8 20 2c | 2c 2c 2c 42 25 3a 41 25 |,in$ . ,|,,,B%:A%|
|000019a0| 3d a4 63 6c 61 69 6d 28 | 42 25 2b 32 29 0d 09 2e |=.claim(|B%+2)...|
|000019b0| 2f c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 31 36 |/.. "OS_|File",16|
|000019c0| 2c 69 6e 24 2c 41 25 3a | 41 25 3f 42 25 3d 31 30 |,in$,A%:|A%?B%=10|
|000019d0| 3a 41 25 3f 28 42 25 2b | 31 29 3d 30 0d 09 38 05 |:A%?(B%+|1)=0..8.|
|000019e0| e1 0d 09 42 04 0d 09 4c | 16 dd 20 a4 67 65 74 62 |...B...L|.. .getb|
|000019f0| 6c 6f 63 6b 28 41 25 2c | 42 25 29 0d 09 56 24 c8 |lock(A%,|B%)..V$.|
|00001a00| 99 20 22 4f 53 5f 47 42 | 50 42 22 2c 34 2c 69 6e |. "OS_GB|PB",4,in|
|00001a10| 25 2c 41 25 2c 42 25 20 | b8 20 2c 2c 2c 42 25 0d |%,A%,B% |. ,,,B%.|
|00001a20| 09 60 07 3d 42 25 0d 09 | 6a 04 0d 09 74 04 0d 09 |.`.=B%..|j...t...|
|00001a30| 7e 24 f4 20 50 52 4f 43 | 73 61 76 65 6f 75 74 28 |~$. PROC|saveout(|
|00001a40| 61 64 64 72 65 73 73 25 | 2c 20 6c 65 6e 67 74 68 |address%|, length|
|00001a50| 25 29 0d 09 88 36 f4 20 | 53 61 76 65 20 6f 75 74 |%)...6. |Save out|
|00001a60| 70 75 74 20 66 69 6c 65 | 20 28 77 69 6c 6c 20 66 |put file| (will f|
|00001a70| 61 69 6c 20 69 66 20 74 | 68 65 20 66 69 6c 65 20 |ail if t|he file |
|00001a80| 69 73 20 6f 70 65 6e 29 | 0d 09 92 19 f4 20 46 69 |is open)|..... Fi|
|00001a90| 6c 65 20 74 79 70 65 20 | 69 73 20 27 74 65 78 74 |le type |is 'text|
|00001aa0| 27 0d 09 9c 04 0d 09 a6 | 23 f4 20 46 4e 70 75 74 |'.......|#. FNput|
|00001ab0| 62 6c 6f 63 6b 28 61 64 | 64 72 65 73 73 25 2c 20 |block(ad|dress%, |
|00001ac0| 6c 65 6e 67 74 68 25 29 | 0d 09 b0 4a f4 20 52 65 |length%)|...J. Re|
|00001ad0| 61 64 20 6c 65 6e 67 74 | 68 25 20 62 79 74 65 73 |ad lengt|h% bytes|
|00001ae0| 20 66 72 6f 6d 20 69 6e | 70 75 74 20 66 69 6c 65 | from in|put file|
|00001af0| 20 28 6d 75 73 74 20 62 | 65 20 6f 70 65 6e 65 64 | (must b|e opened|
|00001b00| 20 75 73 69 6e 67 20 50 | 52 4f 43 6f 70 65 6e 69 | using P|ROCopeni|
|00001b10| 6e 29 0d 09 ba 3c f4 20 | 52 65 74 75 72 6e 73 20 |n)...<. |Returns |
|00001b20| 30 20 69 66 20 73 75 63 | 63 65 73 73 66 75 6c 2c |0 if suc|cessful,|
|00001b30| 20 65 6c 73 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 | else nu|mber of |
|00001b40| 62 79 74 65 73 20 6e 6f | 74 20 72 65 61 64 0d 09 |bytes no|t read..|
|00001b50| c4 25 f4 20 28 4d 6f 72 | 65 20 6c 69 6b 65 6c 79 |.%. (Mor|e likely|
|00001b60| 20 30 20 6f 72 20 65 72 | 72 6f 72 20 72 65 70 6f | 0 or er|ror repo|
|00001b70| 72 74 29 0d 09 ce 04 0d | 09 d8 15 dd 20 f2 73 61 |rt).....|.... .sa|
|00001b80| 76 65 6f 75 74 28 41 25 | 2c 42 25 29 0d 09 e2 27 |veout(A%|,B%)...'|
|00001b90| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 31 30 2c |.. "OS_F|ile",10,|
|00001ba0| 6f 75 74 24 2c 26 46 46 | 46 2c 2c 41 25 2c 41 25 |out$,&FF|F,,A%,A%|
|00001bb0| 2b 42 25 0d 09 ec 05 e1 | 0d 09 f6 04 0d 0a 00 16 |+B%.....|........|
|00001bc0| dd 20 a4 70 75 74 62 6c | 6f 63 6b 28 41 25 2c 42 |. .putbl|ock(A%,B|
|00001bd0| 25 29 0d 0a 0a 25 c8 99 | 20 22 4f 53 5f 47 42 50 |%)...%..| "OS_GBP|
|00001be0| 42 22 2c 32 2c 6f 75 74 | 25 2c 41 25 2c 42 25 20 |B",2,out|%,A%,B% |
|00001bf0| b8 20 2c 2c 2c 42 25 0d | 0a 14 07 3d 42 25 0d 0a |. ,,,B%.|...=B%..|
|00001c00| 1e 04 0d 0a 28 04 0d 0a | 32 14 f4 20 46 4e 63 6c |....(...|2.. FNcl|
|00001c10| 61 69 6d 28 73 69 7a 65 | 25 29 0d 0a 3c 28 f4 20 |aim(size|%)..<(. |
|00001c20| 43 6c 61 69 6d 20 73 69 | 7a 65 25 20 62 79 74 65 |Claim si|ze% byte|
|00001c30| 73 20 66 72 6f 6d 20 66 | 72 65 65 20 6d 65 6d 6f |s from f|ree memo|
|00001c40| 72 79 0d 0a 46 3f f4 20 | 4e 6f 74 65 20 74 68 69 |ry..F?. |Note thi|
|00001c50| 73 20 69 73 20 4e 4f 54 | 20 61 20 68 65 61 70 20 |s is NOT| a heap |
|00001c60| 28 79 65 74 29 2c 20 73 | 6f 20 6d 65 6d 6f 72 79 |(yet), s|o memory|
|00001c70| 20 63 6c 61 69 6d 73 20 | 61 72 65 20 66 69 78 65 | claims |are fixe|
|00001c80| 64 0d 0a 50 21 f4 20 41 | 6c 6c 20 63 6c 61 69 6d |d..P!. A|ll claim|
|00001c90| 73 20 61 72 65 20 77 6f | 72 64 2d 61 6c 69 67 6e |s are wo|rd-align|
|00001ca0| 65 64 0d 0a 5a 2a f4 20 | 4e 4f 54 45 3a 20 4e 65 |ed..Z*. |NOTE: Ne|
|00001cb0| 67 61 74 69 76 65 20 63 | 6c 61 69 6d 73 20 61 72 |gative c|laims ar|
|00001cc0| 65 20 61 6c 6c 6f 77 65 | 64 2e 2e 2e 0d 0a 64 04 |e allowe|d.....d.|
|00001cd0| 0d 0a 6e 10 dd 20 a4 63 | 6c 61 69 6d 28 41 25 29 |..n.. .c|laim(A%)|
|00001ce0| 0d 0a 78 16 ea 20 42 25 | 2c 43 25 3a 42 25 3d 60 |..x.. B%|,C%:B%=`|
|00001cf0| 61 6c 6c 6f 63 25 0d 0a | 82 0a c8 8e 20 b9 20 ca |alloc%..|.... . .|
|00001d00| 0d 0a 8c 31 c9 20 41 25 | 3e 30 3a c8 99 20 22 57 |...1. A%|>0:.. "W|
|00001d10| 69 6d 70 5f 53 6c 6f 74 | 53 69 7a 65 22 2c 42 25 |imp_Slot|Size",B%|
|00001d20| 2b 41 25 2d 26 38 30 30 | 30 2c 2d 31 20 b8 20 43 |+A%-&800|0,-1 . C|
|00001d30| 25 0d 0a 96 2f 20 e7 20 | 42 25 3d 41 25 2d 26 38 |%.../ . |B%=A%-&8|
|00001d40| 30 30 30 3c 43 25 20 8c | 20 85 20 31 2c 22 4e 6f |000<C% .| . 1,"No|
|00001d50| 74 20 65 6e 6f 75 67 68 | 20 6d 65 6d 6f 72 79 22 |t enough| memory"|
|00001d60| 0d 0a a0 19 20 60 61 6c | 6c 6f 63 25 3d 42 25 2b |.... `al|loc%=B%+|
|00001d70| 41 25 2b 33 20 80 20 2d | 34 0d 0a aa 3d c9 20 41 |A%+3 . -|4...=. A|
|00001d80| 25 3c 30 3a e7 20 42 25 | 2b 41 25 3c 93 20 8c 20 |%<0:. B%|+A%<. . |
|00001d90| 85 20 31 2c 22 43 61 6e | 27 74 20 72 65 6c 65 61 |. 1,"Can|'t relea|
|00001da0| 73 65 20 42 41 53 49 43 | 27 73 20 77 6f 72 6b 73 |se BASIC|'s works|
|00001db0| 70 61 63 65 21 22 0d 0a | b4 26 20 c8 99 20 22 57 |pace!"..|.& .. "W|
|00001dc0| 69 6d 70 5f 53 6c 6f 74 | 53 69 7a 65 22 2c 42 25 |imp_Slot|Size",B%|
|00001dd0| 2b 41 25 2d 26 38 30 30 | 30 2c 2d 31 0d 0a be 17 |+A%-&800|0,-1....|
|00001de0| 20 60 61 6c 6c 6f 63 25 | 3d 42 25 2b 41 25 20 80 | `alloc%|=B%+A% .|
|00001df0| 20 2d 34 0d 0a c8 05 cb | 0d 0a d2 07 3d 42 25 0d | -4.....|....=B%.|
|00001e00| 0a dc 04 0d 0a e6 04 0d | 0a f0 0f f4 20 50 52 4f |........|.... PRO|
|00001e10| 43 66 6c 75 73 68 0d 0a | fa 3b f4 20 52 65 6c 65 |Cflush..|.;. Rele|
|00001e20| 61 73 65 20 61 6c 6c 20 | 77 6f 72 6b 73 70 61 63 |ase all |workspac|
|00001e30| 65 20 28 65 78 63 65 70 | 74 20 74 68 61 74 20 72 |e (excep|t that r|
|00001e40| 65 71 75 69 72 65 64 20 | 62 79 20 42 41 53 49 43 |equired |by BASIC|
|00001e50| 29 0d 0b 04 04 0d 0b 0e | 0c dd 20 f2 66 6c 75 73 |).......|.. .flus|
|00001e60| 68 0d 0b 18 2b 60 61 6c | 6c 6f 63 25 3d 93 3a c8 |h...+`al|loc%=.:.|
|00001e70| 99 20 22 57 69 6d 70 5f | 53 6c 6f 74 53 69 7a 65 |. "Wimp_|SlotSize|
|00001e80| 22 2c 93 2d 26 38 30 30 | 30 2c 2d 31 0d 0b 22 05 |",.-&800|0,-1..".|
|00001e90| e1 0d 0b 2c 04 0d 0b 36 | 04 0d 0b 40 1c f4 20 46 |...,...6|...@.. F|
|00001ea0| 4e 73 74 72 69 70 73 70 | 61 63 65 73 28 73 74 72 |Nstripsp|aces(str|
|00001eb0| 69 6e 67 24 29 0d 0b 4a | 36 f4 20 52 65 6d 6f 76 |ing$)..J|6. Remov|
|00001ec0| 65 73 20 65 78 63 65 73 | 73 20 73 70 61 63 65 73 |es exces|s spaces|
|00001ed0| 20 61 74 20 73 74 61 72 | 74 20 61 6e 64 20 65 6e | at star|t and en|
|00001ee0| 64 20 6f 66 20 73 74 72 | 69 6e 67 0d 0b 54 04 0d |d of str|ing..T..|
|00001ef0| 0b 5e 16 dd 20 a4 73 74 | 72 69 70 73 70 61 63 65 |.^.. .st|ripspace|
|00001f00| 73 28 61 24 29 0d 0b 68 | 1a c8 95 20 97 20 61 24 |s(a$)..h|... . a$|
|00001f10| 3d 33 32 3a 61 24 3d c1 | 61 24 2c 32 29 3a ce 0d |=32:a$=.|a$,2):..|
|00001f20| 0b 72 19 c8 95 20 c2 61 | 24 29 3d 22 20 22 3a 61 |.r... .a|$)=" ":a|
|00001f30| 24 2d c0 61 24 29 3a ce | 0d 0b 7c 07 3d 61 24 0d |$-.a$):.|..|.=a$.|
|00001f40| 0b 86 04 0d 0b 90 04 0d | 0b 9a 24 f4 20 4d 61 63 |........|..$. Mac|
|00001f50| 68 69 6e 65 20 63 6f 64 | 65 20 75 73 65 64 20 62 |hine cod|e used b|
|00001f60| 79 20 46 69 6c 74 65 72 | 4c 69 62 0d 0b a4 04 0d |y Filter|Lib.....|
|00001f70| 0b ae 13 dd 20 f2 66 69 | 6c 74 65 72 5f 6d 63 6f |.... .fi|lter_mco|
|00001f80| 64 65 0d 0b b8 11 de 20 | 60 63 6f 64 65 25 20 32 |de..... |`code% 2|
|00001f90| 30 34 38 0d 0b c2 12 e3 | 20 70 25 3d 30 20 b8 20 |048.....| p%=0 . |
|00001fa0| 32 20 88 20 32 0d 0b cc | 0d 50 25 3d 60 63 6f 64 |2 . 2...|.P%=`cod|
|00001fb0| 65 25 0d 0b d6 0b 5b 4f | 50 54 20 70 25 0d 0b e0 |e%....[O|PT p%...|
|00001fc0| 04 0d 0b ea 23 2e 60 73 | 74 72 69 6e 67 62 75 66 |....#.`s|tringbuf|
|00001fd0| 20 44 43 42 20 c4 32 35 | 35 2c bd 20 30 29 3a 44 | DCB .25|5,. 0):D|
|00001fe0| 43 42 20 30 0d 0b f4 04 | 0d 0b fe 0d 2e 60 73 74 |CB 0....|.....`st|
|00001ff0| 72 69 6e 67 78 0d 0c 08 | 1f 4d 4f 56 20 32 2c 23 |ringx...|.MOV 2,#|
|00002000| 32 35 35 3a 41 44 52 20 | 33 2c 60 73 74 72 69 6e |255:ADR |3,`strin|
|00002010| 67 62 75 66 0d 0c 12 47 | 2e 60 20 4c 44 52 42 20 |gbuf...G|.` LDRB |
|00002020| 34 2c 5b 30 5d 2c 23 31 | 3a 54 45 51 20 34 2c 31 |4,[0],#1|:TEQ 4,1|
|00002030| 3a ec 51 20 34 2c 23 31 | 33 3a 53 54 52 42 20 34 |:.Q 4,#1|3:STRB 4|
|00002040| 2c 5b 33 5d 2c 23 31 3a | 53 55 42 4e 45 53 20 32 |,[3],#1:|SUBNES 2|
|00002050| 2c 32 2c 23 31 3a 42 4e | 45 20 60 0d 0c 1c 0e 4d |,2,#1:BN|E `....M|
|00002060| 4f 56 53 20 50 43 2c 31 | 34 0d 0c 26 04 0d 0c 30 |OVS PC,1|4..&...0|
|00002070| 0d 2e 60 73 74 72 69 6e | 67 63 0d 0c 3a 1f 4d 4f |..`strin|gc..:.MO|
|00002080| 56 20 32 2c 23 32 35 35 | 3a 41 44 52 20 33 2c 60 |V 2,#255|:ADR 3,`|
|00002090| 73 74 72 69 6e 67 62 75 | 66 0d 0c 44 50 2e 60 20 |stringbu|f..DP.` |
|000020a0| 4c 44 52 42 20 34 2c 5b | 30 5d 2c 23 31 3a 43 4d |LDRB 4,[|0],#1:CM|
|000020b0| 50 20 34 2c 23 33 32 3a | 4d 4f 56 4c 54 20 34 2c |P 4,#32:|MOVLT 4,|
|000020c0| 23 31 33 3a 53 54 52 42 | 20 34 2c 5b 33 5d 2c 23 |#13:STRB| 4,[3],#|
|000020d0| 31 3a 54 45 51 20 34 2c | 23 31 33 3a 53 55 42 4e |1:TEQ 4,|#13:SUBN|
|000020e0| 45 53 20 32 2c 32 2c 23 | 31 0d 0c 4e 14 42 4e 45 |ES 2,2,#|1..N.BNE|
|000020f0| 20 60 3a 4d 4f 56 53 20 | 50 43 2c 31 34 0d 0c 58 | `:MOVS |PC,14..X|
|00002100| 04 0d 0c 62 0a 2e 60 6c | 65 6e 78 0d 0c 6c 0c 4d |...b..`l|enx..l.M|
|00002110| 4f 56 20 32 2c 23 30 0d | 0c 76 42 2e 60 20 4c 44 |OV 2,#0.|.vB.` LD|
|00002120| 52 42 20 34 2c 5b 30 5d | 2c 23 31 3a 54 45 51 20 |RB 4,[0]|,#1:TEQ |
|00002130| 34 2c 31 3a 41 44 44 4e | 45 20 32 2c 32 2c 23 31 |4,1:ADDN|E 2,2,#1|
|00002140| 3a 42 4e 45 20 60 3a 4d | 4f 56 20 30 2c 32 3a 4d |:BNE `:M|OV 0,2:M|
|00002150| 4f 56 53 20 50 43 2c 31 | 34 0d 0c 80 04 0d 0c 8a |OVS PC,1|4.......|
|00002160| 0a 2e 60 6c 65 6e 63 0d | 0c 94 0c 4d 4f 56 20 32 |..`lenc.|...MOV 2|
|00002170| 2c 23 30 0d 0c 9e 44 2e | 60 20 4c 44 52 42 20 34 |,#0...D.|` LDRB 4|
|00002180| 2c 5b 30 5d 2c 23 31 3a | 43 4d 50 20 34 2c 23 33 |,[0],#1:|CMP 4,#3|
|00002190| 32 3a 41 44 44 47 45 20 | 32 2c 32 2c 23 31 3a 42 |2:ADDGE |2,2,#1:B|
|000021a0| 47 45 20 60 3a 4d 4f 56 | 20 30 2c 32 3a 4d 4f 56 |GE `:MOV| 0,2:MOV|
|000021b0| 53 20 50 43 2c 31 34 0d | 0c a8 06 5d ed 0d 0c b2 |S PC,14.|...]....|
|000021c0| 05 e1 0d ff | |.... | |
+--------+-------------------------+-------------------------+--------+--------+
