/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / COM / Q-Z / Terminal 2.2.sit / Terminal 2.2 / Project / Sources / Procedure.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 50 72 6f 63 65 64 | 75 72 65 2e 63 00 00 00 |..Proced|ure.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 22 14 00 | 00 02 06 a5 9c bc 10 a5 |....."..|........|
|00000060| 9c bc 10 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0d 6a 00 00 |........|.....j..|
|00000080| 2f 2a 0d 09 54 65 72 6d | 69 6e 61 6c 20 32 2e 32 |/*..Term|inal 2.2|
|00000090| 0d 09 22 50 72 6f 63 65 | 64 75 72 65 2e 63 22 0d |.."Proce|dure.c".|
|000000a0| 2a 2f 0d 0d 23 69 66 64 | 65 66 20 54 48 49 4e 4b |*/..#ifd|ef THINK|
|000000b0| 5f 43 0d 23 69 6e 63 6c | 75 64 65 20 22 4d 61 63 |_C.#incl|ude "Mac|
|000000c0| 48 65 61 64 65 72 73 22 | 0d 23 65 6e 64 69 66 0d |Headers"|.#endif.|
|000000d0| 23 69 66 64 65 66 20 61 | 70 70 6c 65 63 0d 23 70 |#ifdef a|pplec.#p|
|000000e0| 72 61 67 6d 61 20 6c 6f | 61 64 20 22 3a 28 4f 62 |ragma lo|ad ":(Ob|
|000000f0| 6a 65 63 74 73 29 3a 4d | 61 63 48 65 61 64 65 72 |jects):M|acHeader|
|00000100| 73 4d 50 57 22 0d 23 70 | 72 61 67 6d 61 20 73 65 |sMPW".#p|ragma se|
|00000110| 67 6d 65 6e 74 20 4d 61 | 69 6e 32 0d 23 65 6e 64 |gment Ma|in2.#end|
|00000120| 69 66 0d 0d 23 69 6e 63 | 6c 75 64 65 20 22 50 72 |if..#inc|lude "Pr|
|00000130| 6f 63 65 64 75 72 65 2e | 68 22 0d 23 69 6e 63 6c |ocedure.|h".#incl|
|00000140| 75 64 65 20 22 54 65 78 | 74 2e 68 22 0d 23 69 6e |ude "Tex|t.h".#in|
|00000150| 63 6c 75 64 65 20 22 4d | 61 69 6e 2e 68 22 0d 23 |clude "M|ain.h".#|
|00000160| 69 6e 63 6c 75 64 65 20 | 22 46 69 6c 65 2e 68 22 |include |"File.h"|
|00000170| 0d 23 69 6e 63 6c 75 64 | 65 20 22 50 6f 72 74 2e |.#includ|e "Port.|
|00000180| 68 22 0d 23 69 6e 63 6c | 75 64 65 20 22 44 6f 63 |h".#incl|ude "Doc|
|00000190| 75 6d 65 6e 74 2e 68 22 | 0d 23 69 6e 63 6c 75 64 |ument.h"|.#includ|
|000001a0| 65 20 22 55 74 69 6c 69 | 74 69 65 73 2e 68 22 0d |e "Utili|ties.h".|
|000001b0| 23 69 6e 63 6c 75 64 65 | 20 22 58 4d 6f 64 65 6d |#include| "XModem|
|000001c0| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 5a 4d |.h".#inc|lude "ZM|
|000001d0| 6f 64 65 6d 2e 68 22 0d | 0d 2f 2a 20 2d 2d 2d 2d |odem.h".|./* ----|
|000001e0| 2d 20 53 65 6e 64 20 73 | 74 72 69 6e 67 20 2d 2d |- Send s|tring --|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000220| 2d 20 2a 2f 0d 0d 73 68 | 6f 72 74 20 54 79 70 65 |- */..sh|ort Type|
|00000230| 28 72 65 67 69 73 74 65 | 72 20 42 79 74 65 20 2a |(registe|r Byte *|
|00000240| 73 29 0d 7b 0d 09 72 65 | 67 69 73 74 65 72 20 73 |s).{..re|gister s|
|00000250| 68 6f 72 74 20 65 72 72 | 3b 0d 09 72 65 67 69 73 |hort err|;..regis|
|00000260| 74 65 72 20 42 79 74 65 | 20 2a 70 3b 0d 09 72 65 |ter Byte| *p;..re|
|00000270| 67 69 73 74 65 72 20 6c | 6f 6e 67 20 63 6f 75 6e |gister l|ong coun|
|00000280| 74 3b 0d 09 72 65 67 69 | 73 74 65 72 20 73 68 6f |t;..regi|ster sho|
|00000290| 72 74 20 6e 3b 0d 09 42 | 79 74 65 20 62 75 66 66 |rt n;..B|yte buff|
|000002a0| 65 72 5b 32 35 36 5d 3b | 0d 0d 09 69 66 20 28 53 |er[256];|...if (S|
|000002b0| 65 6e 64 69 6e 67 29 0d | 09 09 72 65 74 75 72 6e |ending).|..return|
|000002c0| 20 43 41 4e 43 45 4c 3b | 0d 09 43 6f 6e 74 72 6f | CANCEL;|..Contro|
|000002d0| 6c 5f 58 20 3d 20 46 41 | 4c 53 45 3b 0d 09 2f 2a |l_X = FA|LSE;../*|
|000002e0| 20 53 65 72 69 61 6c 48 | 61 6e 64 73 68 61 6b 65 | SerialH|andshake|
|000002f0| 28 53 65 74 74 69 6e 67 | 73 2e 68 61 6e 64 73 68 |(Setting|s.handsh|
|00000300| 61 6b 65 29 3b 20 2a 2f | 0d 09 77 68 69 6c 65 20 |ake); */|..while |
|00000310| 28 42 75 73 79 29 0d 09 | 09 3b 0d 09 69 66 20 28 |(Busy)..|.;..if (|
|00000320| 53 65 74 74 69 6e 67 73 | 2e 61 75 74 6f 4c 46 29 |Settings|.autoLF)|
|00000330| 20 7b 0d 09 09 6e 20 3d | 20 2a 28 42 79 74 65 20 | {...n =| *(Byte |
|00000340| 2a 29 73 2b 2b 3b 09 2f | 2a 20 4c 65 6e 67 74 68 |*)s++;./|* Length|
|00000350| 20 6f 66 20 70 61 73 63 | 61 6c 20 73 74 72 69 6e | of pasc|al strin|
|00000360| 67 20 2a 2f 0d 09 09 70 | 20 3d 20 28 42 79 74 65 |g */...p| = (Byte|
|00000370| 20 2a 29 73 3b 20 0d 09 | 09 77 68 69 6c 65 20 28 | *)s; ..|.while (|
|00000380| 6e 2d 2d 29 20 7b 0d 09 | 09 09 69 66 20 28 2a 73 |n--) {..|..if (*s|
|00000390| 2b 2b 20 3d 3d 20 27 5c | 30 31 35 27 29 20 7b 09 |++ == '\|015') {.|
|000003a0| 2f 2a 20 43 52 20 2a 2f | 0d 09 09 09 09 6d 65 6d |/* CR */|.....mem|
|000003b0| 63 70 79 28 62 75 66 66 | 65 72 2c 20 70 2c 20 63 |cpy(buff|er, p, c|
|000003c0| 6f 75 6e 74 20 3d 20 28 | 42 79 74 65 20 2a 29 73 |ount = (|Byte *)s|
|000003d0| 20 2d 20 70 29 3b 0d 09 | 09 09 09 62 75 66 66 65 | - p);..|...buffe|
|000003e0| 72 5b 63 6f 75 6e 74 2b | 2b 5d 20 3d 20 27 5c 30 |r[count+|+] = '\0|
|000003f0| 31 32 27 3b 09 2f 2a 20 | 4c 46 20 2a 2f 0d 09 09 |12';./* |LF */...|
|00000400| 09 09 53 65 6e 64 69 6e | 67 20 3d 20 54 52 55 45 |..Sendin|g = TRUE|
|00000410| 3b 0d 09 09 09 09 43 6f | 6e 74 72 6f 6c 5f 58 20 |;.....Co|ntrol_X |
|00000420| 3d 20 46 41 4c 53 45 3b | 0d 09 09 09 09 53 65 72 |= FALSE;|.....Ser|
|00000430| 69 61 6c 53 65 6e 64 28 | 62 75 66 66 65 72 2c 20 |ialSend(|buffer, |
|00000440| 63 6f 75 6e 74 2c 20 26 | 42 75 73 79 29 3b 0d 09 |count, &|Busy);..|
|00000450| 09 09 09 69 66 20 28 53 | 65 74 74 69 6e 67 73 2e |...if (S|ettings.|
|00000460| 6c 6f 63 61 6c 45 63 68 | 6f 29 0d 09 09 09 09 09 |localEch|o)......|
|00000470| 4e 65 77 43 68 61 72 61 | 63 74 65 72 73 28 62 75 |NewChara|cters(bu|
|00000480| 66 66 65 72 2c 20 63 6f | 75 6e 74 2c 20 46 41 4c |ffer, co|unt, FAL|
|00000490| 53 45 29 3b 0d 09 09 09 | 09 43 68 65 63 6b 45 76 |SE);....|.CheckEv|
|000004a0| 65 6e 74 73 28 29 3b 0d | 09 09 09 09 77 68 69 6c |ents();.|....whil|
|000004b0| 65 20 28 42 75 73 79 29 | 0d 09 09 09 09 09 3b 0d |e (Busy)|......;.|
|000004c0| 09 09 09 09 69 66 20 28 | 21 53 65 6e 64 69 6e 67 |....if (|!Sending|
|000004d0| 29 20 7b 09 09 2f 2a 20 | 43 41 4e 20 72 65 63 65 |) {../* |CAN rece|
|000004e0| 69 76 65 64 20 2a 2f 0d | 09 09 09 09 09 65 72 72 |ived */.|.....err|
|000004f0| 20 3d 20 43 6f 6e 74 72 | 6f 6c 5f 58 20 3f 20 41 | = Contr|ol_X ? A|
|00000500| 42 4f 52 54 20 3a 20 43 | 41 4e 43 45 4c 3b 0d 09 |BORT : C|ANCEL;..|
|00000510| 09 09 09 09 67 6f 74 6f | 20 64 6f 6e 65 3b 0d 09 |....goto| done;..|
|00000520| 09 09 09 7d 0d 09 09 09 | 09 70 20 3d 20 28 42 79 |...}....|.p = (By|
|00000530| 74 65 20 2a 29 73 3b 0d | 09 09 09 7d 0d 09 09 7d |te *)s;.|...}...}|
|00000540| 0d 09 09 63 6f 75 6e 74 | 20 3d 20 28 42 79 74 65 |...count| = (Byte|
|00000550| 20 2a 29 73 20 2d 20 70 | 3b 0d 09 7d 20 65 6c 73 | *)s - p|;..} els|
|00000560| 65 20 7b 0d 09 09 63 6f | 75 6e 74 20 3d 20 2a 73 |e {...co|unt = *s|
|00000570| 2b 2b 3b 09 2f 2a 20 4c | 65 6e 67 74 68 20 6f 66 |++;./* L|ength of|
|00000580| 20 70 61 73 63 61 6c 20 | 73 74 72 69 6e 67 20 2a | pascal |string *|
|00000590| 2f 0d 09 09 70 20 3d 20 | 28 42 79 74 65 20 2a 29 |/...p = |(Byte *)|
|000005a0| 73 3b 0d 09 7d 0d 09 69 | 66 20 28 63 6f 75 6e 74 |s;..}..i|f (count|
|000005b0| 29 20 7b 0d 09 09 53 65 | 6e 64 69 6e 67 20 3d 20 |) {...Se|nding = |
|000005c0| 54 52 55 45 3b 0d 09 09 | 43 6f 6e 74 72 6f 6c 5f |TRUE;...|Control_|
|000005d0| 58 20 3d 20 46 41 4c 53 | 45 3b 0d 09 09 53 65 72 |X = FALS|E;...Ser|
|000005e0| 69 61 6c 53 65 6e 64 28 | 70 2c 20 63 6f 75 6e 74 |ialSend(|p, count|
|000005f0| 2c 20 26 42 75 73 79 29 | 3b 0d 09 09 69 66 20 28 |, &Busy)|;...if (|
|00000600| 53 65 74 74 69 6e 67 73 | 2e 6c 6f 63 61 6c 45 63 |Settings|.localEc|
|00000610| 68 6f 29 0d 09 09 09 4e | 65 77 43 68 61 72 61 63 |ho)....N|ewCharac|
|00000620| 74 65 72 73 28 70 2c 20 | 63 6f 75 6e 74 2c 20 46 |ters(p, |count, F|
|00000630| 41 4c 53 45 29 3b 0d 09 | 09 43 68 65 63 6b 45 76 |ALSE);..|.CheckEv|
|00000640| 65 6e 74 73 28 29 3b 0d | 09 09 77 68 69 6c 65 28 |ents();.|..while(|
|00000650| 42 75 73 79 29 0d 09 09 | 09 3b 0d 09 09 69 66 20 |Busy)...|.;...if |
|00000660| 28 21 53 65 6e 64 69 6e | 67 29 20 7b 09 09 2f 2a |(!Sendin|g) {../*|
|00000670| 20 43 41 4e 20 72 65 63 | 65 69 76 65 64 20 2a 2f | CAN rec|eived */|
|00000680| 0d 09 09 09 65 72 72 20 | 3d 20 43 6f 6e 74 72 6f |....err |= Contro|
|00000690| 6c 5f 58 20 3f 20 41 42 | 4f 52 54 20 3a 20 43 41 |l_X ? AB|ORT : CA|
|000006a0| 4e 43 45 4c 3b 0d 09 09 | 09 67 6f 74 6f 20 64 6f |NCEL;...|.goto do|
|000006b0| 6e 65 3b 0d 09 09 7d 0d | 09 7d 0d 09 65 72 72 20 |ne;...}.|.}..err |
|000006c0| 3d 20 46 49 4e 45 3b 0d | 64 6f 6e 65 3a 0d 09 2f |= FINE;.|done:../|
|000006d0| 2a 20 53 65 72 69 61 6c | 48 61 6e 64 73 68 61 6b |* Serial|Handshak|
|000006e0| 65 28 30 29 3b 20 2a 2f | 0d 09 53 65 6e 64 69 6e |e(0); */|..Sendin|
|000006f0| 67 20 3d 20 46 41 4c 53 | 45 3b 0d 09 43 6f 6e 74 |g = FALS|E;..Cont|
|00000700| 72 6f 6c 5f 58 20 3d 20 | 46 41 4c 53 45 3b 0d 09 |rol_X = |FALSE;..|
|00000710| 72 65 74 75 72 6e 20 65 | 72 72 3b 0d 7d 0d 0d 2f |return e|rr;.}../|
|00000720| 2a 20 2d 2d 2d 2d 2d 20 | 44 69 73 70 6c 61 79 20 |* ----- |Display |
|00000730| 63 68 61 72 61 63 74 65 | 72 20 73 74 72 69 6e 67 |characte|r string|
|00000740| 20 69 6e 20 74 65 72 6d | 69 6e 61 6c 20 77 69 6e | in term|inal win|
|00000750| 64 6f 77 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |dow ----|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 20 | 2a 2f 0d 0d 73 68 6f 72 |------- |*/..shor|
|00000770| 74 20 44 69 73 70 6c 61 | 79 28 72 65 67 69 73 74 |t Displa|y(regist|
|00000780| 65 72 20 42 79 74 65 20 | 2a 73 29 0d 7b 0d 09 4e |er Byte |*s).{..N|
|00000790| 65 77 43 68 61 72 61 63 | 74 65 72 73 28 28 42 79 |ewCharac|ters((By|
|000007a0| 74 65 20 2a 29 73 20 2b | 20 31 2c 20 2a 73 2c 20 |te *)s +| 1, *s, |
|000007b0| 46 41 4c 53 45 29 3b 0d | 09 72 65 74 75 72 6e 20 |FALSE);.|.return |
|000007c0| 46 49 4e 45 3b 0d 7d 0d | 0d 2f 2a 20 2d 2d 2d 2d |FINE;.}.|./* ----|
|000007d0| 2d 20 43 68 61 6e 67 65 | 20 63 6f 6d 6d 75 6e 69 |- Change| communi|
|000007e0| 63 61 74 69 6f 6e 20 73 | 65 74 74 69 6e 67 73 20 |cation s|ettings |
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000810| 2d 20 2a 2f 0d 0d 73 68 | 6f 72 74 20 50 6f 72 74 |- */..sh|ort Port|
|00000820| 53 65 74 55 70 28 0d 09 | 73 68 6f 72 74 20 62 61 |SetUp(..|short ba|
|00000830| 75 64 2c 09 09 2f 2a 09 | 30 3d 33 30 30 2c 20 31 |ud,../*.|0=300, 1|
|00000840| 3d 36 30 30 2c 20 32 3d | 31 32 30 30 2c 20 33 3d |=600, 2=|1200, 3=|
|00000850| 32 34 30 30 2c 20 34 3d | 34 38 30 30 2c 0d 09 09 |2400, 4=|4800,...|
|00000860| 09 09 09 09 35 3d 39 36 | 30 30 2c 20 36 3d 31 39 |....5=96|00, 6=19|
|00000870| 32 30 30 2c 20 37 3d 33 | 38 34 30 30 2c 20 38 3d |200, 7=3|8400, 8=|
|00000880| 35 37 36 30 30 20 2a 2f | 0d 09 73 68 6f 72 74 20 |57600 */|..short |
|00000890| 64 61 74 61 2c 09 09 2f | 2a 20 30 3d 37 2c 20 31 |data,../|* 0=7, 1|
|000008a0| 3d 38 20 64 61 74 61 20 | 62 69 74 73 20 2a 2f 0d |=8 data |bits */.|
|000008b0| 09 73 68 6f 72 74 20 70 | 61 72 69 74 79 2c 09 2f |.short p|arity,./|
|000008c0| 2a 20 30 3d 6e 6f 50 61 | 72 69 74 79 2c 20 31 3d |* 0=noPa|rity, 1=|
|000008d0| 65 76 65 6e 50 61 72 69 | 74 79 2c 20 32 3d 6f 64 |evenPari|ty, 2=od|
|000008e0| 64 50 61 72 69 74 79 20 | 2a 2f 0d 09 73 68 6f 72 |dParity |*/..shor|
|000008f0| 74 20 73 74 6f 70 2c 09 | 09 2f 2a 20 30 3d 31 2c |t stop,.|./* 0=1,|
|00000900| 20 31 3d 32 20 73 74 6f | 70 20 62 69 74 20 2a 2f | 1=2 sto|p bit */|
|00000910| 0d 09 42 79 74 65 20 2a | 70 6f 72 74 2c 09 09 2f |..Byte *|port,../|
|00000920| 2a 20 50 6f 72 74 20 6e | 61 6d 65 20 2a 2f 0d 09 |* Port n|ame */..|
|00000930| 73 68 6f 72 74 20 64 74 | 72 2c 09 09 2f 2a 20 31 |short dt|r,../* 1|
|00000940| 3d 64 6f 6e 27 74 20 64 | 72 6f 70 20 44 54 52 20 |=don't d|rop DTR |
|00000950| 77 68 65 6e 20 71 75 69 | 74 74 69 6e 67 20 2a 2f |when qui|tting */|
|00000960| 0d 09 73 68 6f 72 74 20 | 68 73 29 09 09 2f 2a 20 |..short |hs)../* |
|00000970| 30 3d 6e 6f 6e 65 2c 20 | 31 3d 58 4f 4e 2f 58 4f |0=none, |1=XON/XO|
|00000980| 46 46 2c 20 32 3d 43 54 | 53 2c 20 33 3d 44 54 52 |FF, 2=CT|S, 3=DTR|
|00000990| 2c 20 34 3d 43 54 53 2f | 44 54 52 20 2a 2f 0d 7b |, 4=CTS/|DTR */.{|
|000009a0| 0d 09 72 65 67 69 73 74 | 65 72 20 73 68 6f 72 74 |..regist|er short|
|000009b0| 20 65 72 72 3b 0d 09 73 | 68 6f 72 74 20 62 2c 20 | err;..s|hort b, |
|000009c0| 64 2c 20 70 2c 20 73 3b | 0d 09 73 68 6f 72 74 20 |d, p, s;|..short |
|000009d0| 73 65 74 75 70 3b 0d 0d | 09 53 65 72 69 61 6c 47 |setup;..|.SerialG|
|000009e0| 65 74 53 65 74 75 70 28 | 53 65 74 74 69 6e 67 73 |etSetup(|Settings|
|000009f0| 2e 70 6f 72 74 53 65 74 | 75 70 2c 20 26 62 2c 20 |.portSet|up, &b, |
|00000a00| 26 64 2c 20 26 70 2c 20 | 26 73 29 3b 0d 09 69 66 |&d, &p, |&s);..if|
|00000a10| 20 28 62 61 75 64 20 3c | 20 30 20 7c 7c 20 62 61 | (baud <| 0 || ba|
|00000a20| 75 64 20 3e 20 38 29 0d | 09 09 62 61 75 64 20 3d |ud > 8).|..baud =|
|00000a30| 20 62 3b 09 09 2f 2a 20 | 4e 6f 20 63 68 61 6e 67 | b;../* |No chang|
|00000a40| 65 20 2a 2f 0d 09 69 66 | 20 28 64 61 74 61 20 3c |e */..if| (data <|
|00000a50| 20 30 20 7c 7c 20 64 61 | 74 61 20 3e 20 31 29 0d | 0 || da|ta > 1).|
|00000a60| 09 09 64 61 74 61 20 3d | 20 64 3b 09 09 2f 2a 20 |..data =| d;../* |
|00000a70| 4e 6f 20 63 68 61 6e 67 | 65 20 2a 2f 0d 09 69 66 |No chang|e */..if|
|00000a80| 20 28 70 61 72 69 74 79 | 20 3c 20 30 20 7c 7c 20 | (parity| < 0 || |
|00000a90| 70 61 72 69 74 79 20 3e | 20 32 29 0d 09 09 70 61 |parity >| 2)...pa|
|00000aa0| 72 69 74 79 20 3d 20 70 | 3b 09 09 2f 2a 20 4e 6f |rity = p|;../* No|
|00000ab0| 20 63 68 61 6e 67 65 20 | 2a 2f 0d 09 69 66 20 28 | change |*/..if (|
|00000ac0| 73 74 6f 70 20 3c 20 30 | 20 7c 7c 20 73 74 6f 70 |stop < 0| || stop|
|00000ad0| 20 3e 20 31 29 0d 09 09 | 73 74 6f 70 20 3d 20 73 | > 1)...|stop = s|
|00000ae0| 3b 09 09 2f 2a 20 4e 6f | 20 63 68 61 6e 67 65 20 |;../* No| change |
|00000af0| 2a 2f 0d 09 53 65 72 69 | 61 6c 53 65 74 53 65 74 |*/..Seri|alSetSet|
|00000b00| 75 70 28 62 61 75 64 2c | 20 64 61 74 61 2c 20 70 |up(baud,| data, p|
|00000b10| 61 72 69 74 79 2c 20 73 | 74 6f 70 2c 20 26 73 65 |arity, s|top, &se|
|00000b20| 74 75 70 29 3b 0d 09 69 | 66 20 28 68 73 20 3c 20 |tup);..i|f (hs < |
|00000b30| 30 20 7c 7c 20 68 73 20 | 3e 20 34 29 0d 09 09 68 |0 || hs |> 4)...h|
|00000b40| 73 20 3d 20 53 65 74 74 | 69 6e 67 73 2e 68 61 6e |s = Sett|ings.han|
|00000b50| 64 73 68 61 6b 65 3b 0d | 09 69 66 20 28 21 70 6f |dshake;.|.if (!po|
|00000b60| 72 74 29 09 09 09 2f 2a | 20 4e 6f 20 63 68 61 6e |rt).../*| No chan|
|00000b70| 67 65 20 2a 2f 0d 09 09 | 70 6f 72 74 20 3d 20 53 |ge */...|port = S|
|00000b80| 65 74 74 69 6e 67 73 2e | 70 6f 72 74 4e 61 6d 65 |ettings.|portName|
|00000b90| 3b 0d 09 69 66 20 28 73 | 65 74 75 70 20 21 3d 20 |;..if (s|etup != |
|00000ba0| 53 65 74 74 69 6e 67 73 | 2e 70 6f 72 74 53 65 74 |Settings|.portSet|
|00000bb0| 75 70 20 7c 7c 0d 09 09 | 09 21 45 71 75 61 6c 53 |up ||...|.!EqualS|
|00000bc0| 74 72 69 6e 67 28 70 6f | 72 74 2c 20 53 65 74 74 |tring(po|rt, Sett|
|00000bd0| 69 6e 67 73 2e 70 6f 72 | 74 4e 61 6d 65 2c 20 46 |ings.por|tName, F|
|00000be0| 41 4c 53 45 2c 20 54 52 | 55 45 29 20 7c 7c 0d 09 |ALSE, TR|UE) ||..|
|00000bf0| 09 09 68 73 20 21 3d 20 | 53 65 74 74 69 6e 67 73 |..hs != |Settings|
|00000c00| 2e 68 61 6e 64 73 68 61 | 6b 65 29 20 7b 0d 09 09 |.handsha|ke) {...|
|00000c10| 53 65 74 74 69 6e 67 73 | 2e 70 6f 72 74 53 65 74 |Settings|.portSet|
|00000c20| 75 70 20 3d 20 73 65 74 | 75 70 3b 0d 09 09 53 65 |up = set|up;...Se|
|00000c30| 74 74 69 6e 67 73 2e 68 | 61 6e 64 73 68 61 6b 65 |ttings.h|andshake|
|00000c40| 20 3d 20 68 73 3b 0d 09 | 09 53 65 74 74 69 6e 67 | = hs;..|.Setting|
|00000c50| 73 2e 64 69 72 74 79 20 | 3d 20 54 52 55 45 3b 0d |s.dirty |= TRUE;.|
|00000c60| 09 09 53 65 72 69 61 6c | 43 6c 6f 73 65 28 29 3b |..Serial|Close();|
|00000c70| 0d 09 09 69 66 20 28 65 | 72 72 20 3d 20 53 65 72 |...if (e|rr = Ser|
|00000c80| 69 61 6c 4f 70 65 6e 28 | 70 6f 72 74 2c 53 65 74 |ialOpen(|port,Set|
|00000c90| 74 69 6e 67 73 2e 70 6f | 72 74 53 65 74 75 70 2c |tings.po|rtSetup,|
|00000ca0| 53 65 74 74 69 6e 67 73 | 2e 68 61 6e 64 73 68 61 |Settings|.handsha|
|00000cb0| 6b 65 29 29 0d 09 09 09 | 72 65 74 75 72 6e 20 65 |ke))....|return e|
|00000cc0| 72 72 3b 0d 09 7d 0d 09 | 69 66 20 28 28 64 74 72 |rr;..}..|if ((dtr|
|00000cd0| 20 3e 3d 20 30 20 26 26 | 20 64 74 72 20 3c 3d 20 | >= 0 &&| dtr <= |
|00000ce0| 31 29 20 26 26 20 64 74 | 72 20 21 3d 20 53 65 74 |1) && dt|r != Set|
|00000cf0| 74 69 6e 67 73 2e 64 72 | 6f 70 44 54 52 29 20 7b |tings.dr|opDTR) {|
|00000d00| 0d 09 09 53 65 74 74 69 | 6e 67 73 2e 64 72 6f 70 |...Setti|ngs.drop|
|00000d10| 44 54 52 20 3d 20 64 74 | 72 3b 0d 09 09 53 65 74 |DTR = dt|r;...Set|
|00000d20| 74 69 6e 67 73 2e 64 69 | 72 74 79 20 3d 20 54 52 |tings.di|rty = TR|
|00000d30| 55 45 3b 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 6e |UE;..}..|return n|
|00000d40| 6f 45 72 72 3b 0d 7d 0d | 0d 2f 2a 20 2d 2d 2d 2d |oErr;.}.|./* ----|
|00000d50| 2d 20 47 65 74 20 76 6f | 6c 75 6d 65 2f 64 69 72 |- Get vo|lume/dir|
|00000d60| 65 63 74 6f 72 79 20 66 | 6f 72 20 75 70 2d 20 61 |ectory f|or up- a|
|00000d70| 6e 64 20 64 6f 77 6e 6c | 6f 61 64 73 20 2d 2d 2d |nd downl|oads ---|
|00000d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d90| 2d 20 2a 2f 0d 0d 73 68 | 6f 72 74 20 46 6f 6c 64 |- */..sh|ort Fold|
|00000da0| 65 72 28 0d 09 72 65 67 | 69 73 74 65 72 20 73 68 |er(..reg|ister sh|
|00000db0| 6f 72 74 20 2a 76 6f 6c | 75 6d 65 2c 0d 09 72 65 |ort *vol|ume,..re|
|00000dc0| 67 69 73 74 65 72 20 6c | 6f 6e 67 20 2a 64 69 72 |gister l|ong *dir|
|00000dd0| 65 63 74 6f 72 79 29 0d | 7b 0d 09 2a 76 6f 6c 75 |ectory).|{..*volu|
|00000de0| 6d 65 20 3d 20 53 65 74 | 74 69 6e 67 73 2e 76 6f |me = Set|tings.vo|
|00000df0| 6c 75 6d 65 3b 0d 09 2a | 64 69 72 65 63 74 6f 72 |lume;..*|director|
|00000e00| 79 20 3d 20 53 65 74 74 | 69 6e 67 73 2e 64 69 72 |y = Sett|ings.dir|
|00000e10| 65 63 74 6f 72 79 3b 0d | 09 72 65 74 75 72 6e 20 |ectory;.|.return |
|00000e20| 46 49 4e 45 3b 0d 7d 0d | 0d 2f 2a 20 2d 2d 2d 2d |FINE;.}.|./* ----|
|00000e30| 2d 20 53 65 74 20 65 63 | 68 6f 20 6d 6f 64 65 73 |- Set ec|ho modes|
|00000e40| 20 61 6e 64 20 61 75 74 | 6f 4c 46 20 2d 2d 2d 2d | and aut|oLF ----|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e70| 2d 20 2a 2f 0d 0d 73 68 | 6f 72 74 20 54 65 72 6d |- */..sh|ort Term|
|00000e80| 69 6e 61 6c 53 65 74 75 | 70 28 0d 09 72 65 67 69 |inalSetu|p(..regi|
|00000e90| 73 74 65 72 20 73 68 6f | 72 74 20 6c 45 63 68 6f |ster sho|rt lEcho|
|00000ea0| 2c 0d 09 72 65 67 69 73 | 74 65 72 20 73 68 6f 72 |,..regis|ter shor|
|00000eb0| 74 20 72 45 63 68 6f 2c | 0d 09 72 65 67 69 73 74 |t rEcho,|..regist|
|00000ec0| 65 72 20 73 68 6f 72 74 | 20 61 75 74 6f 4c 46 2c |er short| autoLF,|
|00000ed0| 0d 09 72 65 67 69 73 74 | 65 72 20 73 68 6f 72 74 |..regist|er short|
|00000ee0| 20 73 61 76 65 29 0d 7b | 0d 09 69 66 20 28 6c 45 | save).{|..if (lE|
|00000ef0| 63 68 6f 20 3e 3d 20 30 | 20 26 26 20 6c 45 63 68 |cho >= 0| && lEch|
|00000f00| 6f 20 3c 3d 20 31 20 26 | 26 20 6c 45 63 68 6f 20 |o <= 1 &|& lEcho |
|00000f10| 21 3d 20 53 65 74 74 69 | 6e 67 73 2e 6c 6f 63 61 |!= Setti|ngs.loca|
|00000f20| 6c 45 63 68 6f 29 20 7b | 0d 09 09 53 65 74 74 69 |lEcho) {|...Setti|
|00000f30| 6e 67 73 2e 6c 6f 63 61 | 6c 45 63 68 6f 20 3d 20 |ngs.loca|lEcho = |
|00000f40| 6c 45 63 68 6f 3b 0d 09 | 09 53 65 74 74 69 6e 67 |lEcho;..|.Setting|
|00000f50| 73 2e 64 69 72 74 79 20 | 3d 20 54 52 55 45 3b 0d |s.dirty |= TRUE;.|
|00000f60| 09 7d 0d 09 69 66 20 28 | 72 45 63 68 6f 20 3e 3d |.}..if (|rEcho >=|
|00000f70| 20 30 20 26 26 20 72 45 | 63 68 6f 20 3c 3d 20 31 | 0 && rE|cho <= 1|
|00000f80| 20 26 26 20 72 45 63 68 | 6f 20 21 3d 20 53 65 74 | && rEch|o != Set|
|00000f90| 74 69 6e 67 73 2e 65 63 | 68 6f 29 20 7b 0d 09 09 |tings.ec|ho) {...|
|00000fa0| 53 65 74 74 69 6e 67 73 | 2e 65 63 68 6f 20 3d 20 |Settings|.echo = |
|00000fb0| 72 45 63 68 6f 3b 0d 09 | 09 53 65 74 74 69 6e 67 |rEcho;..|.Setting|
|00000fc0| 73 2e 64 69 72 74 79 20 | 3d 20 54 52 55 45 3b 0d |s.dirty |= TRUE;.|
|00000fd0| 09 7d 0d 09 69 66 20 28 | 61 75 74 6f 4c 46 20 3e |.}..if (|autoLF >|
|00000fe0| 3d 20 30 20 26 26 20 61 | 75 74 6f 4c 46 20 3c 3d |= 0 && a|utoLF <=|
|00000ff0| 20 31 20 26 26 20 61 75 | 74 6f 4c 46 20 21 3d 20 | 1 && au|toLF != |
|00001000| 53 65 74 74 69 6e 67 73 | 2e 61 75 74 6f 4c 46 29 |Settings|.autoLF)|
|00001010| 20 7b 0d 09 09 53 65 74 | 74 69 6e 67 73 2e 61 75 | {...Set|tings.au|
|00001020| 74 6f 4c 46 20 3d 20 61 | 75 74 6f 4c 46 3b 0d 09 |toLF = a|utoLF;..|
|00001030| 09 53 65 74 74 69 6e 67 | 73 2e 64 69 72 74 79 20 |.Setting|s.dirty |
|00001040| 3d 20 54 52 55 45 3b 0d | 09 7d 0d 09 69 66 20 28 |= TRUE;.|.}..if (|
|00001050| 73 61 76 65 20 3e 3d 20 | 30 20 26 26 20 73 61 76 |save >= |0 && sav|
|00001060| 65 20 3c 3d 20 31 20 26 | 26 20 73 61 76 65 20 21 |e <= 1 &|& save !|
|00001070| 3d 20 53 65 74 74 69 6e | 67 73 2e 73 61 76 65 29 |= Settin|gs.save)|
|00001080| 20 7b 0d 09 09 53 65 74 | 74 69 6e 67 73 2e 73 61 | {...Set|tings.sa|
|00001090| 76 65 20 3d 20 73 61 76 | 65 3b 0d 09 09 53 65 74 |ve = sav|e;...Set|
|000010a0| 74 69 6e 67 73 2e 64 69 | 72 74 79 20 3d 20 54 52 |tings.di|rty = TR|
|000010b0| 55 45 3b 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 46 |UE;..}..|return F|
|000010c0| 49 4e 45 3b 0d 7d 0d 0d | 2f 2a 20 2d 2d 2d 2d 2d |INE;.}..|/* -----|
|000010d0| 20 53 65 74 20 62 69 6e | 61 72 79 20 66 69 6c 65 | Set bin|ary file|
|000010e0| 20 74 72 61 6e 73 66 65 | 72 20 6f 70 74 69 6f 6e | transfe|r option|
|000010f0| 73 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |s ------|--------|
|00001100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001110| 20 2a 2f 0d 0d 73 68 6f | 72 74 20 54 72 61 6e 73 | */..sho|rt Trans|
|00001120| 66 65 72 53 65 74 75 70 | 28 0d 09 73 68 6f 72 74 |ferSetup|(..short|
|00001130| 20 62 69 6e 61 72 79 2c | 0d 09 73 68 6f 72 74 20 | binary,|..short |
|00001140| 63 69 73 2c 0d 09 73 68 | 6f 72 74 20 7a 6d 6f 64 |cis,..sh|ort zmod|
|00001150| 65 6d 2c 0d 09 73 68 6f | 72 74 20 7a 61 75 74 6f |em,..sho|rt zauto|
|00001160| 72 78 29 0d 7b 0d 09 69 | 66 20 28 62 69 6e 61 72 |rx).{..i|f (binar|
|00001170| 79 20 3e 3d 20 30 20 26 | 26 20 62 69 6e 61 72 79 |y >= 0 &|& binary|
|00001180| 20 3c 3d 20 31 20 26 26 | 20 62 69 6e 61 72 79 20 | <= 1 &&| binary |
|00001190| 21 3d 20 53 65 74 74 69 | 6e 67 73 2e 42 69 6e 61 |!= Setti|ngs.Bina|
|000011a0| 72 79 29 20 7b 0d 09 09 | 53 65 74 74 69 6e 67 73 |ry) {...|Settings|
|000011b0| 2e 42 69 6e 61 72 79 20 | 3d 20 62 69 6e 61 72 79 |.Binary |= binary|
|000011c0| 3b 0d 09 09 53 65 74 74 | 69 6e 67 73 2e 64 69 72 |;...Sett|ings.dir|
|000011d0| 74 79 20 3d 20 54 52 55 | 45 3b 0d 09 7d 0d 09 69 |ty = TRU|E;..}..i|
|000011e0| 66 20 28 63 69 73 20 3e | 3d 20 30 20 26 26 20 63 |f (cis >|= 0 && c|
|000011f0| 69 73 20 3c 3d 20 31 20 | 26 26 20 63 69 73 20 21 |is <= 1 |&& cis !|
|00001200| 3d 20 53 65 74 74 69 6e | 67 73 2e 70 72 6f 74 6f |= Settin|gs.proto|
|00001210| 63 6f 6c 29 20 7b 0d 09 | 09 53 65 74 74 69 6e 67 |col) {..|.Setting|
|00001220| 73 2e 70 72 6f 74 6f 63 | 6f 6c 20 3d 20 63 69 73 |s.protoc|ol = cis|
|00001230| 3b 0d 09 09 53 65 74 74 | 69 6e 67 73 2e 64 69 72 |;...Sett|ings.dir|
|00001240| 74 79 20 3d 20 54 52 55 | 45 3b 0d 09 7d 0d 09 69 |ty = TRU|E;..}..i|
|00001250| 66 20 28 7a 6d 6f 64 65 | 6d 20 3e 3d 20 30 20 26 |f (zmode|m >= 0 &|
|00001260| 26 20 7a 6d 6f 64 65 6d | 20 3c 3d 20 31 20 26 26 |& zmodem| <= 1 &&|
|00001270| 20 7a 6d 6f 64 65 6d 20 | 21 3d 20 53 65 74 74 69 | zmodem |!= Setti|
|00001280| 6e 67 73 2e 5a 4d 6f 64 | 65 6d 29 20 7b 0d 09 09 |ngs.ZMod|em) {...|
|00001290| 53 65 74 74 69 6e 67 73 | 2e 5a 4d 6f 64 65 6d 20 |Settings|.ZModem |
|000012a0| 3d 20 7a 6d 6f 64 65 6d | 3b 0d 09 09 53 65 74 74 |= zmodem|;...Sett|
|000012b0| 69 6e 67 73 2e 64 69 72 | 74 79 20 3d 20 54 52 55 |ings.dir|ty = TRU|
|000012c0| 45 3b 0d 09 7d 0d 09 69 | 66 20 28 7a 61 75 74 6f |E;..}..i|f (zauto|
|000012d0| 72 78 20 3e 3d 20 30 20 | 26 26 20 7a 61 75 74 6f |rx >= 0 |&& zauto|
|000012e0| 72 78 20 3c 3d 20 31 20 | 26 26 20 7a 61 75 74 6f |rx <= 1 |&& zauto|
|000012f0| 72 78 20 21 3d 20 53 65 | 74 74 69 6e 67 73 2e 5a |rx != Se|ttings.Z|
|00001300| 41 75 74 6f 52 65 63 65 | 69 76 65 29 20 7b 0d 09 |AutoRece|ive) {..|
|00001310| 09 53 65 74 74 69 6e 67 | 73 2e 5a 41 75 74 6f 52 |.Setting|s.ZAutoR|
|00001320| 65 63 65 69 76 65 20 3d | 20 7a 61 75 74 6f 72 78 |eceive =| zautorx|
|00001330| 3b 0d 09 09 53 65 74 74 | 69 6e 67 73 2e 64 69 72 |;...Sett|ings.dir|
|00001340| 74 79 20 3d 20 54 52 55 | 45 3b 0d 09 7d 0d 09 72 |ty = TRU|E;..}..r|
|00001350| 65 74 75 72 6e 20 46 49 | 4e 45 3b 0d 7d 0d 0d 2f |eturn FI|NE;.}../|
|00001360| 2a 20 2d 2d 2d 2d 2d 20 | 53 65 74 20 58 59 4d 6f |* ----- |Set XYMo|
|00001370| 64 65 6d 20 6f 70 74 69 | 6f 6e 73 20 2d 2d 2d 2d |dem opti|ons ----|
|00001380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013a0| 2d 2d 2d 2d 2d 2d 2d 20 | 2a 2f 0d 0d 73 68 6f 72 |------- |*/..shor|
|000013b0| 74 20 58 59 4d 6f 64 65 | 6d 53 65 74 75 70 28 0d |t XYMode|mSetup(.|
|000013c0| 09 42 6f 6f 6c 65 61 6e | 20 63 72 63 2c 0d 09 73 |.Boolean| crc,..s|
|000013d0| 68 6f 72 74 20 62 6c 6f | 63 6b 2c 0d 09 73 68 6f |hort blo|ck,..sho|
|000013e0| 72 74 20 62 61 74 63 68 | 2c 0d 09 6c 6f 6e 67 20 |rt batch|,..long |
|000013f0| 74 69 6d 65 6f 75 74 29 | 0d 7b 0d 09 69 66 20 28 |timeout)|.{..if (|
|00001400| 63 72 63 20 3e 3d 20 30 | 20 26 26 20 63 72 63 20 |crc >= 0| && crc |
|00001410| 3c 3d 20 31 20 26 26 20 | 63 72 63 20 21 3d 20 53 |<= 1 && |crc != S|
|00001420| 65 74 74 69 6e 67 73 2e | 58 4d 6f 64 65 6d 43 52 |ettings.|XModemCR|
|00001430| 43 29 20 7b 0d 09 09 53 | 65 74 74 69 6e 67 73 2e |C) {...S|ettings.|
|00001440| 58 4d 6f 64 65 6d 43 52 | 43 20 3d 20 63 72 63 3b |XModemCR|C = crc;|
|00001450| 0d 09 09 53 65 74 74 69 | 6e 67 73 2e 64 69 72 74 |...Setti|ngs.dirt|
|00001460| 79 20 3d 20 54 52 55 45 | 3b 0d 09 09 69 66 20 28 |y = TRUE|;...if (|
|00001470| 21 63 72 63 29 0d 09 09 | 09 53 65 74 74 69 6e 67 |!crc)...|.Setting|
|00001480| 73 2e 58 4d 6f 64 65 6d | 31 4b 20 3d 20 30 3b 0d |s.XModem|1K = 0;.|
|00001490| 09 7d 0d 09 69 66 20 28 | 62 6c 6f 63 6b 20 3e 3d |.}..if (|block >=|
|000014a0| 20 30 20 26 26 20 62 6c | 6f 63 6b 20 3c 3d 20 32 | 0 && bl|ock <= 2|
|000014b0| 20 26 26 20 62 6c 6f 63 | 6b 20 21 3d 20 53 65 74 | && bloc|k != Set|
|000014c0| 74 69 6e 67 73 2e 58 4d | 6f 64 65 6d 31 4b 29 20 |tings.XM|odem1K) |
|000014d0| 7b 0d 09 09 53 65 74 74 | 69 6e 67 73 2e 58 4d 6f |{...Sett|ings.XMo|
|000014e0| 64 65 6d 31 4b 20 3d 20 | 62 6c 6f 63 6b 3b 0d 09 |dem1K = |block;..|
|000014f0| 09 53 65 74 74 69 6e 67 | 73 2e 64 69 72 74 79 20 |.Setting|s.dirty |
|00001500| 3d 20 54 52 55 45 3b 0d | 09 7d 0d 09 69 66 20 28 |= TRUE;.|.}..if (|
|00001510| 62 61 74 63 68 20 3e 3d | 20 30 20 26 26 20 62 61 |batch >=| 0 && ba|
|00001520| 74 63 68 20 3c 3d 20 32 | 20 26 26 20 62 61 74 63 |tch <= 2| && batc|
|00001530| 68 20 21 3d 20 53 65 74 | 74 69 6e 67 73 2e 62 61 |h != Set|tings.ba|
|00001540| 74 63 68 29 20 7b 0d 09 | 09 53 65 74 74 69 6e 67 |tch) {..|.Setting|
|00001550| 73 2e 62 61 74 63 68 20 | 3d 20 62 61 74 63 68 3b |s.batch |= batch;|
|00001560| 0d 09 09 53 65 74 74 69 | 6e 67 73 2e 64 69 72 74 |...Setti|ngs.dirt|
|00001570| 79 20 3d 20 54 52 55 45 | 3b 0d 09 7d 0d 09 69 66 |y = TRUE|;..}..if|
|00001580| 20 28 74 69 6d 65 6f 75 | 74 20 3e 3d 20 30 20 26 | (timeou|t >= 0 &|
|00001590| 26 20 74 69 6d 65 6f 75 | 74 20 21 3d 20 53 65 74 |& timeou|t != Set|
|000015a0| 74 69 6e 67 73 2e 58 4d | 6f 64 65 6d 74 69 6d 65 |tings.XM|odemtime|
|000015b0| 6f 75 74 29 20 7b 0d 09 | 09 53 65 74 74 69 6e 67 |out) {..|.Setting|
|000015c0| 73 2e 58 4d 6f 64 65 6d | 74 69 6d 65 6f 75 74 20 |s.XModem|timeout |
|000015d0| 3d 20 74 69 6d 65 6f 75 | 74 3b 0d 09 09 53 65 74 |= timeou|t;...Set|
|000015e0| 74 69 6e 67 73 2e 64 69 | 72 74 79 20 3d 20 54 52 |tings.di|rty = TR|
|000015f0| 55 45 3b 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 46 |UE;..}..|return F|
|00001600| 49 4e 45 3b 0d 7d 0d 0d | 2f 2a 20 2d 2d 2d 2d 2d |INE;.}..|/* -----|
|00001610| 20 53 65 74 20 5a 4d 6f | 64 65 6d 20 6f 70 74 69 | Set ZMo|dem opti|
|00001620| 6f 6e 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ons ----|--------|
|00001630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001650| 20 2a 2f 0d 0d 73 68 6f | 72 74 20 5a 4d 6f 64 65 | */..sho|rt ZMode|
|00001660| 6d 53 65 74 75 70 28 0d | 09 42 6f 6f 6c 65 61 6e |mSetup(.|.Boolean|
|00001670| 20 65 73 63 63 74 6c 2c | 0d 09 6c 6f 6e 67 20 74 | escctl,|..long t|
|00001680| 69 6d 65 6f 75 74 2c 0d | 09 6c 6f 6e 67 20 72 65 |imeout,.|.long re|
|00001690| 74 72 69 65 73 2c 0d 09 | 6c 6f 6e 67 20 62 75 66 |tries,..|long buf|
|000016a0| 66 65 72 2c 0d 09 6c 6f | 6e 67 20 70 61 63 6b 65 |fer,..lo|ng packe|
|000016b0| 74 2c 0d 09 6c 6f 6e 67 | 20 77 69 6e 64 6f 77 2c |t,..long| window,|
|000016c0| 0d 09 6c 6f 6e 67 20 63 | 72 63 71 29 0d 7b 0d 09 |..long c|rcq).{..|
|000016d0| 69 66 20 28 65 73 63 63 | 74 6c 20 3e 3d 20 30 20 |if (escc|tl >= 0 |
|000016e0| 26 26 20 65 73 63 63 74 | 6c 20 3c 3d 20 31 20 26 |&& escct|l <= 1 &|
|000016f0| 26 20 65 73 63 63 74 6c | 20 21 3d 20 53 65 74 74 |& escctl| != Sett|
|00001700| 69 6e 67 73 2e 5a 45 73 | 63 61 70 65 43 74 6c 29 |ings.ZEs|capeCtl)|
|00001710| 20 7b 0d 09 09 53 65 74 | 74 69 6e 67 73 2e 5a 45 | {...Set|tings.ZE|
|00001720| 73 63 61 70 65 43 74 6c | 20 3d 20 65 73 63 63 74 |scapeCtl| = escct|
|00001730| 6c 3b 0d 09 7d 0d 09 69 | 66 20 28 74 69 6d 65 6f |l;..}..i|f (timeo|
|00001740| 75 74 20 3e 3d 20 30 20 | 26 26 20 74 69 6d 65 6f |ut >= 0 |&& timeo|
|00001750| 75 74 20 21 3d 20 53 65 | 74 74 69 6e 67 73 2e 5a |ut != Se|ttings.Z|
|00001760| 54 69 6d 65 6f 75 74 29 | 20 7b 0d 09 09 53 65 74 |Timeout)| {...Set|
|00001770| 74 69 6e 67 73 2e 5a 54 | 69 6d 65 6f 75 74 20 3d |tings.ZT|imeout =|
|00001780| 20 74 69 6d 65 6f 75 74 | 3b 0d 09 09 53 65 74 74 | timeout|;...Sett|
|00001790| 69 6e 67 73 2e 64 69 72 | 74 79 20 3d 20 54 52 55 |ings.dir|ty = TRU|
|000017a0| 45 3b 0d 09 7d 0d 09 69 | 66 20 28 62 75 66 66 65 |E;..}..i|f (buffe|
|000017b0| 72 20 3e 3d 20 30 20 26 | 26 20 62 75 66 66 65 72 |r >= 0 &|& buffer|
|000017c0| 20 3c 3d 20 30 78 37 46 | 46 46 20 26 26 20 62 75 | <= 0x7F|FF && bu|
|000017d0| 66 66 65 72 20 21 3d 20 | 53 65 74 74 69 6e 67 73 |ffer != |Settings|
|000017e0| 2e 5a 42 75 66 66 65 72 | 29 20 7b 0d 09 09 53 65 |.ZBuffer|) {...Se|
|000017f0| 74 74 69 6e 67 73 2e 5a | 42 75 66 66 65 72 20 3d |ttings.Z|Buffer =|
|00001800| 20 62 75 66 66 65 72 3b | 0d 09 09 53 65 74 74 69 | buffer;|...Setti|
|00001810| 6e 67 73 2e 64 69 72 74 | 79 20 3d 20 54 52 55 45 |ngs.dirt|y = TRUE|
|00001820| 3b 0d 09 7d 0d 09 69 66 | 20 28 72 65 74 72 69 65 |;..}..if| (retrie|
|00001830| 73 20 3e 3d 20 33 20 26 | 26 20 72 65 74 72 69 65 |s >= 3 &|& retrie|
|00001840| 73 20 3c 3d 20 33 30 20 | 26 26 20 72 65 74 72 69 |s <= 30 |&& retri|
|00001850| 65 73 20 21 3d 20 53 65 | 74 74 69 6e 67 73 2e 5a |es != Se|ttings.Z|
|00001860| 52 65 74 72 69 65 73 29 | 20 7b 0d 09 09 53 65 74 |Retries)| {...Set|
|00001870| 74 69 6e 67 73 2e 5a 52 | 65 74 72 69 65 73 20 3d |tings.ZR|etries =|
|00001880| 20 72 65 74 72 69 65 73 | 3b 0d 09 09 53 65 74 74 | retries|;...Sett|
|00001890| 69 6e 67 73 2e 64 69 72 | 74 79 20 3d 20 54 52 55 |ings.dir|ty = TRU|
|000018a0| 45 3b 0d 09 7d 0d 09 69 | 66 20 28 70 61 63 6b 65 |E;..}..i|f (packe|
|000018b0| 74 20 3e 3d 20 31 32 38 | 20 26 26 20 70 61 63 6b |t >= 128| && pack|
|000018c0| 65 74 20 3c 3d 20 31 30 | 32 34 20 26 26 20 70 61 |et <= 10|24 && pa|
|000018d0| 63 6b 65 74 20 21 3d 20 | 53 65 74 74 69 6e 67 73 |cket != |Settings|
|000018e0| 2e 5a 50 61 63 6b 65 74 | 29 20 7b 0d 09 09 53 65 |.ZPacket|) {...Se|
|000018f0| 74 74 69 6e 67 73 2e 5a | 50 61 63 6b 65 74 20 3d |ttings.Z|Packet =|
|00001900| 20 70 61 63 6b 65 74 3b | 0d 09 09 53 65 74 74 69 | packet;|...Setti|
|00001910| 6e 67 73 2e 64 69 72 74 | 79 20 3d 20 54 52 55 45 |ngs.dirt|y = TRUE|
|00001920| 3b 0d 09 7d 0d 09 69 66 | 20 28 77 69 6e 64 6f 77 |;..}..if| (window|
|00001930| 20 3e 3d 20 30 20 26 26 | 20 77 69 6e 64 6f 77 20 | >= 0 &&| window |
|00001940| 3c 3d 20 30 78 37 46 46 | 46 20 26 26 20 77 69 6e |<= 0x7FF|F && win|
|00001950| 64 6f 77 20 21 3d 20 53 | 65 74 74 69 6e 67 73 2e |dow != S|ettings.|
|00001960| 5a 57 69 6e 64 6f 77 29 | 20 7b 0d 09 09 53 65 74 |ZWindow)| {...Set|
|00001970| 74 69 6e 67 73 2e 5a 57 | 69 6e 64 6f 77 20 3d 20 |tings.ZW|indow = |
|00001980| 77 69 6e 64 6f 77 3b 0d | 09 09 53 65 74 74 69 6e |window;.|..Settin|
|00001990| 67 73 2e 64 69 72 74 79 | 20 3d 20 54 52 55 45 3b |gs.dirty| = TRUE;|
|000019a0| 0d 09 7d 0d 09 69 66 20 | 28 63 72 63 71 20 3e 3d |..}..if |(crcq >=|
|000019b0| 20 30 20 26 26 20 63 72 | 63 71 20 3c 3d 20 30 78 | 0 && cr|cq <= 0x|
|000019c0| 37 46 46 46 20 26 26 20 | 63 72 63 71 20 21 3d 20 |7FFF && |crcq != |
|000019d0| 53 65 74 74 69 6e 67 73 | 2e 5a 63 72 63 71 29 20 |Settings|.Zcrcq) |
|000019e0| 7b 0d 09 09 53 65 74 74 | 69 6e 67 73 2e 5a 63 72 |{...Sett|ings.Zcr|
|000019f0| 63 71 20 3d 20 63 72 63 | 71 3b 0d 09 09 53 65 74 |cq = crc|q;...Set|
|00001a00| 74 69 6e 67 73 2e 64 69 | 72 74 79 20 3d 20 54 52 |tings.di|rty = TR|
|00001a10| 55 45 3b 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 46 |UE;..}..|return F|
|00001a20| 49 4e 45 3b 0d 7d 0d 0d | 2f 2a 20 2d 2d 2d 2d 2d |INE;.}..|/* -----|
|00001a30| 20 54 65 78 74 20 66 69 | 6c 65 20 73 65 6e 64 20 | Text fi|le send |
|00001a40| 70 61 72 61 6d 65 74 65 | 72 73 20 73 65 74 75 70 |paramete|rs setup|
|00001a50| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00001a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a70| 20 2a 2f 0d 0d 73 68 6f | 72 74 20 54 65 78 74 73 | */..sho|rt Texts|
|00001a80| 65 6e 64 53 65 74 75 70 | 28 0d 09 72 65 67 69 73 |endSetup|(..regis|
|00001a90| 74 65 72 20 42 79 74 65 | 20 2a 70 72 6f 6d 70 74 |ter Byte| *prompt|
|00001aa0| 2c 0d 09 72 65 67 69 73 | 74 65 72 20 6c 6f 6e 67 |,..regis|ter long|
|00001ab0| 20 6c 69 6e 65 64 65 6c | 61 79 2c 0d 09 72 65 67 | linedel|ay,..reg|
|00001ac0| 69 73 74 65 72 20 6c 6f | 6e 67 20 63 68 61 72 64 |ister lo|ng chard|
|00001ad0| 65 6c 61 79 29 0d 7b 0d | 09 69 66 20 28 28 6c 6f |elay).{.|.if ((lo|
|00001ae0| 6e 67 29 70 72 6f 6d 70 | 74 29 20 7b 0d 09 09 42 |ng)promp|t) {...B|
|00001af0| 79 74 65 20 73 5b 32 35 | 36 5d 3b 0d 09 09 6d 65 |yte s[25|6];...me|
|00001b00| 6d 63 70 79 28 73 2c 20 | 70 72 6f 6d 70 74 2c 20 |mcpy(s, |prompt, |
|00001b10| 2a 70 72 6f 6d 70 74 20 | 2b 20 31 29 3b 0d 09 09 |*prompt |+ 1);...|
|00001b20| 69 66 20 28 2a 73 20 3e | 20 73 69 7a 65 6f 66 28 |if (*s >| sizeof(|
|00001b30| 53 65 74 74 69 6e 67 73 | 2e 70 72 6f 6d 70 74 29 |Settings|.prompt)|
|00001b40| 20 2d 20 31 29 0d 09 09 | 09 2a 73 20 3d 20 73 69 | - 1)...|.*s = si|
|00001b50| 7a 65 6f 66 28 53 65 74 | 74 69 6e 67 73 2e 70 72 |zeof(Set|tings.pr|
|00001b60| 6f 6d 70 74 29 20 2d 20 | 31 3b 0d 09 09 69 66 20 |ompt) - |1;...if |
|00001b70| 28 21 45 71 75 61 6c 53 | 74 72 69 6e 67 28 73 2c |(!EqualS|tring(s,|
|00001b80| 20 53 65 74 74 69 6e 67 | 73 2e 70 72 6f 6d 70 74 | Setting|s.prompt|
|00001b90| 2c 20 46 41 4c 53 45 2c | 20 46 41 4c 53 45 29 29 |, FALSE,| FALSE))|
|00001ba0| 20 7b 0d 09 09 09 6d 65 | 6d 63 70 79 28 53 65 74 | {....me|mcpy(Set|
|00001bb0| 74 69 6e 67 73 2e 70 72 | 6f 6d 70 74 2c 20 73 2c |tings.pr|ompt, s,|
|00001bc0| 20 2a 73 20 2b 20 31 29 | 3b 0d 09 09 09 53 65 74 | *s + 1)|;....Set|
|00001bd0| 74 69 6e 67 73 2e 64 69 | 72 74 79 20 3d 20 54 52 |tings.di|rty = TR|
|00001be0| 55 45 3b 0d 09 09 7d 0d | 09 7d 0d 09 69 66 20 28 |UE;...}.|.}..if (|
|00001bf0| 6c 69 6e 65 64 65 6c 61 | 79 20 3e 3d 20 30 20 26 |linedela|y >= 0 &|
|00001c00| 26 20 6c 69 6e 65 64 65 | 6c 61 79 20 21 3d 20 53 |& linede|lay != S|
|00001c10| 65 74 74 69 6e 67 73 2e | 6c 69 6e 65 64 65 6c 61 |ettings.|linedela|
|00001c20| 79 29 20 7b 0d 09 09 53 | 65 74 74 69 6e 67 73 2e |y) {...S|ettings.|
|00001c30| 6c 69 6e 65 64 65 6c 61 | 79 20 3d 20 6c 69 6e 65 |linedela|y = line|
|00001c40| 64 65 6c 61 79 3b 0d 09 | 09 53 65 74 74 69 6e 67 |delay;..|.Setting|
|00001c50| 73 2e 64 69 72 74 79 20 | 3d 20 54 52 55 45 3b 0d |s.dirty |= TRUE;.|
|00001c60| 09 7d 0d 09 69 66 20 28 | 63 68 61 72 64 65 6c 61 |.}..if (|chardela|
|00001c70| 79 20 3e 3d 20 30 20 26 | 26 20 63 68 61 72 64 65 |y >= 0 &|& charde|
|00001c80| 6c 61 79 20 21 3d 20 53 | 65 74 74 69 6e 67 73 2e |lay != S|ettings.|
|00001c90| 63 68 61 72 64 65 6c 61 | 79 29 20 7b 0d 09 09 53 |chardela|y) {...S|
|00001ca0| 65 74 74 69 6e 67 73 2e | 63 68 61 72 64 65 6c 61 |ettings.|chardela|
|00001cb0| 79 20 3d 20 63 68 61 72 | 64 65 6c 61 79 3b 0d 09 |y = char|delay;..|
|00001cc0| 09 53 65 74 74 69 6e 67 | 73 2e 64 69 72 74 79 20 |.Setting|s.dirty |
|00001cd0| 3d 20 54 52 55 45 3b 0d | 09 7d 0d 09 72 65 74 75 |= TRUE;.|.}..retu|
|00001ce0| 72 6e 20 46 49 4e 45 3b | 0d 7d 0d 0d 2f 2a 20 2d |rn FINE;|.}../* -|
|00001cf0| 2d 2d 2d 2d 20 52 65 63 | 65 69 76 65 20 62 69 6e |---- Rec|eive bin|
|00001d00| 61 72 79 20 66 69 6c 65 | 20 2d 2d 2d 2d 2d 2d 2d |ary file| -------|
|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 2d 20 2a 2f 0d | 0d 73 68 6f 72 74 20 44 |---- */.|.short D|
|00001d40| 6f 77 6e 6c 6f 61 64 28 | 0d 09 72 65 67 69 73 74 |ownload(|..regist|
|00001d50| 65 72 20 42 79 74 65 20 | 2a 6e 61 6d 65 2c 09 09 |er Byte |*name,..|
|00001d60| 09 2f 2a 20 46 69 6c 65 | 20 6e 61 6d 65 20 2a 2f |./* File| name */|
|00001d70| 0d 09 72 65 67 69 73 74 | 65 72 20 42 6f 6f 6c 65 |..regist|er Boole|
|00001d80| 61 6e 20 4d 61 63 42 69 | 6e 61 72 79 2c 0d 09 73 |an MacBi|nary,..s|
|00001d90| 68 6f 72 74 20 70 72 6f | 74 6f 63 6f 6c 29 0d 7b |hort pro|tocol).{|
|00001da0| 0d 09 72 65 67 69 73 74 | 65 72 20 73 68 6f 72 74 |..regist|er short|
|00001db0| 20 65 72 72 3b 0d 09 72 | 65 67 69 73 74 65 72 20 | err;..r|egister |
|00001dc0| 42 6f 6f 6c 65 61 6e 20 | 62 69 6e 61 72 79 3b 0d |Boolean |binary;.|
|00001dd0| 0d 09 62 69 6e 61 72 79 | 20 3d 20 53 65 74 74 69 |..binary| = Setti|
|00001de0| 6e 67 73 2e 42 69 6e 61 | 72 79 3b 09 09 09 2f 2a |ngs.Bina|ry;.../*|
|00001df0| 20 53 61 76 65 20 4d 61 | 63 42 69 6e 61 72 79 20 | Save Ma|cBinary |
|00001e00| 66 6c 61 67 20 2a 2f 0d | 09 53 65 74 74 69 6e 67 |flag */.|.Setting|
|00001e10| 73 2e 42 69 6e 61 72 79 | 20 3d 20 4d 61 63 42 69 |s.Binary| = MacBi|
|00001e20| 6e 61 72 79 3b 0d 0d 09 | 69 66 20 28 70 72 6f 74 |nary;...|if (prot|
|00001e30| 6f 63 6f 6c 20 3d 3d 20 | 31 29 20 7b 09 09 09 09 |ocol == |1) {....|
|00001e40| 2f 2a 20 5a 4d 6f 64 65 | 6d 20 2a 2f 0d 09 09 65 |/* ZMode|m */...e|
|00001e50| 72 72 20 3d 20 5a 52 65 | 63 65 69 76 65 28 29 3b |rr = ZRe|ceive();|
|00001e60| 0d 09 09 55 6e 6c 6f 61 | 64 53 65 67 28 5a 52 65 |...Unloa|dSeg(ZRe|
|00001e70| 63 65 69 76 65 29 3b 0d | 09 7d 20 65 6c 73 65 20 |ceive);.|.} else |
|00001e80| 7b 09 09 09 09 09 09 09 | 2f 2a 20 58 59 4d 6f 64 |{.......|/* XYMod|
|00001e90| 65 6d 20 2a 2f 0d 09 09 | 53 65 72 69 61 6c 42 69 |em */...|SerialBi|
|00001ea0| 6e 61 72 79 28 53 65 74 | 74 69 6e 67 73 2e 70 6f |nary(Set|tings.po|
|00001eb0| 72 74 53 65 74 75 70 29 | 3b 0d 09 09 44 65 6c 65 |rtSetup)|;...Dele|
|00001ec0| 74 65 46 69 6c 65 28 53 | 65 74 74 69 6e 67 73 2e |teFile(S|ettings.|
|00001ed0| 76 6f 6c 75 6d 65 2c 20 | 53 65 74 74 69 6e 67 73 |volume, |Settings|
|00001ee0| 2e 64 69 72 65 63 74 6f | 72 79 2c 20 6e 61 6d 65 |.directo|ry, name|
|00001ef0| 29 3b 0d 09 09 65 72 72 | 20 3d 20 58 52 65 63 65 |);...err| = XRece|
|00001f00| 69 76 65 28 6e 61 6d 65 | 2c 20 53 65 74 74 69 6e |ive(name|, Settin|
|00001f10| 67 73 2e 76 6f 6c 75 6d | 65 2c 20 53 65 74 74 69 |gs.volum|e, Setti|
|00001f20| 6e 67 73 2e 64 69 72 65 | 63 74 6f 72 79 29 3b 0d |ngs.dire|ctory);.|
|00001f30| 09 09 55 6e 6c 6f 61 64 | 53 65 67 28 58 52 65 63 |..Unload|Seg(XRec|
|00001f40| 65 69 76 65 29 3b 0d 09 | 09 53 65 72 69 61 6c 52 |eive);..|.SerialR|
|00001f50| 65 73 65 74 28 53 65 74 | 74 69 6e 67 73 2e 70 6f |eset(Set|tings.po|
|00001f60| 72 74 53 65 74 75 70 29 | 3b 0d 09 7d 0d 0d 09 53 |rtSetup)|;..}...S|
|00001f70| 65 74 74 69 6e 67 73 2e | 42 69 6e 61 72 79 20 3d |ettings.|Binary =|
|00001f80| 20 62 69 6e 61 72 79 3b | 09 09 09 2f 2a 20 52 65 | binary;|.../* Re|
|00001f90| 73 74 6f 72 65 20 4d 61 | 63 42 69 6e 61 72 79 20 |store Ma|cBinary |
|00001fa0| 66 6c 61 67 20 2a 2f 0d | 09 46 6c 75 73 68 56 6f |flag */.|.FlushVo|
|00001fb0| 6c 28 30 2c 20 53 65 74 | 74 69 6e 67 73 2e 76 6f |l(0, Set|tings.vo|
|00001fc0| 6c 75 6d 65 29 3b 0d 09 | 72 65 74 75 72 6e 20 65 |lume);..|return e|
|00001fd0| 72 72 3b 0d 7d 0d 0d 2f | 2a 20 2d 2d 2d 2d 2d 20 |rr;.}../|* ----- |
|00001fe0| 54 72 61 6e 73 6d 69 74 | 20 62 69 6e 61 72 79 20 |Transmit| binary |
|00001ff0| 66 69 6c 65 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |file ---|--------|
|00002000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00002020| 2a 2f 0d 0d 73 68 6f 72 | 74 20 55 70 6c 6f 61 64 |*/..shor|t Upload|
|00002030| 28 0d 09 72 65 67 69 73 | 74 65 72 20 42 79 74 65 |(..regis|ter Byte|
|00002040| 20 2a 6e 61 6d 65 2c 09 | 09 09 2f 2a 20 46 69 6c | *name,.|../* Fil|
|00002050| 65 20 6e 61 6d 65 20 2a | 2f 0d 09 72 65 67 69 73 |e name *|/..regis|
|00002060| 74 65 72 20 42 6f 6f 6c | 65 61 6e 20 4d 61 63 42 |ter Bool|ean MacB|
|00002070| 69 6e 61 72 79 2c 0d 09 | 73 68 6f 72 74 20 70 72 |inary,..|short pr|
|00002080| 6f 74 6f 63 6f 6c 29 0d | 7b 0d 09 72 65 67 69 73 |otocol).|{..regis|
|00002090| 74 65 72 20 73 68 6f 72 | 74 20 65 72 72 3b 0d 09 |ter shor|t err;..|
|000020a0| 72 65 67 69 73 74 65 72 | 20 42 6f 6f 6c 65 61 6e |register| Boolean|
|000020b0| 20 62 69 6e 61 72 79 3b | 0d 0d 09 62 69 6e 61 72 | binary;|...binar|
|000020c0| 79 20 3d 20 53 65 74 74 | 69 6e 67 73 2e 42 69 6e |y = Sett|ings.Bin|
|000020d0| 61 72 79 3b 09 09 09 2f | 2a 20 53 61 76 65 20 4d |ary;.../|* Save M|
|000020e0| 61 63 42 69 6e 61 72 79 | 20 66 6c 61 67 20 2a 2f |acBinary| flag */|
|000020f0| 0d 09 53 65 74 74 69 6e | 67 73 2e 42 69 6e 61 72 |..Settin|gs.Binar|
|00002100| 79 20 3d 20 4d 61 63 42 | 69 6e 61 72 79 3b 0d 0d |y = MacB|inary;..|
|00002110| 09 69 66 20 28 70 72 6f | 74 6f 63 6f 6c 20 3d 3d |.if (pro|tocol ==|
|00002120| 20 31 29 20 7b 09 09 09 | 09 2f 2a 20 5a 4d 6f 64 | 1) {...|./* ZMod|
|00002130| 65 6d 20 2a 2f 0d 09 09 | 65 72 72 20 3d 20 5a 54 |em */...|err = ZT|
|00002140| 72 61 6e 73 6d 69 74 28 | 6e 61 6d 65 2c 20 53 65 |ransmit(|name, Se|
|00002150| 74 74 69 6e 67 73 2e 76 | 6f 6c 75 6d 65 2c 20 53 |ttings.v|olume, S|
|00002160| 65 74 74 69 6e 67 73 2e | 64 69 72 65 63 74 6f 72 |ettings.|director|
|00002170| 79 29 3b 0d 09 09 55 6e | 6c 6f 61 64 53 65 67 28 |y);...Un|loadSeg(|
|00002180| 5a 54 72 61 6e 73 6d 69 | 74 29 3b 0d 09 7d 20 65 |ZTransmi|t);..} e|
|00002190| 6c 73 65 20 7b 09 09 09 | 09 09 09 09 2f 2a 20 58 |lse {...|..../* X|
|000021a0| 59 4d 6f 64 65 6d 20 2a | 2f 0d 09 09 53 65 72 69 |YModem *|/...Seri|
|000021b0| 61 6c 42 69 6e 61 72 79 | 28 53 65 74 74 69 6e 67 |alBinary|(Setting|
|000021c0| 73 2e 70 6f 72 74 53 65 | 74 75 70 29 3b 0d 09 09 |s.portSe|tup);...|
|000021d0| 65 72 72 20 3d 20 58 54 | 72 61 6e 73 6d 69 74 28 |err = XT|ransmit(|
|000021e0| 6e 61 6d 65 2c 20 53 65 | 74 74 69 6e 67 73 2e 76 |name, Se|ttings.v|
|000021f0| 6f 6c 75 6d 65 2c 20 53 | 65 74 74 69 6e 67 73 2e |olume, S|ettings.|
|00002200| 64 69 72 65 63 74 6f 72 | 79 29 3b 0d 09 09 55 6e |director|y);...Un|
|00002210| 6c 6f 61 64 53 65 67 28 | 58 54 72 61 6e 73 6d 69 |loadSeg(|XTransmi|
|00002220| 74 29 3b 0d 09 09 53 65 | 72 69 61 6c 52 65 73 65 |t);...Se|rialRese|
|00002230| 74 28 53 65 74 74 69 6e | 67 73 2e 70 6f 72 74 53 |t(Settin|gs.portS|
|00002240| 65 74 75 70 29 3b 0d 09 | 7d 0d 0d 09 53 65 74 74 |etup);..|}...Sett|
|00002250| 69 6e 67 73 2e 42 69 6e | 61 72 79 20 3d 20 62 69 |ings.Bin|ary = bi|
|00002260| 6e 61 72 79 3b 09 09 09 | 2f 2a 20 52 65 73 74 6f |nary;...|/* Resto|
|00002270| 72 65 20 4d 61 63 42 69 | 6e 61 72 79 20 66 6c 61 |re MacBi|nary fla|
|00002280| 67 20 2a 2f 0d 09 72 65 | 74 75 72 6e 20 65 72 72 |g */..re|turn err|
|00002290| 3b 0d 7d 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |;.}.....|........|
|000022a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002300| 00 00 01 00 00 00 01 d4 | 00 00 00 d4 00 00 00 32 |........|.......2|
|00002310| 74 75 72 6e 3b 0d 09 43 | 52 45 46 4e 55 4d 28 63 |turn;..C|REFNUM(c|
|00002320| 29 20 3d 20 4f 55 54 50 | 55 54 3b 0d 09 63 2e 63 |) = OUTP|UT;..c.c|
|00002330| 0b 50 72 6f 63 65 64 75 | 72 65 2e 63 02 00 00 00 |.Procedu|re.c....|
|00002340| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|00002350| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 a7 d3 7e 55 00 00 | 00 00 00 00 02 06 63 2c |....~U..|......c,|
|00002380| 20 46 41 4c 53 45 29 3b | 0d 7d 0d 0d 2f 2a 20 2d | FALSE);|.}../* -|
|00002390| 2d 2d 2d 2d 20 53 65 74 | 20 73 65 72 69 61 6c 20 |---- Set| serial |
|000023a0| 68 61 6e 64 73 68 61 6b | 65 20 2d 2d 2d 2d 2d 2d |handshak|e ------|
|000023b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023d0| 2d 2d 2d 2d 20 2a 2f 0d | 0d 76 6f 69 64 20 53 65 |---- */.|.void Se|
|000023e0| 72 69 61 6c 48 61 6e 64 | 73 68 61 6b 65 28 0d 09 |rialHand|shake(..|
|000023f0| 72 65 67 69 73 74 65 72 | 20 73 68 6f 72 74 20 68 |register| short h|
|00002400| 00 00 00 d0 00 0b 00 00 | 01 ac 00 00 01 b0 05 54 |........|.......T|
|00002410| 79 70 65 00 00 00 06 f2 | 00 00 06 f9 07 44 69 73 |ype.....|.....Dis|
|00002420| 70 6c 61 79 00 00 07 9c | 00 00 07 a5 09 50 6f 72 |play....|.....Por|
|00002430| 74 53 65 74 55 70 00 00 | 0d 1c 00 00 0d 22 07 46 |tSetUp..|.....".F|
|00002440| 6f 6c 64 65 72 00 00 00 | 0d fc 00 00 0e 09 0d 54 |older...|.......T|
|00002450| 65 72 6d 69 6e 61 6c 53 | 65 74 75 70 00 00 10 9b |erminalS|etup....|
|00002460| 00 00 10 a8 0d 54 72 61 | 6e 73 66 65 72 53 65 74 |.....Tra|nsferSet|
|00002470| 75 70 00 00 13 32 00 00 | 13 3e 0d 58 59 4d 6f 64 |up...2..|.>.XYMod|
|00002480| 65 6d 53 65 74 75 70 00 | 00 00 15 db 00 00 15 e6 |emSetup.|........|
|00002490| 0b 5a 4d 6f 64 65 6d 53 | 65 74 75 70 00 00 19 fb |.ZModemS|etup....|
|000024a0| 00 00 1a 08 0d 54 65 78 | 74 73 65 6e 64 53 65 74 |.....Tex|tsendSet|
|000024b0| 75 70 00 00 1c bf 00 00 | 1c c7 09 44 6f 77 6e 6c |up......|...Downl|
|000024c0| 6f 61 64 00 00 00 1f aa | 00 00 1f b0 07 55 70 6c |oad.....|.....Upl|
|000024d0| 6f 61 64 00 00 00 01 00 | 00 00 01 d4 00 00 00 d4 |oad.....|........|
|000024e0| 00 00 00 32 00 6e 83 a8 | 07 5a 00 00 00 1c 00 32 |...2.n..|.Z.....2|
|000024f0| 00 00 4d 50 53 52 00 00 | 00 0a 03 ef ff ff 00 00 |..MPSR..|........|
|00002500| 00 00 00 6e b3 f4 00 00 | 00 00 00 00 00 00 00 00 |...n....|........|
|00002510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+