/ Amoszine 6 / Amoszine 6 (Disk 2 of 2).adf / extra_source.lha / OTHER_SOURCE / _GET_ARGS.Amos

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 33 34 20 |AMOS Bas|ic V134 |
|00000010| 00 00 14 9c 25 01 06 52 | 00 42 20 54 68 69 73 20 |....%..R|.B This |
|00000020| 69 73 20 61 20 72 6f 75 | 74 69 6e 65 20 62 79 20 |is a rou|tine by |
|00000030| 4d 69 63 68 61 65 6c 20 | 44 2e 20 43 6f 78 20 28 |Michael |D. Cox (|
|00000040| 61 6a 36 33 39 40 43 6c | 65 76 65 6c 61 6e 64 2e |aj639@Cl|eveland.|
|00000050| 66 72 65 65 6e 65 74 2e | 65 64 75 29 00 00 29 01 |freenet.|edu)..).|
|00000060| 06 52 00 4a 20 49 20 77 | 61 73 20 6c 6f 6f 6b 69 |.R.J I w|as looki|
|00000070| 6e 67 20 74 68 72 6f 75 | 67 68 20 74 68 65 20 52 |ng throu|gh the R|
|00000080| 4b 4d 73 20 61 6e 64 20 | 73 61 77 20 61 6e 20 61 |KMs and |saw an a|
|00000090| 73 73 65 6d 62 6c 65 72 | 20 72 6f 75 74 69 6e 65 |ssembler| routine|
|000000a0| 20 74 6f 20 64 65 74 65 | 72 6d 69 6e 65 20 00 00 | to dete|rmine ..|
|000000b0| 26 01 06 52 00 44 20 61 | 6c 6c 20 74 68 65 20 63 |&..R.D a|ll the c|
|000000c0| 6f 6d 6d 61 6e 64 20 6c | 69 6e 65 20 61 72 67 75 |ommand l|ine argu|
|000000d0| 6d 65 6e 74 73 20 66 6f | 72 20 61 20 63 6f 6d 6d |ments fo|r a comm|
|000000e0| 61 6e 64 2e 20 20 53 6f | 2c 20 49 20 77 61 73 20 |and.  So|, I was |
|000000f0| 62 6f 72 65 64 20 61 6e | 64 20 00 00 1f 01 06 52 |bored an|d .....R|
|00000100| 00 36 20 64 65 63 69 64 | 65 64 20 74 6f 20 63 6f |.6 decid|ed to co|
|00000110| 6e 76 65 72 74 20 69 74 | 20 74 6f 20 41 4d 4f 53 |nvert it| to AMOS|
|00000120| 2c 20 77 68 69 63 68 20 | 77 61 73 20 72 65 61 6c |, which |was real|
|00000130| 20 73 69 6d 70 6c 65 2e | 00 00 04 01 06 52 00 00 | simple.|.....R..|
|00000140| 00 00 16 01 06 52 00 24 | 20 54 68 65 73 65 20 6c |.....R.$| These l|
|00000150| 69 6e 65 73 20 6a 75 73 | 74 20 73 65 74 75 70 20 |ines jus|t setup |
|00000160| 61 6e 20 65 78 61 6d 70 | 6c 65 2e 20 00 00 2c 01 |an examp|le. ..,.|
|00000170| 06 52 00 50 20 5f 4d 41 | 58 41 52 47 43 20 69 73 |.R.P _MA|XARGC is|
|00000180| 20 61 20 76 61 72 69 61 | 62 6c 65 20 74 68 61 74 | a varia|ble that|
|00000190| 20 68 61 73 20 74 68 65 | 20 6d 61 78 69 6d 75 6d | has the| maximum|
|000001a0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 61 72 67 75 6d | number |of argum|
|000001b0| 65 6e 74 73 20 79 6f 75 | 72 20 70 72 6f 67 72 61 |ents you|r progra|
|000001c0| 6d 20 20 20 00 00 10 01 | 06 52 00 18 20 20 20 20 |m   ....|.R..    |
|000001d0| 20 20 20 20 20 20 77 69 | 6c 6c 20 61 63 63 65 70 |      wi|ll accep|
|000001e0| 74 2e 20 20 00 00 04 01 | 06 52 00 00 00 00 24 01 |t.  ....|.R....$.|
|000001f0| 06 52 00 40 20 41 52 47 | 56 24 28 5f 4d 41 58 41 |.R.@ ARG|V$(_MAXA|
|00000200| 52 47 43 29 20 69 73 20 | 61 6e 20 61 72 72 61 79 |RGC) is |an array|
|00000210| 20 74 68 61 74 20 77 69 | 6c 6c 20 68 6f 6c 64 20 | that wi|ll hold |
|00000220| 74 68 65 20 46 49 4e 41 | 4c 20 61 72 67 75 6d 65 |the FINA|L argume|
|00000230| 6e 74 73 2e 00 00 27 01 | 06 52 00 46 20 43 4d 44 |nts...'.|.R.F CMD|
|00000240| 4c 49 4e 45 24 20 77 69 | 6c 6c 20 61 63 74 75 61 |LINE$ wi|ll actua|
|00000250| 6c 6c 79 20 62 65 63 6f | 6d 65 20 43 4d 44 4c 49 |lly beco|me CMDLI|
|00000260| 4e 45 24 20 3d 20 43 6f | 6d 6d 61 6e 64 20 4c 69 |NE$ = Co|mmand Li|
|00000270| 6e 65 24 20 77 68 65 6e | 20 79 6f 75 20 68 61 76 |ne$ when| you hav|
|00000280| 65 20 00 00 24 01 06 52 | 00 40 20 20 20 20 20 20 |e ..$..R|.@      |
|00000290| 20 20 20 20 63 6f 6d 70 | 69 6c 65 64 20 79 6f 75 |    comp|iled you|
|000002a0| 72 20 70 72 6f 67 72 61 | 6d 20 61 6e 64 20 61 72 |r progra|m and ar|
|000002b0| 65 20 72 65 61 64 79 20 | 74 6f 20 64 69 73 74 72 |e ready |to distr|
|000002c0| 69 62 75 74 65 20 69 74 | 2e 20 00 00 22 01 06 52 |ibute it|. .."..R|
|000002d0| 00 3c 20 5f 54 4f 54 41 | 4c 5f 41 52 47 53 20 77 |.< _TOTA|L_ARGS w|
|000002e0| 69 6c 6c 20 62 65 20 61 | 73 73 69 67 6e 65 64 20 |ill be a|ssigned |
|000002f0| 74 68 65 20 61 63 74 75 | 61 6c 20 6e 75 6d 62 65 |the actu|al numbe|
|00000300| 72 20 6f 66 20 61 72 67 | 75 6d 65 6e 74 73 00 00 |r of arg|uments..|
|00000310| 04 01 06 52 00 00 00 00 | 1f 01 06 52 00 36 20 55 |...R....|...R.6 U|
|00000320| 6e 66 6f 6c 64 20 74 68 | 65 20 70 72 6f 63 65 64 |nfold th|e proced|
|00000330| 75 72 65 20 61 6e 64 20 | 69 74 20 77 69 6c 6c 20 |ure and |it will |
|00000340| 65 78 70 6c 61 69 6e 20 | 77 68 61 74 20 68 61 70 |explain |what hap|
|00000350| 70 65 6e 73 00 00 04 01 | 06 52 00 00 00 00 28 01 |pens....|.R....(.|
|00000360| 06 52 00 48 20 59 6f 75 | 20 6d 61 79 20 6d 6f 64 |.R.H You| may mod|
|00000370| 69 66 79 20 74 68 69 73 | 20 74 6f 20 68 61 6e 64 |ify this| to hand|
|00000380| 6c 65 20 77 68 61 74 65 | 76 65 72 20 6f 74 68 65 |le whate|ver othe|
|00000390| 72 20 74 79 70 65 20 6f | 66 20 61 72 67 75 6d 65 |r type o|f argume|
|000003a0| 6e 74 73 20 79 6f 75 20 | 6e 65 65 64 00 00 26 01 |nts you |need..&.|
|000003b0| 06 52 00 44 20 62 75 74 | 20 70 6c 65 61 73 65 20 |.R.D but| please |
|000003c0| 73 65 6e 64 20 6d 65 20 | 61 20 63 6f 70 79 20 6a |send me |a copy j|
|000003d0| 75 73 74 20 73 6f 20 49 | 20 63 61 6e 20 73 65 65 |ust so I| can see|
|000003e0| 20 77 68 61 74 20 63 68 | 61 6e 67 65 73 20 77 65 | what ch|anges we|
|000003f0| 72 65 20 6d 61 64 65 2e | 00 00 09 01 06 52 00 0a |re made.|.....R..|
|00000400| 20 54 68 61 6e 6b 73 21 | 21 20 00 00 19 01 06 52 | Thanks!|! .....R|
|00000410| 00 2a 20 4d 69 63 68 61 | 65 6c 20 43 6f 78 2c 20 |.* Micha|el Cox, |
|00000420| 4f 63 74 6f 62 65 72 20 | 37 2c 20 31 39 39 33 2c |October |7, 1993,|
|00000430| 20 20 31 39 3a 31 30 20 | 45 44 54 20 00 00 1a 01 |  19:10 |EDT ....|
|00000440| 06 52 00 2c 20 28 37 30 | 33 29 37 34 32 2d 32 39 |.R., (70|3)742-29|
|00000450| 39 31 20 28 76 6f 69 63 | 65 29 2c 20 28 37 30 33 |91 (voic|e), (703|
|00000460| 29 37 34 32 2d 32 35 34 | 33 20 28 66 61 78 29 20 |)742-254|3 (fax) |
|00000470| 00 00 1e 01 06 52 00 34 | 20 31 31 31 32 38 20 52 |.....R.4| 11128 R|
|00000480| 6f 63 6b 20 47 61 72 64 | 65 6e 20 44 72 69 76 65 |ock Gard|en Drive|
|00000490| 2c 20 46 61 69 72 66 61 | 78 20 56 41 20 32 32 30 |, Fairfa|x VA 220|
|000004a0| 33 30 2d 34 39 33 35 20 | 55 53 41 20 00 00 04 01 |30-4935 |USA ....|
|000004b0| 06 52 00 00 00 00 0d 01 | 00 06 00 00 08 00 5f 6d |.R......|......_m|
|000004c0| 61 78 61 72 67 63 ff a2 | 00 3e 00 00 00 06 00 00 |axargc..|.>......|
|000004d0| 11 01 06 40 00 06 00 06 | 04 42 61 72 67 76 00 74 |...@....|.Bargv.t|
|000004e0| 00 06 00 00 08 00 5f 6d | 61 78 61 72 67 63 00 7c |......_m|axargc.||
|000004f0| 00 00 0a 01 03 9e 00 06 | 00 00 04 42 61 72 67 76 |........|...Bargv|
|00000500| 00 74 00 7c 00 00 46 01 | 00 06 00 0c 08 02 63 6d |.t.|..F.|......cm|
|00000510| 64 6c 69 6e 65 00 ff a2 | 00 26 00 0d 66 69 72 73 |dline...|.&..firs|
|00000520| 74 20 73 65 63 6f 6e 64 | 20 00 ff c0 05 52 00 74 |t second| ....R.t|
|00000530| 00 3e 00 00 00 22 00 7c | ff c0 00 26 00 09 74 68 |.>...".||...&..th|
|00000540| 69 72 64 20 61 72 67 00 | ff c0 05 52 00 74 00 3e |ird arg.|...R.t.>|
|00000550| 00 00 00 22 00 7c ff c0 | 00 26 00 01 20 00 ff c0 |...".|..|.&.. ...|
|00000560| 05 52 00 74 00 3e 00 00 | 00 22 00 7c ff c0 00 26 |.R.t.>..|.".|...&|
|00000570| 00 05 2a 4e 6a 69 6d 00 | ff c0 05 52 00 74 00 3e |..*Njim.|...R.t.>|
|00000580| 00 00 00 22 00 7c ff c0 | 00 26 00 04 20 2a 45 34 |...".|..|.&.. *E4|
|00000590| 00 00 0a 01 04 76 00 06 | 00 0c 08 02 63 6d 64 6c |.....v..|....cmdl|
|000005a0| 69 6e 65 00 00 00 1b 01 | 00 12 ff f0 0a 80 5f 67 |ine.....|......_g|
|000005b0| 65 74 5f 61 72 67 73 00 | 00 84 00 06 00 0c 08 02 |et_args.|........|
|000005c0| 63 6d 64 6c 69 6e 65 00 | 00 5c 00 06 00 00 08 00 |cmdline.|.\......|
|000005d0| 5f 6d 61 78 61 72 67 63 | 00 8c 00 00 0d 01 00 06 |_maxargc|........|
|000005e0| 00 12 0c 00 5f 74 6f 74 | 61 6c 5f 61 72 67 73 00 |...._tot|al_args.|
|000005f0| ff a2 03 e2 00 00 1a 01 | 02 3c 00 52 00 06 00 18 |........|.<.R....|
|00000600| 02 00 78 00 ff a2 00 3e | 00 00 00 00 00 94 00 06 |..x....>|........|
|00000610| 00 12 0c 00 5f 74 6f 74 | 61 6c 5f 61 72 67 73 00 |...._tot|al_args.|
|00000620| ff ca 00 3e 00 00 00 01 | 00 00 0e 04 04 76 00 06 |...>....|.....v..|
|00000630| 00 06 04 42 61 72 67 76 | 00 74 00 06 00 18 02 00 |...Bargv|.t......|
|00000640| 78 00 00 7c 00 00 03 01 | 02 46 00 00 1d 01 03 76 |x..|....|.F.....v|
|00000650| 00 00 0e 56 00 24 80 00 | 00 06 00 00 0a 80 5f 67 |...V.$..|......_g|
|00000660| 65 74 5f 61 72 67 73 00 | 00 84 00 06 00 00 06 02 |et_args.|........|
|00000670| 63 6d 64 6c 6e 00 00 5c | 00 06 00 06 04 00 61 72 |cmdln..\|......ar|
|00000680| 67 63 00 8c 00 00 1a 04 | 06 52 00 2c 20 48 65 72 |gc......|.R., Her|
|00000690| 65 20 77 65 20 6a 75 73 | 74 20 73 65 74 20 74 68 |e we jus|t set th|
|000006a0| 65 20 61 72 72 61 79 20 | 74 6f 20 65 6d 70 74 79 |e array |to empty|
|000006b0| 20 73 74 72 69 6e 67 73 | 00 00 16 04 02 3c 00 56 | strings|.....<.V|
|000006c0| 00 06 00 0c 02 00 78 00 | ff a2 00 3e 00 00 00 00 |......x.|...>....|
|000006d0| 00 94 00 06 00 06 04 00 | 61 72 67 63 ff ca 00 3e |........|argc...>|
|000006e0| 00 00 00 01 00 00 10 07 | 00 06 ff f9 04 42 61 72 |........|.....Bar|
|000006f0| 67 76 00 74 00 06 00 0c | 02 00 78 00 00 7c ff a2 |gv.t....|..x..|..|
|00000700| 00 26 00 00 00 00 07 04 | 02 46 00 06 00 0c 02 00 |.&......|.F......|
|00000710| 78 00 00 00 16 04 06 52 | 00 24 20 57 65 20 6e 6f |x......R|.$ We no|
|00000720| 77 20 61 73 73 69 67 6e | 20 6f 75 72 20 6e 65 65 |w assign| our nee|
|00000730| 64 65 64 20 76 61 72 69 | 61 62 6c 65 73 20 00 00 |ded vari|ables ..|
|00000740| 29 04 06 52 00 4a 20 43 | 4d 44 4c 4e 5f 4c 45 4e |)..R.J C|MDLN_LEN|
|00000750| 20 3d 20 4c 65 6e 67 74 | 68 20 6f 66 20 74 68 65 | = Lengt|h of the|
|00000760| 20 43 4d 44 4c 4e 24 20 | 73 6f 20 77 65 20 6b 6e | CMDLN$ |so we kn|
|00000770| 6f 77 20 77 68 65 6e 20 | 77 65 20 68 61 76 65 20 |ow when |we have |
|00000780| 72 65 61 63 68 65 64 20 | 74 68 65 20 65 6e 64 20 |reached |the end |
|00000790| 00 00 14 04 00 06 00 12 | 0a 00 63 6d 64 6c 6e 5f |........|..cmdln_|
|000007a0| 6c 65 6e 00 ff a2 05 da | 00 74 00 06 00 00 06 02 |len.....|.t......|
|000007b0| 63 6d 64 6c 6e 00 00 7c | 00 00 22 04 06 52 00 3c |cmdln..||.."..R.<|
|000007c0| 20 43 55 52 52 5f 41 52 | 47 20 3d 20 43 75 72 72 | CURR_AR|G = Curr|
|000007d0| 65 6e 74 20 63 6f 6d 6d | 61 6e 64 20 6c 69 6e 65 |ent comm|and line|
|000007e0| 20 61 72 67 75 6d 65 6e | 74 20 77 65 20 61 72 65 | argumen|t we are|
|000007f0| 20 70 72 6f 63 65 73 73 | 69 6e 67 20 00 00 0d 04 | process|ing ....|
|00000800| 00 06 00 18 08 00 63 75 | 72 72 5f 61 72 67 ff a2 |......cu|rr_arg..|
|00000810| 00 3e 00 00 00 00 00 00 | 15 04 06 52 00 22 20 43 |.>......|...R." C|
|00000820| 55 52 52 5f 50 4f 53 20 | 3d 20 50 6f 73 69 74 69 |URR_POS |= Positi|
|00000830| 6f 6e 20 77 69 74 68 69 | 6e 20 43 4d 44 4c 4e 24 |on withi|n CMDLN$|
|00000840| 00 00 0d 04 00 06 00 1e | 08 00 63 75 72 72 5f 70 |........|..curr_p|
|00000850| 6f 73 ff a2 00 3e 00 00 | 00 01 00 00 04 04 06 52 |os...>..|.......R|
|00000860| 00 00 00 00 1f 04 06 52 | 00 36 20 57 65 20 62 65 |.......R|.6 We be|
|00000870| 67 69 6e 20 74 6f 20 66 | 69 6e 64 20 74 68 65 20 |gin to f|ind the |
|00000880| 66 69 72 73 74 20 63 68 | 61 72 61 63 74 65 72 20 |first ch|aracter |
|00000890| 69 6e 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 20 |in the a|rgument |
|000008a0| 00 00 0a 04 00 0c 00 00 | 0a 00 5f 73 74 61 72 74 |........|.._start|
|000008b0| 5f 61 72 67 00 00 29 04 | 02 be 00 68 00 06 00 1e |_arg..).|...h....|
|000008c0| 08 00 63 75 72 72 5f 70 | 6f 73 ff b6 00 06 00 12 |..curr_p|os......|
|000008d0| 0a 00 63 6d 64 6c 6e 5f | 6c 65 6e 00 00 54 06 4a |..cmdln_|len..T.J|
|000008e0| 00 24 20 4d 61 6b 65 20 | 73 75 72 65 20 77 65 20 |.$ Make |sure we |
|000008f0| 68 61 76 65 20 6e 6f 74 | 20 67 6f 6e 65 20 70 61 |have not| gone pa|
|00000900| 73 74 20 45 4f 4c 00 00 | 0a 07 02 a8 00 18 ff 76 |st EOL..|.......v|
|00000910| 08 00 61 72 67 5f 65 78 | 69 74 00 00 03 04 02 da |..arg_ex|it......|
|00000920| 00 00 28 04 06 52 00 48 | 20 43 6f 6d 70 61 72 65 |..(..R.H| Compare|
|00000930| 20 63 75 72 72 65 6e 74 | 20 63 68 72 20 74 6f 20 | current| chr to |
|00000940| 61 20 73 70 61 63 65 20 | 6f 72 20 61 20 74 61 62 |a space |or a tab|
|00000950| 20 28 63 68 72 24 28 39 | 29 29 20 77 68 69 63 68 | (chr$(9|)) which|
|00000960| 20 73 65 70 65 72 61 74 | 65 20 61 72 67 73 20 20 | seperat|e args  |
|00000970| 00 00 3e 04 02 be 00 a8 | 00 74 05 0e 00 74 00 06 |..>.....|.t...t..|
|00000980| 00 00 06 02 63 6d 64 6c | 6e 00 00 5c 00 06 00 1e |....cmdl|n..\....|
|00000990| 08 00 63 75 72 72 5f 70 | 6f 73 00 5c 00 3e 00 00 |..curr_p|os.\.>..|
|000009a0| 00 01 00 7c ff a2 00 26 | 00 01 20 00 00 7c ff 4c |...|...&|.. ..|.L|
|000009b0| 00 74 05 0e 00 74 00 06 | 00 00 06 02 63 6d 64 6c |.t...t..|....cmdl|
|000009c0| 6e 00 00 5c 00 06 00 1e | 08 00 63 75 72 72 5f 70 |n..\....|..curr_p|
|000009d0| 6f 73 00 5c 00 3e 00 00 | 00 01 00 7c ff a2 05 52 |os.\.>..|...|...R|
|000009e0| 00 74 00 3e 00 00 00 09 | 00 7c 00 7c 00 00 0a 07 |.t.>....|.|.|....|
|000009f0| 04 44 00 06 00 1e 08 00 | 63 75 72 72 5f 70 6f 73 |.D......|curr_pos|
|00000a00| 00 00 0b 07 02 a8 00 18 | ff de 0a 00 5f 73 74 61 |........|...._sta|
|00000a10| 72 74 5f 61 72 67 00 00 | 03 04 02 da 00 00 21 04 |rt_arg..|......!.|
|00000a20| 06 52 00 3a 20 4a 75 73 | 74 20 61 20 63 68 65 63 |.R.: Jus|t a chec|
|00000a30| 6b 20 74 6f 20 6d 61 6b | 65 20 73 75 72 65 20 77 |k to mak|e sure w|
|00000a40| 65 20 68 61 76 65 20 6e | 6f 74 20 66 6f 75 6e 64 |e have n|ot found|
|00000a50| 20 61 6e 20 65 78 74 72 | 61 20 61 72 67 20 00 00 | an extr|a arg ..|
|00000a60| 17 04 02 be 00 44 00 74 | 00 06 00 18 08 00 63 75 |.....D.t|......cu|
|00000a70| 72 72 5f 61 72 67 ff c0 | 00 3e 00 00 00 01 00 7c |rr_arg..|.>.....||
|00000a80| ff b6 00 06 00 06 04 00 | 61 72 67 63 00 00 0a 07 |........|argc....|
|00000a90| 02 a8 00 18 ff 76 08 00 | 61 72 67 5f 65 78 69 74 |.....v..|arg_exit|
|00000aa0| 00 00 03 04 02 da 00 00 | 19 04 06 52 00 2a 20 53 |........|...R.* S|
|00000ab0| 65 65 20 69 66 20 74 68 | 65 20 63 68 72 61 63 74 |ee if th|e chract|
|00000ac0| 65 72 20 69 73 20 61 20 | 64 6f 75 62 6c 65 20 71 |er is a |double q|
|00000ad0| 75 6f 74 65 20 28 22 29 | 00 00 20 04 02 be 00 68 |uote (")|.. ....h|
|00000ae0| 05 0e 00 74 00 06 00 00 | 06 02 63 6d 64 6c 6e 00 |...t....|..cmdln.|
|00000af0| 00 5c 00 06 00 1e 08 00 | 63 75 72 72 5f 70 6f 73 |.\......|curr_pos|
|00000b00| 00 5c 00 3e 00 00 00 01 | 00 7c ff a2 05 52 00 74 |.\.>....|.|...R.t|
|00000b10| 00 3e 00 00 00 22 00 7c | 00 00 0a 07 04 44 00 06 |.>...".||.....D..|
|00000b20| 00 1e 08 00 63 75 72 72 | 5f 70 6f 73 00 00 09 07 |....curr|_pos....|
|00000b30| 02 a8 00 18 ff ae 06 00 | 5f 71 75 6f 74 65 00 00 |........|_quote..|
|00000b40| 03 04 02 da 00 00 22 04 | 06 52 00 3c 20 57 65 6c |......".|.R.< Wel|
|00000b50| 6c 2c 20 69 66 20 77 65 | 20 67 65 74 20 74 6f 20 |l, if we| get to |
|00000b60| 68 65 72 65 20 77 65 20 | 68 61 76 65 20 66 6f 75 |here we |have fou|
|00000b70| 6e 64 20 74 68 65 20 66 | 69 72 73 74 20 63 68 61 |nd the f|irst cha|
|00000b80| 72 61 63 74 65 72 20 20 | 00 00 26 04 00 06 ff f9 |racter  |..&.....|
|00000b90| 04 42 61 72 67 76 00 74 | 00 06 00 18 08 00 63 75 |.Bargv.t|......cu|
|00000ba0| 72 72 5f 61 72 67 00 7c | ff a2 05 0e 00 74 00 06 |rr_arg.||.....t..|
|00000bb0| 00 00 06 02 63 6d 64 6c | 6e 00 00 5c 00 06 00 1e |....cmdl|n..\....|
|00000bc0| 08 00 63 75 72 72 5f 70 | 6f 73 00 5c 00 3e 00 00 |..curr_p|os.\.>..|
|00000bd0| 00 01 00 7c 00 00 0a 04 | 04 44 00 06 00 1e 08 00 |...|....|.D......|
|00000be0| 63 75 72 72 5f 70 6f 73 | 00 00 04 04 06 52 00 00 |curr_pos|.....R..|
|00000bf0| 00 00 17 04 06 52 00 26 | 20 42 65 67 69 6e 20 6c |.....R.&| Begin l|
|00000c00| 6f 6f 6b 69 6e 67 20 66 | 6f 72 20 74 68 65 20 6e |ooking f|or the n|
|00000c10| 65 78 74 20 63 68 61 72 | 61 63 74 65 72 20 00 00 |ext char|acter ..|
|00000c20| 0a 04 00 0c 00 00 0a 00 | 5f 6e 65 78 74 5f 63 68 |........|_next_ch|
|00000c30| 72 00 00 00 14 04 02 be | 00 3e 00 06 00 1e 08 00 |r.......|.>......|
|00000c40| 63 75 72 72 5f 70 6f 73 | ff b6 00 06 00 12 0a 00 |curr_pos|........|
|00000c50| 63 6d 64 6c 6e 5f 6c 65 | 6e 00 00 00 0a 07 02 a8 |cmdln_le|n.......|
|00000c60| 00 18 ff 76 08 00 61 72 | 67 5f 65 78 69 74 00 00 |...v..ar|g_exit..|
|00000c70| 03 04 02 da 00 00 3e 04 | 02 be 00 92 00 74 05 0e |......>.|.....t..|
|00000c80| 00 74 00 06 00 00 06 02 | 63 6d 64 6c 6e 00 00 5c |.t......|cmdln..\|
|00000c90| 00 06 00 1e 08 00 63 75 | 72 72 5f 70 6f 73 00 5c |......cu|rr_pos.\|
|00000ca0| 00 3e 00 00 00 01 00 7c | ff a2 00 26 00 01 20 00 |.>.....||...&.. .|
|00000cb0| 00 7c ff 4c 00 74 05 0e | 00 74 00 06 00 00 06 02 |.|.L.t..|.t......|
|00000cc0| 63 6d 64 6c 6e 00 00 5c | 00 06 00 1e 08 00 63 75 |cmdln..\|......cu|
|00000cd0| 72 72 5f 70 6f 73 00 5c | 00 3e 00 00 00 01 00 7c |rr_pos.\|.>.....||
|00000ce0| ff a2 05 52 00 74 00 3e | 00 00 00 09 00 7c 00 7c |...R.t.>|.....|.||
|00000cf0| 00 00 0a 07 02 a8 00 18 | ff bc 08 00 5f 65 6e 64 |........|...._end|
|00000d00| 5f 61 72 67 00 00 03 04 | 02 da 00 00 2a 04 06 52 |_arg....|....*..R|
|00000d10| 00 4c 20 49 66 20 69 74 | 20 69 73 20 6e 6f 74 20 |.L If it| is not |
|00000d20| 61 20 73 70 61 63 65 20 | 6f 72 20 74 61 62 20 6f |a space |or tab o|
|00000d30| 72 20 65 6e 64 20 6f 66 | 20 74 68 65 20 6c 69 6e |r end of| the lin|
|00000d40| 65 2c 20 6d 75 73 74 20 | 62 65 20 74 68 65 20 6e |e, must |be the n|
|00000d50| 65 78 74 20 63 68 61 72 | 61 63 74 65 72 20 00 00 |ext char|acter ..|
|00000d60| 35 04 00 06 ff f9 04 42 | 61 72 67 76 00 74 00 06 |5......B|argv.t..|
|00000d70| 00 18 08 00 63 75 72 72 | 5f 61 72 67 00 7c ff a2 |....curr|_arg.|..|
|00000d80| 00 06 ff f9 04 42 61 72 | 67 76 00 74 00 06 00 18 |.....Bar|gv.t....|
|00000d90| 08 00 63 75 72 72 5f 61 | 72 67 00 7c ff c0 05 0e |..curr_a|rg.|....|
|00000da0| 00 74 00 06 00 00 06 02 | 63 6d 64 6c 6e 00 00 5c |.t......|cmdln..\|
|00000db0| 00 06 00 1e 08 00 63 75 | 72 72 5f 70 6f 73 00 5c |......cu|rr_pos.\|
|00000dc0| 00 3e 00 00 00 01 00 7c | 00 00 0a 04 04 44 00 06 |.>.....||.....D..|
|00000dd0| 00 1e 08 00 63 75 72 72 | 5f 70 6f 73 00 00 1a 04 |....curr|_pos....|
|00000de0| 06 52 00 2c 20 53 6f 2c | 20 66 69 6e 64 20 74 68 |.R., So,| find th|
|00000df0| 65 20 6e 65 78 74 20 6f | 6e 65 20 61 6e 64 20 6b |e next o|ne and k|
|00000e00| 65 65 70 20 67 6f 69 6e | 67 20 2e 20 2e 20 2e 20 |eep goin|g . . . |
|00000e10| 00 00 0b 04 02 a8 00 18 | ff cc 0a 00 5f 6e 65 78 |........|...._nex|
|00000e20| 74 5f 63 68 72 00 00 00 | 04 04 06 52 00 00 00 00 |t_chr...|...R....|
|00000e30| 1a 04 06 52 00 2c 20 57 | 65 20 66 6f 75 6e 64 20 |...R., W|e found |
|00000e40| 61 6c 6c 20 74 68 65 20 | 63 68 61 72 61 63 74 65 |all the |characte|
|00000e50| 72 73 20 69 6e 20 61 6e | 20 61 72 67 75 6d 65 6e |rs in an| argumen|
|00000e60| 74 20 00 00 09 04 00 0c | 00 00 08 00 5f 65 6e 64 |t ......|...._end|
|00000e70| 5f 61 72 67 00 00 0a 04 | 04 44 00 06 00 18 08 00 |_arg....|.D......|
|00000e80| 63 75 72 72 5f 61 72 67 | 00 00 0a 04 04 44 00 06 |curr_arg|.....D..|
|00000e90| 00 1e 08 00 63 75 72 72 | 5f 70 6f 73 00 00 0b 04 |....curr|_pos....|
|00000ea0| 02 a8 00 18 ff de 0a 00 | 5f 73 74 61 72 74 5f 61 |........|_start_a|
|00000eb0| 72 67 00 00 04 04 06 52 | 00 00 00 00 29 04 06 52 |rg.....R|....)..R|
|00000ec0| 00 4a 20 4f 75 72 20 72 | 6f 75 74 69 6e 65 20 74 |.J Our r|outine t|
|00000ed0| 6f 20 68 61 6e 64 6c 65 | 20 71 75 6f 74 65 73 20 |o handle| quotes |
|00000ee0| 77 68 69 63 68 20 61 72 | 65 20 75 73 65 64 20 74 |which ar|e used t|
|00000ef0| 6f 20 70 75 74 20 61 72 | 6f 75 6e 64 20 61 72 67 |o put ar|ound arg|
|00000f00| 75 6d 65 6e 74 73 20 74 | 68 61 74 20 00 00 1f 04 |uments t|hat ....|
|00000f10| 06 52 00 36 20 6d 61 79 | 20 68 61 76 65 20 73 70 |.R.6 may| have sp|
|00000f20| 61 63 65 73 20 6f 72 20 | 6f 74 68 65 72 20 73 70 |aces or |other sp|
|00000f30| 65 63 69 61 6c 20 63 68 | 61 72 61 63 74 65 72 73 |ecial ch|aracters|
|00000f40| 20 69 6e 20 74 68 65 6d | 2e 20 00 00 08 04 00 0c | in them|. ......|
|00000f50| 00 00 06 00 5f 71 75 6f | 74 65 00 00 14 04 02 be |...._quo|te......|
|00000f60| 00 3e 00 06 00 1e 08 00 | 63 75 72 72 5f 70 6f 73 |.>......|curr_pos|
|00000f70| ff b6 00 06 00 12 0a 00 | 63 6d 64 6c 6e 5f 6c 65 |........|cmdln_le|
|00000f80| 6e 00 00 00 0a 07 02 a8 | 00 18 ff 76 08 00 61 72 |n.......|...v..ar|
|00000f90| 67 5f 65 78 69 74 00 00 | 03 04 02 da 00 00 20 04 |g_exit..|...... .|
|00000fa0| 02 be 00 56 05 0e 00 74 | 00 06 00 00 06 02 63 6d |...V...t|......cm|
|00000fb0| 64 6c 6e 00 00 5c 00 06 | 00 1e 08 00 63 75 72 72 |dln..\..|....curr|
|00000fc0| 5f 70 6f 73 00 5c 00 3e | 00 00 00 01 00 7c ff a2 |_pos.\.>|.....|..|
|00000fd0| 05 52 00 74 00 3e 00 00 | 00 22 00 7c 00 00 0a 07 |.R.t.>..|.".|....|
|00000fe0| 02 a8 00 18 ff bc 08 00 | 5f 65 6e 64 5f 61 72 67 |........|_end_arg|
|00000ff0| 00 00 03 04 02 da 00 00 | 2a 04 06 52 00 4c 20 41 |........|*..R.L A|
|00001000| 20 73 70 6c 61 74 20 28 | 2a 29 20 69 73 20 74 68 | splat (|*) is th|
|00001010| 65 20 42 43 50 4c 20 65 | 71 75 69 76 61 6c 65 6e |e BCPL e|quivalen|
|00001020| 74 20 74 6f 20 74 68 65 | 20 45 53 43 20 63 6f 6d |t to the| ESC com|
|00001030| 6d 61 6e 64 20 66 6f 72 | 20 64 6f 69 6e 67 20 41 |mand for| doing A|
|00001040| 4e 53 49 20 63 6f 64 65 | 73 20 00 00 1d 04 02 be |NSI code|s ......|
|00001050| 00 56 05 0e 00 74 00 06 | 00 00 06 02 63 6d 64 6c |.V...t..|....cmdl|
|00001060| 6e 00 00 5c 00 06 00 1e | 08 00 63 75 72 72 5f 70 |n..\....|..curr_p|
|00001070| 6f 73 00 5c 00 3e 00 00 | 00 01 00 7c ff 66 00 26 |os.\.>..|...|.f.&|
|00001080| 00 01 2a 00 00 00 0d 07 | 02 a8 00 18 ff 86 0e 00 |..*.....|........|
|00001090| 5f 61 64 64 5f 71 75 6f | 74 65 5f 63 68 72 00 00 |_add_quo|te_chr..|
|000010a0| 03 04 02 da 00 00 0a 04 | 04 44 00 06 00 1e 08 00 |........|.D......|
|000010b0| 63 75 72 72 5f 70 6f 73 | 00 00 13 04 06 52 00 1e |curr_pos|.....R..|
|000010c0| 20 41 20 2a 4e 20 69 73 | 20 61 20 6e 65 77 6c 69 | A *N is| a newli|
|000010d0| 6e 65 20 6f 72 20 63 68 | 72 24 28 31 30 29 00 00 |ne or ch|r$(10)..|
|000010e0| 20 04 02 be 00 58 05 7c | 00 74 05 0e 00 74 00 06 | ....X.||.t...t..|
|000010f0| 00 00 06 02 63 6d 64 6c | 6e 00 00 5c 00 06 00 1e |....cmdl|n..\....|
|00001100| 08 00 63 75 72 72 5f 70 | 6f 73 00 5c 00 3e 00 00 |..curr_p|os.\.>..|
|00001110| 00 01 00 7c 00 7c ff 66 | 00 26 00 01 4e 00 00 00 |...|.|.f|.&..N...|
|00001120| 0b 07 02 a8 00 18 ff 9c | 0a 00 5f 63 68 65 63 6b |........|.._check|
|00001130| 5f 65 73 63 00 00 03 04 | 02 da 00 00 26 04 00 06 |_esc....|....&...|
|00001140| ff f9 04 42 61 72 67 76 | 00 74 00 06 00 18 08 00 |...Bargv|.t......|
|00001150| 63 75 72 72 5f 61 72 67 | 00 7c ff a2 00 06 ff f9 |curr_arg|.|......|
|00001160| 04 42 61 72 67 76 00 74 | 00 06 00 18 08 00 63 75 |.Bargv.t|......cu|
|00001170| 72 72 5f 61 72 67 00 7c | ff c0 05 52 00 74 00 3e |rr_arg.||...R.t.>|
|00001180| 00 00 00 0a 00 7c 00 00 | 0a 04 04 44 00 06 00 1e |.....|..|...D....|
|00001190| 08 00 63 75 72 72 5f 70 | 6f 73 00 00 09 04 02 a8 |..curr_p|os......|
|000011a0| 00 18 ff ae 06 00 5f 71 | 75 6f 74 65 00 00 04 04 |......_q|uote....|
|000011b0| 06 52 00 00 00 00 15 04 | 06 52 00 22 20 41 20 2a |.R......|.R." A *|
|000011c0| 45 20 69 73 20 61 6e 20 | 61 63 74 75 61 6c 20 45 |E is an |actual E|
|000011d0| 53 43 20 6f 72 20 63 68 | 72 24 28 32 37 29 00 00 |SC or ch|r$(27)..|
|000011e0| 0a 04 00 0c 00 00 0a 00 | 5f 63 68 65 63 6b 5f 65 |........|_check_e|
|000011f0| 73 63 00 00 20 04 02 be | 00 5c 05 7c 00 74 05 0e |sc.. ...|.\.|.t..|
|00001200| 00 74 00 06 00 00 06 02 | 63 6d 64 6c 6e 00 00 5c |.t......|cmdln..\|
|00001210| 00 06 00 1e 08 00 63 75 | 72 72 5f 70 6f 73 00 5c |......cu|rr_pos.\|
|00001220| 00 3e 00 00 00 01 00 7c | 00 7c ff 66 00 26 00 01 |.>.....||.|.f.&..|
|00001230| 45 00 00 00 0d 07 02 a8 | 00 18 ff 86 0e 00 5f 61 |E.......|......_a|
|00001240| 64 64 5f 71 75 6f 74 65 | 5f 63 68 72 00 00 03 04 |dd_quote|_chr....|
|00001250| 02 da 00 00 26 04 00 06 | ff f9 04 42 61 72 67 76 |....&...|...Bargv|
|00001260| 00 74 00 06 00 18 08 00 | 63 75 72 72 5f 61 72 67 |.t......|curr_arg|
|00001270| 00 7c ff a2 00 06 ff f9 | 04 42 61 72 67 76 00 74 |.|......|.Bargv.t|
|00001280| 00 06 00 18 08 00 63 75 | 72 72 5f 61 72 67 00 7c |......cu|rr_arg.||
|00001290| ff c0 05 52 00 74 00 3e | 00 00 00 1b 00 7c 00 00 |...R.t.>|.....|..|
|000012a0| 0a 04 04 44 00 06 00 1e | 08 00 63 75 72 72 5f 70 |...D....|..curr_p|
|000012b0| 6f 73 00 00 09 04 02 a8 | 00 18 ff ae 06 00 5f 71 |os......|......_q|
|000012c0| 75 6f 74 65 00 00 04 04 | 06 52 00 00 00 00 27 04 |uote....|.R....'.|
|000012d0| 06 52 00 46 20 57 65 20 | 6d 61 64 65 20 69 74 20 |.R.F We |made it |
|000012e0| 74 6f 20 68 65 72 65 2c | 20 6d 65 61 6e 69 6e 67 |to here,| meaning|
|000012f0| 20 74 68 65 72 65 20 77 | 65 72 65 20 6e 6f 20 73 | there w|ere no s|
|00001300| 70 65 63 69 61 6c 20 65 | 73 63 61 70 65 20 63 6f |pecial e|scape co|
|00001310| 64 65 73 20 66 6f 75 6e | 64 20 00 00 19 04 06 52 |des foun|d .....R|
|00001320| 00 2a 20 73 6f 20 61 64 | 64 20 69 74 20 74 6f 20 |.* so ad|d it to |
|00001330| 74 68 65 20 63 75 72 72 | 65 6e 74 20 61 72 67 75 |the curr|ent argu|
|00001340| 6d 65 6e 74 20 73 74 72 | 69 6e 67 20 00 00 0c 04 |ment str|ing ....|
|00001350| 00 0c 00 00 0e 00 5f 61 | 64 64 5f 71 75 6f 74 65 |......_a|dd_quote|
|00001360| 5f 63 68 72 00 00 35 04 | 00 06 ff f9 04 42 61 72 |_chr..5.|.....Bar|
|00001370| 67 76 00 74 00 06 00 18 | 08 00 63 75 72 72 5f 61 |gv.t....|..curr_a|
|00001380| 72 67 00 7c ff a2 00 06 | ff f9 04 42 61 72 67 76 |rg.|....|...Bargv|
|00001390| 00 74 00 06 00 18 08 00 | 63 75 72 72 5f 61 72 67 |.t......|curr_arg|
|000013a0| 00 7c ff c0 05 0e 00 74 | 00 06 00 00 06 02 63 6d |.|.....t|......cm|
|000013b0| 64 6c 6e 00 00 5c 00 06 | 00 1e 08 00 63 75 72 72 |dln..\..|....curr|
|000013c0| 5f 70 6f 73 00 5c 00 3e | 00 00 00 01 00 7c 00 00 |_pos.\.>|.....|..|
|000013d0| 0a 04 04 44 00 06 00 1e | 08 00 63 75 72 72 5f 70 |...D....|..curr_p|
|000013e0| 6f 73 00 00 09 04 02 a8 | 00 18 ff ae 06 00 5f 71 |os......|......_q|
|000013f0| 75 6f 74 65 00 00 04 04 | 06 52 00 00 00 00 1a 04 |uote....|.R......|
|00001400| 06 52 00 2c 20 47 6f 74 | 6f 20 68 65 72 65 20 77 |.R., Got|o here w|
|00001410| 68 65 6e 20 77 65 20 68 | 61 76 65 20 66 6f 75 6e |hen we h|ave foun|
|00001420| 64 20 61 6c 6c 20 61 72 | 67 75 6d 65 6e 74 73 20 |d all ar|guments |
|00001430| 00 00 09 04 00 0c 00 00 | 08 00 61 72 67 5f 65 78 |........|..arg_ex|
|00001440| 69 74 00 00 0b 04 00 06 | 00 00 06 02 63 6d 64 6c |it......|....cmdl|
|00001450| 6e 00 ff a2 00 26 00 00 | 00 00 0e 04 00 06 00 12 |n....&..|........|
|00001460| 0a 00 63 6d 64 6c 6e 5f | 6c 65 6e 00 ff a2 00 3e |..cmdln_|len....>|
|00001470| 00 00 00 00 00 00 0d 04 | 00 06 00 1e 08 00 63 75 |........|......cu|
|00001480| 72 72 5f 70 6f 73 ff a2 | 00 3e 00 00 00 00 00 00 |rr_pos..|.>......|
|00001490| 10 01 03 90 00 84 00 06 | 00 18 08 00 63 75 72 72 |........|....curr|
|000014a0| 5f 61 72 67 ff c0 00 3e | 00 00 00 01 00 8c 00 00 |_arg...>|........|
|000014b0| 41 6d 42 73 00 00       |                         |AmBs..  |        |
+--------+-------------------------+-------------------------+--------+--------+