/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 11 code / The NetWork Project.sea / The NetWork Project / NetWork Programmer's Stuff / Scheduler.history

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 53 63 68 65 64 75 | 6c 65 72 2e 68 69 73 74 |..Schedu|ler.hist|
|00000010| 6f 72 79 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ory.....|........|
|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 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 1e 96 00 | 00 01 ef a6 8a 3a 75 a6 |........|.....:u.|
|00000060| 8a 3a 75 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.:u.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 cb c4 00 00 |........|........|
|00000080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 0d 61 | 6c 6c 20 76 65 72 73 69 |======.a|ll versi|
|000000b0| 6f 6e 20 6e 72 73 20 72 | 65 66 65 72 20 74 6f 20 |on nrs r|efer to |
|000000c0| 73 63 68 65 64 75 6c 65 | 72 2e 69 6e 63 0d 3d 3d |schedule|r.inc.==|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000f0| 3d 3d 3d 3d 0d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |====.===|========|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 0d 48 6f 77 | 20 74 6f 20 6d 6f 76 65 |====.How| to move|
|00000130| 20 66 72 6f 6d 20 53 63 | 68 65 64 75 6c 65 72 20 | from Sc|heduler |
|00000140| 30 2e 39 20 74 6f 20 53 | 63 68 65 64 75 6c 65 72 |0.9 to S|cheduler|
|00000150| 20 31 2e 78 0d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | 1.x.===|========|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000180| 3d 3d 3d 3d 0d 43 68 61 | 6e 67 65 20 65 76 65 6e |====.Cha|nge even|
|00000190| 74 20 6c 6f 6f 70 3a 0d | 09 72 65 70 6c 61 63 65 |t loop:.|.replace|
|000001a0| 20 63 61 6c 6c 20 74 6f | 20 53 63 68 65 64 75 6c | call to| Schedul|
|000001b0| 65 72 2e 74 61 73 6b 20 | 62 79 20 63 61 6c 6c 20 |er.task |by call |
|000001c0| 74 6f 20 53 63 68 65 64 | 75 6c 65 72 2e 50 65 72 |to Sched|uler.Per|
|000001d0| 69 6f 64 69 63 54 61 73 | 6b 2e 0d 09 61 64 64 20 |iodicTas|k...add |
|000001e0| 4e 65 74 57 6f 72 6b 45 | 76 65 6e 74 73 20 69 6e |NetWorkE|vents in|
|000001f0| 20 74 68 65 20 65 76 65 | 6e 74 20 6c 6f 6f 70 20 | the eve|nt loop |
|00000200| 63 61 73 65 20 6c 69 73 | 74 3a 0d 09 09 7b 2a 2a |case lis|t:...{**|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000220| 2a 7d 0d 09 09 4e 65 74 | 57 6f 72 6b 45 76 74 3a |*}...Net|WorkEvt:|
|00000230| 20 53 63 68 65 64 75 6c | 65 72 2e 48 61 6e 64 6c | Schedul|er.Handl|
|00000240| 65 4d 73 67 28 4d 73 67 | 50 74 72 28 6d 65 73 73 |eMsg(Msg|Ptr(mess|
|00000250| 61 67 65 29 29 3b 0d 09 | 09 7b 2a 2a 2a 2a 2a 2a |age));..|.{******|
|00000260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 7d 0d 43 |********|*****}.C|
|00000270| 68 61 6e 67 65 20 4e 65 | 77 54 61 73 6b 2e 0d 09 |hange Ne|wTask...|
|00000280| 74 68 65 20 64 65 66 61 | 75 6c 74 73 20 61 72 65 |the defa|ults are|
|00000290| 20 6e 6f 77 20 70 61 73 | 73 65 64 20 69 6e 20 61 | now pas|sed in a|
|000002a0| 20 4d 73 67 52 65 63 20 | 73 74 72 75 63 74 75 72 | MsgRec |structur|
|000002b0| 65 2e 20 55 73 65 20 69 | 6e 68 65 72 69 74 65 64 |e. Use i|nherited|
|000002c0| 20 4e 65 77 54 61 73 6b | 20 69 6e 73 74 65 61 64 | NewTask| instead|
|000002d0| 20 6f 66 0d 09 72 65 61 | 64 69 6e 67 20 74 68 65 | of..rea|ding the|
|000002e0| 20 73 63 68 65 64 75 6c | 65 72 20 66 69 65 6c 64 | schedul|er field|
|000002f0| 73 2e 0d 52 65 76 69 73 | 65 20 62 75 66 66 65 72 |s..Revis|e buffer|
|00000300| 20 68 61 6e 64 6c 69 6e | 67 2e 0d 09 49 6e 73 74 | handlin|g...Inst|
|00000310| 65 61 64 20 6f 66 20 61 | 20 6c 61 74 63 68 65 64 |ead of a| latched|
|00000320| 20 62 75 66 66 65 72 2c | 20 62 75 66 66 65 72 20 | buffer,| buffer |
|00000330| 68 61 6e 64 6c 69 6e 67 | 20 6e 6f 77 20 69 73 20 |handling| now is |
|00000340| 64 6f 6e 65 20 62 79 20 | 70 72 6f 63 65 64 75 72 |done by |procedur|
|00000350| 65 73 2e 0d 09 53 65 65 | 20 72 65 6d 61 72 6b 20 |es...See| remark |
|00000360| 66 6f 72 20 31 2e 31 2d | 37 2e 0d 0d 3d 3d 3d 3d |for 1.1-|7...====|
|00000370| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 48 69 73 74 |========|===.Hist|
|000003a0| 6f 72 79 0d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ory.====|========|
|000003b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003d0| 3d 3d 3d 0d 0d 09 72 65 | 6e 61 6d 65 64 20 73 63 |===...re|named sc|
|000003e0| 68 65 64 75 6c 65 72 2e | 69 6e 63 20 74 6f 20 73 |heduler.|inc to s|
|000003f0| 63 68 65 64 75 6c 65 72 | 2e 69 6e 63 2e 70 20 66 |cheduler|.inc.p f|
|00000400| 6f 72 20 4d 6f 75 73 65 | 72 2f 4d 61 63 42 72 6f |or Mouse|r/MacBro|
|00000410| 77 73 65 0d 3d 3d 3d 3d | 3d 3d 0d 31 2e 31 2d 30 |wse.====|==.1.1-0|
|00000420| 45 0d 3d 3d 3d 3d 3d 3d | 0d 09 63 68 61 6e 67 65 |E.======|..change|
|00000430| 20 70 61 72 61 6d 65 74 | 65 72 20 66 72 6f 6d 20 | paramet|er from |
|00000440| 70 74 72 20 74 6f 20 68 | 61 6e 64 6c 65 20 69 6e |ptr to h|andle in|
|00000450| 20 4d 65 6d 62 65 72 4b | 6c 75 64 67 65 2e 0d 0d | MemberK|ludge...|
|00000460| 3d 3d 3d 3d 3d 3d 0d 31 | 2e 31 2d 30 44 0d 3d 3d |======.1|.1-0D.==|
|00000470| 3d 3d 3d 3d 0d 09 63 6f | 72 72 65 63 74 65 64 20 |====..co|rrected |
|00000480| 4d 65 6d 62 65 72 4b 6c | 75 64 67 65 20 74 6f 20 |MemberKl|udge to |
|00000490| 61 63 63 6f 75 6e 74 20 | 66 6f 72 20 74 77 6f 20 |account |for two |
|000004a0| 62 79 74 65 20 68 65 61 | 64 65 72 20 69 6e 20 6f |byte hea|der in o|
|000004b0| 62 6a 65 63 74 20 64 61 | 74 61 20 73 74 72 75 63 |bject da|ta struc|
|000004c0| 74 75 72 65 2e 0d 09 69 | 6e 74 72 6f 64 75 63 65 |ture...i|ntroduce|
|000004d0| 64 20 47 65 74 53 6c 65 | 65 70 2e 0d 09 0d 3d 3d |d GetSle|ep....==|
|000004e0| 3d 3d 3d 3d 0d 31 2e 31 | 2d 30 43 0d 3d 3d 3d 3d |====.1.1|-0C.====|
|000004f0| 3d 3d 0d 09 63 68 61 6e | 67 65 64 20 64 65 6c 61 |==..chan|ged dela|
|00000500| 79 20 66 72 6f 6d 20 69 | 6e 74 65 67 65 72 20 74 |y from i|nteger t|
|00000510| 6f 20 6c 6f 6e 67 69 6e | 74 2e 0d 09 72 65 6e 61 |o longin|t...rena|
|00000520| 6d 65 64 20 63 6f 68 61 | 6e 64 6c 65 72 20 66 69 |med coha|ndler fi|
|00000530| 65 6c 64 73 0d 09 09 54 | 61 73 6b 41 64 64 72 3a |elds...T|askAddr:|
|00000540| 09 09 4d 73 67 41 64 64 | 72 3b 09 09 09 7b 74 68 |..MsgAdd|r;...{th|
|00000550| 65 20 65 66 66 65 63 74 | 69 76 65 20 61 64 64 72 |e effect|ive addr|
|00000560| 65 73 73 20 6f 66 20 74 | 68 65 20 74 61 73 6b 20 |ess of t|he task |
|00000570| 73 65 72 76 65 72 7d 0d | 09 09 54 61 73 6b 49 64 |server}.|..TaskId|
|00000580| 3a 09 09 09 6c 6f 6e 67 | 69 6e 74 3b 09 09 09 7b |:...long|int;...{|
|00000590| 61 20 73 74 61 6d 70 20 | 74 6f 20 69 64 65 6e 74 |a stamp |to ident|
|000005a0| 69 66 79 20 74 68 65 20 | 74 61 73 6b 2e 7d 0d 09 |ify the |task.}..|
|000005b0| 09 54 61 73 6b 49 74 65 | 72 61 74 69 6f 6e 73 3a |.TaskIte|rations:|
|000005c0| 09 6c 6f 6e 67 69 6e 74 | 3b 09 09 09 7b 74 68 65 |.longint|;...{the|
|000005d0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 65 6c 65 6d 65 | number |of eleme|
|000005e0| 6e 74 61 72 79 20 61 63 | 74 69 6f 6e 73 20 74 6f |ntary ac|tions to|
|000005f0| 20 70 65 72 66 6f 72 6d | 7d 0d 09 69 6e 74 72 6f | perform|}..intro|
|00000600| 64 75 63 65 64 20 76 61 | 72 69 61 62 6c 65 20 66 |duced va|riable f|
|00000610| 6f 72 20 73 65 6e 64 20 | 6d 65 6d 6f 72 79 0d 09 |or send |memory..|
|00000620| 09 50 72 65 76 44 65 73 | 74 3a 09 09 4d 73 67 41 |.PrevDes|t:..MsgA|
|00000630| 64 64 72 3b 09 09 09 7b | 74 68 65 20 6c 61 73 74 |ddr;...{|the last|
|00000640| 20 64 65 73 74 69 6e 61 | 74 69 6f 6e 20 61 20 74 | destina|tion a t|
|00000650| 61 73 6b 20 77 61 73 20 | 73 65 6e 74 20 74 6f 7d |ask was |sent to}|
|00000660| 0d 09 72 65 6d 6f 76 65 | 64 20 6e 65 74 77 6f 72 |..remove|d networ|
|00000670| 6b 20 69 6e 69 74 69 61 | 6c 69 7a 61 74 69 6f 6e |k initia|lization|
|00000680| 0d 09 64 65 6c 61 79 73 | 20 63 68 61 6e 67 65 64 |..delays| changed|
|00000690| 20 74 6f 20 6c 6f 6e 67 | 69 6e 74 2c 20 72 65 76 | to long|int, rev|
|000006a0| 69 65 77 65 64 20 75 73 | 65 64 20 6f 66 20 63 6f |iewed us|ed of co|
|000006b0| 68 61 6e 64 6c 65 72 20 | 61 6e 64 20 74 72 61 6e |handler |and tran|
|000006c0| 73 70 6f 72 74 70 74 72 | 09 0d 09 61 64 64 69 74 |sportptr|...addit|
|000006d0| 69 6f 6e 61 6c 20 63 6f | 6d 6d 65 6e 74 73 3b 20 |ional co|mments; |
|000006e0| 63 6c 65 61 6e 65 64 20 | 75 70 20 4e 65 77 54 61 |cleaned |up NewTa|
|000006f0| 73 6b 0d 09 63 6f 72 72 | 65 63 74 69 6f 6e 20 6f |sk..corr|ection o|
|00000700| 66 20 61 64 64 72 65 73 | 73 20 68 61 6e 64 6c 69 |f addres|s handli|
|00000710| 6e 67 20 69 6e 20 44 6f | 4e 65 77 54 61 73 6b 0d |ng in Do|NewTask.|
|00000720| 09 61 64 64 65 64 20 73 | 6f 75 72 63 65 20 69 6e |.added s|ource in|
|00000730| 66 6f 20 69 6e 20 64 65 | 62 75 67 67 65 72 20 6d |fo in de|bugger m|
|00000740| 65 73 73 61 67 65 73 0d | 0d 3d 3d 3d 3d 3d 3d 0d |essages.|.======.|
|00000750| 31 2e 31 2d 39 0d 3d 3d | 3d 3d 3d 3d 0d 09 72 65 |1.1-9.==|====..re|
|00000760| 6d 6f 76 65 64 20 53 63 | 68 65 64 75 6c 65 72 2e |moved Sc|heduler.|
|00000770| 54 61 73 6b 47 65 6e 65 | 72 61 74 6f 72 4e 65 65 |TaskGene|ratorNee|
|00000780| 64 73 41 74 74 65 6e 74 | 69 6f 6e 2e 20 49 73 20 |dsAttent|ion. Is |
|00000790| 64 6f 6e 65 20 62 79 20 | 70 65 72 69 6f 64 69 63 |done by |periodic|
|000007a0| 54 61 73 6b 2e 0d 09 61 | 64 64 65 64 20 73 70 65 |Task...a|dded spe|
|000007b0| 63 69 61 6c 20 63 61 73 | 69 6e 67 20 66 6f 72 20 |cial cas|ing for |
|000007c0| 7a 65 72 6f 20 6c 65 6e | 67 74 68 20 62 75 66 66 |zero len|gth buff|
|000007d0| 65 72 73 20 61 74 20 76 | 61 72 69 6f 75 73 20 70 |ers at v|arious p|
|000007e0| 6c 61 63 65 73 2e 09 09 | 0d 0d 3d 3d 3d 3d 3d 3d |laces...|..======|
|000007f0| 0d 31 2e 31 2d 38 20 0d | 3d 3d 3d 3d 3d 3d 0d 09 |.1.1-8 .|======..|
|00000800| 72 65 6d 6f 76 65 64 20 | 74 53 63 68 65 64 75 6c |removed |tSchedul|
|00000810| 65 72 2e 74 61 73 6b 2e | 20 4f 6c 64 20 63 6f 64 |er.task.| Old cod|
|00000820| 65 20 69 73 20 69 6e 63 | 6c 75 64 65 64 20 62 65 |e is inc|luded be|
|00000830| 6c 6f 77 2e 20 52 65 70 | 6c 61 63 65 64 20 62 79 |low. Rep|laced by|
|00000840| 20 50 65 72 69 6f 64 69 | 63 54 61 73 6b 0d 09 72 | Periodi|cTask..r|
|00000850| 65 6d 6f 76 65 64 09 53 | 65 74 4d 73 67 42 75 66 |emoved.S|etMsgBuf|
|00000860| 66 65 72 73 2c 20 53 65 | 74 4d 73 67 44 61 74 61 |fers, Se|tMsgData|
|00000870| 42 75 66 66 65 72 73 2e | 20 4f 6c 64 20 63 6f 64 |Buffers.| Old cod|
|00000880| 65 20 69 73 20 69 6e 63 | 6c 75 64 65 64 20 62 65 |e is inc|luded be|
|00000890| 6c 6f 77 2e 0d 0d 3d 3d | 3d 3d 3d 3d 0d 31 2e 31 |low...==|====.1.1|
|000008a0| 2d 37 20 0d 3d 3d 3d 3d | 3d 3d 0d 09 72 65 6d 6f |-7 .====|==..remo|
|000008b0| 76 65 64 20 66 69 65 6c | 64 3a 0d 09 09 09 55 73 |ved fiel|d:....Us|
|000008c0| 65 72 52 65 66 4d 65 73 | 73 61 67 65 3a 4d 65 73 |erRefMes|sage:Mes|
|000008d0| 73 61 67 65 50 74 72 3b | 0d 09 66 72 6f 6d 20 74 |sagePtr;|..from t|
|000008e0| 4d 65 73 73 61 67 65 48 | 61 6e 64 6c 65 72 20 6f |MessageH|andler o|
|000008f0| 62 6a 65 63 74 2e 20 0d | 09 4e 6f 20 67 65 6e 65 |bject. .|.No gene|
|00000900| 72 69 63 20 75 73 65 20 | 66 6f 72 20 74 68 69 73 |ric use |for this|
|00000910| 20 66 69 65 6c 64 2e 20 | 43 61 6e 20 62 65 20 61 | field. |Can be a|
|00000920| 64 64 65 64 20 62 79 20 | 75 73 65 72 20 69 6e 20 |dded by |user in |
|00000930| 64 65 73 63 65 6e 64 61 | 6e 74 73 20 69 66 20 6e |descenda|nts if n|
|00000940| 65 65 64 65 64 2e 0d 09 | 49 66 20 74 68 69 73 20 |eeded...|If this |
|00000950| 66 69 65 6c 64 20 69 73 | 20 6e 65 65 64 65 64 2c |field is| needed,|
|00000960| 20 74 4d 65 73 73 61 67 | 65 48 61 6e 64 6c 65 72 | tMessag|eHandler|
|00000970| 2e 69 6e 69 74 20 73 68 | 6f 75 6c 64 20 69 6e 63 |.init sh|ould inc|
|00000980| 6c 75 64 65 0d 09 09 09 | 55 73 65 72 52 65 66 4d |lude....|UserRefM|
|00000990| 65 73 73 61 67 65 3a 3d | 6e 69 6c 3b 0d 0d 09 49 |essage:=|nil;...I|
|000009a0| 6e 73 74 65 61 64 20 6f | 66 20 55 73 65 72 52 65 |nstead o|f UserRe|
|000009b0| 66 4d 65 73 73 61 67 65 | 2c 20 61 20 6d 65 74 68 |fMessage|, a meth|
|000009c0| 6f 64 20 69 73 20 72 65 | 63 6f 6d 6d 65 6e 64 65 |od is re|commende|
|000009d0| 64 3a 0d 09 09 50 72 6f | 63 65 64 75 72 65 20 53 |d:...Pro|cedure S|
|000009e0| 65 74 4d 73 67 44 65 66 | 61 75 6c 74 73 28 6d 73 |etMsgDef|aults(ms|
|000009f0| 67 3a 4d 73 67 50 74 72 | 29 3b 0d 09 77 69 74 68 |g:MsgPtr|);..with|
|00000a00| 20 64 65 66 61 75 6c 74 | 20 74 6f 0d 09 09 50 72 | default| to...Pr|
|00000a10| 6f 63 65 64 75 72 65 20 | 74 4d 65 73 73 61 67 65 |ocedure |tMessage|
|00000a20| 48 61 6e 64 6c 65 72 2e | 53 65 74 4d 73 67 44 65 |Handler.|SetMsgDe|
|00000a30| 66 61 75 6c 74 73 28 6d | 73 67 3a 4d 73 67 50 74 |faults(m|sg:MsgPt|
|00000a40| 72 29 3b 0d 09 09 62 65 | 67 69 6e 0d 09 09 20 77 |r);...be|gin... w|
|00000a50| 69 74 68 20 6d 73 67 5e | 20 64 6f 20 0d 09 09 20 |ith msg^| do ... |
|00000a60| 62 65 67 69 6e 0d 09 09 | 09 4d 73 67 54 72 70 50 |begin...|.MsgTrpP|
|00000a70| 74 72 3a 3d 6e 69 6c 3b | 0d 09 09 09 4d 73 67 55 |tr:=nil;|....MsgU|
|00000a80| 73 65 72 52 65 66 43 6f | 6e 3a 3d 6c 6f 6e 67 69 |serRefCo|n:=longi|
|00000a90| 6e 74 28 6e 69 6c 29 3b | 0d 09 09 0d 09 09 09 4d |nt(nil);|.......M|
|00000aa0| 73 67 53 6f 75 72 63 65 | 3a 3d 53 63 68 65 64 75 |sgSource|:=Schedu|
|00000ab0| 6c 65 72 2e 4d 79 73 65 | 6c 66 3b 0d 09 09 09 4d |ler.Myse|lf;....M|
|00000ac0| 73 67 44 65 73 74 3a 3d | 53 63 68 65 64 75 6c 65 |sgDest:=|Schedule|
|00000ad0| 72 2e 4d 79 73 65 6c 66 | 3b 0d 09 09 09 4d 73 67 |r.Myself|;....Msg|
|00000ae0| 52 65 70 6c 79 3a 3d 53 | 63 68 65 64 75 6c 65 72 |Reply:=S|cheduler|
|00000af0| 2e 4d 79 73 65 6c 66 3b | 0d 09 09 09 4d 73 67 43 |.Myself;|....MsgC|
|00000b00| 61 70 61 73 56 65 72 62 | 3a 3d 63 41 6e 79 43 61 |apasVerb|:=cAnyCa|
|00000b10| 70 61 73 3b 0d 09 09 09 | 4d 73 67 52 65 66 65 72 |pas;....|MsgRefer|
|00000b20| 65 6e 63 65 3a 3d 30 3b | 0d 09 09 09 4d 73 67 50 |ence:=0;|....MsgP|
|00000b30| 72 69 6f 53 69 7a 65 3a | 3d 30 3b 0d 09 09 09 4d |rioSize:|=0;....M|
|00000b40| 73 67 53 74 64 53 69 7a | 65 3a 3d 30 3b 0d 09 09 |sgStdSiz|e:=0;...|
|00000b50| 09 4d 73 67 50 72 69 6f | 50 74 72 3a 3d 6e 69 6c |.MsgPrio|Ptr:=nil|
|00000b60| 3b 0d 09 09 09 4d 73 67 | 53 74 64 50 74 72 3a 3d |;....Msg|StdPtr:=|
|00000b70| 6e 69 6c 3b 0d 09 09 09 | 0d 09 09 20 65 6e 64 3b |nil;....|... end;|
|00000b80| 0d 09 09 65 6e 64 3b 0d | 09 0d 0d 09 72 65 6d 6f |...end;.|....remo|
|00000b90| 76 65 64 20 66 72 6f 6d | 20 74 54 61 73 6b 48 61 |ved from| tTaskHa|
|00000ba0| 6e 64 6c 65 72 3a 0d 09 | 09 7b 2d 2d 2d 2d 2d 2d |ndler:..|.{------|
|00000bb0| 2d 2d 2d 20 61 64 64 72 | 65 73 73 65 73 20 61 6e |--- addr|esses an|
|00000bc0| 64 20 70 6f 69 6e 74 65 | 72 73 20 66 6f 72 20 69 |d pointe|rs for i|
|00000bd0| 6e 63 6f 6d 69 6e 67 20 | 6d 65 73 73 61 67 65 73 |ncoming |messages|
|00000be0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d | -------|------}.|
|00000bf0| 09 09 0d 09 09 50 72 69 | 6f 72 69 74 79 42 75 66 |.....Pri|orityBuf|
|00000c00| 66 65 72 09 3a 70 74 72 | 3b 09 0d 09 09 4d 61 78 |fer.:ptr|;....Max|
|00000c10| 50 72 69 6f 72 69 74 79 | 53 69 7a 65 09 3a 73 69 |Priority|Size.:si|
|00000c20| 7a 65 3b 0d 09 09 44 61 | 74 61 42 75 66 66 65 72 |ze;...Da|taBuffer|
|00000c30| 09 09 3a 70 74 72 3b 0d | 09 09 4d 61 78 44 61 74 |..:ptr;.|..MaxDat|
|00000c40| 61 53 69 7a 65 09 09 3a | 73 69 7a 65 3b 0d 09 41 |aSize..:|size;..A|
|00000c50| 64 64 65 64 20 63 6f 6e | 74 72 75 63 74 6f 72 73 |dded con|tructors|
|00000c60| 2f 64 65 73 74 72 75 63 | 74 6f 72 73 20 66 6f 72 |/destruc|tors for|
|00000c70| 20 62 75 66 66 65 72 20 | 68 61 6e 64 6c 69 6e 67 | buffer |handling|
|00000c80| 20 69 6e 73 74 65 61 64 | 2e 0d 09 54 68 65 20 75 | instead|...The u|
|00000c90| 73 65 20 6f 66 20 6c 61 | 74 63 68 65 64 20 70 6f |se of la|tched po|
|00000ca0| 69 6e 74 65 72 73 20 6f | 66 66 65 72 65 64 20 69 |inters o|ffered i|
|00000cb0| 74 73 65 6c 66 20 74 6f | 20 70 6f 6f 72 20 62 75 |tself to| poor bu|
|00000cc0| 66 66 65 72 20 73 74 72 | 61 74 65 67 69 65 73 2e |ffer str|ategies.|
|00000cd0| 0d 09 66 6f 72 20 61 20 | 74 72 61 6e 73 69 74 69 |..for a |transiti|
|00000ce0| 6f 6e 2c 20 74 68 65 20 | 6c 61 74 63 68 65 64 20 |on, the |latched |
|00000cf0| 76 65 72 73 69 6f 6e 20 | 63 61 6e 20 62 65 20 74 |version |can be t|
|00000d00| 72 61 6e 73 6c 61 74 65 | 64 20 69 6e 74 6f 20 61 |ranslate|d into a|
|00000d10| 20 66 75 6e 63 74 69 6f | 6e 0d 09 62 61 73 65 20 | functio|n..base |
|00000d20| 76 65 72 73 69 6f 6e 20 | 75 73 69 6e 67 0d 09 09 |version |using...|
|00000d30| 66 75 6e 63 74 69 6f 6e | 20 74 6d 79 4d 65 73 73 |function| tmyMess|
|00000d40| 61 67 65 48 61 6e 64 6c | 65 72 2e 4e 65 77 50 72 |ageHandl|er.NewPr|
|00000d50| 69 6f 50 74 72 28 76 61 | 72 20 50 72 69 6f 53 69 |ioPtr(va|r PrioSi|
|00000d60| 7a 65 3a 6c 6f 6e 67 69 | 6e 74 29 3a 70 74 72 3b |ze:longi|nt):ptr;|
|00000d70| 6f 76 65 72 72 69 64 65 | 3b 0d 09 09 62 65 67 69 |override|;...begi|
|00000d80| 6e 20 0d 09 09 09 69 66 | 20 50 72 69 6f 53 69 7a |n ....if| PrioSiz|
|00000d90| 65 3e 4d 61 78 50 72 69 | 6f 72 69 74 79 53 69 7a |e>MaxPri|oritySiz|
|00000da0| 65 20 74 68 65 6e 20 50 | 72 69 6f 53 69 7a 65 3a |e then P|rioSize:|
|00000db0| 3d 4d 61 78 50 72 69 6f | 72 69 74 79 53 69 7a 65 |=MaxPrio|ritySize|
|00000dc0| 3b 0d 09 09 09 4e 65 77 | 50 72 69 6f 50 74 72 3a |;....New|PrioPtr:|
|00000dd0| 3d 50 72 69 6f 72 69 74 | 79 42 75 66 66 65 72 3b |=Priorit|yBuffer;|
|00000de0| 0d 09 09 65 6e 64 3b 0d | 09 09 0d 09 09 66 75 6e |...end;.|.....fun|
|00000df0| 63 74 69 6f 6e 20 74 6d | 79 4d 65 73 73 61 67 65 |ction tm|yMessage|
|00000e00| 48 61 6e 64 6c 65 72 2e | 4e 65 77 53 74 64 50 74 |Handler.|NewStdPt|
|00000e10| 72 28 76 61 72 20 53 74 | 64 53 69 7a 65 3a 6c 6f |r(var St|dSize:lo|
|00000e20| 6e 67 69 6e 74 29 3a 70 | 74 72 3b 6f 76 65 72 72 |ngint):p|tr;overr|
|00000e30| 69 64 65 3b 0d 09 09 62 | 65 67 69 6e 20 0d 09 09 |ide;...b|egin ...|
|00000e40| 09 69 66 20 53 74 64 53 | 69 7a 65 3e 4d 61 78 44 |.if StdS|ize>MaxD|
|00000e50| 61 74 61 53 69 7a 65 20 | 74 68 65 6e 20 53 74 64 |ataSize |then Std|
|00000e60| 53 69 7a 65 3a 3d 4d 61 | 78 44 61 74 61 53 69 7a |Size:=Ma|xDataSiz|
|00000e70| 65 3b 0d 09 09 09 4e 65 | 77 53 74 64 50 74 72 3a |e;....Ne|wStdPtr:|
|00000e80| 3d 44 61 74 61 42 75 66 | 66 65 72 3b 0d 09 09 65 |=DataBuf|fer;...e|
|00000e90| 6e 64 3b 0d 09 09 0d 09 | 09 70 72 6f 63 65 64 75 |nd;.....|.procedu|
|00000ea0| 72 65 20 74 6d 79 4d 65 | 73 73 61 67 65 48 61 6e |re tmyMe|ssageHan|
|00000eb0| 64 6c 65 72 2e 44 69 73 | 70 6f 73 50 72 69 6f 50 |dler.Dis|posPrioP|
|00000ec0| 74 72 28 76 61 72 20 50 | 72 69 6f 50 74 72 3a 50 |tr(var P|rioPtr:P|
|00000ed0| 74 72 29 3b 6f 76 65 72 | 72 69 64 65 3b 0d 09 09 |tr);over|ride;...|
|00000ee0| 62 65 67 69 6e 20 0d 09 | 09 09 50 72 69 6f 50 74 |begin ..|..PrioPt|
|00000ef0| 72 3a 3d 6e 69 6c 3b 0d | 09 09 65 6e 64 3b 09 09 |r:=nil;.|..end;..|
|00000f00| 0d 09 09 0d 09 09 70 72 | 6f 63 65 64 75 72 65 20 |......pr|ocedure |
|00000f10| 74 6d 79 4d 65 73 73 61 | 67 65 48 61 6e 64 6c 65 |tmyMessa|geHandle|
|00000f20| 72 2e 44 69 73 70 6f 73 | 53 74 64 50 74 72 28 76 |r.Dispos|StdPtr(v|
|00000f30| 61 72 20 53 74 64 50 74 | 72 3a 50 74 72 29 3b 6f |ar StdPt|r:Ptr);o|
|00000f40| 76 65 72 72 69 64 65 3b | 0d 09 09 62 65 67 69 6e |verride;|...begin|
|00000f50| 20 0d 09 09 09 53 74 64 | 50 74 72 3a 3d 6e 69 6c | ....Std|Ptr:=nil|
|00000f60| 3b 0d 09 09 65 6e 64 3b | 0d 0d 09 72 65 6d 6f 76 |;...end;|...remov|
|00000f70| 65 64 0d 09 09 70 72 6f | 63 65 64 75 72 65 20 74 |ed...pro|cedure t|
|00000f80| 53 63 68 65 64 75 6c 65 | 72 2e 4b 69 6c 6c 4d 73 |Schedule|r.KillMs|
|00000f90| 67 20 28 4d 73 67 20 3a | 20 4d 73 67 50 74 72 29 |g (Msg :| MsgPtr)|
|00000fa0| 3b 0d 09 09 70 72 6f 63 | 65 64 75 72 65 20 74 53 |;...proc|edure tS|
|00000fb0| 63 68 65 64 75 6c 65 72 | 2e 52 65 63 65 69 76 65 |cheduler|.Receive|
|00000fc0| 4d 73 67 20 28 4d 73 67 | 20 3a 20 4d 73 67 50 74 |Msg (Msg| : MsgPt|
|00000fd0| 72 29 3b 0d 09 66 72 6f | 6d 20 70 75 62 6c 69 63 |r);..fro|m public|
|00000fe0| 20 61 6e 64 20 6d 61 64 | 65 20 69 74 20 69 6e 74 | and mad|e it int|
|00000ff0| 65 72 6e 61 6c 20 66 75 | 6e 63 74 69 6f 6e 20 6f |ernal fu|nction o|
|00001000| 66 20 48 61 6e 64 6c 65 | 4d 73 67 2e 0d 0d 3d 3d |f Handle|Msg...==|
|00001010| 3d 3d 3d 3d 0d 31 2e 31 | 2d 36 20 0d 3d 3d 3d 3d |====.1.1|-6 .====|
|00001020| 3d 3d 0d 09 72 65 6e 61 | 6d 65 64 0d 09 09 74 54 |==..rena|med...tT|
|00001030| 61 73 6b 48 61 6e 64 6c | 65 72 2e 4d 73 67 49 6e |askHandl|er.MsgIn|
|00001040| 43 6f 6e 74 65 78 74 20 | 74 6f 20 4d 73 67 48 65 |Context |to MsgHe|
|00001050| 61 64 65 72 55 73 65 61 | 62 6c 65 2e 0d 09 54 68 |aderUsea|ble...Th|
|00001060| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 73 68 6f 75 |is funct|ion shou|
|00001070| 6c 64 20 75 73 65 20 6f | 6e 6c 79 20 6d 61 6b 65 |ld use o|nly make|
|00001080| 20 75 73 65 20 6f 66 20 | 68 65 61 64 65 72 20 69 | use of |header i|
|00001090| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 74 6f 20 63 68 |nformati|on to ch|
|000010a0| 65 63 6b 20 61 6e 20 0d | 09 69 6e 63 6f 6d 69 6e |eck an .|.incomin|
|000010b0| 67 20 6d 65 73 73 61 67 | 65 2e 0d 09 0d 09 72 65 |g messag|e.....re|
|000010c0| 6d 6f 76 65 64 0d 09 09 | 66 75 6e 63 74 69 6f 6e |moved...|function|
|000010d0| 20 52 65 63 65 69 76 65 | 72 4e 65 65 64 73 41 74 | Receive|rNeedsAt|
|000010e0| 74 65 6e 74 69 6f 6e 3a | 20 62 6f 6f 6c 65 61 6e |tention:| boolean|
|000010f0| 3b 0d 09 66 72 6f 6d 20 | 73 63 68 65 64 75 6c 65 |;..from |schedule|
|00001100| 72 2e 20 41 6c 6c 20 71 | 75 65 75 65 20 68 61 6e |r. All q|ueue han|
|00001110| 64 6c 69 6e 67 20 69 73 | 20 6e 6f 77 20 64 6f 6e |dling is| now don|
|00001120| 65 20 62 79 20 74 68 65 | 20 4e 65 74 57 6f 72 6b |e by the| NetWork|
|00001130| 20 70 72 6f 63 65 73 73 | 6f 72 2e 0d 09 49 66 20 | process|or...If |
|00001140| 6e 65 65 64 65 64 2c 20 | 52 65 63 65 69 76 65 72 |needed, |Receiver|
|00001150| 4e 65 65 64 73 41 74 74 | 65 6e 74 69 6f 6e 20 63 |NeedsAtt|ention c|
|00001160| 6f 6c 64 20 62 65 20 69 | 6d 70 6c 65 6d 65 6e 74 |old be i|mplement|
|00001170| 65 64 20 62 79 20 63 68 | 65 63 6b 69 6e 67 20 66 |ed by ch|ecking f|
|00001180| 6f 72 20 70 65 6e 64 69 | 6e 67 0d 09 4e 65 74 57 |or pendi|ng..NetW|
|00001190| 6f 72 6b 20 65 76 65 6e | 74 73 2e 0d 09 0d 3d 3d |ork even|ts....==|
|000011a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000011b0| 3d 0d 6f 6c 64 20 20 63 | 6f 64 65 20 66 72 61 67 |=.old  c|ode frag|
|000011c0| 6d 65 6e 74 73 0d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ments.==|========|
|000011d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0d 2d 2d 2d 2d 2d |========|=..-----|
|000011e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001200| 0d 66 72 6f 6d 20 30 2e | 39 62 31 2e 20 72 65 70 |.from 0.|9b1. rep|
|00001210| 6c 61 63 65 64 20 62 79 | 20 70 65 72 69 6f 64 69 |laced by| periodi|
|00001220| 63 74 61 73 6b 2e 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ctask..-|--------|
|00001230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 70 72 6f |--------|----.pro|
|00001250| 63 65 64 75 72 65 20 74 | 53 63 68 65 64 75 6c 65 |cedure t|Schedule|
|00001260| 72 2e 74 61 73 6b 3b 0d | 63 6f 6e 73 74 20 74 69 |r.task;.|const ti|
|00001270| 6d 65 74 6f 73 70 65 6e | 64 3d 31 30 3b 7b 74 69 |metospen|d=10;{ti|
|00001280| 63 6b 73 20 61 6c 6c 6f | 77 65 64 20 66 6f 72 20 |cks allo|wed for |
|00001290| 72 65 63 65 69 76 65 7d | 0d 76 61 72 20 0d 09 74 |receive}|.var ..t|
|000012a0| 69 6d 65 6f 75 74 3a 6c | 6f 6e 67 69 6e 74 3b 0d |imeout:l|ongint;.|
|000012b0| 09 64 65 73 74 69 6e 61 | 74 69 6f 6e 61 64 64 72 |.destina|tionaddr|
|000012c0| 3a 4d 73 67 41 64 64 72 | 3b 78 3a 69 6e 74 65 67 |:MsgAddr|;x:integ|
|000012d0| 65 72 3b 0d 62 65 67 69 | 6e 0d 09 70 65 72 69 6f |er;.begi|n..perio|
|000012e0| 64 69 63 54 61 73 6b 28 | 78 29 3b 0d 09 64 65 62 |dicTask(|x);..deb|
|000012f0| 75 67 73 74 72 28 27 73 | 63 68 64 75 6c 65 72 2e |ugstr('s|chduler.|
|00001300| 74 61 73 6b 20 69 73 20 | 6f 62 73 6f 6c 65 74 65 |task is |obsolete|
|00001310| 2e 20 75 73 65 20 70 65 | 72 69 6f 64 69 63 54 61 |. use pe|riodicTa|
|00001320| 73 6b 27 29 3b 0d 09 7b | 24 49 46 43 20 66 61 6c |sk');..{|$IFC fal|
|00001330| 73 65 7d 0d 09 7b 6d 61 | 6b 65 20 73 75 72 65 20 |se}..{ma|ke sure |
|00001340| 68 61 6e 64 6c 65 72 73 | 20 61 72 65 20 69 6e 73 |handlers| are ins|
|00001350| 74 61 6c 6c 65 64 2e 20 | 6e 65 65 64 65 64 20 66 |talled. |needed f|
|00001360| 6f 72 20 48 6f 75 73 65 | 6b 65 65 70 69 6e 67 20 |or House|keeping |
|00001370| 3f 20 65 6c 73 65 20 6c | 61 74 65 72 7d 0d 09 69 |? else l|ater}..i|
|00001380| 66 20 54 61 73 6b 48 61 | 6e 64 6c 65 72 3d 6e 69 |f TaskHa|ndler=ni|
|00001390| 6c 20 74 68 65 6e 20 72 | 65 63 65 69 76 69 6e 67 |l then r|eceiving|
|000013a0| 3a 3d 66 61 6c 73 65 3b | 0d 09 69 66 20 54 61 73 |:=false;|..if Tas|
|000013b0| 6b 47 65 6e 65 72 61 74 | 6f 72 3d 6e 69 6c 20 74 |kGenerat|or=nil t|
|000013c0| 68 65 6e 20 73 65 6e 64 | 69 6e 67 3a 3d 66 61 6c |hen send|ing:=fal|
|000013d0| 73 65 3b 0d 0d 0d 09 74 | 69 6d 65 6f 75 74 3a 3d |se;....t|imeout:=|
|000013e0| 74 69 63 6b 63 6f 75 6e | 74 2b 74 69 6d 65 74 6f |tickcoun|t+timeto|
|000013f0| 73 70 65 6e 64 3b 0d 09 | 69 66 20 20 72 65 63 65 |spend;..|if  rece|
|00001400| 69 76 69 6e 67 20 0d 09 | 74 68 65 6e 20 0d 09 77 |iving ..|then ..w|
|00001410| 68 69 6c 65 20 28 74 69 | 63 6b 63 6f 75 6e 74 3c |hile (ti|ckcount<|
|00001420| 74 69 6d 65 6f 75 74 29 | 20 26 20 52 65 63 65 69 |timeout)| & Recei|
|00001430| 76 65 72 4e 65 65 64 73 | 41 74 74 65 6e 74 69 6f |verNeeds|Attentio|
|00001440| 6e 20 64 6f 20 20 0d 09 | 77 69 74 68 20 54 61 73 |n do  ..|with Tas|
|00001450| 6b 48 61 6e 64 6c 65 72 | 20 64 6f 20 62 65 67 69 |kHandler| do begi|
|00001460| 6e 09 0d 0d 09 09 7b 24 | 49 46 43 20 64 65 62 75 |n.....{$|IFC debu|
|00001470| 67 67 69 6e 67 7d 20 69 | 66 20 73 70 61 72 65 20 |gging} i|f spare |
|00001480| 74 68 65 6e 20 64 65 62 | 75 67 73 74 72 28 27 74 |then deb|ugstr('t|
|00001490| 53 63 68 65 64 75 6c 65 | 72 2e 74 61 73 6b 20 72 |Schedule|r.task r|
|000014a0| 65 63 65 69 76 65 72 20 | 6e 65 65 64 73 20 61 74 |eceiver |needs at|
|000014b0| 74 65 6e 74 69 6f 6e 3b | 67 27 29 3b 20 7b 24 45 |tention;|g'); {$E|
|000014c0| 4e 44 43 7d 0d 09 09 69 | 66 20 52 65 63 44 61 74 |NDC}...i|f RecDat|
|000014d0| 61 41 63 63 65 70 74 65 | 64 20 74 68 65 6e 20 7b |aAccepte|d then {|
|000014e0| 6f 6c 64 20 6d 65 73 73 | 61 67 65 20 61 72 72 69 |old mess|age arri|
|000014f0| 76 65 64 20 26 20 48 6f | 75 73 65 6b 65 65 70 69 |ved & Ho|usekeepi|
|00001500| 6e 67 20 68 61 6e 64 6c | 65 64 20 65 72 72 6f 72 |ng handl|ed error|
|00001510| 73 7d 0d 09 09 62 65 67 | 69 6e 0d 09 09 09 7b 24 |s}...beg|in....{$|
|00001520| 49 46 43 20 64 65 62 75 | 67 67 69 6e 67 7d 20 69 |IFC debu|gging} i|
|00001530| 66 20 73 70 61 72 65 20 | 74 68 65 6e 20 64 65 62 |f spare |then deb|
|00001540| 75 67 73 74 72 28 27 74 | 53 63 68 65 64 75 6c 65 |ugstr('t|Schedule|
|00001550| 72 2e 74 61 73 6b 20 65 | 76 61 6c 75 61 74 65 20 |r.task e|valuate |
|00001560| 6f 6c 64 3b 67 27 29 3b | 7b 24 45 4e 44 43 7d 0d |old;g');|{$ENDC}.|
|00001570| 0d 09 09 09 4d 73 67 45 | 76 61 6c 75 61 74 69 6f |....MsgE|valuatio|
|00001580| 6e 28 52 65 63 4d 73 67 | 50 74 72 29 3b 0d 09 09 |n(RecMsg|Ptr);...|
|00001590| 09 68 61 6e 64 6c 65 45 | 72 72 6f 72 28 70 55 6e |.handleE|rror(pUn|
|000015a0| 64 65 66 69 6e 65 64 2c | 44 65 73 74 72 6f 79 4d |defined,|DestroyM|
|000015b0| 73 67 28 52 65 63 4d 73 | 67 50 74 72 29 29 3b 7b |sg(RecMs|gPtr));{|
|000015c0| 74 68 65 20 75 73 65 72 | 20 68 61 64 20 61 20 63 |the user| had a c|
|000015d0| 68 61 6e 63 65 c9 7d 0d | 09 09 09 52 65 63 4d 73 |hance.}.|...RecMs|
|000015e0| 67 50 74 72 3a 3d 6e 69 | 6c 3b 7b 6e 6f 74 20 6f |gPtr:=ni|l;{not o|
|000015f0| 75 72 20 62 75 73 69 6e | 65 73 73 20 61 6e 79 6d |ur busin|ess anym|
|00001600| 6f 72 65 7d 0d 09 09 09 | 52 65 63 44 61 74 61 41 |ore}....|RecDataA|
|00001610| 63 63 65 70 74 65 64 3a | 3d 66 61 6c 73 65 3b 0d |ccepted:|=false;.|
|00001620| 09 09 65 6e 64 0d 09 09 | 65 6c 73 65 20 7b 63 68 |..end...|else {ch|
|00001630| 65 63 6b 20 66 6f 72 20 | 6e 65 77 20 6d 65 73 73 |eck for |new mess|
|00001640| 61 67 65 7d 0d 09 09 62 | 65 67 69 6e 0d 09 09 09 |age}...b|egin....|
|00001650| 7b 68 61 6e 64 6c 65 45 | 72 72 6f 72 28 70 55 6e |{handleE|rror(pUn|
|00001660| 64 65 66 69 6e 65 64 2c | 6d 73 67 53 74 61 74 75 |defined,|msgStatu|
|00001670| 73 28 52 65 63 4d 73 67 | 50 74 72 29 29 3b 7d 09 |s(RecMsg|Ptr));}.|
|00001680| 09 09 09 0d 09 09 09 69 | 66 20 28 52 65 63 4d 73 |.......i|f (RecMs|
|00001690| 67 50 74 72 3c 3e 6e 69 | 6c 29 20 26 20 28 6d 73 |gPtr<>ni|l) & (ms|
|000016a0| 67 53 74 61 74 75 73 28 | 52 65 63 4d 73 67 50 74 |gStatus(|RecMsgPt|
|000016b0| 72 29 3d 30 29 20 74 68 | 65 6e 20 0d 09 09 09 62 |r)=0) th|en ....b|
|000016c0| 65 67 69 6e 20 7b 76 61 | 6c 69 64 20 6e 65 77 20 |egin {va|lid new |
|000016d0| 6d 65 73 73 61 67 65 7d | 0d 0d 09 09 09 09 69 66 |message}|......if|
|000016e0| 20 54 61 73 6b 48 61 6e | 64 6c 65 72 2e 4d 73 67 | TaskHan|dler.Msg|
|000016f0| 48 65 61 64 65 72 55 73 | 65 61 62 6c 65 28 52 65 |HeaderUs|eable(Re|
|00001700| 63 4d 73 67 50 74 72 29 | 0d 09 09 09 09 26 0d 09 |cMsgPtr)|.....&..|
|00001710| 09 09 09 28 54 61 73 6b | 48 61 6e 64 6c 65 72 2e |...(Task|Handler.|
|00001720| 4d 73 67 55 73 65 61 62 | 6c 65 28 52 65 63 4d 73 |MsgUseab|le(RecMs|
|00001730| 67 50 74 72 29 29 20 74 | 68 65 6e 20 0d 09 09 09 |gPtr)) t|hen ....|
|00001740| 09 7b 73 74 61 72 74 20 | 72 65 63 65 69 76 69 6e |.{start |receivin|
|00001750| 67 20 69 74 7d 0d 09 09 | 09 09 62 65 67 69 6e 20 |g it}...|..begin |
|00001760| 0d 09 09 09 09 09 69 66 | 20 43 6f 48 61 6e 64 6c |......if| CoHandl|
|00001770| 65 72 3c 3e 6e 69 6c 20 | 74 68 65 6e 20 0d 09 09 |er<>nil |then ...|
|00001780| 09 09 09 43 6f 48 61 6e | 64 6c 65 72 2e 43 6f 68 |...CoHan|dler.Coh|
|00001790| 61 6e 64 6c 65 28 70 55 | 73 65 61 62 6c 65 2c 52 |andle(pU|seable,R|
|000017a0| 65 63 4d 73 67 50 74 72 | 29 3b 0d 09 09 09 09 09 |ecMsgPtr|);......|
|000017b0| 7b 24 49 46 43 20 64 65 | 62 75 67 67 69 6e 67 7d |{$IFC de|bugging}|
|000017c0| 20 69 66 20 73 70 61 72 | 65 20 74 68 65 6e 20 64 | if spar|e then d|
|000017d0| 65 62 75 67 73 74 72 28 | 27 73 63 68 65 64 75 6c |ebugstr(|'schedul|
|000017e0| 65 72 20 74 61 73 6b 3a | 20 6d 73 67 20 69 73 20 |er task:| msg is |
|000017f0| 75 73 65 61 62 6c 65 3b | 67 27 29 3b 20 7b 24 45 |useable;|g'); {$E|
|00001800| 4e 44 43 7d 0d 0d 09 09 | 09 09 09 69 66 20 28 44 |NDC}....|...if (D|
|00001810| 61 74 61 42 75 66 66 65 | 72 3d 6e 69 6c 29 20 26 |ataBuffe|r=nil) &|
|00001820| 20 28 4d 61 78 44 61 74 | 61 53 69 7a 65 3c 3e 30 | (MaxDat|aSize<>0|
|00001830| 29 20 74 68 65 6e 20 68 | 61 6e 64 6c 65 45 72 72 |) then h|andleErr|
|00001840| 6f 72 28 70 55 6e 64 65 | 66 69 6e 65 64 2c 63 4e |or(pUnde|fined,cN|
|00001850| 69 6c 45 72 72 6f 72 29 | 3b 0d 0d 09 09 09 09 09 |ilError)|;.......|
|00001860| 68 61 6e 64 6c 65 45 72 | 72 6f 72 28 70 41 63 63 |handleEr|ror(pAcc|
|00001870| 65 70 74 4d 73 67 2c 41 | 63 63 65 70 74 4d 73 67 |eptMsg,A|cceptMsg|
|00001880| 28 52 65 63 4d 73 67 50 | 74 72 2c 0d 09 09 09 09 |(RecMsgP|tr,.....|
|00001890| 09 44 61 74 61 42 75 66 | 66 65 72 2c 0d 09 09 09 |.DataBuf|fer,....|
|000018a0| 09 09 4d 61 78 44 61 74 | 61 53 69 7a 65 29 29 3b |..MaxDat|aSize));|
|000018b0| 0d 0d 09 09 09 09 09 52 | 65 63 44 61 74 61 41 63 |.......R|ecDataAc|
|000018c0| 63 65 70 74 65 64 3a 3d | 66 61 6c 73 65 3b 0d 0d |cepted:=|false;..|
|000018d0| 09 09 09 09 09 52 65 63 | 4d 73 67 50 74 72 3a 3d |.....Rec|MsgPtr:=|
|000018e0| 6e 69 6c 3b 0d 09 09 09 | 09 65 6e 64 0d 09 09 09 |nil;....|.end....|
|000018f0| 09 65 6c 73 65 20 0d 09 | 09 09 09 7b 64 69 73 70 |.else ..|...{disp|
|00001900| 6f 73 65 20 75 73 65 6c | 65 73 73 20 6d 65 73 73 |ose usel|ess mess|
|00001910| 61 67 65 7d 0d 09 09 09 | 09 62 65 67 69 6e 09 0d |age}....|.begin..|
|00001920| 09 09 09 09 09 69 66 20 | 43 6f 48 61 6e 64 6c 65 |.....if |CoHandle|
|00001930| 72 3c 3e 6e 69 6c 20 74 | 68 65 6e 20 0d 09 09 09 |r<>nil t|hen ....|
|00001940| 09 09 43 6f 48 61 6e 64 | 6c 65 72 2e 43 6f 68 61 |..CoHand|ler.Coha|
|00001950| 6e 64 6c 65 28 70 55 6e | 55 73 65 61 62 6c 65 2c |ndle(pUn|Useable,|
|00001960| 52 65 63 4d 73 67 50 74 | 72 29 3b 0d 09 09 09 09 |RecMsgPt|r);.....|
|00001970| 09 7b 3f 3f 20 73 68 6f | 75 6c 64 20 77 65 20 61 |.{?? sho|uld we a|
|00001980| 76 6f 69 64 20 63 61 6c | 6c 69 6e 67 20 69 74 20 |void cal|ling it |
|00001990| 66 6f 72 20 6d 73 67 73 | 20 6f 75 74 20 6f 66 20 |for msgs| out of |
|000019a0| 63 6f 6e 74 65 78 74 20 | 3f 7d 0d 09 09 09 09 09 |context |?}......|
|000019b0| 7b 24 49 46 43 20 64 65 | 62 75 67 67 69 6e 67 7d |{$IFC de|bugging}|
|000019c0| 20 69 66 20 73 70 61 72 | 65 20 74 68 65 6e 20 64 | if spar|e then d|
|000019d0| 65 62 75 67 73 74 72 28 | 27 73 63 68 65 64 75 6c |ebugstr(|'schedul|
|000019e0| 65 72 20 74 61 73 6b 3a | 20 6d 73 67 20 69 73 20 |er task:| msg is |
|000019f0| 75 73 65 6c 65 73 73 3b | 67 27 29 3b 20 7b 24 45 |useless;|g'); {$E|
|00001a00| 4e 44 43 7d 0d 09 09 09 | 09 09 68 61 6e 64 6c 65 |NDC}....|..handle|
|00001a10| 45 72 72 6f 72 28 70 55 | 6e 64 65 66 69 6e 65 64 |Error(pU|ndefined|
|00001a20| 2c 44 65 73 74 72 6f 79 | 4d 73 67 28 52 65 63 4d |,Destroy|Msg(RecM|
|00001a30| 73 67 50 74 72 29 29 3b | 7b 74 68 65 20 75 73 65 |sgPtr));|{the use|
|00001a40| 72 20 68 61 64 20 61 20 | 63 68 61 6e 63 65 c9 7d |r had a |chance.}|
|00001a50| 0d 09 09 09 09 09 52 65 | 63 4d 73 67 50 74 72 3a |......Re|cMsgPtr:|
|00001a60| 3d 6e 69 6c 3b 7b 6e 6f | 74 20 6f 75 72 20 62 75 |=nil;{no|t our bu|
|00001a70| 73 69 6e 65 73 73 20 61 | 6e 79 6d 6f 72 65 7d 0d |siness a|nymore}.|
|00001a80| 09 09 09 09 09 52 65 63 | 44 61 74 61 41 63 63 65 |.....Rec|DataAcce|
|00001a90| 70 74 65 64 3a 3d 66 61 | 6c 73 65 3b 0d 09 09 09 |pted:=fa|lse;....|
|00001aa0| 09 65 6e 64 3b 7b 64 69 | 73 70 6f 73 65 20 75 73 |.end;{di|spose us|
|00001ab0| 65 6c 65 73 73 20 6d 65 | 73 73 61 67 65 7d 0d 09 |eless me|ssage}..|
|00001ac0| 09 09 65 6e 64 3b 7b 76 | 61 6c 69 64 20 6e 65 77 |..end;{v|alid new|
|00001ad0| 20 6d 65 73 73 61 67 65 | 7d 0d 0d 09 09 65 6e 64 | message|}....end|
|00001ae0| 3b 20 7b 63 68 65 63 6b | 20 66 6f 72 20 6e 65 77 |; {check| for new|
|00001af0| 20 6d 65 73 73 61 67 65 | 7d 0d 09 65 6e 64 3b 7b | message|}..end;{|
|00001b00| 72 65 63 65 69 76 69 6e | 67 7d 0d 0d 0d 09 7b 6d |receivin|g}....{m|
|00001b10| 61 6b 65 20 73 75 72 65 | 20 68 61 6e 64 6c 65 72 |ake sure| handler|
|00001b20| 73 20 61 72 65 20 69 6e | 73 74 61 6c 6c 65 64 20 |s are in|stalled |
|00001b30| 2d 73 6f 6d 65 6f 6e 65 | 20 6d 61 79 20 68 61 76 |-someone| may hav|
|00001b40| 65 20 63 68 61 6e 67 65 | 64 20 69 74 7d 0d 09 69 |e change|d it}..i|
|00001b50| 66 20 54 61 73 6b 47 65 | 6e 65 72 61 74 6f 72 3d |f TaskGe|nerator=|
|00001b60| 6e 69 6c 20 74 68 65 6e | 20 73 65 6e 64 69 6e 67 |nil then| sending|
|00001b70| 3a 3d 66 61 6c 73 65 3b | 0d 0d 09 69 66 20 73 65 |:=false;|...if se|
|00001b80| 6e 64 69 6e 67 20 26 20 | 54 61 73 6b 47 65 6e 65 |nding & |TaskGene|
|00001b90| 72 61 74 6f 72 4e 65 65 | 64 73 41 74 74 65 6e 74 |ratorNee|dsAttent|
|00001ba0| 69 6f 6e 20 74 68 65 6e | 20 0d 09 62 65 67 69 6e |ion then| ..begin|
|00001bb0| 20 0d 0d 09 09 44 65 73 | 74 69 6e 61 74 69 6f 6e | ....Des|tination|
|00001bc0| 2e 61 3a 3d 7b 4e 4c 4e | 65 78 74 28 44 65 73 74 |.a:={NLN|ext(Dest|
|00001bd0| 69 6e 61 74 69 6f 6e 2e | 61 29 7d 4e 4c 52 61 6e |ination.|a)}NLRan|
|00001be0| 64 6f 6d 3b 0d 09 09 64 | 65 73 74 69 6e 61 74 69 |dom;...d|estinati|
|00001bf0| 6f 6e 61 64 64 72 3a 3d | 64 65 73 74 69 6e 61 74 |onaddr:=|destinat|
|00001c00| 69 6f 6e 3b 0d 09 09 44 | 6f 4e 65 77 54 61 73 6b |ion;...D|oNewTask|
|00001c10| 28 64 65 73 74 69 6e 61 | 74 69 6f 6e 61 64 64 72 |(destina|tionaddr|
|00001c20| 29 3b 0d 09 65 6e 64 3b | 7b 54 61 73 6b 47 65 6e |);..end;|{TaskGen|
|00001c30| 65 72 61 74 6f 72 4e 65 | 65 64 73 41 74 74 65 6e |eratorNe|edsAtten|
|00001c40| 74 69 6f 6e 7d 0d 09 09 | 7b 24 45 4e 44 43 7d 0d |tion}...|{$ENDC}.|
|00001c50| 09 65 6e 64 3b 0d 09 0d | 2d 2d 2d 2d 2d 2d 2d 2d |.end;...|--------|
|00001c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 66 72 |--------|-----.fr|
|00001c80| 6f 6d 20 30 2e 39 62 31 | 2e 20 6e 6f 74 20 6f 66 |om 0.9b1|. not of|
|00001c90| 20 67 65 6e 65 72 61 6c | 20 75 73 65 2e 0d 2d 2d | general| use..--|
|00001ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cc0| 2d 2d 2d 0d 50 72 6f 63 | 65 64 75 72 65 20 53 65 |---.Proc|edure Se|
|00001cd0| 74 4d 73 67 42 75 66 66 | 65 72 73 28 6d 73 67 3a |tMsgBuff|ers(msg:|
|00001ce0| 20 4d 73 67 50 74 72 3b | 50 72 69 6f 42 75 66 3a | MsgPtr;|PrioBuf:|
|00001cf0| 50 74 72 3b 4d 61 78 50 | 72 69 6f 53 69 7a 65 3a |Ptr;MaxP|rioSize:|
|00001d00| 53 69 7a 65 3b 44 61 74 | 61 42 75 66 3a 50 74 72 |Size;Dat|aBuf:Ptr|
|00001d10| 3b 4d 61 78 44 61 74 61 | 53 69 7a 65 3a 53 69 7a |;MaxData|Size:Siz|
|00001d20| 65 29 3b 0d 50 72 6f 63 | 65 64 75 72 65 20 53 65 |e);.Proc|edure Se|
|00001d30| 74 4d 73 67 44 61 74 61 | 42 75 66 66 65 72 28 6d |tMsgData|Buffer(m|
|00001d40| 73 67 3a 20 4d 73 67 50 | 74 72 3b 44 61 74 61 42 |sg: MsgP|tr;DataB|
|00001d50| 75 66 3a 50 74 72 3b 4d | 61 78 44 61 74 61 53 69 |uf:Ptr;M|axDataSi|
|00001d60| 7a 65 3a 53 69 7a 65 29 | 3b 0d 50 72 6f 63 65 64 |ze:Size)|;.Proced|
|00001d70| 75 72 65 20 53 65 74 4d | 73 67 42 75 66 66 65 72 |ure SetM|sgBuffer|
|00001d80| 73 28 6d 73 67 3a 20 4d | 73 67 50 74 72 3b 50 72 |s(msg: M|sgPtr;Pr|
|00001d90| 69 6f 42 75 66 3a 50 74 | 72 3b 4d 61 78 50 72 69 |ioBuf:Pt|r;MaxPri|
|00001da0| 6f 53 69 7a 65 3a 53 69 | 7a 65 3b 44 61 74 61 42 |oSize:Si|ze;DataB|
|00001db0| 75 66 3a 50 74 72 3b 4d | 61 78 44 61 74 61 53 69 |uf:Ptr;M|axDataSi|
|00001dc0| 7a 65 3a 53 69 7a 65 29 | 3b 0d 62 65 67 69 6e 0d |ze:Size)|;.begin.|
|00001dd0| 09 69 66 20 6d 73 67 3c | 3e 6e 69 6c 20 74 68 65 |.if msg<|>nil the|
|00001de0| 6e 20 77 69 74 68 20 6d | 73 67 5e 20 64 6f 0d 09 |n with m|sg^ do..|
|00001df0| 62 65 67 69 6e 0d 09 09 | 4d 73 67 50 72 69 6f 50 |begin...|MsgPrioP|
|00001e00| 74 72 3a 3d 50 72 69 6f | 42 75 66 3b 0d 09 09 4d |tr:=Prio|Buf;...M|
|00001e10| 73 67 50 72 69 6f 53 69 | 7a 65 3a 3d 4d 61 78 50 |sgPrioSi|ze:=MaxP|
|00001e20| 72 69 6f 53 69 7a 65 3b | 0d 09 09 4d 73 67 53 74 |rioSize;|...MsgSt|
|00001e30| 64 50 74 72 3a 3d 44 61 | 74 61 42 75 66 3b 0d 09 |dPtr:=Da|taBuf;..|
|00001e40| 09 4d 73 67 53 74 64 53 | 69 7a 65 3a 3d 4d 61 78 |.MsgStdS|ize:=Max|
|00001e50| 44 61 74 61 53 69 7a 65 | 3b 0d 09 65 6e 64 3b 0d |DataSize|;..end;.|
|00001e60| 65 6e 64 3b 0d 0d 50 72 | 6f 63 65 64 75 72 65 20 |end;..Pr|ocedure |
|00001e70| 53 65 74 4d 73 67 44 61 | 74 61 42 75 66 66 65 72 |SetMsgDa|taBuffer|
|00001e80| 28 6d 73 67 3a 20 4d 73 | 67 50 74 72 3b 44 61 74 |(msg: Ms|gPtr;Dat|
|00001e90| 61 42 75 66 3a 50 74 72 | 3b 4d 61 78 44 61 74 61 |aBuf:Ptr|;MaxData|
|00001ea0| 53 69 7a 65 3a 53 69 7a | 65 29 3b 0d 62 65 67 69 |Size:Siz|e);.begi|
|00001eb0| 6e 0d 09 69 66 20 6d 73 | 67 3c 3e 6e 69 6c 20 74 |n..if ms|g<>nil t|
|00001ec0| 68 65 6e 20 77 69 74 68 | 20 6d 73 67 5e 20 64 6f |hen with| msg^ do|
|00001ed0| 0d 09 62 65 67 69 6e 0d | 09 09 4d 73 67 53 74 64 |..begin.|..MsgStd|
|00001ee0| 50 74 72 3a 3d 44 61 74 | 61 42 75 66 3b 0d 09 09 |Ptr:=Dat|aBuf;...|
|00001ef0| 4d 73 67 53 74 64 53 69 | 7a 65 3a 3d 4d 61 78 44 |MsgStdSi|ze:=MaxD|
|00001f00| 61 74 61 53 69 7a 65 3b | 0d 09 65 6e 64 3b 0d 65 |ataSize;|..end;.e|
|00001f10| 6e 64 3b 0d 09 09 00 00 | 00 00 00 00 00 00 00 00 |nd;.....|........|
|00001f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f80| 00 00 01 00 00 00 01 9d | 00 00 00 9d 00 00 00 52 |........|.......R|
|00001f90| 43 6f 48 61 6e 64 6c 65 | 72 55 6e 69 74 2e 70 b6 |CoHandle|rUnit.p.|
|00001fa0| 0d 09 6d 6f 6e 69 74 6f | 72 55 6e 69 74 2e 70 20 |..monito|rUnit.p |
|00001fb0| 11 53 63 68 65 64 75 6c | 65 72 2e 68 69 73 74 6f |.Schedul|er.histo|
|00001fc0| 72 79 02 00 00 00 54 45 | 58 54 4d 50 53 20 01 00 |ry....TE|XTMPS ..|
|00001fd0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 02 08 00 00 |..TEXTMP|S ......|
|00001fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 00 a4 1d 82 9a 00 00 | 1e 96 00 00 01 ef 6e 47 |........|......nG|
|00002000| 6c 6f 62 61 6c 73 2e 50 | 20 22 7b 50 49 6e 74 65 |lobals.P| "{PInte|
|00002010| 72 66 61 63 65 73 7d 22 | 4e 65 74 57 6f 72 6b 2e |rfaces}"|NetWork.|
|00002020| 70 20 20 43 61 6e 76 61 | 73 2e 70 20 54 61 73 6b |p  Canva|s.p Task|
|00002030| 2e 70 0d 09 20 50 61 73 | 63 61 6c 20 7b 78 70 6f |.p.. Pas|cal {xpo|
|00002040| 70 74 69 6f 6e 73 7d 20 | 20 54 61 73 6b 43 74 6c |ptions} | TaskCtl|
|00002050| 2e 70 0d 7b 6f 66 7d 6d | 6f 6e 69 74 6f 72 55 6e |.p.{of}m|onitorUn|
|00002060| 69 74 2e 70 2e 6f 20 c4 | 20 20 20 53 63 68 65 64 |it.p.o .|   Sched|
|00002070| 75 6c 65 72 55 6e 69 74 | 2e 70 20 20 42 72 61 69 |ulerUnit|.p  Brai|
|00002080| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 50 |...H..Mo|naco...P|
|00002090| e0 88 00 08 00 00 5f 6c | 00 01 e7 f8 31 2e 31 2d |......_l|....1.1-|
|000020a0| 37 a2 48 6d 00 00 00 06 | 00 04 00 50 00 20 01 dd |7.Hm....|...P. ..|
|000020b0| 02 3d 00 50 00 20 01 dd | 02 3d a4 ce 20 b3 00 00 |.=.P. ..|.=.. ...|
|000020c0| 03 93 00 00 03 93 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|000020d0| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|000020e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 2b 01 23 80 00 00 00 | 05 31 2e 32 2e 33 1e 31 |.+.#....|.1.2.3.1|
|00002100| 2e 32 2e 33 a9 31 39 39 | 31 54 68 65 20 4e 65 74 |.2.3.199|1The Net|
|00002110| 57 6f 72 6b 20 50 72 6f | 6a 65 63 74 20 00 00 01 |Work Pro|ject ...|
|00002120| 00 00 00 01 9d 00 00 00 | 9d 00 00 00 52 00 48 3c |........|....R.H<|
|00002130| 78 08 d2 00 00 00 1c 00 | 52 00 01 4d 50 53 52 00 |x.......|R..MPSR.|
|00002140| 01 00 12 76 65 72 73 00 | 00 00 2a 03 ed ff ff 00 |...vers.|..*.....|
|00002150| 00 00 00 00 00 00 00 03 | f0 ff ff 00 00 00 4c 00 |........|......L.|
|00002160| 00 00 00 00 02 ff ff 20 | 00 00 6e 00 48 39 3c 00 |....... |..n.H9<.|
|00002170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+