home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-04-04 | 8.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: ';*************************************'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;*******|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 00 3b | 2a 20 20 20 20 20 20 20 |******.;|* |
|00000030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 00 3b 2a | | *.;*|
|00000050| 20 20 20 20 20 20 53 45 | 52 49 41 4c 20 50 4f 52 | SE|RIAL POR|
|00000060| 54 20 4c 49 42 52 41 52 | 59 20 20 20 20 20 20 20 |T LIBRAR|Y |
|00000070| 20 20 20 2a 00 3b 2a 20 | 20 20 20 20 20 20 20 20 | *.;* | |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000090| 20 20 20 20 20 20 20 20 | 20 20 2a 00 3b 2a 2a 2a | | *.;***|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 00 00 21 6c 69 62 | 68 65 61 64 65 72 20 7b |**..!lib|header {|
|000000d0| 23 73 65 72 69 61 6c 6c | 69 62 2c 30 2c 30 2c 66 |#seriall|ib,0,0,f|
|000000e0| 69 6e 69 74 2c 30 7d 00 | 00 00 21 61 66 75 6e 63 |init,0}.|..!afunc|
|000000f0| 74 69 6f 6e 7b 23 6c 6f | 6e 67 7d 00 21 61 72 67 |tion{#lo|ng}.!arg|
|00000100| 73 20 7b 23 73 74 72 69 | 6e 67 2c 23 6c 6f 6e 67 |s {#stri|ng,#long|
|00000110| 2c 23 6c 6f 6e 67 2c 23 | 77 6f 72 64 7d 00 21 6c |,#long,#|word}.!l|
|00000120| 69 62 73 00 21 73 75 62 | 73 20 7b 5f 6f 70 65 6e |ibs.!sub|s {_open|
|00000130| 73 65 72 69 61 6c 2c 30 | 2c 30 7d 00 21 6e 61 6d |serial,0|,0}.!nam|
|00000140| 65 20 7b 22 4f 70 65 6e | 53 65 72 69 61 6c 22 2c |e {"Open|Serial",|
|00000150| 22 64 65 76 69 63 65 24 | 2c 75 6e 69 74 23 2c 62 |"device$|,unit#,b|
|00000160| 61 75 64 2c 69 6f 5f 73 | 65 72 66 6c 61 67 73 22 |aud,io_s|erflags"|
|00000170| 7d 00 00 21 61 73 74 61 | 74 65 6d 65 6e 74 00 21 |}..!asta|tement.!|
|00000180| 61 72 67 73 20 7b 23 77 | 6f 72 64 2c 23 77 6f 72 |args {#w|ord,#wor|
|00000190| 64 7d 00 21 6c 69 62 73 | 00 21 73 75 62 73 20 7b |d}.!libs|.!subs {|
|000001a0| 5f 77 72 69 74 65 62 79 | 74 65 2c 30 2c 30 7d 00 |_writeby|te,0,0}.|
|000001b0| 21 6e 61 6d 65 20 7b 22 | 57 72 69 74 65 53 65 72 |!name {"|WriteSer|
|000001c0| 69 61 6c 22 2c 22 75 6e | 69 74 23 2c 62 79 74 65 |ial","un|it#,byte|
|000001d0| 22 7d 00 00 21 61 73 74 | 61 74 65 6d 65 6e 74 00 |"}..!ast|atement.|
|000001e0| 21 61 72 67 73 20 7b 23 | 77 6f 72 64 2c 23 6c 6f |!args {#|word,#lo|
|000001f0| 6e 67 7d 00 21 6c 69 62 | 73 00 21 73 75 62 73 20 |ng}.!lib|s.!subs |
|00000200| 7b 5f 77 72 69 74 65 73 | 74 72 69 6e 67 2c 30 2c |{_writes|tring,0,|
|00000210| 30 7d 00 21 6e 61 6d 65 | 20 7b 22 57 72 69 74 65 |0}.!name| {"Write|
|00000220| 53 65 72 69 61 6c 53 74 | 72 69 6e 67 22 2c 22 75 |SerialSt|ring","u|
|00000230| 6e 69 74 23 2c 73 74 72 | 69 6e 67 22 7d 00 00 21 |nit#,str|ing"}..!|
|00000240| 61 66 75 6e 63 74 69 6f | 6e 7b 23 62 79 74 65 7d |afunctio|n{#byte}|
|00000250| 00 21 61 72 67 73 20 7b | 23 77 6f 72 64 7d 00 21 |.!args {|#word}.!|
|00000260| 6c 69 62 73 00 21 73 75 | 62 73 20 7b 5f 72 65 61 |libs.!su|bs {_rea|
|00000270| 64 62 79 74 65 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |dbyte,0,|0}.!name|
|00000280| 20 7b 22 52 65 61 64 53 | 65 72 69 61 6c 22 2c 22 | {"ReadS|erial","|
|00000290| 28 75 6e 69 74 23 29 20 | 20 72 65 74 75 72 6e 73 |(unit#) | returns|
|000002a0| 20 2d 31 20 69 66 20 6e | 6f 74 68 69 6e 67 20 77 | -1 if n|othing w|
|000002b0| 61 69 74 69 6e 67 22 7d | 00 00 21 61 66 75 6e 63 |aiting"}|..!afunc|
|000002c0| 74 69 6f 6e 20 7b 23 73 | 74 72 69 6e 67 7d 00 21 |tion {#s|tring}.!|
|000002d0| 61 72 67 73 20 7b 23 77 | 6f 72 64 7d 00 21 6c 69 |args {#w|ord}.!li|
|000002e0| 62 73 00 21 73 75 62 73 | 20 7b 5f 72 65 61 64 73 |bs.!subs| {_reads|
|000002f0| 74 72 69 6e 67 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |tring,0,|0}.!name|
|00000300| 20 7b 22 52 65 61 64 53 | 65 72 69 61 6c 53 74 72 | {"ReadS|erialStr|
|00000310| 69 6e 67 22 2c 22 28 75 | 6e 69 74 23 29 20 20 72 |ing","(u|nit#) r|
|00000320| 65 74 75 72 6e 73 20 6e | 75 6c 6c 20 69 66 20 6e |eturns n|ull if n|
|00000330| 6f 74 68 69 6e 67 20 77 | 61 69 74 69 6e 67 22 7d |othing w|aiting"}|
|00000340| 00 00 21 61 73 74 61 74 | 65 6d 65 6e 74 00 21 61 |..!astat|ement.!a|
|00000350| 72 67 73 20 7b 23 77 6f | 72 64 7d 00 21 6c 69 62 |rgs {#wo|rd}.!lib|
|00000360| 73 00 21 73 75 62 73 20 | 7b 5f 63 6c 6f 73 65 73 |s.!subs |{_closes|
|00000370| 65 72 69 61 6c 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |erial,0,|0}.!name|
|00000380| 20 7b 22 43 6c 6f 73 65 | 53 65 72 69 61 6c 22 2c | {"Close|Serial",|
|00000390| 22 75 6e 69 74 23 22 7d | 00 00 21 61 73 74 61 74 |"unit#"}|..!astat|
|000003a0| 65 6d 65 6e 74 00 21 61 | 72 67 73 20 7b 23 77 6f |ement.!a|rgs {#wo|
|000003b0| 72 64 2c 23 6c 6f 6e 67 | 7d 00 21 6c 69 62 73 00 |rd,#long|}.!libs.|
|000003c0| 21 73 75 62 73 20 7b 5f | 73 65 72 69 61 6c 62 75 |!subs {_|serialbu|
|000003d0| 66 66 65 72 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 20 |ffer,0,0|}.!name |
|000003e0| 7b 22 53 65 74 53 65 72 | 69 61 6c 42 75 66 66 65 |{"SetSer|ialBuffe|
|000003f0| 72 22 2c 22 75 6e 69 74 | 23 2c 62 75 66 66 65 72 |r","unit|#,buffer|
|00000400| 6c 65 6e 67 74 68 22 7d | 00 00 21 61 73 74 61 74 |length"}|..!astat|
|00000410| 65 6d 65 6e 74 00 21 61 | 72 67 73 20 7b 23 77 6f |ement.!a|rgs {#wo|
|00000420| 72 64 2c 23 62 79 74 65 | 2c 23 62 79 74 65 2c 23 |rd,#byte|,#byte,#|
|00000430| 62 79 74 65 7d 00 21 6c | 69 62 73 00 21 73 75 62 |byte}.!l|ibs.!sub|
|00000440| 73 20 7b 5f 73 65 72 69 | 61 6c 6c 65 6e 73 2c 30 |s {_seri|allens,0|
|00000450| 2c 30 7d 00 21 6e 61 6d | 65 20 7b 22 53 65 74 53 |,0}.!nam|e {"SetS|
|00000460| 65 72 69 61 6c 4c 65 6e | 73 22 2c 22 75 6e 69 74 |erialLen|s","unit|
|00000470| 23 2c 72 65 61 64 6c 65 | 6e 2c 77 72 69 74 65 6c |#,readle|n,writel|
|00000480| 65 6e 2c 73 74 6f 70 62 | 69 74 73 22 7d 00 00 21 |en,stopb|its"}..!|
|00000490| 61 73 74 61 74 65 6d 65 | 6e 74 00 21 61 72 67 73 |astateme|nt.!args|
|000004a0| 20 7b 23 77 6f 72 64 7d | 00 21 6c 69 62 73 00 21 | {#word}|.!libs.!|
|000004b0| 73 75 62 73 20 7b 5f 73 | 65 72 69 61 6c 73 65 74 |subs {_s|erialset|
|000004c0| 70 61 72 61 6d 73 2c 30 | 2c 30 7d 00 21 6e 61 6d |params,0|,0}.!nam|
|000004d0| 65 20 7b 22 53 65 74 53 | 65 72 69 61 50 61 72 61 |e {"SetS|eriaPara|
|000004e0| 6d 73 22 2c 22 75 6e 69 | 74 23 22 7d 00 00 21 61 |ms","uni|t#"}..!a|
|000004f0| 66 75 6e 63 74 69 6f 6e | 20 7b 23 6c 6f 6e 67 7d |function| {#long}|
|00000500| 00 21 61 72 67 73 20 7b | 23 77 6f 72 64 7d 00 21 |.!args {|#word}.!|
|00000510| 6c 69 62 73 20 7b 23 75 | 74 69 6c 6c 69 62 2c 23 |libs {#u|tillib,#|
|00000520| 6c 61 30 7d 00 21 73 75 | 62 73 20 7b 5f 63 68 65 |la0}.!su|bs {_che|
|00000530| 63 6b 65 76 65 6e 74 2c | 30 2c 30 7d 00 21 6e 61 |ckevent,|0,0}.!na|
|00000540| 6d 65 20 7b 22 53 65 72 | 69 61 6c 45 76 65 6e 74 |me {"Ser|ialEvent|
|00000550| 22 2c 22 28 75 6e 69 74 | 23 29 22 7d 00 00 21 61 |","(unit|#)"}..!a|
|00000560| 66 75 6e 63 74 69 6f 6e | 20 7b 23 6c 6f 6e 67 7d |function| {#long}|
|00000570| 00 21 61 72 67 73 20 7b | 23 77 6f 72 64 2c 23 73 |.!args {|#word,#s|
|00000580| 74 72 69 6e 67 2c 23 73 | 74 72 69 6e 67 2c 23 6c |tring,#s|tring,#l|
|00000590| 6f 6e 67 7d 00 21 6c 69 | 62 73 00 21 73 75 62 73 |ong}.!li|bs.!subs|
|000005a0| 20 7b 5f 78 70 72 73 65 | 6e 64 2c 30 2c 30 7d 00 | {_xprse|nd,0,0}.|
|000005b0| 21 6e 61 6d 65 20 7b 22 | 58 50 52 53 65 6e 64 22 |!name {"|XPRSend"|
|000005c0| 2c 22 75 6e 69 74 23 2c | 70 72 6f 74 6f 63 6f 6c |,"unit#,|protocol|
|000005d0| 24 2c 66 69 6c 65 24 2c | 3f 63 61 6c 6c 62 61 63 |$,file$,|?callbac|
|000005e0| 6b 22 7d 00 00 21 61 66 | 75 6e 63 74 69 6f 6e 20 |k"}..!af|unction |
|000005f0| 7b 23 6c 6f 6e 67 7d 00 | 21 61 72 67 73 20 7b 23 |{#long}.|!args {#|
|00000600| 77 6f 72 64 2c 23 73 74 | 72 69 6e 67 2c 23 73 74 |word,#st|ring,#st|
|00000610| 72 69 6e 67 2c 23 6c 6f | 6e 67 7d 00 21 6c 69 62 |ring,#lo|ng}.!lib|
|00000620| 73 00 21 73 75 62 73 20 | 7b 5f 78 70 72 72 65 63 |s.!subs |{_xprrec|
|00000630| 65 69 76 65 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 20 |eive,0,0|}.!name |
|00000640| 7b 22 58 50 52 52 65 63 | 65 69 76 65 22 2c 22 75 |{"XPRRec|eive","u|
|00000650| 6e 69 74 23 2c 70 72 6f | 74 6f 63 6f 6c 24 2c 66 |nit#,pro|tocol$,f|
|00000660| 69 6c 65 24 2c 3f 63 61 | 6c 6c 62 61 63 6b 22 7d |ile$,?ca|llback"}|
|00000670| 00 00 66 69 6e 69 74 3a | 21 6e 75 6c 6c 73 75 62 |..finit:|!nullsub|
|00000680| 20 7b 5f 63 6c 6f 73 65 | 61 6c 6c 69 6f 2c 30 2c | {_close|allio,0,|
|00000690| 30 7d 00 00 21 6c 69 62 | 66 69 6e 00 00 80 0d 20 |0}..!lib|fin.... |
|000006a0| 73 00 20 7b 80 2f 2e 73 | 65 72 69 61 6c 69 6f 5c |s. {./.s|erialio\|
|000006b0| 60 31 7d 28 61 32 29 00 | 80 02 20 80 0d 00 00 80 |`1}(a2).|.. .....|
|000006c0| 01 20 2e 73 65 72 69 61 | 6c 69 6f 00 20 20 72 65 |. .seria|lio. re|
|000006d0| 71 75 65 73 74 2e 6c 20 | 20 20 20 20 20 20 20 20 |quest.l | |
|000006e0| 20 3b 70 6f 69 6e 74 73 | 20 74 6f 20 49 4f 45 78 | ;points| to IOEx|
|000006f0| 74 00 20 20 70 6f 72 74 | 2e 62 5b 33 34 5d 00 20 |t. port|.b[34]. |
|00000700| 20 6d 73 67 2e 62 5b 32 | 30 5d 00 20 20 64 65 76 | msg.b[2|0]. dev|
|00000710| 69 63 65 2e 6c 3a 75 6e | 69 74 20 20 20 20 20 20 |ice.l:un|it |
|00000720| 3b 49 4f 45 78 74 00 20 | 20 63 6f 6d 6d 61 6e 64 |;IOExt. | command|
|00000730| 2e 77 00 20 20 66 6c 61 | 67 73 2e 62 3a 65 72 72 |.w. fla|gs.b:err|
|00000740| 6f 72 00 20 20 61 63 74 | 75 61 6c 2e 6c 20 20 20 |or. act|ual.l |
|00000750| 20 20 20 20 20 20 20 20 | 3b 49 4f 53 74 64 45 78 | |;IOStdEx|
|00000760| 74 00 20 20 73 6c 65 6e | 2e 6c 00 20 20 73 64 61 |t. slen|.l. sda|
|00000770| 74 61 2e 6c 00 20 20 73 | 6f 66 66 73 65 74 2e 6c |ta.l. s|offset.l|
|00000780| 00 20 20 63 74 6c 63 68 | 61 72 2e 6c 00 20 20 72 |. ctlch|ar.l. r|
|00000790| 62 75 66 6c 65 6e 2e 6c | 00 20 20 65 78 74 66 6c |buflen.l|. extfl|
|000007a0| 61 67 73 2e 6c 00 20 20 | 62 61 75 64 2e 6c 00 20 |ags.l. |baud.l. |
|000007b0| 20 62 72 6b 74 69 6d 65 | 2e 6c 00 20 20 74 61 72 | brktime|.l. tar|
|000007c0| 72 61 79 2e 62 5b 38 5d | 00 20 20 72 65 61 64 6c |ray.b[8]|. readl|
|000007d0| 65 6e 2e 62 3a 77 72 69 | 74 65 6c 65 6e 3a 73 74 |en.b:wri|telen:st|
|000007e0| 6f 70 62 69 74 73 00 20 | 20 73 65 72 66 6c 61 67 |opbits. | serflag|
|000007f0| 73 2e 62 00 20 20 73 74 | 61 74 75 73 2e 77 00 80 |s.b. st|atus.w..|
|00000800| 02 20 80 01 00 00 2e 5f | 63 68 65 63 6b 65 76 65 |. ....._|checkeve|
|00000810| 6e 74 3a 00 20 20 80 7e | 2e 6c 20 61 36 2c 2d 28 |nt:. .~|.l a6,-(|
|00000820| 61 37 29 3a 80 7e 2e 6c | 20 34 2c 61 36 3a 80 7e |a7):.~.l| 4,a6:.~|
|00000830| 2e 6c 20 28 61 30 29 2c | 64 37 00 20 20 80 44 20 |.l (a0),|d7. .D |
|00000840| 23 37 2c 64 30 3a 80 7a | 20 61 6c 6c 69 6f 28 70 |#7,d0:.z| allio(p|
|00000850| 63 29 2c 61 32 3a 80 3d | 20 64 30 2c 61 32 3a 80 |c),a2:.=| d0,a2:.|
|00000860| 81 23 30 2c 64 30 00 20 | 20 80 7e 2e 62 20 21 73 |.#0,d0. | .~.b !s|
|00000870| 7b 70 6f 72 74 2b 31 35 | 2b 31 32 38 7d 2c 64 31 |{port+15|+128},d1|
|00000880| 3a 80 57 20 64 31 2c 64 | 37 3a 80 48 20 74 30 3a |:.W d1,d|7:.H t0:|
|00000890| 80 81 23 31 2c 64 30 3a | 74 30 00 20 20 80 7e 2e |..#1,d0:|t0. .~.|
|000008a0| 62 20 21 73 7b 70 6f 72 | 74 2b 31 35 7d 2c 64 31 |b !s{por|t+15},d1|
|000008b0| 3a 80 57 20 64 31 2c 64 | 37 3a 80 48 20 74 31 3a |:.W d1,d|7:.H t1:|
|000008c0| 80 81 23 32 2c 64 30 3a | 74 31 00 20 20 80 7e 2e |..#2,d0:|t1. .~.|
|000008d0| 6c 20 28 61 37 29 2b 2c | 61 36 3a 80 94 00 00 2e |l (a7)+,|a6:.....|
|000008e0| 5f 6f 70 65 6e 73 65 72 | 69 61 6c 3a 20 20 20 3b |_openser|ial: ;|
|000008f0| 64 30 3d 6e 61 6d 65 20 | 64 31 3d 75 6e 69 74 20 |d0=name |d1=unit |
|00000900| 64 32 3d 62 61 75 64 20 | 64 33 3d 66 6c 61 67 20 |d2=baud |d3=flag |
|00000910| 3b 64 30 3d 75 6e 69 74 | 20 64 31 3d 62 61 75 64 |;d0=unit| d1=baud|
|00000920| 20 64 32 3d 66 6c 61 67 | 00 20 20 80 7e 2e 6c 20 | d2=flag|. .~.l |
|00000930| 61 36 2c 2d 28 61 37 29 | 3a 80 7e 2e 6c 20 34 2c |a6,-(a7)|:.~.l 4,|
|00000940| 61 36 00 20 20 80 82 2e | 6c 20 64 30 2d 64 33 2c |a6. ...|l d0-d3,|
|00000950| 6e 61 6d 65 3a 80 44 20 | 23 38 2c 64 31 3a 80 7a |name:.D |#8,d1:.z|
|00000960| 20 61 6c 6c 69 6f 28 70 | 63 29 2c 61 32 3a 80 3d | allio(p|c),a2:.=|
|00000970| 20 64 31 2c 61 32 00 00 | 20 20 3b 73 65 74 75 70 | d1,a2..| ;setup|
|00000980| 20 72 65 61 64 20 70 6f | 72 74 20 61 6e 64 20 6f | read po|rt and o|
|00000990| 70 65 6e 20 64 65 76 69 | 63 65 00 00 20 20 80 7e |pen devi|ce.. .~|
|000009a0| 2e 6c 20 61 32 2c 61 33 | 3a 80 7a 33 38 28 61 33 |.l a2,a3|:.z38(a3|
|000009b0| 29 2c 61 31 3a 80 7e 2e | 6c 61 31 2c 28 61 33 29 |),a1:.~.|la1,(a3)|
|000009c0| 2b 3a 80 7e 2e 62 23 34 | 2c 38 28 61 33 29 00 20 |+:.~.b#4|,8(a3). |
|000009d0| 20 80 7a 20 32 30 28 61 | 33 29 2c 61 31 3a 80 7e | .z 20(a|3),a1:.~|
|000009e0| 2e 6c 20 61 31 2c 32 38 | 28 61 33 29 3a 80 40 23 |.l a1,28|(a3):.@#|
|000009f0| 34 2c 61 31 3a 80 7e 2e | 6c 61 31 2c 32 30 28 61 |4,a1:.~.|la1,20(a|
|00000a00| 33 29 00 20 20 80 7e 2e | 6c 20 61 33 2c 34 38 28 |3). .~.|l a3,48(|
|00000a10| 61 33 29 3a 80 7e 2e 62 | 23 35 2c 34 32 28 61 33 |a3):.~.b|#5,42(a3|
|00000a20| 29 00 20 20 80 a7 2e 6c | 20 61 31 2c 61 31 3a 80 |). ...l| a1,a1:.|
|00000a30| 79 20 5f 46 69 6e 64 54 | 61 73 6b 28 61 36 29 3a |y _FindT|ask(a6):|
|00000a40| 80 7e 2e 6c 20 64 30 2c | 31 36 28 61 33 29 00 20 |.~.l d0,|16(a3). |
|00000a50| 20 80 81 23 2d 31 2c 64 | 30 3a 80 79 20 5f 41 6c | ..#-1,d|0:.y _Al|
|00000a60| 6c 6f 63 53 69 67 6e 61 | 6c 28 61 36 29 3a 80 7e |locSigna|l(a6):.~|
|00000a70| 2e 62 20 64 30 2c 31 35 | 28 61 33 29 3a 80 4f 20 |.b d0,15|(a3):.O |
|00000a80| 66 61 69 6c 00 20 20 80 | 7e 20 23 80 2f 2e 73 65 |fail. .|~ #./.se|
|00000a90| 72 69 61 6c 69 6f 2d 33 | 38 2c 35 36 28 61 32 29 |rialio-3|8,56(a2)|
|00000aa0| 3a 80 7e 2e 62 20 66 6c | 61 67 2b 33 2c 21 73 7b |:.~.b fl|ag+3,!s{|
|00000ab0| 73 65 72 66 6c 61 67 73 | 7d 00 20 20 80 7e 2e 6c |serflags|}. .~.l|
|00000ac0| 20 75 6e 69 74 28 70 63 | 29 2c 64 30 3a 80 81 20 | unit(pc|),d0:.. |
|00000ad0| 23 30 2c 64 31 00 20 20 | 80 7e 2e 6c 20 28 61 32 |#0,d1. |.~.l (a2|
|00000ae0| 29 2c 61 31 3a 80 7e 2e | 6c 20 6e 61 6d 65 28 70 |),a1:.~.|l name(p|
|00000af0| 63 29 2c 61 30 3a 80 79 | 20 5f 4f 70 65 6e 44 65 |c),a0:.y| _OpenDe|
|00000b00| 76 69 63 65 28 61 36 29 | 00 20 20 80 b0 2e 6c 20 |vice(a6)|. ...l |
|00000b10| 64 30 3a 80 50 20 66 61 | 69 6c 32 00 20 20 80 7e |d0:.P fa|il2. .~|
|00000b20| 2e 6c 20 62 61 75 64 2c | 21 73 7b 62 61 75 64 7d |.l baud,|!s{baud}|
|00000b30| 3a 80 7e 2e 62 20 66 6c | 61 67 2b 33 2c 21 73 7b |:.~.b fl|ag+3,!s{|
|00000b40| 73 65 72 66 6c 61 67 73 | 7d 00 20 20 80 7e 23 31 |serflags|}. .~#1|
|00000b50| 31 2c 21 73 7b 63 6f 6d | 6d 61 6e 64 7d 3a 80 7e |1,!s{com|mand}:.~|
|00000b60| 2e 6c 28 61 32 29 2c 61 | 31 3a 80 79 20 5f 44 6f |.l(a2),a|1:.y _Do|
|00000b70| 49 4f 28 61 36 29 00 00 | 20 20 3b 63 6f 70 79 20 |IO(a6)..| ;copy |
|00000b80| 72 65 61 64 20 69 6f 73 | 74 64 72 65 71 20 73 74 |read ios|tdreq st|
|00000b90| 75 66 66 20 61 6e 64 20 | 69 6e 69 74 20 77 72 69 |uff and |init wri|
|00000ba0| 74 65 20 70 6f 72 74 00 | 00 20 20 80 7a 20 31 32 |te port.|. .z 12|
|00000bb0| 38 28 61 32 29 2c 61 33 | 3a 80 81 23 33 31 2c 64 |8(a2),a3|:..#31,d|
|00000bc0| 30 3a 63 6f 70 79 3a 80 | 7e 2e 6c 20 28 61 32 29 |0:copy:.|~.l (a2)|
|00000bd0| 2b 2c 28 61 33 29 2b 3a | 80 6f 20 64 30 2c 63 6f |+,(a3)+:|.o d0,co|
|00000be0| 70 79 00 20 20 80 7e 2e | 6c 20 61 32 2c 61 33 3a |py. .~.|l a2,a3:|
|00000bf0| 80 7a 33 38 28 61 33 29 | 2c 61 31 3a 80 7e 2e 6c |.z38(a3)|,a1:.~.l|
|00000c00| 61 31 2c 28 61 33 29 2b | 3a 80 7e 2e 62 23 34 2c |a1,(a3)+|:.~.b#4,|
|00000c10| 38 28 61 33 29 00 20 20 | 80 7a 20 32 30 28 61 33 |8(a3). |.z 20(a3|
|00000c20| 29 2c 61 31 3a 80 7e 2e | 6c 20 61 31 2c 32 38 28 |),a1:.~.|l a1,28(|
|00000c30| 61 33 29 3a 80 40 23 34 | 2c 61 31 3a 80 7e 2e 6c |a3):.@#4|,a1:.~.l|
|00000c40| 61 31 2c 32 30 28 61 33 | 29 00 20 20 80 7e 2e 6c |a1,20(a3|). .~.l|
|00000c50| 20 61 33 2c 34 38 28 61 | 33 29 3a 80 7e 2e 62 23 | a3,48(a|3):.~.b#|
|00000c60| 35 2c 34 32 28 61 33 29 | 00 20 20 80 81 23 2d 31 |5,42(a3)|. ..#-1|
|00000c70| 2c 64 30 3a 80 79 20 5f | 41 6c 6c 6f 63 53 69 67 |,d0:.y _|AllocSig|
|00000c80| 6e 61 6c 28 61 36 29 3a | 80 7e 2e 62 20 64 30 2c |nal(a6):|.~.b d0,|
|00000c90| 31 35 28 61 33 29 3a 80 | 4f 20 66 61 69 6c 31 00 |15(a3):.|O fail1.|
|00000ca0| 20 20 80 7e 2e 6c 20 28 | 61 37 29 2b 2c 61 36 3a | .~.l (|a7)+,a6:|
|00000cb0| 80 7a 20 2d 31 32 38 28 | 61 32 29 2c 61 32 3a 80 |.z -128(|a2),a2:.|
|00000cc0| 7e 2e 6c 61 32 2c 64 30 | 3a 80 94 00 00 20 20 66 |~.la2,d0|:.... f|
|00000cd0| 61 69 6c 31 3a 80 7a 20 | 2d 31 32 38 28 61 32 29 |ail1:.z |-128(a2)|
|00000ce0| 2c 61 32 00 20 20 66 61 | 69 6c 32 3a 80 81 23 30 |,a2. fa|il2:..#0|
|00000cf0| 2c 64 30 3a 80 7e 2e 62 | 20 31 39 28 61 32 29 2c |,d0:.~.b| 19(a2),|
|00000d00| 64 30 3a 80 79 20 5f 46 | 72 65 65 53 69 67 6e 61 |d0:.y _F|reeSigna|
|00000d10| 6c 28 61 36 29 00 20 20 | 66 61 69 6c 3a 80 5b 2e |l(a6). |fail:.[.|
|00000d20| 6c 28 61 32 29 3a 80 81 | 23 30 2c 64 30 3a 80 7e |l(a2):..|#0,d0:.~|
|00000d30| 2e 6c 20 28 61 37 29 2b | 2c 61 36 3a 80 94 00 00 |.l (a7)+|,a6:....|
|00000d40| 6e 61 6d 65 3a 80 25 2e | 6c 20 30 00 75 6e 69 74 |name:.%.|l 0.unit|
|00000d50| 3a 80 25 2e 6c 20 30 00 | 62 61 75 64 3a 80 25 2e |:.%.l 0.|baud:.%.|
|00000d60| 6c 20 30 00 66 6c 61 67 | 3a 80 25 2e 6c 20 30 00 |l 0.flag|:.%.l 0.|
|00000d70| 00 2e 5f 63 6c 6f 73 65 | 73 65 72 69 61 6c 00 20 |.._close|serial. |
|00000d80| 20 80 7e 2e 6c 20 61 36 | 2c 2d 28 61 37 29 3a 80 | .~.l a6|,-(a7):.|
|00000d90| 7e 2e 6c 20 34 2c 61 36 | 00 20 20 80 44 20 23 37 |~.l 4,a6|. .D #7|
|00000da0| 2c 64 30 3a 80 7a 20 61 | 6c 6c 69 6f 28 70 63 29 |,d0:.z a|llio(pc)|
|00000db0| 2c 61 32 3a 80 3d 20 64 | 30 2c 61 32 00 20 20 80 |,a2:.= d|0,a2. .|
|00000dc0| b0 2e 6c 20 28 61 32 29 | 3a 80 48 20 6e 6f 63 6c |..l (a2)|:.H nocl|
|00000dd0| 6f 73 65 00 20 20 80 7e | 2e 6c 20 28 61 32 29 2c |ose. .~|.l (a2),|
|00000de0| 61 31 3a 80 79 20 5f 41 | 62 6f 72 74 49 4f 28 61 |a1:.y _A|bortIO(a|
|00000df0| 36 29 00 20 20 80 7e 2e | 6c 20 28 61 32 29 2c 61 |6). .~.|l (a2),a|
|00000e00| 31 3a 80 79 20 5f 43 6c | 6f 73 65 44 65 76 69 63 |1:.y _Cl|oseDevic|
|00000e10| 65 28 61 36 29 00 20 20 | 80 81 23 30 2c 64 30 3a |e(a6). |..#0,d0:|
|00000e20| 80 7e 2e 62 20 31 39 28 | 61 32 29 2c 64 30 3a 80 |.~.b 19(|a2),d0:.|
|00000e30| 79 20 5f 46 72 65 65 53 | 69 67 6e 61 6c 28 61 36 |y _FreeS|ignal(a6|
|00000e40| 29 3a 80 5b 2e 6c 28 61 | 32 29 00 20 20 80 7a 20 |):.[.l(a|2). .z |
|00000e50| 31 32 38 28 61 32 29 2c | 61 32 3a 80 b0 2e 6c 20 |128(a2),|a2:...l |
|00000e60| 28 61 32 29 3a 80 48 20 | 6e 6f 63 6c 6f 73 65 00 |(a2):.H |noclose.|
|00000e70| 20 20 80 81 23 30 2c 64 | 30 3a 80 7e 2e 62 20 31 | ..#0,d|0:.~.b 1|
|00000e80| 39 28 61 32 29 2c 64 30 | 3a 80 79 20 5f 46 72 65 |9(a2),d0|:.y _Fre|
|00000e90| 65 53 69 67 6e 61 6c 28 | 61 36 29 3a 80 5b 2e 6c |eSignal(|a6):.[.l|
|00000ea0| 28 61 32 29 00 20 20 6e | 6f 63 6c 6f 73 65 3a 80 |(a2). n|oclose:.|
|00000eb0| 7e 2e 6c 20 28 61 37 29 | 2b 2c 61 36 3a 80 94 00 |~.l (a7)|+,a6:...|
|00000ec0| 00 2e 5f 63 6c 6f 73 65 | 61 6c 6c 69 6f 00 20 20 |.._close|allio. |
|00000ed0| 80 7e 2e 6c 20 61 36 2c | 2d 28 61 37 29 3a 80 7e |.~.l a6,|-(a7):.~|
|00000ee0| 2e 6c 20 34 2c 61 36 3a | 80 7a 20 61 6c 6c 69 6f |.l 4,a6:|.z allio|
|00000ef0| 28 70 63 29 2c 61 32 3a | 80 7e 20 23 37 2c 64 37 |(pc),a2:|.~ #7,d7|
|00000f00| 00 20 20 64 6f 63 6c 6f | 73 65 3a 80 b0 2e 6c 20 |. doclo|se:...l |
|00000f10| 28 61 32 29 3a 80 48 20 | 73 6b 69 70 00 20 20 80 |(a2):.H |skip. .|
|00000f20| 7e 2e 6c 20 28 61 32 29 | 2c 61 31 3a 80 79 20 5f |~.l (a2)|,a1:.y _|
|00000f30| 41 62 6f 72 74 49 4f 28 | 61 36 29 00 20 20 80 7e |AbortIO(|a6). .~|
|00000f40| 2e 6c 20 28 61 32 29 2c | 61 31 3a 80 79 20 5f 57 |.l (a2),|a1:.y _W|
|00000f50| 61 69 74 49 4f 28 61 36 | 29 00 20 20 80 7e 2e 6c |aitIO(a6|). .~.l|
|00000f60| 20 28 61 32 29 2c 61 31 | 3a 80 79 20 5f 43 6c 6f | (a2),a1|:.y _Clo|
|00000f70| 73 65 44 65 76 69 63 65 | 28 61 36 29 00 20 20 80 |seDevice|(a6). .|
|00000f80| 81 23 30 2c 64 30 3a 80 | 7e 2e 62 20 31 39 28 61 |.#0,d0:.|~.b 19(a|
|00000f90| 32 29 2c 64 30 3a 80 79 | 20 5f 46 72 65 65 53 69 |2),d0:.y| _FreeSi|
|00000fa0| 67 6e 61 6c 28 61 36 29 | 3a 80 5b 2e 6c 28 61 32 |gnal(a6)|:.[.l(a2|
|00000fb0| 29 00 20 20 73 6b 69 70 | 3a 80 7a 20 31 32 38 28 |). skip|:.z 128(|
|00000fc0| 61 32 29 2c 61 32 3a 80 | b0 2e 6c 20 28 61 32 29 |a2),a2:.|..l (a2)|
|00000fd0| 3a 80 48 20 6e 78 63 6c | 6f 73 65 00 20 20 80 81 |:.H nxcl|ose. ..|
|00000fe0| 23 30 2c 64 30 3a 80 7e | 2e 62 20 31 39 28 61 32 |#0,d0:.~|.b 19(a2|
|00000ff0| 29 2c 64 30 3a 80 79 20 | 5f 46 72 65 65 53 69 67 |),d0:.y |_FreeSig|
|00001000| 6e 61 6c 28 61 36 29 3a | 80 5b 2e 6c 28 61 32 29 |nal(a6):|.[.l(a2)|
|00001010| 00 20 20 6e 78 63 6c 6f | 73 65 3a 80 7a 20 31 32 |. nxclo|se:.z 12|
|00001020| 38 28 61 32 29 2c 61 32 | 3a 80 6f 20 64 37 2c 64 |8(a2),a2|:.o d7,d|
|00001030| 6f 63 6c 6f 73 65 00 20 | 20 80 7e 2e 6c 20 28 61 |oclose. | .~.l (a|
|00001040| 37 29 2b 2c 61 36 3a 80 | 94 00 00 2e 5f 77 72 69 |7)+,a6:.|...._wri|
|00001050| 74 65 62 79 74 65 3a 00 | 20 20 80 7e 2e 6c 20 61 |tebyte:.| .~.l a|
|00001060| 36 2c 2d 28 61 37 29 3a | 80 7e 2e 6c 20 34 2c 61 |6,-(a7):|.~.l 4,a|
|00001070| 36 00 20 20 80 7a 20 61 | 6c 6c 69 6f 28 70 63 29 |6. .z a|llio(pc)|
|00001080| 2c 61 32 3a 80 44 23 38 | 2c 64 30 3a 80 3d 23 31 |,a2:.D#8|,d0:.=#1|
|00001090| 32 38 2c 64 30 3a 80 3d | 20 64 30 2c 61 32 00 20 |28,d0:.=| d0,a2. |
|000010a0| 20 80 b0 2e 6c 20 28 61 | 32 29 3a 80 48 20 6e 6f | ...l (a|2):.H no|
|000010b0| 73 65 72 00 20 20 80 7a | 20 77 62 31 28 70 63 29 |ser. .z| wb1(pc)|
|000010c0| 2c 61 30 3a 80 7e 2e 62 | 20 64 31 2c 28 61 30 29 |,a0:.~.b| d1,(a0)|
|000010d0| 00 20 20 80 7e 20 23 33 | 2c 21 73 7b 63 6f 6d 6d |. .~ #3|,!s{comm|
|000010e0| 61 6e 64 7d 3a 80 7e 2e | 6c 23 31 2c 21 73 7b 73 |and}:.~.|l#1,!s{s|
|000010f0| 6c 65 6e 7d 3a 80 7e 2e | 6c 20 61 30 2c 21 73 7b |len}:.~.|l a0,!s{|
|00001100| 73 64 61 74 61 7d 00 20 | 20 80 7e 2e 6c 20 28 61 |sdata}. | .~.l (a|
|00001110| 32 29 2c 61 31 3a 80 79 | 20 5f 44 6f 49 4f 28 61 |2),a1:.y| _DoIO(a|
|00001120| 36 29 00 20 20 80 7e 2e | 6c 20 28 61 37 29 2b 2c |6). .~.|l (a7)+,|
|00001130| 61 36 3a 80 94 00 20 20 | 77 62 31 3a 80 25 2e 6c |a6:... |wb1:.%.l|
|00001140| 20 30 00 00 2e 5f 77 72 | 69 74 65 73 74 72 69 6e | 0..._wr|itestrin|
|00001150| 67 3a 00 20 20 80 7e 2e | 6c 20 61 36 2c 2d 28 61 |g:. .~.|l a6,-(a|
|00001160| 37 29 3a 80 7e 2e 6c 20 | 34 2c 61 36 00 20 20 80 |7):.~.l |4,a6. .|
|00001170| 7a 20 61 6c 6c 69 6f 28 | 70 63 29 2c 61 32 3a 80 |z allio(|pc),a2:.|
|00001180| 44 23 38 2c 64 30 3a 80 | 3d 20 23 31 32 38 2c 64 |D#8,d0:.|= #128,d|
|00001190| 30 3a 80 3d 20 64 30 2c | 61 32 00 20 20 80 b0 2e |0:.= d0,|a2. ...|
|000011a0| 6c 20 28 61 32 29 3a 80 | 48 20 6e 6f 73 65 72 00 |l (a2):.|H noser.|
|000011b0| 20 20 80 7a 20 77 62 31 | 28 70 63 29 2c 61 30 3a | .z wb1|(pc),a0:|
|000011c0| 80 7e 20 23 33 2c 21 73 | 7b 63 6f 6d 6d 61 6e 64 |.~ #3,!s|{command|
|000011d0| 7d 3a 80 7e 2e 6c 23 2d | 31 2c 21 73 7b 73 6c 65 |}:.~.l#-|1,!s{sle|
|000011e0| 6e 7d 00 20 20 80 7e 2e | 6c 20 64 31 2c 21 73 7b |n}. .~.|l d1,!s{|
|000011f0| 73 64 61 74 61 7d 3a 80 | 7e 2e 6c 20 28 61 32 29 |sdata}:.|~.l (a2)|
|00001200| 2c 61 31 3a 80 79 20 5f | 53 65 6e 64 49 4f 28 61 |,a1:.y _|SendIO(a|
|00001210| 36 29 00 20 20 80 7e 2e | 6c 20 28 61 37 29 2b 2c |6). .~.|l (a7)+,|
|00001220| 61 36 3a 80 94 00 00 2e | 5f 72 65 61 64 62 79 74 |a6:.....|_readbyt|
|00001230| 65 3a 00 20 20 80 7e 2e | 6c 20 61 36 2c 2d 28 61 |e:. .~.|l a6,-(a|
|00001240| 37 29 3a 80 7e 2e 6c 20 | 34 2c 61 36 00 20 20 80 |7):.~.l |4,a6. .|
|00001250| 7a 20 61 6c 6c 69 6f 28 | 70 63 29 2c 61 32 3a 80 |z allio(|pc),a2:.|
|00001260| 44 23 38 2c 64 30 3a 80 | 3d 20 64 30 2c 61 32 3a |D#8,d0:.|= d0,a2:|
|00001270| 80 b0 2e 6c 20 28 61 32 | 29 3a 80 48 20 6e 6f 73 |...l (a2|):.H nos|
|00001280| 65 72 00 20 20 80 7e 20 | 23 39 2c 21 73 7b 63 6f |er. .~ |#9,!s{co|
|00001290| 6d 6d 61 6e 64 7d 3a 80 | 7e 2e 6c 20 28 61 32 29 |mmand}:.|~.l (a2)|
|000012a0| 2c 61 31 3a 80 79 20 5f | 44 6f 49 4f 28 61 36 29 |,a1:.y _|DoIO(a6)|
|000012b0| 00 20 20 80 b0 2e 6c 20 | 21 73 7b 61 63 74 75 61 |. ...l |!s{actua|
|000012c0| 6c 7d 3a 80 4c 20 6e 6f | 62 79 74 65 73 3a 80 7a |l}:.L no|bytes:.z|
|000012d0| 20 72 62 31 28 70 63 29 | 2c 61 33 00 20 20 80 7e | rb1(pc)|,a3. .~|
|000012e0| 23 32 2c 21 73 7b 63 6f | 6d 6d 61 6e 64 7d 3a 80 |#2,!s{co|mmand}:.|
|000012f0| 7e 2e 6c 23 31 2c 21 73 | 7b 73 6c 65 6e 7d 3a 80 |~.l#1,!s|{slen}:.|
|00001300| 7e 2e 6c 20 61 33 2c 21 | 73 7b 73 64 61 74 61 7d |~.l a3,!|s{sdata}|
|00001310| 00 20 20 80 7e 2e 6c 20 | 28 61 32 29 2c 61 31 3a |. .~.l |(a2),a1:|
|00001320| 80 79 20 5f 44 6f 49 4f | 28 61 36 29 3a 80 81 23 |.y _DoIO|(a6):..#|
|00001330| 30 2c 64 30 3a 80 7e 2e | 62 20 28 61 33 29 2c 64 |0,d0:.~.|b (a3),d|
|00001340| 30 00 20 20 80 7e 2e 6c | 20 28 61 37 29 2b 2c 61 |0. .~.l| (a7)+,a|
|00001350| 36 3a 80 94 00 20 20 6e | 6f 62 79 74 65 73 3a 80 |6:... n|obytes:.|
|00001360| 81 23 2d 31 2c 64 30 3a | 80 7e 2e 6c 20 28 61 37 |.#-1,d0:|.~.l (a7|
|00001370| 29 2b 2c 61 36 3a 80 94 | 00 20 20 72 62 31 3a 80 |)+,a6:..|. rb1:.|
|00001380| 25 2e 6c 20 30 00 00 2e | 5f 72 65 61 64 73 74 72 |%.l 0...|_readstr|
|00001390| 69 6e 67 3a 00 20 20 80 | 7e 2e 6c 20 61 36 2c 2d |ing:. .|~.l a6,-|
|000013a0| 28 61 37 29 3a 80 7e 2e | 6c 20 34 2c 61 36 00 20 |(a7):.~.|l 4,a6. |
|000013b0| 20 80 7a 20 61 6c 6c 69 | 6f 28 70 63 29 2c 61 32 | .z alli|o(pc),a2|
|000013c0| 3a 80 44 23 38 2c 64 30 | 3a 80 3d 20 64 30 2c 61 |:.D#8,d0|:.= d0,a|
|000013d0| 32 3a 80 b0 2e 6c 20 28 | 61 32 29 3a 80 48 20 6e |2:...l (|a2):.H n|
|000013e0| 6f 73 65 72 00 20 20 80 | 7e 20 23 39 2c 21 73 7b |oser. .|~ #9,!s{|
|000013f0| 63 6f 6d 6d 61 6e 64 7d | 3a 80 7e 2e 6c 20 28 61 |command}|:.~.l (a|
|00001400| 32 29 2c 61 31 3a 80 79 | 20 5f 44 6f 49 4f 28 61 |2),a1:.y| _DoIO(a|
|00001410| 36 29 00 20 20 80 7e 2e | 6c 20 21 73 7b 61 63 74 |6). .~.|l !s{act|
|00001420| 75 61 6c 7d 2c 64 32 3a | 80 4c 20 6e 6f 62 79 74 |ual},d2:|.L nobyt|
|00001430| 65 73 32 00 20 20 80 7e | 23 32 2c 21 73 7b 63 6f |es2. .~|#2,!s{co|
|00001440| 6d 6d 61 6e 64 7d 3a 80 | 7e 2e 6c 64 32 2c 21 73 |mmand}:.|~.ld2,!s|
|00001450| 7b 73 6c 65 6e 7d 3a 80 | 7e 2e 6c 20 61 33 2c 21 |{slen}:.|~.l a3,!|
|00001460| 73 7b 73 64 61 74 61 7d | 00 20 20 80 7e 2e 6c 20 |s{sdata}|. .~.l |
|00001470| 28 61 32 29 2c 61 31 3a | 80 79 20 5f 44 6f 49 4f |(a2),a1:|.y _DoIO|
|00001480| 28 61 36 29 3a 80 7e 2e | 6c 20 64 32 2c 64 30 3a |(a6):.~.|l d2,d0:|
|00001490| 80 3d 2e 6c 20 64 30 2c | 61 33 00 20 20 80 7e 2e |.=.l d0,|a3. .~.|
|000014a0| 6c 20 28 61 37 29 2b 2c | 61 36 3a 80 94 00 20 20 |l (a7)+,|a6:... |
|000014b0| 6e 6f 62 79 74 65 73 32 | 3a 80 81 23 30 2c 64 30 |nobytes2|:..#0,d0|
|000014c0| 3a 80 7e 2e 6c 20 28 61 | 37 29 2b 2c 61 36 3a 80 |:.~.l (a|7)+,a6:.|
|000014d0| 94 00 00 2e 5f 73 65 72 | 69 61 6c 62 75 66 66 65 |...._ser|ialbuffe|
|000014e0| 72 3a 00 20 20 80 7e 2e | 6c 20 61 36 2c 2d 28 61 |r:. .~.|l a6,-(a|
|000014f0| 37 29 3a 80 7e 2e 6c 20 | 34 2c 61 36 00 20 20 80 |7):.~.l |4,a6. .|
|00001500| 44 20 23 37 2c 64 30 3a | 80 7a 20 61 6c 6c 69 6f |D #7,d0:|.z allio|
|00001510| 28 70 63 29 2c 61 32 3a | 80 3d 20 64 30 2c 61 32 |(pc),a2:|.= d0,a2|
|00001520| 3a 80 b0 2e 6c 28 61 32 | 29 3a 80 48 20 6e 6f 73 |:...l(a2|):.H nos|
|00001530| 65 72 00 20 20 80 7e 2e | 6c 20 64 31 2c 21 73 7b |er. .~.|l d1,!s{|
|00001540| 72 62 75 66 6c 65 6e 7d | 00 20 20 80 7e 2e 6c 28 |rbuflen}|. .~.l(|
|00001550| 61 32 29 2c 61 31 3a 80 | 7e 23 31 31 2c 21 73 7b |a2),a1:.|~#11,!s{|
|00001560| 63 6f 6d 6d 61 6e 64 7d | 3a 80 79 20 5f 44 6f 49 |command}|:.y _DoI|
|00001570| 4f 28 61 36 29 00 20 20 | 80 7e 2e 6c 28 61 37 29 |O(a6). |.~.l(a7)|
|00001580| 2b 2c 61 36 3a 80 94 00 | 00 2e 5f 73 65 72 69 61 |+,a6:...|.._seria|
|00001590| 6c 6c 65 6e 73 3a 00 20 | 20 80 7e 2e 6c 20 61 36 |llens:. | .~.l a6|
|000015a0| 2c 2d 28 61 37 29 3a 80 | 7e 2e 6c 20 34 2c 61 36 |,-(a7):.|~.l 4,a6|
|000015b0| 00 20 20 80 44 20 23 37 | 2c 64 30 3a 80 7a 20 61 |. .D #7|,d0:.z a|
|000015c0| 6c 6c 69 6f 28 70 63 29 | 2c 61 32 3a 80 3d 20 64 |llio(pc)|,a2:.= d|
|000015d0| 30 2c 61 32 3a 80 b0 2e | 6c 28 61 32 29 3a 80 48 |0,a2:...|l(a2):.H|
|000015e0| 20 6e 6f 73 65 72 00 20 | 20 80 7e 2e 62 20 64 31 | noser. | .~.b d1|
|000015f0| 2c 21 73 7b 72 65 61 64 | 6c 65 6e 7d 3a 80 7e 2e |,!s{read|len}:.~.|
|00001600| 62 20 64 32 2c 21 73 7b | 77 72 69 74 65 6c 65 6e |b d2,!s{|writelen|
|00001610| 7d 3a 80 7e 2e 62 20 64 | 33 2c 21 73 7b 73 74 6f |}:.~.b d|3,!s{sto|
|00001620| 70 62 69 74 73 7d 00 20 | 20 80 7e 2e 6c 28 61 32 |pbits}. | .~.l(a2|
|00001630| 29 2c 61 31 3a 80 7e 23 | 31 31 2c 21 73 7b 63 6f |),a1:.~#|11,!s{co|
|00001640| 6d 6d 61 6e 64 7d 3a 80 | 79 20 5f 44 6f 49 4f 28 |mmand}:.|y _DoIO(|
|00001650| 61 36 29 00 20 20 80 7e | 2e 6c 28 61 37 29 2b 2c |a6). .~|.l(a7)+,|
|00001660| 61 36 3a 80 94 00 00 2e | 5f 73 65 72 69 61 6c 73 |a6:.....|_serials|
|00001670| 65 74 70 61 72 61 6d 73 | 3a 00 20 20 80 7e 2e 6c |etparams|:. .~.l|
|00001680| 20 61 36 2c 2d 28 61 37 | 29 3a 80 7e 2e 6c 20 34 | a6,-(a7|):.~.l 4|
|00001690| 2c 61 36 00 20 20 80 44 | 20 23 37 2c 64 30 3a 80 |,a6. .D| #7,d0:.|
|000016a0| 7a 20 61 6c 6c 69 6f 28 | 70 63 29 2c 61 32 3a 80 |z allio(|pc),a2:.|
|000016b0| 3d 20 64 30 2c 61 32 3a | 80 b0 2e 6c 28 61 32 29 |= d0,a2:|...l(a2)|
|000016c0| 3a 80 48 20 6e 6f 73 65 | 72 00 20 20 80 7e 2e 6c |:.H nose|r. .~.l|
|000016d0| 28 61 32 29 2c 61 31 3a | 80 7e 23 31 31 2c 21 73 |(a2),a1:|.~#11,!s|
|000016e0| 7b 63 6f 6d 6d 61 6e 64 | 7d 3a 80 79 20 5f 44 6f |{command|}:.y _Do|
|000016f0| 49 4f 28 61 36 29 00 20 | 20 80 7e 2e 6c 28 61 37 |IO(a6). | .~.l(a7|
|00001700| 29 2b 2c 61 36 3a 80 94 | 00 00 6e 6f 73 65 72 3a |)+,a6:..|..noser:|
|00001710| 80 7e 2e 6c 20 23 65 72 | 72 6f 72 2c 64 30 3a 80 |.~.l #er|ror,d0:.|
|00001720| ae 20 23 30 00 65 72 72 | 6f 72 3a 80 25 2e 62 20 |. #0.err|or:.%.b |
|00001730| 22 53 65 72 69 61 6c 20 | 44 65 76 69 63 65 20 4e |"Serial |Device N|
|00001740| 6f 74 20 4f 70 65 6e 22 | 2c 30 00 20 20 20 20 20 |ot Open"|,0. |
|00001750| 20 80 25 2e 6c 20 30 00 | 00 61 6c 6c 69 6f 3a 80 | .%.l 0.|.allio:.|
|00001760| 28 2e 62 20 32 30 34 38 | 2c 30 20 20 3b 38 2a 32 |(.b 2048|,0 ;8*2|
|00001770| 35 36 00 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |56..;---|--------|
|00001780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017b0| 2d 2d 2d 2d 2d 2d 2d 00 | 00 80 01 20 2e 58 50 52 |-------.|... .XPR|
|000017c0| 5f 49 4f 00 20 20 2a 78 | 70 72 5f 66 69 6c 65 6e |_IO. *x|pr_filen|
|000017d0| 61 6d 65 2e 62 00 20 20 | 2a 78 70 72 5f 66 6f 70 |ame.b. |*xpr_fop|
|000017e0| 65 6e 2e 6c 3a 2a 78 70 | 72 5f 66 63 6c 6f 73 65 |en.l:*xp|r_fclose|
|000017f0| 2e 6c 3a 2a 78 70 72 5f | 66 72 65 61 64 2e 6c 3a |.l:*xpr_|fread.l:|
|00001800| 2a 78 70 72 5f 66 77 72 | 69 74 65 2e 6c 00 20 20 |*xpr_fwr|ite.l. |
|00001810| 2a 78 70 72 5f 73 72 65 | 61 64 2e 6c 3a 2a 78 70 |*xpr_sre|ad.l:*xp|
|00001820| 72 5f 73 77 72 69 74 65 | 2e 6c 3a 2a 78 70 72 5f |r_swrite|.l:*xpr_|
|00001830| 73 66 6c 75 73 68 2e 6c | 3a 2a 78 70 72 5f 75 70 |sflush.l|:*xpr_up|
|00001840| 64 61 74 65 2e 6c 00 20 | 20 2a 78 70 72 5f 63 68 |date.l. | *xpr_ch|
|00001850| 6b 61 62 6f 72 74 2e 6c | 3a 2a 78 70 72 5f 63 68 |kabort.l|:*xpr_ch|
|00001860| 6b 6d 69 73 63 2e 6c 3a | 2a 78 70 72 5f 67 65 74 |kmisc.l:|*xpr_get|
|00001870| 73 2e 6c 3a 2a 78 70 72 | 5f 73 65 74 73 65 72 69 |s.l:*xpr|_setseri|
|00001880| 61 6c 2e 6c 00 20 20 2a | 78 70 72 5f 66 66 69 72 |al.l. *|xpr_ffir|
|00001890| 73 74 2e 6c 3a 2a 78 70 | 72 5f 66 6e 65 78 74 2e |st.l:*xp|r_fnext.|
|000018a0| 6c 3a 2a 78 70 72 5f 66 | 69 6e 66 6f 2e 6c 3a 2a |l:*xpr_f|info.l:*|
|000018b0| 78 70 72 5f 66 73 65 65 | 6b 2e 6c 00 20 20 78 70 |xpr_fsee|k.l. xp|
|000018c0| 72 5f 65 78 74 65 6e 73 | 69 6f 6e 2e 6c 20 20 3b |r_extens|ion.l ;|
|000018d0| 4e 75 6d 62 65 72 20 6f | 66 20 65 78 74 65 6e 73 |Number o|f extens|
|000018e0| 69 6f 6e 73 00 20 20 2a | 78 70 72 5f 64 61 74 61 |ions. *|xpr_data|
|000018f0| 2e 6c 20 20 20 20 20 20 | 3b 49 6e 69 74 69 61 6c |.l |;Initial|
|00001900| 69 7a 65 64 20 62 79 20 | 53 65 74 75 70 00 20 20 |ized by |Setup. |
|00001910| 2a 78 70 72 5f 6f 70 74 | 69 6f 6e 73 2e 6c 3a 2a |*xpr_opt|ions.l:*|
|00001920| 78 70 72 5f 75 6e 6c 69 | 6e 6b 2e 6c 3a 2a 78 70 |xpr_unli|nk.l:*xp|
|00001930| 72 5f 73 71 75 65 72 79 | 2e 6c 3a 2a 78 70 72 5f |r_squery|.l:*xpr_|
|00001940| 67 65 74 70 74 72 2e 6c | 00 80 02 20 80 01 00 00 |getptr.l|... ....|
|00001950| 23 58 50 52 5f 45 58 54 | 45 4e 53 49 4f 4e 3d 34 |#XPR_EXT|ENSION=4|
|00001960| 00 23 58 50 52 53 5f 46 | 41 49 4c 55 52 45 3d 24 |.#XPRS_F|AILURE=$|
|00001970| 30 30 30 30 30 30 30 30 | 00 23 58 50 52 53 5f 53 |00000000|.#XPRS_S|
|00001980| 55 43 43 45 53 53 3d 24 | 30 30 30 30 30 30 30 31 |UCCESS=$|00000001|
|00001990| 00 23 58 50 52 53 5f 4e | 4f 52 45 43 52 45 51 3d |.#XPRS_N|ORECREQ=|
|000019a0| 24 30 30 30 30 30 30 30 | 32 00 23 58 50 52 53 5f |$0000000|2.#XPRS_|
|000019b0| 4e 4f 53 4e 44 52 45 51 | 3d 24 30 30 30 30 30 30 |NOSNDREQ|=$000000|
|000019c0| 30 34 00 23 58 50 52 53 | 5f 48 4f 53 54 4d 4f 4e |04.#XPRS|_HOSTMON|
|000019d0| 3d 24 30 30 30 30 30 30 | 30 38 00 23 58 50 52 53 |=$000000|08.#XPRS|
|000019e0| 5f 55 53 45 52 4d 4f 4e | 3d 24 30 30 30 30 30 30 |_USERMON|=$000000|
|000019f0| 31 30 00 23 58 50 52 53 | 5f 48 4f 53 54 4e 4f 57 |10.#XPRS|_HOSTNOW|
|00001a00| 41 49 54 3d 24 30 30 30 | 30 30 30 32 30 00 00 80 |AIT=$000|00020...|
|00001a10| 01 20 2e 58 50 52 5f 55 | 50 44 41 54 45 00 20 20 |. .XPR_U|PDATE. |
|00001a20| 2a 78 70 72 75 5f 70 72 | 6f 74 6f 63 6f 6c 2e 62 |*xpru_pr|otocol.b|
|00001a30| 3a 2a 78 70 72 75 5f 66 | 69 6c 65 6e 61 6d 65 2e |:*xpru_f|ilename.|
|00001a40| 62 3a 78 70 72 75 5f 66 | 69 6c 65 73 69 7a 65 2e |b:xpru_f|ilesize.|
|00001a50| 6c 00 20 20 2a 78 70 72 | 75 5f 6d 73 67 2e 62 3a |l. *xpr|u_msg.b:|
|00001a60| 2a 78 70 72 75 5f 65 72 | 72 6f 72 6d 73 67 2e 62 |*xpru_er|rormsg.b|
|00001a70| 00 20 20 78 70 72 75 5f | 62 6c 6f 63 6b 73 2e 6c |. xpru_|blocks.l|
|00001a80| 3a 78 70 72 75 5f 62 6c | 6f 63 6b 73 69 7a 65 2e |:xpru_bl|ocksize.|
|00001a90| 6c 3a 78 70 72 75 5f 62 | 79 74 65 73 2e 6c 3a 78 |l:xpru_b|ytes.l:x|
|00001aa0| 70 72 75 5f 65 72 72 6f | 72 73 2e 6c 00 20 20 78 |pru_erro|rs.l. x|
|00001ab0| 70 72 75 5f 74 69 6d 65 | 6f 75 74 73 2e 6c 3a 78 |pru_time|outs.l:x|
|00001ac0| 70 72 75 5f 70 61 63 6b | 65 74 74 79 70 65 2e 6c |pru_pack|ettype.l|
|00001ad0| 3a 78 70 72 75 5f 70 61 | 63 6b 65 74 64 65 6c 61 |:xpru_pa|cketdela|
|00001ae0| 79 2e 6c 3a 78 70 72 75 | 5f 63 68 61 72 64 65 6c |y.l:xpru|_chardel|
|00001af0| 61 79 2e 6c 00 20 20 2a | 78 70 72 75 5f 62 6c 6f |ay.l. *|xpru_blo|
|00001b00| 63 6b 63 68 65 63 6b 2e | 62 3a 2a 78 70 72 75 5f |ckcheck.|b:*xpru_|
|00001b10| 65 78 70 65 63 74 74 69 | 6d 65 2e 62 3a 2a 78 70 |expectti|me.b:*xp|
|00001b20| 72 75 5f 65 6c 61 70 73 | 65 64 74 69 6d 65 2e 62 |ru_elaps|edtime.b|
|00001b30| 00 20 20 78 70 72 75 5f | 64 61 74 61 72 61 74 65 |. xpru_|datarate|
|00001b40| 2e 6c 3a 78 70 72 75 5f | 72 65 73 65 72 76 65 64 |.l:xpru_|reserved|
|00001b50| 5b 35 5d 2e 6c 00 80 02 | 20 80 01 00 00 23 58 50 |[5].l...| ....#XP|
|00001b60| 52 55 5f 50 52 4f 54 4f | 43 4f 4c 3d 24 30 30 30 |RU_PROTO|COL=$000|
|00001b70| 30 30 30 30 31 00 23 58 | 50 52 55 5f 46 49 4c 45 |00001.#X|PRU_FILE|
|00001b80| 4e 41 4d 45 3d 24 30 30 | 30 30 30 30 30 32 00 23 |NAME=$00|000002.#|
|00001b90| 58 50 52 55 5f 46 49 4c | 45 53 49 5a 45 3d 24 30 |XPRU_FIL|ESIZE=$0|
|00001ba0| 30 30 30 30 30 30 34 00 | 23 58 50 52 55 5f 4d 53 |0000004.|#XPRU_MS|
|00001bb0| 47 3d 24 30 30 30 30 30 | 30 30 38 00 23 58 50 52 |G=$00000|008.#XPR|
|00001bc0| 55 5f 45 52 52 4f 52 4d | 53 47 3d 24 30 30 30 30 |U_ERRORM|SG=$0000|
|00001bd0| 30 30 31 30 00 23 58 50 | 52 55 5f 42 4c 4f 43 4b |0010.#XP|RU_BLOCK|
|00001be0| 53 3d 24 30 30 30 30 30 | 30 32 30 00 23 58 50 52 |S=$00000|020.#XPR|
|00001bf0| 55 5f 42 4c 4f 43 4b 53 | 49 5a 45 3d 24 30 30 30 |U_BLOCKS|IZE=$000|
|00001c00| 30 30 30 34 30 00 23 58 | 50 52 55 5f 42 59 54 45 |00040.#X|PRU_BYTE|
|00001c10| 53 3d 24 30 30 30 30 30 | 30 38 30 00 23 58 50 52 |S=$00000|080.#XPR|
|00001c20| 55 5f 45 52 52 4f 52 53 | 3d 24 30 30 30 30 30 31 |U_ERRORS|=$000001|
|00001c30| 30 30 00 23 58 50 52 55 | 5f 54 49 4d 45 4f 55 54 |00.#XPRU|_TIMEOUT|
|00001c40| 53 3d 24 30 30 30 30 30 | 32 30 30 00 23 58 50 52 |S=$00000|200.#XPR|
|00001c50| 55 5f 50 41 43 4b 45 54 | 54 59 50 45 3d 24 30 30 |U_PACKET|TYPE=$00|
|00001c60| 30 30 30 34 30 30 00 23 | 58 50 52 55 5f 50 41 43 |000400.#|XPRU_PAC|
|00001c70| 4b 45 54 44 45 4c 41 59 | 3d 24 30 30 30 30 30 38 |KETDELAY|=$000008|
|00001c80| 30 30 00 23 58 50 52 55 | 5f 43 48 41 52 44 45 4c |00.#XPRU|_CHARDEL|
|00001c90| 41 59 3d 24 30 30 30 30 | 31 30 30 30 00 23 58 50 |AY=$0000|1000.#XP|
|00001ca0| 52 55 5f 42 4c 4f 43 4b | 43 48 45 43 4b 3d 24 30 |RU_BLOCK|CHECK=$0|
|00001cb0| 30 30 30 32 30 30 30 00 | 23 58 50 52 55 5f 45 58 |0002000.|#XPRU_EX|
|00001cc0| 50 45 43 54 54 49 4d 45 | 3d 24 30 30 30 30 34 30 |PECTTIME|=$000040|
|00001cd0| 30 30 00 23 58 50 52 55 | 5f 45 4c 41 50 53 45 44 |00.#XPRU|_ELAPSED|
|00001ce0| 54 49 4d 45 3d 24 30 30 | 30 30 38 30 30 30 00 23 |TIME=$00|008000.#|
|00001cf0| 58 50 52 55 5f 44 41 54 | 41 52 41 54 45 3d 24 30 |XPRU_DAT|ARATE=$0|
|00001d00| 30 30 31 30 30 30 30 00 | 00 80 01 20 2e 78 70 72 |0010000.|... .xpr|
|00001d10| 5f 6f 70 74 69 6f 6e 00 | 20 20 2a 78 70 72 6f 5f |_option.| *xpro_|
|00001d20| 64 65 73 63 72 69 70 74 | 69 6f 6e 2e 62 20 3b 64 |descript|ion.b ;d|
|00001d30| 65 73 63 72 69 70 74 69 | 6f 6e 20 6f 66 20 74 68 |escripti|on of th|
|00001d40| 65 20 6f 70 74 69 6f 6e | 00 20 20 78 70 72 6f 5f |e option|. xpro_|
|00001d50| 74 79 70 65 2e 6c 20 20 | 20 20 20 20 20 20 20 3b |type.l | ;|
|00001d60| 74 79 70 65 20 6f 66 20 | 6f 70 74 69 6f 6e 00 20 |type of |option. |
|00001d70| 20 2a 78 70 72 6f 5f 76 | 61 6c 75 65 2e 62 20 20 | *xpro_v|alue.b |
|00001d80| 20 20 20 20 20 3b 70 6f | 69 6e 74 65 72 20 74 6f | ;po|inter to|
|00001d90| 20 61 20 62 75 66 66 65 | 72 20 77 69 74 68 20 74 | a buffe|r with t|
|00001da0| 68 65 20 63 75 72 72 65 | 6e 74 20 76 61 6c 75 65 |he curre|nt value|
|00001db0| 00 20 20 78 70 72 6f 5f | 6c 65 6e 67 74 68 2e 6c |. xpro_|length.l|
|00001dc0| 20 20 20 20 20 20 20 3b | 62 75 66 66 65 72 20 73 | ;|buffer s|
|00001dd0| 69 7a 65 00 80 02 20 80 | 01 00 00 23 58 50 52 4f |ize... .|...#XPRO|
|00001de0| 5f 42 4f 4f 4c 45 41 4e | 3d 31 20 20 3b 2f 2a 20 |_BOOLEAN|=1 ;/* |
|00001df0| 78 70 72 6f 5f 76 61 6c | 75 65 20 69 73 20 22 79 |xpro_val|ue is "y|
|00001e00| 65 73 22 2c 20 22 6e 6f | 22 2c 20 22 6f 6e 22 20 |es", "no|", "on" |
|00001e10| 6f 72 20 22 6f 66 66 22 | 20 20 20 2a 2f 00 23 58 |or "off"| */.#X|
|00001e20| 50 52 4f 5f 4c 4f 4e 47 | 3d 32 20 20 20 20 20 3b |PRO_LONG|=2 ;|
|00001e30| 2f 2a 20 78 70 72 6f 5f | 76 61 6c 75 65 20 69 73 |/* xpro_|value is|
|00001e40| 20 73 74 72 69 6e 67 20 | 72 65 70 72 65 73 65 6e | string |represen|
|00001e50| 74 69 6e 67 20 61 20 6e | 75 6d 62 65 72 20 2a 2f |ting a n|umber */|
|00001e60| 00 23 58 50 52 4f 5f 53 | 54 52 49 4e 47 3d 33 20 |.#XPRO_S|TRING=3 |
|00001e70| 20 20 3b 2f 2a 20 78 70 | 72 6f 5f 76 61 6c 75 65 | ;/* xp|ro_value|
|00001e80| 20 69 73 20 61 20 73 74 | 72 69 6e 67 20 20 20 20 | is a st|ring |
|00001e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ea0| 20 2a 2f 00 23 58 50 52 | 4f 5f 48 45 41 44 45 52 | */.#XPR|O_HEADER|
|00001eb0| 3d 34 20 20 20 3b 2f 2a | 20 78 70 72 6f 5f 76 61 |=4 ;/*| xpro_va|
|00001ec0| 6c 75 65 20 69 73 20 69 | 67 6e 6f 72 65 64 20 20 |lue is i|gnored |
|00001ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ee0| 20 20 20 20 2a 2f 00 23 | 58 50 52 4f 5f 43 4f 4d | */.#|XPRO_COM|
|00001ef0| 4d 41 4e 44 3d 35 20 20 | 3b 2f 2a 20 78 70 72 6f |MAND=5 |;/* xpro|
|00001f00| 5f 76 61 6c 75 65 20 69 | 73 20 69 67 6e 6f 72 65 |_value i|s ignore|
|00001f10| 64 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d | |
|00001f20| 20 20 20 20 20 20 20 2a | 2f 00 23 58 50 52 4f 5f | *|/.#XPRO_|
|00001f30| 43 4f 4d 4d 50 41 52 3d | 36 20 20 3b 2f 2a 20 78 |COMMPAR=|6 ;/* x|
|00001f40| 70 72 6f 5f 76 61 6c 75 | 65 20 63 6f 6e 74 61 69 |pro_valu|e contai|
|00001f50| 6e 73 20 63 6f 6d 6d 61 | 6e 64 20 70 61 72 61 6d |ns comma|nd param|
|00001f60| 65 74 65 72 73 20 20 20 | 20 20 2a 2f 00 00 23 5f |eters | */..#_|
|00001f70| 43 6c 65 61 6e 75 70 3d | 2d 33 30 20 20 20 20 20 |Cleanup=|-30 |
|00001f80| 3b 28 69 6f 29 28 41 30 | 29 00 23 5f 53 65 74 75 |;(io)(A0|).#_Setu|
|00001f90| 70 3d 2d 33 36 20 20 20 | 20 20 20 20 3b 28 69 6f |p=-36 | ;(io|
|00001fa0| 29 28 41 30 29 00 23 5f | 53 65 6e 64 3d 2d 34 32 |)(A0).#_|Send=-42|
|00001fb0| 20 20 20 20 20 20 20 20 | 3b 28 69 6f 29 28 41 30 | |;(io)(A0|
|00001fc0| 29 00 23 5f 52 65 63 65 | 69 76 65 3d 2d 34 38 20 |).#_Rece|ive=-48 |
|00001fd0| 20 20 20 20 3b 28 69 6f | 29 28 41 30 29 00 23 5f | ;(io|)(A0).#_|
|00001fe0| 48 6f 73 74 4d 6f 6e 3d | 2d 35 34 20 20 20 20 20 |HostMon=|-54 |
|00001ff0| 3b 28 69 6f 2c 73 65 72 | 62 75 66 66 2c 61 63 74 |;(io,ser|buff,act|
|00002000| 75 61 6c 2c 6d 61 78 73 | 69 7a 65 29 28 41 30 2c |ual,maxs|ize)(A0,|
|00002010| 41 31 2c 44 30 2c 44 31 | 29 00 23 5f 55 73 65 72 |A1,D0,D1|).#_User|
|00002020| 4d 6f 6e 3d 2d 36 30 20 | 20 20 20 20 3b 28 69 6f |Mon=-60 | ;(io|
|00002030| 2c 73 65 72 62 75 66 66 | 2c 61 63 74 75 61 6c 2c |,serbuff|,actual,|
|00002040| 6d 61 78 73 69 7a 65 29 | 28 41 30 2c 41 31 2c 44 |maxsize)|(A0,A1,D|
|00002050| 30 2c 44 31 29 00 00 3b | 2d 2d 2d 2d 2d 2d 2d 2d |0,D1)..;|--------|
|00002060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 00 00 21 61 66 |--------|---..!af|
|000020a0| 75 6e 63 74 69 6f 6e 20 | 7b 23 6c 6f 6e 67 7d 00 |unction |{#long}.|
|000020b0| 21 61 72 67 73 20 7b 23 | 77 6f 72 64 2c 23 73 74 |!args {#|word,#st|
|000020c0| 72 69 6e 67 2c 23 73 74 | 72 69 6e 67 2c 23 6c 6f |ring,#st|ring,#lo|
|000020d0| 6e 67 7d 00 21 6c 69 62 | 73 00 21 73 75 62 73 20 |ng}.!lib|s.!subs |
|000020e0| 7b 5f 78 70 72 73 65 6e | 64 2c 30 2c 30 7d 00 21 |{_xprsen|d,0,0}.!|
|000020f0| 6e 61 6d 65 20 7b 22 58 | 50 52 53 65 6e 64 22 2c |name {"X|PRSend",|
|00002100| 22 75 6e 69 74 23 2c 70 | 72 6f 74 6f 63 6f 6c 24 |"unit#,p|rotocol$|
|00002110| 2c 66 69 6c 65 24 2c 3f | 63 61 6c 6c 62 61 63 6b |,file$,?|callback|
|00002120| 22 7d 00 00 00 5f 78 70 | 72 73 65 6e 64 00 20 20 |"}..._xp|rsend. |
|00002130| 80 7a 20 61 6c 6c 69 6f | 28 70 63 29 2c 61 32 3a |.z allio|(pc),a2:|
|00002140| 80 44 23 38 2c 64 30 3a | 80 3d 20 64 30 2c 61 32 |.D#8,d0:|.= d0,a2|
|00002150| 3a 80 b0 2e 6c 20 28 61 | 32 29 3a 80 48 20 78 70 |:...l (a|2):.H xp|
|00002160| 72 66 61 69 6c 00 20 20 | 80 7e 2e 6c 20 28 61 32 |rfail. |.~.l (a2|
|00002170| 29 2c 78 70 72 73 65 72 | 69 6f 3a 80 7e 2e 6c 20 |),xprser|io:.~.l |
|00002180| 64 31 2c 61 30 3a 80 7a | 20 78 70 72 6e 61 6d 65 |d1,a0:.z| xprname|
|00002190| 28 70 63 29 2c 61 31 00 | 20 20 80 7e 2e 6c 20 2d |(pc),a1.| .~.l -|
|000021a0| 28 61 32 29 2c 64 37 3a | 80 48 20 78 70 72 66 61 |(a2),d7:|.H xprfa|
|000021b0| 69 6c 3a 80 82 2e 6c 20 | 64 32 2d 64 33 2c 66 69 |il:...l |d2-d3,fi|
|000021c0| 6c 65 6e 61 6d 65 00 20 | 20 67 65 74 6e 61 6d 65 |lename. | getname|
|000021d0| 3a 80 7e 2e 62 20 28 61 | 30 29 2b 2c 28 61 31 29 |:.~.b (a|0)+,(a1)|
|000021e0| 2b 3a 80 6f 20 64 37 2c | 67 65 74 6e 61 6d 65 3a |+:.o d7,|getname:|
|000021f0| 80 5b 2e 62 20 28 61 31 | 29 00 00 20 20 80 7e 2e |.[.b (a1|).. .~.|
|00002200| 6c 20 34 2c 61 36 3a 80 | 7a 20 78 70 72 6e 61 6d |l 4,a6:.|z xprnam|
|00002210| 65 28 70 63 29 2c 64 30 | 3a 00 00 00 73 65 72 69 |e(pc),d0|:...seri|
|00002220| 6f 3a 80 25 2e 6c 20 30 | 00 66 69 6c 65 6e 61 6d |o:.%.l 0|.filenam|
|00002230| 65 3a 80 25 2e 6c 20 30 | 00 63 62 75 70 64 61 74 |e:.%.l 0|.cbupdat|
|00002240| 65 3a 80 25 2e 6c 20 30 | 00 78 70 72 6e 61 6d 65 |e:.%.l 0|.xprname|
|00002250| 3a 80 26 2e 62 20 36 34 | 00 78 70 72 62 61 73 65 |:.&.b 64|.xprbase|
|00002260| 3a 80 25 2e 6c 20 30 00 | 00 5f 78 70 72 73 65 6e |:.%.l 0.|._xprsen|
|00002270| 64 00 00 80 33 20 2e 58 | 50 52 5f 49 4f 20 66 00 |d...3 .X|PR_IO f.|
|00002280| 00 3b 66 5c 78 70 72 5f | 66 6f 70 65 6e 3d 3f 6d |.;f\xpr_|fopen=?m|
|00002290| 79 6f 70 65 6e 2c 3f 6d | 79 6f 70 65 6e 2c 3f 6d |yopen,?m|yopen,?m|
|000022a0| 79 6f 70 65 6e 2c 3f 6d | 79 6f 70 65 6e 2c 3f 6d |yopen,?m|yopen,?m|
|000022b0| 79 6f 70 65 6e 2c 3f 6d | 79 6f 70 65 6e 2c 3f 6d |yopen,?m|yopen,?m|
|000022c0| 79 6f 70 65 6e 2c 3f 6d | 79 6f 70 65 6e 2c 3f 6d |yopen,?m|yopen,?m|
|000022d0| 79 6f 70 65 6e 2c 3f 6d | 79 6f 70 65 6e 2c 3f 6d |yopen,?m|yopen,?m|
|000022e0| 79 6f 70 65 6e 00 00 dd | 82 20 81 02 28 66 29 00 |yopen...|. ..(f).|
|000022f0| 00 80 0a 00 80 02 00 00 | 61 24 3d 22 72 61 6d 3a |........|a$="ram:|
|00002300| 74 65 73 74 22 2b dc 86 | 28 30 29 3a 66 5c 78 70 |test"+..|(0):f\xp|
|00002310| 72 5f 66 69 6c 65 6e 61 | 6d 65 3d 26 61 24 00 00 |r_filena|me=&a$..|
|00002320| dd 82 20 81 03 28 66 29 | 00 00 dd 82 20 22 53 48 |.. ..(f)|.... "SH|
|00002330| 49 54 22 00 00 80 0a 00 | 00 80 02 00 00 |IT".....|..... |
+--------+-------------------------+-------------------------+--------+--------+
