home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-09-03 | 10.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%
| 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 3b 20 24 56 | 45 52 3a 20 53 45 52 49 |**..; $V|ER: SERI|
|000000d0| 41 4c 20 56 65 72 73 69 | 6f 6e 20 32 2e 30 20 42 |AL Versi|on 2.0 B|
|000000e0| 79 20 4b 69 6e 67 20 46 | 75 7a 7a 79 00 00 3b 20 |y King F|uzzy..; |
|000000f0| 20 20 42 75 67 20 46 69 | 78 65 73 00 3b 00 3b 20 | Bug Fi|xes.;.; |
|00000100| 52 65 61 64 53 65 72 69 | 61 6c 20 72 65 74 75 72 |ReadSeri|al retur|
|00000110| 6e 73 20 20 57 6f 72 64 | 20 66 69 78 65 73 20 62 |ns Word| fixes b|
|00000120| 75 67 20 77 68 65 6e 20 | 63 68 72 24 28 32 35 35 |ug when |chr$(255|
|00000130| 29 20 69 73 20 72 65 63 | 69 76 65 64 00 3b 00 00 |) is rec|ived.;..|
|00000140| 3b 20 20 20 55 70 67 72 | 61 64 65 73 00 3b 00 3b |; Upgr|ades.;.;|
|00000150| 20 57 72 69 74 65 53 65 | 72 69 61 6c 53 74 72 69 | WriteSe|rialStri|
|00000160| 6e 67 20 20 20 20 46 6c | 61 67 73 20 61 64 64 65 |ng Fl|ags adde|
|00000170| 64 20 66 6f 72 20 44 6f | 49 4f 20 61 6e 64 20 54 |d for Do|IO and T|
|00000180| 72 75 65 20 53 74 72 69 | 6e 67 00 3b 20 20 20 20 |rue Stri|ng.; |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001a0| 20 20 54 72 75 65 20 53 | 74 72 69 6e 67 20 69 73 | True S|tring is|
|000001b0| 6e 27 74 20 4e 75 6c 6c | 20 74 65 72 6d 69 6e 61 |n't Null| termina|
|000001c0| 74 65 64 00 3b 00 3b 20 | 52 65 61 64 53 65 72 69 |ted.;.; |ReadSeri|
|000001d0| 61 6c 20 20 20 20 20 20 | 20 20 20 20 20 46 6c 61 |al | Fla|
|000001e0| 67 73 20 61 64 64 65 64 | 20 66 6f 72 20 27 77 61 |gs added| for 'wa|
|000001f0| 69 74 20 66 6f 72 20 63 | 68 61 72 27 00 3b 00 3b |it for c|har'.;.;|
|00000200| 00 3b 00 3b 20 20 20 20 | 41 64 64 69 74 69 6f 6e |.;.; |Addition|
|00000210| 73 00 3b 00 3b 20 52 65 | 61 64 53 65 72 69 61 6c |s.;.; Re|adSerial|
|00000220| 4d 65 6d 00 3b 20 57 72 | 69 74 65 53 65 72 69 61 |Mem.; Wr|iteSeria|
|00000230| 6c 4d 65 6d 00 3b 00 00 | 21 6c 69 62 68 65 61 64 |lMem.;..|!libhead|
|00000240| 65 72 20 7b 23 73 65 72 | 69 61 6c 6c 69 62 2c 30 |er {#ser|iallib,0|
|00000250| 2c 30 2c 66 69 6e 69 74 | 2c 30 7d 00 00 00 21 61 |,0,finit|,0}...!a|
|00000260| 66 75 6e 63 74 69 6f 6e | 7b 23 6c 6f 6e 67 7d 00 |function|{#long}.|
|00000270| 21 61 72 67 73 20 7b 23 | 73 74 72 69 6e 67 2c 23 |!args {#|string,#|
|00000280| 6c 6f 6e 67 2c 23 6c 6f | 6e 67 2c 23 77 6f 72 64 |long,#lo|ng,#word|
|00000290| 7d 00 21 6c 69 62 73 00 | 21 73 75 62 73 20 7b 5f |}.!libs.|!subs {_|
|000002a0| 6f 70 65 6e 73 65 72 69 | 61 6c 2c 30 2c 30 7d 00 |openseri|al,0,0}.|
|000002b0| 21 6e 61 6d 65 20 7b 22 | 4f 70 65 6e 53 65 72 69 |!name {"|OpenSeri|
|000002c0| 61 6c 22 2c 22 64 65 76 | 69 63 65 24 2c 75 6e 69 |al","dev|ice$,uni|
|000002d0| 74 23 2c 62 61 75 64 2c | 69 6f 5f 73 65 72 66 6c |t#,baud,|io_serfl|
|000002e0| 61 67 73 22 7d 00 00 21 | 61 73 74 61 74 65 6d 65 |ags"}..!|astateme|
|000002f0| 6e 74 00 21 61 72 67 73 | 20 7b 23 77 6f 72 64 2c |nt.!args| {#word,|
|00000300| 23 77 6f 72 64 7d 00 21 | 6c 69 62 73 00 21 73 75 |#word}.!|libs.!su|
|00000310| 62 73 20 7b 5f 77 72 69 | 74 65 62 79 74 65 2c 30 |bs {_wri|tebyte,0|
|00000320| 2c 30 7d 00 21 6e 61 6d | 65 20 7b 22 57 72 69 74 |,0}.!nam|e {"Writ|
|00000330| 65 53 65 72 69 61 6c 22 | 2c 22 75 6e 69 74 23 2c |eSerial"|,"unit#,|
|00000340| 62 79 74 65 22 7d 00 00 | 21 61 73 74 61 74 65 6d |byte"}..|!astatem|
|00000350| 65 6e 74 00 21 61 72 67 | 73 20 7b 23 77 6f 72 64 |ent.!arg|s {#word|
|00000360| 2c 23 6c 6f 6e 67 7d 00 | 21 6c 69 62 73 00 21 73 |,#long}.|!libs.!s|
|00000370| 75 62 73 20 7b 5f 77 72 | 69 74 65 73 74 72 69 6e |ubs {_wr|itestrin|
|00000380| 67 32 2c 30 2c 30 7d 00 | 21 61 72 67 73 20 7b 23 |g2,0,0}.|!args {#|
|00000390| 77 6f 72 64 2c 23 73 74 | 72 69 6e 67 2c 23 77 6f |word,#st|ring,#wo|
|000003a0| 72 64 7d 00 21 6c 69 62 | 73 00 21 73 75 62 73 20 |rd}.!lib|s.!subs |
|000003b0| 7b 5f 77 72 69 74 65 73 | 74 72 69 6e 67 33 2c 30 |{_writes|tring3,0|
|000003c0| 2c 30 7d 00 21 6e 61 6d | 65 20 7b 22 57 72 69 74 |,0}.!nam|e {"Writ|
|000003d0| 65 53 65 72 69 61 6c 53 | 74 72 69 6e 67 22 2c 22 |eSerialS|tring","|
|000003e0| 75 6e 69 74 23 2c 73 74 | 72 69 6e 67 5b 2c 46 6c |unit#,st|ring[,Fl|
|000003f0| 61 67 73 20 31 3d 44 6f | 49 4f 20 32 3d 54 72 75 |ags 1=Do|IO 2=Tru|
|00000400| 65 53 74 72 69 6e 67 5d | 20 22 7d 00 00 21 61 66 |eString]| "}..!af|
|00000410| 75 6e 63 74 69 6f 6e 7b | 23 77 6f 72 64 7d 00 21 |unction{|#word}.!|
|00000420| 61 72 67 73 20 7b 23 77 | 6f 72 64 7d 00 21 6c 69 |args {#w|ord}.!li|
|00000430| 62 73 00 21 73 75 62 73 | 20 7b 5f 72 65 61 64 6f |bs.!subs| {_reado|
|00000440| 62 79 74 65 2c 30 2c 30 | 7d 00 21 61 72 67 73 20 |byte,0,0|}.!args |
|00000450| 7b 23 77 6f 72 64 2c 23 | 77 6f 72 64 7d 00 21 6c |{#word,#|word}.!l|
|00000460| 69 62 73 00 21 73 75 62 | 73 20 7b 5f 72 65 61 64 |ibs.!sub|s {_read|
|00000470| 62 79 74 65 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 20 |byte,0,0|}.!name |
|00000480| 7b 22 52 65 61 64 53 65 | 72 69 61 6c 22 2c 22 28 |{"ReadSe|rial","(|
|00000490| 75 6e 69 74 23 5b 2c 66 | 6c 61 67 73 20 31 3d 77 |unit#[,f|lags 1=w|
|000004a0| 61 69 74 20 6f 6e 5d 29 | 20 20 72 65 74 75 72 6e |ait on])| return|
|000004b0| 73 20 2d 31 20 69 66 20 | 6e 6f 74 68 69 6e 67 20 |s -1 if |nothing |
|000004c0| 77 61 69 74 69 6e 67 22 | 7d 00 00 21 61 66 75 6e |waiting"|}..!afun|
|000004d0| 63 74 69 6f 6e 20 7b 23 | 73 74 72 69 6e 67 7d 00 |ction {#|string}.|
|000004e0| 21 61 72 67 73 20 7b 23 | 77 6f 72 64 7d 00 21 6c |!args {#|word}.!l|
|000004f0| 69 62 73 00 21 73 75 62 | 73 20 7b 5f 72 65 61 64 |ibs.!sub|s {_read|
|00000500| 73 74 72 69 6e 67 2c 30 | 2c 30 7d 00 21 6e 61 6d |string,0|,0}.!nam|
|00000510| 65 20 7b 22 52 65 61 64 | 53 65 72 69 61 6c 53 74 |e {"Read|SerialSt|
|00000520| 72 69 6e 67 22 2c 22 28 | 75 6e 69 74 23 29 20 20 |ring","(|unit#) |
|00000530| 72 65 74 75 72 6e 73 20 | 6e 75 6c 6c 20 69 66 20 |returns |null if |
|00000540| 6e 6f 74 68 69 6e 67 20 | 77 61 69 74 69 6e 67 22 |nothing |waiting"|
|00000550| 7d 00 00 21 61 73 74 61 | 74 65 6d 65 6e 74 00 21 |}..!asta|tement.!|
|00000560| 61 72 67 73 20 7b 23 77 | 6f 72 64 7d 00 21 6c 69 |args {#w|ord}.!li|
|00000570| 62 73 00 21 73 75 62 73 | 20 7b 5f 63 6c 6f 73 65 |bs.!subs| {_close|
|00000580| 73 65 72 69 61 6c 2c 30 | 2c 30 7d 00 21 6e 61 6d |serial,0|,0}.!nam|
|00000590| 65 20 7b 22 43 6c 6f 73 | 65 53 65 72 69 61 6c 22 |e {"Clos|eSerial"|
|000005a0| 2c 22 75 6e 69 74 23 22 | 7d 00 00 21 61 73 74 61 |,"unit#"|}..!asta|
|000005b0| 74 65 6d 65 6e 74 00 21 | 61 72 67 73 20 7b 23 77 |tement.!|args {#w|
|000005c0| 6f 72 64 2c 23 6c 6f 6e | 67 7d 00 21 6c 69 62 73 |ord,#lon|g}.!libs|
|000005d0| 00 21 73 75 62 73 20 7b | 5f 73 65 72 69 61 6c 62 |.!subs {|_serialb|
|000005e0| 75 66 66 65 72 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |uffer,0,|0}.!name|
|000005f0| 20 7b 22 53 65 74 53 65 | 72 69 61 6c 42 75 66 66 | {"SetSe|rialBuff|
|00000600| 65 72 22 2c 22 75 6e 69 | 74 23 2c 62 75 66 66 65 |er","uni|t#,buffe|
|00000610| 72 6c 65 6e 67 74 68 22 | 7d 00 00 21 61 73 74 61 |rlength"|}..!asta|
|00000620| 74 65 6d 65 6e 74 00 21 | 61 72 67 73 20 7b 23 77 |tement.!|args {#w|
|00000630| 6f 72 64 2c 23 62 79 74 | 65 2c 23 62 79 74 65 2c |ord,#byt|e,#byte,|
|00000640| 23 62 79 74 65 7d 00 21 | 6c 69 62 73 00 21 73 75 |#byte}.!|libs.!su|
|00000650| 62 73 20 7b 5f 73 65 72 | 69 61 6c 6c 65 6e 73 2c |bs {_ser|iallens,|
|00000660| 30 2c 30 7d 00 21 6e 61 | 6d 65 20 7b 22 53 65 74 |0,0}.!na|me {"Set|
|00000670| 53 65 72 69 61 6c 4c 65 | 6e 73 22 2c 22 75 6e 69 |SerialLe|ns","uni|
|00000680| 74 23 2c 72 65 61 64 6c | 65 6e 2c 77 72 69 74 65 |t#,readl|en,write|
|00000690| 6c 65 6e 2c 73 74 6f 70 | 62 69 74 73 22 7d 00 00 |len,stop|bits"}..|
|000006a0| 21 61 73 74 61 74 65 6d | 65 6e 74 00 21 61 72 67 |!astatem|ent.!arg|
|000006b0| 73 20 7b 23 77 6f 72 64 | 7d 00 21 6c 69 62 73 00 |s {#word|}.!libs.|
|000006c0| 21 73 75 62 73 20 7b 5f | 73 65 72 69 61 6c 73 65 |!subs {_|serialse|
|000006d0| 74 70 61 72 61 6d 73 2c | 30 2c 30 7d 00 21 6e 61 |tparams,|0,0}.!na|
|000006e0| 6d 65 20 7b 22 53 65 74 | 53 65 72 69 61 50 61 72 |me {"Set|SeriaPar|
|000006f0| 61 6d 73 22 2c 22 75 6e | 69 74 23 22 7d 00 00 21 |ams","un|it#"}..!|
|00000700| 61 66 75 6e 63 74 69 6f | 6e 20 7b 23 6c 6f 6e 67 |afunctio|n {#long|
|00000710| 7d 00 21 61 72 67 73 20 | 7b 23 77 6f 72 64 7d 00 |}.!args |{#word}.|
|00000720| 21 6c 69 62 73 20 7b 23 | 75 74 69 6c 6c 69 62 2c |!libs {#|utillib,|
|00000730| 23 6c 61 30 7d 00 21 73 | 75 62 73 20 7b 5f 63 68 |#la0}.!s|ubs {_ch|
|00000740| 65 63 6b 65 76 65 6e 74 | 2c 30 2c 30 7d 00 21 6e |eckevent|,0,0}.!n|
|00000750| 61 6d 65 20 7b 22 53 65 | 72 69 61 6c 45 76 65 6e |ame {"Se|rialEven|
|00000760| 74 22 2c 22 28 75 6e 69 | 74 23 29 22 7d 00 00 21 |t","(uni|t#)"}..!|
|00000770| 61 73 74 61 74 65 6d 65 | 6e 74 00 21 61 72 67 73 |astateme|nt.!args|
|00000780| 20 7b 23 77 6f 72 64 2c | 23 6c 6f 6e 67 2c 23 6c | {#word,|#long,#l|
|00000790| 6f 6e 67 7d 00 21 6c 69 | 62 73 00 21 73 75 62 73 |ong}.!li|bs.!subs|
|000007a0| 20 7b 5f 72 65 61 64 6d | 65 6d 2c 30 2c 30 7d 00 | {_readm|em,0,0}.|
|000007b0| 21 6e 61 6d 65 20 7b 22 | 52 65 61 64 53 65 72 69 |!name {"|ReadSeri|
|000007c0| 61 6c 4d 65 6d 22 2c 22 | 75 6e 69 74 23 2c 41 64 |alMem","|unit#,Ad|
|000007d0| 64 72 65 73 73 2c 4c 65 | 6e 67 74 68 22 7d 00 00 |dress,Le|ngth"}..|
|000007e0| 21 61 73 74 61 74 65 6d | 65 6e 74 00 21 61 72 67 |!astatem|ent.!arg|
|000007f0| 73 20 7b 23 77 6f 72 64 | 2c 23 6c 6f 6e 67 2c 23 |s {#word|,#long,#|
|00000800| 6c 6f 6e 67 7d 00 21 6c | 69 62 73 00 21 73 75 62 |long}.!l|ibs.!sub|
|00000810| 73 20 7b 5f 77 72 69 74 | 65 6d 65 6d 2c 30 2c 30 |s {_writ|emem,0,0|
|00000820| 7d 00 21 6e 61 6d 65 20 | 7b 22 57 72 69 74 65 53 |}.!name |{"WriteS|
|00000830| 65 72 69 61 6c 4d 65 6d | 22 2c 22 75 6e 69 74 23 |erialMem|","unit#|
|00000840| 2c 41 64 64 72 65 73 73 | 2c 4c 65 6e 67 74 68 22 |,Address|,Length"|
|00000850| 7d 00 00 00 00 00 3b 21 | 61 66 75 6e 63 74 69 6f |}.....;!|afunctio|
|00000860| 6e 20 7b 23 6c 6f 6e 67 | 7d 00 3b 21 61 72 67 73 |n {#long|}.;!args|
|00000870| 20 7b 23 77 6f 72 64 2c | 23 73 74 72 69 6e 67 2c | {#word,|#string,|
|00000880| 23 73 74 72 69 6e 67 2c | 23 6c 6f 6e 67 7d 00 3b |#string,|#long}.;|
|00000890| 21 6c 69 62 73 00 3b 21 | 73 75 62 73 20 7b 5f 78 |!libs.;!|subs {_x|
|000008a0| 70 72 73 65 6e 64 2c 30 | 2c 30 7d 00 3b 21 6e 61 |prsend,0|,0}.;!na|
|000008b0| 6d 65 20 7b 22 58 50 52 | 53 65 6e 64 22 2c 22 75 |me {"XPR|Send","u|
|000008c0| 6e 69 74 23 2c 70 72 6f | 74 6f 63 6f 6c 24 2c 66 |nit#,pro|tocol$,f|
|000008d0| 69 6c 65 24 2c 3f 63 61 | 6c 6c 62 61 63 6b 22 7d |ile$,?ca|llback"}|
|000008e0| 00 3b 00 3b 21 61 66 75 | 6e 63 74 69 6f 6e 20 7b |.;.;!afu|nction {|
|000008f0| 23 6c 6f 6e 67 7d 00 3b | 21 61 72 67 73 20 7b 23 |#long}.;|!args {#|
|00000900| 77 6f 72 64 2c 23 73 74 | 72 69 6e 67 2c 23 73 74 |word,#st|ring,#st|
|00000910| 72 69 6e 67 2c 23 6c 6f | 6e 67 7d 00 3b 21 6c 69 |ring,#lo|ng}.;!li|
|00000920| 62 73 00 3b 21 73 75 62 | 73 20 7b 5f 78 70 72 72 |bs.;!sub|s {_xprr|
|00000930| 65 63 65 69 76 65 2c 30 | 2c 30 7d 00 3b 21 6e 61 |eceive,0|,0}.;!na|
|00000940| 6d 65 20 7b 22 58 50 52 | 52 65 63 65 69 76 65 22 |me {"XPR|Receive"|
|00000950| 2c 22 75 6e 69 74 23 2c | 70 72 6f 74 6f 63 6f 6c |,"unit#,|protocol|
|00000960| 24 2c 66 69 6c 65 24 2c | 3f 63 61 6c 6c 62 61 63 |$,file$,|?callbac|
|00000970| 6b 22 7d 00 3b 00 00 00 | 66 69 6e 69 74 3a 21 6e |k"}.;...|finit:!n|
|00000980| 75 6c 6c 73 75 62 20 7b | 5f 63 6c 6f 73 65 61 6c |ullsub {|_closeal|
|00000990| 6c 69 6f 2c 30 2c 30 7d | 00 00 21 6c 69 62 66 69 |lio,0,0}|..!libfi|
|000009a0| 6e 00 00 80 0d 20 73 00 | 20 7b 80 2f 2e 73 65 72 |n.... s.| {./.ser|
|000009b0| 69 61 6c 69 6f 5c 60 31 | 7d 28 61 32 29 00 80 02 |ialio\`1|}(a2)...|
|000009c0| 20 80 0d 00 00 80 01 20 | 2e 73 65 72 69 61 6c 69 | ...... |.seriali|
|000009d0| 6f 00 20 20 72 65 71 75 | 65 73 74 2e 6c 20 20 20 |o. requ|est.l |
|000009e0| 20 20 20 20 20 20 20 3b | 70 6f 69 6e 74 73 20 74 | ;|points t|
|000009f0| 6f 20 49 4f 45 78 74 00 | 20 20 70 6f 72 74 2e 62 |o IOExt.| port.b|
|00000a00| 5b 33 34 5d 00 20 20 6d | 73 67 2e 62 5b 32 30 5d |[34]. m|sg.b[20]|
|00000a10| 00 20 20 64 65 76 69 63 | 65 2e 6c 3a 75 6e 69 74 |. devic|e.l:unit|
|00000a20| 20 20 20 20 20 20 3b 49 | 4f 45 78 74 00 20 20 63 | ;I|OExt. c|
|00000a30| 6f 6d 6d 61 6e 64 2e 77 | 00 20 20 66 6c 61 67 73 |ommand.w|. flags|
|00000a40| 2e 62 3a 65 72 72 6f 72 | 00 20 20 61 63 74 75 61 |.b:error|. actua|
|00000a50| 6c 2e 6c 20 20 20 20 20 | 20 20 20 20 20 20 3b 49 |l.l | ;I|
|00000a60| 4f 53 74 64 45 78 74 00 | 20 20 73 6c 65 6e 2e 6c |OStdExt.| slen.l|
|00000a70| 00 20 20 73 64 61 74 61 | 2e 6c 00 20 20 73 6f 66 |. sdata|.l. sof|
|00000a80| 66 73 65 74 2e 6c 00 20 | 20 63 74 6c 63 68 61 72 |fset.l. | ctlchar|
|00000a90| 2e 6c 00 20 20 72 62 75 | 66 6c 65 6e 2e 6c 00 20 |.l. rbu|flen.l. |
|00000aa0| 20 65 78 74 66 6c 61 67 | 73 2e 6c 00 20 20 62 61 | extflag|s.l. ba|
|00000ab0| 75 64 2e 6c 00 20 20 62 | 72 6b 74 69 6d 65 2e 6c |ud.l. b|rktime.l|
|00000ac0| 00 20 20 74 61 72 72 61 | 79 2e 62 5b 38 5d 00 20 |. tarra|y.b[8]. |
|00000ad0| 20 72 65 61 64 6c 65 6e | 2e 62 3a 77 72 69 74 65 | readlen|.b:write|
|00000ae0| 6c 65 6e 3a 73 74 6f 70 | 62 69 74 73 00 20 20 73 |len:stop|bits. s|
|00000af0| 65 72 66 6c 61 67 73 2e | 62 00 20 20 73 74 61 74 |erflags.|b. stat|
|00000b00| 75 73 2e 77 00 80 02 20 | 80 01 00 00 2e 5f 63 68 |us.w... |....._ch|
|00000b10| 65 63 6b 65 76 65 6e 74 | 3a 00 20 20 80 7e 2e 6c |eckevent|:. .~.l|
|00000b20| 20 61 36 2c 2d 28 61 37 | 29 3a 80 7e 2e 6c 20 34 | a6,-(a7|):.~.l 4|
|00000b30| 2c 61 36 3a 80 7e 2e 6c | 20 28 61 30 29 2c 64 37 |,a6:.~.l| (a0),d7|
|00000b40| 00 20 20 80 44 20 23 37 | 2c 64 30 3a 80 7a 20 61 |. .D #7|,d0:.z a|
|00000b50| 6c 6c 69 6f 28 70 63 29 | 2c 61 32 3a 80 3d 20 64 |llio(pc)|,a2:.= d|
|00000b60| 30 2c 61 32 3a 80 81 23 | 30 2c 64 30 00 20 20 80 |0,a2:..#|0,d0. .|
|00000b70| 7e 2e 62 20 21 73 7b 70 | 6f 72 74 2b 31 35 2b 31 |~.b !s{p|ort+15+1|
|00000b80| 32 38 7d 2c 64 31 3a 80 | 57 20 64 31 2c 64 37 3a |28},d1:.|W d1,d7:|
|00000b90| 80 48 20 74 30 3a 80 81 | 23 31 2c 64 30 3a 74 30 |.H t0:..|#1,d0:t0|
|00000ba0| 00 20 20 80 7e 2e 62 20 | 21 73 7b 70 6f 72 74 2b |. .~.b |!s{port+|
|00000bb0| 31 35 7d 2c 64 31 3a 80 | 57 20 64 31 2c 64 37 3a |15},d1:.|W d1,d7:|
|00000bc0| 80 48 20 74 31 3a 80 81 | 23 32 2c 64 30 3a 74 31 |.H t1:..|#2,d0:t1|
|00000bd0| 00 20 20 80 7e 2e 6c 20 | 28 61 37 29 2b 2c 61 36 |. .~.l |(a7)+,a6|
|00000be0| 3a 80 94 00 00 2e 5f 6f | 70 65 6e 73 65 72 69 61 |:....._o|penseria|
|00000bf0| 6c 3a 20 20 20 3b 64 30 | 3d 6e 61 6d 65 20 64 31 |l: ;d0|=name d1|
|00000c00| 3d 75 6e 69 74 20 64 32 | 3d 62 61 75 64 20 64 33 |=unit d2|=baud d3|
|00000c10| 3d 66 6c 61 67 20 3b 64 | 30 3d 75 6e 69 74 20 64 |=flag ;d|0=unit d|
|00000c20| 31 3d 62 61 75 64 20 64 | 32 3d 66 6c 61 67 00 20 |1=baud d|2=flag. |
|00000c30| 20 80 7e 2e 6c 20 61 36 | 2c 2d 28 61 37 29 3a 80 | .~.l a6|,-(a7):.|
|00000c40| 7e 2e 6c 20 34 2c 61 36 | 00 20 20 80 82 2e 6c 20 |~.l 4,a6|. ...l |
|00000c50| 64 30 2d 64 33 2c 6e 61 | 6d 65 3a 80 44 20 23 38 |d0-d3,na|me:.D #8|
|00000c60| 2c 64 31 3a 80 7a 20 61 | 6c 6c 69 6f 28 70 63 29 |,d1:.z a|llio(pc)|
|00000c70| 2c 61 32 3a 80 3d 20 64 | 31 2c 61 32 00 00 20 20 |,a2:.= d|1,a2.. |
|00000c80| 3b 73 65 74 75 70 20 72 | 65 61 64 20 70 6f 72 74 |;setup r|ead port|
|00000c90| 20 61 6e 64 20 6f 70 65 | 6e 20 64 65 76 69 63 65 | and ope|n device|
|00000ca0| 00 00 20 20 80 7e 2e 6c | 20 61 32 2c 61 33 3a 80 |.. .~.l| a2,a3:.|
|00000cb0| 7a 33 38 28 61 33 29 2c | 61 31 3a 80 7e 2e 6c 61 |z38(a3),|a1:.~.la|
|00000cc0| 31 2c 28 61 33 29 2b 3a | 80 7e 2e 62 23 34 2c 38 |1,(a3)+:|.~.b#4,8|
|00000cd0| 28 61 33 29 00 20 20 80 | 7a 20 32 30 28 61 33 29 |(a3). .|z 20(a3)|
|00000ce0| 2c 61 31 3a 80 7e 2e 6c | 20 61 31 2c 32 38 28 61 |,a1:.~.l| a1,28(a|
|00000cf0| 33 29 3a 80 40 23 34 2c | 61 31 3a 80 7e 2e 6c 61 |3):.@#4,|a1:.~.la|
|00000d00| 31 2c 32 30 28 61 33 29 | 00 20 20 80 7e 2e 6c 20 |1,20(a3)|. .~.l |
|00000d10| 61 33 2c 34 38 28 61 33 | 29 3a 80 7e 2e 62 23 35 |a3,48(a3|):.~.b#5|
|00000d20| 2c 34 32 28 61 33 29 00 | 20 20 80 a7 2e 6c 20 61 |,42(a3).| ...l a|
|00000d30| 31 2c 61 31 3a 80 79 20 | 5f 46 69 6e 64 54 61 73 |1,a1:.y |_FindTas|
|00000d40| 6b 28 61 36 29 3a 80 7e | 2e 6c 20 64 30 2c 31 36 |k(a6):.~|.l d0,16|
|00000d50| 28 61 33 29 00 20 20 80 | 81 23 2d 31 2c 64 30 3a |(a3). .|.#-1,d0:|
|00000d60| 80 79 20 5f 41 6c 6c 6f | 63 53 69 67 6e 61 6c 28 |.y _Allo|cSignal(|
|00000d70| 61 36 29 3a 80 7e 2e 62 | 20 64 30 2c 31 35 28 61 |a6):.~.b| d0,15(a|
|00000d80| 33 29 3a 80 4f 20 66 61 | 69 6c 00 20 20 80 7e 20 |3):.O fa|il. .~ |
|00000d90| 23 80 2f 2e 73 65 72 69 | 61 6c 69 6f 2d 33 38 2c |#./.seri|alio-38,|
|00000da0| 35 36 28 61 32 29 3a 80 | 7e 2e 62 20 66 6c 61 67 |56(a2):.|~.b flag|
|00000db0| 2b 33 2c 21 73 7b 73 65 | 72 66 6c 61 67 73 7d 00 |+3,!s{se|rflags}.|
|00000dc0| 20 20 80 7e 2e 6c 20 75 | 6e 69 74 28 70 63 29 2c | .~.l u|nit(pc),|
|00000dd0| 64 30 3a 80 81 20 23 30 | 2c 64 31 00 20 20 80 7e |d0:.. #0|,d1. .~|
|00000de0| 2e 6c 20 28 61 32 29 2c | 61 31 3a 80 7e 2e 6c 20 |.l (a2),|a1:.~.l |
|00000df0| 6e 61 6d 65 28 70 63 29 | 2c 61 30 3a 80 79 20 5f |name(pc)|,a0:.y _|
|00000e00| 4f 70 65 6e 44 65 76 69 | 63 65 28 61 36 29 00 20 |OpenDevi|ce(a6). |
|00000e10| 20 80 b0 2e 6c 20 64 30 | 3a 80 50 20 66 61 69 6c | ...l d0|:.P fail|
|00000e20| 32 00 20 20 80 7e 2e 6c | 20 62 61 75 64 2c 21 73 |2. .~.l| baud,!s|
|00000e30| 7b 62 61 75 64 7d 3a 80 | 7e 2e 62 20 66 6c 61 67 |{baud}:.|~.b flag|
|00000e40| 2b 33 2c 21 73 7b 73 65 | 72 66 6c 61 67 73 7d 00 |+3,!s{se|rflags}.|
|00000e50| 20 20 80 7e 23 31 31 2c | 21 73 7b 63 6f 6d 6d 61 | .~#11,|!s{comma|
|00000e60| 6e 64 7d 3a 80 7e 2e 6c | 28 61 32 29 2c 61 31 3a |nd}:.~.l|(a2),a1:|
|00000e70| 80 79 20 5f 44 6f 49 4f | 28 61 36 29 00 00 20 20 |.y _DoIO|(a6).. |
|00000e80| 3b 63 6f 70 79 20 72 65 | 61 64 20 69 6f 73 74 64 |;copy re|ad iostd|
|00000e90| 72 65 71 20 73 74 75 66 | 66 20 61 6e 64 20 69 6e |req stuf|f and in|
|00000ea0| 69 74 20 77 72 69 74 65 | 20 70 6f 72 74 00 00 20 |it write| port.. |
|00000eb0| 20 80 7a 20 31 32 38 28 | 61 32 29 2c 61 33 3a 80 | .z 128(|a2),a3:.|
|00000ec0| 81 23 33 31 2c 64 30 3a | 63 6f 70 79 3a 80 7e 2e |.#31,d0:|copy:.~.|
|00000ed0| 6c 20 28 61 32 29 2b 2c | 28 61 33 29 2b 3a 80 6f |l (a2)+,|(a3)+:.o|
|00000ee0| 20 64 30 2c 63 6f 70 79 | 00 20 20 80 7e 2e 6c 20 | d0,copy|. .~.l |
|00000ef0| 61 32 2c 61 33 3a 80 7a | 33 38 28 61 33 29 2c 61 |a2,a3:.z|38(a3),a|
|00000f00| 31 3a 80 7e 2e 6c 61 31 | 2c 28 61 33 29 2b 3a 80 |1:.~.la1|,(a3)+:.|
|00000f10| 7e 2e 62 23 34 2c 38 28 | 61 33 29 00 20 20 80 7a |~.b#4,8(|a3). .z|
|00000f20| 20 32 30 28 61 33 29 2c | 61 31 3a 80 7e 2e 6c 20 | 20(a3),|a1:.~.l |
|00000f30| 61 31 2c 32 38 28 61 33 | 29 3a 80 40 23 34 2c 61 |a1,28(a3|):.@#4,a|
|00000f40| 31 3a 80 7e 2e 6c 61 31 | 2c 32 30 28 61 33 29 00 |1:.~.la1|,20(a3).|
|00000f50| 20 20 80 7e 2e 6c 20 61 | 33 2c 34 38 28 61 33 29 | .~.l a|3,48(a3)|
|00000f60| 3a 80 7e 2e 62 23 35 2c | 34 32 28 61 33 29 00 20 |:.~.b#5,|42(a3). |
|00000f70| 20 80 81 23 2d 31 2c 64 | 30 3a 80 79 20 5f 41 6c | ..#-1,d|0:.y _Al|
|00000f80| 6c 6f 63 53 69 67 6e 61 | 6c 28 61 36 29 3a 80 7e |locSigna|l(a6):.~|
|00000f90| 2e 62 20 64 30 2c 31 35 | 28 61 33 29 3a 80 4f 20 |.b d0,15|(a3):.O |
|00000fa0| 66 61 69 6c 31 00 20 20 | 80 7e 2e 6c 20 28 61 37 |fail1. |.~.l (a7|
|00000fb0| 29 2b 2c 61 36 3a 80 7a | 20 2d 31 32 38 28 61 32 |)+,a6:.z| -128(a2|
|00000fc0| 29 2c 61 32 3a 80 7e 2e | 6c 61 32 2c 64 30 3a 80 |),a2:.~.|la2,d0:.|
|00000fd0| 94 00 00 20 20 66 61 69 | 6c 31 3a 80 7a 20 2d 31 |... fai|l1:.z -1|
|00000fe0| 32 38 28 61 32 29 2c 61 | 32 00 20 20 66 61 69 6c |28(a2),a|2. fail|
|00000ff0| 32 3a 80 81 23 30 2c 64 | 30 3a 80 7e 2e 62 20 31 |2:..#0,d|0:.~.b 1|
|00001000| 39 28 61 32 29 2c 64 30 | 3a 80 79 20 5f 46 72 65 |9(a2),d0|:.y _Fre|
|00001010| 65 53 69 67 6e 61 6c 28 | 61 36 29 00 20 20 66 61 |eSignal(|a6). fa|
|00001020| 69 6c 3a 80 5b 2e 6c 28 | 61 32 29 3a 80 81 23 30 |il:.[.l(|a2):..#0|
|00001030| 2c 64 30 3a 80 7e 2e 6c | 20 28 61 37 29 2b 2c 61 |,d0:.~.l| (a7)+,a|
|00001040| 36 3a 80 94 00 00 6e 61 | 6d 65 3a 80 25 2e 6c 20 |6:....na|me:.%.l |
|00001050| 30 00 75 6e 69 74 3a 80 | 25 2e 6c 20 30 00 62 61 |0.unit:.|%.l 0.ba|
|00001060| 75 64 3a 80 25 2e 6c 20 | 30 00 66 6c 61 67 3a 80 |ud:.%.l |0.flag:.|
|00001070| 25 2e 6c 20 30 00 00 2e | 5f 63 6c 6f 73 65 73 65 |%.l 0...|_closese|
|00001080| 72 69 61 6c 00 20 20 80 | 7e 2e 6c 20 61 36 2c 2d |rial. .|~.l a6,-|
|00001090| 28 61 37 29 3a 80 7e 2e | 6c 20 34 2c 61 36 00 20 |(a7):.~.|l 4,a6. |
|000010a0| 20 80 44 20 23 37 2c 64 | 30 3a 80 7a 20 61 6c 6c | .D #7,d|0:.z all|
|000010b0| 69 6f 28 70 63 29 2c 61 | 32 3a 80 3d 20 64 30 2c |io(pc),a|2:.= d0,|
|000010c0| 61 32 00 20 20 80 b0 2e | 6c 20 28 61 32 29 3a 80 |a2. ...|l (a2):.|
|000010d0| 48 20 6e 6f 63 6c 6f 73 | 65 00 20 20 80 7e 2e 6c |H noclos|e. .~.l|
|000010e0| 20 28 61 32 29 2c 61 31 | 3a 80 79 20 5f 41 62 6f | (a2),a1|:.y _Abo|
|000010f0| 72 74 49 4f 28 61 36 29 | 00 20 20 80 7e 2e 6c 20 |rtIO(a6)|. .~.l |
|00001100| 28 61 32 29 2c 61 31 3a | 80 79 20 5f 43 6c 6f 73 |(a2),a1:|.y _Clos|
|00001110| 65 44 65 76 69 63 65 28 | 61 36 29 00 20 20 80 81 |eDevice(|a6). ..|
|00001120| 23 30 2c 64 30 3a 80 7e | 2e 62 20 31 39 28 61 32 |#0,d0:.~|.b 19(a2|
|00001130| 29 2c 64 30 3a 80 79 20 | 5f 46 72 65 65 53 69 67 |),d0:.y |_FreeSig|
|00001140| 6e 61 6c 28 61 36 29 3a | 80 5b 2e 6c 28 61 32 29 |nal(a6):|.[.l(a2)|
|00001150| 00 20 20 80 7a 20 31 32 | 38 28 61 32 29 2c 61 32 |. .z 12|8(a2),a2|
|00001160| 3a 80 b0 2e 6c 20 28 61 | 32 29 3a 80 48 20 6e 6f |:...l (a|2):.H no|
|00001170| 63 6c 6f 73 65 00 20 20 | 80 81 23 30 2c 64 30 3a |close. |..#0,d0:|
|00001180| 80 7e 2e 62 20 31 39 28 | 61 32 29 2c 64 30 3a 80 |.~.b 19(|a2),d0:.|
|00001190| 79 20 5f 46 72 65 65 53 | 69 67 6e 61 6c 28 61 36 |y _FreeS|ignal(a6|
|000011a0| 29 3a 80 5b 2e 6c 28 61 | 32 29 00 20 20 6e 6f 63 |):.[.l(a|2). noc|
|000011b0| 6c 6f 73 65 3a 80 7e 2e | 6c 20 28 61 37 29 2b 2c |lose:.~.|l (a7)+,|
|000011c0| 61 36 3a 80 94 00 00 2e | 5f 63 6c 6f 73 65 61 6c |a6:.....|_closeal|
|000011d0| 6c 69 6f 00 20 20 80 7e | 2e 6c 20 61 36 2c 2d 28 |lio. .~|.l a6,-(|
|000011e0| 61 37 29 3a 80 7e 2e 6c | 20 34 2c 61 36 3a 80 7a |a7):.~.l| 4,a6:.z|
|000011f0| 20 61 6c 6c 69 6f 28 70 | 63 29 2c 61 32 3a 80 7e | allio(p|c),a2:.~|
|00001200| 20 23 37 2c 64 37 00 20 | 20 64 6f 63 6c 6f 73 65 | #7,d7. | doclose|
|00001210| 3a 80 b0 2e 6c 20 28 61 | 32 29 3a 80 48 20 73 6b |:...l (a|2):.H sk|
|00001220| 69 70 00 20 20 80 7e 2e | 6c 20 28 61 32 29 2c 61 |ip. .~.|l (a2),a|
|00001230| 31 3a 80 79 20 5f 41 62 | 6f 72 74 49 4f 28 61 36 |1:.y _Ab|ortIO(a6|
|00001240| 29 00 20 20 80 7e 2e 6c | 20 28 61 32 29 2c 61 31 |). .~.l| (a2),a1|
|00001250| 3a 80 79 20 5f 57 61 69 | 74 49 4f 28 61 36 29 00 |:.y _Wai|tIO(a6).|
|00001260| 20 20 80 7e 2e 6c 20 28 | 61 32 29 2c 61 31 3a 80 | .~.l (|a2),a1:.|
|00001270| 79 20 5f 43 6c 6f 73 65 | 44 65 76 69 63 65 28 61 |y _Close|Device(a|
|00001280| 36 29 00 20 20 80 81 23 | 30 2c 64 30 3a 80 7e 2e |6). ..#|0,d0:.~.|
|00001290| 62 20 31 39 28 61 32 29 | 2c 64 30 3a 80 79 20 5f |b 19(a2)|,d0:.y _|
|000012a0| 46 72 65 65 53 69 67 6e | 61 6c 28 61 36 29 3a 80 |FreeSign|al(a6):.|
|000012b0| 5b 2e 6c 28 61 32 29 00 | 20 20 73 6b 69 70 3a 80 |[.l(a2).| skip:.|
|000012c0| 7a 20 31 32 38 28 61 32 | 29 2c 61 32 3a 80 b0 2e |z 128(a2|),a2:...|
|000012d0| 6c 20 28 61 32 29 3a 80 | 48 20 6e 78 63 6c 6f 73 |l (a2):.|H nxclos|
|000012e0| 65 00 20 20 80 81 23 30 | 2c 64 30 3a 80 7e 2e 62 |e. ..#0|,d0:.~.b|
|000012f0| 20 31 39 28 61 32 29 2c | 64 30 3a 80 79 20 5f 46 | 19(a2),|d0:.y _F|
|00001300| 72 65 65 53 69 67 6e 61 | 6c 28 61 36 29 3a 80 5b |reeSigna|l(a6):.[|
|00001310| 2e 6c 28 61 32 29 00 20 | 20 6e 78 63 6c 6f 73 65 |.l(a2). | nxclose|
|00001320| 3a 80 7a 20 31 32 38 28 | 61 32 29 2c 61 32 3a 80 |:.z 128(|a2),a2:.|
|00001330| 6f 20 64 37 2c 64 6f 63 | 6c 6f 73 65 00 20 20 80 |o d7,doc|lose. .|
|00001340| 7e 2e 6c 20 28 61 37 29 | 2b 2c 61 36 3a 80 94 00 |~.l (a7)|+,a6:...|
|00001350| 00 2e 5f 77 72 69 74 65 | 62 79 74 65 3a 00 20 20 |.._write|byte:. |
|00001360| 80 7e 2e 6c 20 61 36 2c | 2d 28 61 37 29 3a 80 7e |.~.l a6,|-(a7):.~|
|00001370| 2e 6c 20 34 2c 61 36 00 | 20 20 80 7a 20 61 6c 6c |.l 4,a6.| .z all|
|00001380| 69 6f 28 70 63 29 2c 61 | 32 3a 80 44 23 38 2c 64 |io(pc),a|2:.D#8,d|
|00001390| 30 3a 80 3d 23 31 32 38 | 2c 64 30 3a 80 3d 20 64 |0:.=#128|,d0:.= d|
|000013a0| 30 2c 61 32 00 20 20 80 | b0 2e 6c 20 28 61 32 29 |0,a2. .|..l (a2)|
|000013b0| 3a 80 48 20 6e 6f 73 65 | 72 00 20 20 80 7a 20 77 |:.H nose|r. .z w|
|000013c0| 62 31 28 70 63 29 2c 61 | 30 3a 80 7e 2e 62 20 64 |b1(pc),a|0:.~.b d|
|000013d0| 31 2c 28 61 30 29 00 20 | 20 80 7e 20 23 33 2c 21 |1,(a0). | .~ #3,!|
|000013e0| 73 7b 63 6f 6d 6d 61 6e | 64 7d 3a 80 7e 2e 6c 23 |s{comman|d}:.~.l#|
|000013f0| 31 2c 21 73 7b 73 6c 65 | 6e 7d 3a 80 7e 2e 6c 20 |1,!s{sle|n}:.~.l |
|00001400| 61 30 2c 21 73 7b 73 64 | 61 74 61 7d 00 20 20 80 |a0,!s{sd|ata}. .|
|00001410| 7e 2e 6c 20 28 61 32 29 | 2c 61 31 3a 80 79 20 5f |~.l (a2)|,a1:.y _|
|00001420| 44 6f 49 4f 28 61 36 29 | 00 20 20 80 7e 2e 6c 20 |DoIO(a6)|. .~.l |
|00001430| 28 61 37 29 2b 2c 61 36 | 3a 80 94 00 20 20 77 62 |(a7)+,a6|:... wb|
|00001440| 31 3a 80 25 2e 6c 20 30 | 00 00 2e 5f 77 72 69 74 |1:.%.l 0|..._writ|
|00001450| 65 73 74 72 69 6e 67 32 | 3a 00 20 20 80 81 2e 6c |estring2|:. ...l|
|00001460| 20 23 30 2c 64 32 00 2e | 5f 77 72 69 74 65 73 74 | #0,d2..|_writest|
|00001470| 72 69 6e 67 33 3a 00 20 | 20 80 7e 2e 6c 20 61 36 |ring3:. | .~.l a6|
|00001480| 2c 2d 28 61 37 29 3a 80 | 7e 2e 6c 20 34 2c 61 36 |,-(a7):.|~.l 4,a6|
|00001490| 3a 80 7e 2e 6c 20 2d 28 | 61 32 29 2c 64 33 00 20 |:.~.l -(|a2),d3. |
|000014a0| 20 80 7a 20 61 6c 6c 69 | 6f 28 70 63 29 2c 61 32 | .z alli|o(pc),a2|
|000014b0| 3a 80 44 23 38 2c 64 30 | 3a 80 3d 20 23 31 32 38 |:.D#8,d0|:.= #128|
|000014c0| 2c 64 30 3a 80 3d 20 64 | 30 2c 61 32 00 20 20 80 |,d0:.= d|0,a2. .|
|000014d0| b0 2e 6c 20 28 61 32 29 | 3a 80 48 20 6e 6f 73 65 |..l (a2)|:.H nose|
|000014e0| 72 00 20 20 80 7a 20 77 | 62 31 28 70 63 29 2c 61 |r. .z w|b1(pc),a|
|000014f0| 30 3a 80 7e 20 23 33 2c | 21 73 7b 63 6f 6d 6d 61 |0:.~ #3,|!s{comma|
|00001500| 6e 64 7d 3a 80 7e 2e 6c | 23 2d 31 2c 21 73 7b 73 |nd}:.~.l|#-1,!s{s|
|00001510| 6c 65 6e 7d 00 00 80 57 | 20 23 31 2c 64 32 3a 80 |len}...W| #1,d2:.|
|00001520| 48 20 6e 73 74 72 3a 80 | 7e 2e 6c 20 64 33 2c 21 |H nstr:.|~.l d3,!|
|00001530| 73 7b 73 6c 65 6e 7d 20 | 20 3b 74 72 75 65 53 74 |s{slen} | ;trueSt|
|00001540| 72 69 6e 67 00 6e 73 74 | 72 3a 00 00 20 20 80 7e |ring.nst|r:.. .~|
|00001550| 2e 6c 20 64 31 2c 21 73 | 7b 73 64 61 74 61 7d 3a |.l d1,!s|{sdata}:|
|00001560| 80 7e 2e 6c 20 28 61 32 | 29 2c 61 31 00 00 80 57 |.~.l (a2|),a1...W|
|00001570| 20 23 31 2c 64 32 3a 80 | 48 20 73 69 6f 3a 80 79 | #1,d2:.|H sio:.y|
|00001580| 20 5f 44 6f 49 4f 28 61 | 36 29 3a 80 7e 2e 6c 20 | _DoIO(a|6):.~.l |
|00001590| 28 61 37 29 2b 2c 61 36 | 3a 80 94 20 20 3b 44 6f |(a7)+,a6|:.. ;Do|
|000015a0| 49 4f 00 73 69 6f 3a 00 | 00 20 20 80 79 20 5f 53 |IO.sio:.|. .y _S|
|000015b0| 65 6e 64 49 4f 28 61 36 | 29 00 20 20 80 7e 2e 6c |endIO(a6|). .~.l|
|000015c0| 20 28 61 37 29 2b 2c 61 | 36 3a 80 94 00 00 2e 5f | (a7)+,a|6:....._|
|000015d0| 77 72 69 74 65 6d 65 6d | 3a 00 20 20 80 7e 2e 6c |writemem|:. .~.l|
|000015e0| 20 61 36 2c 2d 28 61 37 | 29 3a 80 7e 2e 6c 20 34 | a6,-(a7|):.~.l 4|
|000015f0| 2c 61 36 00 20 20 80 7a | 20 61 6c 6c 69 6f 28 70 |,a6. .z| allio(p|
|00001600| 63 29 2c 61 32 3a 80 44 | 23 38 2c 64 30 3a 80 3d |c),a2:.D|#8,d0:.=|
|00001610| 20 23 31 32 38 2c 64 30 | 3a 80 3d 20 64 30 2c 61 | #128,d0|:.= d0,a|
|00001620| 32 00 20 20 80 b0 2e 6c | 20 28 61 32 29 3a 80 48 |2. ...l| (a2):.H|
|00001630| 20 6e 6f 73 65 72 00 20 | 20 80 7e 20 23 33 2c 21 | noser. | .~ #3,!|
|00001640| 73 7b 63 6f 6d 6d 61 6e | 64 7d 00 20 20 80 7e 2e |s{comman|d}. .~.|
|00001650| 6c 20 64 32 2c 21 73 7b | 73 6c 65 6e 7d 00 20 20 |l d2,!s{|slen}. |
|00001660| 80 7e 2e 6c 20 64 31 2c | 21 73 7b 73 64 61 74 61 |.~.l d1,|!s{sdata|
|00001670| 7d 3a 80 7e 2e 6c 20 28 | 61 32 29 2c 61 31 00 20 |}:.~.l (|a2),a1. |
|00001680| 20 80 79 20 5f 44 6f 49 | 4f 28 61 36 29 3a 80 7e | .y _DoI|O(a6):.~|
|00001690| 2e 6c 20 28 61 37 29 2b | 2c 61 36 3a 80 94 00 00 |.l (a7)+|,a6:....|
|000016a0| 2e 5f 72 65 61 64 6d 65 | 6d 3a 00 20 20 80 7e 2e |._readme|m:. .~.|
|000016b0| 6c 20 61 36 2c 2d 28 61 | 37 29 3a 80 7e 2e 6c 20 |l a6,-(a|7):.~.l |
|000016c0| 34 2c 61 36 00 20 20 80 | 7a 20 61 6c 6c 69 6f 28 |4,a6. .|z allio(|
|000016d0| 70 63 29 2c 61 32 3a 80 | 44 23 38 2c 64 30 3a 80 |pc),a2:.|D#8,d0:.|
|000016e0| 3d 20 23 31 32 38 2c 64 | 30 3a 80 3d 20 64 30 2c |= #128,d|0:.= d0,|
|000016f0| 61 32 00 20 20 80 b0 2e | 6c 20 28 61 32 29 3a 80 |a2. ...|l (a2):.|
|00001700| 48 20 6e 6f 73 65 72 00 | 20 20 80 7e 20 23 32 2c |H noser.| .~ #2,|
|00001710| 21 73 7b 63 6f 6d 6d 61 | 6e 64 7d 00 20 20 80 7e |!s{comma|nd}. .~|
|00001720| 2e 6c 20 64 32 2c 21 73 | 7b 73 6c 65 6e 7d 00 20 |.l d2,!s|{slen}. |
|00001730| 20 80 7e 2e 6c 20 64 31 | 2c 21 73 7b 73 64 61 74 | .~.l d1|,!s{sdat|
|00001740| 61 7d 3a 80 7e 2e 6c 20 | 28 61 32 29 2c 61 31 00 |a}:.~.l |(a2),a1.|
|00001750| 20 20 80 79 20 5f 44 6f | 49 4f 28 61 36 29 3a 80 | .y _Do|IO(a6):.|
|00001760| 7e 2e 6c 20 28 61 37 29 | 2b 2c 61 36 3a 80 94 00 |~.l (a7)|+,a6:...|
|00001770| 2e 5f 72 65 61 64 6f 62 | 79 74 65 3a 00 20 20 80 |._readob|yte:. .|
|00001780| 81 2e 6c 20 23 30 2c 64 | 31 00 2e 5f 72 65 61 64 |..l #0,d|1.._read|
|00001790| 62 79 74 65 3a 00 20 20 | 80 7e 2e 6c 20 61 36 2c |byte:. |.~.l a6,|
|000017a0| 2d 28 61 37 29 3a 80 7e | 2e 6c 20 34 2c 61 36 00 |-(a7):.~|.l 4,a6.|
|000017b0| 20 20 80 7a 20 61 6c 6c | 69 6f 28 70 63 29 2c 61 | .z all|io(pc),a|
|000017c0| 32 3a 80 44 23 38 2c 64 | 30 3a 80 3d 20 64 30 2c |2:.D#8,d|0:.= d0,|
|000017d0| 61 32 3a 80 b0 2e 6c 20 | 28 61 32 29 3a 80 48 20 |a2:...l |(a2):.H |
|000017e0| 6e 6f 73 65 72 00 20 20 | 80 57 20 23 31 2c 64 31 |noser. |.W #1,d1|
|000017f0| 3a 80 50 20 72 61 6c 00 | 20 20 80 7e 20 23 39 2c |:.P ral.| .~ #9,|
|00001800| 21 73 7b 63 6f 6d 6d 61 | 6e 64 7d 3a 80 7e 2e 6c |!s{comma|nd}:.~.l|
|00001810| 20 28 61 32 29 2c 61 31 | 3a 80 79 20 5f 44 6f 49 | (a2),a1|:.y _DoI|
|00001820| 4f 28 61 36 29 00 20 20 | 80 b0 2e 6c 20 21 73 7b |O(a6). |...l !s{|
|00001830| 61 63 74 75 61 6c 7d 3a | 80 4c 20 6e 6f 62 79 74 |actual}:|.L nobyt|
|00001840| 65 73 00 72 61 6c 3a 00 | 20 20 80 7a 20 72 62 31 |es.ral:.| .z rb1|
|00001850| 28 70 63 29 2c 61 33 00 | 20 20 80 7e 23 32 2c 21 |(pc),a3.| .~#2,!|
|00001860| 73 7b 63 6f 6d 6d 61 6e | 64 7d 3a 80 7e 2e 6c 23 |s{comman|d}:.~.l#|
|00001870| 31 2c 21 73 7b 73 6c 65 | 6e 7d 3a 80 7e 2e 6c 20 |1,!s{sle|n}:.~.l |
|00001880| 61 33 2c 21 73 7b 73 64 | 61 74 61 7d 00 20 20 80 |a3,!s{sd|ata}. .|
|00001890| 7e 2e 6c 20 28 61 32 29 | 2c 61 31 3a 80 79 20 5f |~.l (a2)|,a1:.y _|
|000018a0| 44 6f 49 4f 28 61 36 29 | 3a 80 81 23 30 2c 64 30 |DoIO(a6)|:..#0,d0|
|000018b0| 3a 80 7e 2e 62 20 28 61 | 33 29 2c 64 30 00 20 20 |:.~.b (a|3),d0. |
|000018c0| 80 7e 2e 6c 20 28 61 37 | 29 2b 2c 61 36 3a 80 94 |.~.l (a7|)+,a6:..|
|000018d0| 00 20 20 6e 6f 62 79 74 | 65 73 3a 80 81 23 2d 31 |. nobyt|es:..#-1|
|000018e0| 2c 64 30 3a 80 7e 2e 6c | 20 28 61 37 29 2b 2c 61 |,d0:.~.l| (a7)+,a|
|000018f0| 36 3a 80 94 00 20 20 72 | 62 31 3a 80 25 2e 6c 20 |6:... r|b1:.%.l |
|00001900| 30 00 00 2e 5f 72 65 61 | 64 73 74 72 69 6e 67 3a |0..._rea|dstring:|
|00001910| 00 20 20 80 7e 2e 6c 20 | 61 36 2c 2d 28 61 37 29 |. .~.l |a6,-(a7)|
|00001920| 3a 80 7e 2e 6c 20 34 2c | 61 36 00 20 20 80 7a 20 |:.~.l 4,|a6. .z |
|00001930| 61 6c 6c 69 6f 28 70 63 | 29 2c 61 32 3a 80 44 23 |allio(pc|),a2:.D#|
|00001940| 38 2c 64 30 3a 80 3d 20 | 64 30 2c 61 32 3a 80 b0 |8,d0:.= |d0,a2:..|
|00001950| 2e 6c 20 28 61 32 29 3a | 80 48 20 6e 6f 73 65 72 |.l (a2):|.H noser|
|00001960| 00 20 20 80 7e 20 23 39 | 2c 21 73 7b 63 6f 6d 6d |. .~ #9|,!s{comm|
|00001970| 61 6e 64 7d 3a 80 7e 2e | 6c 20 28 61 32 29 2c 61 |and}:.~.|l (a2),a|
|00001980| 31 3a 80 79 20 5f 44 6f | 49 4f 28 61 36 29 00 20 |1:.y _Do|IO(a6). |
|00001990| 20 80 7e 2e 6c 20 21 73 | 7b 61 63 74 75 61 6c 7d | .~.l !s|{actual}|
|000019a0| 2c 64 32 3a 80 4c 20 6e | 6f 62 79 74 65 73 32 00 |,d2:.L n|obytes2.|
|000019b0| 20 20 80 7e 23 32 2c 21 | 73 7b 63 6f 6d 6d 61 6e | .~#2,!|s{comman|
|000019c0| 64 7d 3a 80 7e 2e 6c 64 | 32 2c 21 73 7b 73 6c 65 |d}:.~.ld|2,!s{sle|
|000019d0| 6e 7d 3a 80 7e 2e 6c 20 | 61 33 2c 21 73 7b 73 64 |n}:.~.l |a3,!s{sd|
|000019e0| 61 74 61 7d 00 20 20 80 | 7e 2e 6c 20 28 61 32 29 |ata}. .|~.l (a2)|
|000019f0| 2c 61 31 3a 80 79 20 5f | 44 6f 49 4f 28 61 36 29 |,a1:.y _|DoIO(a6)|
|00001a00| 3a 80 7e 2e 6c 20 64 32 | 2c 64 30 3a 80 3d 2e 6c |:.~.l d2|,d0:.=.l|
|00001a10| 20 64 30 2c 61 33 00 20 | 20 80 7e 2e 6c 20 28 61 | d0,a3. | .~.l (a|
|00001a20| 37 29 2b 2c 61 36 3a 80 | 94 00 20 20 6e 6f 62 79 |7)+,a6:.|.. noby|
|00001a30| 74 65 73 32 3a 80 81 23 | 30 2c 64 30 3a 80 7e 2e |tes2:..#|0,d0:.~.|
|00001a40| 6c 20 28 61 37 29 2b 2c | 61 36 3a 80 94 00 00 2e |l (a7)+,|a6:.....|
|00001a50| 5f 73 65 72 69 61 6c 62 | 75 66 66 65 72 3a 00 20 |_serialb|uffer:. |
|00001a60| 20 80 7e 2e 6c 20 61 36 | 2c 2d 28 61 37 29 3a 80 | .~.l a6|,-(a7):.|
|00001a70| 7e 2e 6c 20 34 2c 61 36 | 00 20 20 80 44 20 23 37 |~.l 4,a6|. .D #7|
|00001a80| 2c 64 30 3a 80 7a 20 61 | 6c 6c 69 6f 28 70 63 29 |,d0:.z a|llio(pc)|
|00001a90| 2c 61 32 3a 80 3d 20 64 | 30 2c 61 32 3a 80 b0 2e |,a2:.= d|0,a2:...|
|00001aa0| 6c 28 61 32 29 3a 80 48 | 20 6e 6f 73 65 72 00 20 |l(a2):.H| noser. |
|00001ab0| 20 80 7e 2e 6c 20 64 31 | 2c 21 73 7b 72 62 75 66 | .~.l d1|,!s{rbuf|
|00001ac0| 6c 65 6e 7d 00 20 20 80 | 7e 2e 6c 28 61 32 29 2c |len}. .|~.l(a2),|
|00001ad0| 61 31 3a 80 7e 23 31 31 | 2c 21 73 7b 63 6f 6d 6d |a1:.~#11|,!s{comm|
|00001ae0| 61 6e 64 7d 3a 80 79 20 | 5f 44 6f 49 4f 28 61 36 |and}:.y |_DoIO(a6|
|00001af0| 29 00 20 20 80 7e 2e 6c | 28 61 37 29 2b 2c 61 36 |). .~.l|(a7)+,a6|
|00001b00| 3a 80 94 00 00 2e 5f 73 | 65 72 69 61 6c 6c 65 6e |:....._s|eriallen|
|00001b10| 73 3a 00 20 20 80 7e 2e | 6c 20 61 36 2c 2d 28 61 |s:. .~.|l a6,-(a|
|00001b20| 37 29 3a 80 7e 2e 6c 20 | 34 2c 61 36 00 20 20 80 |7):.~.l |4,a6. .|
|00001b30| 44 20 23 37 2c 64 30 3a | 80 7a 20 61 6c 6c 69 6f |D #7,d0:|.z allio|
|00001b40| 28 70 63 29 2c 61 32 3a | 80 3d 20 64 30 2c 61 32 |(pc),a2:|.= d0,a2|
|00001b50| 3a 80 b0 2e 6c 28 61 32 | 29 3a 80 48 20 6e 6f 73 |:...l(a2|):.H nos|
|00001b60| 65 72 00 20 20 80 7e 2e | 62 20 64 31 2c 21 73 7b |er. .~.|b d1,!s{|
|00001b70| 72 65 61 64 6c 65 6e 7d | 3a 80 7e 2e 62 20 64 32 |readlen}|:.~.b d2|
|00001b80| 2c 21 73 7b 77 72 69 74 | 65 6c 65 6e 7d 3a 80 7e |,!s{writ|elen}:.~|
|00001b90| 2e 62 20 64 33 2c 21 73 | 7b 73 74 6f 70 62 69 74 |.b d3,!s|{stopbit|
|00001ba0| 73 7d 00 20 20 80 7e 2e | 6c 28 61 32 29 2c 61 31 |s}. .~.|l(a2),a1|
|00001bb0| 3a 80 7e 23 31 31 2c 21 | 73 7b 63 6f 6d 6d 61 6e |:.~#11,!|s{comman|
|00001bc0| 64 7d 3a 80 79 20 5f 44 | 6f 49 4f 28 61 36 29 00 |d}:.y _D|oIO(a6).|
|00001bd0| 20 20 80 7e 2e 6c 28 61 | 37 29 2b 2c 61 36 3a 80 | .~.l(a|7)+,a6:.|
|00001be0| 94 00 00 2e 5f 73 65 72 | 69 61 6c 73 65 74 70 61 |...._ser|ialsetpa|
|00001bf0| 72 61 6d 73 3a 00 20 20 | 80 7e 2e 6c 20 61 36 2c |rams:. |.~.l a6,|
|00001c00| 2d 28 61 37 29 3a 80 7e | 2e 6c 20 34 2c 61 36 00 |-(a7):.~|.l 4,a6.|
|00001c10| 20 20 80 44 20 23 37 2c | 64 30 3a 80 7a 20 61 6c | .D #7,|d0:.z al|
|00001c20| 6c 69 6f 28 70 63 29 2c | 61 32 3a 80 3d 20 64 30 |lio(pc),|a2:.= d0|
|00001c30| 2c 61 32 3a 80 b0 2e 6c | 28 61 32 29 3a 80 48 20 |,a2:...l|(a2):.H |
|00001c40| 6e 6f 73 65 72 00 20 20 | 80 7e 2e 6c 28 61 32 29 |noser. |.~.l(a2)|
|00001c50| 2c 61 31 3a 80 7e 23 31 | 31 2c 21 73 7b 63 6f 6d |,a1:.~#1|1,!s{com|
|00001c60| 6d 61 6e 64 7d 3a 80 79 | 20 5f 44 6f 49 4f 28 61 |mand}:.y| _DoIO(a|
|00001c70| 36 29 00 20 20 80 7e 2e | 6c 28 61 37 29 2b 2c 61 |6). .~.|l(a7)+,a|
|00001c80| 36 3a 80 94 00 00 6e 6f | 73 65 72 3a 80 7e 2e 6c |6:....no|ser:.~.l|
|00001c90| 20 23 65 72 72 6f 72 2c | 64 30 3a 80 ae 20 23 30 | #error,|d0:.. #0|
|00001ca0| 00 65 72 72 6f 72 3a 80 | 25 2e 62 20 22 53 65 72 |.error:.|%.b "Ser|
|00001cb0| 69 61 6c 20 44 65 76 69 | 63 65 20 4e 6f 74 20 4f |ial Devi|ce Not O|
|00001cc0| 70 65 6e 22 2c 30 00 20 | 20 20 20 20 20 80 25 2e |pen",0. | .%.|
|00001cd0| 6c 20 30 00 00 61 6c 6c | 69 6f 3a 80 28 2e 62 20 |l 0..all|io:.(.b |
|00001ce0| 32 30 34 38 2c 30 20 20 | 3b 38 2a 32 35 36 00 00 |2048,0 |;8*256..|
|00001cf0| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00001d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d30| 2d 2d 2d 00 3b 00 3b 4e | 45 57 54 59 50 45 20 2e |---.;.;N|EWTYPE .|
|00001d40| 58 50 52 5f 49 4f 00 3b | 20 20 2a 78 70 72 5f 66 |XPR_IO.;| *xpr_f|
|00001d50| 69 6c 65 6e 61 6d 65 2e | 62 00 3b 20 20 2a 78 70 |ilename.|b.; *xp|
|00001d60| 72 5f 66 6f 70 65 6e 2e | 6c 3a 2a 78 70 72 5f 66 |r_fopen.|l:*xpr_f|
|00001d70| 63 6c 6f 73 65 2e 6c 3a | 2a 78 70 72 5f 66 72 65 |close.l:|*xpr_fre|
|00001d80| 61 64 2e 6c 3a 2a 78 70 | 72 5f 66 77 72 69 74 65 |ad.l:*xp|r_fwrite|
|00001d90| 2e 6c 00 3b 20 20 2a 78 | 70 72 5f 73 72 65 61 64 |.l.; *x|pr_sread|
|00001da0| 2e 6c 3a 2a 78 70 72 5f | 73 77 72 69 74 65 2e 6c |.l:*xpr_|swrite.l|
|00001db0| 3a 2a 78 70 72 5f 73 66 | 6c 75 73 68 2e 6c 3a 2a |:*xpr_sf|lush.l:*|
|00001dc0| 78 70 72 5f 75 70 64 61 | 74 65 2e 6c 00 3b 20 20 |xpr_upda|te.l.; |
|00001dd0| 2a 78 70 72 5f 63 68 6b | 61 62 6f 72 74 2e 6c 3a |*xpr_chk|abort.l:|
|00001de0| 2a 78 70 72 5f 63 68 6b | 6d 69 73 63 2e 6c 3a 2a |*xpr_chk|misc.l:*|
|00001df0| 78 70 72 5f 67 65 74 73 | 2e 6c 3a 2a 78 70 72 5f |xpr_gets|.l:*xpr_|
|00001e00| 73 65 74 73 65 72 69 61 | 6c 2e 6c 00 3b 20 20 2a |setseria|l.l.; *|
|00001e10| 78 70 72 5f 66 66 69 72 | 73 74 2e 6c 3a 2a 78 70 |xpr_ffir|st.l:*xp|
|00001e20| 72 5f 66 6e 65 78 74 2e | 6c 3a 2a 78 70 72 5f 66 |r_fnext.|l:*xpr_f|
|00001e30| 69 6e 66 6f 2e 6c 3a 2a | 78 70 72 5f 66 73 65 65 |info.l:*|xpr_fsee|
|00001e40| 6b 2e 6c 00 3b 20 20 78 | 70 72 5f 65 78 74 65 6e |k.l.; x|pr_exten|
|00001e50| 73 69 6f 6e 2e 6c 20 20 | 3b 4e 75 6d 62 65 72 20 |sion.l |;Number |
|00001e60| 6f 66 20 65 78 74 65 6e | 73 69 6f 6e 73 00 3b 20 |of exten|sions.; |
|00001e70| 20 2a 78 70 72 5f 64 61 | 74 61 2e 6c 20 20 20 20 | *xpr_da|ta.l |
|00001e80| 20 20 3b 49 6e 69 74 69 | 61 6c 69 7a 65 64 20 62 | ;Initi|alized b|
|00001e90| 79 20 53 65 74 75 70 00 | 3b 20 20 2a 78 70 72 5f |y Setup.|; *xpr_|
|00001ea0| 6f 70 74 69 6f 6e 73 2e | 6c 3a 2a 78 70 72 5f 75 |options.|l:*xpr_u|
|00001eb0| 6e 6c 69 6e 6b 2e 6c 3a | 2a 78 70 72 5f 73 71 75 |nlink.l:|*xpr_squ|
|00001ec0| 65 72 79 2e 6c 3a 2a 78 | 70 72 5f 67 65 74 70 74 |ery.l:*x|pr_getpt|
|00001ed0| 72 2e 6c 00 3b 45 6e 64 | 20 4e 45 57 54 59 50 45 |r.l.;End| NEWTYPE|
|00001ee0| 00 3b 00 3b 23 58 50 52 | 5f 45 58 54 45 4e 53 49 |.;.;#XPR|_EXTENSI|
|00001ef0| 4f 4e 3d 34 00 3b 23 58 | 50 52 53 5f 46 41 49 4c |ON=4.;#X|PRS_FAIL|
|00001f00| 55 52 45 3d 24 30 30 30 | 30 30 30 30 30 00 3b 23 |URE=$000|00000.;#|
|00001f10| 58 50 52 53 5f 53 55 43 | 43 45 53 53 3d 24 30 30 |XPRS_SUC|CESS=$00|
|00001f20| 30 30 30 30 30 31 00 3b | 23 58 50 52 53 5f 4e 4f |000001.;|#XPRS_NO|
|00001f30| 52 45 43 52 45 51 3d 24 | 30 30 30 30 30 30 30 32 |RECREQ=$|00000002|
|00001f40| 00 3b 23 58 50 52 53 5f | 4e 4f 53 4e 44 52 45 51 |.;#XPRS_|NOSNDREQ|
|00001f50| 3d 24 30 30 30 30 30 30 | 30 34 00 3b 23 58 50 52 |=$000000|04.;#XPR|
|00001f60| 53 5f 48 4f 53 54 4d 4f | 4e 3d 24 30 30 30 30 30 |S_HOSTMO|N=$00000|
|00001f70| 30 30 38 00 3b 23 58 50 | 52 53 5f 55 53 45 52 4d |008.;#XP|RS_USERM|
|00001f80| 4f 4e 3d 24 30 30 30 30 | 30 30 31 30 00 3b 23 58 |ON=$0000|0010.;#X|
|00001f90| 50 52 53 5f 48 4f 53 54 | 4e 4f 57 41 49 54 3d 24 |PRS_HOST|NOWAIT=$|
|00001fa0| 30 30 30 30 30 30 32 30 | 00 3b 00 3b 4e 45 57 54 |00000020|.;.;NEWT|
|00001fb0| 59 50 45 20 2e 58 50 52 | 5f 55 50 44 41 54 45 00 |YPE .XPR|_UPDATE.|
|00001fc0| 3b 20 20 2a 78 70 72 75 | 5f 70 72 6f 74 6f 63 6f |; *xpru|_protoco|
|00001fd0| 6c 2e 62 3a 2a 78 70 72 | 75 5f 66 69 6c 65 6e 61 |l.b:*xpr|u_filena|
|00001fe0| 6d 65 2e 62 3a 78 70 72 | 75 5f 66 69 6c 65 73 69 |me.b:xpr|u_filesi|
|00001ff0| 7a 65 2e 6c 00 3b 20 20 | 2a 78 70 72 75 5f 6d 73 |ze.l.; |*xpru_ms|
|00002000| 67 2e 62 3a 2a 78 70 72 | 75 5f 65 72 72 6f 72 6d |g.b:*xpr|u_errorm|
|00002010| 73 67 2e 62 00 3b 20 20 | 78 70 72 75 5f 62 6c 6f |sg.b.; |xpru_blo|
|00002020| 63 6b 73 2e 6c 3a 78 70 | 72 75 5f 62 6c 6f 63 6b |cks.l:xp|ru_block|
|00002030| 73 69 7a 65 2e 6c 3a 78 | 70 72 75 5f 62 79 74 65 |size.l:x|pru_byte|
|00002040| 73 2e 6c 3a 78 70 72 75 | 5f 65 72 72 6f 72 73 2e |s.l:xpru|_errors.|
|00002050| 6c 00 3b 20 20 78 70 72 | 75 5f 74 69 6d 65 6f 75 |l.; xpr|u_timeou|
|00002060| 74 73 2e 6c 3a 78 70 72 | 75 5f 70 61 63 6b 65 74 |ts.l:xpr|u_packet|
|00002070| 74 79 70 65 2e 6c 3a 78 | 70 72 75 5f 70 61 63 6b |type.l:x|pru_pack|
|00002080| 65 74 64 65 6c 61 79 2e | 6c 3a 78 70 72 75 5f 63 |etdelay.|l:xpru_c|
|00002090| 68 61 72 64 65 6c 61 79 | 2e 6c 00 3b 20 20 2a 78 |hardelay|.l.; *x|
|000020a0| 70 72 75 5f 62 6c 6f 63 | 6b 63 68 65 63 6b 2e 62 |pru_bloc|kcheck.b|
|000020b0| 3a 2a 78 70 72 75 5f 65 | 78 70 65 63 74 74 69 6d |:*xpru_e|xpecttim|
|000020c0| 65 2e 62 3a 2a 78 70 72 | 75 5f 65 6c 61 70 73 65 |e.b:*xpr|u_elapse|
|000020d0| 64 74 69 6d 65 2e 62 00 | 3b 20 20 78 70 72 75 5f |dtime.b.|; xpru_|
|000020e0| 64 61 74 61 72 61 74 65 | 2e 6c 3a 78 70 72 75 5f |datarate|.l:xpru_|
|000020f0| 72 65 73 65 72 76 65 64 | 5b 35 5d 2e 6c 00 3b 45 |reserved|[5].l.;E|
|00002100| 6e 64 20 4e 45 57 54 59 | 50 45 00 3b 00 3b 23 58 |nd NEWTY|PE.;.;#X|
|00002110| 50 52 55 5f 50 52 4f 54 | 4f 43 4f 4c 3d 24 30 30 |PRU_PROT|OCOL=$00|
|00002120| 30 30 30 30 30 31 00 3b | 23 58 50 52 55 5f 46 49 |000001.;|#XPRU_FI|
|00002130| 4c 45 4e 41 4d 45 3d 24 | 30 30 30 30 30 30 30 32 |LENAME=$|00000002|
|00002140| 00 3b 23 58 50 52 55 5f | 46 49 4c 45 53 49 5a 45 |.;#XPRU_|FILESIZE|
|00002150| 3d 24 30 30 30 30 30 30 | 30 34 00 3b 23 58 50 52 |=$000000|04.;#XPR|
|00002160| 55 5f 4d 53 47 3d 24 30 | 30 30 30 30 30 30 38 00 |U_MSG=$0|0000008.|
|00002170| 3b 23 58 50 52 55 5f 45 | 52 52 4f 52 4d 53 47 3d |;#XPRU_E|RRORMSG=|
|00002180| 24 30 30 30 30 30 30 31 | 30 00 3b 23 58 50 52 55 |$0000001|0.;#XPRU|
|00002190| 5f 42 4c 4f 43 4b 53 3d | 24 30 30 30 30 30 30 32 |_BLOCKS=|$0000002|
|000021a0| 30 00 3b 23 58 50 52 55 | 5f 42 4c 4f 43 4b 53 49 |0.;#XPRU|_BLOCKSI|
|000021b0| 5a 45 3d 24 30 30 30 30 | 30 30 34 30 00 3b 23 58 |ZE=$0000|0040.;#X|
|000021c0| 50 52 55 5f 42 59 54 45 | 53 3d 24 30 30 30 30 30 |PRU_BYTE|S=$00000|
|000021d0| 30 38 30 00 3b 23 58 50 | 52 55 5f 45 52 52 4f 52 |080.;#XP|RU_ERROR|
|000021e0| 53 3d 24 30 30 30 30 30 | 31 30 30 00 3b 23 58 50 |S=$00000|100.;#XP|
|000021f0| 52 55 5f 54 49 4d 45 4f | 55 54 53 3d 24 30 30 30 |RU_TIMEO|UTS=$000|
|00002200| 30 30 32 30 30 00 3b 23 | 58 50 52 55 5f 50 41 43 |00200.;#|XPRU_PAC|
|00002210| 4b 45 54 54 59 50 45 3d | 24 30 30 30 30 30 34 30 |KETTYPE=|$0000040|
|00002220| 30 00 3b 23 58 50 52 55 | 5f 50 41 43 4b 45 54 44 |0.;#XPRU|_PACKETD|
|00002230| 45 4c 41 59 3d 24 30 30 | 30 30 30 38 30 30 00 3b |ELAY=$00|000800.;|
|00002240| 23 58 50 52 55 5f 43 48 | 41 52 44 45 4c 41 59 3d |#XPRU_CH|ARDELAY=|
|00002250| 24 30 30 30 30 31 30 30 | 30 00 3b 23 58 50 52 55 |$0000100|0.;#XPRU|
|00002260| 5f 42 4c 4f 43 4b 43 48 | 45 43 4b 3d 24 30 30 30 |_BLOCKCH|ECK=$000|
|00002270| 30 32 30 30 30 00 3b 23 | 58 50 52 55 5f 45 58 50 |02000.;#|XPRU_EXP|
|00002280| 45 43 54 54 49 4d 45 3d | 24 30 30 30 30 34 30 30 |ECTTIME=|$0000400|
|00002290| 30 00 3b 23 58 50 52 55 | 5f 45 4c 41 50 53 45 44 |0.;#XPRU|_ELAPSED|
|000022a0| 54 49 4d 45 3d 24 30 30 | 30 30 38 30 30 30 00 3b |TIME=$00|008000.;|
|000022b0| 23 58 50 52 55 5f 44 41 | 54 41 52 41 54 45 3d 24 |#XPRU_DA|TARATE=$|
|000022c0| 30 30 30 31 30 30 30 30 | 00 3b 00 3b 4e 45 57 54 |00010000|.;.;NEWT|
|000022d0| 59 50 45 20 2e 78 70 72 | 5f 6f 70 74 69 6f 6e 00 |YPE .xpr|_option.|
|000022e0| 3b 20 20 2a 78 70 72 6f | 5f 64 65 73 63 72 69 70 |; *xpro|_descrip|
|000022f0| 74 69 6f 6e 2e 62 20 3b | 64 65 73 63 72 69 70 74 |tion.b ;|descript|
|00002300| 69 6f 6e 20 6f 66 20 74 | 68 65 20 6f 70 74 69 6f |ion of t|he optio|
|00002310| 6e 00 3b 20 20 78 70 72 | 6f 5f 74 79 70 65 2e 6c |n.; xpr|o_type.l|
|00002320| 20 20 20 20 20 20 20 20 | 20 3b 74 79 70 65 20 6f | | ;type o|
|00002330| 66 20 6f 70 74 69 6f 6e | 00 3b 20 20 2a 78 70 72 |f option|.; *xpr|
|00002340| 6f 5f 76 61 6c 75 65 2e | 62 20 20 20 20 20 20 20 |o_value.|b |
|00002350| 3b 70 6f 69 6e 74 65 72 | 20 74 6f 20 61 20 62 75 |;pointer| to a bu|
|00002360| 66 66 65 72 20 77 69 74 | 68 20 74 68 65 20 63 75 |ffer wit|h the cu|
|00002370| 72 72 65 6e 74 20 76 61 | 6c 75 65 00 3b 20 20 78 |rrent va|lue.; x|
|00002380| 70 72 6f 5f 6c 65 6e 67 | 74 68 2e 6c 20 20 20 20 |pro_leng|th.l |
|00002390| 20 20 20 3b 62 75 66 66 | 65 72 20 73 69 7a 65 00 | ;buff|er size.|
|000023a0| 3b 45 6e 64 20 4e 45 57 | 54 59 50 45 00 3b 00 3b |;End NEW|TYPE.;.;|
|000023b0| 23 58 50 52 4f 5f 42 4f | 4f 4c 45 41 4e 3d 31 20 |#XPRO_BO|OLEAN=1 |
|000023c0| 20 3b 2f 2a 20 78 70 72 | 6f 5f 76 61 6c 75 65 20 | ;/* xpr|o_value |
|000023d0| 69 73 20 22 79 65 73 22 | 2c 20 22 6e 6f 22 2c 20 |is "yes"|, "no", |
|000023e0| 22 6f 6e 22 20 6f 72 20 | 22 6f 66 66 22 20 20 20 |"on" or |"off" |
|000023f0| 2a 2f 00 3b 23 58 50 52 | 4f 5f 4c 4f 4e 47 3d 32 |*/.;#XPR|O_LONG=2|
|00002400| 20 20 20 20 20 3b 2f 2a | 20 78 70 72 6f 5f 76 61 | ;/*| xpro_va|
|00002410| 6c 75 65 20 69 73 20 73 | 74 72 69 6e 67 20 72 65 |lue is s|tring re|
|00002420| 70 72 65 73 65 6e 74 69 | 6e 67 20 61 20 6e 75 6d |presenti|ng a num|
|00002430| 62 65 72 20 2a 2f 00 3b | 23 58 50 52 4f 5f 53 54 |ber */.;|#XPRO_ST|
|00002440| 52 49 4e 47 3d 33 20 20 | 20 3b 2f 2a 20 78 70 72 |RING=3 | ;/* xpr|
|00002450| 6f 5f 76 61 6c 75 65 20 | 69 73 20 61 20 73 74 72 |o_value |is a str|
|00002460| 69 6e 67 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ing | |
|00002470| 20 20 20 20 20 20 20 20 | 2a 2f 00 3b 23 58 50 52 | |*/.;#XPR|
|00002480| 4f 5f 48 45 41 44 45 52 | 3d 34 20 20 20 3b 2f 2a |O_HEADER|=4 ;/*|
|00002490| 20 78 70 72 6f 5f 76 61 | 6c 75 65 20 69 73 20 69 | xpro_va|lue is i|
|000024a0| 67 6e 6f 72 65 64 20 20 | 20 20 20 20 20 20 20 20 |gnored | |
|000024b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 2f 00 3b | | */.;|
|000024c0| 23 58 50 52 4f 5f 43 4f | 4d 4d 41 4e 44 3d 35 20 |#XPRO_CO|MMAND=5 |
|000024d0| 20 3b 2f 2a 20 78 70 72 | 6f 5f 76 61 6c 75 65 20 | ;/* xpr|o_value |
|000024e0| 69 73 20 69 67 6e 6f 72 | 65 64 20 20 20 20 20 20 |is ignor|ed |
|000024f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002500| 2a 2f 00 3b 23 58 50 52 | 4f 5f 43 4f 4d 4d 50 41 |*/.;#XPR|O_COMMPA|
|00002510| 52 3d 36 20 20 3b 2f 2a | 20 78 70 72 6f 5f 76 61 |R=6 ;/*| xpro_va|
|00002520| 6c 75 65 20 63 6f 6e 74 | 61 69 6e 73 20 63 6f 6d |lue cont|ains com|
|00002530| 6d 61 6e 64 20 70 61 72 | 61 6d 65 74 65 72 73 20 |mand par|ameters |
|00002540| 20 20 20 20 2a 2f 00 3b | 00 3b 23 5f 43 6c 65 61 | */.;|.;#_Clea|
|00002550| 6e 75 70 3d 2d 33 30 20 | 20 20 20 20 3b 28 69 6f |nup=-30 | ;(io|
|00002560| 29 28 41 30 29 00 3b 23 | 5f 53 65 74 75 70 3d 2d |)(A0).;#|_Setup=-|
|00002570| 33 36 20 20 20 20 20 20 | 20 3b 28 69 6f 29 28 41 |36 | ;(io)(A|
|00002580| 30 29 00 3b 23 5f 53 65 | 6e 64 3d 2d 34 32 20 20 |0).;#_Se|nd=-42 |
|00002590| 20 20 20 20 20 20 3b 28 | 69 6f 29 28 41 30 29 00 | ;(|io)(A0).|
|000025a0| 3b 23 5f 52 65 63 65 69 | 76 65 3d 2d 34 38 20 20 |;#_Recei|ve=-48 |
|000025b0| 20 20 20 3b 28 69 6f 29 | 28 41 30 29 00 3b 23 5f | ;(io)|(A0).;#_|
|000025c0| 48 6f 73 74 4d 6f 6e 3d | 2d 35 34 20 20 20 20 20 |HostMon=|-54 |
|000025d0| 3b 28 69 6f 2c 73 65 72 | 62 75 66 66 2c 61 63 74 |;(io,ser|buff,act|
|000025e0| 75 61 6c 2c 6d 61 78 73 | 69 7a 65 29 28 41 30 2c |ual,maxs|ize)(A0,|
|000025f0| 41 31 2c 44 30 2c 44 31 | 29 00 3b 23 5f 55 73 65 |A1,D0,D1|).;#_Use|
|00002600| 72 4d 6f 6e 3d 2d 36 30 | 20 20 20 20 20 3b 28 69 |rMon=-60| ;(i|
|00002610| 6f 2c 73 65 72 62 75 66 | 66 2c 61 63 74 75 61 6c |o,serbuf|f,actual|
|00002620| 2c 6d 61 78 73 69 7a 65 | 29 28 41 30 2c 41 31 2c |,maxsize|)(A0,A1,|
|00002630| 44 30 2c 44 31 29 00 3b | 00 3b 3b 2d 2d 2d 2d 2d |D0,D1).;|.;;-----|
|00002640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 00 3b |--------|------.;|
|00002680| 00 3b 21 61 66 75 6e 63 | 74 69 6f 6e 20 7b 23 6c |.;!afunc|tion {#l|
|00002690| 6f 6e 67 7d 00 3b 21 61 | 72 67 73 20 7b 23 77 6f |ong}.;!a|rgs {#wo|
|000026a0| 72 64 2c 23 73 74 72 69 | 6e 67 2c 23 73 74 72 69 |rd,#stri|ng,#stri|
|000026b0| 6e 67 2c 23 6c 6f 6e 67 | 7d 00 3b 21 6c 69 62 73 |ng,#long|}.;!libs|
|000026c0| 00 3b 21 73 75 62 73 20 | 7b 5f 78 70 72 73 65 6e |.;!subs |{_xprsen|
|000026d0| 64 2c 30 2c 30 7d 00 3b | 21 6e 61 6d 65 20 7b 22 |d,0,0}.;|!name {"|
|000026e0| 58 50 52 53 65 6e 64 22 | 2c 22 75 6e 69 74 23 2c |XPRSend"|,"unit#,|
|000026f0| 70 72 6f 74 6f 63 6f 6c | 24 2c 66 69 6c 65 24 2c |protocol|$,file$,|
|00002700| 3f 63 61 6c 6c 62 61 63 | 6b 22 7d 00 3b 00 3b 00 |?callbac|k"}.;.;.|
|00002710| 3b 5f 78 70 72 73 65 6e | 64 00 3b 20 20 4c 45 41 |;_xprsen|d.; LEA|
|00002720| 20 61 6c 6c 69 6f 28 70 | 63 29 2c 61 32 3a 41 53 | allio(p|c),a2:AS|
|00002730| 4c 23 38 2c 64 30 3a 41 | 44 44 20 64 30 2c 61 32 |L#8,d0:A|DD d0,a2|
|00002740| 3a 54 53 54 2e 6c 20 28 | 61 32 29 3a 42 45 51 20 |:TST.l (|a2):BEQ |
|00002750| 78 70 72 66 61 69 6c 00 | 3b 20 20 4d 4f 56 45 2e |xprfail.|; MOVE.|
|00002760| 6c 20 28 61 32 29 2c 78 | 70 72 73 65 72 69 6f 3a |l (a2),x|prserio:|
|00002770| 4d 4f 56 45 2e 6c 20 64 | 31 2c 61 30 3a 4c 45 41 |MOVE.l d|1,a0:LEA|
|00002780| 20 78 70 72 6e 61 6d 65 | 28 70 63 29 2c 61 31 00 | xprname|(pc),a1.|
|00002790| 3b 20 20 4d 4f 56 45 2e | 6c 20 2d 28 61 32 29 2c |; MOVE.|l -(a2),|
|000027a0| 64 37 3a 42 45 51 20 78 | 70 72 66 61 69 6c 3a 4d |d7:BEQ x|prfail:M|
|000027b0| 4f 56 45 4d 2e 6c 20 64 | 32 2d 64 33 2c 66 69 6c |OVEM.l d|2-d3,fil|
|000027c0| 65 6e 61 6d 65 00 3b 20 | 20 67 65 74 6e 61 6d 65 |ename.; | getname|
|000027d0| 3a 4d 4f 56 45 2e 62 20 | 28 61 30 29 2b 2c 28 61 |:MOVE.b |(a0)+,(a|
|000027e0| 31 29 2b 3a 44 42 52 41 | 20 64 37 2c 67 65 74 6e |1)+:DBRA| d7,getn|
|000027f0| 61 6d 65 3a 43 4c 52 2e | 62 20 28 61 31 29 00 3b |ame:CLR.|b (a1).;|
|00002800| 00 3b 20 20 4d 4f 56 45 | 2e 6c 20 34 2c 61 36 3a |.; MOVE|.l 4,a6:|
|00002810| 4c 45 41 20 78 70 72 6e | 61 6d 65 28 70 63 29 2c |LEA xprn|ame(pc),|
|00002820| 64 30 3a 00 3b 00 3b 00 | 3b 73 65 72 69 6f 3a 44 |d0:.;.;.|;serio:D|
|00002830| 63 2e 6c 20 30 00 3b 66 | 69 6c 65 6e 61 6d 65 3a |c.l 0.;f|ilename:|
|00002840| 44 63 2e 6c 20 30 00 3b | 63 62 75 70 64 61 74 65 |Dc.l 0.;|cbupdate|
|00002850| 3a 44 63 2e 6c 20 30 00 | 3b 78 70 72 6e 61 6d 65 |:Dc.l 0.|;xprname|
|00002860| 3a 44 73 2e 62 20 36 34 | 00 3b 78 70 72 62 61 73 |:Ds.b 64|.;xprbas|
|00002870| 65 3a 44 63 2e 6c 20 30 | 00 3b 00 3b 5f 78 70 72 |e:Dc.l 0|.;.;_xpr|
|00002880| 73 65 6e 64 00 3b 00 3b | 44 45 46 54 59 50 45 20 |send.;.;|DEFTYPE |
|00002890| 2e 58 50 52 5f 49 4f 20 | 66 00 3b 00 3b 3b 66 5c |.XPR_IO |f.;.;;f\|
|000028a0| 78 70 72 5f 66 6f 70 65 | 6e 3d 3f 6d 79 6f 70 65 |xpr_fope|n=?myope|
|000028b0| 6e 2c 3f 6d 79 6f 70 65 | 6e 2c 3f 6d 79 6f 70 65 |n,?myope|n,?myope|
|000028c0| 6e 2c 3f 6d 79 6f 70 65 | 6e 2c 3f 6d 79 6f 70 65 |n,?myope|n,?myope|
|000028d0| 6e 2c 3f 6d 79 6f 70 65 | 6e 2c 3f 6d 79 6f 70 65 |n,?myope|n,?myope|
|000028e0| 6e 2c 3f 6d 79 6f 70 65 | 6e 2c 3f 6d 79 6f 70 65 |n,?myope|n,?myope|
|000028f0| 6e 2c 3f 6d 79 6f 70 65 | 6e 2c 3f 6d 79 6f 70 65 |n,?myope|n,?myope|
|00002900| 6e 00 3b 00 3b 4e 50 72 | 69 6e 74 20 3f 3f 3f 3f |n.;.;NPr|int ????|
|00002910| 3f 28 66 29 00 3b 00 3b | 4d 6f 75 73 65 57 61 69 |?(f).;.;|MouseWai|
|00002920| 74 00 3b 45 6e 64 00 3b | 00 3b 61 24 3d 22 72 61 |t.;End.;|.;a$="ra|
|00002930| 6d 3a 74 65 73 74 22 2b | 43 68 72 24 28 30 29 3a |m:test"+|Chr$(0):|
|00002940| 66 5c 78 70 72 5f 66 69 | 6c 65 6e 61 6d 65 3d 26 |f\xpr_fi|lename=&|
|00002950| 61 24 00 3b 00 3b 4e 50 | 72 69 6e 74 20 3f 3f 3f |a$.;.;NP|rint ???|
|00002960| 3f 3f 28 66 29 00 3b 00 | 3b 4e 50 72 69 6e 74 20 |??(f).;.|;NPrint |
|00002970| 22 53 48 49 54 22 00 3b | 00 3b 4d 6f 75 73 65 57 |"SHIT".;|.;MouseW|
|00002980| 61 69 74 00 3b 00 3b 45 | 6e 64 00 3b 3b 00 |ait.;.;E|nd.;;. |
+--------+-------------------------+-------------------------+--------+--------+
