|
DataMuseum.dkPresents historical artifacts from the history of: DANOSI |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DANOSI Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 248192 (0x3c980)
Names: »RTP004.WP«
└─⟦37e69c590⟧ Bits:30010530 RTP-ref.man RC3502 PN 99 001174 RCtekst + GEM DVBS1.SW2114.src.2.6-8
└─⟦this⟧ »RTP004.WP«
└─⟦43259bdbc⟧ Bits:30010515 CVBS1.SW2114.src.2.14-5 RTP Manualer RTP - ref. man RTP Compiler Ref.man HEJ 92.09.21
└─⟦this⟧ »RTP004.WP«
0x00000…00020 00 00 00 00 00 00 00 00 42 06 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 4e 00 00 00 ┆ B N ┆
0x00020…00040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00040…00060 00 00 00 00 00 00 00 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x00060…00080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 ┆ ┆
0x00080…000a0 16 6d 61 20 66 72 6f 6e 74 20 22 39 39 30 30 31 31 37 34 22 20 22 02 7d 72 2e 02 6d 64 2e 02 64 ┆ ma front "99001174" " }r. md. d┆
0x000a0…000c0 61 67 22 20 22 42 6f 20 42 61 67 67 65 72 22 20 22 4a 61 6e 20 42 61 72 64 69 6e 6f 22 0d 0a 52 ┆ag" "Bo Bagger" "Jan Bardino" R┆
0x000c0…000e0 65 66 65 72 65 6e 63 65 20 4d 61 6e 75 61 6c 0d 0a 66 6f 72 20 52 43 33 35 30 32 0d 0a 52 65 61 ┆eference Manual for RC3502 Rea┆
0x000e0…00100 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 0d 0a 16 6d 6b 20 73 69 64 65 66 6f 72 6d 61 74 20 69 20 ┆l-Time Pascal mk sideformat i ┆
0x00100…00120 31 31 0d 0a 16 6d 6b 20 67 65 6e 6e 65 6d 73 74 72 65 67 31 35 0d 0a 16 6d 61 20 6a 62 73 74 61 ┆11 mk gennemstreg15 ma jbsta┆
0x00120…00140 72 74 32 20 22 52 43 33 35 30 32 20 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 22 0d 0a 16 ┆rt2 "RC3502 Real-Time Pascal" ┆
0x00140…00160 73 61 0d 0a 49 6e 74 72 6f 64 75 63 74 69 6f 6e 0d 0a 54 68 69 73 20 6d 61 6e 75 61 6c 20 64 65 ┆sa Introduction This manual de┆
0x00160…00180 73 63 72 69 62 65 73 20 74 68 65 20 52 43 38 30 30 30 20 63 72 6f 73 73 20 63 6f 6d 70 69 6c 65 ┆scribes the RC8000 cross compile┆
0x00180…001a0 72 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 0a 74 68 65 20 70 72 6f 67 72 61 6d ┆r implementation of the program┆
0x001a0…001c0 6d 69 6e 67 20 6c 61 6e 67 75 61 67 65 20 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 20 66 ┆ming language Real-Time Pascal f┆
0x001c0…001e0 6f 72 20 74 68 65 20 52 43 33 35 30 32 20 6d 61 63 68 69 6e 65 2e 0d 0a 16 73 62 0d 0a 4f 72 67 ┆or the RC3502 machine. sb Org┆
0x001e0…00200 61 6e 69 73 61 74 69 6f 6e 20 6f 66 20 74 68 69 73 20 4d 61 6e 75 61 6c 0d 0a 43 68 61 70 74 65 ┆anisation of this Manual Chapte┆
0x00200…00220 72 20 32 20 63 6f 6e 74 61 69 6e 73 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 68 6f ┆r 2 contains a description of ho┆
0x00220…00240 77 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 70 65 6e 64 65 6e 74 20 0a ┆w the implementation dependent ┆
0x00240…00260 64 65 74 61 69 6c 73 20 6f 66 20 74 68 65 20 6c 61 6e 67 75 61 67 65 20 61 72 65 20 72 65 61 6c ┆details of the language are real┆
0x00260…00280 69 7a 65 64 2e 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 64 65 76 69 61 74 69 6f 6e 73 20 ┆ized. Information on deviations ┆
0x00280…002a0 62 65 74 77 65 80 0a 65 6e 20 74 68 65 20 6c 61 6e 67 75 61 67 65 20 64 65 66 69 6e 69 74 69 6f ┆betweђ en the language definitio┆
0x002a0…002c0 6e 20 61 6e 64 20 74 68 65 20 61 63 74 75 61 6c 20 69 6d 70 6c 65 6d 65 6e 74 61 80 74 69 6f 6e ┆n and the actual implementaђtion┆
0x002c0…002e0 20 69 73 20 73 75 70 70 6c 69 65 64 2e 0d 0a 0d 0a 43 68 61 70 74 65 72 20 33 20 64 65 73 63 72 ┆ is supplied. Chapter 3 descr┆
0x002e0…00300 69 62 65 73 20 61 6c 6c 20 74 68 65 20 61 76 61 69 6c 61 62 6c 65 20 72 6f 75 74 69 6e 65 73 20 ┆ibes all the available routines ┆
0x00300…00320 6f 66 20 74 68 65 20 73 79 73 74 65 6d 20 6c 69 62 72 61 72 69 65 73 2e 0d 0a 0d 0a 43 68 61 70 ┆of the system libraries. Chap┆
0x00320…00340 74 65 72 20 34 20 64 65 73 63 72 69 62 65 73 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 70 72 6f ┆ter 4 describes the standard pro┆
0x00340…00360 63 65 73 73 65 73 20 63 6f 6d 70 72 69 73 69 6e 67 20 74 68 65 20 72 75 6e 20 74 69 6d 65 20 0a ┆cesses comprising the run time ┆
0x00360…00380 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 66 6f 72 20 52 43 33 35 30 32 20 52 65 61 6c 2d 54 69 6d 65 ┆environment for RC3502 Real-Time┆
0x00380…003a0 20 50 61 73 63 61 6c 20 70 72 6f 67 72 61 6d 73 2e 0d 0a 0d 0a 41 70 70 65 6e 64 69 78 20 41 20 ┆ Pascal programs. Appendix A ┆
0x003a0…003c0 63 6f 6e 74 61 69 6e 73 20 72 65 66 65 72 65 6e 63 65 73 2e 0d 0a 0d 0a 41 70 70 65 6e 64 69 63 ┆contains references. Appendic┆
0x003c0…003e0 65 73 20 42 2c 20 43 2c 20 61 6e 64 20 44 20 64 65 73 63 72 69 62 65 20 74 68 65 20 75 73 65 20 ┆es B, C, and D describe the use ┆
0x003e0…00400 6f 66 20 74 68 65 20 52 43 33 35 30 32 20 52 65 61 6c 2d 54 69 6d 65 20 0a 50 61 73 63 61 6c 20 ┆of the RC3502 Real-Time Pascal ┆
0x00400…00420 63 6f 6d 70 69 6c 65 72 20 61 6e 64 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2e ┆compiler and the error messages.┆
0x00420…00440 0d 0a 0d 0a 55 74 69 6c 69 74 69 65 73 20 66 6f 72 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 20 6f ┆ Utilities for manipulation o┆
0x00440…00460 66 20 73 6f 75 72 63 65 20 61 6e 64 20 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 73 20 61 72 65 ┆f source and object programs are┆
0x00460…00480 20 64 65 73 63 72 69 62 65 64 20 0a 69 6e 20 61 70 70 65 6e 64 69 63 65 73 20 45 20 61 6e 64 20 ┆ described in appendices E and ┆
0x00480…004a0 46 2e 0d 0a 0d 0a 41 70 70 65 6e 64 69 78 20 47 20 64 65 73 63 72 69 62 65 73 20 68 6f 77 20 61 ┆F. Appendix G describes how a┆
0x004a0…004c0 20 6c 6f 61 64 20 66 69 6c 65 20 6f 72 20 61 75 74 6f 6c 6f 61 64 20 66 69 6c 65 20 69 73 20 67 ┆ load file or autoload file is g┆
0x004c0…004e0 65 6e 65 72 61 74 65 64 20 6f 6e 20 0a 61 6e 20 52 43 38 30 30 30 2e 0d 0a 0d 0a 41 70 70 65 6e ┆enerated on an RC8000. Appen┆
0x004e0…00500 64 69 78 20 48 20 63 6f 6e 74 61 69 6e 73 20 61 20 63 6f 6d 70 6c 65 74 65 20 6c 69 73 74 20 6f ┆dix H contains a complete list o┆
0x00500…00520 66 20 6c 61 6e 67 75 61 67 65 20 73 79 6d 62 6f 6c 73 2e 0d 0a 0d 0a 41 70 70 65 6e 64 69 63 65 ┆f language symbols. Appendice┆
0x00520…00540 73 20 49 20 61 6e 64 20 4a 20 63 6f 6e 74 61 69 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 ┆s I and J contain a list of all ┆
0x00540…00560 70 72 65 64 65 66 69 6e 65 64 20 63 6f 6e 73 74 61 6e 74 73 2c 20 74 79 70 65 73 2c 20 0a 61 6e ┆predefined constants, types, an┆
0x00560…00580 64 20 72 6f 75 74 69 6e 65 73 2e 0d 0a 0d 0a 41 70 70 65 6e 64 69 78 20 4b 20 63 6f 6e 74 61 69 ┆d routines. Appendix K contai┆
0x00580…005a0 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 6f 70 65 72 61 74 6f 72 20 69 6e 70 75 74 2f 6f 75 74 70 ┆ns a list of operator input/outp┆
0x005a0…005c0 75 74 20 74 79 70 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 0a 61 6e 64 20 72 6f 75 74 69 6e 65 ┆ut type definitions and routine┆
0x005c0…005e0 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 2e 0d 0a 0d 0a 41 70 70 65 6e 64 69 78 20 4c 20 69 73 20 ┆ declarations. Appendix L is ┆
0x005e0…00600 61 20 6d 6f 72 65 20 63 6f 6d 70 72 65 68 65 6e 73 69 76 65 20 65 78 61 6d 70 6c 65 20 75 73 69 ┆a more comprehensive example usi┆
0x00600…00620 6e 67 20 74 68 65 20 4f 50 45 52 41 54 4f 52 20 69 6e 80 0a 70 75 74 2f 6f 75 74 70 75 74 20 72 ┆ng the OPERATOR inђ put/output r┆
0x00620…00640 6f 75 74 69 6e 65 73 2e 0d 0a 0d 0a 41 70 70 65 6e 64 69 78 20 4d 20 63 6f 6e 74 61 69 6e 73 20 ┆outines. Appendix M contains ┆
0x00640…00660 61 20 63 6f 6d 70 6c 65 74 65 20 6c 69 73 74 20 6f 66 20 65 78 63 65 70 74 69 6f 6e 20 63 6f 64 ┆a complete list of exception cod┆
0x00660…00680 65 73 2e 0d 0a 0d 0a 41 70 70 65 6e 64 69 78 20 4e 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 66 ┆es. Appendix N contains the f┆
0x00680…006a0 69 67 75 72 65 20 69 6e 64 65 78 20 61 6e 64 20 74 68 65 20 63 61 74 63 68 77 6f 72 64 20 69 6e ┆igure index and the catchword in┆
0x006a0…006c0 64 65 78 2e 20 41 20 3a 20 0a 61 70 70 65 6e 64 65 64 20 74 6f 20 61 20 63 61 74 63 68 77 6f 72 ┆dex. A : appended to a catchwor┆
0x006c0…006e0 64 20 69 6e 64 69 63 61 74 65 73 20 74 68 61 74 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 69 ┆d indicates that the reference i┆
0x006e0…00700 73 20 66 6f 72 20 61 20 73 79 6e 74 61 78 20 0a 64 69 61 67 72 61 6d 2e 20 41 6e 20 3d 20 61 70 ┆s for a syntax diagram. An = ap┆
0x00700…00720 70 65 6e 64 65 64 20 69 6e 64 69 63 61 74 65 73 20 74 68 61 74 20 74 68 65 20 72 65 66 65 72 65 ┆pended indicates that the refere┆
0x00720…00740 6e 63 65 20 69 73 20 66 6f 72 20 61 20 64 65 66 69 6e 69 74 69 6f 6e 20 0a 6f 66 20 61 20 63 6f ┆nce is for a definition of a co┆
0x00740…00760 6e 73 74 61 6e 74 20 6f 72 20 74 79 70 65 2e 0d 0a 0d 0a 0c 88 b8 0a 20 20 20 20 0d 0a 16 53 41 ┆nstant or type. ѕИ SA┆
0x00760…00780 0d 0a 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 44 65 73 63 72 69 70 74 69 6f 6e 0d 0a 54 68 ┆ Implementation Description Th┆
0x00780…007a0 69 73 20 63 68 61 70 74 65 72 20 63 6f 6e 74 61 69 6e 73 20 64 65 73 63 72 69 70 74 69 6f 6e 73 ┆is chapter contains descriptions┆
0x007a0…007c0 20 6f 66 20 68 6f 77 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 70 65 6e 64 65 6e 74 ┆ of how implementation dependent┆
0x007c0…007e0 20 0a 64 65 74 61 69 6c 73 20 6f 66 20 74 68 65 20 6c 61 6e 67 75 61 67 65 20 61 72 65 20 72 65 ┆ details of the language are re┆
0x007e0…00800 61 6c 69 7a 65 64 20 69 6e 20 74 68 65 20 52 54 50 33 35 30 32 20 63 72 6f 73 73 20 63 6f 6d 70 ┆alized in the RTP3502 cross comp┆
0x00800…00820 69 6c 65 72 2e 20 0a 41 73 20 66 61 72 20 61 73 20 70 6f 73 73 69 62 6c 65 2c 20 74 68 65 20 6f ┆iler. As far as possible, the o┆
0x00820…00840 72 64 65 72 69 6e 67 20 66 6f 6c 6c 6f 77 73 20 74 68 61 74 20 6f 66 20 74 68 65 20 6c 61 6e 67 ┆rdering follows that of the lang┆
0x00840…00860 75 61 67 65 20 0a 72 65 66 65 72 65 6e 63 65 20 6d 61 6e 75 61 6c 2e 0d 0a 41 20 72 65 66 65 72 ┆uage reference manual. A refer┆
0x00860…00880 65 6e 63 65 20 74 6f 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 73 65 63 74 69 6f 6e 20 ┆ence to the appropriate section ┆
0x00880…008a0 6f 66 20 74 68 65 20 6c 61 6e 67 75 61 67 65 20 72 65 66 65 72 65 6e 63 65 20 0a 6d 61 6e 75 61 ┆of the language reference manua┆
0x008a0…008c0 6c 20 2f 52 54 50 2f 20 69 73 20 67 69 76 65 6e 20 77 68 65 72 65 20 70 6f 73 73 69 62 6c 65 2e ┆l /RTP/ is given where possible.┆
0x008c0…008e0 20 54 68 65 20 66 6f 72 6d 61 74 20 69 73 20 28 63 66 2e 20 52 54 50 2d 78 2e 79 29 20 0a 66 6f ┆ The format is (cf. RTP-x.y) fo┆
0x008e0…00900 72 20 61 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 73 65 63 74 69 6f 6e 20 78 2e 79 2e 0d 0a 16 ┆r a reference to section x.y. ┆
0x00900…00920 73 62 0d 0a 4e 61 6d 65 73 0d 0a 28 63 66 20 52 54 50 2d 32 29 0d 0a 54 68 65 20 64 61 6e 69 73 ┆sb Names (cf RTP-2) The danis┆
0x00920…00940 68 20 6c 65 74 74 65 72 73 20 a2 7b 2c 20 7c 2c 20 7d 2c 20 5b 2c 20 5c 2c 20 61 6e 64 20 5d e2 ┆h letters б{, |, }, [, \, and ]Р┆
0x00940…00960 20 61 72 65 20 61 63 63 65 70 74 65 64 20 61 73 20 6d 65 6d 62 65 72 73 20 6f 66 20 0a 74 68 65 ┆ are accepted as members of the┆
0x00960…00980 20 63 61 74 65 67 6f 72 79 20 27 6c 65 74 74 65 72 27 2e 0d 0a 16 73 62 0d 0a 4b 65 79 77 6f 72 ┆ category 'letter'. sb Keywor┆
0x00980…009a0 64 73 0d 0a 28 63 66 2e 20 52 54 50 2d 32 2e 35 2e 31 29 0d 0a 49 6e 20 52 54 50 33 35 30 32 20 ┆ds (cf. RTP-2.5.1) In RTP3502 ┆
0x009a0…009c0 74 68 65 20 6c 69 73 74 20 6f 66 20 6b 65 79 77 6f 72 64 73 20 69 73 20 65 78 74 65 6e 64 65 64 ┆the list of keywords is extended┆
0x009c0…009e0 20 77 69 74 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 0a 77 6f 72 64 73 2e 20 54 68 65 20 ┆ with the following words. The ┆
0x009e0…00a00 74 6f 74 61 6c 20 73 65 74 20 6f 66 20 72 65 73 65 72 76 65 64 20 77 6f 72 64 73 20 28 61 6e 64 ┆total set of reserved words (and┆
0x00a00…00a20 20 73 79 6d 62 6f 6c 73 29 20 61 72 65 20 67 69 76 65 6e 20 69 6e 20 0a 61 70 70 65 6e 64 69 78 ┆ symbols) are given in appendix┆
0x00a20…00a40 20 48 2e 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 ┆ H. -L A1@ ┆
0x00a40…00a60 00 00 00 00 00 00 00 00 00 00 00 00 00 15 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 ┆ ┆
0x00a60…00a80 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆-L A1@ ┆
0x00a80…00aa0 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 0d 0a a1 4b 65 79 77 6f ┆ АKeywo┆
0x00aa0…00ac0 72 64 09 75 73 65 05 5f 0d 0a bf dc d8 42 45 47 49 4e 42 4f 44 59 be 09 69 6e 74 65 72 6e 61 6c ┆rd use _ ┐▄пBEGINBODYЙ internal┆
0x00ac0…00ae0 0d 0a 43 48 41 4e 4e 45 4c 09 84 69 6e 74 65 72 72 75 70 74 20 68 61 6e 64 6c 69 6e 67 2c 20 63 ┆ CHANNEL ёinterrupt handling, c┆
0x00ae0…00b00 66 2e 20 44 72 69 76 65 72 20 50 72 6f 63 65 73 73 65 73 2c 20 73 65 63 74 69 6f 6e 20 0a 19 94 ┆f. Driver Processes, section ћ┆
0x00b00…00b20 80 80 34 2e 33 0d 0a bf dc d8 45 58 50 4f 52 54 be 09 69 6e 74 65 72 6e 61 6c 0d 0a 4c 41 42 45 ┆ђђ4.3 ┐▄пEXPORTЙ internal LABE┆
0x00b20…00b40 4c 09 6c 61 62 65 6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 2c 20 63 66 2e 20 32 2e 31 33 2e 32 ┆L label declarations, cf. 2.13.2┆
0x00b40…00b60 0d 0a 50 52 45 46 49 58 09 68 65 61 64 69 6e 67 20 6f 66 20 73 65 70 61 72 61 74 65 6c 79 20 63 ┆ PREFIX heading of separately c┆
0x00b60…00b80 6f 6d 70 69 6c 65 64 20 72 6f 75 74 69 6e 65 2c 20 63 66 2e 20 32 2e 31 36 0d 0a 0d 0a 16 73 62 ┆ompiled routine, cf. 2.16 sb┆
0x00b80…00ba0 0d 0a 53 70 65 63 69 66 69 63 61 74 69 6f 6e 20 6f 66 20 54 79 70 65 73 0d 0a 28 63 66 20 52 54 ┆ Specification of Types (cf RT┆
0x00ba0…00bc0 50 2d 33 2e 31 29 0d 0a 54 68 65 20 61 75 67 6d 65 6e 74 65 64 20 66 6f 72 6d 20 6f 66 20 74 79 ┆P-3.1) The augmented form of ty┆
0x00bc0…00be0 70 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 66 6f 72 20 66 6f 72 6d 61 6c 20 70 61 72 61 ┆pe specification for formal para┆
0x00be0…00c00 6d 65 74 65 72 20 6c 69 73 74 73 20 0a 69 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 2e 20 54 ┆meter lists is not supported. T┆
0x00c00…00c20 68 65 20 73 6f 2d 63 61 6c 6c 65 64 20 bf dc d8 6f 70 65 6e 20 66 61 6d 69 6c 69 65 73 be 20 61 ┆he so-called ┐▄пopen familiesЙ a┆
0x00c20…00c40 72 65 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 2e 20 0a 54 68 65 20 73 79 6e 74 61 78 20 ┆re not implemented. The syntax ┆
0x00c40…00c60 64 69 61 67 72 61 6d 73 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6d 70 6c 65 6d 65 ┆diagrams for the current impleme┆
0x00c60…00c80 6e 74 61 74 69 6f 6e 20 61 72 65 3a 0d 0a 0d 0a 16 6d 61 20 74 79 70 65 31 0d 0a 16 6d 61 20 74 ┆ntation are: ma type1 ma t┆
0x00c80…00ca0 79 70 65 32 0d 0a 16 6d 61 20 74 79 70 65 33 0d 0a 16 6d 61 20 74 79 70 65 34 0d 0a 16 6d 61 20 ┆ype2 ma type3 ma type4 ma ┆
0x00ca0…00cc0 74 79 70 65 35 0d 0a 0d 0a 16 73 6f 20 21 20 28 66 72 6f 7a 65 6e 20 74 79 70 65 29 0d 0a 54 68 ┆type5 so ! (frozen type) Th┆
0x00cc0…00ce0 65 20 bf dc d8 66 72 6f 7a 65 6e 20 74 79 70 65 be 20 63 6f 6e 63 65 70 74 20 6f 66 20 65 61 72 ┆e ┐▄пfrozen typeЙ concept of ear┆
0x00ce0…00d00 6c 69 65 72 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 6f 66 20 52 54 50 33 35 30 32 20 ┆lier implementations of RTP3502 ┆
0x00d00…00d20 69 73 20 0a 73 74 69 6c 6c 20 73 75 70 70 6f 72 74 65 64 2e 20 41 6e 20 6f 62 6a 65 63 74 20 6f ┆is still supported. An object o┆
0x00d20…00d40 66 20 61 20 66 72 6f 7a 65 6e 20 74 79 70 65 20 63 61 6e 6e 6f 74 20 62 65 20 63 68 61 6e 67 65 ┆f a frozen type cannot be change┆
0x00d40…00d60 64 20 61 6e 64 20 0a 61 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 73 20 66 6f 72 20 66 6f 72 ┆d and actual parameters for for┆
0x00d60…00d80 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 73 20 6f 66 20 66 72 6f 7a 65 6e 20 74 79 70 65 20 6d 61 ┆mal parameters of frozen type ma┆
0x00d80…00da0 79 20 62 65 20 0a 63 6f 6e 73 74 61 6e 74 73 2c 20 65 76 65 6e 20 69 66 20 74 68 65 20 66 6f 72 ┆y be constants, even if the for┆
0x00da0…00dc0 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 6f 66 20 6b 69 6e 64 20 56 41 52 2c 20 69 2e ┆mal parameter is of kind VAR, i.┆
0x00dc0…00de0 65 2e 20 66 72 6f 7a 65 6e 20 0a 56 41 52 20 70 61 72 61 80 6d 65 74 65 72 73 20 61 72 65 20 65 ┆e. frozen VAR paraђmeters are e┆
0x00de0…00e00 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 70 61 72 61 6d 65 74 65 72 73 20 6f 66 20 6b 69 6e 64 20 ┆quivalent to parameters of kind ┆
0x00e00…00e20 49 4e 53 50 45 43 54 2e 0d 0a 16 73 62 0d 0a 54 68 65 20 54 79 70 65 20 49 6e 74 65 67 65 72 0d ┆INSPECT. sb The Type Integer ┆
0x00e20…00e40 0a 28 63 66 2e 20 52 54 50 2d 33 2e 34 2e 33 29 0d 0a 54 68 65 20 74 79 70 65 20 bf dc d8 64 6f ┆ (cf. RTP-3.4.3) The type ┐▄пdo┆
0x00e40…00e60 75 62 6c 65 be 20 69 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 61 73 20 61 20 62 75 69 6c ┆ubleЙ is not supported as a buil┆
0x00e60…00e80 74 20 69 6e 20 74 79 70 65 20 77 69 74 68 20 69 6e 66 69 78 20 0a 6f 70 65 72 61 74 6f 72 73 2e ┆t in type with infix operators.┆
0x00e80…00ea0 20 42 75 74 20 74 68 65 20 74 79 70 65 20 65 78 69 73 74 73 20 61 6e 64 20 6f 70 65 72 61 74 69 ┆ But the type exists and operati┆
0x00ea0…00ec0 6f 6e 73 20 6f 6e 20 6f 62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 0a 64 6f 75 62 6c 65 20 61 ┆ons on objects of type double a┆
0x00ec0…00ee0 72 65 20 70 65 72 66 6f 72 6d 65 64 20 62 79 20 6d 65 61 6e 73 20 6f 66 20 72 6f 75 74 69 6e 65 ┆re performed by means of routine┆
0x00ee0…00f00 20 63 61 6c 6c 73 2e 20 54 68 65 20 6e 65 63 65 73 73 61 72 79 20 0a 72 6f 75 74 69 6e 65 73 20 ┆ calls. The necessary routines ┆
0x00f00…00f20 61 72 65 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6e 61 6d 65 64 ┆are defined in the context named┆
0x00f20…00f40 20 64 6f 75 62 6c 65 65 6e 76 2c 20 77 68 69 63 68 20 69 73 20 70 61 72 74 20 6f 66 20 0a 74 68 ┆ doubleenv, which is part of th┆
0x00f40…00f60 65 20 6f 70 65 72 61 74 69 6e 67 20 73 79 73 74 65 6d 20 70 61 63 6b 61 67 65 2e 0d 0a 16 73 62 ┆e operating system package. sb┆
0x00f60…00f80 0d 0a 53 65 74 20 54 79 70 65 73 0d 0a 28 63 66 2e 20 52 54 50 2d 33 2e 35 29 0d 0a 16 6d 61 20 ┆ Set Types (cf. RTP-3.5) ma ┆
0x00f80…00fa0 73 65 74 74 79 70 65 0d 0a 54 68 65 20 63 6f 6d 6d 6f 6e 20 74 79 70 65 20 73 70 65 63 69 66 69 ┆settype The common type specifi┆
0x00fa0…00fc0 63 61 74 69 6f 6e 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 65 6c 65 6d 65 6e 74 20 74 79 70 ┆cation specifies the element typ┆
0x00fc0…00fe0 65 20 77 68 69 63 68 20 6d 75 73 74 20 0a 62 65 20 61 6e 20 6f 72 64 69 6e 61 6c 20 74 79 70 65 ┆e which must be an ordinal type┆
0x00fe0…01000 2c 20 61 6e 64 20 66 75 72 74 68 65 72 6d 6f 72 65 20 72 65 73 74 72 69 63 74 65 64 20 74 6f 20 ┆, and furthermore restricted to ┆
0x01000…01020 63 6f 76 65 72 20 70 6f 73 69 74 69 76 65 20 0a 76 61 6c 75 65 64 20 65 6c 65 6d 65 6e 74 73 20 ┆cover positive valued elements ┆
0x01020…01040 6f 6e 6c 79 2e 20 41 6e 64 20 73 65 74 20 63 6f 6e 73 74 61 6e 74 73 20 61 72 65 20 66 75 72 74 ┆only. And set constants are furt┆
0x01040…01060 68 65 72 20 72 65 73 74 72 69 63 74 65 64 20 6f 6e 6c 79 20 74 6f 20 0a 63 6f 6e 74 61 69 6e 20 ┆her restricted only to contain ┆
0x01060…01080 65 6c 65 6d 65 6e 74 73 20 69 6e 73 69 64 65 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 31 30 32 ┆elements inside the range 0..102┆
0x01080…010a0 33 2e 0d 0a 16 73 62 0d 0a 50 6f 6f 6c 73 0d 0a 28 63 66 2e 20 52 54 50 2d 33 2e 37 29 0d 0a 16 ┆3. sb Pools (cf. RTP-3.7) ┆
0x010a0…010c0 6d 61 20 73 68 69 65 6c 64 65 64 0d 0a 16 6d 61 20 70 6f 6f 6c 74 79 70 65 0d 0a 54 68 65 20 76 ┆ma shielded ma pooltype The v┆
0x010c0…010e0 61 6c 75 65 20 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 20 6f 66 20 74 68 65 20 70 6f 6f 6c 20 74 ┆alue of expression of the pool t┆
0x010e0…01100 79 70 65 20 69 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 6d 65 73 ┆ype is the initial number of mes┆
0x01100…01120 80 0a 73 61 67 65 73 20 61 6c 6c 6f 63 61 74 65 64 20 74 6f 20 74 68 65 20 70 6f 6f 6c 20 6f 62 ┆ђ sages allocated to the pool ob┆
0x01120…01140 6a 65 63 74 2c 20 69 2e 65 2e 20 74 68 65 20 63 61 72 64 69 6e 61 6c 69 74 79 20 6f 66 20 74 68 ┆ject, i.e. the cardinality of th┆
0x01140…01160 65 20 70 6f 6f 6c 2e 0d 0a 54 68 65 20 74 79 70 65 20 73 69 7a 65 20 6f 66 20 63 6f 6d 6d 6f 6e ┆e pool. The type size of common┆
0x01160…01180 20 74 79 70 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 69 73 20 74 68 65 20 62 75 66 66 65 ┆ type specification is the buffe┆
0x01180…011a0 72 73 69 7a 65 20 6f 66 20 74 68 65 20 0a 6d 65 73 73 61 67 65 73 20 61 6c 6c 6f 63 61 74 65 64 ┆rsize of the messages allocated┆
0x011a0…011c0 20 74 6f 20 74 68 65 20 70 6f 6f 6c 20 6f 62 6a 65 63 74 2e 20 49 66 20 69 74 20 69 73 20 61 62 ┆ to the pool object. If it is ab┆
0x011c0…011e0 73 65 6e 74 20 74 68 65 20 6d 65 73 73 61 67 65 73 20 0a 61 72 65 20 61 6c 6c 6f 63 61 74 65 64 ┆sent the messages are allocated┆
0x011e0…01200 20 77 69 74 68 20 6e 6f 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 2e 20 54 68 65 20 6e 6f 6e ┆ with no message buffer. The non┆
0x01200…01220 20 73 74 61 6e 64 61 72 64 20 76 61 72 69 61 6e 74 73 20 6f 66 20 0a 70 6f 6f 6c 20 74 79 70 65 ┆ standard variants of pool type┆
0x01220…01240 20 64 65 66 69 6e 69 74 69 6f 6e 20 61 72 65 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 74 68 ┆ definition are equivalent to th┆
0x01240…01260 65 20 73 69 6d 70 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 6c 6c 6f 80 77 65 64 20 0a 62 ┆e simple definition folloђwed b┆
0x01260…01280 79 20 61 20 63 61 6c 6c 20 6f 66 20 61 6c 6c 6f 63 70 6f 6f 6c 2c 20 77 69 74 68 20 74 68 65 20 ┆y a call of allocpool, with the ┆
0x01280…012a0 76 61 6c 75 65 20 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 20 61 73 20 27 6e 6f 5f 6f 66 5f 80 6d ┆value of expression as 'no_of_ђm┆
0x012a0…012c0 65 73 73 61 80 0a 67 65 73 27 20 70 61 72 61 6d 65 74 65 72 20 61 6e 64 20 74 68 65 20 76 61 6c ┆essaђ ges' parameter and the val┆
0x012c0…012e0 75 65 20 6f 66 20 74 79 70 65 73 69 7a 65 20 28 27 63 6f 6d 6d 6f 6e 20 74 79 70 65 20 73 70 65 ┆ue of typesize ('common type spe┆
0x012e0…01300 63 69 66 69 80 63 61 80 0a 74 69 6f 6e 27 29 20 61 73 20 27 62 75 66 73 69 7a 65 27 20 70 61 72 ┆cifiђcaђ tion') as 'bufsize' par┆
0x01300…01320 61 6d 65 74 65 72 2e 20 54 68 65 20 76 61 6c 75 65 20 30 20 69 73 20 75 73 65 64 20 69 66 20 6e ┆ameter. The value 0 is used if n┆
0x01320…01340 6f 20 74 79 70 65 20 69 73 20 73 70 65 63 69 80 0a 66 69 65 64 2e 20 54 68 65 20 73 69 7a 65 20 ┆o type is speciђ fied. The size ┆
0x01340…01360 6f 66 20 74 68 65 20 61 6c 6c 6f 63 61 74 65 64 20 62 75 66 66 65 72 28 73 29 20 69 73 20 61 6e ┆of the allocated buffer(s) is an┆
0x01360…01380 20 69 6e 74 65 67 72 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 0a 77 6f 72 64 73 2c 20 69 2e 65 2e ┆ integral number of words, i.e.┆
0x01380…013a0 20 61 6e 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 2e 0d 0a 4f 6e 20 74 68 ┆ an even number of bytes. On th┆
0x013a0…013c0 65 20 52 43 33 35 30 32 20 74 68 65 72 65 20 69 73 20 6f 6e 6c 79 20 6f 6e 65 20 6b 69 6e 64 20 ┆e RC3502 there is only one kind ┆
0x013c0…013e0 6f 66 20 6d 65 6d 6f 72 79 20 61 76 61 69 6c 61 62 6c 65 20 66 6f 72 20 61 6c 6c 6f 63 61 80 0a ┆of memory available for allocaђ ┆
0x013e0…01400 74 69 6f 6e 20 6f 66 20 6f 62 6a 65 63 74 73 2c 20 74 68 65 72 65 66 6f 72 65 20 74 68 65 20 66 ┆tion of objects, therefore the f┆
0x01400…01420 75 6e 63 74 69 6f 6e 20 bf dc d8 61 6c 6c 6f 63 6d 65 6d 70 6f 6f 6c be 20 61 6e 64 20 74 68 65 ┆unction ┐▄пallocmempoolЙ and the┆
0x01420…01440 20 74 79 70 65 20 0a bf dc d8 6d 65 6d 5f 74 79 70 65 be 20 61 72 65 20 6e 6f 74 20 73 75 70 70 ┆ type ┐▄пmem_typeЙ are not supp┆
0x01440…01460 6f 72 74 65 64 2e 0d 0a 16 73 62 0d 0a 4d 65 73 73 61 67 65 20 42 75 66 66 65 72 20 41 74 74 72 ┆orted. sb Message Buffer Attr┆
0x01460…01480 69 62 75 74 65 73 0d 0a 28 63 66 2e 20 52 54 50 2d 33 2e 37 29 0d 0a 16 73 6f 20 61 74 74 72 69 ┆ibutes (cf. RTP-3.7) so attri┆
0x01480…014a0 62 75 74 65 73 2c 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 0d 0a 54 68 65 20 61 74 74 72 69 ┆butes, message buffer The attri┆
0x014a0…014c0 62 75 74 65 73 20 27 bf dc d8 6f 66 66 73 65 74 be 27 2c 20 27 bf dc d8 74 6f 70 be 27 2c 20 61 ┆butes '┐▄пoffsetЙ', '┐▄пtopЙ', a┆
0x014c0…014e0 6e 64 20 27 bf dc d8 62 79 74 65 63 6f 75 6e 74 be 27 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74 ┆nd '┐▄пbytecountЙ' are implement┆
0x014e0…01500 65 64 20 62 79 20 0a 6d 65 61 6e 73 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 74 68 72 65 65 20 ┆ed by means of the first three ┆
0x01500…01520 77 6f 72 64 73 20 69 6e 20 74 68 65 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 2c 20 72 65 70 ┆words in the message buffer, rep┆
0x01520…01540 72 65 73 65 6e 74 69 6e 67 20 0a 74 68 65 20 61 74 74 72 69 62 75 74 65 73 20 6e 61 6d 65 64 20 ┆resenting the attributes named ┆
0x01540…01560 27 bf dc d8 66 69 72 73 74 be 27 2c 20 27 bf dc d8 6c 61 73 74 be 27 2c 20 61 6e 64 20 27 bf dc ┆'┐▄пfirstЙ', '┐▄пlastЙ', and '┐▄┆
0x01560…01580 d8 6e 65 78 74 be 27 20 69 6e 20 65 61 72 6c 69 65 72 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 0a ┆пnextЙ' in earlier versions of ┆
0x01580…015a0 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 20 73 79 73 74 65 6d 73 20 66 6f 72 20 74 68 65 ┆Real-Time Pascal systems for the┆
0x015a0…015c0 20 52 43 33 35 30 32 2e 0d 0a 0d 0a 54 68 65 20 72 65 6c 61 74 69 6f 6e 73 20 62 65 74 77 65 65 ┆ RC3502. The relations betwee┆
0x015c0…015e0 6e 20 74 68 65 20 6e 65 77 20 61 6e 64 20 74 68 65 20 6f 6c 64 20 76 65 72 73 69 6f 6e 73 20 6f ┆n the new and the old versions o┆
0x015e0…01600 66 20 74 68 65 73 65 20 61 74 74 72 69 80 0a 62 75 74 65 73 20 64 75 72 69 6e 67 20 72 65 74 72 ┆f these attriђ butes during retr┆
0x01600…01620 69 65 76 61 6c 20 6f 72 20 75 70 64 61 74 65 20 61 72 65 3a 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 ┆ieval or update are: -L ┆
0x01620…01640 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x01640…01660 19 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 ┆ -L A1┆
0x01660…01680 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 15 ff ff ff ff ff ff ┆@ ┆
0x01680…016a0 ff ff ff ff ff ff ff ff ff 04 0a 20 20 20 6f 66 66 73 65 74 28 72 29 20 09 3a 20 66 69 72 73 74 ┆ offset(r) : first┆
0x016a0…016c0 0d 0a 20 20 20 74 6f 70 28 72 29 20 09 3a 20 6c 61 73 74 2b 31 3b 20 2d 2d 20 6d 6f 64 75 6c 6f ┆ top(r) : last+1; -- modulo┆
0x016c0…016e0 20 61 72 69 74 68 6d 65 74 69 63 0d 0a 20 20 20 62 79 74 65 63 6f 75 6e 74 28 72 29 20 09 3a 20 ┆ arithmetic bytecount(r) : ┆
0x016e0…01700 6e 65 78 74 2d 66 69 72 73 74 3b 20 2d 2d 20 75 6e 73 69 67 6e 65 64 09 61 72 69 74 68 6d 65 74 ┆next-first; -- unsigned arithmet┆
0x01700…01720 69 63 0d 0a 20 20 0d 0a 20 20 20 bf dc d8 73 65 74 6f 66 66 73 65 74 be 28 72 2c 20 76 61 6c 29 ┆ic ┐▄пsetoffsetЙ(r, val)┆
0x01720…01740 20 09 3a 20 73 61 76 65 62 79 74 65 63 6f 75 6e 74 3a 3d 20 6e 65 78 74 2d 66 69 72 73 74 3b 20 ┆ : savebytecount:= next-first; ┆
0x01740…01760 2d 2d 20 6d 6f 64 75 6c 6f 0d 0a 09 3a 20 66 69 72 73 74 3a 3d 20 76 61 6c 3b 0d 0a 09 3a 20 6e ┆-- modulo : first:= val; : n┆
0x01760…01780 65 78 74 3a 3d 20 76 61 6c 2b 73 61 76 65 62 79 74 65 63 6f 75 6e 74 3b 20 2d 2d 20 6d 6f 64 75 ┆ext:= val+savebytecount; -- modu┆
0x01780…017a0 6c 6f 0d 0a 20 20 20 bf dc d8 73 65 74 74 6f 70 be 28 72 2c 20 76 61 6c 29 20 09 3a 20 6c 61 73 ┆lo ┐▄пsettopЙ(r, val) : las┆
0x017a0…017c0 74 3a 3d 20 76 61 6c 2d 31 3b 20 2d 2d 20 6d 6f 64 75 6c 6f 0d 0a 20 20 20 bf dc d8 73 65 74 62 ┆t:= val-1; -- modulo ┐▄пsetb┆
0x017c0…017e0 79 74 65 63 6f 75 6e 74 be 28 72 2c 20 76 61 6c 29 09 3a 20 6e 65 78 74 3a 3d 20 66 69 72 73 74 ┆ytecountЙ(r, val) : next:= first┆
0x017e0…01800 2b 76 61 6c 3b 20 2d 2d 20 75 6e 73 69 67 6e 65 64 0d 0a 0d 0a 4e 6f 74 65 3a 20 54 68 65 20 27 ┆+val; -- unsigned Note: The '┆
0x01800…01820 6e 65 78 74 27 20 61 74 74 72 69 62 75 74 65 20 69 73 20 75 70 64 61 74 65 64 20 61 73 20 61 20 ┆next' attribute is updated as a ┆
0x01820…01840 73 69 64 65 65 66 66 65 63 74 20 6f 66 20 27 73 65 74 6f 66 66 73 65 74 27 2c 20 0a 69 6e 20 6f ┆sideeffect of 'setoffset', in o┆
0x01840…01860 72 64 65 72 20 74 6f 20 6f 62 74 61 69 6e 2c 20 74 68 61 74 20 74 68 65 20 27 62 79 74 65 63 6f ┆rder to obtain, that the 'byteco┆
0x01860…01880 75 6e 74 27 20 61 74 74 72 69 62 75 74 65 20 69 73 20 69 6e 64 65 70 65 6e 64 65 6e 74 20 6f 66 ┆unt' attribute is independent of┆
0x01880…018a0 20 0a 74 68 65 20 27 6f 66 66 73 65 74 27 20 61 74 74 72 69 62 75 74 65 2e 0d 0a 16 73 62 0d 0a ┆ the 'offset' attribute. sb ┆
0x018a0…018c0 53 74 72 75 63 74 75 72 65 64 20 56 61 6c 75 65 73 0d 0a 28 63 66 2e 20 52 54 50 2d 33 2e 38 2e ┆Structured Values (cf. RTP-3.8.┆
0x018c0…018e0 33 29 0d 0a 16 73 6f 20 73 74 72 75 63 74 75 72 65 64 20 76 61 6c 75 65 73 0d 0a 53 74 72 75 63 ┆3) so structured values Struc┆
0x018e0…01900 74 75 72 65 64 20 76 61 6c 75 65 73 20 61 72 65 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 65 64 20 ┆tured values are only supported ┆
0x01900…01920 61 73 20 73 74 72 75 63 74 75 72 65 64 20 63 6f 6e 73 74 61 6e 74 73 2c 20 69 2e 65 2e 20 61 6c ┆as structured constants, i.e. al┆
0x01920…01940 6c 20 0a 63 6f 6d 70 6f 6e 65 6e 74 73 20 6d 75 73 74 20 62 65 20 63 6f 6e 73 74 61 6e 74 73 20 ┆l components must be constants ┆
0x01940…01960 61 6e 64 20 74 68 65 20 74 79 70 65 73 20 63 61 6e 6e 6f 74 20 62 65 20 64 79 6e 61 6d 69 63 2e ┆and the types cannot be dynamic.┆
0x01960…01980 20 4e 6f 74 65 20 0a 74 68 61 74 20 61 20 62 6f 75 6e 64 20 70 61 72 61 6d 65 74 65 72 69 7a 65 ┆ Note that a bound parameterize┆
0x01980…019a0 64 20 74 79 70 65 20 69 73 20 64 79 6e 61 6d 69 63 2c 20 65 76 65 6e 20 69 66 20 74 68 65 20 70 ┆d type is dynamic, even if the p┆
0x019a0…019c0 61 72 61 6d 65 74 65 72 73 20 0a 6f 66 20 74 68 65 20 62 69 6e 64 69 6e 67 20 61 72 65 20 63 6f ┆arameters of the binding are co┆
0x019c0…019e0 6e 73 74 61 6e 74 73 2e 20 46 75 72 74 68 65 72 6d 6f 72 65 2c 20 74 68 65 20 72 65 73 75 6c 74 ┆nstants. Furthermore, the result┆
0x019e0…01a00 20 6f 66 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 0a 70 72 65 64 65 66 69 6e 65 64 20 66 75 6e 63 ┆ of calling the predefined func┆
0x01a00…01a20 74 69 6f 6e 73 20 61 62 73 2c 20 63 68 72 2c 20 6f 72 64 2c 20 70 72 65 64 2c 20 61 6e 64 20 73 ┆tions abs, chr, ord, pred, and s┆
0x01a20…01a40 75 63 63 20 69 73 20 74 72 65 61 74 65 64 20 61 73 20 61 20 0a 76 61 72 69 61 62 6c 65 2c 20 65 ┆ucc is treated as a variable, e┆
0x01a40…01a60 76 65 6e 20 69 66 20 61 70 70 6c 69 65 64 20 6f 6e 20 61 20 63 6f 6e 73 74 61 6e 74 2e 0d 0a 16 ┆ven if applied on a constant. ┆
0x01a60…01a80 73 62 0d 0a 53 74 72 69 6e 67 20 54 79 70 65 0d 0a 28 63 66 2e 20 52 54 50 2d 33 2e 38 2e 34 29 ┆sb String Type (cf. RTP-3.8.4)┆
0x01a80…01aa0 0d 0a 16 73 6f 20 73 74 72 69 6e 67 20 74 79 70 65 0d 0a 54 68 65 20 74 79 70 65 20 73 74 72 69 ┆ so string type The type stri┆
0x01aa0…01ac0 6e 67 20 69 73 20 6e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 20 61 6e 64 20 74 68 65 72 65 66 6f ┆ng is not predefined and therefo┆
0x01ac0…01ae0 72 65 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 77 69 74 68 20 0a 62 75 69 6c 74 2d 69 6e 20 ┆re not supported with built-in ┆
0x01ae0…01b00 74 72 75 6e 63 61 74 69 6f 6e 20 61 6e 64 2f 6f 72 20 65 78 74 65 6e 73 69 6f 6e 2e 20 42 75 74 ┆truncation and/or extension. But┆
0x01b00…01b20 20 6c 69 74 65 72 61 6c 20 74 65 78 74 20 73 74 72 69 6e 67 73 20 61 72 65 20 74 72 75 6e 80 0a ┆ literal text strings are trunђ ┆
0x01b20…01b40 63 61 74 65 64 2f 65 78 74 65 6e 64 65 64 20 69 66 20 61 73 73 69 67 6e 65 64 20 74 6f 20 61 20 ┆cated/extended if assigned to a ┆
0x01b40…01b60 76 61 72 69 61 62 6c 65 20 6f 66 20 61 20 73 74 61 74 69 63 20 63 68 61 72 61 63 74 65 72 20 61 ┆variable of a static character a┆
0x01b60…01b80 72 72 61 79 20 0a 74 79 70 65 2e 0d 0a 16 73 62 0d 0a 52 65 70 72 65 73 65 6e 74 61 74 69 6f 6e ┆rray type. sb Representation┆
0x01b80…01ba0 20 61 6e 64 20 4c 61 79 6f 75 74 20 6f 66 20 56 61 72 69 61 62 6c 65 73 0d 0a 28 63 66 2e 20 52 ┆ and Layout of Variables (cf. R┆
0x01ba0…01bc0 54 50 2d 33 2e 31 30 29 0d 0a 16 73 6f 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 76 61 ┆TP-3.10) so representation, va┆
0x01bc0…01be0 72 69 61 62 6c 65 0d 0a 49 6e 20 74 68 69 73 20 63 68 61 70 74 65 72 20 69 74 20 69 73 20 65 78 ┆riable In this chapter it is ex┆
0x01be0…01c00 70 6c 61 69 6e 65 64 20 68 6f 77 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 76 61 72 69 6f 75 ┆plained how values of the variou┆
0x01c00…01c20 73 20 74 79 70 65 73 20 6f 66 20 52 65 80 0a 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 20 61 72 ┆s types of Reђ al-Time Pascal ar┆
0x01c20…01c40 65 20 72 65 70 72 65 73 65 6e 74 65 64 20 69 6e 20 74 68 65 20 52 43 33 35 30 32 20 69 6d 70 6c ┆e represented in the RC3502 impl┆
0x01c40…01c60 65 6d 65 6e 74 61 74 69 6f 6e 20 61 6e 64 20 68 6f 77 20 0a 6d 65 6d 6f 72 79 20 69 73 20 61 6c ┆ementation and how memory is al┆
0x01c60…01c80 6c 6f 63 61 74 65 64 20 61 6e 64 20 6c 61 69 64 20 6f 75 74 20 74 6f 20 68 6f 6c 64 20 74 68 65 ┆located and laid out to hold the┆
0x01c80…01ca0 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 0a 6f 66 20 61 20 70 ┆ values of the variables of a p┆
0x01ca0…01cc0 72 6f 63 65 73 73 2e 0d 0a 0d 0a 4e 6f 74 65 3a 20 54 68 65 20 6f 62 6a 65 63 74 20 6c 61 79 6f ┆rocess. Note: The object layo┆
0x01cc0…01ce0 75 74 20 66 6f 72 20 74 68 65 20 52 43 33 35 30 32 20 64 69 66 66 65 72 73 20 66 72 6f 6d 20 74 ┆ut for the RC3502 differs from t┆
0x01ce0…01d00 68 65 20 70 72 65 73 63 72 69 62 65 64 20 0a 6c 61 79 6f 75 74 20 6f 66 20 64 65 73 63 72 69 70 ┆he prescribed layout of descrip┆
0x01d00…01d20 74 69 76 65 20 74 79 70 65 73 2e 0d 0a 16 53 63 0d 0a 52 65 70 72 65 73 65 6e 74 61 74 69 6f 6e ┆tive types. Sc Representation┆
0x01d20…01d40 20 6f 66 20 56 61 6c 75 65 73 0d 0a 16 53 64 0d 0a 45 6e 75 6d 65 72 61 74 69 6f 6e 20 54 79 70 ┆ of Values Sd Enumeration Typ┆
0x01d40…01d60 65 73 0d 0a 41 6e 20 65 6e 75 6d 65 72 61 74 69 6f 6e 20 74 79 70 65 20 69 73 20 64 65 66 69 6e ┆es An enumeration type is defin┆
0x01d60…01d80 65 64 20 61 73 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 61 20 66 69 6e 69 74 65 2c 20 74 6f ┆ed as consisting of a finite, to┆
0x01d80…01da0 74 61 6c 6c 79 20 6f 72 80 0a 64 65 72 65 64 20 73 65 74 20 6f 66 20 76 61 6c 75 65 73 2c 20 63 ┆tally orђ dered set of values, c┆
0x01da0…01dc0 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 61 20 73 65 74 20 6f 66 20 6f 72 64 69 6e 61 6c ┆orresponding to a set of ordinal┆
0x01dc0…01de0 20 76 61 6c 75 65 73 20 77 68 69 63 68 20 69 73 20 0a 8c 96 90 0a 61 20 73 75 62 73 65 74 20 6f ┆ values which is їќљ a subset o┆
0x01de0…01e00 66 20 74 68 65 20 69 6e 74 65 67 72 61 6c 20 6e 75 6d 62 65 72 73 2e 20 54 68 65 20 72 65 70 72 ┆f the integral numbers. The repr┆
0x01e00…01e20 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 61 20 76 61 6c 75 65 20 6f 66 20 61 6e 20 0a 65 6e 75 ┆esentation of a value of an enu┆
0x01e20…01e40 6d 65 72 61 74 69 6f 6e 20 74 79 70 65 20 69 73 20 74 68 65 20 74 77 6f 27 73 20 63 6f 6d 70 6c ┆meration type is the two's compl┆
0x01e40…01e60 65 6d 65 6e 74 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 72 80 ┆ement representation of the corђ┆
0x01e60…01e80 0a 72 65 73 70 6f 6e 64 69 6e 67 20 6f 72 64 69 6e 61 6c 20 76 61 6c 75 65 2e 20 49 66 20 61 20 ┆ responding ordinal value. If a ┆
0x01e80…01ea0 74 79 70 65 20 69 6e 63 6c 75 64 65 73 20 6e 65 67 61 74 69 76 65 20 6f 72 64 69 6e 61 6c 20 76 ┆type includes negative ordinal v┆
0x01ea0…01ec0 61 6c 75 65 73 2c 20 0a 74 68 65 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 76 61 ┆alues, the representation of va┆
0x01ec0…01ee0 6c 75 65 73 20 6f 66 20 74 68 65 20 74 79 70 65 20 69 73 20 61 6c 77 61 79 73 20 69 6e 20 31 36 ┆lues of the type is always in 16┆
0x01ee0…01f00 20 62 69 74 73 20 28 61 20 0a 77 6f 72 64 29 2e 20 49 66 20 74 68 65 20 74 79 70 65 20 69 6e 63 ┆ bits (a word). If the type inc┆
0x01f00…01f20 6c 75 64 65 73 20 6f 6e 6c 79 20 6e 6f 6e 2d 6e 65 67 61 74 69 76 65 20 6f 72 64 69 6e 61 6c 20 ┆ludes only non-negative ordinal ┆
0x01f20…01f40 76 61 6c 75 65 73 2c 20 61 6e 64 20 6e 20 69 73 20 0a 74 68 65 20 6c 61 72 67 65 73 74 20 6f 66 ┆values, and n is the largest of┆
0x01f40…01f60 20 74 68 65 73 65 2c 20 74 68 65 6e 20 74 68 65 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 ┆ these, then the representation ┆
0x01f60…01f80 69 73 20 69 6e 20 6c 6f 67 82 32 81 28 6e 2b 31 29 20 62 69 74 73 20 28 61 74 20 0a 6d 6f 73 74 ┆is in logѓ2Ђ(n+1) bits (at most┆
0x01f80…01fa0 20 31 36 29 2e 20 45 78 61 6d 70 6c 65 73 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 69 6e 74 65 67 65 ┆ 16). Examples: - ёintege┆
0x01fa0…01fc0 72 20 76 61 6c 75 65 73 20 28 2d 33 32 37 36 38 2e 2e 33 32 37 36 37 29 20 61 72 65 20 72 65 70 ┆r values (-32768..32767) are rep┆
0x01fc0…01fe0 72 65 73 65 6e 74 65 64 20 69 6e 20 31 36 20 62 69 74 73 2c 20 0d 0a 20 20 20 2d 20 84 62 6f 6f ┆resented in 16 bits, - ёboo┆
0x01fe0…02000 6c 65 61 6e 20 76 61 6c 75 65 73 20 28 66 61 6c 73 65 2c 20 74 72 75 65 29 20 61 72 65 20 72 65 ┆lean values (false, true) are re┆
0x02000…02020 70 72 65 73 65 6e 74 65 64 20 69 6e 20 31 20 62 69 74 2c 20 0d 0a 20 20 20 2d 20 84 63 68 61 72 ┆presented in 1 bit, - ёchar┆
0x02020…02040 20 76 61 6c 75 65 73 20 61 72 65 20 72 65 70 72 65 73 65 6e 74 65 64 20 69 6e 20 38 20 62 69 74 ┆ values are represented in 8 bit┆
0x02040…02060 73 2c 20 0d 0a 20 20 20 2d 20 84 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 73 75 62 72 61 6e 67 ┆s, - ёvalues of the subrang┆
0x02060…02080 65 20 74 79 70 65 20 2d 33 2e 2e 37 20 61 72 65 20 72 65 70 72 65 73 65 6e 74 65 64 20 69 6e 20 ┆e type -3..7 are represented in ┆
0x02080…020a0 31 36 20 62 69 74 73 2c 20 0d 0a 20 20 20 2d 20 84 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 73 ┆16 bits, - ёvalues of the s┆
0x020a0…020c0 63 61 6c 61 72 20 74 79 70 65 20 28 72 65 64 2c 20 67 72 65 65 6e 2c 20 62 6c 75 65 2c 20 6f 72 ┆calar type (red, green, blue, or┆
0x020c0…020e0 61 6e 67 65 2c 20 70 69 6e 6b 29 20 61 72 65 20 0a 19 85 80 80 72 65 70 72 65 73 65 6e 74 65 64 ┆ange, pink) are Ёђђrepresented┆
0x020e0…02100 20 69 6e 20 33 20 62 69 74 73 2e 20 0d 0a 16 53 64 0d 0a 53 68 69 65 6c 64 65 64 20 61 6e 64 20 ┆ in 3 bits. Sd Shielded and ┆
0x02100…02120 50 6f 69 6e 74 65 72 20 54 79 70 65 73 0d 0a 54 68 65 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f ┆Pointer Types The representatio┆
0x02120…02140 6e 20 6f 66 20 76 61 6c 75 65 73 20 6f 66 20 73 68 69 65 6c 64 65 64 20 61 6e 64 20 70 6f 69 6e ┆n of values of shielded and poin┆
0x02140…02160 74 65 72 20 74 79 70 65 73 20 69 73 20 6e 6f 74 20 0a 72 65 76 65 61 6c 65 64 2e 20 0d 0a 16 53 ┆ter types is not revealed. S┆
0x02160…02180 64 0d 0a 53 65 74 20 54 79 70 65 73 0d 0a 54 68 65 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e ┆d Set Types The representation┆
0x02180…021a0 20 6f 66 20 76 61 6c 75 65 73 20 6f 66 20 61 20 73 65 74 20 74 79 70 65 20 75 73 65 73 20 61 20 ┆ of values of a set type uses a ┆
0x021a0…021c0 62 69 74 20 76 65 63 74 6f 72 20 77 68 6f 73 65 20 0a 6c 65 6e 67 74 68 20 64 65 70 65 6e 64 73 ┆bit vector whose length depends┆
0x021c0…021e0 20 6f 6e 20 74 68 65 20 62 61 73 65 20 74 79 70 65 2e 20 54 68 65 20 62 61 73 65 20 74 79 70 65 ┆ on the base type. The base type┆
0x021e0…02200 20 6d 75 73 74 20 62 65 20 61 6e 20 65 6e 75 6d 65 72 61 80 0a 74 69 6f 6e 20 74 79 70 65 20 77 ┆ must be an enumeraђ tion type w┆
0x02200…02220 68 69 63 68 20 64 6f 65 73 20 6e 6f 74 20 69 6e 63 6c 75 64 65 20 6e 65 67 61 74 69 76 65 20 6f ┆hich does not include negative o┆
0x02220…02240 72 64 69 6e 61 6c 20 76 61 6c 75 65 73 2e 20 0d 0a 0d 0a 49 66 20 74 68 65 20 6f 72 64 69 6e 61 ┆rdinal values. If the ordina┆
0x02240…02260 6c 20 76 61 6c 75 65 20 73 65 74 20 6f 66 20 74 68 65 20 65 6e 75 6d 65 72 61 74 69 6f 6e 20 74 ┆l value set of the enumeration t┆
0x02260…02280 79 70 65 20 54 20 69 73 20 74 68 65 20 72 61 6e 67 65 20 6d 2e 2e 6e 20 0a 28 6d a1 3e e1 30 29 ┆ype T is the range m..n (mА>р0)┆
0x02280…022a0 20 74 68 65 6e 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 74 79 70 65 20 73 65 74 20 6f 66 20 ┆ then values of the type set of ┆
0x022a0…022c0 54 20 61 72 65 20 72 65 70 72 65 73 65 6e 74 65 64 20 69 6e 20 61 20 62 69 74 20 0a 76 65 63 74 ┆T are represented in a bit vect┆
0x022c0…022e0 6f 72 20 77 69 74 68 20 69 6e 64 69 63 65 73 20 66 72 6f 6d 20 30 20 74 6f 20 6e 2e 20 54 68 65 ┆or with indices from 0 to n. The┆
0x022e0…02300 20 66 69 72 73 74 20 6d 20 28 70 6f 73 73 69 62 6c 79 20 7a 65 72 6f 29 20 6f 66 20 74 68 65 73 ┆ first m (possibly zero) of thes┆
0x02300…02320 65 20 0a 62 69 74 73 20 61 72 65 20 73 69 67 6e 69 66 69 63 61 6e 74 20 6f 6e 6c 79 20 69 6e 20 ┆e bits are significant only in ┆
0x02320…02340 63 6f 6d 70 61 72 69 73 6f 6e 73 2e 20 49 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 20 6f 66 20 54 ┆comparisons. If the element of T┆
0x02340…02360 20 77 68 6f 73 65 20 0a 6f 72 64 69 6e 61 6c 20 76 61 6c 75 65 20 69 73 20 69 20 28 6d a1 3c e1 ┆ whose ordinal value is i (mА<р┆
0x02360…02380 69 a1 3c e1 6e 29 20 69 73 20 61 20 6d 65 6d 62 65 72 20 6f 66 20 61 20 70 61 72 74 69 63 75 6c ┆iА<рn) is a member of a particul┆
0x02380…023a0 61 72 20 76 61 6c 75 65 20 6f 66 20 74 79 70 65 20 0a 73 65 74 20 6f 66 20 54 2c 20 74 68 65 6e ┆ar value of type set of T, then┆
0x023a0…023c0 20 62 69 74 20 69 20 69 6e 20 74 68 65 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 ┆ bit i in the representation of ┆
0x023c0…023e0 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 31 2c 20 0a 6f 74 68 65 72 77 69 73 65 20 69 74 20 69 ┆that value is 1, otherwise it i┆
0x023e0…02400 73 20 30 2e 20 45 78 61 6d 70 6c 65 3a 20 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 20 20 20 20 73 5f ┆s 0. Example: TYPE s_┆
0x02400…02420 74 79 70 65 3d 20 53 45 54 20 4f 46 20 33 2e 2e 35 3b 20 0d 0a 0d 0a 56 41 52 0d 0a 20 20 20 20 ┆type= SET OF 3..5; VAR ┆
0x02420…02440 20 20 73 5f 76 61 72 3a 20 73 5f 74 79 70 65 3a 3d 20 28 2e 33 2c 20 35 2e 29 3b 20 0d 0a 0d 0a ┆ s_var: s_type:= (.3, 5.); ┆
0x02440…02460 54 68 65 20 76 61 6c 75 65 20 6f 66 20 73 5f 76 61 72 20 69 73 20 72 65 70 72 65 73 65 6e 74 65 ┆The value of s_var is represente┆
0x02460…02480 64 20 61 73 20 73 68 6f 77 6e 3a 20 0d 0a 0d 0a 20 62 69 74 20 20 20 20 30 20 20 31 20 20 32 20 ┆d as shown: bit 0 1 2 ┆
0x02480…024a0 20 33 20 20 34 20 20 35 20 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 31 30 20 31 38 ┆ 3 4 5 ramme "3 0 +10 18┆
0x024a0…024c0 20 32 22 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 31 33 20 30 20 32 22 0d 0a 01 72 61 6d 6d ┆ 2" ramme "3 0 +13 0 2" ramm┆
0x024c0…024e0 65 20 22 33 20 30 20 2b 31 36 20 30 20 32 22 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 31 39 ┆e "3 0 +16 0 2" ramme "3 0 +19┆
0x024e0…02500 20 30 20 32 22 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 32 32 20 30 20 32 22 0d 0a 01 72 61 ┆ 0 2" ramme "3 0 +22 0 2" ra┆
0x02500…02520 6d 6d 65 20 22 33 20 30 20 2b 32 35 20 30 20 32 22 0d 0a 01 73 6b 79 67 67 65 20 22 32 20 2b 31 ┆mme "3 0 +25 0 2" skygge "2 +1┆
0x02520…02540 30 20 39 20 32 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 30 20 20 31 ┆0 9 2" 1 0 1┆
0x02540…02560 20 0d 0a 0d 0a 54 68 65 20 73 68 61 64 65 64 20 62 69 74 73 20 61 72 65 20 73 69 67 6e 69 66 69 ┆ The shaded bits are signifi┆
0x02560…02580 63 61 6e 74 20 6f 6e 6c 79 20 69 6e 20 63 6f 6d 70 61 72 69 73 6f 6e 73 2e 20 0d 0a 16 53 64 0d ┆cant only in comparisons. Sd ┆
0x02580…025a0 0a 53 74 72 75 63 74 75 72 65 64 20 54 79 70 65 73 0d 0a 56 61 6c 75 65 73 20 6f 66 20 61 72 72 ┆ Structured Types Values of arr┆
0x025a0…025c0 61 79 20 6f 72 20 72 65 63 6f 72 64 20 74 79 70 65 73 20 61 72 65 20 76 65 63 74 6f 72 73 20 6f ┆ay or record types are vectors o┆
0x025c0…025e0 66 20 76 61 6c 75 65 73 20 6f 66 20 65 6e 75 6d 65 72 61 74 69 6f 6e 2c 20 0a 73 68 69 65 6c 64 ┆f values of enumeration, shield┆
0x025e0…02600 65 64 2c 20 70 6f 69 6e 74 65 72 20 61 6e 64 20 73 65 74 20 74 79 70 65 73 2e 20 54 68 65 20 63 ┆ed, pointer and set types. The c┆
0x02600…02620 6f 6d 70 6f 6e 65 6e 74 20 76 61 6c 75 65 73 20 61 72 65 20 72 65 70 72 65 73 65 6e 74 65 64 20 ┆omponent values are represented ┆
0x02620…02640 0a 61 73 20 64 65 73 63 72 69 62 65 64 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 6f 6e 65 6e 74 20 ┆ as described for the component ┆
0x02640…02660 74 79 70 65 73 2e 20 0d 0a 16 53 64 0d 0a 42 69 74 20 53 69 7a 65 20 6f 66 20 54 79 70 65 0d 0a ┆types. Sd Bit Size of Type ┆
0x02660…02680 8c 89 80 0a 16 73 6f 20 62 69 74 20 73 69 7a 65 20 53 28 54 29 0d 0a 54 68 65 20 62 69 74 20 73 ┆їЅђ so bit size S(T) The bit s┆
0x02680…026a0 69 7a 65 20 6f 66 20 61 20 74 79 70 65 20 54 2c 20 64 65 6e 6f 74 65 64 20 53 28 54 29 2c 20 69 ┆ize of a type T, denoted S(T), i┆
0x026a0…026c0 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 69 74 73 20 75 73 65 64 20 74 6f 20 0a 72 65 ┆s the number of bits used to re┆
0x026c0…026e0 70 72 65 73 65 6e 74 20 76 61 6c 75 65 73 20 6f 66 20 74 79 70 65 20 54 2e 20 54 68 65 20 63 6f ┆present values of type T. The co┆
0x026e0…02700 6e 63 65 70 74 20 6f 66 20 73 69 7a 65 20 69 73 20 6f 6e 6c 79 20 72 65 6c 65 76 61 6e 74 20 66 ┆ncept of size is only relevant f┆
0x02700…02720 6f 72 20 0a 74 79 70 65 73 20 77 68 69 63 68 20 61 72 65 20 61 66 66 65 63 74 65 64 20 62 79 20 ┆or types which are affected by ┆
0x02720…02740 70 61 63 6b 69 6e 67 20 77 68 65 6e 20 75 73 65 64 20 66 6f 72 20 63 6f 6d 70 6f 6e 65 6e 74 73 ┆packing when used for components┆
0x02740…02760 20 6f 66 20 0a 73 74 72 75 63 74 75 72 65 64 20 74 79 70 65 73 2c 20 61 6e 64 20 69 73 20 74 68 ┆ of structured types, and is th┆
0x02760…02780 65 72 65 66 6f 72 65 20 6e 6f 74 20 64 65 66 69 6e 65 64 20 66 6f 72 20 61 6c 6c 20 74 79 70 65 ┆erefore not defined for all type┆
0x02780…027a0 73 2e 20 46 6f 72 20 65 6e 75 80 0a 6d 65 72 61 74 69 6f 6e 20 74 79 70 65 73 20 53 28 54 29 20 ┆s. For enuђ meration types S(T) ┆
0x027a0…027c0 69 73 20 63 6f 6d 70 75 74 65 64 20 61 73 20 64 65 73 63 72 69 62 65 64 20 61 62 6f 76 65 2e 20 ┆is computed as described above. ┆
0x027c0…027e0 0d 0a 0d 0a 45 78 61 6d 70 6c 65 3a 20 53 28 63 68 61 72 29 3d 38 2c 20 53 28 69 6e 74 65 67 65 ┆ Example: S(char)=8, S(intege┆
0x027e0…02800 72 29 3d 31 36 2e 20 0d 0a 16 53 63 0d 0a 4d 65 6d 6f 72 79 20 4c 61 79 6f 75 74 0d 0a 16 73 6f ┆r)=16. Sc Memory Layout so┆
0x02800…02820 20 6c 61 79 6f 75 74 2c 20 6d 65 6d 6f 72 79 0d 0a 54 68 65 20 6d 65 6d 6f 72 79 20 72 65 71 75 ┆ layout, memory The memory requ┆
0x02820…02840 69 72 65 6d 65 6e 74 20 6f 66 20 61 20 74 79 70 65 20 54 2c 20 64 65 6e 6f 74 65 64 20 4d 28 54 ┆irement of a type T, denoted M(T┆
0x02840…02860 29 2c 20 69 73 20 64 65 66 69 6e 65 64 20 61 73 20 74 68 65 20 0a 6e 75 6d 62 65 72 20 6f 66 20 ┆), is defined as the number of ┆
0x02860…02880 62 79 74 65 73 20 77 68 69 63 68 20 61 72 65 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f 72 20 61 20 ┆bytes which are allocated for a ┆
0x02880…028a0 76 61 72 69 61 62 6c 65 20 6f 66 20 74 79 70 65 20 54 2e 20 54 68 65 20 0a 76 61 6c 75 65 20 4d ┆variable of type T. The value M┆
0x028a0…028c0 28 54 29 20 69 73 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 20 63 61 6c 6c 20 6f 66 20 74 ┆(T) is the result of a call of t┆
0x028c0…028e0 79 70 65 73 69 7a 65 28 54 29 2e 0d 0a 0d 0a 46 6f 72 20 61 6e 20 65 6e 75 6d 65 72 61 74 69 6f ┆ypesize(T). For an enumeratio┆
0x028e0…02900 6e 20 74 79 70 65 20 54 2c 20 4d 28 54 29 20 64 65 70 65 6e 64 73 20 6f 6e 20 53 28 54 29 2c 20 ┆n type T, M(T) depends on S(T), ┆
0x02900…02920 61 73 20 66 6f 6c 6c 6f 77 73 3a 20 0d 0a 0d 0a 20 20 20 20 31 20 3c 3d 20 53 28 54 29 20 3c 3d ┆as follows: 1 <= S(T) <=┆
0x02920…02940 20 20 38 20 3a 20 4d 28 54 29 3d 31 0d 0a 20 20 20 20 39 20 3c 3d 20 53 28 54 29 20 3c 3d 20 31 ┆ 8 : M(T)=1 9 <= S(T) <= 1┆
0x02940…02960 36 20 3a 20 4d 28 54 29 3d 32 20 0d 0a 0d 0a 46 6f 72 20 73 68 69 65 6c 64 65 64 20 61 6e 64 20 ┆6 : M(T)=2 For shielded and ┆
0x02960…02980 70 6f 69 6e 74 65 72 20 74 79 70 65 73 2c 20 4d 28 54 29 20 69 73 20 74 68 65 20 66 6f 6c 6c 6f ┆pointer types, M(T) is the follo┆
0x02980…029a0 77 69 6e 67 3a 20 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 ┆wing: -L A1@ ┆
0x029a0…029c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1d ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x029c0…029e0 ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x029e0…02a00 00 00 00 00 00 00 00 00 00 00 00 19 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 20 20 20 ┆ ┆
0x02a00…02a20 20 4d 28 72 65 66 65 72 65 6e 63 65 29 3d 09 37 20 20 20 20 20 0d 0a 20 20 20 20 4d 28 6d 61 69 ┆ M(reference)= 7 M(mai┆
0x02a20…02a40 6c 62 6f 78 29 3d 09 37 20 20 20 20 20 20 20 0d 0a 20 20 20 20 4d 28 70 72 6f 63 65 73 73 29 3d ┆lbox)= 7 M(process)=┆
0x02a40…02a60 09 36 20 0d 0a 20 20 20 20 4d 28 70 6f 69 6e 74 65 72 29 3d 09 33 20 20 20 20 20 0d 0a 20 20 20 ┆ 6 M(pointer)= 3 ┆
0x02a60…02a80 20 4d 28 70 6f 6f 6c 29 3d 09 37 0d 0a 20 20 20 20 4d 28 63 68 61 69 6e 29 3d 09 38 0d 0a 20 20 ┆ M(pool)= 7 M(chain)= 8 ┆
0x02a80…02aa0 20 20 4d 28 70 72 6f 67 72 61 6d 5f 64 65 73 63 72 69 70 74 6f 72 29 3d 09 32 35 0d 0a 20 20 20 ┆ M(program_descriptor)= 25 ┆
0x02aa0…02ac0 20 4d 28 70 6f 72 74 29 3d 09 35 35 0d 0a 0d 0a 0d 0a 4d 65 6d 6f 72 79 20 72 65 71 75 69 72 65 ┆ M(port)= 55 Memory require┆
0x02ac0…02ae0 6d 65 6e 74 20 66 6f 72 20 73 74 72 75 63 74 75 72 65 64 20 74 79 70 65 73 20 69 73 20 64 65 73 ┆ment for structured types is des┆
0x02ae0…02b00 63 72 69 62 65 64 20 69 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 0a 77 69 74 68 20 6d 65 6d 6f 72 ┆cribed in connection with memor┆
0x02b00…02b20 79 20 6c 61 79 6f 75 74 20 66 6f 72 20 74 68 65 73 65 20 74 79 70 65 73 20 69 6e 20 74 68 65 20 ┆y layout for these types in the ┆
0x02b20…02b40 66 6f 6c 6c 6f 77 69 6e 67 20 73 75 62 73 65 63 74 69 6f 6e 73 2e 0d 0a 16 53 64 0d 0a 41 6c 69 ┆following subsections. Sd Ali┆
0x02b40…02b60 67 6e 6d 65 6e 74 0d 0a 16 73 6f 20 61 6c 69 67 6e 6d 65 6e 74 0d 0a 54 68 65 20 6d 65 6d 6f 72 ┆gnment so alignment The memor┆
0x02b60…02b80 79 20 6f 66 20 74 68 65 20 52 43 33 35 30 32 20 6d 61 63 68 69 6e 65 20 63 6f 6e 73 69 73 74 73 ┆y of the RC3502 machine consists┆
0x02b80…02ba0 20 6f 66 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 65 69 67 68 74 20 0a 62 69 74 20 62 79 74 ┆ of a sequence of eight bit byt┆
0x02ba0…02bc0 65 73 2e 20 45 61 63 68 20 62 79 74 65 20 68 61 73 20 61 6e 20 61 64 64 72 65 73 73 2e 20 54 77 ┆es. Each byte has an address. Tw┆
0x02bc0…02be0 6f 20 63 6f 6e 73 65 63 75 74 69 76 65 20 62 79 74 65 73 20 63 6f 6e 73 74 69 74 75 74 65 20 0a ┆o consecutive bytes constitute ┆
0x02be0…02c00 61 20 77 6f 72 64 2e 20 54 68 65 20 6d 6f 73 74 20 73 69 67 6e 69 66 69 63 61 6e 74 20 68 61 6c ┆a word. The most significant hal┆
0x02c00…02c20 66 77 6f 72 64 20 69 73 20 74 68 65 20 62 79 74 65 20 77 69 74 68 20 74 68 65 20 6c 6f 77 65 73 ┆fword is the byte with the lowes┆
0x02c20…02c40 74 20 0a 61 64 64 72 65 73 73 2e 20 0d 0a 0d 0a 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f ┆t address. Memory allocatio┆
0x02c40…02c60 6e 20 66 6f 72 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 61 20 73 68 69 65 6c 64 65 64 20 74 ┆n for a variable of a shielded t┆
0x02c60…02c80 79 70 65 2c 20 6f 72 20 6f 66 20 61 20 73 74 75 63 74 75 72 65 64 20 0a 74 79 70 65 20 63 6f 6e ┆ype, or of a stuctured type con┆
0x02c80…02ca0 74 61 69 6e 69 6e 67 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 6f 66 20 73 68 69 65 6c 64 65 64 20 74 ┆taining components of shielded t┆
0x02ca0…02cc0 79 70 65 28 73 29 20 69 73 20 70 68 79 73 69 63 61 6c 6c 79 20 77 6f 72 64 2d 61 6c 69 67 80 0a ┆ype(s) is physically word-aligђ ┆
0x02cc0…02ce0 6e 65 64 2c 20 69 2e 65 2e 20 74 68 65 20 61 6c 6c 6f 63 61 74 65 64 20 6d 65 6d 6f 72 79 20 73 ┆ned, i.e. the allocated memory s┆
0x02ce0…02d00 74 61 72 74 73 20 6f 6e 20 61 20 77 6f 72 64 20 62 6f 75 6e 64 61 72 79 2c 20 77 68 65 72 65 20 ┆tarts on a word boundary, where ┆
0x02d00…02d20 74 68 65 20 0a 66 69 72 73 74 20 62 79 74 65 20 68 61 73 20 61 6e 20 65 76 65 6e 20 61 64 64 72 ┆the first byte has an even addr┆
0x02d20…02d40 65 73 73 2e 20 41 6c 6c 20 6f 74 68 65 72 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 62 79 74 ┆ess. All other variables are byt┆
0x02d40…02d60 65 2d 61 6c 69 67 6e 65 64 2e 20 0d 0a 16 53 64 0d 0a 53 74 61 63 6b 20 46 72 61 6d 65 0d 0a 16 ┆e-aligned. Sd Stack Frame ┆
0x02d60…02d80 73 6f 20 66 72 61 6d 65 2c 20 73 74 61 63 6b 0d 0a 4d 65 6d 6f 72 79 20 66 6f 72 20 76 61 72 69 ┆so frame, stack Memory for vari┆
0x02d80…02da0 61 62 6c 65 73 20 64 65 63 6c 61 72 65 64 20 69 6e 20 70 72 6f 67 72 61 6d 20 6f 72 20 72 6f 75 ┆ables declared in program or rou┆
0x02da0…02dc0 74 69 6e 65 20 62 6c 6f 63 6b 73 20 69 73 20 61 6c 6c 6f 80 63 61 80 0a 74 65 64 20 69 6e 20 a0 ┆tine blocks is alloђcaђ ted in а┆
0x02dc0…02de0 73 74 61 63 6b 20 66 72 61 6d 65 73 e0 20 69 6e 20 74 68 65 20 64 61 74 61 20 73 74 72 75 63 74 ┆stack framesЯ in the data struct┆
0x02de0…02e00 75 72 65 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 74 6f 20 77 68 69 63 68 20 74 68 65 20 ┆ure of the process to which the ┆
0x02e00…02e20 0a 76 61 72 69 61 62 6c 65 73 20 62 65 6c 6f 6e 67 2e 20 54 68 65 20 67 65 6e 65 72 61 6c 20 6c ┆ variables belong. The general l┆
0x02e20…02e40 61 79 6f 75 74 20 6f 66 20 61 20 70 72 6f 63 65 73 73 20 73 74 61 63 6b 20 69 73 20 73 68 6f 77 ┆ayout of a process stack is show┆
0x02e40…02e60 6e 20 69 6e 20 0a 66 69 67 2e 20 32 2e 31 2e 20 0d 0a 0d 0a 49 6e 20 74 68 65 20 70 6f 72 74 69 ┆n in fig. 2.1. In the porti┆
0x02e60…02e80 6f 6e 20 6f 66 20 61 20 73 74 61 63 6b 20 66 72 61 6d 65 20 75 73 65 64 20 66 6f 72 20 64 65 63 ┆on of a stack frame used for dec┆
0x02e80…02ea0 6c 61 72 65 64 20 76 61 72 69 61 62 6c 65 73 20 6d 65 6d 6f 72 79 20 69 73 20 0a 61 6c 6c 6f 63 ┆lared variables memory is alloc┆
0x02ea0…02ec0 61 74 65 64 20 66 72 6f 6d 20 6c 6f 77 20 74 6f 20 68 69 67 68 20 61 64 64 72 65 73 73 65 73 20 ┆ated from low to high addresses ┆
0x02ec0…02ee0 69 6e 20 74 68 65 20 6f 72 64 65 72 20 6f 66 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20 0a ┆in the order of declaration of ┆
0x02ee0…02f00 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 69 6e 20 74 68 65 20 70 72 6f 67 72 61 6d 20 74 65 78 ┆the variables in the program tex┆
0x02f00…02f20 74 2e 20 0d 0a 0d 0a 41 6e 20 69 6e 74 65 67 72 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 ┆t. An integral number of byt┆
0x02f20…02f40 65 73 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f 72 20 65 61 63 68 20 76 61 72 69 61 62 6c ┆es is allocated for each variabl┆
0x02f40…02f60 65 2e 20 54 68 65 20 6e 75 6d 80 0a 62 65 72 20 6f 66 20 62 79 74 65 73 20 69 73 20 64 65 74 65 ┆e. The numђ ber of bytes is dete┆
0x02f60…02f80 72 6d 69 6e 65 64 20 62 79 20 74 68 65 20 6d 65 6d 6f 72 79 20 72 65 71 75 69 72 65 6d 65 6e 74 ┆rmined by the memory requirement┆
0x02f80…02fa0 20 6f 66 20 74 68 65 20 74 79 70 65 20 6f 66 20 0a 74 68 65 20 76 61 72 69 61 62 6c 65 73 2e 20 ┆ of the type of the variables. ┆
0x02fa0…02fc0 42 65 63 61 75 73 65 20 6f 66 20 70 68 79 73 69 63 61 6c 20 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 ┆Because of physical word-alignme┆
0x02fc0…02fe0 6e 74 2c 20 75 6e 75 73 65 64 20 62 79 74 65 73 20 6f 66 20 0a 6d 65 6d 6f 72 79 20 6d 61 79 20 ┆nt, unused bytes of memory may ┆
0x02fe0…03000 62 65 20 6c 65 66 74 20 62 65 74 77 65 65 6e 20 76 61 72 69 61 62 6c 65 73 20 28 69 6e 20 66 61 ┆be left between variables (in fa┆
0x03000…03020 63 74 20 61 6c 73 6f 20 69 6e 73 69 64 65 20 73 74 72 75 63 74 75 72 65 64 20 0a 76 61 72 69 61 ┆ct also inside structured varia┆
0x03020…03040 62 6c 65 73 29 2e 20 0d 0a 0d 0a 8c 8a d8 0a 57 68 65 6e 20 6d 6f 72 65 20 6d 65 6d 6f 72 79 20 ┆bles). їіп When more memory ┆
0x03040…03060 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f 72 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 61 ┆is allocated for a variable of a┆
0x03060…03080 6e 20 65 6e 75 6d 65 72 61 74 69 6f 6e 20 74 79 70 65 20 0a 74 68 61 6e 20 69 6e 64 69 63 61 74 ┆n enumeration type than indicat┆
0x03080…030a0 65 64 20 62 79 20 74 68 65 20 62 69 74 20 73 69 7a 65 20 6f 66 20 74 68 65 20 74 79 70 65 2c 20 ┆ed by the bit size of the type, ┆
0x030a0…030c0 74 68 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 70 6c 61 63 65 64 20 69 6e 20 0a 74 68 65 20 6c ┆the variable is placed in the l┆
0x030c0…030e0 65 61 73 74 20 73 69 67 6e 69 66 69 63 61 6e 74 20 62 69 74 73 20 6f 66 20 74 68 65 20 61 6c 6c ┆east significant bits of the all┆
0x030e0…03100 6f 63 61 74 65 64 20 62 79 74 65 20 6f 72 20 77 6f 72 64 2e 20 0d 0a 0d 0a 45 78 61 6d 70 6c 65 ┆ocated byte or word. Example┆
0x03100…03120 3a 20 43 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 64 65 63 6c 61 72 61 74 69 ┆: Corresponding to the declarati┆
0x03120…03140 6f 6e 73 3a 20 0d 0a 0d 0a 56 41 52 20 20 20 20 20 0d 0a 20 20 20 20 20 61 3a 20 63 68 61 72 3b ┆ons: VAR a: char;┆
0x03140…03160 20 20 20 20 20 0d 0a 20 20 20 20 20 62 2c 20 63 3a 20 30 2e 2e 37 3b 20 20 20 20 20 0d 0a 20 20 ┆ b, c: 0..7; ┆
0x03160…03180 20 20 20 64 3a 20 69 6e 74 65 67 65 72 3b 20 20 20 20 20 0d 0a 20 20 20 20 20 65 3a 20 72 65 66 ┆ d: integer; e: ref┆
0x03180…031a0 65 72 65 6e 63 65 3b 20 20 0d 0a 0d 0a 4d 65 6d 6f 72 79 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 ┆erence; Memory is allocated┆
0x031a0…031c0 20 77 69 74 68 69 6e 20 61 20 73 74 61 63 6b 20 66 72 61 6d 65 20 61 73 20 69 6c 6c 75 73 74 72 ┆ within a stack frame as illustr┆
0x031c0…031e0 61 74 65 64 20 69 6e 20 66 69 67 2e 20 32 2e 32 2e 0d 0a 0d 0a 0e 0a 04 00 2d 4c 00 00 06 00 00 ┆ated in fig. 2.2. -L ┆
0x031e0…03200 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 16 ┆ A1@ ┆
0x03200…03220 32 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 ┆2 -L A1@┆
0x03220…03240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1d ff ff ff ff ff ff ff ┆ ┆
0x03240…03260 ff ff ff ff ff ff ff ff 04 0a 20 0d 0a 01 52 41 4d 4d 45 20 22 35 20 30 20 2b 32 33 20 32 35 20 ┆ RAMME "5 0 +23 25 ┆
0x03260…03280 33 35 22 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 35 35 20 32 20 30 22 0d 0a 01 72 61 6d 6d ┆35" ramme "3 0 +55 2 0" ramm┆
0x03280…032a0 65 20 22 33 20 30 20 2b 35 36 20 30 20 36 22 0d 0a bf dc d8 67 6c 6f 62 61 6c 20 66 72 61 6d 65 ┆e "3 0 +56 0 6" ┐▄пglobal frame┆
0x032a0…032c0 be 20 20 20 20 20 20 2d 3e 0d 0a 09 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 6f 72 0d 0a ┆Й -> process descriptor ┆
0x032c0…032e0 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 31 20 2b 32 33 20 32 35 20 30 22 0d 0a 0d 0a 0d 0a 09 61 ┆ ramme "3 1 +23 25 0" a┆
0x032e0…03300 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 73 0d 0a 09 09 67 6c 6f 62 61 6c 20 66 72 61 6d 65 ┆ctual parameters global frame┆
0x03300…03320 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 31 20 2b 32 33 20 32 35 20 30 22 0d 0a 01 72 61 6d ┆ ramme "3 1 +23 25 0" ram┆
0x03320…03340 6d 65 20 22 33 20 30 20 2b 35 36 20 30 20 37 22 0d 0a 09 76 61 72 69 61 62 6c 65 73 20 64 65 63 ┆me "3 0 +56 0 7" variables dec┆
0x03340…03360 6c 61 72 65 64 20 61 74 20 74 68 65 0d 0a 09 70 72 6f 67 72 61 6d 20 62 6c 6f 63 6b 20 6c 65 76 ┆lared at the program block lev┆
0x03360…03380 65 6c 0d 0a 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 32 33 20 32 35 20 30 22 0d 0a ┆el ramme "3 0 +23 25 0" ┆
0x03380…033a0 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 35 35 20 32 20 30 22 0d 0a 0d 0a 0d 0a 09 20 20 20 20 20 ┆ ramme "3 0 +55 2 0" ┆
0x033a0…033c0 20 20 20 20 20 20 2e 0d 0a 09 20 20 20 20 20 20 20 20 20 20 20 2e 09 73 74 61 63 6b 20 66 72 61 ┆ . . stack fra┆
0x033c0…033e0 6d 65 73 20 66 6f 72 0d 0a 09 20 20 20 20 20 20 20 20 20 20 20 2e 09 69 6e 74 65 72 6d 65 64 69 ┆mes for . intermedi┆
0x033e0…03400 61 74 65 0d 0a 09 09 72 6f 75 74 69 6e 65 20 63 61 6c 6c 73 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 ┆ate routine calls ramme ┆
0x03400…03420 22 33 20 30 20 2b 35 36 20 30 20 36 22 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 31 20 2b 32 ┆"3 0 +56 0 6" ramme "3 1 +2┆
0x03420…03440 33 20 32 35 20 30 22 0d 0a 09 61 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 73 0d 0a 20 0d 0a ┆3 25 0" actual parameters ┆
0x03440…03460 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 32 33 20 32 35 20 30 22 0d 0a 01 72 61 6d 6d 65 20 22 33 ┆ ramme "3 0 +23 25 0" ramme "3┆
0x03460…03480 20 30 20 2b 35 35 20 32 20 30 22 0d 0a bf dc d8 6c 6f 63 61 6c 20 66 72 61 6d 65 be 20 20 20 20 ┆ 0 +55 2 0" ┐▄пlocal frameЙ ┆
0x03480…034a0 20 20 20 2d 3e 20 0d 0a 0d 0a 09 61 6e 6f 6e 79 6d 6f 75 73 20 70 61 72 61 6d 65 74 65 72 73 0d ┆ -> anonymous parameters ┆
0x034a0…034c0 0a 09 09 6c 6f 63 61 6c 20 66 72 61 6d 65 0d 0a 09 09 28 66 6f 72 20 74 68 65 20 6c 61 74 65 73 ┆ local frame (for the lates┆
0x034c0…034e0 74 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 31 20 2b 32 33 20 32 35 20 30 22 0d 0a 09 76 61 72 69 ┆t ramme "3 1 +23 25 0" vari┆
0x034e0…03500 61 62 6c 65 73 20 64 65 63 6c 61 72 65 64 20 61 74 20 74 68 65 09 72 6f 75 74 69 6e 65 20 63 61 ┆ables declared at the routine ca┆
0x03500…03520 6c 6c 29 0d 0a 09 72 6f 75 74 69 6e 65 20 62 6c 6f 63 6b 20 6c 65 76 65 6c 20 0d 0a 01 72 61 6d ┆ll) routine block level ram┆
0x03520…03540 6d 65 20 22 33 20 30 20 2b 35 36 20 30 20 36 22 0d 0a 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 33 ┆me "3 0 +56 0 6" ramme "3┆
0x03540…03560 20 31 20 2b 32 33 20 32 35 20 30 22 0d 0a 09 6f 70 65 72 61 6e 64 73 20 6f 66 20 65 78 70 72 65 ┆ 1 +23 25 0" operands of expre┆
0x03560…03580 73 73 69 6f 6e 0d 0a 09 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65 64 0d 0a 73 74 61 63 6b 20 74 ┆ssion being evaluated stack t┆
0x03580…035a0 6f 70 20 20 20 20 20 20 20 20 20 2d 3e 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 35 ┆op -> ramme "3 0 +5┆
0x035a0…035c0 35 20 32 20 30 22 0d 0a 0d 0a 68 69 67 68 20 61 64 64 72 65 73 73 0d 0a 16 73 66 20 32 0d 0a 50 ┆5 2 0" high address sf 2 P┆
0x035c0…035e0 72 6f 63 65 73 73 20 53 74 61 63 6b 20 4c 61 79 6f 75 74 20 28 73 6e 61 70 73 68 6f 74 29 20 0d ┆rocess Stack Layout (snapshot) ┆
0x035e0…03600 0a 0f 0a 0e 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x03600…03620 00 00 00 00 00 00 00 00 00 00 00 00 00 09 18 26 2f 3e ff ff ff ff ff ff ff ff ff ff ff 04 04 00 ┆ &/> ┆
0x03620…03640 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆-L A1@ ┆
0x03640…03660 00 00 00 00 00 00 16 32 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 0d 0a 09 73 20 62 65 69 ┆ 2 s bei┆
0x03660…03680 6e 67 20 65 76 65 6e 09 09 09 73 20 62 65 69 6e 67 20 6f 64 64 0d 0a 0d 0a 09 4d 53 42 07 4c 53 ┆ng even s being odd MSB LS┆
0x03680…036a0 42 09 09 4d 53 42 07 4c 53 42 0d 0a 61 64 64 72 65 73 73 09 30 20 31 20 32 20 33 20 34 20 35 20 ┆B MSB LSB address 0 1 2 3 4 5 ┆
0x036a0…036c0 36 20 37 09 61 64 64 72 65 73 73 09 30 20 31 20 32 20 33 20 34 20 35 20 36 20 37 0d 0a 20 0d 0a ┆6 7 address 0 1 2 3 4 5 6 7 ┆
0x036c0…036e0 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 31 30 20 31 36 20 32 36 22 0d 0a 01 72 61 6d 6d 65 20 22 ┆ ramme "5 0 +10 16 26" ramme "┆
0x036e0…03700 35 20 30 20 2b 34 38 20 31 36 20 32 34 22 0d 0a 73 2b 30 09 20 20 20 20 20 20 20 61 09 09 73 2b ┆5 0 +48 16 24" s+0 a s+┆
0x03700…03720 30 09 20 20 20 20 20 20 20 61 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 31 30 20 31 ┆0 a ramme "3 0 +10 1┆
0x03720…03740 36 20 30 22 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 34 38 20 31 36 20 30 22 0d 0a 01 73 6b ┆6 0" ramme "3 0 +48 16 0" sk┆
0x03740…03760 79 67 67 65 20 22 32 20 2b 31 30 20 31 30 20 34 22 0d 0a 01 73 6b 79 67 67 65 20 22 32 20 2b 34 ┆ygge "2 +10 10 4" skygge "2 +4┆
0x03760…03780 38 20 31 30 20 34 22 0d 0a 73 2b 31 09 20 20 20 20 20 20 20 20 20 20 20 20 62 09 09 73 2b 31 09 ┆8 10 4" s+1 b s+1 ┆
0x03780…037a0 20 20 20 20 20 20 20 20 20 20 20 20 62 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 31 ┆ b ramme "3 0 +1┆
0x037a0…037c0 30 20 31 36 20 30 22 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 34 38 20 31 36 20 30 22 0d 0a ┆0 16 0" ramme "3 0 +48 16 0" ┆
0x037c0…037e0 73 2b 32 09 20 20 20 20 20 20 20 20 20 20 20 20 63 09 09 73 2b 32 09 20 20 20 20 20 20 20 20 20 ┆s+2 c s+2 ┆
0x037e0…03800 20 20 20 63 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 31 30 20 31 36 20 30 22 0d 0a ┆ c ramme "3 0 +10 16 0" ┆
0x03800…03820 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 34 38 20 31 36 20 30 22 0d 0a 73 2b 33 09 09 09 73 2b 33 ┆ ramme "3 0 +48 16 0" s+3 s+3┆
0x03820…03840 0d 0a 09 20 20 20 20 20 20 20 64 09 09 09 20 20 20 20 20 20 20 64 0d 0a 73 2b 34 09 09 09 73 2b ┆ d d s+4 s+┆
0x03840…03860 34 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 33 20 30 20 2b 31 30 20 31 36 20 30 22 0d 0a 01 72 61 ┆4 ramme "3 0 +10 16 0" ra┆
0x03860…03880 6d 6d 65 20 22 33 20 30 20 2b 34 38 20 31 36 20 30 22 0d 0a 01 73 6b 79 67 67 65 20 22 32 20 2b ┆mme "3 0 +48 16 0" skygge "2 +┆
0x03880…038a0 31 30 20 31 36 20 32 22 0d 0a 73 2b 35 09 09 09 73 2b 35 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 ┆10 16 2" s+5 s+5 ramme "┆
0x038a0…038c0 33 20 30 20 2b 31 30 20 31 36 20 30 22 0d 0a 73 2b 36 09 09 09 73 2b 36 0d 0a 0d 0a 73 2b 37 09 ┆3 0 +10 16 0" s+6 s+6 s+7 ┆
0x038c0…038e0 09 09 73 2b 37 0d 0a 0d 0a 73 2b 38 09 09 09 73 2b 38 09 20 20 20 20 20 20 20 65 0d 0a 0d 0a 73 ┆ s+7 s+8 s+8 e s┆
0x038e0…03900 2b 39 09 20 20 20 20 20 20 20 65 09 09 73 2b 39 0d 0a 0d 0a 73 2b 31 30 09 09 09 73 2b 31 30 0d ┆+9 e s+9 s+10 s+10 ┆
0x03900…03920 0a 0d 0a 73 2b 31 31 09 09 09 73 2b 31 31 0d 0a 0d 0a 73 2b 31 32 0d 0a 0d 0a 06 54 68 65 20 73 ┆ s+11 s+11 s+12 The s┆
0x03920…03940 68 61 64 65 64 20 61 72 65 61 73 20 61 72 65 20 75 6e 75 73 65 64 2e 0d 0a 16 73 66 20 32 0d 0a ┆haded areas are unused. sf 2 ┆
0x03940…03960 4d 65 6d 6f 72 79 20 4c 61 79 6f 75 74 20 66 6f 72 20 53 69 6d 70 6c 65 20 56 61 72 69 61 62 6c ┆Memory Layout for Simple Variabl┆
0x03960…03980 65 73 20 69 6e 20 53 74 61 63 6b 20 46 72 61 6d 65 0d 0a 0f 0a 0d 0a 54 68 65 20 6c 61 79 6f 75 ┆es in Stack Frame The layou┆
0x03980…039a0 74 20 6f 66 20 61 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 73 20 69 73 20 73 69 6d 69 6c 61 ┆t of actual parameters is simila┆
0x039a0…039c0 72 20 74 6f 20 74 68 61 74 20 6f 66 20 64 65 63 6c 61 72 65 64 20 76 61 72 69 80 0a 61 62 6c 65 ┆r to that of declared variђ able┆
0x039c0…039e0 73 2c 20 77 69 74 68 20 61 20 6d 69 6e 6f 72 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 3a 20 53 69 ┆s, with a minor modification: Si┆
0x039e0…03a00 6e 63 65 20 74 68 65 20 73 6d 61 6c 6c 65 73 74 20 75 6e 69 74 20 6f 66 20 6d 65 6d 6f 72 79 20 ┆nce the smallest unit of memory ┆
0x03a00…03a20 0a 70 75 73 68 65 64 20 6f 6e 20 74 68 65 20 65 76 61 6c 75 61 74 69 6f 6e 20 73 74 61 63 6b 20 ┆ pushed on the evaluation stack ┆
0x03a20…03a40 69 73 20 61 20 77 6f 72 64 2c 20 65 61 63 68 20 61 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 ┆is a word, each actual parameter┆
0x03a40…03a60 20 6f 66 20 61 20 0a 70 72 6f 67 72 61 6d 20 6f 72 20 72 6f 75 74 69 6e 65 20 73 74 61 63 6b 20 ┆ of a program or routine stack ┆
0x03a60…03a80 66 72 61 6d 65 20 6f 63 63 75 70 69 65 73 20 61 6e 20 69 6e 74 65 67 72 61 6c 20 6e 75 6d 62 65 ┆frame occupies an integral numbe┆
0x03a80…03aa0 72 20 6f 66 20 77 6f 72 64 73 2e 20 0a 53 69 6d 69 6c 61 72 20 74 6f 20 74 68 65 20 63 61 73 65 ┆r of words. Similar to the case┆
0x03aa0…03ac0 20 6f 66 20 64 65 63 6c 61 72 65 64 20 76 61 72 69 61 62 6c 65 73 2c 20 61 6e 20 61 63 74 75 61 ┆ of declared variables, an actua┆
0x03ac0…03ae0 6c 20 70 61 72 61 6d 65 74 65 72 20 6f 66 20 61 6e 20 0a 65 6e 75 6d 65 72 61 74 69 6f 6e 20 74 ┆l parameter of an enumeration t┆
0x03ae0…03b00 79 70 65 20 6f 66 20 73 69 7a 65 20 6c 65 73 73 20 74 68 61 6e 20 31 36 20 28 62 69 74 73 29 20 ┆ype of size less than 16 (bits) ┆
0x03b00…03b20 69 73 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 6c 65 61 73 74 20 0a 73 69 67 6e 69 66 69 63 ┆is placed in the least signific┆
0x03b20…03b40 61 6e 74 20 62 69 74 73 20 6f 66 20 74 68 65 20 61 6c 6c 6f 63 61 74 65 64 20 77 6f 72 64 2e 20 ┆ant bits of the allocated word. ┆
0x03b40…03b60 0d 0a 16 53 64 0d 0a 53 74 72 75 63 74 75 72 65 64 20 54 79 70 65 73 0d 0a 54 68 65 20 6d 65 6d ┆ Sd Structured Types The mem┆
0x03b60…03b80 6f 72 79 20 72 65 71 75 69 72 65 6d 65 6e 74 20 6f 66 20 61 20 73 74 72 75 63 74 75 72 65 64 20 ┆ory requirement of a structured ┆
0x03b80…03ba0 74 79 70 65 20 69 73 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 74 68 65 20 0a 6d 65 6d 6f 72 ┆type is determined by the memor┆
0x03ba0…03bc0 79 20 72 65 71 75 69 72 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 20 63 6f 6d 70 6f 6e 65 6e 74 20 ┆y requirements of the component ┆
0x03bc0…03be0 74 79 70 65 28 73 29 20 61 6e 64 20 62 79 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 0a 61 6c ┆type(s) and by the necessary al┆
0x03be0…03c00 69 67 6e 6d 65 6e 74 2e 20 0d 0a 0d 0a 54 68 65 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 65 ┆ignment. The memory allocate┆
0x03c00…03c20 64 20 66 6f 72 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 61 20 73 74 72 75 63 74 75 72 65 64 ┆d for a variable of a structured┆
0x03c20…03c40 20 74 79 70 65 20 69 73 20 73 75 62 2d 61 6c 6c 6f 80 0a 63 61 74 65 64 20 66 6f 72 20 74 68 65 ┆ type is sub-alloђ cated for the┆
0x03c40…03c60 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 69 6e 20 61 ┆ components of the variable in a┆
0x03c60…03c80 20 66 61 73 68 69 6f 6e 20 77 68 69 63 68 20 64 65 70 65 6e 64 73 20 0a 6f 6e 20 77 68 65 74 68 ┆ fashion which depends on wheth┆
0x03c80…03ca0 65 72 20 74 68 65 20 74 79 70 65 20 69 73 20 64 65 63 6c 61 72 65 64 20 61 73 20 70 61 63 6b 65 ┆er the type is declared as packe┆
0x03ca0…03cc0 64 20 6f 72 20 6e 6f 74 2e 20 0d 0a 0d 0a 46 6f 72 20 61 6e 20 61 72 72 61 79 2c 20 6d 65 6d 6f ┆d or not. For an array, memo┆
0x03cc0…03ce0 72 79 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 72 6f 6d 20 6c 6f 77 20 74 6f 20 68 69 67 68 ┆ry is allocated from low to high┆
0x03ce0…03d00 20 61 64 64 72 65 73 73 65 73 20 66 6f 72 20 74 68 65 20 0a 65 6c 65 6d 65 6e 74 73 20 69 6e 20 ┆ addresses for the elements in ┆
0x03d00…03d20 69 6e 64 65 78 20 6f 72 64 65 72 2c 20 61 6e 64 20 66 6f 72 20 61 20 72 65 63 6f 72 64 2c 20 6d ┆index order, and for a record, m┆
0x03d20…03d40 65 6d 6f 72 79 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 72 6f 6d 20 0a 6c 6f 77 20 74 6f 20 ┆emory is allocated from low to ┆
0x03d40…03d60 68 69 67 68 20 61 64 64 72 65 73 73 65 73 20 66 6f 72 20 74 68 65 20 66 69 65 6c 64 73 20 69 6e ┆high addresses for the fields in┆
0x03d60…03d80 20 74 68 65 20 6f 72 64 65 72 20 74 68 65 79 20 61 72 65 20 64 65 63 6c 61 72 65 64 20 69 6e 20 ┆ the order they are declared in ┆
0x03d80…03da0 0a 74 68 65 20 72 65 63 6f 72 64 20 74 79 70 65 20 64 65 66 69 6e 69 74 69 6f 6e 2e 20 0d 0a 0d ┆ the record type definition. ┆
0x03da0…03dc0 0a 0d 0a 8c 94 d0 0a 16 53 44 0d 0a 41 72 72 61 79 73 20 61 6e 64 20 52 65 63 6f 72 64 73 2c 20 ┆ їћл SD Arrays and Records, ┆
0x03dc0…03de0 4e 6f 74 20 50 61 63 6b 65 64 0d 0a 46 6f 72 20 61 6e 20 61 72 72 61 79 20 6f 72 20 72 65 63 6f ┆Not Packed For an array or reco┆
0x03de0…03e00 72 64 20 74 79 70 65 20 77 68 69 63 68 20 69 73 20 6e 6f 74 20 70 61 63 6b 65 64 2c 20 6d 65 6d ┆rd type which is not packed, mem┆
0x03e00…03e20 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 0a 66 6f 72 20 74 68 65 20 63 6f 6d 70 6f 6e 65 6e ┆ory allocation for the componen┆
0x03e20…03e40 74 73 20 74 61 6b 65 73 20 70 6c 61 63 65 20 69 6e 20 70 72 65 63 69 73 65 6c 79 20 74 68 65 20 ┆ts takes place in precisely the ┆
0x03e40…03e60 73 61 6d 65 20 66 61 73 68 69 6f 6e 20 61 73 20 61 6c 6c 6f 80 0a 63 61 74 69 6f 6e 20 6f 66 20 ┆same fashion as alloђ cation of ┆
0x03e60…03e80 6d 65 6d 6f 72 79 20 66 6f 72 20 64 65 63 6c 61 72 65 64 20 76 61 72 69 61 62 6c 65 73 20 69 6e ┆memory for declared variables in┆
0x03e80…03ea0 20 61 20 73 74 61 63 6b 20 66 72 61 6d 65 2c 20 69 2e 65 2e 3a 20 0d 0a 0d 0a 0d 0a 20 20 20 2d ┆ a stack frame, i.e.: -┆
0x03ea0…03ec0 20 84 66 72 6f 6d 20 6c 6f 77 20 74 6f 20 68 69 67 68 20 61 64 64 72 65 73 73 65 73 2c 20 0d 0a ┆ ёfrom low to high addresses, ┆
0x03ec0…03ee0 20 20 20 2d 20 84 61 6e 20 69 6e 74 65 67 72 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 ┆ - ёan integral number of byte┆
0x03ee0…03f00 73 20 70 65 72 20 63 6f 6d 70 6f 6e 65 6e 74 2c 20 0d 0a 20 20 20 2d 20 84 61 6c 69 67 6e 6d 65 ┆s per component, - ёalignme┆
0x03f00…03f20 6e 74 20 28 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 ┆nt (relative to the beginning of┆
0x03f20…03f40 20 74 68 65 20 61 72 72 61 79 20 6f 72 20 72 65 63 6f 72 64 20 61 6e 64 20 0a 19 85 80 80 62 79 ┆ the array or record and Ёђђby┆
0x03f40…03f60 20 69 6d 70 6c 69 63 61 74 69 6f 6e 20 61 6c 73 6f 20 69 6e 20 61 62 73 6f 6c 75 74 65 20 6d 65 ┆ implication also in absolute me┆
0x03f60…03f80 6d 6f 72 79 29 20 61 73 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 73 75 62 73 65 63 80 0a 19 85 ┆mory) as described in subsecђ Ё┆
0x03f80…03fa0 80 80 74 69 6f 6e 20 32 2e 31 30 2e 32 2e 31 2e 0d 0a 20 20 20 2d 20 84 72 69 67 68 74 20 6a 75 ┆ђђtion 2.10.2.1. - ёright ju┆
0x03fa0…03fc0 73 74 69 66 69 63 61 74 69 6f 6e 20 6f 66 20 65 61 63 68 20 65 6e 75 6d 65 72 61 74 69 6f 6e 20 ┆stification of each enumeration ┆
0x03fc0…03fe0 74 79 70 65 20 63 6f 6d 70 6f 6e 65 6e 74 20 77 69 74 68 69 6e 20 0a 19 85 80 80 74 68 65 20 61 ┆type component within Ёђђthe a┆
0x03fe0…04000 6c 6c 6f 63 61 74 65 64 20 62 79 74 65 20 6f 72 20 77 6f 72 64 2e 20 0d 0a 0d 0a 45 78 61 6d 70 ┆llocated byte or word. Examp┆
0x04000…04020 6c 65 3a 20 57 69 74 68 20 74 68 65 20 72 65 63 6f 72 64 20 74 79 70 65 20 64 65 66 69 6e 69 74 ┆le: With the record type definit┆
0x04020…04040 69 6f 6e 3a 20 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 20 20 20 20 72 3d 52 45 43 4f 52 44 0d 0a 20 ┆ion: TYPE r=RECORD ┆
0x04040…04060 20 20 20 20 20 20 20 20 20 61 3a 20 63 68 61 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 62 2c 20 ┆ a: char; b, ┆
0x04060…04080 63 3a 20 30 2e 2e 37 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 64 3a 20 69 6e 74 65 67 65 72 3b 0d ┆c: 0..7; d: integer; ┆
0x04080…040a0 0a 20 20 20 20 20 20 20 20 20 20 65 3a 20 72 65 66 65 72 65 6e 63 65 20 20 20 20 20 0d 0a 20 20 ┆ e: reference ┆
0x040a0…040c0 20 20 20 20 20 20 45 4e 44 3b 20 0d 0a 0d 0a 46 69 67 2e 20 32 2e 32 20 2d 73 20 62 65 69 6e 67 ┆ END; Fig. 2.2 -s being┆
0x040c0…040e0 20 65 76 65 6e 2d 20 73 68 6f 77 73 20 74 68 65 20 6c 61 79 6f 75 74 20 6f 66 20 61 20 76 61 72 ┆ even- shows the layout of a var┆
0x040e0…04100 69 61 62 6c 65 20 6f 66 20 74 79 70 65 20 72 2e 20 54 68 65 20 0a 72 65 63 6f 72 64 20 69 73 20 ┆iable of type r. The record is ┆
0x04100…04120 77 6f 72 64 20 61 6c 69 67 6e 65 64 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 65 20 73 68 69 65 ┆word aligned because of the shie┆
0x04120…04140 6c 64 65 64 20 63 6f 6d 70 6f 6e 65 6e 74 2e 0d 0a 0d 0a 42 79 20 73 75 6d 6d 61 74 69 6f 6e 20 ┆lded component. By summation ┆
0x04140…04160 28 6f 72 20 6d 75 6c 74 69 70 6c 69 63 61 74 69 6f 6e 29 20 74 68 65 20 6d 65 6d 6f 72 79 20 72 ┆(or multiplication) the memory r┆
0x04160…04180 65 71 75 69 72 65 6d 65 6e 74 20 6f 66 20 61 6e 20 61 72 72 61 79 20 0a 6f 72 20 72 65 63 6f 72 ┆equirement of an array or recor┆
0x04180…041a0 64 20 74 79 70 65 20 6d 61 79 20 62 65 20 64 65 74 65 72 6d 69 6e 65 64 20 66 72 6f 6d 20 74 68 ┆d type may be determined from th┆
0x041a0…041c0 65 20 61 62 6f 76 65 20 72 75 6c 65 73 20 66 6f 72 20 73 75 62 2d 61 6c 6c 6f 80 0a 63 61 74 69 ┆e above rules for sub-alloђ cati┆
0x041c0…041e0 6f 6e 20 6f 66 20 6d 65 6d 6f 72 79 20 66 6f 72 20 63 6f 6d 70 6f 6e 65 6e 74 73 2e 20 46 6f 72 ┆on of memory for components. For┆
0x041e0…04200 20 74 68 65 20 72 65 63 6f 72 64 20 74 79 70 65 20 69 6e 20 74 68 65 20 65 78 61 6d 70 6c 65 20 ┆ the record type in the example ┆
0x04200…04220 0a 4d 28 72 29 3d 31 33 2c 20 62 65 63 61 75 73 65 20 74 68 65 20 73 74 61 72 74 20 61 64 64 72 ┆ M(r)=13, because the start addr┆
0x04220…04240 65 73 73 20 69 73 20 65 76 65 6e 2e 20 0d 0a 16 53 44 0d 0a 50 61 63 6b 65 64 20 41 72 72 61 79 ┆ess is even. SD Packed Array┆
0x04240…04260 73 20 61 6e 64 20 52 65 63 6f 72 64 73 0d 0a 49 6e 20 74 68 65 20 6d 65 6d 6f 72 79 20 61 6c 6c ┆s and Records In the memory all┆
0x04260…04280 6f 63 61 74 65 64 20 66 6f 72 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 61 20 70 61 63 6b 65 ┆ocated for a variable of a packe┆
0x04280…042a0 64 20 61 72 72 61 79 20 6f 72 20 72 65 63 6f 72 64 20 0a 74 79 70 65 20 73 65 76 65 72 61 6c 20 ┆d array or record type several ┆
0x042a0…042c0 63 6f 6e 73 65 63 75 74 69 76 65 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 6d 61 79 20 62 65 20 70 61 ┆consecutive components may be pa┆
0x042c0…042e0 63 6b 65 64 20 69 6e 74 6f 20 61 20 73 69 6e 67 6c 65 20 62 79 74 65 20 0a 6f 72 20 77 6f 72 64 ┆cked into a single byte or word┆
0x042e0…04300 2e 20 4f 6e 6c 79 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 6f 66 20 74 79 70 65 73 20 77 69 74 68 20 ┆. Only components of types with ┆
0x04300…04320 73 69 7a 65 20 6c 65 73 73 20 74 68 61 6e 20 31 36 20 28 62 69 74 73 29 20 28 66 6f 72 20 0a 61 ┆size less than 16 (bits) (for a┆
0x04320…04340 72 72 61 79 73 3a 20 36 20 62 69 74 73 29 20 61 72 65 20 63 61 6e 64 69 64 61 74 65 73 20 66 6f ┆rrays: 6 bits) are candidates fo┆
0x04340…04360 72 20 70 61 63 6b 69 6e 67 2e 20 50 61 63 6b 69 6e 67 20 6f 66 20 63 6f 6d 70 6f 6e 65 6e 74 73 ┆r packing. Packing of components┆
0x04360…04380 20 61 6c 80 0a 77 61 79 73 20 73 74 61 72 74 73 20 66 72 6f 6d 20 62 69 74 20 30 20 28 4d 53 42 ┆ alђ ways starts from bit 0 (MSB┆
0x04380…043a0 29 20 6f 66 20 61 20 62 79 74 65 2c 20 61 6e 64 20 65 61 63 68 20 63 6f 6d 70 6f 6e 65 6e 74 20 ┆) of a byte, and each component ┆
0x043a0…043c0 69 73 20 61 6c 6c 6f 80 0a 63 61 74 65 64 20 61 73 20 6d 61 6e 79 20 62 69 74 73 20 61 73 20 69 ┆is alloђ cated as many bits as i┆
0x043c0…043e0 6e 64 69 63 61 74 65 64 20 62 79 20 69 74 73 20 73 69 7a 65 2e 20 57 68 65 6e 20 69 74 20 69 73 ┆ndicated by its size. When it is┆
0x043e0…04400 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 0a 66 69 74 20 61 6e 79 20 6d 6f 72 65 20 63 ┆ not possible to fit any more c┆
0x04400…04420 6f 6d 70 6f 6e 65 6e 74 73 20 77 69 74 68 6f 75 74 20 63 72 6f 73 73 69 6e 67 20 74 77 6f 20 62 ┆omponents without crossing two b┆
0x04420…04440 79 74 65 20 62 6f 75 6e 64 61 72 69 65 73 2c 20 0a 70 61 63 6b 69 6e 67 20 73 74 6f 70 73 20 61 ┆yte boundaries, packing stops a┆
0x04440…04460 6e 64 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 69 73 20 72 65 73 75 6d 65 64 20 66 72 6f 6d 20 74 68 ┆nd allocation is resumed from th┆
0x04460…04480 65 20 6e 65 78 74 20 62 79 74 65 20 62 6f 75 6e 64 61 72 79 2c 20 0a 69 2e 65 2e 20 62 79 74 65 ┆e next byte boundary, i.e. byte┆
0x04480…044a0 2d 61 6c 69 67 6e 6d 65 6e 74 20 74 61 6b 65 73 20 70 6c 61 63 65 2e 20 42 79 20 74 68 69 73 20 ┆-alignment takes place. By this ┆
0x044a0…044c0 72 75 6c 65 20 75 6e 75 73 65 64 20 73 70 61 63 65 20 6d 61 79 20 62 65 20 0a 6c 65 66 74 20 69 ┆rule unused space may be left i┆
0x044c0…044e0 6e 20 74 68 65 20 6c 65 61 73 74 20 73 69 67 6e 69 66 69 63 61 6e 74 20 62 69 74 73 20 6f 66 20 ┆n the least significant bits of ┆
0x044e0…04500 74 68 65 20 62 79 74 65 2c 20 77 68 65 72 65 20 62 79 74 65 2d 61 6c 69 67 6e 6d 65 6e 74 20 0a ┆the byte, where byte-alignment ┆
0x04500…04520 74 6f 6f 6b 20 70 6c 61 63 65 2e 20 0d 0a 0d 0a 4e 6f 74 65 3a 20 6f 6e 6c 79 20 63 6f 6d 70 6f ┆took place. Note: only compo┆
0x04520…04540 6e 65 6e 74 73 20 6f 66 20 6f 72 64 69 6e 61 6c 20 74 79 70 65 73 20 61 72 65 20 63 61 6e 64 69 ┆nents of ordinal types are candi┆
0x04540…04560 64 61 74 65 73 20 66 6f 72 20 70 61 63 6b 69 6e 67 2e 0d 0a 0d 0a 54 68 65 20 6d 65 6d 6f 72 79 ┆dates for packing. The memory┆
0x04560…04580 20 72 65 71 75 69 72 65 6d 65 6e 74 20 6f 66 20 61 20 70 61 63 6b 65 64 20 72 65 63 6f 72 64 20 ┆ requirement of a packed record ┆
0x04580…045a0 6f 72 20 61 72 72 61 79 20 74 79 70 65 20 69 73 20 61 6c 77 61 79 73 20 0a 61 74 20 6c 65 61 73 ┆or array type is always at leas┆
0x045a0…045c0 74 20 31 20 62 79 74 65 2e 20 0d 0a 0d 0a 45 78 61 6d 70 6c 65 3a 20 54 68 65 20 6c 61 79 6f 75 ┆t 1 byte. Example: The layou┆
0x045c0…045e0 74 20 6f 66 20 76 61 72 69 61 62 6c 65 73 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 ┆t of variables of the following ┆
0x045e0…04600 70 61 63 6b 65 64 20 72 65 63 6f 72 64 20 74 79 70 65 20 0a 69 73 20 73 68 6f 77 6e 20 69 6e 20 ┆packed record type is shown in ┆
0x04600…04620 66 69 67 2e 20 32 2e 33 2e 20 0d 0a 0d 0a 54 59 50 45 20 20 20 20 20 0d 0a 20 20 20 20 20 71 3d ┆fig. 2.3. TYPE q=┆
0x04620…04640 50 41 43 4b 45 44 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 20 61 3a 20 63 68 61 72 3b ┆PACKED RECORD a: char;┆
0x04640…04660 0d 0a 20 20 20 20 20 20 20 20 20 62 2c 63 3a 20 30 2e 2e 37 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ b,c: 0..7; ┆
0x04660…04680 64 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 65 3a 20 72 65 66 65 72 65 6e ┆d: integer; e: referen┆
0x04680…046a0 63 65 0d 0a 20 20 20 20 20 20 20 45 4e 44 3b 20 0d 0a 8c 8b 88 0a 0d 0a 0e 0a 61 64 64 72 65 73 ┆ce END; їІѕ addres┆
0x046a0…046c0 73 09 20 20 30 20 20 31 20 20 32 20 20 33 20 20 34 20 20 35 20 20 36 20 20 37 20 20 38 20 20 39 ┆s 0 1 2 3 4 5 6 7 8 9┆
0x046c0…046e0 20 31 30 20 31 31 20 31 32 20 31 33 20 31 34 20 31 35 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 35 ┆ 10 11 12 13 14 15 ramme "5┆
0x046e0…04700 20 30 20 2b 31 31 20 34 38 20 32 22 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 33 35 20 30 20 ┆ 0 +11 48 2" ramme "5 0 +35 0 ┆
0x04700…04720 32 22 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 34 34 20 30 20 32 22 0d 0a 01 72 61 6d 6d 65 ┆2" ramme "5 0 +44 0 2" ramme┆
0x04720…04740 20 22 35 20 30 20 2b 35 33 20 30 20 32 20 22 0d 0a 01 73 6b 79 67 67 65 20 22 32 20 2b 35 33 20 ┆ "5 0 +53 0 2 " skygge "2 +53 ┆
0x04740…04760 36 20 32 22 0d 0a 73 2b 30 09 20 20 20 20 20 20 20 20 20 20 20 61 20 20 20 20 20 20 20 20 20 20 ┆6 2" s+0 a ┆
0x04760…04780 20 20 20 20 20 20 20 62 20 20 20 20 20 20 20 20 63 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 35 20 ┆ b c ramme "5 ┆
0x04780…047a0 30 20 2b 31 31 20 34 38 20 32 22 0d 0a 73 2b 32 09 09 20 20 20 20 20 20 20 64 0d 0a 20 0d 0a 01 ┆0 +11 48 2" s+2 d ┆
0x047a0…047c0 72 61 6d 6d 65 20 22 35 20 30 20 2b 31 31 20 30 20 38 22 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 ┆ramme "5 0 +11 0 8" ramme "5 0┆
0x047c0…047e0 20 2b 35 39 20 30 20 36 22 0d 0a 73 2b 34 0d 0a 0d 0a 73 2b 36 0d 0a 09 09 20 20 20 20 20 20 20 ┆ +59 0 6" s+4 s+6 ┆
0x047e0…04800 65 0d 0a 73 2b 38 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 33 35 20 30 20 32 22 0d ┆e s+8 ramme "5 0 +35 0 2" ┆
0x04800…04820 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 33 35 20 32 34 20 30 22 0d 0a 73 2b 31 30 0d 0a 20 0d ┆ ramme "5 0 +35 24 0" s+10 ┆
0x04820…04840 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 31 31 20 32 34 20 30 22 0d 0a 16 73 66 20 32 0d 0a 4d ┆ ramme "5 0 +11 24 0" sf 2 M┆
0x04840…04860 65 6d 6f 72 79 20 6c 61 79 6f 75 74 20 66 6f 72 20 70 61 63 6b 65 64 20 72 65 63 6f 72 64 2e 20 ┆emory layout for packed record. ┆
0x04860…04880 4d 28 71 29 3d 31 31 0d 0a 0f 0a 16 53 44 0d 0a 53 65 74 20 54 79 70 65 73 0d 0a 54 68 65 20 6d ┆M(q)=11 SD Set Types The m┆
0x04880…048a0 65 6d 6f 72 79 20 72 65 71 75 69 72 65 6d 65 6e 74 20 6f 66 20 61 20 73 65 74 20 74 79 70 65 20 ┆emory requirement of a set type ┆
0x048a0…048c0 69 73 20 61 6c 77 61 79 73 20 61 6e 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 28 6f 66 20 0a 62 79 ┆is always an even number (of by┆
0x048c0…048e0 74 65 73 29 2c 20 69 2e 65 2e 20 61 6e 20 69 6e 74 65 67 72 61 6c 20 6e 75 6d 62 65 72 20 6f 66 ┆tes), i.e. an integral number of┆
0x048e0…04900 20 77 6f 72 64 73 20 61 72 65 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f 72 20 65 61 63 68 20 76 61 ┆ words are allocated for each va┆
0x04900…04920 72 69 80 0a 61 62 6c 65 20 6f 66 20 61 20 73 65 74 20 74 79 70 65 2e 20 54 68 65 20 6e 75 6d 62 ┆riђ able of a set type. The numb┆
0x04920…04940 65 72 20 6f 66 20 77 6f 72 64 73 20 75 73 65 64 20 69 73 20 74 68 65 20 73 6d 61 6c 6c 65 73 74 ┆er of words used is the smallest┆
0x04940…04960 20 6e 75 6d 62 65 72 20 0a 77 68 69 63 68 20 77 69 6c 6c 20 61 63 63 6f 6d 6f 64 61 74 65 20 74 ┆ number which will accomodate t┆
0x04960…04980 68 65 20 62 69 74 20 76 65 63 74 6f 72 20 75 73 65 64 20 74 6f 20 72 65 70 72 65 73 65 6e 74 20 ┆he bit vector used to represent ┆
0x04980…049a0 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 0a 73 65 74 20 74 79 70 65 2c 20 63 66 2e 20 73 75 62 ┆values of the set type, cf. sub┆
0x049a0…049c0 73 65 63 74 69 6f 6e 20 32 2e 31 30 2e 31 2e 33 2e 20 54 68 65 20 62 69 74 20 76 65 63 74 6f 72 ┆section 2.10.1.3. The bit vector┆
0x049c0…049e0 20 69 73 20 6c 61 69 64 20 6f 75 74 20 77 69 74 68 20 69 6e 64 65 78 20 0a 30 20 69 6e 20 74 68 ┆ is laid out with index 0 in th┆
0x049e0…04a00 65 20 6d 6f 73 74 20 73 69 67 6e 69 66 69 63 61 6e 74 20 62 69 74 20 6f 66 20 74 68 65 20 66 69 ┆e most significant bit of the fi┆
0x04a00…04a20 72 73 74 20 77 6f 72 64 2e 20 54 68 65 20 6c 61 73 74 20 77 6f 72 64 20 6d 61 79 20 0a 63 6f 6e ┆rst word. The last word may con┆
0x04a20…04a40 80 74 61 69 6e 20 61 6e 20 75 6e 75 73 65 64 20 70 6f 72 74 69 6f 6e 20 69 6e 20 69 74 73 20 6c ┆ђtain an unused portion in its l┆
0x04a40…04a60 65 61 73 74 20 73 69 67 6e 69 66 69 63 61 6e 74 20 62 69 74 20 70 6f 73 69 74 69 6f 6e 73 2e 20 ┆east significant bit positions. ┆
0x04a60…04a80 45 78 61 6d 80 0a 70 6c 65 3a 20 0d 0a 0e 0a 0d 0a 20 20 20 20 56 41 52 20 73 65 74 5f 76 61 72 ┆Examђ ple: VAR set_var┆
0x04a80…04aa0 3a 20 53 45 54 20 4f 46 20 30 2e 2e 35 30 0d 0a 0d 0a 6c 61 79 6f 75 74 3a 0d 0a 0d 0a 61 64 64 ┆: SET OF 0..50 layout: add┆
0x04aa0…04ac0 72 65 73 73 20 20 20 30 20 20 31 20 20 32 20 20 33 20 20 34 20 20 35 20 20 36 20 20 37 20 20 38 ┆ress 0 1 2 3 4 5 6 7 8┆
0x04ac0…04ae0 20 20 39 20 31 30 20 31 31 20 31 32 20 31 33 20 31 34 20 31 35 0d 0a 20 0d 0a 01 72 61 6d 6d 65 ┆ 9 10 11 12 13 14 15 ramme┆
0x04ae0…04b00 20 22 35 20 30 20 2b 31 31 20 34 38 20 38 22 0d 0a 73 2b 30 0d 0a 0d 0a 73 2b 32 0d 0a 0d 0a 73 ┆ "5 0 +11 48 8" s+0 s+2 s┆
0x04b00…04b20 2b 34 0d 0a 20 0d 0a 01 73 6b 79 67 67 65 20 22 32 20 2b 32 30 20 33 39 20 32 22 0d 0a 73 2b 36 ┆+4 skygge "2 +20 39 2" s+6┆
0x04b20…04b40 0d 0a 0d 0a 0d 0a 31 33 20 62 69 74 73 20 61 72 65 20 75 6e 75 73 65 64 20 28 74 68 65 20 73 68 ┆ 13 bits are unused (the sh┆
0x04b40…04b60 61 64 65 64 20 61 72 65 61 29 2e 20 54 68 65 20 6d 65 6d 6f 72 79 20 72 65 71 75 69 72 65 6d 65 ┆aded area). The memory requireme┆
0x04b60…04b80 6e 74 20 6f 66 20 74 68 65 20 0a 74 79 70 65 20 69 73 20 38 2e 0d 0a 16 73 62 0d 0a 45 76 61 6c ┆nt of the type is 8. sb Eval┆
0x04b80…04ba0 75 61 74 69 6f 6e 20 6f 66 20 45 78 70 72 65 73 73 69 6f 6e 73 0d 0a 28 63 66 2e 20 52 54 50 2d ┆uation of Expressions (cf. RTP-┆
0x04ba0…04bc0 34 2e 31 29 0d 0a 54 68 65 20 73 68 6f 72 74 20 63 69 72 63 75 69 74 20 65 76 61 6c 75 61 74 69 ┆4.1) The short circuit evaluati┆
0x04bc0…04be0 6f 6e 20 6f 66 20 6c 6f 67 69 63 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 73 20 77 69 74 68 20 74 ┆on of logical expressions with t┆
0x04be0…04c00 68 65 20 6f 70 65 72 61 74 6f 72 73 20 0a 4f 52 20 61 6e 64 20 41 4e 44 20 69 73 20 6e 6f 74 20 ┆he operators OR and AND is not ┆
0x04c00…04c20 73 75 70 70 6f 72 74 65 64 2e 20 41 6c 6c 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 72 65 20 63 ┆supported. All expressions are c┆
0x04c20…04c40 6f 6d 70 6c 65 74 65 6c 79 20 65 76 61 6c 75 61 80 0a 74 65 64 2e 0d 0a 16 73 62 0d 0a 43 6f 6e ┆ompletely evaluaђ ted. sb Con┆
0x04c40…04c60 73 74 61 6e 74 20 45 78 70 72 65 73 73 69 6f 6e 73 0d 0a 28 63 66 2e 20 52 54 50 2d 34 2e 33 29 ┆stant Expressions (cf. RTP-4.3)┆
0x04c60…04c80 0d 0a 43 6f 6e 73 74 61 6e 74 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 72 65 20 66 75 72 74 68 ┆ Constant expressions are furth┆
0x04c80…04ca0 65 72 20 72 65 73 74 72 69 63 74 65 64 3a 0d 0a 54 68 65 20 70 72 65 64 65 66 69 6e 65 64 20 66 ┆er restricted: The predefined f┆
0x04ca0…04cc0 75 6e 63 74 69 6f 6e 73 20 61 62 73 2c 20 63 68 72 2c 20 6f 72 64 2c 20 70 72 65 64 2c 20 61 6e ┆unctions abs, chr, ord, pred, an┆
0x04cc0…04ce0 64 20 73 75 63 63 20 61 72 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 0a 69 6e 20 61 20 63 6f 6e ┆d succ are not allowed in a con┆
0x04ce0…04d00 73 74 61 6e 74 20 65 78 70 72 65 73 73 69 6f 6e 2c 20 6e 6f 74 20 65 76 65 6e 20 69 66 20 61 70 ┆stant expression, not even if ap┆
0x04d00…04d20 70 6c 69 65 64 20 6f 6e 20 61 20 63 6f 6e 73 74 61 6e 74 20 61 72 67 75 6d 65 6e 74 2e 20 0a 4e ┆plied on a constant argument. N┆
0x04d20…04d40 65 69 74 68 65 72 20 61 72 65 20 74 79 70 65 73 69 7a 65 20 6f 72 20 76 61 72 73 69 7a 65 20 63 ┆either are typesize or varsize c┆
0x04d40…04d60 61 6c 6c 73 20 61 6c 6c 6f 77 65 64 2e 0d 0a 0c 8a 90 0a 16 73 62 0d 0a 53 74 61 74 65 6d 65 6e ┆alls allowed. іљ sb Statemen┆
0x04d60…04d80 74 0d 0a 28 63 66 2e 20 52 54 50 2d 35 29 0d 0a 16 6d 61 20 73 74 61 74 65 6d 65 6e 0d 0a 16 73 ┆t (cf. RTP-5) ma statemen s┆
0x04d80…04da0 63 0d 0a 45 78 63 68 61 6e 67 65 20 53 74 61 74 65 6d 65 6e 74 0d 0a 28 63 66 2e 20 52 54 50 2d ┆c Exchange Statement (cf. RTP-┆
0x04da0…04dc0 35 2e 32 2e 32 29 0d 0a 16 73 6f 20 3a 3d 3a 20 28 65 78 63 68 61 6e 67 65 29 0d 0a 49 6e 20 74 ┆5.2.2) so :=: (exchange) In t┆
0x04dc0…04de0 68 65 20 52 43 33 35 30 32 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 bf dc d8 65 78 63 68 ┆he RC3502 implementation ┐▄пexch┆
0x04de0…04e00 61 6e 67 65 20 73 74 61 74 65 6d 65 6e 74 be 20 69 73 20 72 65 73 74 72 69 63 74 65 64 20 6f 6e ┆ange statementЙ is restricted on┆
0x04e00…04e20 6c 79 20 0a 74 6f 20 61 63 63 65 70 74 20 6f 62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 72 65 ┆ly to accept objects of type re┆
0x04e20…04e40 66 65 72 65 6e 63 65 20 6f 72 20 6f 66 20 74 79 70 65 20 70 72 6f 63 65 73 73 2e 20 54 68 65 20 ┆ference or of type process. The ┆
0x04e40…04e60 67 65 6e 65 72 61 6c 20 0a 65 78 63 68 61 6e 67 65 20 69 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 ┆general exchange is not support┆
0x04e60…04e80 65 64 2e 0d 0a 16 73 63 0d 0a 4c 61 62 65 6c 73 0d 0a 28 63 66 2e 20 52 54 50 2d 35 2e 37 2e 34 ┆ed. sc Labels (cf. RTP-5.7.4┆
0x04e80…04ea0 29 0d 0a 16 6d 61 20 6c 61 62 65 6c 64 65 63 0d 0a 16 6d 61 20 6c 61 62 65 6c 0d 0a 16 6d 61 20 ┆) ma labeldec ma label ma ┆
0x04ea0…04ec0 67 6f 74 6f 0d 0a 16 6d 61 20 6c 61 62 73 74 61 74 0d 0a 41 73 20 69 6e 20 53 74 61 6e 64 61 72 ┆goto ma labstat As in Standar┆
0x04ec0…04ee0 64 20 50 61 73 63 61 6c 20 6c 61 62 65 6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 70 61 72 74 73 ┆d Pascal label declaration parts┆
0x04ee0…04f00 20 61 72 65 20 61 6c 6c 6f 77 65 64 20 61 6d 6f 6e 67 20 74 68 65 20 0a 6f 74 68 65 72 20 64 65 ┆ are allowed among the other de┆
0x04f00…04f20 63 6c 61 72 61 74 69 6f 6e 73 2e 20 4c 61 62 65 6c 73 20 61 72 65 20 6e 61 6d 65 73 20 6f 72 20 ┆clarations. Labels are names or ┆
0x04f20…04f40 75 6e 73 69 67 6e 65 64 20 6e 75 6d 62 65 72 73 2c 20 6e 6f 74 20 70 72 65 66 69 78 65 64 20 0a ┆unsigned numbers, not prefixed ┆
0x04f40…04f60 62 79 20 61 20 72 61 64 69 78 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 2e 20 49 74 20 69 73 20 ┆by a radix specification. It is ┆
0x04f60…04f80 63 68 65 63 6b 65 64 20 74 68 61 74 20 64 65 63 6c 61 72 65 64 20 6c 61 62 65 6c 73 20 61 72 65 ┆checked that declared labels are┆
0x04f80…04fa0 20 69 6e 74 72 6f 80 0a 64 75 63 65 64 20 69 6e 20 6c 61 62 65 6c 6c 65 64 20 73 74 61 74 65 6d ┆ introђ duced in labelled statem┆
0x04fa0…04fc0 65 6e 74 73 2e 0d 0a 16 73 63 20 0d 0a 4c 6f 63 6b 20 53 74 61 74 65 6d 65 6e 74 0d 0a 28 63 66 ┆ents. sc Lock Statement (cf┆
0x04fc0…04fe0 2e 20 52 54 50 2d 35 2e 39 29 0d 0a 54 68 65 20 69 6d 70 6c 69 63 69 74 20 74 79 70 65 73 20 6f ┆. RTP-5.9) The implicit types o┆
0x04fe0…05000 66 20 bf dc d8 6c 6f 63 6b 20 73 74 61 74 65 6d 65 6e 74 be 73 20 61 72 65 20 61 6e 6f 6e 79 6d ┆f ┐▄пlock statementЙs are anonym┆
0x05000…05020 6f 75 73 20 74 79 70 65 73 2e 20 54 68 69 73 20 6d 65 80 0a 61 6e 73 20 74 68 61 74 20 74 68 65 ┆ous types. This meђ ans that the┆
0x05020…05040 20 74 79 70 65 73 20 61 72 65 20 6e 6f 74 20 63 6f 6d 70 61 74 69 62 6c 65 20 77 69 74 68 20 6f ┆ types are not compatible with o┆
0x05040…05060 74 68 65 72 20 74 79 70 65 73 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 0a 70 72 6f 67 72 ┆ther types defined in the progr┆
0x05060…05080 61 6d 2e 20 41 63 63 65 73 73 20 74 6f 20 74 68 65 20 64 61 74 61 20 61 72 65 61 20 6d 75 73 74 ┆am. Access to the data area must┆
0x05080…050a0 20 62 65 20 70 72 65 63 65 64 65 64 20 62 79 20 61 6e 20 65 78 70 6c 69 63 69 74 20 74 79 80 0a ┆ be preceded by an explicit tyђ ┆
0x050a0…050c0 70 69 6e 67 20 69 6e 20 74 68 65 20 6c 6f 63 6b 20 73 74 61 74 65 6d 65 6e 74 20 6f 72 2f 61 6e ┆ping in the lock statement or/an┆
0x050c0…050e0 64 20 62 79 20 6d 65 61 6e 73 20 6f 66 20 61 20 77 69 74 68 20 73 74 61 74 65 6d 65 6e 74 20 77 ┆d by means of a with statement w┆
0x050e0…05100 69 74 68 20 0a 72 65 74 79 70 69 6e 67 2e 0d 0a 0d 0a 49 66 20 74 68 65 20 6c 6f 63 6b 77 6f 72 ┆ith retyping. If the lockwor┆
0x05100…05120 64 20 69 73 20 4c 4f 43 4b 44 41 54 41 20 74 68 65 20 61 63 63 65 73 73 69 62 6c 65 20 64 61 74 ┆d is LOCKDATA the accessible dat┆
0x05120…05140 61 20 61 72 65 61 20 69 73 20 80 74 68 65 20 70 61 72 74 20 6f 66 20 0a 74 68 65 20 6d 65 73 73 ┆a area is ђthe part of the mess┆
0x05140…05160 61 67 65 20 62 75 66 66 65 72 20 62 6f 75 6e 64 20 62 79 20 6f 66 66 73 65 74 20 61 6e 64 20 74 ┆age buffer bound by offset and t┆
0x05160…05180 6f 70 2d 31 2c 20 69 6e 63 6c 75 73 69 76 65 2e 20 4f 66 66 73 65 74 20 61 6e 64 20 0a 74 6f 70 ┆op-1, inclusive. Offset and top┆
0x05180…051a0 20 61 72 65 20 74 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 20 61 ┆ are the values of the message a┆
0x051a0…051c0 74 74 72 69 62 75 74 65 73 2e 0d 0a 0d 0a 49 66 20 74 68 65 20 6c 6f 63 6b 77 6f 72 64 20 69 73 ┆ttributes. If the lockword is┆
0x051c0…051e0 20 4c 4f 43 4b 42 55 46 20 74 68 65 20 77 68 6f 6c 65 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 ┆ LOCKBUF the whole message buffe┆
0x051e0…05200 72 20 69 73 20 61 63 63 65 73 73 69 62 6c 65 2e 0d 0a 16 73 63 0d 0a 43 68 61 6e 6e 65 6c 20 53 ┆r is accessible. sc Channel S┆
0x05200…05220 74 61 74 65 6d 65 6e 74 0d 0a 54 68 65 20 bf dc d8 63 68 61 6e 6e 65 6c 20 73 74 61 74 65 6d 65 ┆tatement The ┐▄пchannel stateme┆
0x05220…05240 6e 74 be 20 69 73 20 74 68 65 20 6c 61 6e 67 75 61 67 65 20 63 6f 6e 73 74 72 75 63 74 20 77 68 ┆ntЙ is the language construct wh┆
0x05240…05260 69 63 68 20 70 72 6f 76 69 64 65 73 20 61 63 80 0a 63 65 73 73 20 74 6f 20 61 20 64 65 76 69 63 ┆ich provides acђ cess to a devic┆
0x05260…05280 65 2e 20 54 68 65 20 73 74 61 74 65 6d 65 6e 74 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 6f 20 6f 66 ┆e. The statement following do of┆
0x05280…052a0 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 73 74 61 74 65 80 0a 6d 65 6e 74 20 69 73 20 65 78 65 63 ┆ the channel stateђ ment is exec┆
0x052a0…052c0 75 74 65 64 20 69 6e 20 61 20 73 70 65 63 69 61 6c 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 73 ┆uted in a special priority class┆
0x052c0…052e0 20 61 6e 64 20 77 69 74 68 20 61 20 70 72 69 6f 72 69 74 79 20 64 65 80 0a 70 65 6e 64 69 6e 67 ┆ and with a priority deђ pending┆
0x052e0…05300 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 5f 6f 62 6a 65 63 74 2e 20 46 6f 72 20 66 75 72 74 ┆ on the channel_object. For furt┆
0x05300…05320 68 65 72 20 64 65 74 61 69 6c 73 20 63 66 2e 20 44 72 69 76 65 72 20 50 72 6f 80 0a 63 65 73 73 ┆her details cf. Driver Proђ cess┆
0x05320…05340 65 73 20 69 6e 20 73 65 63 74 69 6f 6e 20 34 2e 33 2e 0d 0a 16 6d 61 20 63 68 61 6e 6e 65 6c 0d ┆es in section 4.3. ma channel ┆
0x05340…05360 0a 16 73 62 0d 0a 45 78 74 65 72 6e 61 6c 20 52 6f 75 74 69 6e 65 20 44 65 63 6c 61 72 61 74 69 ┆ sb External Routine Declarati┆
0x05360…05380 6f 6e 0d 0a 28 63 66 2e 20 52 54 50 2d 36 20 61 6e 64 20 52 54 50 2d 36 2e 32 2e 32 29 0d 0a 49 ┆on (cf. RTP-6 and RTP-6.2.2) I┆
0x05380…053a0 66 20 74 68 65 20 72 6f 75 74 69 6e 65 20 62 6c 6f 63 6b 20 69 73 20 73 70 65 63 69 66 69 65 64 ┆f the routine block is specified┆
0x053a0…053c0 20 62 79 20 74 68 65 20 77 6f 72 64 20 45 58 54 45 52 4e 41 4c 20 69 74 20 69 73 20 70 6f 73 73 ┆ by the word EXTERNAL it is poss┆
0x053c0…053e0 69 62 6c 65 20 0a 74 6f 20 73 70 65 63 69 66 79 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 6e 61 ┆ible to specify the external na┆
0x053e0…05400 6d 65 20 64 69 66 66 65 72 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 6e ┆me different from the internal n┆
0x05400…05420 61 80 6d 65 2e 20 54 68 65 20 0a 65 78 74 65 72 6e 61 6c 20 6e 61 6d 65 20 69 73 20 75 73 65 64 ┆aђme. The external name is used┆
0x05420…05440 20 62 79 20 74 68 65 20 6c 69 6e 6b 61 67 65 20 65 64 69 74 6f 72 20 61 6e 64 20 74 68 65 20 69 ┆ by the linkage editor and the i┆
0x05440…05460 6e 74 65 72 6e 61 6c 20 6e 61 6d 65 20 69 73 20 0a 74 68 65 20 6f 6e 65 20 77 68 69 63 68 20 69 ┆nternal name is the one which i┆
0x05460…05480 73 20 75 73 65 64 20 77 68 65 6e 20 74 68 65 20 72 6f 75 74 69 6e 65 20 69 73 20 63 61 6c 6c 65 ┆s used when the routine is calle┆
0x05480…054a0 64 2e 20 49 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 0a 68 61 76 65 20 6d 6f 72 65 20 ┆d. It is possible to have more ┆
0x054a0…054c0 62 69 6e 64 69 6e 67 73 2c 20 65 76 65 6e 20 77 69 74 68 20 64 69 66 66 65 72 65 6e 74 20 70 61 ┆bindings, even with different pa┆
0x054c0…054e0 72 61 6d 65 74 65 72 20 6c 69 73 74 73 2c 20 74 6f 20 6f 6e 65 20 65 78 80 0a 74 65 72 6e 61 6c ┆rameter lists, to one exђ ternal┆
0x054e0…05500 20 72 6f 75 74 69 6e 65 2e 20 54 68 69 73 20 69 73 20 63 61 75 73 65 64 20 62 79 20 61 20 72 65 ┆ routine. This is caused by a re┆
0x05500…05520 64 75 63 65 64 20 61 6d 6f 75 6e 74 20 6f 66 20 70 61 72 61 6d 65 74 65 72 20 0a 63 68 65 63 6b ┆duced amount of parameter check┆
0x05520…05540 69 6e 67 20 62 65 74 77 65 65 6e 20 74 68 65 20 27 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 80 74 ┆ing between the 'formal parameђt┆
0x05540…05560 65 72 73 27 20 6f 66 20 61 20 73 65 70 61 72 61 74 65 6c 79 20 63 6f 6d 70 69 6c 65 64 20 0a 72 ┆ers' of a separately compiled r┆
0x05560…05580 6f 75 74 69 6e 65 20 61 6e 64 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 66 6f 72 ┆outine and the corresponding for┆
0x05580…055a0 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 6f 66 20 74 ┆mal parameter specification of t┆
0x055a0…055c0 68 65 20 0a 73 65 70 61 72 61 74 65 6c 79 20 63 6f 6d 70 69 6c 65 64 20 62 6c 6f 63 6b 2e 20 54 ┆he separately compiled block. T┆
0x055c0…055e0 68 65 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 70 61 72 61 6d 65 74 65 72 20 63 68 65 63 6b 69 6e ┆he implemented parameter checkin┆
0x055e0…05600 67 20 69 73 20 0a 6d 61 69 6e 6c 79 20 62 61 73 65 64 20 6f 6e 20 70 61 72 61 6d 65 74 65 72 20 ┆g is mainly based on parameter ┆
0x05600…05620 6b 69 6e 64 2c 20 69 2e 65 2e 20 56 41 52 2c 20 53 48 41 52 45 44 2c 20 49 4e 53 50 45 43 54 2c ┆kind, i.e. VAR, SHARED, INSPECT,┆
0x05620…05640 20 6f 72 20 76 61 80 0a 6c 75 65 2c 20 61 6e 64 20 74 68 65 20 73 69 7a 65 20 6f 66 20 74 68 65 ┆ or vaђ lue, and the size of the┆
0x05640…05660 20 70 61 72 61 6d 65 74 65 72 20 6f 62 6a 65 63 74 2c 20 74 68 6f 75 67 68 20 73 68 69 65 6c 64 ┆ parameter object, though shield┆
0x05660…05680 65 64 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 0a 6d 75 73 74 20 6d 61 74 63 68 20 65 78 61 63 74 6c ┆ed components must match exactl┆
0x05680…056a0 79 2e 0d 0a 16 6d 61 20 72 6f 75 74 69 6e 65 64 0d 0a 16 6d 61 20 66 75 6e 63 74 0d 0a 16 6d 61 ┆y. ma routined ma funct ma┆
0x056a0…056c0 20 66 75 6e 63 74 31 0d 0a 16 6d 61 20 70 72 6f 63 0d 0a 45 78 61 6d 70 6c 65 3a 0d 0a 0d 0a 20 ┆ funct1 ma proc Example: ┆
0x056c0…056e0 20 50 52 4f 43 45 44 55 52 45 20 74 72 61 63 65 3d 65 78 63 65 70 74 69 6f 6e 28 63 6f 64 65 3a ┆ PROCEDURE trace=exception(code:┆
0x056e0…05700 20 69 6e 74 65 67 65 72 29 3b 20 45 58 54 45 52 4e 41 4c 0d 0a 0d 0a 8c 89 b0 0a 74 72 61 63 65 ┆ integer); EXTERNAL їЅ░ trace┆
0x05700…05720 20 69 73 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 6e 61 6d 65 20 61 6e 64 20 65 78 63 65 70 74 ┆ is the internal name and except┆
0x05720…05740 69 6f 6e 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 ┆ion is the name of the external ┆
0x05740…05760 0a 70 72 6f 63 65 64 75 72 65 20 77 68 69 63 68 20 77 69 6c 6c 20 62 65 20 6c 69 6e 6b 65 64 20 ┆ procedure which will be linked ┆
0x05760…05780 74 6f 2e 0d 0a 16 73 62 0d 0a 50 61 72 61 6d 65 74 65 72 73 0d 0a 28 63 66 2e 20 52 54 50 2d 36 ┆to. sb Parameters (cf. RTP-6┆
0x05780…057a0 2e 31 29 0d 0a 16 73 6f 20 3f 20 28 70 61 72 61 6d 65 74 65 72 29 0d 0a 54 68 65 20 73 79 6d 62 ┆.1) so ? (parameter) The symb┆
0x057a0…057c0 6f 6c 20 3f 20 69 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 61 73 20 61 63 74 75 61 6c 20 70 61 ┆ol ? is not allowed as actual pa┆
0x057c0…057e0 72 61 6d 65 74 65 72 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 0a 52 54 ┆rameter specification in the RT┆
0x057e0…05800 50 33 35 30 32 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 0d 0a 16 6d 61 20 61 63 74 70 61 ┆P3502 implementation. ma actpa┆
0x05800…05820 72 20 0d 0a 41 73 20 61 20 66 75 72 74 68 65 72 20 72 65 73 74 72 69 63 74 69 6f 6e 20 74 6f 20 ┆r As a further restriction to ┆
0x05820…05840 70 72 6f 63 65 73 73 20 70 61 72 61 6d 65 74 65 72 73 2c 20 69 2e 65 2e 20 74 6f 20 74 68 65 20 ┆process parameters, i.e. to the ┆
0x05840…05860 66 6f 72 6d 61 6c 20 70 61 80 0a 72 61 6d 65 74 65 72 73 20 77 68 69 63 68 20 6f 63 63 75 72 20 ┆formal paђ rameters which occur ┆
0x05860…05880 69 6e 20 61 20 70 72 6f 67 72 61 6d 20 68 65 61 64 69 6e 67 2c 20 70 61 72 61 6d 65 74 65 72 73 ┆in a program heading, parameters┆
0x05880…058a0 20 6f 66 20 74 79 70 65 20 70 6f 6f 6c 20 0a 61 72 65 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ┆ of type pool are not supported┆
0x058a0…058c0 2e 0d 0a 16 73 62 0d 0a 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 55 6e 69 74 0d 0a 28 63 66 2e 20 52 ┆. sb Compilation Unit (cf. R┆
0x058c0…058e0 54 50 2d 38 2e 32 29 0d 0a 16 73 6f 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 75 6e 69 74 0d 0a 46 ┆TP-8.2) so compilation unit F┆
0x058e0…05900 6f 72 20 62 61 63 6b 77 61 72 64 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 72 65 61 73 6f 6e ┆or backward compatibility reason┆
0x05900…05920 73 2c 20 73 65 70 61 72 61 74 65 6c 79 20 63 6f 6d 70 69 6c 65 64 20 72 6f 75 74 69 6e 65 73 20 ┆s, separately compiled routines ┆
0x05920…05940 6d 61 79 20 0a 62 65 20 70 72 65 63 65 64 65 64 20 62 79 20 74 68 65 20 72 65 73 65 72 76 65 64 ┆may be preceded by the reserved┆
0x05940…05960 20 77 6f 72 64 20 bf dc d8 50 52 45 46 49 58 be 20 61 6e 64 20 61 20 6e 61 6d 65 2c 20 77 68 69 ┆ word ┐▄пPREFIXЙ and a name, whi┆
0x05960…05980 63 68 20 6d 75 73 74 20 62 65 20 0a 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 65 20 72 6f 75 74 ┆ch must be the same as the rout┆
0x05980…059a0 69 6e 65 20 6e 61 6d 65 2e 0d 0a 16 73 62 0d 0a 49 4d 43 20 46 75 6e 63 74 69 6f 6e 73 0d 0a 28 ┆ine name. sb IMC Functions (┆
0x059a0…059c0 63 66 2e 20 52 54 50 2d 31 31 29 0d 0a 4e 6f 74 69 63 65 20 74 68 61 74 20 74 68 65 20 49 4d 43 ┆cf. RTP-11) Notice that the IMC┆
0x059c0…059e0 20 63 6f 6e 73 74 61 6e 74 73 2c 20 74 79 70 65 73 2c 20 61 6e 64 20 72 6f 75 74 69 6e 65 73 20 ┆ constants, types, and routines ┆
0x059e0…05a00 61 72 65 20 6e 6f 74 20 70 72 65 64 65 80 0a 66 69 6e 65 64 2e 20 54 68 65 79 20 61 72 65 20 64 ┆are not predeђ fined. They are d┆
0x05a00…05a20 65 66 69 6e 65 64 20 69 6e 20 61 20 63 6f 6e 74 65 78 74 20 66 69 6c 65 20 6e 61 6d 65 64 20 69 ┆efined in a context file named i┆
0x05a20…05a40 6d 63 33 35 30 32 65 6e 76 2c 20 77 68 69 63 68 20 0a 6d 75 73 74 20 62 65 20 73 70 65 63 69 66 ┆mc3502env, which must be specif┆
0x05a40…05a60 69 65 64 20 69 6e 20 74 68 65 20 63 61 6c 6c 20 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 2c ┆ied in the call of the compiler,┆
0x05a60…05a80 20 69 66 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 49 4d 43 20 72 65 80 0a 6c 61 74 65 64 20 66 75 ┆ if one or more IMC reђ lated fu┆
0x05a80…05aa0 6e 63 74 69 6f 6e 61 6c 69 74 69 65 73 20 61 72 65 20 75 73 65 64 20 69 6e 20 61 20 70 72 6f 67 ┆nctionalities are used in a prog┆
0x05aa0…05ac0 72 61 6d 2e 0d 0a 16 73 62 0d 0a 43 6f 6d 70 69 6c 65 72 20 44 69 72 65 63 74 69 76 65 73 0d 0a ┆ram. sb Compiler Directives ┆
0x05ac0…05ae0 16 73 6f 20 64 69 72 65 63 74 69 76 65 73 2c 20 63 6f 6d 70 69 6c 65 72 0d 0a 16 73 6f 20 6f 70 ┆ so directives, compiler so op┆
0x05ae0…05b00 74 69 6f 6e 73 20 28 64 69 72 65 63 74 69 76 65 73 29 0d 0a 28 63 66 2e 20 52 54 50 2d 31 32 29 ┆tions (directives) (cf. RTP-12)┆
0x05b00…05b20 0d 0a 54 68 69 73 20 73 65 63 74 69 6f 6e 20 63 6f 6e 74 61 69 6e 73 20 61 20 63 6f 6d 70 6c 65 ┆ This section contains a comple┆
0x05b20…05b40 74 65 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 75 70 70 6f 72 74 65 64 20 ┆te description of the supported ┆
0x05b40…05b60 63 6f 6d 70 69 6c 65 72 20 0a 64 69 72 65 63 74 69 76 65 73 2e 0d 0a 44 69 72 65 63 74 69 76 65 ┆compiler directives. Directive┆
0x05b60…05b80 73 20 74 6f 20 74 68 65 20 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 20 63 6f 6d 70 69 6c ┆s to the Real-Time Pascal compil┆
0x05b80…05ba0 65 72 20 6d 61 79 20 62 65 20 72 65 67 61 72 64 65 64 20 61 73 20 6c 65 78 69 80 0a 63 61 6c 20 ┆er may be regarded as lexiђ cal ┆
0x05ba0…05bc0 73 65 70 61 72 61 74 6f 72 73 2e 20 54 68 65 79 20 68 61 76 65 20 74 68 65 20 67 65 6e 65 72 61 ┆separators. They have the genera┆
0x05bc0…05be0 6c 20 66 6f 72 6d 3a 0d 0a 09 bf dc d8 24 be 20 64 69 72 65 63 74 69 76 65 2d 6e 61 6d 65 20 70 ┆l form: ┐▄п$Й directive-name p┆
0x05be0…05c00 61 72 61 6d 65 74 65 72 73 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 0d 0a 67 69 76 65 6e 20 6f 6e 20 ┆arameters end-of-line given on ┆
0x05c00…05c20 61 20 73 65 70 61 72 61 74 65 20 6c 69 6e 65 2e 20 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 20 64 ┆a separate line. Alternatively d┆
0x05c20…05c40 69 72 65 63 74 69 76 65 73 20 6d 61 79 20 62 65 20 73 75 70 80 70 6c 69 65 64 20 61 73 20 0a 70 ┆irectives may be supђplied as p┆
0x05c40…05c60 61 72 61 6d 65 74 65 72 73 20 69 6e 20 74 68 65 20 63 61 6c 6c 20 6f 66 20 74 68 65 20 63 6f 6d ┆arameters in the call of the com┆
0x05c60…05c80 70 69 6c 65 72 2e 20 53 6f 6d 65 20 6f 66 20 74 68 65 20 64 69 72 65 63 74 69 76 65 73 20 6d 75 ┆piler. Some of the directives mu┆
0x05c80…05ca0 73 74 20 0a 62 65 20 73 70 65 63 69 80 66 69 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 66 69 72 ┆st be speciђfied before the fir┆
0x05ca0…05cc0 73 74 20 6c 69 6e 65 20 6f 66 20 61 63 74 75 61 6c 20 73 6f 75 72 80 63 65 20 74 65 78 74 20 69 ┆st line of actual sourђce text i┆
0x05cc0…05ce0 73 20 6d 65 74 2c 20 76 69 7a 2e 20 0a 65 69 74 68 65 72 20 69 6e 20 74 68 65 20 63 6f 6d 70 69 ┆s met, viz. either in the compi┆
0x05ce0…05d00 6c 65 72 20 63 61 6c 6c 20 6f 72 20 61 73 20 24 2d 64 69 80 72 65 63 74 69 76 65 20 6c 69 6e 65 ┆ler call or as $-diђrective line┆
0x05d00…05d20 73 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 74 68 65 20 6f 75 80 0a 74 65 72 6d 6f 73 74 20 70 72 ┆s in front of the ouђ termost pr┆
0x05d20…05d40 6f 67 72 61 6d 2f 72 6f 75 74 69 6e 65 20 68 65 61 80 64 69 6e 67 2e 0d 0a 0d 0a 54 68 65 20 66 ┆ogram/routine heaђding. The f┆
0x05d40…05d60 6f 6c 6c 6f 77 69 6e 67 20 74 61 62 6c 65 20 6c 69 73 74 73 20 74 68 65 20 61 76 61 69 6c 61 62 ┆ollowing table lists the availab┆
0x05d60…05d80 6c 65 20 64 69 72 65 63 74 69 76 65 73 2e 20 4e 6f 6e 20 73 74 61 6e 64 61 72 64 20 64 69 72 65 ┆le directives. Non standard dire┆
0x05d80…05da0 63 80 0a 74 69 76 65 73 20 61 72 65 20 6d 61 72 6b 65 64 20 61 73 20 73 75 63 68 20 62 65 6e 65 ┆cђ tives are marked as such bene┆
0x05da0…05dc0 61 74 68 20 74 68 65 20 64 69 72 65 63 74 69 76 65 20 6e 61 6d 65 2e 0d 0a 0d 0a 04 00 2d 4c 00 ┆ath the directive name. -L ┆
0x05dc0…05de0 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x05de0…05e00 00 00 00 05 12 19 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 ┆ $-7AKU_is} -L ┆
0x05e00…05e20 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09 18 26 2f ┆ A1@ &/┆
0x05e20…05e40 3e ff ff ff ff ff ff ff ff ff ff ff 04 0a 0e 0a a1 6e 61 6d 65 09 70 61 72 61 6d 65 74 65 72 73 ┆> Аname parameters┆
0x05e40…05e60 09 64 65 73 63 72 69 70 74 69 6f 6e 05 20 5f 0d 0a 50 41 47 45 4c 45 4e 47 54 48 09 6e 75 6d 62 ┆ description _ PAGELENGTH numb┆
0x05e60…05e80 65 72 09 09 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 70 65 72 20 ┆er maximum number of lines per ┆
0x05e80…05ea0 0d 0a 28 64 65 66 61 75 6c 74 20 34 35 29 09 09 09 70 61 67 65 20 6f 66 20 6c 69 73 74 69 6e 67 ┆ (default 45) page of listing┆
0x05ea0…05ec0 2c 0d 0a 16 73 6f 20 24 50 41 47 45 4c 45 4e 47 54 48 0d 0a 16 53 4f 20 50 41 47 45 4c 45 4e 47 ┆, so $PAGELENGTH SO PAGELENG┆
0x05ec0…05ee0 54 48 0d 0a 0d 0a bf dc d8 50 41 47 45 57 49 44 54 48 be 09 6e 75 6d 62 65 72 09 09 6d 61 78 69 ┆TH ┐▄пPAGEWIDTHЙ number maxi┆
0x05ee0…05f00 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 0d 0a 28 64 65 66 61 ┆mum number of characters (defa┆
0x05f00…05f20 75 6c 74 20 31 32 30 29 09 09 09 70 65 72 20 6c 69 6e 65 20 6f 66 20 6c 69 73 74 80 69 6e 67 2c ┆ult 120) per line of listђing,┆
0x05f20…05f40 0d 0a 16 53 4f 20 24 50 41 47 45 57 49 44 54 48 0d 0a 0d 0a bf dc d8 45 4a 45 43 54 be 09 6e 6f ┆ SO $PAGEWIDTH ┐▄пEJECTЙ no┆
0x05f40…05f60 6e 65 09 09 84 66 6f 72 63 65 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 61 20 6e 65 77 20 70 61 ┆ne ёforce the start of a new pa┆
0x05f60…05f80 67 65 20 0a 19 a3 80 80 6f 66 20 74 68 65 20 6c 69 73 74 69 6e 67 0d 0a 16 53 4f 20 24 45 4a 45 ┆ge Бђђof the listing SO $EJE┆
0x05f80…05fa0 43 54 0d 0a 0d 0a bf dc d8 54 49 54 4c 45 be 09 22 63 68 61 72 2e 20 73 74 72 69 6e 67 22 09 84 ┆CT ┐▄пTITLEЙ "char. string" ё┆
0x05fa0…05fc0 74 68 65 20 63 68 61 72 61 63 74 65 72 20 73 74 72 69 6e 67 20 69 73 20 70 6c 61 80 63 65 64 20 ┆the character string is plaђced ┆
0x05fc0…05fe0 69 6e 20 0a 19 a3 80 80 84 74 68 65 20 74 69 74 6c 65 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 ┆in Бђђёthe title field of the ┆
0x05fe0…06000 68 65 61 64 65 72 20 0a 19 a3 80 80 6c 69 6e 65 20 6f 66 20 65 61 63 68 20 70 61 67 65 20 6f 66 ┆header Бђђline of each page of┆
0x06000…06020 20 74 68 65 20 6c 69 73 74 69 6e 67 2c 0d 0a 16 53 4f 20 24 54 49 54 4c 45 0d 0a 0d 0a bf dc d8 ┆ the listing, SO $TITLE ┐▄п┆
0x06020…06040 53 55 42 54 49 54 4c 45 be 09 22 63 68 61 72 2e 20 73 74 72 69 6e 67 22 09 84 74 68 65 20 63 68 ┆SUBTITLEЙ "char. string" ёthe ch┆
0x06040…06060 61 72 61 63 74 65 72 20 73 74 72 69 6e 67 20 69 73 20 70 6c 61 80 63 65 64 20 69 6e 20 0a 19 a3 ┆aracter string is plaђced in Б┆
0x06060…06080 80 80 84 74 68 65 20 73 75 62 74 69 74 6c 65 20 6c 69 80 6e 65 20 6f 66 20 65 61 63 68 20 70 61 ┆ђђёthe subtitle liђne of each pa┆
0x06080…060a0 67 65 20 0a 19 a3 80 80 6f 66 20 74 68 65 20 6c 69 80 73 74 69 6e 67 2c 0d 0a 0d 0a 16 53 4f 20 ┆ge Бђђof the liђsting, SO ┆
0x060a0…060c0 24 53 55 42 54 49 54 4c 45 0d 0a 0d 0a bf dc d8 43 4f 44 45 be 09 6e 6f 6e 65 09 09 84 63 61 75 ┆$SUBTITLE ┐▄пCODEЙ none ёcau┆
0x060c0…060e0 73 65 73 20 63 6f 64 65 20 67 65 6e 65 72 61 74 65 64 20 66 6f 72 20 74 68 65 20 0a 19 a3 80 80 ┆ses code generated for the Бђђ┆
0x060e0…06100 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65 73 20 6f 66 20 73 6f 75 72 80 63 65 20 74 65 78 74 20 ┆following lines of sourђce text ┆
0x06100…06120 74 6f 20 0a 19 a3 80 80 62 65 20 6c 69 73 74 65 64 2c 0d 0a 16 53 4f 20 24 43 4f 44 45 0d 0a 0d ┆to Бђђbe listed, SO $CODE ┆
0x06120…06140 0a bf dc d8 4e 4f 43 4f 44 45 be 09 6e 6f 6e 65 09 09 73 75 70 70 72 65 73 73 65 73 20 6c 69 73 ┆ ┐▄пNOCODEЙ none suppresses lis┆
0x06140…06160 74 69 6e 67 20 6f 66 20 67 65 6e 65 72 61 74 65 64 0d 0a 28 64 65 66 61 75 6c 74 29 09 09 09 63 ┆ting of generated (default) c┆
0x06160…06180 6f 64 65 2c 0d 0a 0d 0a 16 53 4f 20 24 4e 4f 43 4f 44 45 0d 0a bf dc d8 43 52 45 41 54 45 53 49 ┆ode, SO $NOCODE ┐▄пCREATESI┆
0x06180…061a0 5a 45 be 09 6e 75 6d 62 65 72 09 09 84 64 65 74 65 72 6d 69 6e 65 73 20 73 74 61 63 6b 20 73 69 ┆ZEЙ number ёdetermines stack si┆
0x061a0…061c0 7a 65 20 6f 66 20 69 6e 80 80 63 61 72 80 0a 19 a3 80 80 6e 61 80 74 69 6f 6e 73 20 6f 66 20 74 ┆ze of inђђcarђ Бђђnaђtions of t┆
0x061c0…061e0 68 65 20 66 6f 6c 6c 6f 80 77 69 6e 67 20 70 72 6f 80 80 0a 19 a3 80 80 67 72 61 6d 28 73 29 20 ┆he folloђwing proђђ Бђђgram(s) ┆
0x061e0…06200 69 66 20 74 68 65 20 76 61 80 6c 75 65 20 6f 66 20 74 68 65 20 73 69 80 0a 19 a3 80 80 7a 65 5f ┆if the vaђlue of the siђ Бђђze_┆
0x06200…06220 65 78 70 72 65 73 80 73 69 6f 6e 20 6f 66 20 74 68 65 20 63 72 65 61 74 65 20 63 61 6c 6c 20 0a ┆expresђsion of the create call ┆
0x06220…06240 19 a3 80 80 69 73 20 30 2c 20 63 66 2e 20 73 65 63 74 69 6f 6e 20 33 2e 31 2e 32 2c 20 28 69 6d ┆ Бђђis 0, cf. section 3.1.2, (im┆
0x06240…06260 70 6c 65 80 0a 19 a3 80 80 6d 65 6e 80 74 61 74 69 6f 6e 20 64 65 70 65 6e 64 65 6e 74 29 0d 0a ┆pleђ Бђђmenђtation dependent) ┆
0x06260…06280 16 53 4f 20 24 43 52 45 41 54 45 53 49 5a 45 0d 0a 0d 0a bf dc d8 49 4e 44 45 58 43 48 45 43 4b ┆ SO $CREATESIZE ┐▄пINDEXCHECK┆
0x06280…062a0 be 09 6e 6f 6e 65 09 09 63 61 75 73 65 73 20 63 68 65 63 6b 69 6e 67 20 6f 66 20 73 75 62 72 61 ┆Й none causes checking of subra┆
0x062a0…062c0 6e 67 65 20 0d 0a 28 62 6c 69 6e 64 29 09 09 09 84 63 6f 6e 73 74 72 61 69 6e 74 73 20 62 65 66 ┆nge (blind) ёconstraints bef┆
0x062c0…062e0 6f 72 65 20 69 6e 80 64 65 78 80 69 6e 67 20 74 6f 20 0a 19 a3 80 80 62 65 20 69 6e 63 6c 75 64 ┆ore inђdexђing to Бђђbe includ┆
0x062e0…06300 65 64 20 69 6e 20 63 6f 64 65 20 67 65 80 6e 65 72 61 74 65 64 20 0a 19 a3 80 80 66 6f 72 20 74 ┆ed in code geђnerated Бђђfor t┆
0x06300…06320 68 65 20 66 6f 6c 80 6c 6f 77 69 6e 67 20 6c 69 6e 65 73 20 6f 66 20 73 6f 75 72 63 65 20 0a 19 ┆he folђlowing lines of source ┆
0x06320…06340 a3 80 80 74 65 78 74 2e 20 4e 6f 74 65 3a 20 69 74 20 63 61 6e 6e 6f 74 20 62 65 20 74 75 72 6e ┆Бђђtext. Note: it cannot be turn┆
0x06340…06360 65 64 20 0a 19 a3 80 80 6f 66 66 20 62 65 63 61 75 73 65 20 74 68 65 20 63 68 65 63 6b 20 6f 70 ┆ed Бђђoff because the check op┆
0x06360…06380 65 72 61 80 0a 19 a3 80 80 74 69 6f 6e 73 20 61 72 65 20 70 61 72 74 20 6f 66 20 74 68 65 20 6d ┆eraђ Бђђtions are part of the m┆
0x06380…063a0 61 63 68 69 6e 65 20 0a 19 a3 80 80 69 6e 73 74 72 75 63 74 69 6f 6e 73 2e 0d 0a 16 53 4f 20 24 ┆achine Бђђinstructions. SO $┆
0x063a0…063c0 49 4e 44 45 58 43 48 45 43 4b 0d 0a 0d 0a bf dc d8 4e 4f 49 4e 44 45 58 43 48 45 43 4b be 09 6e ┆INDEXCHECK ┐▄пNOINDEXCHECKЙ n┆
0x063c0…063e0 6f 6e 65 09 09 73 77 69 74 63 68 65 73 20 6f 66 66 20 69 6e 64 65 78 20 63 68 65 63 6b 80 69 6e ┆one switches off index checkђin┆
0x063e0…06400 67 2c 20 0d 0a 28 62 6c 69 6e 64 29 09 09 09 84 4e 6f 74 65 3a 20 69 74 20 63 61 6e 6e 6f 74 20 ┆g, (blind) ёNote: it cannot ┆
0x06400…06420 62 65 20 74 75 72 6e 65 64 20 6f 66 66 20 0a 19 a3 80 80 62 65 63 61 75 73 65 20 74 68 65 20 63 ┆be turned off Бђђbecause the c┆
0x06420…06440 68 65 63 6b 20 6f 70 65 72 61 74 69 6f 6e 73 20 0a 19 a3 80 80 61 72 65 20 70 61 72 74 20 6f 66 ┆heck operations Бђђare part of┆
0x06440…06460 20 74 68 65 20 6d 61 63 68 69 6e 65 20 69 6e 73 74 72 75 63 80 0a 19 a3 80 80 74 69 6f 6e 73 2e ┆ the machine instrucђ Бђђtions.┆
0x06460…06480 0d 0a 16 53 4f 20 24 4e 4f 49 4e 44 45 58 43 48 45 43 4b 0d 0a 0d 0a bf dc d8 4c 49 53 54 be 09 ┆ SO $NOINDEXCHECK ┐▄пLISTЙ ┆
0x06480…064a0 6e 6f 6e 65 09 09 84 63 61 75 73 65 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65 ┆none ёcauses the following line┆
0x064a0…064c0 73 20 6f 66 20 0a 19 a3 80 80 73 6f 75 72 63 65 20 74 65 78 74 20 74 6f 20 62 65 20 6c 69 80 73 ┆s of Бђђsource text to be liђs┆
0x064c0…064e0 74 65 64 2c 0d 0a 16 53 4f 20 24 4c 49 53 54 0d 0a 0d 0a bf dc d8 4e 4f 4c 49 53 54 be 09 6e 6f ┆ted, SO $LIST ┐▄пNOLISTЙ no┆
0x064e0…06500 6e 65 09 09 73 75 70 70 72 65 73 73 65 73 20 6c 69 73 74 69 6e 67 20 6f 66 20 73 6f 75 72 63 65 ┆ne suppresses listing of source┆
0x06500…06520 0d 0a 28 64 65 66 61 75 6c 74 29 09 09 09 74 65 78 74 2c 0d 0a 16 53 4f 20 24 4e 4f 4c 49 53 54 ┆ (default) text, SO $NOLIST┆
0x06520…06540 0d 0a 0f 0a 0d 0a 0c 90 f0 0a a1 6e 61 6d 65 09 70 61 72 61 6d 65 74 65 72 73 09 64 65 73 63 72 ┆ љ Аname parameters descr┆
0x06540…06560 69 70 74 69 6f 6e 05 20 5f 0d 0a 4c 49 4e 45 4e 55 4d 42 45 52 09 6e 75 6d 62 65 72 09 09 66 6f ┆iption _ LINENUMBER number fo┆
0x06560…06580 72 63 65 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 75 72 72 65 6e 74 20 0d 0a 28 6e 6f ┆rce line number of current (no┆
0x06580…065a0 6e 20 73 74 61 6e 64 61 72 64 29 09 09 09 84 6c 69 6e 65 20 74 6f 20 62 65 20 74 68 65 20 76 61 ┆n standard) ёline to be the va┆
0x065a0…065c0 6c 75 65 20 6f 66 20 74 68 65 20 0a 19 a3 80 80 70 61 72 61 6d 65 74 65 72 20 65 78 70 72 65 73 ┆lue of the Бђђparameter expres┆
0x065c0…065e0 73 69 6f 6e 2c 0d 0a 0d 0a bf dc d8 52 4f 55 4e 44 55 50 4c 49 4e 45 be 09 6e 6f 6e 65 09 09 6c ┆sion, ┐▄пROUNDUPLINEЙ none l┆
0x065e0…06600 69 6e 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 69 73 20 0d 0a ┆ine number of current line is ┆
0x06600…06620 28 6e 6f 6e 20 73 74 61 6e 64 61 72 64 29 09 09 09 84 72 6f 75 6e 64 65 64 20 75 70 20 74 6f 20 ┆(non standard) ёrounded up to ┆
0x06620…06640 74 68 65 20 6e 65 78 74 20 0a 19 a3 80 80 6d 75 6c 74 69 70 6c 75 6d 20 6f 66 20 31 30 30 30 2c ┆the next Бђђmultiplum of 1000,┆
0x06640…06660 0d 0a 16 53 4f 20 24 52 4f 55 4e 44 55 50 4c 49 4e 45 0d 0a 0d 0a 0d 0a bf dc d8 49 4e 43 4c 55 ┆ SO $ROUNDUPLINE ┐▄пINCLU┆
0x06660…06680 44 45 be 09 6e 61 6d 65 09 09 63 6f 6e 74 69 6e 75 65 20 72 65 61 64 69 6e 67 20 6f 66 20 70 72 ┆DEЙ name continue reading of pr┆
0x06680…066a0 6f 67 72 61 6d 20 0d 0a 28 6e 6f 6e 20 73 74 61 6e 64 61 72 64 29 09 09 09 84 74 65 78 74 20 69 ┆ogram (non standard) ёtext i┆
0x066a0…066c0 6e 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 66 69 6c 65 2e 20 49 6e 63 6c 75 80 0a 19 a3 80 ┆n the specified file. Incluђ Бђ┆
0x066c0…066e0 80 64 65 20 6d 61 79 20 62 65 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 61 6e 20 69 6e 63 6c 75 ┆ђde may be specified in an inclu┆
0x066e0…06700 80 0a 19 a3 80 80 64 65 64 20 66 69 6c 65 2e 0d 0a 16 53 4f 20 24 49 4e 43 4c 55 44 45 0d 0a 0d ┆ђ Бђђded file. SO $INCLUDE ┆
0x06700…06720 0a bf dc d8 56 45 52 53 49 4f 4e be 09 6e 75 6d 62 65 72 09 09 61 73 73 69 67 6e 20 74 68 65 20 ┆ ┐▄пVERSIONЙ number assign the ┆
0x06720…06740 76 61 6c 75 65 20 6f 66 20 74 68 65 20 76 65 72 73 69 6f 6e 20 0d 0a 28 6e 6f 6e 20 73 74 61 6e ┆value of the version (non stan┆
0x06740…06760 64 61 72 64 29 09 09 09 84 65 78 70 72 65 73 73 69 6f 6e 20 74 6f 20 74 68 65 20 76 65 72 73 69 ┆dard) ёexpression to the versi┆
0x06760…06780 6f 6e 20 61 74 74 72 69 80 0a 19 a3 80 80 62 75 74 65 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 ┆on attriђ Бђђbute of the progra┆
0x06780…067a0 6d 0d 0a 16 53 4f 20 24 56 45 52 53 49 4f 4e 0d 0a 0d 0a bf dc d8 52 41 4e 47 45 43 48 45 43 4b ┆m SO $VERSION ┐▄пRANGECHECK┆
0x067a0…067c0 be 09 6e 6f 6e 65 09 09 63 61 75 73 65 73 20 63 68 65 63 6b 69 6e 67 20 6f 66 20 73 75 62 72 61 ┆Й none causes checking of subra┆
0x067c0…067e0 6e 67 65 20 0d 0a 28 62 6c 69 6e 64 29 09 09 09 84 63 6f 6e 73 74 72 61 69 6e 74 73 20 62 65 66 ┆nge (blind) ёconstraints bef┆
0x067e0…06800 6f 72 65 20 61 73 80 73 69 67 6e 80 6d 65 6e 74 20 74 6f 20 0a 19 a3 80 80 62 65 20 69 6e 63 6c ┆ore asђsignђment to Бђђbe incl┆
0x06800…06820 75 64 65 64 20 69 6e 20 63 6f 64 65 20 67 65 80 6e 65 72 61 74 65 64 20 0a 19 a3 80 80 66 6f 72 ┆uded in code geђnerated Бђђfor┆
0x06820…06840 20 74 68 65 20 66 6f 6c 80 6c 6f 77 69 6e 67 20 6c 69 6e 65 73 20 6f 66 20 73 6f 75 72 63 65 20 ┆ the folђlowing lines of source ┆
0x06840…06860 0a 19 a3 80 80 74 65 78 74 2e 20 4e 6f 74 65 3a 20 69 74 20 63 61 6e 6e 6f 74 20 62 65 20 74 75 ┆ Бђђtext. Note: it cannot be tu┆
0x06860…06880 72 6e 65 64 20 0a 19 a3 80 80 6f 66 66 20 62 65 63 61 75 73 65 20 74 68 65 20 63 68 65 63 6b 20 ┆rned Бђђoff because the check ┆
0x06880…068a0 6f 70 65 72 61 80 0a 19 a3 80 80 74 69 6f 6e 73 20 61 72 65 20 70 61 72 74 20 6f 66 20 74 68 65 ┆operaђ Бђђtions are part of the┆
0x068a0…068c0 20 6d 61 63 68 69 6e 65 20 0a 19 a3 80 80 69 6e 73 74 72 75 63 74 69 6f 6e 73 2e 0d 0a 16 53 4f ┆ machine Бђђinstructions. SO┆
0x068c0…068e0 20 24 52 41 4e 47 45 43 48 45 43 4b 0d 0a 0d 0a bf dc d8 4e 4f 52 41 4e 47 45 43 48 45 43 4b be ┆ $RANGECHECK ┐▄пNORANGECHECKЙ┆
0x068e0…06900 09 6e 6f 6e 65 09 09 73 77 69 74 63 68 65 73 20 6f 66 66 20 72 61 6e 67 65 20 63 68 65 63 6b 80 ┆ none switches off range checkђ┆
0x06900…06920 69 6e 67 2c 20 0d 0a 28 62 6c 69 6e 64 29 09 09 09 84 4e 6f 74 65 3a 20 69 74 20 63 61 6e 6e 6f ┆ing, (blind) ёNote: it canno┆
0x06920…06940 74 20 62 65 20 74 75 72 6e 65 64 20 6f 66 66 20 0a 19 a3 80 80 62 65 63 61 75 73 65 20 74 68 65 ┆t be turned off Бђђbecause the┆
0x06940…06960 20 63 68 65 63 6b 20 6f 70 65 72 61 74 69 6f 6e 73 20 0a 19 a3 80 80 61 72 65 20 70 61 72 74 20 ┆ check operations Бђђare part ┆
0x06960…06980 6f 66 20 74 68 65 20 6d 61 63 68 69 6e 65 20 69 6e 73 74 72 75 63 80 0a 19 a3 80 80 74 69 6f 6e ┆of the machine instrucђ Бђђtion┆
0x06980…069a0 73 2e 0d 0a 16 53 4f 20 24 4e 4f 52 41 4e 47 45 43 48 45 43 4b 0d 0a 0d 0a bf dc d8 41 43 43 45 ┆s. SO $NORANGECHECK ┐▄пACCE┆
0x069a0…069c0 53 53 43 48 45 43 4b be 09 6e 6f 6e 65 09 09 63 61 75 73 65 73 20 63 6f 64 65 20 74 6f 20 62 65 ┆SSCHECKЙ none causes code to be┆
0x069c0…069e0 20 67 65 80 6e 65 72 61 80 74 65 64 20 66 6f 72 20 0d 0a 28 62 6c 69 6e 64 29 09 09 09 84 65 76 ┆ geђneraђted for (blind) ёev┆
0x069e0…06a00 65 72 79 20 61 63 63 65 73 73 20 74 6f 20 61 20 66 6f 72 80 6d 61 6c 20 70 61 72 61 80 0a 19 a3 ┆ery access to a forђmal paraђ Б┆
0x06a00…06a20 80 80 6d 65 74 65 72 20 6f 62 6a 65 63 74 20 77 68 69 63 68 20 69 73 20 6e 6f 74 20 6f 66 20 0a ┆ђђmeter object which is not of ┆
0x06a20…06a40 19 a3 80 80 6b 69 6e 64 20 76 61 80 6c 75 65 2c 20 74 6f 20 63 68 65 63 6b 20 74 68 65 20 65 78 ┆ Бђђkind vaђlue, to check the ex┆
0x06a40…06a60 80 80 0a 19 a3 80 80 69 73 74 65 6e 80 63 65 20 6f 66 20 74 68 65 20 61 63 74 75 61 6c 20 70 61 ┆ђђ Бђђistenђce of the actual pa┆
0x06a60…06a80 72 61 6d 65 74 65 72 20 0a 19 a3 80 80 28 6e 6f 74 20 73 70 65 63 69 80 66 69 65 64 20 61 73 20 ┆rameter Бђђ(not speciђfied as ┆
0x06a80…06aa0 3f 29 2e 20 54 68 65 20 73 79 6d 62 6f 6c 20 0a 19 a3 80 80 3f 20 69 73 20 6e 6f 74 20 61 63 63 ┆?). The symbol Бђђ? is not acc┆
0x06aa0…06ac0 65 70 74 65 64 20 61 73 20 70 61 72 61 6d 65 74 65 72 20 0a 19 a3 80 80 69 6e 20 52 54 50 33 35 ┆epted as parameter Бђђin RTP35┆
0x06ac0…06ae0 30 32 2e 0d 0a 16 53 4f 20 24 41 43 43 45 53 53 43 48 45 43 4b 0d 0a 0d 0a bf dc d8 4e 4f 41 43 ┆02. SO $ACCESSCHECK ┐▄пNOAC┆
0x06ae0…06b00 43 45 53 53 43 48 45 43 4b be 09 6e 6f 6e 65 09 09 73 77 69 74 63 68 65 73 20 6f 66 66 20 61 63 ┆CESSCHECKЙ none switches off ac┆
0x06b00…06b20 63 65 73 73 20 63 68 65 63 6b 69 6e 67 2e 0d 0a 28 62 6c 69 6e 64 29 0d 0a 16 53 4f 20 24 4e 4f ┆cess checking. (blind) SO $NO┆
0x06b20…06b40 41 43 43 45 53 53 43 48 45 43 4b 0d 0a 0d 0a bf dc d8 53 45 54 be 09 09 73 77 69 74 63 68 20 61 ┆ACCESSCHECK ┐▄пSETЙ switch a┆
0x06b40…06b60 73 73 69 67 6e 2d 09 73 65 65 20 62 65 6c 6f 77 2c 0d 0a 09 09 6d 65 6e 74 20 6c 69 73 74 0d 0a ┆ssign- see below, ment list ┆
0x06b60…06b80 16 53 4f 20 24 53 45 54 0d 0a 0d 0a bf dc d8 44 45 46 41 55 4c 54 be 09 73 77 69 74 63 68 20 61 ┆ SO $SET ┐▄пDEFAULTЙ switch a┆
0x06b80…06ba0 73 73 69 67 6e 2d 09 73 65 65 20 62 65 6c 6f 77 2c 0d 0a 28 6e 6f 6e 20 73 74 61 6e 64 61 72 64 ┆ssign- see below, (non standard┆
0x06ba0…06bc0 29 09 6d 65 6e 74 20 6c 69 73 74 0d 0a 16 53 4f 20 24 44 45 46 41 55 4c 54 0d 0a 0c 89 c8 0a a1 ┆) ment list SO $DEFAULT Ѕ╚ А┆
0x06bc0…06be0 6e 61 6d 65 09 70 61 72 61 6d 65 74 65 72 73 09 64 65 73 63 72 69 70 74 69 6f 6e 05 20 5f 0d 0a ┆name parameters description _ ┆
0x06be0…06c00 bf dc d8 49 46 be 09 09 65 78 70 72 65 73 73 69 6f 6e 09 73 65 65 20 62 65 6c 6f 77 2c 0d 0a 16 ┆┐▄пIFЙ expression see below, ┆
0x06c00…06c20 53 4f 20 24 49 46 0d 0a 0d 0a bf dc d8 45 4e 44 49 46 be 09 6e 6f 6e 65 09 09 73 65 65 20 62 65 ┆SO $IF ┐▄пENDIFЙ none see be┆
0x06c20…06c40 6c 6f 77 2c 0d 0a 16 53 4f 20 24 45 4e 44 49 46 0d 0a 0d 0a bf dc d8 45 4c 53 45 be 09 6e 6f 6e ┆low, SO $ENDIF ┐▄пELSEЙ non┆
0x06c40…06c60 65 09 09 73 65 65 20 62 65 6c 6f 77 2c 0d 0a 16 53 4f 20 24 45 4c 53 45 0d 0a 0d 0a bf dc d8 45 ┆e see below, SO $ELSE ┐▄пE┆
0x06c60…06c80 4c 53 45 49 46 be 09 65 78 70 72 65 73 73 69 6f 6e 09 73 65 65 20 62 65 6c 6f 77 2c 0d 0a 16 53 ┆LSEIFЙ expression see below, S┆
0x06c80…06ca0 4f 20 24 45 4c 53 45 49 46 0d 0a 0d 0a 0d 0a 16 73 6f 20 73 77 69 74 63 68 65 73 2c 20 63 6f 6d ┆O $ELSEIF so switches, com┆
0x06ca0…06cc0 70 69 6c 61 74 69 6f 6e 0d 0a 53 77 69 74 63 68 65 73 20 61 72 65 20 63 6f 6d 70 69 6c 65 2d 74 ┆pilation Switches are compile-t┆
0x06cc0…06ce0 69 6d 65 20 76 61 72 69 61 62 6c 65 73 20 77 68 69 63 68 20 63 61 6e 20 2d 20 65 78 63 65 70 74 ┆ime variables which can - except┆
0x06ce0…06d00 20 66 72 6f 6d 20 70 61 80 72 61 80 80 6d 65 80 0a 74 65 72 73 20 6f 66 20 74 68 65 20 74 72 61 ┆ from paђraђђmeђ ters of the tra┆
0x06d00…06d20 6e 73 66 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 74 73 77 69 74 63 68 20 28 63 66 2e 20 52 54 ┆nsfer function getswitch (cf. RT┆
0x06d20…06d40 50 2d 33 2e 31 32 29 20 2d 20 6f 6e 6c 79 20 62 65 20 75 73 65 64 20 0a 69 6e 20 74 68 65 20 65 ┆P-3.12) - only be used in the e┆
0x06d40…06d60 78 70 72 65 73 73 69 6f 6e 73 20 6f 63 63 75 72 72 69 6e 67 20 69 6e 20 49 46 20 61 6e 64 20 45 ┆xpressions occurring in IF and E┆
0x06d60…06d80 4c 53 45 49 46 20 64 69 72 65 63 74 69 76 65 73 2e 20 4f 6e 6c 79 20 74 68 65 20 0a 66 69 72 73 ┆LSEIF directives. Only the firs┆
0x06d80…06da0 74 20 31 32 20 63 68 61 72 61 63 74 65 72 73 20 6f 66 20 61 20 73 77 69 74 63 68 20 6e 61 6d 65 ┆t 12 characters of a switch name┆
0x06da0…06dc0 20 61 72 65 20 73 69 67 6e 69 66 69 63 61 6e 74 2e 20 41 20 73 77 69 74 63 68 20 61 73 80 80 73 ┆ are significant. A switch asђђs┆
0x06dc0…06de0 69 67 6e 80 0a 6d 65 6e 74 20 6c 69 73 74 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 6f 6e 65 20 6f ┆ignђ ment list consists of one o┆
0x06de0…06e00 72 20 6d 6f 72 65 20 73 77 69 74 63 68 20 61 73 73 69 67 6e 80 6d 65 6e 74 73 20 73 65 70 61 72 ┆r more switch assignђments separ┆
0x06e00…06e20 61 74 65 64 20 62 79 20 0a 63 6f 6d 6d 61 73 2e 20 41 20 73 77 69 74 63 68 20 61 73 73 69 67 6e ┆ated by commas. A switch assign┆
0x06e20…06e40 6d 65 6e 74 20 68 61 73 20 74 68 65 20 66 6f 72 6d 20 28 6e 75 6d 62 65 72 20 6d 75 73 74 20 62 ┆ment has the form (number must b┆
0x06e40…06e60 65 20 69 6e 74 65 67 65 72 2c 20 0a 6e 6f 20 72 61 64 69 78 20 61 6c 6c 6f 77 65 64 29 3a 0d 0a ┆e integer, no radix allowed): ┆
0x06e60…06e80 09 6e 61 6d 65 20 3d 20 6e 75 6d 62 65 72 0d 0a 0d 0a 41 20 73 77 69 74 63 68 20 61 73 73 69 67 ┆ name = number A switch assig┆
0x06e80…06ea0 6e 6d 65 6e 74 20 65 69 74 68 65 72 20 69 6e 74 72 6f 64 75 63 65 73 20 61 6e 64 20 73 65 74 73 ┆nment either introduces and sets┆
0x06ea0…06ec0 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20 73 77 69 74 63 68 2c 20 0a 6f 72 2c 20 69 66 20 ┆ the value of a switch, or, if ┆
0x06ec0…06ee0 74 68 65 20 73 77 69 74 63 68 20 68 61 73 20 62 65 65 6e 20 69 6e 74 72 6f 64 75 63 65 64 20 69 ┆the switch has been introduced i┆
0x06ee0…06f00 6e 20 61 20 70 72 65 80 76 69 6f 75 73 20 73 77 69 74 63 68 20 61 73 73 69 67 6e 6d 65 6e 74 20 ┆n a preђvious switch assignment ┆
0x06f00…06f20 0a 28 53 45 54 20 6f 72 20 44 45 46 41 55 4c 54 20 64 69 72 65 63 74 69 76 65 20 6f 72 20 66 72 ┆ (SET or DEFAULT directive or fr┆
0x06f20…06f40 6f 6d 20 74 68 65 20 63 61 6c 6c 20 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 29 2c 20 6d 65 ┆om the call of the compiler), me┆
0x06f40…06f60 72 65 6c 79 20 0a 63 68 61 6e 67 65 73 20 74 68 65 20 76 61 6c 75 65 2e 20 54 68 65 20 64 69 72 ┆rely changes the value. The dir┆
0x06f60…06f80 65 63 74 69 76 65 20 77 6f 72 64 20 44 45 46 41 55 4c 54 20 69 73 20 75 73 65 64 20 66 6f 72 20 ┆ective word DEFAULT is used for ┆
0x06f80…06fa0 69 6e 74 72 6f 64 75 63 80 0a 74 69 6f 6e 20 61 6e 64 20 73 65 74 74 69 6e 67 20 74 68 65 20 76 ┆introducђ tion and setting the v┆
0x06fa0…06fc0 61 6c 75 65 20 6f 66 20 61 20 73 77 69 74 63 68 2e 20 49 66 20 74 68 65 20 73 77 69 74 63 68 20 ┆alue of a switch. If the switch ┆
0x06fc0…06fe0 61 6c 72 65 61 64 79 20 65 78 69 73 74 65 64 2c 20 0a 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 ┆already existed, as a result of┆
0x06fe0…07000 20 61 6e 20 65 61 72 6c 69 65 72 20 53 45 54 20 64 69 72 65 63 74 69 76 65 2c 20 74 68 65 20 44 ┆ an earlier SET directive, the D┆
0x07000…07020 45 46 41 55 4c 54 20 64 69 72 65 63 74 69 76 65 20 69 73 20 0a 62 6c 69 6e 64 2e 0d 0a 0d 0a 8c ┆EFAULT directive is blind. ї┆
0x07020…07040 85 88 0a 54 68 65 20 64 69 72 65 63 74 69 76 65 73 20 49 46 2c 20 45 4c 53 45 2c 20 45 4c 53 45 ┆Ёѕ The directives IF, ELSE, ELSE┆
0x07040…07060 49 46 2c 20 61 6e 64 20 45 4e 44 49 46 20 70 72 6f 76 69 64 65 20 74 68 65 20 63 61 70 61 80 62 ┆IF, and ENDIF provide the capaђb┆
0x07060…07080 69 6c 69 74 79 20 0a 66 6f 72 20 bf dc d8 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 63 6f 6d 70 69 6c ┆ility for ┐▄пconditional compil┆
0x07080…070a0 61 74 69 6f 6e be 2e 20 54 68 65 20 65 78 70 72 65 73 73 69 6f 6e 73 20 6f 63 63 75 72 80 80 72 ┆ationЙ. The expressions occurђђr┆
0x070a0…070c0 69 6e 67 20 69 6e 20 49 46 20 61 6e 64 20 45 4c 53 45 80 0a 49 46 20 64 69 72 65 63 74 69 76 65 ┆ing in IF and ELSEђ IF directive┆
0x070c0…070e0 20 6d 75 73 74 20 62 65 20 62 6f 6f 6c 65 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 73 20 6f 62 65 ┆ must be boolean expressions obe┆
0x070e0…07100 79 69 6e 67 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 72 75 6c 65 73 20 6f 66 20 0a 74 68 65 20 ┆ying the standard rules of the ┆
0x07100…07120 6c 61 6e 67 75 61 67 65 2e 20 54 68 65 20 6f 70 65 72 61 6e 64 73 20 6d 75 73 74 20 62 65 20 73 ┆language. The operands must be s┆
0x07120…07140 77 69 74 63 68 65 73 20 61 6e 64 20 69 6e 74 65 67 65 72 20 6e 75 6d 62 65 72 73 2e 20 0a 54 68 ┆witches and integer numbers. Th┆
0x07140…07160 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6f 70 65 72 61 80 74 6f 72 73 20 6d 61 79 20 62 65 20 75 73 ┆e following operaђtors may be us┆
0x07160…07180 65 64 3a 20 3c 2c 20 3c 3d 2c 20 3e 3d 2c 20 3e 2c 20 3d 2c 20 3c 3e 2c 20 41 4e 44 2c 20 4f 52 ┆ed: <, <=, >=, >, =, <>, AND, OR┆
0x07180…071a0 2c 20 0a 58 4f 52 2c 20 4e 4f 54 2e 0d 0a 0d 0a 54 68 65 20 64 69 72 65 63 74 69 76 65 73 20 66 ┆, XOR, NOT. The directives f┆
0x071a0…071c0 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6d 61 79 20 62 ┆or conditional compilation may b┆
0x071c0…071e0 65 20 75 73 65 64 20 74 6f 20 73 65 6c 65 63 80 74 69 76 65 6c 79 20 0a 65 78 63 6c 75 64 65 20 ┆e used to selecђtively exclude ┆
0x071e0…07200 62 6c 6f 63 6b 73 20 6f 66 20 6c 69 6e 65 73 20 6f 66 20 73 6f 75 72 63 65 20 74 65 78 74 20 66 ┆blocks of lines of source text f┆
0x07200…07220 72 6f 6d 20 63 6f 6d 80 70 69 6c 61 74 69 6f 6e 2c 20 69 2e 65 2e 20 74 6f 20 63 61 75 73 65 20 ┆rom comђpilation, i.e. to cause ┆
0x07220…07240 0a 73 75 63 68 20 6c 69 6e 65 73 20 74 6f 20 62 65 20 74 72 65 61 74 65 64 20 61 73 20 63 6f 6d ┆ such lines to be treated as com┆
0x07240…07260 80 80 6d 65 6e 74 73 2e 20 57 68 65 6e 20 6c 69 73 74 65 64 2c 20 65 61 63 68 20 65 78 63 6c 75 ┆ђђments. When listed, each exclu┆
0x07260…07280 64 65 64 20 6c 69 6e 65 20 0a 77 69 6c 6c 20 62 65 20 6d 61 72 6b 65 64 20 77 69 74 68 20 2d 2d ┆ded line will be marked with --┆
0x07280…072a0 20 61 70 70 65 61 72 69 6e 67 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 ┆ appearing at the beginning of t┆
0x072a0…072c0 68 65 20 6c 69 6e 65 2e 0d 0a 0d 0a 54 68 65 20 64 69 72 65 63 74 69 76 65 20 49 46 20 61 6e 64 ┆he line. The directive IF and┆
0x072c0…072e0 20 45 4e 44 49 46 20 6d 75 73 74 20 61 6c 77 61 79 73 20 62 65 20 75 73 65 64 20 69 6e 20 6d 61 ┆ ENDIF must always be used in ma┆
0x072e0…07300 74 63 68 69 6e 67 20 70 61 69 72 73 2e 20 0a 45 4c 53 45 20 61 6e 64 20 45 4c 53 45 49 46 20 6d ┆tching pairs. ELSE and ELSEIF m┆
0x07300…07320 61 79 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 62 65 20 75 73 65 64 20 69 6e 20 63 6f 6e 6a 75 6e 63 ┆ay optionally be used in conjunc┆
0x07320…07340 74 69 6f 6e 20 77 69 74 68 20 49 46 20 61 6e 64 20 0a 45 4e 44 49 46 2e 20 41 20 75 73 65 20 6f ┆tion with IF and ENDIF. A use o┆
0x07340…07360 66 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 74 61 6b 65 73 20 ┆f conditional compilation takes ┆
0x07360…07380 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 6f 72 6d 3a 0d 0a 0d 0a 24 49 46 20 65 78 70 72 82 ┆the following form: $IF exprѓ┆
0x07380…073a0 31 0d 0a 0d 0a 73 74 82 31 0d 0a 0d 0a 24 45 4c 53 45 49 46 20 65 78 70 72 82 32 0d 0a 0d 0a 73 ┆1 stѓ1 $ELSEIF exprѓ2 s┆
0x073a0…073c0 74 82 32 0d 0a 0d 0a 24 45 4c 53 45 49 46 20 65 78 70 72 82 33 0d 0a 0d 0a 73 74 82 33 0d 0a 0d ┆tѓ2 $ELSEIF exprѓ3 stѓ3 ┆
0x073c0…073e0 0a 2e 2e 2e 0d 0a 0d 0a 24 45 4c 53 45 49 46 20 65 78 70 72 82 6e 0d 0a 0d 0a 73 74 82 6e 0d 0a ┆ ... $ELSEIF exprѓn stѓn ┆
0x073e0…07400 0d 0a 24 45 4c 53 45 0d 0a 0d 0a 73 74 82 6e 2b 31 0d 0a 0d 0a 24 45 4e 44 49 46 0d 0a 0d 0a 8c ┆ $ELSE stѓn+1 $ENDIF ї┆
0x07400…07420 87 c0 0a 54 68 65 20 6f 6e 6c 79 20 6d 61 6e 64 61 74 6f 72 79 20 70 61 72 74 73 20 61 72 65 20 ┆Є└ The only mandatory parts are ┆
0x07420…07440 74 68 65 20 49 46 20 61 6e 64 20 45 4e 44 49 46 20 64 69 72 65 63 74 69 76 65 20 6c 69 80 6e 65 ┆the IF and ENDIF directive liђne┆
0x07440…07460 73 20 61 6e 64 20 0a 74 68 65 20 73 6f 75 72 63 65 20 6c 69 6e 65 28 73 29 20 73 74 82 31 81 2e ┆s and the source line(s) stѓ1Ђ.┆
0x07460…07480 20 54 68 65 20 65 66 66 65 63 74 20 69 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 20 49 66 20 74 68 ┆ The effect is as follows: If th┆
0x07480…074a0 65 20 76 61 6c 80 75 65 73 20 6f 66 20 61 6c 6c 20 0a 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e ┆e valђues of all the expression┆
0x074a0…074c0 73 20 61 72 65 20 66 61 6c 73 65 20 74 68 65 6e 20 74 68 65 20 73 6f 75 72 63 65 20 6c 69 6e 65 ┆s are false then the source line┆
0x074c0…074e0 73 20 73 74 82 31 81 2c 20 73 74 82 32 81 2c 20 2e 2e 2e 2c 20 73 74 82 6e 81 20 61 72 65 20 0a ┆s stѓ1Ђ, stѓ2Ђ, ..., stѓnЂ are ┆
0x074e0…07500 65 78 63 6c 75 64 65 64 20 66 72 6f 6d 20 63 6f 6d 70 69 6c 61 80 74 69 6f 6e 2e 20 4f 74 80 68 ┆excluded from compilaђtion. Otђh┆
0x07500…07520 65 72 77 69 73 65 20 6c 65 74 20 6b 20 62 65 20 74 68 65 20 73 6d 61 6c 6c 65 73 74 20 6e 75 6d ┆erwise let k be the smallest num┆
0x07520…07540 62 65 72 20 0a 73 75 63 68 20 74 68 61 74 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 65 78 70 72 ┆ber such that the value of expr┆
0x07540…07560 82 6b 81 20 69 73 20 74 72 75 65 2e 20 54 68 65 6e 20 73 74 82 31 81 2c 20 2e 2e 2e 2c 20 73 74 ┆ѓkЂ is true. Then stѓ1Ђ, ..., st┆
0x07560…07580 82 6b 2d 31 81 2c 20 73 74 82 6b 2b 31 81 2c 20 2e 2e 2e 2c 20 0a 73 74 82 6e 81 2c 20 61 6e 64 ┆ѓk-1Ђ, stѓk+1Ђ, ..., stѓnЂ, and┆
0x07580…075a0 20 73 74 82 6e 2b 31 81 20 28 69 66 20 70 72 65 73 65 6e 74 29 20 61 72 65 20 65 78 63 6c 75 64 ┆ stѓn+1Ђ (if present) are exclud┆
0x075a0…075c0 65 64 20 66 72 6f 6d 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2e 0d 0a 0d 0a 43 6f 6e 64 69 74 69 6f ┆ed from compilation. Conditio┆
0x075c0…075e0 6e 61 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6d 61 79 20 62 65 20 75 73 65 64 20 61 74 20 73 ┆nal compilation may be used at s┆
0x075e0…07600 65 76 65 72 61 6c 20 6e 65 73 74 65 64 20 6c 65 80 76 65 6c 73 2e 20 49 6e 20 74 68 65 20 0a 61 ┆everal nested leђvels. In the a┆
0x07600…07620 62 6f 76 65 20 74 65 72 6d 69 6e 6f 6c 6f 67 79 20 61 6e 79 20 6f 66 20 74 68 65 20 73 74 82 69 ┆bove terminology any of the stѓi┆
0x07620…07640 81 20 6d 61 79 20 74 68 75 73 20 69 6e 80 80 63 6c 75 64 65 20 72 65 70 65 61 74 65 64 20 75 73 ┆Ђ may thus inђђclude repeated us┆
0x07640…07660 65 20 6f 66 20 0a 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2e 0d 0a ┆e of conditional compilation. ┆
0x07660…07680 0d 0a 0e 0a a1 4e 6f 74 65 73 3a 0d 0a 53 77 69 74 63 68 65 73 20 61 6e 64 20 76 61 72 69 61 62 ┆ АNotes: Switches and variab┆
0x07680…076a0 6c 65 73 20 69 6e 20 74 68 65 20 70 72 6f 67 72 61 6d 20 74 65 78 74 20 62 65 6c 6f 6e 67 20 74 ┆les in the program text belong t┆
0x076a0…076c0 6f 20 73 65 80 70 61 72 61 80 74 65 20 6e 61 6d 65 20 0a 73 70 61 63 65 73 20 61 6e 64 20 63 61 ┆o seђparaђte name spaces and ca┆
0x076c0…076e0 6e 6e 6f 74 20 62 65 20 63 6f 6e 66 75 73 65 64 2e 20 54 68 65 20 73 61 6d 65 20 6e 61 6d 65 73 ┆nnot be confused. The same names┆
0x076e0…07700 20 6d 61 79 20 62 65 20 75 73 65 64 2e 0d 0a 0d 0a 0f 0a 44 69 72 65 63 74 69 76 65 73 20 6f 63 ┆ may be used. Directives oc┆
0x07700…07720 63 75 72 72 69 6e 67 20 69 6e 20 63 6f 6d 6d 65 6e 74 73 20 61 72 65 20 69 67 6e 6f 72 65 64 2c ┆curring in comments are ignored,┆
0x07720…07740 20 69 6e 20 70 61 72 74 69 63 75 6c 61 72 20 74 68 6f 73 65 20 6f 63 80 0a 63 75 72 72 69 6e 67 ┆ in particular those ocђ curring┆
0x07740…07760 20 69 6e 20 73 6f 75 72 63 65 20 6c 69 6e 65 73 20 65 78 63 6c 75 64 65 64 20 66 72 6f 6d 20 63 ┆ in source lines excluded from c┆
0x07760…07780 6f 6d 70 69 6c 61 74 69 6f 6e 2e 0d 0a 16 73 63 0d 0a 50 72 65 64 65 66 69 6e 65 64 20 53 77 69 ┆ompilation. sc Predefined Swi┆
0x07780…077a0 74 63 68 65 73 0d 0a 16 73 6f 20 74 61 72 67 65 74 20 28 73 77 69 74 63 68 29 0d 0a 16 73 6f 20 ┆tches so target (switch) so ┆
0x077a0…077c0 63 6f 6d 70 69 6c 65 72 20 28 73 77 69 74 63 68 29 0d 0a 54 68 65 72 65 20 61 72 65 20 74 77 6f ┆compiler (switch) There are two┆
0x077c0…077e0 20 70 72 65 64 65 66 69 6e 65 64 20 73 77 69 74 63 68 65 73 2c 20 74 61 72 67 65 74 20 61 6e 64 ┆ predefined switches, target and┆
0x077e0…07800 20 63 6f 6d 70 69 6c 65 72 2e 20 49 6e 20 74 68 65 20 0a 52 43 38 30 30 30 20 63 6f 6d 70 69 6c ┆ compiler. In the RC8000 compil┆
0x07800…07820 65 72 20 6e 61 6d 65 64 20 72 74 70 33 35 30 32 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 61 ┆er named rtp3502 the value of ta┆
0x07820…07840 72 67 65 74 20 69 73 20 72 63 33 35 30 32 2c 20 61 6e 64 20 74 68 65 20 0a 76 61 6c 75 65 20 6f ┆rget is rc3502, and the value o┆
0x07840…07860 66 20 63 6f 6d 70 69 6c 65 72 20 69 73 20 72 74 70 33 35 30 32 2e 20 54 68 65 73 65 20 73 77 69 ┆f compiler is rtp3502. These swi┆
0x07860…07880 74 63 68 65 73 20 6d 61 79 20 62 65 20 75 74 69 6c 69 7a 65 64 20 66 6f 72 20 63 6f 6e 80 0a 64 ┆tches may be utilized for conђ d┆
0x07880…078a0 69 74 69 6f 6e 61 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6f 66 20 6d 61 63 68 69 6e 65 20 64 ┆itional compilation of machine d┆
0x078a0…078c0 65 70 65 6e 64 65 6e 74 20 70 61 72 74 73 20 6f 66 20 70 72 6f 67 72 61 6d 73 2e 0d 0a 16 53 41 ┆ependent parts of programs. SA┆
0x078c0…078e0 0d 0a 41 76 61 69 6c 61 62 6c 65 20 52 6f 75 74 69 6e 65 73 0d 0a 49 6e 20 74 68 65 20 66 6f 6c ┆ Available Routines In the fol┆
0x078e0…07900 6c 6f 77 69 6e 67 20 73 65 63 74 69 6f 6e 73 20 61 6c 6c 20 61 76 61 69 6c 61 62 6c 65 20 72 6f ┆lowing sections all available ro┆
0x07900…07920 75 74 69 6e 65 73 20 61 72 65 20 64 65 73 63 72 69 62 65 64 2e 20 54 68 65 20 0a 72 6f 75 74 69 ┆utines are described. The routi┆
0x07920…07940 6e 65 73 20 61 72 65 20 67 72 6f 75 70 65 64 20 74 6f 67 65 74 68 65 72 20 61 63 63 6f 72 64 69 ┆nes are grouped together accordi┆
0x07940…07960 6e 67 20 74 6f 20 63 6f 6d 6d 6f 6e 20 66 75 6e 63 74 69 6f 6e 61 6c 20 63 68 61 72 61 63 80 0a ┆ng to common functional characђ ┆
0x07960…07980 74 65 72 69 73 74 69 63 73 3a 20 0d 0a 0d 0a 20 20 20 20 52 6f 75 74 69 6e 65 73 20 66 6f 72 20 ┆teristics: Routines for ┆
0x07980…079a0 50 72 6f 67 72 61 6d 20 43 6f 6e 74 72 6f 6c 2c 0d 0a 20 20 20 20 43 6f 6d 6d 75 6e 69 63 61 74 ┆Program Control, Communicat┆
0x079a0…079c0 69 6f 6e 20 52 6f 75 74 69 6e 65 73 2c 0d 0a 20 20 20 20 52 6f 75 74 69 6e 65 73 20 66 6f 72 20 ┆ion Routines, Routines for ┆
0x079c0…079e0 4d 65 73 73 61 67 65 20 4d 61 6e 69 70 75 6c 61 74 69 6f 6e 2c 0d 0a 20 20 20 20 43 6f 6e 76 65 ┆Message Manipulation, Conve┆
0x079e0…07a00 72 73 69 6f 6e 20 61 6e 64 20 41 72 69 74 68 6d 65 74 69 63 20 52 6f 75 74 69 6e 65 73 2c 0d 0a ┆rsion and Arithmetic Routines, ┆
0x07a00…07a20 20 20 20 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 52 6f 75 74 69 6e 65 73 2c 0d 0a 20 20 20 ┆ Miscellaneous Routines, ┆
0x07a20…07a40 20 52 6f 75 74 69 6e 65 73 20 66 6f 72 20 4f 70 65 72 61 74 6f 72 20 43 6f 6d 6d 75 6e 69 63 61 ┆ Routines for Operator Communica┆
0x07a40…07a60 74 69 6f 6e 2c 0d 0a 20 20 20 20 44 72 69 76 65 72 20 49 6e 70 75 74 2f 4f 75 74 70 75 74 20 52 ┆tion, Driver Input/Output R┆
0x07a60…07a80 6f 75 74 69 6e 65 73 2e 0d 0a 20 20 20 20 52 6f 75 74 69 6e 65 73 20 66 6f 72 20 62 61 63 6b 77 ┆outines. Routines for backw┆
0x07a80…07aa0 61 72 64 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 2e 0d 0a 0d 0a 49 6e 20 74 68 65 20 64 65 73 ┆ard compatibility. In the des┆
0x07aa0…07ac0 63 72 69 70 74 69 6f 6e 73 20 6f 6e 65 20 6f 75 74 20 6f 66 20 74 68 72 65 65 20 61 74 74 72 69 ┆criptions one out of three attri┆
0x07ac0…07ae0 62 75 74 65 73 20 69 73 20 6c 69 73 74 65 64 3a 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 3a ┆butes is listed: Predefined:┆
0x07ae0…07b00 20 54 68 65 20 72 6f 75 74 69 6e 65 20 69 73 20 70 72 65 64 65 66 69 6e 65 64 20 61 6e 64 20 6d ┆ The routine is predefined and m┆
0x07b00…07b20 61 79 20 62 65 20 75 6e 64 65 72 73 74 6f 6f 64 20 61 73 20 70 61 72 74 20 0a 6f 66 20 74 68 65 ┆ay be understood as part of the┆
0x07b20…07b40 20 6c 61 6e 67 75 61 67 65 2e 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 3a 20 54 ┆ language. Not predefined: T┆
0x07b40…07b60 68 65 20 72 6f 75 74 69 6e 65 20 6d 75 73 74 20 62 65 20 64 65 63 6c 61 72 65 64 20 69 6e 20 74 ┆he routine must be declared in t┆
0x07b60…07b80 68 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 70 61 72 74 20 0a 6f 66 20 61 20 70 72 6f 67 72 61 ┆he declaration part of a progra┆
0x07b80…07ba0 6d 20 6f 72 20 69 6e 20 61 20 75 73 65 72 20 64 65 66 69 6e 65 64 20 65 6e 76 69 72 6f 6e 6d 65 ┆m or in a user defined environme┆
0x07ba0…07bc0 6e 74 2e 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 65 6e 76 5f 6e 61 6d 65 3a 20 54 68 65 ┆nt. Defined in env_name: The┆
0x07bc0…07be0 20 72 6f 75 74 69 6e 65 20 69 73 20 64 65 63 6c 61 72 65 64 20 69 6e 20 74 68 65 20 63 6f 6e 74 ┆ routine is declared in the cont┆
0x07be0…07c00 65 78 74 20 66 69 6c 65 20 6e 61 80 0a 6d 65 64 20 65 6e 76 5f 6e 61 6d 65 2c 20 77 68 69 63 68 ┆ext file naђ med env_name, which┆
0x07c00…07c20 20 6d 61 79 20 62 65 20 75 73 65 64 20 69 6e 20 74 68 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 ┆ may be used in the compilation ┆
0x07c20…07c40 66 6f 72 20 61 63 63 65 73 73 20 6f 66 20 0a 74 68 65 20 72 6f 75 74 69 6e 65 2e 20 49 66 20 65 ┆for access of the routine. If e┆
0x07c40…07c60 6e 76 5f 6e 61 6d 65 20 69 73 20 72 63 33 35 30 32 65 6e 76 20 74 68 65 20 64 65 63 6c 61 72 61 ┆nv_name is rc3502env the declara┆
0x07c60…07c80 74 69 6f 6e 20 69 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 0a 69 6e 63 6c 75 64 65 64 2e ┆tion is automatically included.┆
0x07c80…07ca0 20 54 68 65 20 72 6f 75 74 69 6e 65 20 69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 74 68 65 20 ┆ The routine is not part of the ┆
0x07ca0…07cc0 6c 61 6e 67 75 61 67 65 20 64 65 66 69 6e 69 74 69 6f 6e 2c 20 62 75 74 20 70 61 72 74 20 0a 6f ┆language definition, but part o┆
0x07cc0…07ce0 66 20 74 68 65 20 72 63 33 35 30 32 20 73 70 65 63 69 66 69 63 20 65 78 74 65 6e 73 69 6f 6e 20 ┆f the rc3502 specific extension ┆
0x07ce0…07d00 6f 66 20 74 68 65 20 6c 61 6e 67 75 61 67 65 2e 0d 0a 8c 89 98 0a 16 53 42 0d 0a 52 6f 75 74 69 ┆of the language. їЅў SB Routi┆
0x07d00…07d20 6e 65 73 20 66 6f 72 20 50 72 6f 67 72 61 6d 20 43 6f 6e 74 72 6f 6c 0d 0a 16 73 6f 20 63 6f 6e ┆nes for Program Control so con┆
0x07d20…07d40 74 72 6f 6c 2c 20 70 72 6f 67 72 61 6d 0d 0a 54 68 69 73 20 73 65 63 74 69 6f 6e 20 64 65 73 63 ┆trol, program This section desc┆
0x07d40…07d60 72 69 62 65 73 20 74 68 65 20 72 6f 75 74 69 6e 65 73 20 66 6f 72 20 63 6f 6e 74 72 6f 6c 20 6f ┆ribes the routines for control o┆
0x07d60…07d80 66 20 70 72 6f 67 72 61 6d 73 20 61 6e 64 20 70 72 6f 80 80 80 0a 63 65 73 73 65 73 20 61 73 20 ┆f programs and proђђђ cesses as ┆
0x07d80…07da0 69 6e 63 61 72 6e 61 74 69 6f 6e 73 20 6f 66 20 70 72 6f 67 72 61 6d 73 2e 20 45 78 63 65 70 74 ┆incarnations of programs. Except┆
0x07da0…07dc0 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 20 69 73 20 64 65 73 63 72 69 62 65 64 2c 20 0a 61 6e 64 20 ┆ion handling is described, and ┆
0x07dc0…07de0 61 20 70 72 69 6d 69 74 69 76 65 20 64 65 62 75 67 20 74 6f 6f 6c 20 28 74 72 61 63 65 29 2e 20 ┆a primitive debug tool (trace). ┆
0x07de0…07e00 0d 0a 16 53 43 0d 0a 42 72 65 61 6b 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 62 72 65 61 6b ┆ SC Break PROCEDURE ┐▄пbreak┆
0x07e00…07e20 be 28 56 41 52 20 70 72 3a 20 70 72 6f 63 65 73 73 3b 20 65 78 63 6f 64 65 3a 20 69 6e 74 65 67 ┆Й(VAR pr: process; excode: integ┆
0x07e20…07e40 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 0d 0a ┆er); Defined in rc3502env. ┆
0x07e40…07e60 0d 0a 20 20 20 2d 20 84 73 74 6f 70 73 20 74 68 65 20 70 72 6f 63 65 73 73 20 61 6e 64 20 73 74 ┆ - ёstops the process and st┆
0x07e60…07e80 61 72 74 73 20 69 74 20 69 6e 20 74 68 65 20 65 78 63 65 70 74 69 6f 6e 20 70 72 6f 63 65 64 75 ┆arts it in the exception procedu┆
0x07e80…07ea0 72 65 20 28 73 65 65 20 0a 19 85 80 80 45 58 43 45 50 54 49 4f 4e 29 2e 20 49 66 20 30 3c 3d 65 ┆re (see ЁђђEXCEPTION). If 0<=e┆
0x07ea0…07ec0 78 63 6f 64 65 20 61 6e 64 20 65 78 63 6f 64 65 3c 3d 62 72 65 61 6b 5f 62 79 5f 66 61 74 68 65 ┆xcode and excode<=break_by_fathe┆
0x07ec0…07ee0 72 2c 20 74 68 65 20 0a 19 85 80 80 70 72 6f 63 65 73 73 20 77 69 6c 6c 20 67 6f 20 69 6e 74 6f ┆r, the Ёђђprocess will go into┆
0x07ee0…07f00 20 74 68 65 20 65 78 69 74 20 73 74 61 74 65 3b 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 70 ┆ the exit state; otherwise the p┆
0x07f00…07f20 72 6f 63 65 73 73 20 77 69 6c 6c 20 0a 19 85 80 80 63 6f 6e 80 74 69 6e 75 65 2e 20 0d 0a 16 53 ┆rocess will Ёђђconђtinue. S┆
0x07f20…07f40 43 0d 0a 43 72 65 61 74 65 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 63 72 65 61 74 65 be 28 49 ┆C Create FUNCTION ┐▄пcreateЙ(I┆
0x07f40…07f60 4e 53 50 45 43 54 20 70 72 6f 63 65 73 73 6e 61 6d 65 3a 20 61 6c 66 61 3b 20 0d 0a 20 20 20 20 ┆NSPECT processname: alfa; ┆
0x07f60…07f80 20 20 20 20 20 20 20 20 20 70 72 6f 67 72 61 6d 20 6e 61 6d 65 28 61 63 74 75 61 6c 20 70 61 72 ┆ program name(actual par┆
0x07f80…07fa0 61 6d 65 74 65 72 73 29 3b 20 56 41 52 20 70 72 6f 63 3a 20 70 72 6f 63 65 73 73 3b 0d 0a 20 20 ┆ameters); VAR proc: process; ┆
0x07fa0…07fc0 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 73 3a 20 69 6e 74 65 67 65 72 3b 20 70 72 69 6f 72 ┆ bytes: integer; prior┆
0x07fc0…07fe0 69 74 79 3a 20 70 72 69 6f 74 79 70 65 29 3a 20 63 72 65 61 74 65 5f 72 65 73 75 6c 74 3b 0d 0a ┆ity: priotype): create_result; ┆
0x07fe0…08000 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 41 20 6e 65 77 20 69 6e ┆ Predefined. - ёA new in┆
0x08000…08020 63 61 72 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 20 6c 69 6e 6b 65 64 20 ┆carnation of the program linked ┆
0x08020…08040 74 6f 20 27 70 72 6f 67 72 61 6d 20 6e 61 6d 65 27 20 69 73 20 0a 19 85 80 80 63 72 65 61 74 65 ┆to 'program name' is Ёђђcreate┆
0x08040…08060 64 2e 20 54 68 65 20 27 62 79 74 65 73 27 20 70 61 72 61 6d 65 74 65 72 20 73 70 65 63 69 66 69 ┆d. The 'bytes' parameter specifi┆
0x08060…08080 65 73 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 73 74 6f 72 61 67 65 20 0a 19 85 80 80 66 6f ┆es the amount of storage Ёђђfo┆
0x08080…080a0 72 20 68 6f 6c 64 69 6e 67 20 74 68 65 20 72 75 6e 74 69 6d 65 20 73 74 61 63 6b 2e 20 54 68 65 ┆r holding the runtime stack. The┆
0x080a0…080c0 20 73 74 61 63 6b 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 77 69 74 68 20 74 68 65 20 0a ┆ stack is initialized with the ┆
0x080c0…080e0 19 85 80 80 61 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 73 20 61 6e 64 20 76 61 72 69 6f 75 ┆ Ёђђactual parameters and variou┆
0x080e0…08100 73 20 61 64 6d 69 6e 69 73 74 72 61 74 69 76 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 20 54 68 ┆s administrative information. Th┆
0x08100…08120 65 20 0a 19 85 80 80 70 72 6f 63 6e 61 6d 65 20 66 69 65 6c 64 20 69 6e 20 74 68 65 20 73 74 61 ┆e Ёђђprocname field in the sta┆
0x08120…08140 63 6b 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 27 70 72 6f 63 65 73 73 6e 61 6d ┆ck is initialized to 'processnam┆
0x08140…08160 65 27 20 61 6e 64 20 0a 19 85 80 80 74 68 65 20 73 74 61 74 65 20 74 6f 20 6e 6f 74 20 73 74 6f ┆e' and Ёђђthe state to not sto┆
0x08160…08180 70 70 65 64 2e 20 0d 0a 0d 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 ┆pped. The function returns t┆
0x08180…081a0 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 65 73 75 6c 74 73 3a 20 0d 0a 0d 0a 04 00 2d 4c 00 00 ┆he following results: -L ┆
0x081a0…081c0 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x081c0…081e0 00 00 05 12 19 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 ┆ $-7AKU_is} -L ┆
0x081e0…08200 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 12 19 24 2d ┆A1 $-┆
0x08200…08220 37 41 4b 55 5f 69 73 7d ff ff ff 04 0a 52 65 73 75 6c 74 73 20 20 09 09 09 4d 65 61 6e 69 6e 67 ┆7AKU_is} Results Meaning┆
0x08220…08240 20 20 20 20 0d 0a 63 72 65 61 74 65 5f 6f 6b 2c 20 09 09 09 50 72 6f 63 65 73 73 20 63 72 65 61 ┆ create_ok, Process crea┆
0x08240…08260 74 65 64 20 20 20 20 0d 0a 63 72 65 61 74 65 5f 70 72 6f 63 65 73 73 5f 6e 6f 74 5f 6e 69 6c 09 ┆ted create_process_not_nil ┆
0x08260…08280 09 54 68 65 20 70 72 6f 63 65 73 73 20 76 61 72 69 61 62 6c 65 20 77 61 73 20 6e 6f 74 20 6e 69 ┆ The process variable was not ni┆
0x08280…082a0 6c 20 20 0d 0a 63 72 65 61 74 65 5f 70 72 6f 67 72 61 6d 5f 6e 6f 74 5f 6c 69 6e 6b 65 64 09 54 ┆l create_program_not_linked T┆
0x082a0…082c0 68 65 20 70 72 6f 67 72 61 6d 20 77 61 73 20 6e 6f 74 20 6c 69 6e 6b 65 64 20 20 20 20 0d 0a 63 ┆he program was not linked c┆
0x082c0…082e0 72 65 61 74 65 5f 6e 6f 5f 6d 65 6d 6f 72 79 09 09 09 84 4e 6f 20 73 74 6f 72 61 67 65 20 6f 72 ┆reate_no_memory ёNo storage or┆
0x082e0…08300 20 64 65 6d 61 6e 64 65 64 20 73 69 7a 65 20 74 6f 6f 20 0a 19 9f 80 80 73 6d 61 6c 6c 20 0d 0a ┆ demanded size too Ъђђsmall ┆
0x08300…08320 0d 0a 54 68 65 20 27 62 79 74 65 73 27 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 74 72 65 61 74 ┆ The 'bytes' parameter is treat┆
0x08320…08340 65 64 20 61 73 20 61 6e 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 65 67 65 72 2c 20 61 6c 6c 6f 77 ┆ed as an unsigned integer, allow┆
0x08340…08360 69 6e 67 20 61 20 0a 70 72 6f 63 65 73 73 20 73 74 61 63 6b 20 74 6f 20 74 61 6b 65 20 75 70 20 ┆ing a process stack to take up ┆
0x08360…08380 74 6f 20 33 32 20 4b 2d 31 20 77 6f 72 64 73 2e 0d 0a 0d 0a 49 66 20 27 62 79 74 65 73 27 20 65 ┆to 32 K-1 words. If 'bytes' e┆
0x08380…083a0 71 75 61 6c 73 20 7a 65 72 6f 2c 20 61 20 63 6f 6d 70 69 6c 65 72 20 63 61 6c 63 75 6c 61 74 65 ┆quals zero, a compiler calculate┆
0x083a0…083c0 64 20 64 65 66 61 75 6c 74 20 63 72 65 61 74 65 20 73 69 7a 65 20 77 69 6c 6c 20 0a 62 65 20 75 ┆d default create size will be u┆
0x083c0…083e0 73 65 64 2e 20 0d 0a 0d 0a 43 6f 6e 73 75 6c 74 20 61 70 70 65 6e 64 69 78 20 42 2e 31 20 6f 70 ┆sed. Consult appendix B.1 op┆
0x083e0…08400 74 69 6f 6e 20 73 74 61 63 6b 2e 3c 61 70 70 65 74 69 74 65 3e 20 66 6f 72 20 63 61 6c 63 75 6c ┆tion stack.<appetite> for calcul┆
0x08400…08420 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 0a 64 65 66 61 75 6c 74 20 63 72 65 61 74 65 20 73 69 7a ┆ation of the default create siz┆
0x08420…08440 65 2e 20 0d 0a 0d 0a 0d 0a a1 45 78 61 6d 70 6c 65 20 20 31 2e 20 20 43 52 45 41 54 45 20 e1 20 ┆e. АExample 1. CREATE р ┆
0x08440…08460 0d 0a 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 50 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -M P1 ┆
0x08460…08480 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 00 ┆ $-7AKU_is} -L ┆
0x08480…084a0 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x084a0…084c0 00 00 00 05 12 19 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 0a 0d 0a 50 52 4f 47 52 41 4d 20 65 ┆ $-7AKU_is} PROGRAM e┆
0x084c0…084e0 78 61 6d 70 6c 65 31 28 56 41 52 20 6d 79 6d 62 78 3a 20 6d 61 69 6c 62 6f 78 29 3b 20 20 20 20 ┆xample1(VAR mymbx: mailbox); ┆
0x084e0…08500 0d 0a 0d 0a 43 4f 4e 53 54 20 20 20 20 0d 0a 20 20 73 69 7a 65 3d 20 32 33 38 3b 20 20 20 20 0d ┆ CONST size= 238; ┆
0x08500…08520 0a 20 20 6f 6b 3d 20 30 3b 20 20 20 20 0d 0a 0d 0a 56 41 52 20 20 20 20 0d 0a 20 20 63 68 69 6c ┆ ok= 0; VAR chil┆
0x08520…08540 64 6d 62 78 3a 20 6d 61 69 6c 62 6f 78 3b 20 20 20 20 0d 0a 8c 8a 8a 0a 20 20 70 72 3a 20 70 72 ┆dmbx: mailbox; їіі pr: pr┆
0x08540…08560 6f 63 65 73 73 3b 20 20 20 20 0d 0a 0d 0a 50 52 4f 47 52 41 4d 20 65 78 61 6d 70 6c 65 31 31 28 ┆ocess; PROGRAM example11(┆
0x08560…08580 56 41 52 20 6d 31 2c 20 6d 32 20 3a 20 6d 61 69 6c 62 6f 78 29 3b 0d 0a 42 45 47 49 4e 20 20 20 ┆VAR m1, m2 : mailbox); BEGIN ┆
0x08580…085a0 20 20 20 0d 0a 20 20 20 20 28 2a 20 62 6f 64 79 20 6f 66 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f ┆ (* body of internal pro┆
0x085a0…085c0 67 72 61 6d 20 2a 29 20 20 0d 0a 45 4e 44 3b 20 20 20 20 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 ┆gram *) END; BEGIN ┆
0x085c0…085e0 49 46 20 63 72 65 61 74 65 28 27 63 68 69 6c 64 27 2c 20 65 78 61 6d 70 6c 65 31 31 28 6d 79 6d ┆IF create('child', example11(mym┆
0x085e0…08600 62 78 2c 20 63 68 69 6c 64 6d 62 78 29 2c 20 70 72 2c 20 73 69 7a 65 2c 20 73 74 64 70 72 69 6f ┆bx, childmbx), pr, size, stdprio┆
0x08600…08620 72 69 74 79 29 3d 63 72 65 61 74 65 5f 6f 6b 20 54 48 45 4e 20 0d 0a 20 20 20 20 2e 2e 2e 2e 20 ┆rity)=create_ok THEN .... ┆
0x08620…08640 20 0d 0a 0d 0a 45 4e 44 2e 20 28 2a 20 65 78 61 6d 70 6c 65 31 20 2a 29 20 20 20 20 0d 0a 04 00 ┆ END. (* example1 *) ┆
0x08640…08660 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆-L A1 ┆
0x08660…08680 00 00 00 00 00 00 05 12 19 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 04 00 2d 4d 0f 00 08 00 00 ┆ $-7AKU_is} -M ┆
0x08680…086a0 00 00 02 01 50 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ P1 ┆
0x086a0…086c0 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 0a 16 53 43 0d 0a 45 78 63 65 70 74 69 6f 6e 0d ┆ $-7AKU_is} SC Exception ┆
0x086c0…086e0 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 65 78 63 65 70 74 69 6f 6e be 28 65 78 63 6f 64 65 3a ┆ PROCEDURE ┐▄пexceptionЙ(excode:┆
0x086e0…08700 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 0d 0a 0d 0a 20 20 ┆ integer); Predefined. ┆
0x08700…08720 20 2d 20 84 41 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20 73 75 63 68 20 61 20 70 72 6f 63 ┆ - ёA declaration of such a proc┆
0x08720…08740 65 64 75 72 65 20 63 61 75 73 65 73 20 74 68 65 20 72 75 6e 74 69 6d 65 20 73 79 73 74 65 6d 20 ┆edure causes the runtime system ┆
0x08740…08760 74 6f 20 0a 19 85 80 80 63 61 6c 6c 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 2c 20 69 66 20 ┆to Ёђђcall this procedure, if ┆
0x08760…08780 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 0d 0a 0d 0a 49 66 20 74 68 65 20 ┆an exception occurs. If the ┆
0x08780…087a0 75 73 65 72 20 68 61 73 20 6e 6f 74 20 64 65 63 6c 61 72 65 64 20 61 6e 20 65 78 63 65 70 74 69 ┆user has not declared an excepti┆
0x087a0…087c0 6f 6e 20 70 72 6f 63 65 64 75 72 65 2c 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 65 78 80 0a 63 ┆on procedure, the standard exђ c┆
0x087c0…087e0 65 70 74 69 6f 6e 20 70 72 6f 63 65 64 75 72 65 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 2e ┆eption procedure will be called.┆
0x087e0…08800 20 54 68 65 20 73 74 61 6e 64 61 72 64 20 70 72 6f 63 65 64 75 72 65 20 6d 61 79 20 61 6c 73 6f ┆ The standard procedure may also┆
0x08800…08820 20 62 65 20 0a 63 61 6c 6c 65 64 20 61 73 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 54 52 41 ┆ be called as the procedure TRA┆
0x08820…08840 43 45 2e 20 0d 0a 0d 0a 54 68 65 20 73 74 61 6e 64 61 72 64 20 65 78 63 65 70 74 69 6f 6e 20 70 ┆CE. The standard exception p┆
0x08840…08860 72 6f 63 65 64 75 72 65 20 61 63 74 69 76 61 74 65 73 20 74 68 65 20 65 78 63 65 70 74 69 6f 6e ┆rocedure activates the exception┆
0x08860…08880 20 70 72 6f 67 72 61 6d 20 0a 77 68 69 63 68 20 70 72 6f 64 75 63 65 73 20 6f 75 74 70 75 74 20 ┆ program which produces output ┆
0x08880…088a0 77 69 74 68 20 74 68 65 20 66 6f 72 6d 61 74 3a 20 0d 0a 0d 0a 73 79 73 74 65 6d 20 63 6c 6f 63 ┆with the format: system cloc┆
0x088a0…088c0 6b 20 0d 0a 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 3e 3e 20 65 78 63 65 70 74 69 6f 6e 2c 20 65 ┆k process name >> exception, e┆
0x088c0…088e0 78 63 6f 64 65 3d 63 6f 64 65 3a 20 65 72 72 6f 72 20 74 65 78 74 20 0d 0a 67 66 3d 20 2e 2e 2e ┆xcode=code: error text gf= ...┆
0x088e0…08900 2e 2e 2c 20 74 6f 70 3d 20 2e 2e 2e 2e 2c 20 63 6f 64 65 3d 20 2e 2e 2e 20 0d 0a 63 61 6c 6c 65 ┆.., top= ...., code= ... calle┆
0x08900…08920 64 20 66 72 6f 6d 3a 20 2e 2e 2e 2e 2e 2c 20 69 63 3d 20 2e 2e 2e 2e 2c 20 6c 69 6e 65 20 2e 2e ┆d from: ....., ic= ...., line ..┆
0x08920…08940 2e 2d 2e 2e 2e 20 2c 20 64 61 74 65 20 20 20 20 0d 0a 20 20 20 20 2e 0d 0a 20 20 20 20 2e 0d 0a ┆.-... , date . . ┆
0x08940…08960 20 20 20 20 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 27 73 79 73 74 65 6d 20 63 6c 6f 63 6b 27 20 69 ┆ . - ё'system clock' i┆
0x08960…08980 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20 6f 66 20 67 6c 6f 62 61 6c 20 64 61 ┆s the current value of global da┆
0x08980…089a0 74 65 20 61 6e 64 20 74 69 6d 65 20 0d 0a 0d 0a 20 20 20 2d 20 84 27 63 6f 64 65 27 20 61 6e 64 ┆te and time - ё'code' and┆
0x089a0…089c0 20 27 65 72 72 6f 72 20 74 65 78 74 27 20 61 72 65 20 74 68 65 20 61 63 74 75 61 6c 20 65 78 63 ┆ 'error text' are the actual exc┆
0x089c0…089e0 65 70 74 69 6f 6e 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 0a 19 85 80 80 6d 65 61 6e 69 6e 67 ┆eption code and the Ёђђmeaning┆
0x089e0…08a00 20 6f 66 20 74 68 65 20 63 6f 64 65 3b 20 73 6f 6d 65 20 6f 66 20 74 68 65 20 74 65 78 74 73 20 ┆ of the code; some of the texts ┆
0x08a00…08a20 69 6e 63 6c 75 64 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 0a 19 85 80 80 61 62 6f 75 74 20 74 ┆include information Ёђђabout t┆
0x08a20…08a40 68 65 20 6f 70 65 72 61 6e 64 73 20 77 68 69 63 68 20 63 61 75 73 65 64 20 74 68 65 20 65 78 63 ┆he operands which caused the exc┆
0x08a40…08a60 65 70 74 69 6f 6e 2e 28 54 68 65 20 70 6f 73 73 69 62 6c 65 20 0a 19 85 80 80 74 65 78 74 73 20 ┆eption.(The possible Ёђђtexts ┆
0x08a60…08a80 6d 61 79 20 62 65 20 73 65 65 6e 20 69 6e 20 61 70 70 65 6e 64 69 78 20 4d 29 2e 20 0d 0a 0d 0a ┆may be seen in appendix M). ┆
0x08a80…08aa0 20 20 20 2d 20 84 27 67 66 27 20 61 6e 64 20 27 74 6f 70 27 20 61 72 65 20 73 74 61 63 6b 20 72 ┆ - ё'gf' and 'top' are stack r┆
0x08aa0…08ac0 65 66 65 72 65 6e 63 65 73 2c 20 61 6e 64 20 74 68 65 20 6e 75 6d 62 65 72 20 61 66 74 65 72 20 ┆eferences, and the number after ┆
0x08ac0…08ae0 27 63 6f 64 65 27 20 0a 19 85 80 80 69 73 20 74 68 65 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 77 ┆'code' Ёђђis the instruction w┆
0x08ae0…08b00 68 69 63 68 20 63 61 75 73 65 64 20 74 68 65 20 65 78 63 65 70 74 69 6f 6e 2e 20 0d 0a 0d 0a 20 ┆hich caused the exception. ┆
0x08b00…08b20 20 20 2d 20 84 54 68 65 20 6c 69 73 74 20 6f 66 20 27 63 61 6c 6c 65 64 20 66 72 6f 6d 2e 2e 2e ┆ - ёThe list of 'called from...┆
0x08b20…08b40 27 20 69 73 20 74 68 65 20 64 79 6e 61 6d 69 63 20 63 68 61 69 6e 20 6f 66 20 72 6f 75 74 69 6e ┆' is the dynamic chain of routin┆
0x08b40…08b60 65 20 61 63 80 0a 19 85 80 80 74 69 76 61 74 69 6f 6e 73 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 27 ┆e acђ Ёђђtivations. - ё'┆
0x08b60…08b80 69 63 27 20 61 6e 64 20 27 6c 69 6e 65 20 2e 2e 2e 2d 2e 2e 2e 27 20 61 72 65 20 61 6e 20 69 64 ┆ic' and 'line ...-...' are an id┆
0x08b80…08ba0 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 61 6c 6c 73 2e 20 0d 0a 0d 0a 20 ┆entification of the calls. ┆
0x08ba0…08bc0 20 20 2d 20 84 27 64 61 74 65 27 20 69 73 20 74 68 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 64 ┆ - ё'date' is the compilation d┆
0x08bc0…08be0 61 74 65 20 6f 66 20 74 68 65 20 6d 6f 64 75 6c 65 73 20 69 6e 20 71 75 65 73 74 69 6f 6e 2e 20 ┆ate of the modules in question. ┆
0x08be0…08c00 0d 0a 0d 0a 46 75 72 74 68 65 72 6d 6f 72 65 2c 20 69 66 20 74 68 65 20 70 72 6f 67 72 61 6d 20 ┆ Furthermore, if the program ┆
0x08c00…08c20 69 73 20 65 78 74 65 72 6e 61 6c 20 6c 69 6e 6b 65 64 2c 20 70 72 69 6e 74 6f 75 74 20 6f 66 20 ┆is external linked, printout of ┆
0x08c20…08c40 64 61 74 65 2c 20 74 69 6d 65 2c 20 0a 61 6e 64 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 20 ┆date, time, and version of the ┆
0x08c40…08c60 73 6f 75 72 63 65 20 69 73 20 61 70 70 65 6e 64 65 64 2e 20 0d 0a 16 53 43 0d 0a 4c 69 6e 6b 0d ┆source is appended. SC Link ┆
0x08c60…08c80 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6c 69 6e 6b be 28 65 78 74 65 72 6e 61 6c 5f 6e 61 6d 65 ┆ FUNCTION ┐▄пlinkЙ(external_name┆
0x08c80…08ca0 3a 20 61 6c 66 61 3b 20 70 72 6f 67 72 61 6d 20 6e 61 6d 65 29 3a 20 6c 69 6e 6b 5f 72 65 73 75 ┆: alfa; program name): link_resu┆
0x08ca0…08cc0 6c 74 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 ┆lt; Predefined. - ёThe┆
0x08cc0…08ce0 20 70 72 6f 67 72 61 6d 20 69 64 65 6e 74 69 66 69 65 64 20 62 79 20 27 65 78 74 65 72 6e 61 6c ┆ program identified by 'external┆
0x08ce0…08d00 5f 6e 61 6d 65 27 20 69 73 20 73 65 61 72 63 68 65 64 20 66 6f 72 20 69 6e 20 74 68 65 20 0a 19 ┆_name' is searched for in the ┆
0x08d00…08d20 85 80 80 4c 49 4e 4b 45 52 20 63 61 74 61 6c 6f 67 75 65 2e 20 49 66 20 66 6f 75 6e 64 20 74 68 ┆ЁђђLINKER catalogue. If found th┆
0x08d20…08d40 65 20 70 72 6f 67 72 61 6d 20 69 64 65 6e 74 69 66 69 65 64 20 62 79 20 27 65 78 80 0d 0a 19 85 ┆e program identified by 'exђ Ё┆
0x08d40…08d60 80 80 74 65 72 6e 61 6c 5f 6e 61 6d 65 27 20 69 73 20 6c 69 6e 6b 65 64 20 74 6f 20 27 70 72 6f ┆ђђternal_name' is linked to 'pro┆
0x08d60…08d80 67 72 61 6d 20 6e 61 6d 65 27 2e 20 0d 0a 0d 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 ┆gram name'. The function ret┆
0x08d80…08da0 75 72 6e 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 65 73 75 6c 74 73 3a 20 0d 0a 0d 0a ┆urns the following results: ┆
0x08da0…08dc0 8c 8b d0 0a 52 65 73 75 6c 74 73 20 20 09 09 4d 65 61 6e 69 6e 67 20 0d 0a 6c 69 6e 6b 5f 6f 6b ┆їІл Results Meaning link_ok┆
0x08dc0…08de0 09 09 50 72 6f 67 72 61 6d 20 6c 69 6e 6b 65 64 20 0d 0a 6c 69 6e 6b 5f 6e 6f 74 5f 66 6f 75 6e ┆ Program linked link_not_foun┆
0x08de0…08e00 64 09 09 84 50 72 6f 67 72 61 6d 20 6e 61 6d 65 20 77 69 74 68 20 27 65 78 74 65 72 6e 61 6c 5f ┆d ёProgram name with 'external_┆
0x08e00…08e20 6e 61 6d 65 27 20 77 61 73 20 6e 6f 74 20 0a 19 98 80 80 66 6f 75 6e 64 20 69 6e 20 74 68 65 20 ┆name' was not ўђђfound in the ┆
0x08e20…08e40 4c 49 4e 4b 45 52 20 63 61 74 61 6c 6f 67 75 65 2e 20 0d 0a 6c 69 6e 6b 5f 6e 6f 5f 70 61 72 61 ┆LINKER catalogue. link_no_para┆
0x08e40…08e60 6d 65 74 65 72 5f 6d 61 74 63 68 09 84 50 72 6f 67 72 61 6d 20 77 69 74 68 20 6e 61 6d 65 20 27 ┆meter_match ёProgram with name '┆
0x08e60…08e80 65 78 74 65 72 6e 61 6c 5f 6e 61 6d 65 27 20 69 73 20 69 6e 20 0a 19 98 80 80 74 68 65 20 4c 49 ┆external_name' is in ўђђthe LI┆
0x08e80…08ea0 4e 4b 45 52 20 63 61 74 61 6c 6f 67 75 65 2c 20 62 75 74 20 74 68 65 20 6e 75 6d 62 65 72 20 6f ┆NKER catalogue, but the number o┆
0x08ea0…08ec0 66 20 0a 19 98 80 80 70 61 80 72 61 80 6d 65 74 65 72 73 20 6f 72 20 74 68 65 20 74 79 70 65 20 ┆f ўђђpaђraђmeters or the type ┆
0x08ec0…08ee0 6f 66 20 70 61 72 61 6d 65 74 65 72 73 20 64 6f 20 6e 6f 20 0a 19 98 80 80 6d 61 74 63 68 2e 20 ┆of parameters do no ўђђmatch. ┆
0x08ee0…08f00 0d 0a 6c 69 6e 6b 5f 61 6c 72 65 61 64 79 5f 6c 69 6e 6b 65 64 09 84 41 20 70 72 6f 67 72 61 6d ┆ link_already_linked ёA program┆
0x08f00…08f20 20 69 73 20 61 6c 72 65 61 64 79 20 6c 69 6e 6b 65 64 20 74 6f 20 70 72 6f 67 72 61 6d 20 6e 61 ┆ is already linked to program na┆
0x08f20…08f40 80 0a 19 98 80 80 6d 65 2e 20 0d 0a 0d 0a 0d 0a 0e 0a a1 45 78 61 6d 70 6c 65 20 20 32 2e 20 20 ┆ђ ўђђme. АExample 2. ┆
0x08f40…08f60 4c 49 4e 4b 20 e1 20 0d 0a 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 50 31 00 00 00 00 00 00 00 00 ┆LINK р -M P1 ┆
0x08f60…08f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ┆ $-7AKU_is} ┆
0x08f80…08fa0 ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1 ┆
0x08fa0…08fc0 00 00 00 00 00 00 00 00 00 00 05 12 19 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 0a 0d 0a 50 52 ┆ $-7AKU_is} PR┆
0x08fc0…08fe0 4f 47 52 41 4d 20 65 78 61 6d 70 6c 65 32 3b 0d 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 64 65 66 5f ┆OGRAM example2; CONST def_┆
0x08fe0…09000 73 69 7a 65 3d 20 30 3b 0d 0a 20 20 6f 6b 3d 20 30 3b 0d 0a 56 41 52 0d 0a 20 20 6d 62 78 3a 20 ┆size= 0; ok= 0; VAR mbx: ┆
0x09000…09020 6d 61 69 6c 62 6f 78 3b 0d 0a 20 20 70 72 3a 20 70 72 6f 63 65 73 73 3b 0d 0a 0d 0a 50 52 4f 47 ┆mailbox; pr: process; PROG┆
0x09020…09040 52 41 4d 20 65 78 61 6d 70 6c 65 32 31 28 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 29 3b 20 45 ┆RAM example21(VAR m: mailbox); E┆
0x09040…09060 58 54 45 52 4e 41 4c 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 49 46 20 6c 69 6e 6b 28 27 70 72 ┆XTERNAL; BEGIN IF link('pr┆
0x09060…09080 6f 67 72 61 6d 32 31 27 2c 20 65 78 61 6d 70 6c 65 32 31 29 3d 6c 69 6e 6b 5f 6f 6b 20 54 48 45 ┆ogram21', example21)=link_ok THE┆
0x09080…090a0 4e 0d 0a 20 20 20 20 49 46 20 63 72 65 61 74 65 28 27 63 68 69 6c 64 27 2c 20 65 78 61 6d 70 6c ┆N IF create('child', exampl┆
0x090a0…090c0 65 32 31 28 6d 62 78 29 2c 20 70 72 2c 20 64 65 66 5f 73 69 7a 65 2c 20 73 74 64 70 72 69 6f 72 ┆e21(mbx), pr, def_size, stdprior┆
0x090c0…090e0 69 80 74 79 29 3d 63 72 65 61 74 65 5f 6f 6b 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 2e 2e 2e 2e ┆iђty)=create_ok THEN ....┆
0x090e0…09100 0d 0a 0d 0a 45 4e 44 3b 20 28 2a 20 65 78 61 6d 70 6c 65 32 20 2a 29 0d 0a 0f 0a 04 00 2d 4c 00 ┆ END; (* example2 *) -L ┆
0x09100…09120 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x09120…09140 00 00 00 05 12 19 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 04 00 2d 4d 0f 00 08 00 00 00 00 02 ┆ $-7AKU_is} -M ┆
0x09140…09160 01 50 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 ┆ P1 $┆
0x09160…09180 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 0a 16 73 63 0d 0a 4f 77 6e 6e 61 6d 65 0d 0a 46 55 4e 43 ┆-7AKU_is} sc Ownname FUNC┆
0x09180…091a0 54 49 4f 4e 20 bf dc d8 6f 77 6e 6e 61 6d 65 be 28 56 41 52 20 6e 61 6d 65 3a 20 61 6c 66 61 29 ┆TION ┐▄пownnameЙ(VAR name: alfa)┆
0x091a0…091c0 3a 20 62 79 74 65 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e ┆: byte; Defined in rc3502env.┆
0x091c0…091e0 0d 0a 0d 0a 20 20 20 2d 20 84 52 65 74 75 72 6e 73 20 69 6e 20 27 6e 61 6d 65 27 20 74 68 65 20 ┆ - ёReturns in 'name' the ┆
0x091e0…09200 76 61 6c 75 65 20 6f 66 20 74 68 65 20 70 72 6f 63 6e 61 6d 65 20 66 69 65 6c 64 20 6f 66 20 74 ┆value of the procname field of t┆
0x09200…09220 68 65 20 70 72 6f 80 0a 19 85 80 80 63 65 73 73 20 64 65 73 63 72 69 70 80 74 6f 72 2e 20 54 68 ┆he proђ Ёђђcess descripђtor. Th┆
0x09220…09240 65 20 66 69 65 6c 64 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 79 20 63 72 65 61 74 65 ┆e field is initialized by create┆
0x09240…09260 20 6f 72 20 61 6e 20 65 78 70 6c 69 63 69 74 20 0a 19 85 80 80 63 61 6c 6c 20 6f 66 20 73 65 74 ┆ or an explicit Ёђђcall of set┆
0x09260…09280 6f 77 6e 6e 61 6d 65 2e 0d 0a 0d 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 ┆ownname. The function returns┆
0x09280…092a0 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 74 68 65 ┆ the number of characters in the┆
0x092a0…092c0 20 6e 61 6d 65 2c 20 61 70 61 72 74 20 0a 66 72 6f 6d 20 74 72 61 69 6c 69 6e 67 20 62 6c 61 6e ┆ name, apart from trailing blan┆
0x092c0…092e0 6b 73 2e 0d 0a 16 73 63 0d 0a 4f 77 6e 70 72 6f 67 72 61 6d 6e 61 6d 65 0d 0a 46 55 4e 43 54 49 ┆ks. sc Ownprogramname FUNCTI┆
0x092e0…09300 4f 4e 20 bf dc d8 6f 77 6e 70 72 6f 67 72 61 6d 6e 61 6d 65 be 28 56 41 52 20 6e 61 6d 65 3a 20 ┆ON ┐▄пownprogramnameЙ(VAR name: ┆
0x09300…09320 61 6c 66 61 29 3a 20 62 79 74 65 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 ┆alfa): byte; Defined in rc350┆
0x09320…09340 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 69 6e 20 27 6e 61 6d 65 27 ┆2env. - ёreturns in 'name'┆
0x09340…09360 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 6c 65 61 73 74 20 ┆ the external name of the least ┆
0x09360…09380 73 75 72 72 6f 75 6e 64 69 6e 67 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 80 0a 19 85 80 80 67 72 ┆surrounding external proђ Ёђђgr┆
0x09380…093a0 61 6d 2e 20 0d 0a 0d 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 68 65 ┆am. The function returns the┆
0x093a0…093c0 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 74 68 65 20 6e 61 6d ┆ number of characters in the nam┆
0x093c0…093e0 65 2c 20 61 70 61 72 74 20 0a 66 72 6f 6d 20 74 72 61 69 80 6c 69 6e 67 20 62 6c 61 6e 6b 73 2e ┆e, apart from traiђling blanks.┆
0x093e0…09400 0d 0a 16 53 43 0d 0a 50 69 33 5f 67 65 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 70 69 33 5f ┆ SC Pi3_get FUNCTION ┐▄пpi3_┆
0x09400…09420 67 65 74 be 28 70 72 6f 67 72 61 6d 20 6e 61 6d 65 3b 20 70 61 67 65 6e 6f 20 3a 20 69 6e 74 65 ┆getЙ(program name; pageno : inte┆
0x09420…09440 67 65 72 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 72 3a 20 72 65 66 65 72 ┆ger; VAR r: refer┆
0x09440…09460 65 6e 63 65 29 20 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 ┆ence) : integer; Not predefi┆
0x09460…09480 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 50 61 67 65 20 6e 75 6d 62 65 72 20 27 70 61 67 65 ┆ned. - ёPage number 'page┆
0x09480…094a0 6e 6f 27 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6e 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 ┆no' is returned in the message i┆
0x094a0…094c0 6e 20 6c 6f 63 61 74 69 6f 6e 73 20 0a 19 85 80 80 73 70 65 80 63 69 66 69 65 64 20 62 79 20 74 ┆n locations Ёђђspeђcified by t┆
0x094c0…094e0 68 65 20 27 6f 66 66 73 65 74 27 20 61 6e 64 20 27 74 6f 70 27 20 61 74 74 72 69 62 75 74 65 73 ┆he 'offset' and 'top' attributes┆
0x094e0…09500 2e 20 27 62 79 74 65 63 6f 75 6e 74 27 20 69 73 20 69 6e 80 0a 19 85 80 80 69 74 69 80 61 6c 69 ┆. 'bytecount' is inђ Ёђђitiђali┆
0x09500…09520 7a 65 64 20 74 6f 20 74 68 65 20 61 63 74 75 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 ┆zed to the actual number of byte┆
0x09520…09540 73 20 74 72 61 6e 73 66 65 72 80 72 65 64 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 ┆s transferђred. Results Mea┆
0x09540…09560 6e 69 6e 67 0d 0a 20 20 20 20 30 20 20 20 20 4f 4b 20 20 20 20 0d 0a 20 20 20 20 31 20 20 20 20 ┆ning 0 OK 1 ┆
0x09560…09580 54 68 65 20 70 72 6f 67 72 61 6d 20 69 73 20 6e 6f 74 20 6c 69 6e 6b 65 64 2e 20 0d 0a 20 20 20 ┆The program is not linked. ┆
0x09580…095a0 20 32 20 20 20 20 84 49 6c 6c 65 67 61 6c 20 6b 69 6e 64 2e 20 54 68 65 20 70 72 6f 67 72 61 6d ┆ 2 ёIllegal kind. The program┆
0x095a0…095c0 20 69 73 20 6e 6f 74 20 6c 69 6e 6b 65 64 20 62 79 20 61 20 63 61 6c 6c 20 6f 66 20 50 49 33 80 ┆ is not linked by a call of PI3ђ┆
0x095c0…095e0 0a 19 89 80 80 4c 49 4e 4b 2e 0d 0a 20 20 20 20 33 20 20 20 20 84 4c 61 73 74 20 70 61 67 65 2e ┆ ЅђђLINK. 3 ёLast page.┆
0x095e0…09600 20 54 68 65 20 6d 65 73 73 61 67 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 6c 61 73 74 20 70 ┆ The message contains the last p┆
0x09600…09620 61 67 65 20 6f 66 20 74 68 65 20 70 72 6f 80 80 0a 19 89 80 80 67 72 61 6d 2e 0d 0a 20 20 20 20 ┆age of the proђђ Ѕђђgram. ┆
0x09620…09640 34 20 20 20 20 49 6c 6c 65 67 61 6c 20 70 61 67 65 2e 20 27 50 61 67 65 6e 6f 27 20 69 73 20 6f ┆4 Illegal page. 'Pageno' is o┆
0x09640…09660 75 74 73 69 64 65 20 74 68 65 20 72 61 6e 67 65 20 31 2e 2e 6c 61 73 74 70 61 67 65 2e 20 0d 0a ┆utside the range 1..lastpage. ┆
0x09660…09680 16 53 43 0d 0a 50 69 33 5f 6c 69 6e 6b 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 70 69 33 5f 6c ┆ SC Pi3_link FUNCTION ┐▄пpi3_l┆
0x09680…096a0 69 6e 6b be 28 65 78 74 65 72 6e 61 6c 5f 6e 61 6d 65 20 3a 20 61 6c 66 61 3b 20 70 72 6f 67 72 ┆inkЙ(external_name : alfa; progr┆
0x096a0…096c0 61 6d 20 6e 61 6d 65 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 ┆am name): integer; Not prede┆
0x096c0…096e0 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 70 72 6f 67 72 61 6d 20 6f 66 20 ┆fined. - ёThe program of ┆
0x096e0…09700 6b 69 6e 64 20 44 41 54 41 20 69 64 65 6e 74 69 66 69 65 64 20 62 79 20 27 65 78 74 65 72 6e 61 ┆kind DATA identified by 'externa┆
0x09700…09720 6c 6e 61 6d 65 27 20 69 73 20 73 65 80 0a 19 85 80 80 61 72 63 68 65 64 20 66 6f 72 20 69 6e 20 ┆lname' is seђ Ёђђarched for in ┆
0x09720…09740 74 68 65 20 4c 49 4e 4b 45 52 20 63 61 74 61 6c 6f 67 75 65 2e 20 49 66 20 66 6f 75 6e 64 2c 20 ┆the LINKER catalogue. If found, ┆
0x09740…09760 74 68 65 20 70 72 6f 67 72 61 6d 20 0a 19 85 80 80 69 64 65 6e 74 69 80 66 69 65 64 20 62 79 20 ┆the program Ёђђidentiђfied by ┆
0x09760…09780 27 65 78 74 65 72 6e 61 6c 6e 61 6d 65 27 20 69 73 20 6c 69 6e 6b 65 64 20 74 6f 20 27 70 72 6f ┆'externalname' is linked to 'pro┆
0x09780…097a0 67 72 61 6d 20 6e 61 6d 65 27 2e 20 0d 0a 0d 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 ┆gram name'. The function ret┆
0x097a0…097c0 75 72 6e 73 20 69 64 65 6e 74 69 63 61 6c 20 72 65 73 75 6c 74 73 20 61 73 20 74 68 65 20 70 72 ┆urns identical results as the pr┆
0x097c0…097e0 65 64 65 66 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 4c 49 4e 4b 2e 20 0d 0a 16 53 43 0d 0a 52 ┆edefined function LINK. SC R┆
0x097e0…09800 65 6d 6f 76 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 72 65 6d 6f 76 65 be 28 56 41 52 20 ┆emove PROCEDURE ┐▄пremoveЙ(VAR ┆
0x09800…09820 70 72 3a 20 70 72 6f 63 65 73 73 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a ┆pr: process); Predefined. ┆
0x09820…09840 8c 8e f4 0a 0d 0a 20 20 20 2d 20 84 27 52 65 6d 6f 76 65 27 20 74 65 72 6d 69 6e 61 74 65 73 20 ┆їјЗ - ё'Remove' terminates ┆
0x09840…09860 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 2c 20 77 68 69 63 68 20 ┆execution of the process, which ┆
0x09860…09880 63 61 6e 6e 6f 74 20 62 65 20 0a 19 85 80 80 72 65 73 75 6d 65 64 2e 20 27 52 65 6d 6f 76 65 27 ┆cannot be Ёђђresumed. 'Remove'┆
0x09880…098a0 20 72 65 6d 6f 76 65 73 20 74 68 65 20 77 68 6f 6c 65 20 73 75 62 2d 74 72 65 65 20 63 6f 6e 74 ┆ removes the whole sub-tree cont┆
0x098a0…098c0 72 6f 6c 6c 65 64 20 62 79 20 74 68 65 20 0a 19 85 80 80 70 72 6f 63 65 73 73 2e 20 41 6c 6c 20 ┆rolled by the Ёђђprocess. All ┆
0x098c0…098e0 74 68 65 20 72 65 73 6f 75 72 63 65 73 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 61 72 65 ┆the resources of the process are┆
0x098e0…09900 20 64 65 61 6c 6c 6f 63 61 74 65 64 2e 20 0d 0a 0d 0a 54 68 65 20 68 6f 6d 65 20 61 6e 64 20 72 ┆ deallocated. The home and r┆
0x09900…09920 65 74 75 72 6e 20 6d 61 69 6c 62 6f 78 65 73 20 6f 66 20 6d 65 73 73 61 67 65 73 20 69 6e 20 61 ┆eturn mailboxes of messages in a┆
0x09920…09940 6c 6c 20 64 65 63 6c 61 72 65 64 20 70 6f 6f 6c 20 76 61 72 69 80 0a 61 62 6c 65 73 20 61 72 65 ┆ll declared pool variђ ables are┆
0x09940…09960 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 61 20 64 65 61 6c 6c 6f 63 61 74 69 6f 6e 20 6d ┆ initialized to a deallocation m┆
0x09960…09980 61 69 6c 62 6f 78 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 79 20 74 68 65 20 41 4c 80 0a 4c 4f 43 ┆ailbox controlled by the ALђ LOC┆
0x09980…099a0 41 54 4f 52 2e 20 41 6c 6c 20 6d 65 73 73 61 67 65 73 20 69 6e 20 72 65 66 65 72 65 6e 63 65 2c ┆ATOR. All messages in reference,┆
0x099a0…099c0 20 6d 61 69 6c 62 6f 78 20 61 6e 64 20 70 6f 6f 6c 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 ┆ mailbox and pool variables are ┆
0x099c0…099e0 0a 72 65 74 75 72 6e 65 64 20 77 69 74 68 20 75 32 3d 31 20 28 6e 6f 74 20 70 72 6f 63 65 73 73 ┆ returned with u2=1 (not process┆
0x099e0…09a00 65 64 29 2e 20 0d 0a 0d 0a 54 68 65 20 70 72 6f 63 65 73 73 20 76 61 72 69 61 62 6c 65 20 6d 75 ┆ed). The process variable mu┆
0x09a00…09a20 73 74 20 72 65 66 65 72 20 74 6f 20 61 20 70 72 6f 67 72 61 6d 20 69 6e 63 61 72 6e 61 74 69 6f ┆st refer to a program incarnatio┆
0x09a20…09a40 6e 20 28 70 72 6f 63 65 73 73 29 2c 20 0a 6f 74 68 65 72 77 69 73 65 20 61 6e 20 65 78 63 65 70 ┆n (process), otherwise an excep┆
0x09a40…09a60 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 0d 0a 0d 0a 41 66 74 65 72 20 74 68 65 20 63 61 6c 6c 20 ┆tion occurs. After the call ┆
0x09a60…09a80 74 68 65 20 70 72 6f 63 65 73 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 69 6c 2e 20 0d 0a 16 ┆the process variable is nil. ┆
0x09a80…09aa0 73 63 0d 0a 52 65 73 75 6d 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 72 65 73 75 6d 65 be ┆sc Resume PROCEDURE ┐▄пresumeЙ┆
0x09aa0…09ac0 28 56 41 52 20 70 72 3a 20 70 72 6f 63 65 73 73 29 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 ┆(VAR pr: process); Predefined┆
0x09ac0…09ae0 2e 0d 0a 0d 0a 20 20 20 2d 20 84 69 66 20 74 68 65 20 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 ┆. - ёif the child process ┆
0x09ae0…09b00 69 73 20 73 74 6f 70 70 65 64 20 61 20 63 61 6c 6c 20 6f 66 20 72 65 73 75 6d 65 20 6d 61 6b 65 ┆is stopped a call of resume make┆
0x09b00…09b20 73 20 69 74 20 6e 6f 74 20 0a 19 85 80 80 73 74 6f 70 70 65 64 3b 20 6f 74 68 65 72 77 69 73 65 ┆s it not Ёђђstopped; otherwise┆
0x09b20…09b40 20 74 68 65 20 63 61 6c 6c 20 68 61 73 20 6e 6f 20 65 66 66 65 63 74 2e 0d 0a 0d 0a 41 6e 20 65 ┆ the call has no effect. An e┆
0x09b40…09b60 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 ┆xception occurs, if the process ┆
0x09b60…09b80 76 61 72 69 61 62 6c 65 20 69 73 20 6e 69 6c 2e 20 0d 0a 16 73 63 0d 0a 53 65 74 6f 77 6e 6e 61 ┆variable is nil. sc Setownna┆
0x09b80…09ba0 6d 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 74 6f 77 6e 6e 61 6d 65 be 28 49 4e 53 ┆me PROCEDURE ┐▄пsetownnameЙ(INS┆
0x09ba0…09bc0 50 45 43 54 20 6e 61 6d 65 3a 20 61 6c 66 61 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 ┆PECT name: alfa); Defined in ┆
0x09bc0…09be0 72 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 43 68 61 6e 67 65 73 20 74 68 65 20 ┆rc3502env. - ёChanges the ┆
0x09be0…09c00 76 61 6c 75 65 20 6f 66 20 74 68 65 20 70 72 6f 63 6e 61 6d 65 20 66 69 65 6c 64 20 6f 66 20 74 ┆value of the procname field of t┆
0x09c00…09c20 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 80 0a 19 85 80 80 74 6f 72 20 74 6f 20 74 ┆he process descripђ Ёђђtor to t┆
0x09c20…09c40 68 65 20 76 61 6c 75 65 20 6f 66 20 27 6e 61 6d 65 27 2e 0d 0a 16 53 43 0d 0a 53 65 74 70 72 69 ┆he value of 'name'. SC Setpri┆
0x09c40…09c60 6f 72 69 74 79 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 74 70 72 69 6f 72 69 74 79 be ┆ority PROCEDURE ┐▄пsetpriorityЙ┆
0x09c60…09c80 28 70 72 69 6f 72 69 74 79 20 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 ┆(priority : integer); Define┆
0x09c80…09ca0 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 63 68 61 6e 67 65 ┆d in rc3502env. - ёchange┆
0x09ca0…09cc0 73 20 74 68 65 20 bf dc d8 70 72 69 6f 72 69 74 79 be 20 6f 66 20 74 68 65 20 63 61 6c 6c 69 6e ┆s the ┐▄пpriorityЙ of the callin┆
0x09cc0…09ce0 67 20 70 72 6f 63 65 73 73 20 69 6e 73 69 64 65 20 74 68 65 20 70 72 69 6f 72 69 74 79 20 0a 19 ┆g process inside the priority ┆
0x09ce0…09d00 85 80 80 63 6c 61 73 73 65 73 20 49 49 20 61 6e 64 20 49 49 49 20 72 75 6e 6e 69 6e 67 20 6f 6e ┆Ёђђclasses II and III running on┆
0x09d00…09d20 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 20 30 2e 20 49 66 20 74 68 65 20 76 61 ┆ interruption level 0. If the va┆
0x09d20…09d40 6c 75 65 20 0a 19 85 80 80 6f 66 20 70 72 69 6f 72 69 74 79 20 69 73 20 6f 75 74 73 69 64 65 20 ┆lue Ёђђof priority is outside ┆
0x09d40…09d60 74 68 65 20 72 61 6e 67 65 20 6d 69 6e 70 72 69 6f 72 69 74 79 2e 2e 6d 61 78 70 72 69 6f 72 69 ┆the range minpriority..maxpriori┆
0x09d60…09d80 74 79 20 74 68 65 20 70 72 69 6f 80 0a 19 85 80 80 72 69 74 79 20 69 73 20 72 6f 75 6e 64 65 64 ┆ty the prioђ Ёђђrity is rounded┆
0x09d80…09da0 20 74 6f 20 74 68 65 20 6e 65 61 72 65 73 74 20 70 72 69 6f 72 69 74 79 20 69 6e 73 69 64 65 20 ┆ to the nearest priority inside ┆
0x09da0…09dc0 74 68 65 20 72 61 6e 67 65 2e 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 ┆the range. An exception occur┆
0x09dc0…09de0 73 20 69 66 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 63 61 6c 6c 65 64 20 69 6e 20 61 20 63 68 61 6e ┆s if: - ёcalled in a chan┆
0x09de0…09e00 6e 65 6c 20 73 74 61 74 65 6d 65 6e 74 20 0d 0a 16 53 43 0d 0a 53 74 61 72 74 0d 0a 50 52 4f 43 ┆nel statement SC Start PROC┆
0x09e00…09e20 45 44 55 52 45 20 bf dc d8 73 74 61 72 74 be 28 56 41 52 20 70 72 3a 20 70 72 6f 63 65 73 73 3b ┆EDURE ┐▄пstartЙ(VAR pr: process;┆
0x09e20…09e40 20 70 72 69 6f 72 69 74 79 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 ┆ priority: integer); Predefi┆
0x09e40…09e60 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 70 72 69 6f 72 69 74 79 20 6f 66 20 74 ┆ned. - ёThe priority of t┆
0x09e60…09e80 68 65 20 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 69 73 20 63 68 61 6e 67 65 64 20 74 6f 20 74 ┆he child process is changed to t┆
0x09e80…09ea0 68 65 20 76 61 6c 75 65 20 6f 66 20 0a 19 85 80 80 70 72 69 6f 72 69 74 79 2c 20 61 6e 64 20 69 ┆he value of Ёђђpriority, and i┆
0x09ea0…09ec0 66 20 74 68 65 20 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 69 73 20 73 74 6f 70 70 65 64 20 61 ┆f the child process is stopped a┆
0x09ec0…09ee0 20 63 61 6c 6c 20 6f 66 20 73 74 61 72 74 20 6d 61 80 0a 19 85 80 80 6b 65 73 20 69 74 20 6e 6f ┆ call of start maђ Ёђђkes it no┆
0x09ee0…09f00 74 20 73 74 6f 70 70 65 64 2e 0d 0a 0d 0a 49 66 20 27 70 72 69 6f 72 69 74 79 27 3d 30 2c 20 74 ┆t stopped. If 'priority'=0, t┆
0x09f00…09f20 68 65 20 70 72 6f 63 65 73 73 20 65 6e 74 65 72 73 20 74 68 65 20 63 6f 72 6f 75 74 69 6e 65 20 ┆he process enters the coroutine ┆
0x09f20…09f40 63 6c 61 73 73 20 28 63 6c 61 73 73 20 49 49 29 2e 20 49 66 20 0a 27 70 72 69 6f 72 69 74 79 27 ┆class (class II). If 'priority'┆
0x09f40…09f60 3c 30 2c 20 74 68 65 20 63 68 69 6c 64 20 65 6e 74 65 72 73 20 74 68 65 20 74 69 6d 65 20 73 6c ┆<0, the child enters the time sl┆
0x09f60…09f80 69 63 65 20 63 6c 61 73 73 20 28 63 6c 61 73 73 20 49 49 49 29 2e 20 0d 0a 0d 0a 49 66 20 74 68 ┆ice class (class III). If th┆
0x09f80…09fa0 65 20 61 63 74 69 76 61 74 69 6f 6e 20 69 73 20 61 63 74 75 61 6c 6c 79 20 61 20 72 65 61 63 74 ┆e activation is actually a react┆
0x09fa0…09fc0 69 76 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 2c 20 74 68 65 20 70 72 6f 63 ┆ivation of the process, the proc┆
0x09fc0…09fe0 65 73 73 20 0a 63 6f 75 6c 64 20 68 61 76 65 20 62 65 65 6e 20 77 61 69 74 69 6e 67 20 61 74 20 ┆ess could have been waiting at ┆
0x09fe0…0a000 61 20 6d 61 69 6c 62 6f 78 2e 20 49 6e 20 74 68 61 74 20 63 61 73 65 20 74 68 65 20 57 41 49 54 ┆a mailbox. In that case the WAIT┆
0x0a000…0a020 20 73 74 61 74 65 80 0a 6d 65 6e 74 20 77 69 6c 6c 20 62 65 20 72 65 70 65 61 74 65 64 2e 20 0d ┆ stateђ ment will be repeated. ┆
0x0a020…0a040 0a 0d 0a 49 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 61 73 20 73 74 6f 70 70 65 64 20 61 74 ┆ If the process was stopped at┆
0x0a040…0a060 20 61 6e 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 20 67 72 65 61 74 65 72 20 74 ┆ an interruption level greater t┆
0x0a060…0a080 68 61 6e 20 7a 65 72 6f 2c 20 0a 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 73 63 68 65 64 75 ┆han zero, the process is schedu┆
0x0a080…0a0a0 6c 65 64 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 68 65 20 6f 6c 64 20 69 6e 74 65 72 72 75 70 ┆led directly to the old interrup┆
0x0a0a0…0a0c0 74 69 6f 6e 20 6c 65 76 65 6c 20 61 6e 64 20 61 63 80 0a 74 69 76 61 74 65 64 20 61 73 20 69 66 ┆tion level and acђ tivated as if┆
0x0a0c0…0a0e0 20 61 20 74 69 6d 65 6f 75 74 20 68 61 73 20 6f 63 63 75 72 72 65 64 2e 20 0d 0a 0d 0a 8c 8b e8 ┆ a timeout has occurred. їІУ┆
0x0a0e0…0a100 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 74 68 65 20 70 72 6f ┆ An exception occurs, if the pro┆
0x0a100…0a120 63 65 73 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 69 6c 2e 20 0d 0a 16 53 43 0d 0a 53 74 6f ┆cess variable is nil. SC Sto┆
0x0a120…0a140 70 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 74 6f 70 be 28 56 41 52 20 70 72 3a 20 70 72 ┆p PROCEDURE ┐▄пstopЙ(VAR pr: pr┆
0x0a140…0a160 6f 63 65 73 73 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d ┆ocess); Predefined. -┆
0x0a160…0a180 20 84 73 74 6f 70 73 20 61 20 70 72 6f 63 65 73 73 2e 20 54 68 65 20 61 73 73 6f 63 69 61 74 65 ┆ ёstops a process. The associate┆
0x0a180…0a1a0 64 20 73 75 62 74 72 65 65 20 2d 20 69 66 20 61 6e 79 20 2d 20 69 73 20 a1 6e 6f 74 e1 20 73 74 ┆d subtree - if any - is Аnotр st┆
0x0a1a0…0a1c0 6f 70 80 0a 19 85 80 80 70 65 64 2e 20 0d 0a 0d 0a 49 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 ┆opђ Ёђђped. If the process ┆
0x0a1c0…0a1e0 69 73 20 61 6c 72 65 61 64 79 20 73 74 6f 70 70 65 64 2c 20 74 68 65 20 70 72 6f 63 65 64 75 72 ┆is already stopped, the procedur┆
0x0a1e0…0a200 65 20 69 73 20 64 75 6d 6d 79 2e 20 0d 0a 0d 0a 54 68 65 20 63 68 69 6c 64 20 70 72 6f 63 65 73 ┆e is dummy. The child proces┆
0x0a200…0a220 73 20 69 73 20 64 65 61 63 74 69 76 61 74 65 64 20 61 6e 64 20 70 6f 73 73 69 62 6c 79 20 72 65 ┆s is deactivated and possibly re┆
0x0a220…0a240 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20 6d 61 69 6c 80 0a 62 6f 78 20 77 68 65 72 65 20 74 ┆moved from the mailђ box where t┆
0x0a240…0a260 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 77 61 69 74 69 6e 67 2e 20 0d 0a 0d 0a 49 66 20 74 68 ┆he process is waiting. If th┆
0x0a260…0a280 65 20 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 69 73 20 77 61 69 74 69 6e 67 20 66 6f 72 20 69 ┆e child process is waiting for i┆
0x0a280…0a2a0 6e 74 65 72 72 75 70 74 20 6f 6e 20 61 6e 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 ┆nterrupt on an interruption leve┆
0x0a2a0…0a2c0 6c 20 0a 67 72 65 61 74 65 72 20 74 68 61 6e 20 7a 65 72 6f 2c 20 74 68 65 20 70 72 6f 63 65 73 ┆l greater than zero, the proces┆
0x0a2c0…0a2e0 73 20 69 73 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20 69 6e 74 65 72 72 75 70 74 69 ┆s is removed from the interrupti┆
0x0a2e0…0a300 6f 6e 20 6c 65 76 65 6c 2e 20 0d 0a 0d 0a 49 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 76 61 72 ┆on level. If the process var┆
0x0a300…0a320 69 61 62 6c 65 20 69 73 20 6e 69 6c 2c 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 ┆iable is nil, an exception occur┆
0x0a320…0a340 73 2e 20 0d 0a 16 53 43 0d 0a 54 72 61 63 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 74 72 ┆s. SC Trace PROCEDURE ┐▄пtr┆
0x0a340…0a360 61 63 65 be 28 65 78 63 6f 64 65 20 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 72 65 64 ┆aceЙ(excode : integer); Pred┆
0x0a360…0a380 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 63 61 6c 6c 73 20 74 68 65 20 73 74 61 6e ┆efined. - ёcalls the stan┆
0x0a380…0a3a0 64 61 72 64 20 65 78 63 65 70 74 69 6f 6e 20 72 6f 75 74 69 6e 65 20 61 6e 64 20 67 65 6e 65 72 ┆dard exception routine and gener┆
0x0a3a0…0a3c0 61 74 65 73 20 69 64 65 6e 74 69 63 61 6c 20 6f 75 74 80 0a 19 85 80 80 70 75 74 20 6f 6e 20 74 ┆ates identical outђ Ёђђput on t┆
0x0a3c0…0a3e0 68 65 20 63 6f 6e 73 6f 6c 65 20 61 73 20 74 68 65 20 65 71 75 69 76 61 6c 65 6e 74 20 65 78 63 ┆he console as the equivalent exc┆
0x0a3e0…0a400 65 70 74 69 6f 6e 2e 20 54 68 65 20 70 72 6f 80 67 72 61 6d 20 61 6c 80 0a 19 85 80 80 77 61 79 ┆eption. The proђgram alђ Ёђђway┆
0x0a400…0a420 73 20 63 6f 6e 74 69 6e 75 65 73 20 65 78 65 63 75 74 69 6f 6e 20 61 66 74 65 72 20 74 68 65 20 ┆s continues execution after the ┆
0x0a420…0a440 63 61 6c 6c 2c 20 73 6f 20 27 74 72 61 63 65 27 20 6d 61 79 20 62 65 20 75 73 65 64 20 0a 19 85 ┆call, so 'trace' may be used Ё┆
0x0a440…0a460 80 80 66 6f 72 20 74 65 73 74 6f 75 74 70 75 74 20 67 65 6e 65 72 61 74 69 6f 6e 2e 20 0d 0a 16 ┆ђђfor testoutput generation. ┆
0x0a460…0a480 53 43 0d 0a 55 6e 6c 69 6e 6b 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 75 6e 6c 69 6e 6b be 28 ┆SC Unlink FUNCTION ┐▄пunlinkЙ(┆
0x0a480…0a4a0 70 72 6f 67 72 61 6d 20 6e 61 6d 65 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 50 72 65 64 ┆program name): integer; Pred┆
0x0a4a0…0a4c0 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 6c 69 6e 6b 20 74 6f 20 74 68 ┆efined. - ёThe link to th┆
0x0a4c0…0a4e0 65 20 70 72 6f 67 72 61 6d 20 6c 69 6e 6b 65 64 20 74 6f 20 70 72 6f 67 72 61 6d 20 6e 61 6d 65 ┆e program linked to program name┆
0x0a4e0…0a500 20 69 73 20 64 65 6c 65 74 65 64 2c 20 69 66 20 0a 19 85 80 80 74 68 65 72 65 20 65 78 69 73 74 ┆ is deleted, if Ёђђthere exist┆
0x0a500…0a520 73 20 61 20 6c 69 6e 6b 20 61 6e 64 20 6e 6f 20 69 6e 63 61 72 6e 61 74 69 6f 6e 73 20 6f 66 20 ┆s a link and no incarnations of ┆
0x0a520…0a540 74 68 65 20 70 72 6f 67 72 61 6d 20 65 78 69 73 74 2e 20 0d 0a 0d 0a 54 68 65 20 66 75 6e 63 74 ┆the program exist. The funct┆
0x0a540…0a560 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 65 73 75 6c 74 ┆ion returns the following result┆
0x0a560…0a580 73 3a 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 20 20 09 09 09 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a ┆s: Results Meaning ┆
0x0a580…0a5a0 75 6e 6c 69 6e 6b 5f 6f 6b 09 09 09 50 72 6f 67 72 61 6d 20 75 6e 6c 69 6e 6b 65 64 20 73 75 63 ┆unlink_ok Program unlinked suc┆
0x0a5a0…0a5c0 63 65 73 73 66 75 6c 6c 79 2e 20 20 20 20 0d 0a 75 6e 6c 69 6e 6b 5f 6e 6f 5f 70 72 6f 67 72 61 ┆cessfully. unlink_no_progra┆
0x0a5c0…0a5e0 6d 5f 6c 69 6e 6b 65 64 09 84 4e 6f 20 70 72 6f 67 72 61 6d 20 77 61 73 20 6c 69 6e 6b 65 64 20 ┆m_linked ёNo program was linked ┆
0x0a5e0…0a600 74 6f 20 70 72 6f 67 72 61 6d 20 0a 19 9f 80 80 6e 61 6d 65 2e 0d 0a 75 6e 6c 69 6e 6b 5f 70 72 ┆to program Ъђђname. unlink_pr┆
0x0a600…0a620 6f 67 72 61 6d 5f 62 75 73 79 09 09 84 49 6e 63 61 72 6e 61 74 69 6f 6e 73 20 6f 66 20 74 68 65 ┆ogram_busy ёIncarnations of the┆
0x0a620…0a640 20 70 72 6f 67 72 61 6d 20 61 72 65 20 65 78 80 0a 19 9f 80 80 69 73 74 69 6e 67 2e 0d 0a 0d 0a ┆ program are exђ Ъђђisting. ┆
0x0a640…0a660 0e 0a a1 45 78 61 6d 70 6c 65 20 20 33 2e 20 20 55 4e 4c 49 4e 4b 20 e1 20 0d 0a 04 00 2d 4d 0f ┆ АExample 3. UNLINK р -M ┆
0x0a660…0a680 00 08 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x0a680…0a6a0 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 ┆ $-7AKU_is} -L ┆
0x0a6a0…0a6c0 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 12 19 20 ┆ A1 ┆
0x0a6c0…0a6e0 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 0a 0d 0a 50 52 4f 47 52 41 4d 20 65 78 61 6d 70 6c 65 33 ┆$-7AKU_is} PROGRAM example3┆
0x0a6e0…0a700 3b 20 20 20 20 0d 0a 0d 0a 43 4f 4e 53 54 20 20 20 20 20 0d 0a 20 20 64 65 66 5f 73 69 7a 65 3d ┆; CONST def_size=┆
0x0a700…0a720 20 30 3b 20 20 20 20 20 0d 0a 20 20 6f 6b 3d 20 30 3b 20 20 20 20 0d 0a 0d 0a 56 41 52 20 20 20 ┆ 0; ok= 0; VAR ┆
0x0a720…0a740 20 0d 0a 20 20 6d 62 78 3a 20 6d 61 69 6c 62 6f 78 3b 20 20 20 20 0d 0a 20 20 70 72 3a 20 70 72 ┆ mbx: mailbox; pr: pr┆
0x0a740…0a760 6f 63 65 73 73 3b 20 20 20 20 0d 0a 0d 0a 50 52 4f 47 52 41 4d 20 65 78 61 6d 70 6c 65 33 31 28 ┆ocess; PROGRAM example31(┆
0x0a760…0a780 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 29 3b 20 45 58 54 45 52 4e 41 4c 3b 20 20 20 20 0d 0a ┆VAR m: mailbox); EXTERNAL; ┆
0x0a780…0a7a0 0d 0a 42 45 47 49 4e 20 20 20 20 0d 0a 8c 8a b4 0a 20 20 49 46 20 6c 69 6e 6b 28 27 70 72 6f 67 ┆ BEGIN їі┤ IF link('prog┆
0x0a7a0…0a7c0 72 61 6d 33 31 27 2c 20 65 78 61 6d 70 6c 65 33 31 29 3d 6c 69 6e 6b 5f 6f 6b 20 54 48 45 4e 20 ┆ram31', example31)=link_ok THEN ┆
0x0a7c0…0a7e0 20 20 20 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 49 46 20 63 72 65 61 74 65 28 27 63 ┆ BEGIN IF create('c┆
0x0a7e0…0a800 68 69 6c 64 27 2c 20 65 78 61 6d 70 6c 65 33 31 28 6d 62 78 29 2c 20 70 72 2c 20 64 65 66 5f 73 ┆hild', example31(mbx), pr, def_s┆
0x0a800…0a820 69 7a 65 2c 20 73 74 64 70 72 69 6f 72 69 74 79 29 3d 63 72 65 61 74 65 5f 6f 6b 20 54 48 45 4e ┆ize, stdpriority)=create_ok THEN┆
0x0a820…0a840 0d 0a 20 20 20 20 42 45 47 49 4e 20 20 0d 0a 20 20 20 20 20 20 72 65 6d 6f 76 65 28 70 72 29 3b ┆ BEGIN remove(pr);┆
0x0a840…0a860 20 20 0d 0a 20 20 20 20 20 20 49 46 20 75 6e 6c 69 6e 6b 28 65 78 61 6d 70 6c 65 33 31 29 3d 75 ┆ IF unlink(example31)=u┆
0x0a860…0a880 6e 6c 69 6e 6b 5f 6f 6b 20 54 48 45 4e 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 0d 0a ┆nlink_ok THEN; END; ┆
0x0a880…0a8a0 20 20 45 4e 44 3b 20 20 0d 0a 45 4e 44 3b 20 28 2a 20 65 78 61 6d 70 6c 65 33 20 2a 29 20 20 20 ┆ END; END; (* example3 *) ┆
0x0a8a0…0a8c0 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1 ┆
0x0a8c0…0a8e0 00 00 00 00 00 00 00 00 00 00 05 12 19 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 04 00 2d 4d 0f ┆ $-7AKU_is} -M ┆
0x0a8e0…0a900 00 08 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x0a900…0a920 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 0a 0f 0a 16 53 42 0d 0a 43 6f 6d 6d ┆ $-7AKU_is} SB Comm┆
0x0a920…0a940 75 6e 69 63 61 74 69 6f 6e 73 20 52 6f 75 74 69 6e 65 73 0d 0a 54 68 65 73 65 20 72 6f 75 74 69 ┆unications Routines These routi┆
0x0a940…0a960 6e 65 73 20 61 72 65 20 75 73 65 64 20 66 6f 72 20 bf dc d8 63 6f 6d 6d 75 6e 69 63 61 74 69 6f ┆nes are used for ┐▄пcommunicatio┆
0x0a960…0a980 6e be 20 62 65 74 77 65 65 6e 20 70 72 6f 63 65 73 73 65 73 2c 20 65 69 74 68 65 72 20 0a 61 73 ┆nЙ between processes, either as┆
0x0a980…0a9a0 20 73 69 67 6e 61 6c 2d 77 61 69 74 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 6f 72 20 62 79 ┆ signal-wait communication or by┆
0x0a9a0…0a9c0 20 6d 65 61 6e 73 20 6f 66 20 49 4d 43 20 73 65 72 76 69 63 65 73 2e 20 49 4d 43 20 0a 73 74 61 ┆ means of IMC services. IMC sta┆
0x0a9c0…0a9e0 6e 64 73 20 66 6f 72 20 49 6e 74 65 72 20 4d 6f 64 75 6c 65 20 43 6f 6d 6d 75 6e 69 63 61 74 69 ┆nds for Inter Module Communicati┆
0x0a9e0…0aa00 6f 6e 20 61 6e 64 20 69 73 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 2f 44 53 41 2d 49 4d 43 2f ┆on and is described in /DSA-IMC/┆
0x0aa00…0aa20 20 0a 61 6e 64 20 2f 52 54 50 2f 2e 20 54 68 65 20 73 74 61 74 65 20 6f 66 20 6d 61 69 6c 62 6f ┆ and /RTP/. The state of mailbo┆
0x0aa20…0aa40 78 2c 20 70 6f 6f 6c 20 61 6e 64 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 73 20 ┆x, pool and reference variables ┆
0x0aa40…0aa60 6d 61 79 20 62 65 20 0a 74 65 73 74 65 64 2c 20 65 74 63 2e 20 41 74 80 74 65 6e 74 69 6f 6e 20 ┆may be tested, etc. Atђtention ┆
0x0aa60…0aa80 73 68 6f 75 6c 64 20 62 65 20 70 61 69 64 20 74 6f 20 74 68 65 20 66 61 63 74 2c 20 74 68 61 74 ┆should be paid to the fact, that┆
0x0aa80…0aaa0 20 74 68 65 20 72 6f 75 74 69 6e 65 73 20 0a 61 6c 80 6c 6f 63 20 61 6e 64 20 72 65 80 6c 65 61 ┆ the routines alђloc and reђlea┆
0x0aaa0…0aac0 73 65 20 69 6e 20 73 65 63 74 69 6f 6e 20 33 2e 33 20 61 6c 73 6f 20 6d 61 79 20 69 6e 66 65 72 ┆se in section 3.3 also may infer┆
0x0aac0…0aae0 20 63 6f 6d 6d 75 6e 69 63 61 80 80 74 69 6f 6e 73 20 65 71 75 80 69 76 61 80 0a 6c 65 6e 74 20 ┆ communicaђђtions equђivaђ lent ┆
0x0aae0…0ab00 74 6f 20 77 61 69 74 2c 20 73 69 67 6e 61 6c 2c 20 6f 72 20 72 65 74 75 72 6e 2e 20 0d 0a 16 73 ┆to wait, signal, or return. s┆
0x0ab00…0ab20 63 0d 0a 43 61 6c 6c 72 65 6d 6f 74 65 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 63 61 6c 6c 72 ┆c Callremote FUNCTION ┐▄пcallr┆
0x0ab20…0ab40 65 6d 6f 74 65 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 49 4e 53 50 45 43 54 ┆emoteЙ(VAR r: reference; INSPECT┆
0x0ab40…0ab60 20 6d 5f 6e 61 6d 65 3a 20 61 6c 66 61 29 3a 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ m_name: alfa): i┆
0x0ab60…0ab80 6e 74 65 67 65 72 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e ┆nteger; Defined in rc3502env.┆
0x0ab80…0aba0 0d 0a 0d 0a 20 20 20 2d 20 84 73 69 67 6e 61 6c 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 64 65 ┆ - ёsignals the message de┆
0x0aba0…0abc0 73 69 67 6e 61 74 65 64 20 62 79 20 72 20 74 6f 20 61 20 63 61 74 61 6c 6f 67 75 65 64 20 6d 61 ┆signated by r to a catalogued ma┆
0x0abc0…0abe0 69 6c 62 6f 78 20 0a 19 85 80 80 77 69 74 68 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6e 61 ┆ilbox Ёђђwith the specified na┆
0x0abe0…0ac00 6d 65 2e 20 42 65 66 6f 72 65 20 72 65 74 75 72 6e 20 66 72 6f 6d 20 74 68 65 20 72 6f 75 74 69 ┆me. Before return from the routi┆
0x0ac00…0ac20 6e 65 20 61 20 63 61 6c 6c 20 0a 19 85 80 80 6f 66 20 77 61 69 74 20 69 73 20 70 65 72 66 6f 72 ┆ne a call Ёђђof wait is perfor┆
0x0ac20…0ac40 6d 65 64 2e 20 0d 0a 0d 0a 09 52 65 73 75 6c 74 73 09 4d 65 61 6e 69 6e 67 0d 0a 09 20 20 20 30 ┆med. Results Meaning 0┆
0x0ac40…0ac60 09 84 4f 4b 2c 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 77 61 73 20 66 6f 75 6e 64 20 61 6e 64 20 ┆ ёOK, the mailbox was found and ┆
0x0ac60…0ac80 74 68 65 20 72 65 6d 6f 74 65 20 63 61 6c 6c 20 0a 19 91 80 80 74 65 72 6d 69 6e 61 74 65 64 20 ┆the remote call Љђђterminated ┆
0x0ac80…0aca0 73 75 63 63 65 73 73 66 75 6c 6c 79 2e 0d 0a 09 20 20 20 31 09 84 54 68 65 20 6d 61 69 6c 62 6f ┆successfully. 1 ёThe mailbo┆
0x0aca0…0acc0 78 20 77 69 74 68 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6e 61 6d 65 20 77 61 73 20 6e 6f ┆x with the specified name was no┆
0x0acc0…0ace0 74 20 66 6f 75 6e 64 2e 0d 0a 09 20 20 20 32 09 84 4e 6f 20 72 65 73 6f 75 72 63 65 73 2c 20 74 ┆t found. 2 ёNo resources, t┆
0x0ace0…0ad00 68 65 20 63 61 6c 6c 20 77 61 73 20 69 6e 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 73 65 20 6f ┆he call was incomplete because o┆
0x0ad00…0ad20 66 20 0a 19 91 80 80 6c 61 63 6b 20 6f 66 20 6d 65 6d 6f 72 79 20 72 65 73 6f 75 72 63 65 73 20 ┆f Љђђlack of memory resources ┆
0x0ad20…0ad40 74 6f 20 70 65 72 66 6f 72 6d 20 74 68 65 20 72 65 6d 6f 74 65 20 0a 19 91 80 80 63 61 6c 6c 2e ┆to perform the remote Љђђcall.┆
0x0ad40…0ad60 0d 0a 16 73 63 0d 0a 43 6c 6f 73 65 70 6f 72 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 63 ┆ sc Closeport PROCEDURE ┐▄пc┆
0x0ad60…0ad80 6c 6f 73 65 70 6f 72 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 29 3b 0d 0a 0d 0a 44 65 66 69 6e ┆loseportЙ(VAR p: port); Defin┆
0x0ad80…0ada0 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 57 69 74 68 64 ┆ed in imc3502env. - ёWithd┆
0x0ada0…0adc0 72 61 77 73 20 61 20 70 6f 72 74 20 66 72 6f 6d 20 74 68 65 20 49 4d 43 20 6e 65 74 77 6f 72 6b ┆raws a port from the IMC network┆
0x0adc0…0ade0 2e 20 49 66 20 74 68 65 20 70 6f 72 74 20 69 73 20 61 6c 72 65 61 64 79 20 0a 19 85 80 80 63 6c ┆. If the port is already Ёђђcl┆
0x0ade0…0ae00 6f 73 65 64 20 74 68 65 20 63 61 6c 6c 20 68 61 73 20 6e 6f 20 65 66 66 65 63 74 2e 20 4f 74 68 ┆osed the call has no effect. Oth┆
0x0ae00…0ae20 65 72 77 69 73 65 20 61 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 6f 6e 20 74 68 65 20 0a 19 ┆erwise all connections on the ┆
0x0ae20…0ae40 85 80 80 70 6f 72 74 20 61 72 65 20 72 65 6d 6f 76 65 64 20 77 69 74 68 20 67 72 61 63 65 66 75 ┆Ёђђport are removed with gracefu┆
0x0ae40…0ae60 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 66 20 61 6e 79 20 66 65 61 73 69 62 6c 65 20 64 61 74 ┆l completion of any feasible dat┆
0x0ae60…0ae80 61 20 0a 19 85 80 80 74 72 61 6e 73 66 65 72 73 2e 20 54 68 65 6e 20 61 6c 6c 20 67 65 6e 65 72 ┆a Ёђђtransfers. Then all gener┆
0x0ae80…0aea0 61 6c 20 72 65 63 65 69 76 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 ┆al receive messages are returned┆
0x0aea0…0aec0 20 61 73 20 0a 19 85 80 80 64 75 6d 6d 79 20 65 76 65 6e 74 73 2c 20 61 6e 64 20 66 69 6e 61 6c ┆ as Ёђђdummy events, and final┆
0x0aec0…0aee0 6c 79 20 74 68 65 20 70 6f 72 74 5f 63 6c 6f 73 65 64 20 65 76 65 6e 74 20 6f 63 63 75 72 73 20 ┆ly the port_closed event occurs ┆
0x0aee0…0af00 77 69 74 68 20 72 65 80 0a 19 85 80 80 61 73 6f 6e 5f 6f 6b 2e 20 54 68 65 20 70 6f 72 74 20 69 ┆with reђ Ёђђason_ok. The port i┆
0x0af00…0af20 73 20 6d 61 64 65 20 75 6e 6b 6e 6f 77 6e 20 74 6f 20 74 68 65 20 49 4d 43 20 6e 65 74 77 6f 72 ┆s made unknown to the IMC networ┆
0x0af20…0af40 6b 2c 20 61 6e 64 20 69 74 73 20 0a 19 85 80 80 73 74 61 74 65 20 63 68 61 6e 67 65 73 20 74 6f ┆k, and its Ёђђstate changes to┆
0x0af40…0af60 20 63 6c 6f 73 65 64 2e 20 0d 0a 16 73 63 0d 0a 43 6f 6e 6e 65 63 74 0d 0a 50 52 4f 43 45 44 55 ┆ closed. sc Connect PROCEDU┆
0x0af60…0af80 52 45 20 bf dc d8 63 6f 6e 6e 65 63 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 ┆RE ┐▄пconnectЙ(VAR p: port; inde┆
0x0af80…0afa0 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 ┆x: 1..maxint; VA┆
0x0afa0…0afc0 52 20 63 6f 6d 70 6c 2c 20 64 69 73 63 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 0d 0a 20 20 20 20 ┆R compl, disc: reference; ┆
0x0afc0…0afe0 20 20 20 20 20 20 20 20 20 20 49 4e 53 50 45 43 54 20 72 65 6d 6f 74 65 5f 6e 61 6d 65 3a 20 61 ┆ INSPECT remote_name: a┆
0x0afe0…0b000 6c 66 61 3b 20 73 65 72 76 69 63 65 3a 20 63 6f 6e 6e 5f 73 65 72 76 69 80 80 63 65 29 3b 0d 0a ┆lfa; service: conn_serviђђce); ┆
0x0b000…0b020 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d ┆ Defined in imc3502env. -┆
0x0b020…0b040 20 84 45 73 74 61 62 6c 69 73 68 65 73 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 65 74 77 65 ┆ ёEstablishes a connection betwe┆
0x0b040…0b060 65 6e 20 61 20 6c 6f 63 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 6e 64 2d 70 6f 69 6e 74 20 ┆en a local connection end-point ┆
0x0b060…0b080 0a 19 85 80 80 61 6e 64 20 61 20 72 65 6d 6f 74 65 20 65 6e 64 2d 70 6f 69 6e 74 2c 20 77 68 69 ┆ Ёђђand a remote end-point, whi┆
0x0b080…0b0a0 63 68 20 68 61 73 20 62 65 65 6e 20 6d 61 64 65 20 61 76 61 69 6c 61 62 6c 65 20 62 79 20 61 20 ┆ch has been made available by a ┆
0x0b0a0…0b0c0 63 61 6c 6c 20 0a 19 85 80 80 6f 66 20 67 65 74 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 49 66 20 74 ┆call Ёђђof getconnection. If t┆
0x0b0c0…0b0e0 68 65 20 70 6f 72 74 20 69 73 20 63 6c 6f 73 65 64 20 6f 72 20 63 6c 6f 73 69 6e 67 20 74 68 65 ┆he port is closed or closing the┆
0x0b0e0…0b100 20 6d 65 73 73 61 67 65 20 0a 19 85 80 80 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 63 6f 6d 70 ┆ message Ёђђdesignated by comp┆
0x0b100…0b120 6c 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 20 64 75 6d 6d 79 20 65 76 65 6e 74 20 61 ┆l is returned as a dummy event a┆
0x0b120…0b140 6e 64 20 74 68 65 20 6d 65 73 80 0a 19 85 80 80 73 61 67 65 20 64 65 73 69 67 6e 61 74 65 64 20 ┆nd the mesђ Ёђђsage designated ┆
0x0b140…0b160 62 79 20 64 69 73 63 20 61 73 20 61 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 65 76 65 6e 74 20 ┆by disc as a disconnected event ┆
0x0b160…0b180 77 69 74 68 20 72 65 61 73 6f 6e 5f 63 6c 6f 80 0a 19 85 80 80 73 65 64 2e 20 4f 74 68 65 72 77 ┆with reason_cloђ Ёђђsed. Otherw┆
0x0b180…0b1a0 69 73 65 20 74 68 65 20 63 61 6c 6c 20 69 73 20 6f 6e 6c 79 20 61 63 63 65 70 74 65 64 20 69 66 ┆ise the call is only accepted if┆
0x0b1a0…0b1c0 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 20 69 6e 80 0a 19 85 80 80 64 69 63 61 74 65 ┆ the state of the inђ Ёђђdicate┆
0x0b1c0…0b1e0 64 20 65 6e 64 2d 70 6f 69 6e 74 20 69 73 20 66 72 65 65 2e 20 54 68 65 20 76 61 6c 75 65 20 6f ┆d end-point is free. The value o┆
0x0b1e0…0b200 66 20 72 65 6d 6f 74 65 5f 6e 61 6d 65 20 69 73 20 74 68 65 20 6e 61 6d 65 20 0a 19 85 80 80 6f ┆f remote_name is the name Ёђђo┆
0x0b200…0b220 66 20 74 68 65 20 72 65 6d 6f 74 65 20 70 6f 72 74 20 74 6f 20 77 68 69 63 68 20 61 20 63 6f 6e ┆f the remote port to which a con┆
0x0b220…0b240 6e 65 63 74 69 6f 6e 20 69 73 20 72 65 71 75 65 73 74 65 64 2e 20 54 68 65 20 0a 19 85 80 80 76 ┆nection is requested. The Ёђђv┆
0x0b240…0b260 61 6c 75 65 20 6f 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 63 6f 6d 70 6c 20 6d 61 79 20 ┆alue of the parameter compl may ┆
0x0b260…0b280 62 65 20 4e 49 4c 2c 20 69 66 20 69 74 20 69 73 20 70 72 65 73 65 6e 74 20 69 74 20 0a 19 85 80 ┆be NIL, if it is present it Ёђ┆
0x0b280…0b2a0 80 77 69 6c 6c 20 62 65 20 75 73 65 64 20 74 6f 20 67 65 6e 65 72 61 74 65 20 61 20 6c 6f 63 61 ┆ђwill be used to generate a loca┆
0x0b2a0…0b2c0 6c 5f 63 6f 6e 6e 65 63 74 20 65 76 65 6e 74 20 77 68 65 6e 20 74 68 65 20 61 63 74 75 61 6c 20 ┆l_connect event when the actual ┆
0x0b2c0…0b2e0 0a 19 85 80 80 63 6f 6e 80 6e 65 63 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 73 75 63 63 65 73 ┆ Ёђђconђnection has been succes┆
0x0b2e0…0b300 73 66 75 6c 6c 79 20 65 73 74 61 62 6c 69 73 68 65 64 2e 20 54 68 65 20 6d 65 73 73 61 67 65 20 ┆sfully established. The message ┆
0x0b300…0b320 64 65 80 0a 19 85 80 80 73 69 67 6e 61 80 74 65 64 20 62 79 20 64 69 73 63 20 69 73 20 74 68 65 ┆deђ Ёђђsignaђted by disc is the┆
0x0b320…0b340 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 65 76 65 6e 74 20 6d 65 73 73 61 67 65 2e 20 49 74 20 ┆ disconnected event message. It ┆
0x0b340…0b360 77 69 6c 6c 20 62 65 20 0a 19 85 80 80 6f 75 74 80 73 74 61 6e 64 69 6e 67 20 75 6e 74 69 6c 20 ┆will be Ёђђoutђstanding until ┆
0x0b360…0b380 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 6e 64 2d ┆the state of the connection end-┆
0x0b380…0b3a0 70 6f 69 6e 74 20 65 76 65 6e 74 75 61 6c 80 0a 19 85 80 80 6c 79 20 72 65 80 76 65 72 74 73 20 ┆point eventualђ Ёђђly reђverts ┆
0x0b3a0…0b3c0 74 6f 20 66 72 65 65 20 6f 72 20 74 68 65 20 70 6f 72 74 20 69 73 20 63 6c 6f 73 65 64 2e 20 49 ┆to free or the port is closed. I┆
0x0b3c0…0b3e0 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 61 6e 80 0a 19 85 80 80 6e 6f 74 20 62 65 ┆f the connection canђ Ёђђnot be┆
0x0b3e0…0b400 20 65 73 74 61 62 6c 69 73 68 65 64 20 74 68 65 20 72 65 61 73 6f 6e 20 77 69 6c 6c 20 62 65 20 ┆ established the reason will be ┆
0x0b400…0b420 65 69 74 68 65 72 20 72 65 61 73 6f 6e 5f 6e 61 6d 65 2c 20 69 66 20 61 20 0a 19 85 80 80 70 6f ┆either reason_name, if a Ёђђpo┆
0x0b420…0b440 72 74 20 77 69 74 68 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6e 61 6d 65 20 63 6f 75 6c 64 ┆rt with the specified name could┆
0x0b440…0b460 20 6e 6f 74 20 62 65 20 66 6f 75 6e 64 2c 20 6f 72 20 72 65 61 73 6f 6e 5f 72 65 80 0a 19 85 80 ┆ not be found, or reason_reђ Ёђ┆
0x0b460…0b480 80 73 6f 75 72 63 65 2c 20 69 66 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 72 65 73 6f 75 72 ┆ђsource, if the necessary resour┆
0x0b480…0b4a0 63 65 73 20 77 65 72 65 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 74 68 65 20 49 4d ┆ces were not available in the IM┆
0x0b4a0…0b4c0 43 20 0a 19 85 80 80 6e 65 74 80 77 6f 72 6b 20 6f 72 20 61 74 20 74 68 65 20 72 65 6d 6f 74 65 ┆C Ёђђnetђwork or at the remote┆
0x0b4c0…0b4e0 20 70 6f 72 74 2e 0d 0a 16 53 43 0d 0a 44 65 66 69 6e 65 74 69 6d 65 72 0d 0a 50 52 4f 43 45 44 ┆ port. SC Definetimer PROCED┆
0x0b4e0…0b500 55 52 45 20 bf dc d8 64 65 66 69 6e 65 74 69 6d 65 72 be 28 6f 6e 6f 66 66 3a 20 62 6f 6f 6c 65 ┆URE ┐▄пdefinetimerЙ(onoff: boole┆
0x0b500…0b520 61 6e 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d ┆an); Defined in rc3502env. ┆
0x0b520…0b540 0a 0d 0a 20 20 20 2d 20 84 27 64 65 66 69 6e 65 74 69 6d 65 72 28 74 72 75 65 29 27 20 69 6e 63 ┆ - ё'definetimer(true)' inc┆
0x0b540…0b560 6c 75 64 65 73 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 6e 20 61 20 63 68 61 69 6e 2c 20 77 68 ┆ludes the process in a chain, wh┆
0x0b560…0b580 65 72 65 20 63 6f 75 6e 74 20 0a 19 85 80 80 64 6f 77 6e 20 6f 66 20 74 68 65 20 bf dc d8 74 69 ┆ere count Ёђђdown of the ┐▄пti┆
0x0b580…0b5a0 6d 65 72 20 66 69 65 6c 64 be 20 69 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 ┆mer fieldЙ in the process descri┆
0x0b5a0…0b5c0 70 74 6f 72 20 69 73 20 64 6f 6e 65 20 6f 6e 63 65 20 0a 19 85 80 80 70 65 72 20 73 65 63 6f 6e ┆ptor is done once Ёђђper secon┆
0x0b5c0…0b5e0 64 2e 20 54 68 65 20 63 61 6c 6c 20 27 64 65 66 69 6e 65 80 74 69 6d 65 72 28 66 61 6c 73 65 29 ┆d. The call 'defineђtimer(false)┆
0x0b5e0…0b600 27 20 72 65 6d 6f 76 65 73 20 74 68 65 20 70 72 6f 63 65 73 73 20 0a 19 85 80 80 66 72 6f 6d 20 ┆' removes the process Ёђђfrom ┆
0x0b600…0b620 74 68 65 20 63 68 61 69 6e 2c 20 61 6e 64 20 63 6f 75 6e 74 20 64 6f 77 6e 20 69 73 20 73 74 6f ┆the chain, and count down is sto┆
0x0b620…0b640 70 70 65 64 2e 20 0d 0a 0d 0a 54 69 6d 65 6f 75 74 20 63 61 6e 20 6f 6e 6c 79 20 74 61 6b 65 20 ┆pped. Timeout can only take ┆
0x0b640…0b660 70 6c 61 63 65 20 61 66 74 65 72 20 74 68 65 20 63 61 6c 6c 20 27 64 65 66 69 6e 65 74 69 6d 65 ┆place after the call 'definetime┆
0x0b660…0b680 72 28 74 72 75 65 29 27 2e 20 41 74 20 0a 6d 6f 73 74 20 6f 6e 65 20 63 61 6c 6c 20 6f 66 20 64 ┆r(true)'. At most one call of d┆
0x0b680…0b6a0 65 66 69 6e 65 74 69 6d 65 72 20 63 61 6e 20 62 65 20 70 72 6f 63 65 73 73 65 64 20 65 61 63 68 ┆efinetimer can be processed each┆
0x0b6a0…0b6c0 20 35 30 20 6d 73 65 63 2e 20 0d 0a 16 53 43 0d 0a 44 65 6c 61 79 0d 0a 50 52 4f 43 45 44 55 52 ┆ 50 msec. SC Delay PROCEDUR┆
0x0b6c0…0b6e0 45 20 bf dc d8 64 65 6c 61 79 be 28 6d 73 65 63 73 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d ┆E ┐▄пdelayЙ(msecs: integer); ┆
0x0b6e0…0b700 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 61 69 74 73 20 66 6f 72 ┆ Predefined. - ёwaits for┆
0x0b700…0b720 20 74 68 65 20 65 78 70 69 72 61 74 69 6f 6e 20 6f 66 20 61 20 64 65 6c 61 79 20 70 65 72 69 6f ┆ the expiration of a delay perio┆
0x0b720…0b740 64 2e 20 0d 0a 0d 0a 54 68 65 20 74 69 6d 65 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 70 72 ┆d. The timer field of the pr┆
0x0b740…0b760 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 6f 72 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 ┆ocess descriptor is initialized ┆
0x0b760…0b780 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 0a 27 6d 73 65 63 73 27 20 44 49 56 20 31 30 30 ┆to the value of 'msecs' DIV 100┆
0x0b780…0b7a0 30 2c 20 61 6e 64 20 74 68 65 20 77 61 69 74 20 69 73 20 70 65 72 66 6f 72 6d 65 64 2e 20 0d 0a ┆0, and the wait is performed. ┆
0x0b7a0…0b7c0 0d 0a a1 4e 6f 74 65 3a e1 20 43 6f 75 6e 74 20 64 6f 77 6e 20 6f 66 20 74 68 65 20 74 69 6d 65 ┆ АNote:р Count down of the time┆
0x0b7c0…0b7e0 72 20 6f 6e 6c 79 20 74 61 6b 65 73 20 70 6c 61 63 65 20 69 66 20 74 68 65 20 72 6f 75 74 69 6e ┆r only takes place if the routin┆
0x0b7e0…0b800 65 20 27 64 65 80 66 69 80 0a 6e 65 74 69 6d 65 72 27 20 68 61 73 20 62 65 65 6e 20 63 61 6c 6c ┆e 'deђfiђ netimer' has been call┆
0x0b800…0b820 65 64 2e 20 0d 0a 16 53 43 0d 0a 44 65 6c 65 74 65 6d 61 69 6c 62 6f 78 0d 0a 46 55 4e 43 54 49 ┆ed. SC Deletemailbox FUNCTI┆
0x0b820…0b840 4f 4e 20 bf dc d8 64 65 6c 65 74 65 6d 61 69 6c 62 6f 78 be 28 49 4e 53 50 45 43 54 20 6d 5f 6e ┆ON ┐▄пdeletemailboxЙ(INSPECT m_n┆
0x0b840…0b860 61 6d 65 3a 20 61 6c 66 61 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 ┆ame: alfa): integer; Defined┆
0x0b860…0b880 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 53 65 61 72 63 68 65 73 ┆ in rc3502env. - ёSearches┆
0x0b880…0b8a0 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 63 61 74 61 6c 6f 67 75 65 20 6f 66 20 74 68 65 20 63 61 ┆ the mailbox catalogue of the ca┆
0x0b8a0…0b8c0 6c 6c 69 6e 67 20 70 72 6f 63 65 73 73 2c 20 61 6e 64 20 64 65 80 0a 19 85 80 80 6c 65 74 65 73 ┆lling process, and deђ Ёђђletes┆
0x0b8c0…0b8e0 20 74 68 65 20 65 6e 74 72 79 2c 20 69 66 20 66 6f 75 6e 64 2e 20 0d 0a 0d 0a 0e 0a 52 65 73 75 ┆ the entry, if found. Resu┆
0x0b8e0…0b900 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 4f 4b 20 20 20 ┆lts Meaning 0 OK ┆
0x0b900…0b920 20 0d 0a 20 20 20 20 31 20 20 20 20 84 4e 6f 74 20 66 6f 75 6e 64 2e 20 4e 6f 20 6d 61 69 6c 62 ┆ 1 ёNot found. No mailb┆
0x0b920…0b940 6f 78 20 69 73 20 63 61 74 61 6c 6f 67 75 65 64 20 75 6e 64 65 72 20 74 68 65 20 73 70 65 63 69 ┆ox is catalogued under the speci┆
0x0b940…0b960 66 69 65 64 20 0a 19 89 80 80 6e 61 6d 65 2e 20 0d 0a 0f 0a 16 73 63 0d 0a 44 69 73 63 6f 6e 6e ┆fied Ѕђђname. sc Disconn┆
0x0b960…0b980 65 63 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 64 69 73 63 6f 6e 6e 65 63 74 be 28 56 41 ┆ect PROCEDURE ┐▄пdisconnectЙ(VA┆
0x0b980…0b9a0 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 29 3b 0d 0a 0d ┆R p: port; index: 1..maxint); ┆
0x0b9a0…0b9c0 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 ┆ Defined in imc3502env. - ┆
0x0b9c0…0b9e0 84 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 6e 64 2d 70 6f 69 6e 74 20 28 70 2c 20 69 6e ┆ёThe connection end-point (p, in┆
0x0b9e0…0ba00 64 65 78 29 20 69 73 20 66 72 65 65 64 2e 20 49 66 20 74 68 65 20 69 6e 64 69 63 61 74 65 64 20 ┆dex) is freed. If the indicated ┆
0x0ba00…0ba20 0a 19 85 80 80 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 61 62 73 65 6e 74 20 6f 72 20 69 66 20 ┆ Ёђђconnection is absent or if ┆
0x0ba20…0ba40 74 68 65 20 73 74 61 74 65 20 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 6e 64 ┆the state of the connection end┆
0x0ba40…0ba60 2d 70 6f 69 6e 74 20 0a 19 85 80 80 69 73 20 64 69 73 63 6f 6e 6e 65 63 74 69 6e 67 20 74 68 65 ┆-point Ёђђis disconnecting the┆
0x0ba60…0ba80 20 63 61 6c 6c 20 68 61 73 20 6e 6f 20 65 66 66 65 63 74 2e 20 4f 74 68 65 72 77 69 73 65 20 69 ┆ call has no effect. Otherwise i┆
0x0ba80…0baa0 66 20 74 68 65 20 63 6f 6e 6e 65 63 80 0a 19 85 80 80 74 69 6f 6e 20 65 6e 64 2d 70 6f 69 6e 74 ┆f the connecђ Ёђђtion end-point┆
0x0baa0…0bac0 20 69 73 20 65 6e 67 61 67 65 64 20 69 6e 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 2c 20 69 2e 65 ┆ is engaged in a connection, i.e┆
0x0bac0…0bae0 2e 20 69 66 20 69 74 73 20 73 74 61 74 65 20 69 73 20 0a 19 85 80 80 63 6f 6e 6e 65 63 74 65 64 ┆. if its state is Ёђђconnected┆
0x0bae0…0bb00 20 6f 72 20 72 65 73 65 74 74 69 6e 67 2c 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 ┆ or resetting, the connection wi┆
0x0bb00…0bb20 6c 6c 20 62 65 20 67 72 61 63 65 66 75 6c 6c 79 20 72 65 6d 6f 80 0a 19 85 80 80 76 65 64 2e 20 ┆ll be gracefully remoђ Ёђђved. ┆
0x0bb20…0bb40 41 6c 6c 20 64 61 74 61 20 74 72 61 6e 73 66 65 72 73 20 66 6f 72 20 77 68 69 63 68 20 63 72 65 ┆All data transfers for which cre┆
0x0bb40…0bb60 64 69 74 20 69 73 20 61 76 61 69 6c 61 62 6c 65 20 61 72 65 20 63 6f 6d 70 6c 65 80 0a 19 85 80 ┆dit is available are compleђ Ёђ┆
0x0bb60…0bb80 80 74 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 6f 75 74 73 74 61 ┆ђted before the remaining outsta┆
0x0bb80…0bba0 6e 64 69 6e 67 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 2e 20 41 74 20 ┆nding messages are returned. At ┆
0x0bba0…0bbc0 0a 19 85 80 80 62 6f 74 68 20 65 6e 64 73 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e ┆ Ёђђboth ends of the connection┆
0x0bbc0…0bbe0 20 61 6c 6c 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 6d 65 73 73 61 67 65 73 20 65 78 63 65 70 74 ┆ all outstanding messages except┆
0x0bbe0…0bc00 20 74 68 65 20 0a 19 85 80 80 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 65 76 65 6e 74 20 6d 65 73 ┆ the Ёђђdisconnected event mes┆
0x0bc00…0bc20 73 61 67 65 73 20 61 72 65 20 74 68 65 6e 20 72 65 74 75 72 6e 65 64 20 61 73 20 64 75 6d 6d 79 ┆sages are then returned as dummy┆
0x0bc20…0bc40 20 65 76 65 6e 74 73 2e 20 0a 19 85 80 80 57 68 69 6c 65 20 74 68 69 73 20 74 61 6b 65 73 20 70 ┆ events. ЁђђWhile this takes p┆
0x0bc40…0bc60 6c 61 63 65 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 20 65 6e 64 2d 70 6f 69 6e 74 20 ┆lace the state of the end-point ┆
0x0bc60…0bc80 69 73 20 64 69 73 63 6f 6e 6e 65 63 80 0a 19 85 80 80 74 69 6e 67 2e 20 46 69 6e 61 6c 6c 79 20 ┆is disconnecђ Ёђђting. Finally ┆
0x0bc80…0bca0 74 68 65 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 65 76 65 6e 74 73 20 6f 63 63 75 72 20 77 69 ┆the disconnected events occur wi┆
0x0bca0…0bcc0 74 68 20 72 65 61 73 6f 6e 5f 6f 6b 2c 20 61 6e 64 20 0a 19 85 80 80 74 68 65 20 73 74 61 74 65 ┆th reason_ok, and Ёђђthe state┆
0x0bcc0…0bce0 20 62 65 63 6f 6d 65 73 20 66 72 65 65 2e 0d 0a 16 73 63 0d 0a 47 65 74 63 6f 6e 6e 65 63 74 69 ┆ becomes free. sc Getconnecti┆
0x0bce0…0bd00 6f 6e 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 67 65 74 63 6f 6e 6e 65 63 74 69 6f 6e be 28 ┆on PROCEDURE ┐▄пgetconnectionЙ(┆
0x0bd00…0bd20 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 0d 0a ┆VAR p: port; index: 1..maxint; ┆
0x0bd20…0bd40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 63 6f 6d 70 6c 2c 20 64 69 73 63 3a 20 72 ┆ VAR compl, disc: r┆
0x0bd40…0bd60 65 66 65 72 65 6e 63 65 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 30 32 ┆eference); Defined in imc3502┆
0x0bd60…0bd80 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 6e 64 ┆env. - ёThe connection end┆
0x0bd80…0bda0 2d 70 6f 69 6e 74 20 69 73 20 6d 61 64 65 20 61 76 61 69 6c 61 62 6c 65 20 66 6f 72 20 72 65 6d ┆-point is made available for rem┆
0x0bda0…0bdc0 6f 74 65 6c 79 20 69 6e 69 74 69 61 74 65 64 20 0a 19 85 80 80 63 6f 6e 6e 65 63 74 69 6f 6e 20 ┆otely initiated Ёђђconnection ┆
0x0bdc0…0bde0 65 73 74 61 62 6c 69 73 68 6d 65 6e 74 2e 20 49 66 20 74 68 65 20 70 6f 72 74 20 69 73 20 63 6c ┆establishment. If the port is cl┆
0x0bde0…0be00 6f 73 65 64 20 6f 72 20 63 6c 6f 73 69 6e 67 20 74 68 65 20 0a 19 85 80 80 6d 65 73 73 61 67 65 ┆osed or closing the Ёђђmessage┆
0x0be00…0be20 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 63 6f 6d 70 6c 20 69 73 20 72 65 74 75 72 6e 65 64 ┆ designated by compl is returned┆
0x0be20…0be40 20 61 73 20 61 20 64 75 6d 6d 79 20 65 76 65 6e 74 20 61 6e 64 20 0a 19 85 80 80 74 68 65 20 6d ┆ as a dummy event and Ёђђthe m┆
0x0be40…0be60 65 73 73 61 67 65 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 64 69 73 63 20 61 73 20 61 20 64 ┆essage designated by disc as a d┆
0x0be60…0be80 69 73 63 6f 6e 6e 65 63 74 65 64 20 65 76 65 6e 74 20 77 69 74 68 20 72 65 80 0a 19 85 80 80 61 ┆isconnected event with reђ Ёђђa┆
0x0be80…0bea0 73 6f 6e 5f 63 6c 6f 73 65 64 2c 20 61 6e 64 20 74 68 65 20 63 61 6c 6c 20 68 61 73 20 6e 6f 20 ┆son_closed, and the call has no ┆
0x0bea0…0bec0 66 75 72 74 68 65 72 20 65 66 66 65 63 74 2e 20 4f 74 68 65 72 77 69 73 65 20 61 20 63 61 6c 6c ┆further effect. Otherwise a call┆
0x0bec0…0bee0 20 0a 19 85 80 80 69 73 20 6f 6e 6c 79 20 70 65 72 6d 69 74 74 65 64 20 69 66 20 74 68 65 20 73 ┆ Ёђђis only permitted if the s┆
0x0bee0…0bf00 74 61 74 65 20 6f 66 20 74 68 65 20 65 6e 64 2d 70 6f 69 6e 74 20 69 73 20 66 72 65 65 2e 20 41 ┆tate of the end-point is free. A┆
0x0bf00…0bf20 66 74 65 72 20 74 68 65 20 0a 19 85 80 80 63 61 6c 6c 20 69 74 20 69 73 20 72 65 6d 6f 74 65 5f ┆fter the Ёђђcall it is remote_┆
0x0bf20…0bf40 61 63 63 65 70 74 2e 20 54 68 65 20 6d 65 73 73 61 67 65 20 64 65 73 69 67 6e 61 74 65 64 20 62 ┆accept. The message designated b┆
0x0bf40…0bf60 79 20 63 6f 6d 70 6c 20 77 69 6c 6c 20 0a 19 85 80 80 62 65 20 72 65 74 75 72 6e 65 64 20 61 73 ┆y compl will Ёђђbe returned as┆
0x0bf60…0bf80 20 61 20 72 65 6d 6f 74 65 5f 63 6f 6e 6e 65 63 74 20 65 76 65 6e 74 20 77 68 65 6e 20 61 20 63 ┆ a remote_connect event when a c┆
0x0bf80…0bfa0 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 0a 19 85 80 80 62 65 65 6e 20 65 73 74 61 62 6c 69 73 ┆onnection has Ёђђbeen establis┆
0x0bfa0…0bfc0 68 65 64 2e 20 54 68 65 20 6d 65 73 73 61 67 65 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 64 ┆hed. The message designated by d┆
0x0bfc0…0bfe0 69 73 63 20 77 69 6c 6c 20 62 65 20 74 68 65 20 0a 19 85 80 80 64 69 73 63 6f 6e 6e 65 63 74 65 ┆isc will be the Ёђђdisconnecte┆
0x0bfe0…0c000 64 20 65 76 65 6e 74 20 6d 65 73 73 61 67 65 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f ┆d event message of the connectio┆
0x0c000…0c020 6e 20 65 6e 64 2d 70 6f 69 6e 74 2e 20 49 74 20 77 69 6c 6c 20 0a 19 85 80 80 62 65 20 6f 75 74 ┆n end-point. It will Ёђђbe out┆
0x0c020…0c040 73 74 61 6e 64 69 6e 67 20 75 6e 74 69 6c 20 74 68 65 20 65 6e 64 2d 70 6f 69 6e 74 20 62 65 63 ┆standing until the end-point bec┆
0x0c040…0c060 6f 6d 65 73 20 66 72 65 65 20 61 67 61 69 6e 2e 0d 0a 16 73 63 0d 0a 47 65 74 63 72 65 64 69 74 ┆omes free again. sc Getcredit┆
0x0c060…0c080 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 67 65 74 63 72 65 64 69 74 be 28 56 41 52 20 70 3a ┆ PROCEDURE ┐▄пgetcreditЙ(VAR p:┆
0x0c080…0c0a0 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 0d 0a 20 20 20 20 20 20 ┆ port; index: 1..maxint; ┆
0x0c0a0…0c0c0 20 20 20 20 20 20 20 20 56 41 52 20 63 72 65 64 6d 65 73 3a 20 72 65 66 65 72 65 6e 63 65 29 3b ┆ VAR credmes: reference);┆
0x0c0c0…0c0e0 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 ┆ Defined in imc3502env. ┆
0x0c0e0…0c100 20 2d 20 84 49 66 20 74 68 65 20 67 65 6e 65 72 61 6c 20 66 6c 6f 77 20 63 6f 6e 74 72 6f 6c 20 ┆ - ёIf the general flow control ┆
0x0c100…0c120 66 65 61 74 75 72 65 20 69 73 20 65 6e 61 62 6c 65 64 20 66 6f 72 20 74 68 65 20 70 6f 72 74 20 ┆feature is enabled for the port ┆
0x0c120…0c140 28 63 66 2e 20 0a 19 85 80 80 6f 70 65 6e 70 6f 72 74 29 20 74 68 65 20 64 65 73 69 67 6e 61 74 ┆(cf. Ёђђopenport) the designat┆
0x0c140…0c160 65 64 20 6d 65 73 73 61 67 65 20 62 65 63 6f 6d 65 73 20 61 6e 20 6f 75 74 73 74 61 6e 64 69 6e ┆ed message becomes an outstandin┆
0x0c160…0c180 67 20 63 72 65 64 69 74 20 0a 19 85 80 80 6d 65 73 73 61 67 65 2e 20 49 74 20 69 73 20 72 65 74 ┆g credit Ёђђmessage. It is ret┆
0x0c180…0c1a0 75 72 6e 65 64 20 61 73 20 61 20 63 72 65 64 69 74 20 65 76 65 6e 74 20 77 68 65 6e 20 74 68 65 ┆urned as a credit event when the┆
0x0c1a0…0c1c0 72 65 20 69 73 20 6f 6e 65 20 6f 72 20 0a 19 85 80 80 6d 6f 72 65 20 6f 75 74 73 74 61 6e 64 69 ┆re is one or Ёђђmore outstandi┆
0x0c1c0…0c1e0 6e 67 20 72 65 63 65 69 76 65 20 6d 65 73 73 61 67 65 73 20 61 74 20 74 68 65 20 72 65 6d 6f 74 ┆ng receive messages at the remot┆
0x0c1e0…0c200 65 20 65 6e 64 20 6f 66 20 74 68 65 20 0a 19 85 80 80 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 ┆e end of the Ёђђconnection for┆
0x0c200…0c220 20 77 68 69 63 68 20 63 72 65 64 69 74 20 68 61 73 20 6e 6f 74 20 62 65 65 6e 20 67 69 76 65 6e ┆ which credit has not been given┆
0x0c220…0c240 20 70 72 65 76 69 6f 75 73 6c 79 2e 20 54 68 65 20 0a 19 85 80 80 6e 75 6d 62 65 72 20 6f 66 20 ┆ previously. The Ёђђnumber of ┆
0x0c240…0c260 73 75 63 68 20 72 65 63 65 69 76 65 20 6d 65 73 73 61 67 65 73 20 69 73 20 70 61 73 73 65 64 20 ┆such receive messages is passed ┆
0x0c260…0c280 61 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 61 74 74 72 69 80 0a 19 85 80 80 62 75 74 65 20 63 ┆as the message attriђ Ёђђbute c┆
0x0c280…0c2a0 72 65 64 69 74 20 63 6f 75 6e 74 2e 20 48 6f 77 65 76 65 72 2c 20 61 20 63 72 65 64 69 74 20 65 ┆redit count. However, a credit e┆
0x0c2a0…0c2c0 76 65 6e 74 20 63 61 6e 20 6f 6e 6c 79 20 6f 63 63 75 72 20 70 72 6f 80 0a 19 85 80 80 76 69 64 ┆vent can only occur proђ Ёђђvid┆
0x0c2c0…0c2e0 65 64 20 74 68 65 72 65 20 69 73 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 6f 75 74 73 74 61 6e ┆ed there is at least one outstan┆
0x0c2e0…0c300 64 69 6e 67 20 72 65 73 65 74 20 69 6e 64 69 63 61 74 69 6f 6e 20 6d 65 73 73 61 67 65 20 0a 19 ┆ding reset indication message ┆
0x0c300…0c320 85 80 80 61 74 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 6e 64 2d 70 6f 69 6e 74 2c 20 ┆Ёђђat the connection end-point, ┆
0x0c320…0c340 63 66 2e 20 67 65 74 72 65 73 65 74 2e 0d 0a 16 73 63 0d 0a 47 65 74 72 65 73 65 74 0d 0a 50 52 ┆cf. getreset. sc Getreset PR┆
0x0c340…0c360 4f 43 45 44 55 52 45 20 bf dc d8 67 65 74 72 65 73 65 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 ┆OCEDURE ┐▄пgetresetЙ(VAR p: port┆
0x0c360…0c380 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆index: 1..maxint; ┆
0x0c380…0c3a0 20 56 41 52 20 69 6e 64 69 63 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 0d 0a 0d 0a 44 65 66 69 6e ┆ VAR indic: reference); Defin┆
0x0c3a0…0c3c0 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 6d ┆ed in imc3502env. - ёThe m┆
0x0c3c0…0c3e0 65 73 73 61 67 65 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 69 6e 64 69 63 20 62 65 63 6f 6d ┆essage designated by indic becom┆
0x0c3e0…0c400 65 73 20 61 6e 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 72 65 80 0a 19 85 80 80 73 65 74 5f 69 6e ┆es an outstanding reђ Ёђђset_in┆
0x0c400…0c420 80 64 69 63 61 74 69 6f 6e 20 65 76 65 6e 74 20 6d 65 73 73 61 67 65 2e 20 54 68 61 74 20 69 73 ┆ђdication event message. That is┆
0x0c420…0c440 2c 20 77 68 65 6e 20 61 20 72 65 73 65 74 20 6f 63 63 75 72 73 20 61 74 20 0a 19 85 80 80 74 68 ┆, when a reset occurs at Ёђђth┆
0x0c440…0c460 65 20 72 65 80 6d 6f 74 65 20 65 6e 64 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 ┆e reђmote end of the connection ┆
0x0c460…0c480 63 61 75 73 69 6e 67 20 6c 6f 73 73 20 6f 66 20 63 72 65 64 69 74 20 74 68 69 73 20 0a 19 85 80 ┆causing loss of credit this Ёђ┆
0x0c480…0c4a0 80 6d 65 73 73 61 67 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 20 72 65 73 65 74 5f ┆ђmessage is returned as a reset_┆
0x0c4a0…0c4c0 69 6e 64 69 63 61 74 69 6f 6e 20 77 69 74 68 20 63 72 65 64 69 74 20 63 6f 75 6e 74 20 65 71 75 ┆indication with credit count equ┆
0x0c4c0…0c4e0 61 6c 20 0a 19 85 80 80 74 6f 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 72 65 64 69 74 73 ┆al Ёђђto the number of credits┆
0x0c4e0…0c500 20 74 68 61 74 20 68 61 76 65 20 62 65 65 6e 20 74 61 6b 65 6e 20 62 61 63 6b 2e 20 41 74 20 6c ┆ that have been taken back. At l┆
0x0c500…0c520 65 61 73 74 20 0a 19 85 80 80 6f 6e 65 20 72 65 80 73 65 80 74 5f 69 6e 64 69 63 61 74 69 6f 6e ┆east Ёђђone reђseђt_indication┆
0x0c520…0c540 20 6d 65 73 73 61 67 65 20 6d 75 73 74 20 62 65 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 62 65 66 ┆ message must be outstanding bef┆
0x0c540…0c560 6f 72 65 20 61 20 63 72 65 64 69 74 20 0a 19 85 80 80 65 76 65 6e 74 20 63 61 6e 20 6f 63 63 75 ┆ore a credit Ёђђevent can occu┆
0x0c560…0c580 72 2c 20 63 66 2e 20 67 65 74 63 72 65 64 69 74 2e 20 54 68 65 72 65 66 6f 72 65 20 61 20 63 61 ┆r, cf. getcredit. Therefore a ca┆
0x0c580…0c5a0 6c 6c 20 6f 66 20 67 65 74 72 65 73 65 74 20 6d 61 79 20 0a 19 85 80 80 74 72 69 67 80 67 65 72 ┆ll of getreset may Ёђђtrigђger┆
0x0c5a0…0c5c0 20 61 20 63 72 65 64 69 74 20 65 76 65 6e 74 2e 0d 0a 16 73 63 0d 0a 47 65 74 6e 61 6d 65 73 0d ┆ a credit event. sc Getnames ┆
0x0c5c0…0c5e0 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 67 65 74 6e 61 6d 65 73 be 28 56 41 52 20 72 3a 20 72 65 ┆ FUNCTION ┐▄пgetnamesЙ(VAR r: re┆
0x0c5e0…0c600 66 65 72 65 6e 63 65 3b 20 69 6d 63 5f 69 64 3a 20 30 2e 2e 6d 61 78 69 6e 74 29 3a 20 69 6e 74 ┆ference; imc_id: 0..maxint): int┆
0x0c600…0c620 65 67 65 72 3b 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 0d 0a 0d 0a 20 20 20 2d ┆eger; Not predefined. -┆
0x0c620…0c640 20 84 45 6e 74 72 69 65 73 20 66 72 6f 6d 20 74 68 65 20 49 4d 43 20 45 6e 64 70 6f 69 6e 74 20 ┆ ёEntries from the IMC Endpoint ┆
0x0c640…0c660 50 6f 72 74 20 74 61 62 6c 65 20 69 64 65 6e 74 69 66 69 65 64 20 62 79 20 69 6d 63 5f 69 64 20 ┆Port table identified by imc_id ┆
0x0c660…0c680 0a 19 85 80 80 61 72 65 20 72 65 74 75 72 6e 65 64 20 61 73 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 ┆ Ёђђare returned as components ┆
0x0c680…0c6a0 69 6e 20 74 68 65 20 64 61 74 61 20 61 72 65 61 20 6f 66 20 74 68 65 20 64 65 73 69 67 6e 61 74 ┆in the data area of the designat┆
0x0c6a0…0c6c0 65 64 20 0a 19 85 80 80 6d 65 73 73 61 67 65 2e 20 54 68 65 20 61 63 74 75 61 6c 20 6e 75 6d 62 ┆ed Ёђђmessage. The actual numb┆
0x0c6c0…0c6e0 65 72 20 6f 66 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 20 61 73 ┆er of components are returned as┆
0x0c6e0…0c700 20 74 68 65 20 0a 19 85 80 80 66 75 6e 63 74 69 6f 6e 20 72 65 73 75 6c 74 2e 20 54 68 65 20 74 ┆ the Ёђђfunction result. The t┆
0x0c700…0c720 79 70 65 20 6f 66 20 74 68 65 20 63 6f 6d 70 6f 6e 65 6e 74 20 69 73 3a 0d 0a 0d 0a 09 09 52 45 ┆ype of the component is: RE┆
0x0c720…0c740 43 4f 52 44 0d 0a 20 09 20 09 20 20 6e 61 6d 65 3a 20 61 6c 66 61 3b 0d 0a 09 09 20 20 73 63 6f ┆CORD name: alfa; sco┆
0x0c740…0c760 70 65 3a 20 62 79 74 65 3b 0d 0a 09 09 20 20 73 74 61 74 65 3a 20 62 79 74 65 3b 0d 0a 09 09 20 ┆pe: byte; state: byte; ┆
0x0c760…0c780 20 61 6c 69 61 73 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 09 09 20 20 63 68 61 69 6e 78 3a 20 69 6e ┆ alias: integer; chainx: in┆
0x0c780…0c7a0 74 65 67 65 72 3b 0d 0a 09 09 20 20 6e 65 78 74 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 09 09 20 20 ┆teger; next: integer; ┆
0x0c7a0…0c7c0 70 61 74 68 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 09 09 20 20 73 75 62 3a 20 62 79 74 65 3b 0d 0a ┆path: integer; sub: byte; ┆
0x0c7c0…0c7e0 09 09 45 4e 44 0d 0a 16 53 43 0d 0a 48 6f 6d 65 74 65 73 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf ┆ END SC Hometest FUNCTION ┐┆
0x0c7e0…0c800 dc d8 68 6f 6d 65 74 65 73 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 ┆▄пhometestЙ(VAR r: reference; VA┆
0x0c800…0c820 52 20 70 3a 20 70 6f 6f 6c 29 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e ┆R p: pool): boolean; Predefin┆
0x0c820…0c840 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 ┆ed. - ёreturns the value ┆
0x0c840…0c860 74 72 75 65 2c 20 69 66 20 74 68 65 20 6d 65 73 73 61 67 65 20 72 65 66 65 72 65 6e 63 65 64 20 ┆true, if the message referenced ┆
0x0c860…0c880 62 79 20 27 72 27 20 6f 72 69 80 0a 19 85 80 80 67 69 6e 61 74 65 73 20 66 72 6f 6d 20 74 68 65 ┆by 'r' oriђ Ёђђginates from the┆
0x0c880…0c8a0 20 70 6f 6f 6c 20 27 70 27 2c 20 6f 74 68 65 72 77 69 73 65 20 66 61 6c 73 65 2e 20 0d 0a 0d 0a ┆ pool 'p', otherwise false. ┆
0x0c8a0…0c8c0 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 20 74 68 65 20 72 65 66 65 72 ┆An exception occurs if the refer┆
0x0c8c0…0c8e0 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 69 6c 2e 20 0d 0a 8c a4 f2 0a 16 73 63 0d ┆ence variable is nil. їцЫ sc ┆
0x0c8e0…0c900 0a 49 6d 63 65 78 69 73 74 73 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 69 6d 63 65 78 69 73 74 ┆ Imcexists FUNCTION ┐▄пimcexist┆
0x0c900…0c920 73 be 28 69 6d 63 5f 69 64 3a 20 30 2e 2e 6d 61 78 69 6e 74 29 3a 20 62 6f 6f 6c 65 61 6e 3b 0d ┆sЙ(imc_id: 0..maxint): boolean; ┆
0x0c920…0c940 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 ┆ Defined in imc3502env. ┆
0x0c940…0c960 2d 20 84 52 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 74 72 75 65 20 69 66 20 74 68 65 ┆- ёReturns the value true if the┆
0x0c960…0c980 20 49 4d 43 20 6e 65 74 20 69 64 65 6e 74 69 66 69 65 64 20 62 79 20 69 6d 63 5f 69 64 20 69 73 ┆ IMC net identified by imc_id is┆
0x0c980…0c9a0 20 0a 19 85 80 80 61 76 61 69 6c 61 62 6c 65 2c 20 6f 74 68 65 72 77 69 73 65 20 66 61 6c 73 65 ┆ Ёђђavailable, otherwise false┆
0x0c9a0…0c9c0 2e 20 42 79 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 49 4d 43 20 6e 65 74 20 30 20 69 73 20 74 68 65 ┆. By convention IMC net 0 is the┆
0x0c9c0…0c9e0 20 64 65 67 65 80 0a 19 85 80 80 6e 65 72 61 74 65 64 20 49 4d 43 20 6e 65 74 20 77 69 74 68 20 ┆ degeђ Ёђђnerated IMC net with ┆
0x0c9e0…0ca00 6e 6f 20 70 68 79 73 69 63 61 6c 20 6e 65 74 77 6f 72 6b 2e 20 49 4d 43 20 6e 65 74 20 31 20 69 ┆no physical network. IMC net 1 i┆
0x0ca00…0ca20 73 20 74 68 65 20 0a 19 85 80 80 6e 65 74 80 77 6f 72 6b 20 61 63 63 65 73 73 69 62 6c 65 20 76 ┆s the Ёђђnetђwork accessible v┆
0x0ca20…0ca40 69 61 20 4c 41 4e 20 63 6f 6e 74 72 6f 6c 6c 65 72 20 6e 75 6d 62 65 72 20 6f 6e 65 2c 20 49 4d ┆ia LAN controller number one, IM┆
0x0ca40…0ca60 43 20 6e 65 74 20 32 20 69 73 20 0a 19 85 80 80 74 68 65 20 6e 65 74 77 6f 72 6b 20 61 63 63 65 ┆C net 2 is Ёђђthe network acce┆
0x0ca60…0ca80 73 73 69 62 6c 65 20 76 69 61 20 4c 41 4e 20 63 6f 6e 74 72 6f 6c 6c 65 72 20 6e 75 6d 62 65 72 ┆ssible via LAN controller number┆
0x0ca80…0caa0 20 74 77 6f 2c 20 65 74 63 2e 0d 0a 16 73 63 0d 0a 49 6e 69 74 70 6f 72 74 0d 0a 50 52 4f 43 45 ┆ two, etc. sc Initport PROCE┆
0x0caa0…0cac0 44 55 52 45 20 bf dc d8 69 6e 69 74 70 6f 72 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 ┆DURE ┐▄пinitportЙ(VAR p: port; i┆
0x0cac0…0cae0 6d 63 5f 69 64 3a 20 30 2e 2e 6d 61 78 69 6e 74 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e ┆mc_id: 0..maxint); Defined in┆
0x0cae0…0cb00 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 49 6e 69 74 69 61 6c 69 7a 65 ┆ imc3502env. - ёInitialize┆
0x0cb00…0cb20 73 20 74 68 65 20 70 6f 72 74 20 66 6f 72 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 73 20 76 69 ┆s the port for communications vi┆
0x0cb20…0cb40 61 20 74 68 65 20 49 4d 43 20 6e 65 74 20 69 64 65 6e 74 69 80 0a 19 85 80 80 66 69 65 64 20 62 ┆a the IMC net identiђ Ёђђfied b┆
0x0cb40…0cb60 79 20 69 6d 63 5f 69 64 2e 20 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 64 75 6d 6d 79 ┆y imc_id. The procedure is dummy┆
0x0cb60…0cb80 20 69 66 20 69 6d 63 5f 69 64 20 69 73 20 67 72 65 61 80 74 65 72 20 0a 19 85 80 80 74 68 61 6e ┆ if imc_id is greaђter Ёђђthan┆
0x0cb80…0cba0 20 74 68 65 20 63 6f 6e 73 74 61 6e 74 20 6d 61 78 5f 69 6d 63 5f 69 64 2e 0d 0a 0d 0a 54 68 65 ┆ the constant max_imc_id. The┆
0x0cba0…0cbc0 20 70 6f 72 74 20 6d 75 73 74 20 62 65 20 63 6c 6f 73 65 64 2c 20 6f 74 68 65 72 77 69 73 65 20 ┆ port must be closed, otherwise ┆
0x0cbc0…0cbe0 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 0d 0a 16 53 43 0d 0a 4c 6f 63 6b 65 ┆an exception occurs. SC Locke┆
0x0cbe0…0cc00 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6c 6f 63 6b 65 64 be 28 56 41 52 20 6d 62 78 3a 20 ┆d FUNCTION ┐▄пlockedЙ(VAR mbx: ┆
0x0cc00…0cc20 6d 61 69 6c 62 6f 78 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 ┆mailbox): boolean; Predefine┆
0x0cc20…0cc40 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 74 ┆d. - ёreturns the value t┆
0x0cc40…0cc60 72 75 65 2c 20 69 66 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 69 73 20 6c 6f 63 6b 65 64 20 28 63 ┆rue, if the mailbox is locked (c┆
0x0cc60…0cc80 66 2e 20 52 54 50 2d 39 2e 32 2e 31 29 2c 20 0a 19 85 80 80 6f 74 68 65 72 77 69 73 65 20 66 61 ┆f. RTP-9.2.1), Ёђђotherwise fa┆
0x0cc80…0cca0 6c 73 65 2e 20 0d 0a 16 53 43 0d 0a 4c 6f 63 6b 74 65 73 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf ┆lse. SC Locktest FUNCTION ┐┆
0x0cca0…0ccc0 dc d8 6c 6f 63 6b 74 65 73 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 62 ┆▄пlocktestЙ(VAR r: reference): b┆
0x0ccc0…0cce0 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 8c 85 ┆oolean; Not predefined. їЁ┆
0x0cce0…0cd00 e8 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 74 72 75 65 ┆У - ёreturns the value true┆
0x0cd00…0cd20 20 69 66 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6c 6f ┆ if the reference variable is lo┆
0x0cd20…0cd40 63 6b 65 64 2c 20 0a 19 85 80 80 6f 74 68 65 72 77 69 73 65 20 66 61 6c 73 65 2e 20 0d 0a 16 73 ┆cked, Ёђђotherwise false. s┆
0x0cd40…0cd60 63 0d 0a 4d 61 73 6b 6e 61 6d 65 73 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6d 61 73 6b 6e ┆c Masknames PROCEDURE ┐▄пmaskn┆
0x0cd60…0cd80 61 6d 65 73 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 6d 61 73 6b ┆amesЙ(VAR r: reference; VAR mask┆
0x0cd80…0cda0 3a 20 21 61 6c 66 61 33 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6d 63 5f 69 64 3a ┆: !alfa3; imc_id:┆
0x0cda0…0cdc0 20 30 2e 2e 6d 61 78 69 6e 74 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 ┆ 0..maxint); Defined in imc35┆
0x0cdc0…0cde0 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 50 6f 72 74 73 20 77 69 74 68 20 6e 61 6d 65 20 ┆02env. - ёPorts with name ┆
0x0cde0…0ce00 61 74 74 72 69 62 75 74 65 20 65 71 75 61 6c 20 74 6f 20 6d 61 73 6b 20 61 73 20 74 68 65 20 6c ┆attribute equal to mask as the l┆
0x0ce00…0ce20 61 73 74 20 74 68 72 65 65 20 63 68 61 80 0a 19 85 80 80 72 61 63 80 74 65 72 73 20 61 72 65 20 ┆ast three chaђ Ёђђracђters are ┆
0x0ce20…0ce40 72 65 74 75 72 6e 65 64 20 61 73 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 6f 66 20 74 79 70 65 20 6d ┆returned as components of type m┆
0x0ce40…0ce60 61 73 6b 6e 61 6d 65 73 5f 74 20 69 6e 20 74 68 65 20 0a 19 85 80 80 64 61 74 61 20 61 72 65 61 ┆asknames_t in the Ёђђdata area┆
0x0ce60…0ce80 20 6f 66 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 2e 20 54 68 65 20 ┆ of the designated message. The ┆
0x0ce80…0cea0 61 63 74 75 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6d 80 0a 19 85 80 80 70 6f 6e 65 6e 74 ┆actual number of comђ Ёђђponent┆
0x0cea0…0cec0 73 20 6d 61 79 20 62 65 20 63 61 6c 63 75 6c 61 74 65 64 20 66 72 6f 6d 20 62 79 74 65 63 6f 75 ┆s may be calculated from bytecou┆
0x0cec0…0cee0 6e 74 2e 20 54 68 65 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 61 72 65 20 0a 19 85 80 80 6f 72 64 65 ┆nt. The components are Ёђђorde┆
0x0cee0…0cf00 72 65 64 20 69 6e 20 61 6c 70 68 61 62 65 74 69 63 20 6f 72 64 65 72 2e 20 4f 6e 6c 79 20 70 6f ┆red in alphabetic order. Only po┆
0x0cf00…0cf20 72 74 73 20 6f 6e 20 74 68 65 20 49 4d 43 20 6e 65 74 20 69 64 65 6e 74 69 80 0a 19 85 80 80 66 ┆rts on the IMC net identiђ Ёђђf┆
0x0cf20…0cf40 69 65 64 20 62 79 20 69 6d 63 5f 69 64 20 61 72 65 20 72 65 74 75 72 6e 65 64 2e 0d 0a 16 53 43 ┆ied by imc_id are returned. SC┆
0x0cf40…0cf60 0d 0a 4e 61 6d 65 6d 61 69 6c 62 6f 78 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6e 61 6d 65 6d ┆ Namemailbox FUNCTION ┐▄пnamem┆
0x0cf60…0cf80 61 69 6c 62 6f 78 be 28 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 3b 20 49 4e 53 50 45 43 54 20 ┆ailboxЙ(VAR m: mailbox; INSPECT ┆
0x0cf80…0cfa0 6d 5f 6e 61 6d 65 3a 20 61 6c 66 61 29 3a 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e ┆m_name: alfa): in┆
0x0cfa0…0cfc0 74 65 67 65 72 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 0d ┆teger; Defined in rc3502env. ┆
0x0cfc0…0cfe0 0a 0d 0a 20 20 20 2d 20 84 43 61 74 61 6c 6f 67 75 65 73 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 ┆ - ёCatalogues the mailbox ┆
0x0cfe0…0d000 75 6e 64 65 72 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6e 61 6d 65 2e 20 0d 0a 0d 0a 0e 0a ┆under the specified name. ┆
0x0d000…0d020 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 84 ┆Results Meaning 0 ё┆
0x0d020…0d040 4f 4b 2c 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 69 73 20 63 61 74 61 6c 6f 67 75 65 64 20 75 6e ┆OK, the mailbox is catalogued un┆
0x0d040…0d060 64 65 72 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6e 61 6d 65 2e 0d 0a 20 20 20 20 31 20 20 ┆der the specified name. 1 ┆
0x0d060…0d080 20 20 84 4f 76 65 72 6c 61 70 2c 20 61 20 6d 61 69 6c 62 6f 78 20 69 73 20 61 6c 72 65 61 64 79 ┆ ёOverlap, a mailbox is already┆
0x0d080…0d0a0 20 63 61 74 61 6c 6f 67 75 65 64 20 75 6e 64 65 72 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 ┆ catalogued under the specified ┆
0x0d0a0…0d0c0 0a 19 89 80 80 6e 61 6d 65 2e 0d 0a 20 20 20 20 32 20 20 20 20 84 4e 6f 20 72 65 73 6f 75 72 63 ┆ Ѕђђname. 2 ёNo resourc┆
0x0d0c0…0d0e0 65 73 2c 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 63 61 6e 6e 6f 74 20 62 65 20 63 61 74 61 6c 6f ┆es, the mailbox cannot be catalo┆
0x0d0e0…0d100 67 75 65 64 20 62 65 63 61 75 73 65 20 6f 66 20 0a 19 89 80 80 6c 61 63 6b 20 6f 66 20 6d 65 6d ┆gued because of Ѕђђlack of mem┆
0x0d100…0d120 6f 72 79 20 72 65 73 6f 75 72 63 65 73 2e 20 0d 0a 0f 0a 16 53 43 0d 0a 4e 69 6c 0d 0a 46 55 4e ┆ory resources. SC Nil FUN┆
0x0d120…0d140 43 54 49 4f 4e 20 bf dc d8 6e 69 6c be 28 56 41 52 20 70 3a 20 6e 69 6c 74 79 70 65 29 3a 20 62 ┆CTION ┐▄пnilЙ(VAR p: niltype): b┆
0x0d140…0d160 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d ┆oolean; Predefined. -┆
0x0d160…0d180 20 84 72 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 74 72 75 65 2c 20 69 66 20 74 68 65 ┆ ёreturns the value true, if the┆
0x0d180…0d1a0 20 70 61 72 61 6d 65 74 65 72 20 70 20 69 73 20 6e 69 6c 2c 20 6f 74 68 65 72 77 69 73 65 20 0a ┆ parameter p is nil, otherwise ┆
0x0d1a0…0d1c0 19 85 80 80 66 61 6c 73 65 2e 20 27 4e 69 6c 74 79 70 65 27 20 6d 61 79 20 62 65 20 74 68 65 20 ┆ Ёђђfalse. 'Niltype' may be the ┆
0x0d1c0…0d1e0 74 79 70 65 73 20 72 65 66 65 72 65 6e 63 65 2c 20 70 72 6f 63 65 73 73 2c 20 6f 72 20 61 6e 79 ┆types reference, process, or any┆
0x0d1e0…0d200 20 70 6f 80 0a 19 85 80 80 69 6e 74 65 72 20 74 79 70 65 2e 20 0d 0a 16 53 43 0d 0a 4f 70 65 6e ┆ poђ Ёђђinter type. SC Open┆
0x0d200…0d220 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6f 70 65 6e be 28 56 41 52 20 6d 62 78 3a 20 6d 61 69 ┆ FUNCTION ┐▄пopenЙ(VAR mbx: mai┆
0x0d220…0d240 6c 62 6f 78 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 ┆lbox): boolean; Predefined. ┆
0x0d240…0d260 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 74 72 75 65 ┆ - ёreturns the value true┆
0x0d260…0d280 2c 20 69 66 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 69 73 20 6f 70 65 6e 20 28 63 66 2e 20 52 54 ┆, if the mailbox is open (cf. RT┆
0x0d280…0d2a0 50 2d 39 2e 32 2e 31 29 2c 20 0a 19 85 80 80 6f 74 68 65 72 77 69 73 65 20 66 61 6c 73 65 2e 20 ┆P-9.2.1), Ёђђotherwise false. ┆
0x0d2a0…0d2c0 0d 0a 16 73 63 0d 0a 4f 70 65 6e 70 6f 72 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 70 ┆ sc Openport PROCEDURE ┐▄пop┆
0x0d2c0…0d2e0 65 6e 70 6f 72 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 56 41 52 20 6d 65 73 3a 20 72 65 ┆enportЙ(VAR p: port; VAR mes: re┆
0x0d2e0…0d300 66 65 72 65 6e 63 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 53 50 45 43 54 20 ┆ference; INSPECT ┆
0x0d300…0d320 6e 61 6d 65 3a 20 61 6c 66 61 3b 20 73 63 6f 70 65 3a 20 73 63 6f 70 65 5f 74 79 70 65 3b 0d 0a ┆name: alfa; scope: scope_type; ┆
0x0d320…0d340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 5f 6f 66 5f 63 6f 6e 6e 73 3a 20 30 2e 2e 6d 61 ┆ no_of_conns: 0..ma┆
0x0d340…0d360 78 69 6e 74 3b 20 63 6e 74 72 6c 3a 20 63 6f 6e 74 72 6f 6c 5f 74 79 70 65 29 3b 0d 0a 0d 0a 44 ┆xint; cntrl: control_type); D┆
0x0d360…0d380 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 54 ┆efined in imc3502env. - ёT┆
0x0d380…0d3a0 68 65 20 70 6f 72 74 20 69 73 20 6f 70 65 6e 65 64 20 77 69 74 68 20 74 68 65 20 61 74 74 72 69 ┆he port is opened with the attri┆
0x0d3a0…0d3c0 62 75 74 65 73 20 73 65 74 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 70 61 80 0a 19 ┆butes set according to the paђ ┆
0x0d3c0…0d3e0 85 80 80 72 61 6d 65 74 65 72 20 76 61 6c 75 65 73 2e 20 54 68 65 20 70 61 72 61 6d 65 74 65 72 ┆Ёђђrameter values. The parameter┆
0x0d3e0…0d400 20 6d 65 73 20 64 65 73 69 67 6e 61 74 65 73 20 74 68 65 20 70 6f 72 74 5f 63 6c 6f 73 65 64 20 ┆ mes designates the port_closed ┆
0x0d400…0d420 0a 19 85 80 80 65 76 65 6e 74 20 6d 65 73 73 61 67 65 20 77 68 69 63 68 20 77 69 6c 6c 20 62 65 ┆ Ёђђevent message which will be┆
0x0d420…0d440 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 77 68 69 6c 65 20 74 68 65 20 70 6f 72 74 20 69 73 20 6f ┆ outstanding while the port is o┆
0x0d440…0d460 70 65 6e 2e 20 0a 19 85 80 80 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 ┆pen. ЁђђAn exception occurs if┆
0x0d460…0d480 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 71 75 65 73 74 65 64 20 63 6f 6e 6e 65 63 74 ┆ the number of requested connect┆
0x0d480…0d4a0 69 6f 6e 20 65 6e 64 2d 0a 19 85 80 80 70 6f 69 6e 74 73 20 69 73 20 67 72 65 61 74 65 72 20 74 ┆ion end- Ёђђpoints is greater t┆
0x0d4a0…0d4c0 68 61 6e 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 61 6c 6c 6f 77 65 64 20 28 63 66 2e 20 6d 61 78 ┆han the maximum allowed (cf. max┆
0x0d4c0…0d4e0 63 6f 6e 6e 65 63 80 80 0a 19 85 80 80 74 69 6f 6e 73 29 2c 20 6f 72 20 69 66 20 74 68 65 20 70 ┆connecђђ Ёђђtions), or if the p┆
0x0d4e0…0d500 6f 72 74 20 69 73 20 6e 6f 74 20 63 6c 6f 73 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 63 61 6c ┆ort is not closed before the cal┆
0x0d500…0d520 6c 2e 20 54 68 65 20 67 65 6e 65 72 61 6c 20 0a 19 85 80 80 72 65 63 65 69 76 65 20 66 65 61 74 ┆l. The general Ёђђreceive feat┆
0x0d520…0d540 75 72 65 20 61 6e 64 20 74 68 65 20 67 65 6e 65 72 61 6c 20 66 6c 6f 77 20 63 6f 6e 74 72 6f 6c ┆ure and the general flow control┆
0x0d540…0d560 20 66 65 61 74 75 72 65 20 69 73 20 65 6e 80 61 62 6c 65 64 20 0a 19 85 80 80 6f 72 20 64 69 73 ┆ feature is enђabled Ёђђor dis┆
0x0d560…0d580 61 62 6c 65 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 ┆abled according to the value of ┆
0x0d580…0d5a0 74 68 65 20 63 6e 74 72 6c 20 70 61 72 61 6d 65 74 65 72 20 28 63 66 2e 20 0a 19 85 80 80 52 54 ┆the cntrl parameter (cf. ЁђђRT┆
0x0d5a0…0d5c0 50 2d 31 31 29 2e 0d 0a 16 53 43 0d 0a 50 61 73 73 69 76 65 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf ┆P-11). SC Passive FUNCTION ┐┆
0x0d5c0…0d5e0 dc d8 70 61 73 73 69 76 65 be 28 56 41 52 20 6d 62 78 3a 20 6d 61 69 6c 62 6f 78 29 3a 20 62 6f ┆▄пpassiveЙ(VAR mbx: mailbox): bo┆
0x0d5e0…0d600 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 ┆olean; Predefined. - ┆
0x0d600…0d620 84 72 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 74 72 75 65 2c 20 69 66 20 74 68 65 20 ┆ёreturns the value true, if the ┆
0x0d620…0d640 6d 61 69 6c 62 6f 78 20 69 73 20 70 61 73 73 69 76 65 20 28 63 66 2e 20 52 54 50 2d 39 2e 32 2e ┆mailbox is passive (cf. RTP-9.2.┆
0x0d640…0d660 31 29 2c 20 0a 19 85 80 80 6f 74 68 65 72 77 69 73 65 20 66 61 6c 73 65 2e 20 0d 0a 16 73 63 0d ┆1), Ёђђotherwise false. sc ┆
0x0d660…0d680 0a 52 65 63 65 69 76 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 72 65 63 65 69 76 65 be 28 ┆ Receive PROCEDURE ┐▄пreceiveЙ(┆
0x0d680…0d6a0 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 20 0d ┆VAR p: port; index: 1..maxint; ┆
0x0d6a0…0d6c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 6d 65 73 3a 20 72 65 66 65 72 65 6e 63 ┆ VAR mes: referenc┆
0x0d6c0…0d6e0 65 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d ┆e); Defined in imc3502env. ┆
0x0d6e0…0d700 0a 20 20 20 2d 20 84 54 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 20 69 73 ┆ - ёThe designated message is┆
0x0d700…0d720 20 6d 61 64 65 20 61 6e 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 72 65 63 65 69 76 65 20 6d 65 73 ┆ made an outstanding receive mes┆
0x0d720…0d740 73 61 67 65 20 0a 19 85 80 80 66 6f 72 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 63 6f 6e 6e ┆sage Ёђђfor the specified conn┆
0x0d740…0d760 65 63 74 69 6f 6e 20 28 70 2c 20 69 6e 64 65 78 29 2e 20 57 68 65 6e 20 61 20 75 6e 69 74 20 6f ┆ection (p, index). When a unit o┆
0x0d760…0d780 66 20 64 61 74 61 20 68 61 73 20 0a 19 85 80 80 62 65 65 6e 20 74 72 61 6e 73 66 65 72 72 65 64 ┆f data has Ёђђbeen transferred┆
0x0d780…0d7a0 20 66 72 6f 6d 20 61 20 72 65 6d 6f 74 65 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 74 6f 20 74 ┆ from a remote send message to t┆
0x0d7a0…0d7c0 68 65 20 72 65 63 65 69 76 65 20 0a 19 85 80 80 6d 65 73 73 61 67 65 20 74 68 65 20 6c 61 74 74 ┆he receive Ёђђmessage the latt┆
0x0d7c0…0d7e0 65 72 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 20 64 61 74 61 5f 61 72 72 69 76 65 64 ┆er is returned as a data_arrived┆
0x0d7e0…0d800 20 6f 72 20 64 61 74 61 5f 6f 76 65 72 72 75 6e 20 0a 19 85 80 80 65 76 65 6e 74 2c 20 64 65 70 ┆ or data_overrun Ёђђevent, dep┆
0x0d800…0d820 65 6e 64 69 6e 67 20 6f 6e 20 77 68 65 74 68 65 72 20 74 68 65 20 72 65 63 65 69 76 65 64 20 64 ┆ending on whether the received d┆
0x0d820…0d840 61 74 61 20 75 6e 69 74 20 68 61 64 20 74 6f 20 62 65 20 0a 19 85 80 80 74 72 75 6e 63 61 74 65 ┆ata unit had to be Ёђђtruncate┆
0x0d840…0d860 64 20 74 6f 20 66 69 74 20 69 6e 74 6f 20 74 68 65 20 72 65 63 65 69 76 65 20 64 61 74 61 20 61 ┆d to fit into the receive data a┆
0x0d860…0d880 72 65 61 2e 0d 0a 16 73 63 0d 0a 52 65 63 65 69 76 65 61 6c 6c 0d 0a 50 52 4f 43 45 44 55 52 45 ┆rea. sc Receiveall PROCEDURE┆
0x0d880…0d8a0 20 bf dc d8 72 65 63 65 69 76 65 61 6c 6c be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 56 41 52 ┆ ┐▄пreceiveallЙ(VAR p: port; VAR┆
0x0d8a0…0d8c0 20 6d 65 73 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 ┆ mes: reference); Defined in ┆
0x0d8c0…0d8e0 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 67 65 6e 65 ┆imc3502env. - ёIf the gene┆
0x0d8e0…0d900 72 61 6c 20 72 65 63 65 69 76 65 20 66 65 61 74 75 72 65 20 69 73 20 65 6e 61 62 6c 65 64 20 66 ┆ral receive feature is enabled f┆
0x0d900…0d920 6f 72 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 70 6f 72 74 20 0a 19 85 80 80 28 63 66 2e ┆or the designated port Ёђђ(cf.┆
0x0d920…0d940 20 74 68 65 20 63 6e 74 72 6c 20 70 61 72 61 6d 65 74 65 72 20 6f 66 20 6f 70 65 6e 70 6f 72 74 ┆ the cntrl parameter of openport┆
0x0d940…0d960 29 20 74 68 65 20 6d 65 73 73 61 67 65 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 0a 19 85 80 ┆) the message designated by Ёђ┆
0x0d960…0d980 80 6d 65 73 20 69 73 20 64 65 6c 69 76 65 72 65 64 20 74 6f 20 74 68 65 20 49 4d 43 20 61 73 20 ┆ђmes is delivered to the IMC as ┆
0x0d980…0d9a0 61 20 67 65 6e 65 72 61 6c 20 72 65 63 65 69 76 65 20 6d 65 73 73 61 67 65 20 66 6f 72 20 0a 19 ┆a general receive message for ┆
0x0d9a0…0d9c0 85 80 80 74 68 65 20 77 68 6f 80 6c 65 20 70 6f 72 74 2c 20 6e 6f 74 20 64 65 64 69 63 61 74 65 ┆Ёђђthe whoђle port, not dedicate┆
0x0d9c0…0d9e0 64 20 74 6f 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 49 66 ┆d to a particular connection. If┆
0x0d9e0…0da00 20 74 68 65 20 0a 19 85 80 80 70 6f 72 74 20 69 73 20 63 6c 6f 73 65 64 20 6f 72 20 63 6c 6f 73 ┆ the Ёђђport is closed or clos┆
0x0da00…0da20 69 6e 67 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 ┆ing the message is returned as a┆
0x0da20…0da40 20 64 75 6d 6d 79 20 0a 19 85 80 80 65 76 65 6e 74 2e 20 49 66 20 74 68 65 20 67 65 6e 65 72 61 ┆ dummy Ёђђevent. If the genera┆
0x0da40…0da60 6c 20 72 65 63 65 69 76 65 20 66 65 61 74 75 72 65 20 69 73 20 6e 6f 74 20 65 6e 61 62 6c 65 64 ┆l receive feature is not enabled┆
0x0da60…0da80 20 61 6e 20 65 78 63 65 70 80 0a 19 85 80 80 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 54 68 65 20 ┆ an excepђ Ёђђtion occurs. The ┆
0x0da80…0daa0 6d 65 73 73 61 67 65 20 77 69 6c 6c 20 65 76 65 6e 74 75 61 6c 6c 79 20 62 65 20 72 65 74 75 72 ┆message will eventually be retur┆
0x0daa0…0dac0 6e 65 64 20 61 73 20 64 61 74 61 5f 61 72 80 0a 19 85 80 80 72 69 76 65 64 20 6f 72 20 64 61 74 ┆ned as data_arђ Ёђђrived or dat┆
0x0dac0…0dae0 61 5f 6f 76 65 72 72 75 6e 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 77 68 65 74 68 65 72 20 ┆a_overrun, depending on whether ┆
0x0dae0…0db00 74 68 65 20 72 65 63 65 69 76 65 64 20 64 61 74 61 20 0a 19 85 80 80 75 6e 69 74 20 68 61 64 20 ┆the received data Ёђђunit had ┆
0x0db00…0db20 74 6f 20 62 65 20 74 72 75 6e 63 61 74 65 64 20 74 6f 20 66 69 74 20 69 6e 74 6f 20 74 68 65 20 ┆to be truncated to fit into the ┆
0x0db20…0db40 72 65 63 65 69 76 65 20 64 61 74 61 20 61 72 65 61 2e 20 54 68 65 20 0a 19 85 80 80 69 6e 64 65 ┆receive data area. The Ёђђinde┆
0x0db40…0db60 78 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 6e 64 2d 70 6f 69 6e 74 20 74 6f ┆x of the connection end-point to┆
0x0db60…0db80 20 77 68 69 63 68 20 74 68 65 20 64 61 74 61 20 62 65 6c 6f 6e 67 20 77 69 6c 6c 20 0a 19 85 80 ┆ which the data belong will Ёђ┆
0x0db80…0dba0 80 62 65 20 61 6e 20 61 74 74 72 69 62 75 74 65 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 2e ┆ђbe an attribute of the message.┆
0x0dba0…0dbc0 0d 0a 16 73 63 0d 0a 52 65 73 65 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 72 65 73 65 74 ┆ sc Reset PROCEDURE ┐▄пreset┆
0x0dbc0…0dbe0 be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b ┆Й(VAR p: port; index: 1..maxint;┆
0x0dbe0…0dc00 20 56 41 52 20 6d 65 73 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 ┆ VAR mes: reference); Defined┆
0x0dc00…0dc20 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 41 6c 6c 20 64 61 74 ┆ in imc3502env. - ёAll dat┆
0x0dc20…0dc40 61 20 61 6e 64 20 63 72 65 64 69 74 20 6d 65 73 73 61 67 65 73 20 77 68 69 63 68 20 61 72 65 20 ┆a and credit messages which are ┆
0x0dc40…0dc60 6f 75 74 73 74 61 6e 64 69 6e 67 20 61 74 20 61 6e 20 65 6e 64 2d 0a 19 85 80 80 70 6f 69 6e 74 ┆outstanding at an end- Ёђђpoint┆
0x0dc60…0dc80 20 6f 66 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 70 2c ┆ of the specified connection (p,┆
0x0dc80…0dca0 20 69 6e 64 65 78 29 20 61 72 65 20 74 61 6b 65 6e 20 62 61 63 6b 2e 20 41 6c 6c 20 0a 19 85 80 ┆ index) are taken back. All Ёђ┆
0x0dca0…0dcc0 80 64 61 74 61 20 74 72 61 6e 73 66 65 72 73 20 66 6f 72 20 77 68 69 63 68 20 63 72 65 64 69 74 ┆ђdata transfers for which credit┆
0x0dcc0…0dce0 20 69 73 20 61 76 61 69 6c 61 62 6c 65 20 61 72 65 20 63 61 72 72 69 65 64 20 6f 75 74 20 66 69 ┆ is available are carried out fi┆
0x0dce0…0dd00 72 73 74 2e 20 0a 19 85 80 80 54 68 65 6e 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 64 61 74 ┆rst. ЁђђThen the remaining dat┆
0x0dd00…0dd20 61 20 61 6e 64 20 63 72 65 64 69 74 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 72 65 74 75 72 6e ┆a and credit messages are return┆
0x0dd20…0dd40 65 64 20 61 73 20 0a 19 85 80 80 64 75 6d 6d 79 20 65 76 65 6e 74 73 2e 20 46 6f 6c 6c 6f 77 69 ┆ed as Ёђђdummy events. Followi┆
0x0dd40…0dd60 6e 67 20 61 20 63 61 6c 6c 20 6f 66 20 72 65 73 65 74 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 ┆ng a call of reset the state of ┆
0x0dd60…0dd80 74 68 65 20 63 6f 6e 80 0a 19 85 80 80 6e 65 63 74 69 6f 6e 20 65 6e 64 2d 70 6f 69 6e 74 20 77 ┆the conђ Ёђђnection end-point w┆
0x0dd80…0dda0 69 6c 6c 20 62 65 20 72 65 73 65 74 74 69 6e 67 2e 20 54 68 65 20 6d 65 73 73 61 67 65 20 64 65 ┆ill be resetting. The message de┆
0x0dda0…0ddc0 73 69 67 6e 61 74 65 64 20 62 79 20 0a 19 85 80 80 6d 65 73 20 69 73 20 74 68 65 20 72 65 73 65 ┆signated by Ёђђmes is the rese┆
0x0ddc0…0dde0 74 5f 63 6f 6d 70 6c 65 74 69 6f 6e 20 65 76 65 6e 74 20 6d 65 73 73 61 67 65 2e 20 54 68 69 73 ┆t_completion event message. This┆
0x0dde0…0de00 20 65 76 65 6e 74 20 6f 63 63 75 72 73 20 0a 19 85 80 80 61 66 74 65 72 20 61 6c 6c 20 6f 75 74 ┆ event occurs Ёђђafter all out┆
0x0de00…0de20 73 74 61 6e 64 69 6e 67 20 64 61 74 61 20 61 6e 64 20 63 72 65 64 69 74 20 6d 65 73 73 61 67 65 ┆standing data and credit message┆
0x0de20…0de40 73 20 68 61 76 65 20 62 65 65 6e 20 72 65 74 75 72 80 0a 19 85 80 80 6e 65 64 2e 20 57 68 65 6e ┆s have been returђ Ёђђned. When┆
0x0de40…0de60 20 69 74 20 6f 63 63 75 72 73 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 20 65 6e 64 2d ┆ it occurs the state of the end-┆
0x0de60…0de80 70 6f 69 6e 74 20 72 65 76 65 72 74 73 20 74 6f 20 63 6f 6e 80 0a 19 85 80 80 6e 65 63 74 65 64 ┆point reverts to conђ Ёђђnected┆
0x0de80…0dea0 2e 0d 0a 16 73 63 0d 0a 52 65 73 65 74 65 76 65 6e 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc ┆. sc Resetevent PROCEDURE ┐▄┆
0x0dea0…0dec0 d8 72 65 73 65 74 65 76 65 6e 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 0d ┆пreseteventЙ(VAR r: reference); ┆
0x0dec0…0dee0 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 ┆ Defined in imc3502env. ┆
0x0dee0…0df00 2d 20 84 49 66 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 72 20 69 73 20 4e 49 4c 20 61 6e 20 65 ┆- ёIf the value of r is NIL an e┆
0x0df00…0df20 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 0a ┆xception occurs, otherwise the ┆
0x0df20…0df40 19 85 80 80 76 61 6c 75 65 20 6f 66 20 72 27 73 20 65 76 65 6e 74 20 6b 69 6e 64 20 61 74 74 72 ┆ Ёђђvalue of r's event kind attr┆
0x0df40…0df60 69 62 75 74 65 20 62 65 63 6f 6d 65 73 20 6e 6f 74 5f 65 76 65 6e 74 2e 0d 0a 16 53 43 0d 0a 52 ┆ibute becomes not_event. SC R┆
0x0df60…0df80 65 74 75 72 6e 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 72 65 74 75 72 6e be 28 56 41 52 20 ┆eturn PROCEDURE ┐▄пreturnЙ(VAR ┆
0x0df80…0dfa0 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d ┆r: reference); Predefined. ┆
0x0dfa0…0dfc0 0a 0d 0a 20 20 20 2d 20 84 73 69 67 6e 61 6c 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 72 65 66 ┆ - ёsignals the message ref┆
0x0dfc0…0dfe0 65 72 65 6e 63 65 64 20 62 79 20 27 72 27 20 74 6f 20 74 68 65 20 61 6e 6f 6e 79 6d 6f 75 73 20 ┆erenced by 'r' to the anonymous ┆
0x0dfe0…0e000 61 6e 73 77 65 72 20 0a 19 85 80 80 6d 61 69 6c 62 6f 78 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 ┆answer Ёђђmailbox. An exce┆
0x0e000…0e020 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 74 68 65 20 72 ┆ption occurs if: - ёthe r┆
0x0e020…0e040 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 69 6c 2e 20 0d 0a 20 20 20 2d ┆eference variable is nil. -┆
0x0e040…0e060 20 84 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6c 6f 63 6b ┆ ёthe reference variable is lock┆
0x0e060…0e080 65 64 2e 20 0d 0a 16 53 43 0d 0a 53 65 61 72 63 68 6d 61 69 6c 62 6f 78 0d 0a 46 55 4e 43 54 49 ┆ed. SC Searchmailbox FUNCTI┆
0x0e080…0e0a0 4f 4e 20 bf dc d8 73 65 61 72 63 68 6d 61 69 6c 62 6f 78 be 28 49 4e 53 50 45 43 54 20 6d 5f 6e ┆ON ┐▄пsearchmailboxЙ(INSPECT m_n┆
0x0e0a0…0e0c0 61 6d 65 3a 20 61 6c 66 61 29 3a 20 5e 88 7c 20 6d 61 69 6c 62 6f 78 3b 20 0d 0a 0d 0a 44 65 66 ┆ame: alfa): ^ѕ| mailbox; Def┆
0x0e0c0…0e0e0 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 52 65 74 72 ┆ined in rc3502env. - ёRetr┆
0x0e0e0…0e100 69 65 76 65 73 20 61 20 70 6f 69 6e 74 65 72 20 76 61 6c 75 65 20 6f 66 20 61 20 63 61 74 61 6c ┆ieves a pointer value of a catal┆
0x0e100…0e120 6f 67 75 65 64 20 6d 61 69 6c 62 6f 78 2e 20 54 68 65 20 72 65 74 72 69 65 76 61 6c 20 0a 19 85 ┆ogued mailbox. The retrieval Ё┆
0x0e120…0e140 80 80 69 73 20 64 69 72 65 63 74 65 64 20 66 72 6f 6d 20 74 68 65 20 6c 65 61 76 65 73 20 74 6f ┆ђђis directed from the leaves to┆
0x0e140…0e160 20 74 68 65 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 74 72 65 65 2c 20 0a ┆ the root of the process tree, ┆
0x0e160…0e180 19 85 80 80 73 74 61 72 74 69 6e 67 20 61 74 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 70 72 6f 63 ┆ Ёђђstarting at the calling proc┆
0x0e180…0e1a0 65 73 73 2e 20 41 20 6e 69 6c 20 76 61 6c 75 65 20 69 73 20 72 65 74 75 72 6e 65 64 2c 20 69 66 ┆ess. A nil value is returned, if┆
0x0e1a0…0e1c0 20 6e 6f 20 63 61 80 0a 19 85 80 80 74 61 6c 6f 67 75 65 64 20 6d 61 69 6c 62 6f 78 20 77 69 74 ┆ no caђ Ёђђtalogued mailbox wit┆
0x0e1c0…0e1e0 68 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6e 61 6d 65 20 69 73 20 66 6f 75 6e 64 2e 0d 0a ┆h the specified name is found. ┆
0x0e1e0…0e200 16 73 63 0d 0a 53 65 6e 64 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 6e 64 be 28 56 41 ┆ sc Send PROCEDURE ┐▄пsendЙ(VA┆
0x0e200…0e220 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 20 56 41 52 ┆R p: port; index: 1..maxint; VAR┆
0x0e220…0e240 20 6d 65 73 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 ┆ mes: reference); Defined in ┆
0x0e240…0e260 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 64 61 74 61 20 75 6e ┆imc3502env. - ёThe data un┆
0x0e260…0e280 69 74 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 6d 65 73 20 77 69 6c 6c 20 62 65 20 73 65 6e ┆it designated by mes will be sen┆
0x0e280…0e2a0 74 20 6f 6e 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 0a 19 85 80 80 63 6f 6e 6e 65 63 74 69 ┆t on the specified Ёђђconnecti┆
0x0e2a0…0e2c0 6f 6e 20 28 70 2c 20 69 6e 64 65 78 29 2c 20 69 66 20 70 72 65 73 65 6e 74 2c 20 62 79 20 74 68 ┆on (p, index), if present, by th┆
0x0e2c0…0e2e0 65 20 49 4d 43 20 6e 65 74 77 6f 72 6b 2e 20 54 68 65 20 6d 65 73 80 0a 19 85 80 80 73 61 67 65 ┆e IMC network. The mesђ Ёђђsage┆
0x0e2e0…0e300 20 62 65 63 6f 6d 65 73 20 61 6e 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 73 65 6e 64 20 6d 65 73 ┆ becomes an outstanding send mes┆
0x0e300…0e320 73 61 67 65 2e 20 49 66 20 61 20 72 65 63 65 69 76 65 20 6d 65 73 73 61 67 65 20 0a 19 85 80 80 ┆sage. If a receive message Ёђђ┆
0x0e320…0e340 69 73 20 61 76 61 69 6c 61 62 6c 65 20 61 74 20 74 68 65 20 72 65 6d 6f 74 65 20 65 6e 64 2c 20 ┆is available at the remote end, ┆
0x0e340…0e360 6f 72 20 77 68 65 6e 20 6f 6e 65 20 62 65 63 6f 6d 65 73 20 61 76 61 69 6c 61 62 6c 65 20 0a 19 ┆or when one becomes available ┆
0x0e360…0e380 85 80 80 28 63 61 6c 6c 20 6f 66 20 72 65 63 65 80 69 76 65 20 6f 72 20 72 65 63 65 69 76 65 61 ┆Ёђђ(call of receђive or receivea┆
0x0e380…0e3a0 6c 6c 29 2c 20 74 68 65 20 69 6e 64 69 63 61 74 65 64 20 64 61 74 61 20 75 6e 69 74 20 69 73 20 ┆ll), the indicated data unit is ┆
0x0e3a0…0e3c0 74 72 61 6e 73 80 0a 19 85 80 80 66 65 72 72 65 64 20 74 6f 20 74 68 65 20 72 65 63 65 69 76 65 ┆transђ Ёђђferred to the receive┆
0x0e3c0…0e3e0 20 64 61 74 61 20 61 72 65 61 2e 20 54 68 65 6e 20 74 68 65 20 73 65 6e 64 20 6d 65 73 73 61 67 ┆ data area. Then the send messag┆
0x0e3e0…0e400 65 20 69 73 20 72 65 80 0a 19 85 80 80 74 75 72 6e 65 64 20 61 73 20 64 61 74 61 5f 80 73 65 6e ┆e is reђ Ёђђturned as data_ђsen┆
0x0e400…0e420 74 2c 20 61 6e 64 20 74 68 65 20 72 65 63 65 69 76 65 20 6d 65 73 73 61 67 65 20 61 74 20 74 68 ┆t, and the receive message at th┆
0x0e420…0e440 65 20 72 65 6d 6f 74 65 20 65 6e 64 20 0a 19 85 80 80 61 73 20 64 61 74 61 5f 61 72 72 69 76 65 ┆e remote end Ёђђas data_arrive┆
0x0e440…0e460 64 20 28 6f 72 20 64 61 74 61 5f 6f 76 65 72 72 75 6e 29 2e 0d 0a 16 53 43 0d 0a 53 65 6e 64 6c ┆d (or data_overrun). SC Sendl┆
0x0e460…0e480 69 6e 6b 65 72 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 6e 64 6c 69 6e 6b 65 72 be 28 ┆inker PROCEDURE ┐▄пsendlinkerЙ(┆
0x0e480…0e4a0 56 41 52 20 72 20 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 ┆VAR r : reference); Defined ┆
0x0e4a0…0e4c0 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 8c 9d 88 0a 0d 0a 20 20 20 2d 20 84 73 69 67 6e ┆in rc3502env. їЮѕ - ёsign┆
0x0e4c0…0e4e0 61 6c 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 27 72 ┆als the message referenced by 'r┆
0x0e4e0…0e500 27 20 74 6f 20 74 68 65 20 4c 49 4e 4b 45 52 20 70 72 6f 63 65 73 73 2e 20 0a 19 85 80 80 4e 6f ┆' to the LINKER process. ЁђђNo┆
0x0e500…0e520 20 77 61 69 74 20 69 73 20 70 65 72 66 6f 72 6d 65 64 20 69 6e 20 74 68 65 20 70 72 6f 63 65 64 ┆ wait is performed in the proced┆
0x0e520…0e540 75 72 65 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a ┆ure. An exception occurs if:┆
0x0e540…0e560 20 0d 0a 0d 0a 20 20 20 2d 20 84 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c ┆ - ёthe reference variabl┆
0x0e560…0e580 65 20 69 73 20 6e 69 6c 2e 20 0d 0a 20 20 20 2d 20 84 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 ┆e is nil. - ёthe reference ┆
0x0e580…0e5a0 76 61 72 69 61 62 6c 65 20 69 73 20 6c 6f 63 6b 65 64 2e 20 0d 0a 04 00 2d 4c 00 00 06 00 00 00 ┆variable is locked. -L ┆
0x0e5a0…0e5c0 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f ┆ A1 ┆
0x0e5c0…0e5e0 1c 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 ┆ $-7AKU_is} -L A1 ┆
0x0e5e0…0e600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 12 19 20 24 2d 37 41 4b ┆ $-7AK┆
0x0e600…0e620 55 5f 69 73 7d ff ff 04 0a 0d 0a a1 55 73 65 72 20 46 69 65 6c 64 73 09 4d 65 73 73 61 67 65 09 ┆U_is} АUser Fields Message ┆
0x0e620…0e640 41 6e 73 77 65 72 20 e1 20 20 20 0d 0a 20 20 20 20 75 31 09 66 75 6e 63 74 69 6f 6e 09 75 6e 63 ┆Answer р u1 function unc┆
0x0e640…0e660 68 61 6e 67 65 64 20 20 20 20 0d 0a 20 20 20 20 75 32 09 75 6e 75 73 65 64 09 72 65 73 75 6c 74 ┆hanged u2 unused result┆
0x0e660…0e680 20 20 20 20 20 0d 0a 20 20 20 20 75 33 09 70 61 72 61 6d 09 75 6e 63 68 61 6e 67 65 64 20 20 20 ┆ u3 param unchanged ┆
0x0e680…0e6a0 20 0d 0a 20 20 20 20 75 34 09 75 6e 75 73 65 64 09 75 6e 63 68 61 6e 67 65 64 20 0d 0a 0d 0a 41 ┆ u4 unused unchanged A┆
0x0e6a0…0e6c0 6e 20 75 6e 6b 6e 6f 77 6e 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 72 65 74 75 72 6e 65 64 20 77 ┆n unknown function is returned w┆
0x0e6c0…0e6e0 69 74 68 20 72 65 73 75 6c 74 20 3d 20 36 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 20 3d 20 36 20 69 ┆ith result = 6. Result = 6 i┆
0x0e6e0…0e700 73 20 61 6c 73 6f 20 72 65 74 75 72 6e 65 64 2c 20 69 66 20 74 68 65 20 6d 65 73 73 61 67 65 20 ┆s also returned, if the message ┆
0x0e700…0e720 63 61 6e 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 61 20 70 72 6f 70 65 72 20 0a 72 65 73 75 6c 74 20 ┆cannot contain a proper result ┆
0x0e720…0e740 72 65 63 6f 72 64 2e 20 0d 0a 16 53 44 0d 0a 4c 6f 6f 6b 75 70 5f 6e 61 6d 65 0d 0a 0d 0a a1 55 ┆record. SD Lookup_name АU┆
0x0e740…0e760 73 65 72 20 46 69 65 6c 64 73 09 4d 65 73 73 61 67 65 09 41 6e 73 77 65 72 20 e1 20 20 20 0d 0a ┆ser Fields Message Answer р ┆
0x0e760…0e780 20 20 20 20 75 31 09 33 09 33 20 20 20 20 0d 0a 20 20 20 20 75 32 09 75 6e 75 73 65 64 09 72 65 ┆ u1 3 3 u2 unused re┆
0x0e780…0e7a0 73 75 6c 74 20 20 20 20 0d 0a 20 20 20 20 75 33 09 75 6e 75 73 65 64 09 75 6e 63 68 61 6e 67 65 ┆sult u3 unused unchange┆
0x0e7a0…0e7c0 64 20 20 20 20 20 0d 0a 20 20 20 20 75 34 09 75 6e 75 73 65 64 09 75 6e 63 68 61 6e 67 65 64 20 ┆d u4 unused unchanged ┆
0x0e7c0…0e7e0 0d 0a 0d 0a a1 4d 65 73 73 61 67 65 20 62 75 66 66 65 72 0d 0a e1 41 20 72 65 63 6f 72 64 20 6f ┆ АMessage buffer рA record o┆
0x0e7e0…0e800 66 20 74 68 65 20 70 72 65 64 65 66 69 6e 65 64 20 74 79 70 65 20 27 6c 6f 6f 6b 75 70 5f 64 65 ┆f the predefined type 'lookup_de┆
0x0e800…0e820 73 63 72 69 70 74 6f 72 5f 73 65 67 6d 65 6e 74 27 20 64 65 66 69 6e 65 64 20 0a 69 6e 20 72 63 ┆scriptor_segment' defined in rc┆
0x0e820…0e840 33 35 30 32 65 6e 76 20 28 73 65 63 74 69 6f 6e 20 49 2e 31 29 2e 20 0d 0a 0d 0a 54 68 65 20 4c ┆3502env (section I.1). The L┆
0x0e840…0e860 49 4e 4b 45 52 20 63 61 74 61 6c 6f 67 75 65 20 69 73 20 73 65 61 72 63 68 65 64 20 66 6f 72 20 ┆INKER catalogue is searched for ┆
0x0e860…0e880 61 20 70 72 6f 67 72 61 6d 20 77 69 74 68 20 6e 61 6d 65 20 27 6e 61 6d 65 27 2e 20 0a 53 6f 6d ┆a program with name 'name'. Som┆
0x0e880…0e8a0 65 20 76 61 6c 75 65 73 20 6f 66 20 27 6e 61 6d 65 27 20 68 61 76 65 20 73 70 65 63 69 61 6c 20 ┆e values of 'name' have special ┆
0x0e8a0…0e8c0 65 66 66 65 63 74 73 2c 20 62 79 20 73 65 6e 64 69 6e 67 20 6f 75 74 70 75 74 20 64 69 72 65 63 ┆effects, by sending output direc┆
0x0e8c0…0e8e0 74 80 0a 6c 79 20 74 6f 20 74 68 65 20 4f 50 45 52 41 54 4f 52 20 6d 61 69 6c 62 6f 78 2c 20 62 ┆tђ ly to the OPERATOR mailbox, b┆
0x0e8e0…0e900 65 66 6f 72 65 20 72 65 74 75 72 6e 69 6e 67 20 74 68 65 20 72 65 71 75 65 73 74 2e 20 49 66 20 ┆efore returning the request. If ┆
0x0e900…0e920 74 68 65 20 0a 6e 61 6d 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 77 69 6c 64 20 63 68 61 72 61 63 ┆the name contains a wild charac┆
0x0e920…0e940 74 65 72 20 22 2a 22 2c 20 74 68 65 20 77 68 6f 6c 65 20 4c 49 4e 4b 45 52 20 63 61 74 61 6c 6f ┆ter "*", the whole LINKER catalo┆
0x0e940…0e960 67 75 65 20 69 73 20 0a 73 63 61 6e 6e 65 64 2e 20 50 72 6f 67 72 61 6d 73 20 61 72 65 20 6c 69 ┆gue is scanned. Programs are li┆
0x0e960…0e980 73 74 65 64 20 69 66 20 74 68 65 20 6e 61 6d 65 20 73 61 74 69 73 66 69 65 73 20 61 20 27 77 69 ┆sted if the name satisfies a 'wi┆
0x0e980…0e9a0 6c 64 20 63 68 61 72 61 63 74 65 72 20 0a 63 6f 6d 70 61 72 65 27 2c 20 63 66 2e 20 74 68 65 20 ┆ld character compare', cf. the ┆
0x0e9a0…0e9c0 72 6f 75 74 69 6e 65 20 77 69 6c 64 5f 63 6f 6d 70 61 72 65 2e 20 49 66 20 74 68 65 20 6e 61 6d ┆routine wild_compare. If the nam┆
0x0e9c0…0e9e0 65 20 69 73 20 27 50 52 4f 47 52 41 4d 27 20 0a 61 6c 6c 20 70 72 6f 67 72 61 6d 73 20 6f 66 20 ┆e is 'PROGRAM' all programs of ┆
0x0e9e0…0ea00 6b 69 6e 64 20 70 72 6f 67 72 61 6d 20 61 72 65 20 6c 69 73 74 65 64 2e 20 49 66 20 74 68 65 20 ┆kind program are listed. If the ┆
0x0ea00…0ea20 6e 61 6d 65 20 69 73 20 27 50 52 4f 43 45 44 55 52 45 27 20 0a 6f 72 20 27 46 55 4e 43 54 49 4f ┆name is 'PROCEDURE' or 'FUNCTIO┆
0x0ea20…0ea40 4e 27 2c 20 61 6c 6c 20 70 72 6f 67 72 61 6d 73 20 6f 66 20 6b 69 6e 64 20 70 72 6f 63 65 64 75 ┆N', all programs of kind procedu┆
0x0ea40…0ea60 72 65 20 6f 72 20 66 75 6e 63 74 69 6f 6e 20 61 72 65 20 6c 69 80 0a 73 74 65 64 2e 20 0d 0a 0d ┆re or function are liђ sted. ┆
0x0ea60…0ea80 0a 0e 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a 20 20 20 20 30 20 20 ┆ Results Meaning 0 ┆
0x0ea80…0eaa0 20 20 84 4f 4b 2e 20 41 20 70 72 6f 67 72 61 6d 20 77 69 74 68 20 6e 61 6d 65 20 27 6e 61 6d 65 ┆ ёOK. A program with name 'name┆
0x0eaa0…0eac0 27 20 69 73 20 66 6f 75 6e 64 20 69 6e 20 74 68 65 20 4c 49 4e 4b 45 52 20 0a 19 89 80 80 63 61 ┆' is found in the LINKER Ѕђђca┆
0x0eac0…0eae0 74 61 6c 6f 67 75 65 2e 20 49 6e 20 74 68 65 20 61 6e 73 77 65 72 2c 20 74 68 65 20 72 65 6d 61 ┆talogue. In the answer, the rema┆
0x0eae0…0eb00 69 6e 69 6e 67 20 66 69 65 6c 64 73 20 6f 66 20 74 68 65 20 74 79 70 65 20 0a 19 89 80 80 27 6c ┆ining fields of the type Ѕђђ'l┆
0x0eb00…0eb20 6f 80 6f 6b 75 70 5f 64 65 73 63 72 69 70 74 6f 72 5f 73 65 67 6d 65 6e 74 27 20 61 72 65 20 69 ┆oђokup_descriptor_segment' are i┆
0x0eb20…0eb40 6e 69 74 69 61 6c 69 7a 65 64 2e 0d 0a 20 20 20 20 31 20 20 20 20 84 4e 6f 20 70 72 6f 67 72 61 ┆nitialized. 1 ёNo progra┆
0x0eb40…0eb60 6d 20 77 69 74 68 20 6e 61 6d 65 20 27 6e 61 6d 65 27 20 69 73 20 66 6f 75 6e 64 20 69 6e 20 74 ┆m with name 'name' is found in t┆
0x0eb60…0eb80 68 65 20 4c 49 4e 4b 45 52 20 0a 19 89 80 80 63 61 74 61 6c 6f 67 75 65 2e 20 0d 0a 0f 0a 16 53 ┆he LINKER Ѕђђcatalogue. S┆
0x0eb80…0eba0 44 0d 0a 43 68 65 63 6b 0d 0a 0d 0a a1 55 73 65 72 20 46 69 65 6c 64 73 09 4d 65 73 73 61 67 65 ┆D Check АUser Fields Message┆
0x0eba0…0ebc0 09 41 6e 73 77 65 72 20 e1 20 20 20 0d 0a 20 20 20 20 75 31 09 37 09 37 20 20 20 20 0d 0a 20 20 ┆ Answer р u1 7 7 ┆
0x0ebc0…0ebe0 20 20 75 32 09 75 6e 75 73 65 64 09 72 65 73 75 6c 74 20 20 20 20 0d 0a 20 20 20 20 75 33 09 6d ┆ u2 unused result u3 m┆
0x0ebe0…0ec00 6f 64 75 6c 65 09 6d 6f 64 75 6c 65 20 20 20 20 20 0d 0a 20 20 20 20 75 34 09 75 6e 75 73 65 64 ┆odule module u4 unused┆
0x0ec00…0ec20 09 75 6e 63 68 61 6e 67 65 64 0d 0a 0d 0a a1 4d 65 73 73 61 67 65 20 62 75 66 66 65 72 0d 0a e1 ┆ unchanged АMessage buffer р┆
0x0ec20…0ec40 41 20 62 75 66 66 65 72 20 6f 66 20 73 69 7a 65 20 31 32 38 20 62 79 74 65 73 20 28 6d 69 6e 69 ┆A buffer of size 128 bytes (mini┆
0x0ec40…0ec60 6d 75 6d 29 2e 20 0d 0a 0d 0a 41 20 bf dc d8 63 72 63 31 36 be 20 63 68 65 63 6b 20 69 73 20 70 ┆mum). A ┐▄пcrc16Й check is p┆
0x0ec60…0ec80 65 72 66 6f 72 6d 65 64 20 6f 6e 20 74 68 65 20 6d 6f 64 75 6c 65 2e 20 0d 0a 0d 0a 4e 6f 74 65 ┆erformed on the module. Note┆
0x0ec80…0eca0 3a 20 54 68 65 20 73 69 7a 65 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 20 6d 75 73 74 20 62 ┆: The size of the message must b┆
0x0eca0…0ecc0 65 20 61 74 20 6c 65 61 73 74 20 31 32 38 20 62 79 74 65 73 2e 20 0d 0a 0d 0a 8c 8b d0 0a 54 68 ┆e at least 128 bytes. їІл Th┆
0x0ecc0…0ece0 65 20 70 6f 6c 79 6e 6f 6d 69 75 6d 20 75 73 65 64 20 69 73 3a 20 0d 0a 0d 0a 20 20 20 20 20 78 ┆e polynomium used is: x┆
0x0ece0…0ed00 81 31 36 82 2b 78 81 31 32 82 2b 78 81 35 82 2b 31 20 0d 0a 0d 0a 77 69 74 68 20 72 65 6d 61 69 ┆Ђ16ѓ+xЂ12ѓ+xЂ5ѓ+1 with remai┆
0x0ed00…0ed20 6e 64 65 72 20 3d 20 2d 31 20 61 73 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 2e 20 0d 0a 0d 0a ┆nder = -1 as initial value. ┆
0x0ed20…0ed40 54 68 65 20 6d 6f 64 75 6c 65 20 6d 75 73 74 20 68 61 76 65 20 74 68 65 20 66 6f 72 6d 61 74 3a ┆The module must have the format:┆
0x0ed40…0ed60 20 0d 0a 0d 0a 0e 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 ┆ -L A1 ┆
0x0ed60…0ed80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1e 2c 37 41 4b 55 5f 69 73 7d ff ff ff ff ff ff 04 ┆ ,7AKU_is} ┆
0x0ed80…0eda0 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1 ┆
0x0eda0…0edc0 00 00 00 00 00 00 00 00 05 0f 1c 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 0a 20 0d 0a 01 72 61 ┆ $-7AKU_is} ra┆
0x0edc0…0ede0 6d 6d 65 20 22 35 20 30 20 2b 32 37 20 31 35 20 31 22 0d 0a 09 81 41 41 41 41 82 20 20 0d 0a 01 ┆mme "5 0 +27 15 1" ЂAAAAѓ ┆
0x0ede0…0ee00 72 61 6d 6d 65 20 22 35 20 30 20 2b 32 37 20 31 35 20 32 22 0d 0a 09 44 45 53 43 09 44 65 73 63 ┆ramme "5 0 +27 15 2" DESC Desc┆
0x0ee00…0ee20 72 69 70 74 6f 72 20 73 65 67 6d 65 6e 74 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b ┆riptor segment ramme "5 0 +┆
0x0ee20…0ee40 32 37 20 31 35 20 33 22 0d 0a 09 43 4f 44 45 09 43 6f 64 65 20 73 65 67 6d 65 6e 74 0d 0a 0d 0a ┆27 15 3" CODE Code segment ┆
0x0ee40…0ee60 20 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 32 37 20 31 35 20 32 22 0d 0a 09 44 45 53 43 09 ┆ ramme "5 0 +27 15 2" DESC ┆
0x0ee60…0ee80 44 65 73 63 72 69 70 74 6f 72 20 73 65 67 6d 65 6e 74 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 35 ┆Descriptor segment ramme "5┆
0x0ee80…0eea0 20 30 20 2b 32 37 20 31 35 20 33 22 0d 0a 09 43 4f 44 45 09 43 6f 64 65 20 73 65 67 6d 65 6e 74 ┆ 0 +27 15 3" CODE Code segment┆
0x0eea0…0eec0 0d 0a 0d 0a 0d 0a 20 0d 0a 09 2e 2e 2e 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 32 ┆ ... ramme "5 0 +2┆
0x0eec0…0eee0 37 20 31 35 20 32 22 0d 0a 09 44 45 53 43 09 44 65 73 63 72 69 70 74 6f 72 20 73 65 67 6d 65 6e ┆7 15 2" DESC Descriptor segmen┆
0x0eee0…0ef00 74 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 32 37 20 31 35 20 33 22 0d 0a 09 43 4f ┆t ramme "5 0 +27 15 3" CO┆
0x0ef00…0ef20 44 45 09 43 6f 64 65 20 73 65 67 6d 65 6e 74 0d 0a 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 35 20 ┆DE Code segment ramme "5 ┆
0x0ef20…0ef40 30 20 2b 32 37 20 31 35 20 31 22 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 32 37 20 31 35 20 ┆0 +27 15 1" ramme "5 0 +27 15 ┆
0x0ef40…0ef60 32 22 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 32 37 20 31 35 20 33 22 0d 0a 01 72 61 6d 6d ┆2" ramme "5 0 +27 15 3" ramm┆
0x0ef60…0ef80 65 20 22 35 20 30 20 2b 32 37 20 31 35 20 34 22 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 32 ┆e "5 0 +27 15 4" ramme "5 0 +2┆
0x0ef80…0efa0 37 20 31 35 20 35 22 0d 0a 09 81 46 46 46 46 82 20 20 0d 0a 09 81 53 55 4d 30 82 20 20 09 81 20 ┆7 15 5" ЂFFFFѓ ЂSUM0ѓ Ђ ┆
0x0efa0…0efc0 30 2d 20 34 4b 20 65 76 65 6e 20 61 64 72 65 73 73 65 73 82 20 20 0d 0a 09 81 53 55 4d 31 82 20 ┆0- 4K even adressesѓ ЂSUM1ѓ ┆
0x0efc0…0efe0 20 09 81 20 30 2d 20 34 4b 20 6f 64 64 20 61 64 72 65 73 73 65 73 82 20 20 0d 0a 09 81 53 55 4d ┆ Ђ 0- 4K odd adressesѓ ЂSUM┆
0x0efe0…0f000 32 82 20 20 09 81 20 34 2d 20 38 4b 20 65 76 65 6e 20 61 64 72 65 73 73 65 73 82 20 20 0d 0a 09 ┆2ѓ Ђ 4- 8K even adressesѓ ┆
0x0f000…0f020 81 53 55 4d 32 82 20 20 09 81 20 34 2d 20 38 4b 20 6f 64 64 20 61 64 72 65 73 73 65 73 82 20 20 ┆ЂSUM2ѓ Ђ 4- 8K odd adressesѓ ┆
0x0f020…0f040 0d 0a 0d 0a 09 2e 2e 2e 2e 0d 0a 20 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 32 37 20 31 35 ┆ .... ramme "5 0 +27 15┆
0x0f040…0f060 20 31 22 0d 0a 01 72 61 6d 6d 65 20 22 35 20 30 20 2b 32 37 20 31 35 20 32 22 0d 0a 01 72 61 6d ┆ 1" ramme "5 0 +27 15 2" ram┆
0x0f060…0f080 6d 65 20 22 35 20 30 20 2b 32 37 20 31 35 20 37 22 0d 0a 09 81 53 55 4d 33 30 82 20 20 09 81 36 ┆me "5 0 +27 15 7" ЂSUM30ѓ Ђ6┆
0x0f080…0f0a0 30 2d 36 34 4b 20 65 76 65 6e 20 61 64 72 65 73 73 65 73 82 20 20 0d 0a 09 81 53 55 4d 33 31 82 ┆0-64K even adressesѓ ЂSUM31ѓ┆
0x0f0a0…0f0c0 20 20 09 81 36 30 2d 36 34 4b 20 6f 64 64 20 61 64 72 65 73 73 65 73 82 20 20 0d 0a 01 73 6b 79 ┆ Ђ60-64K odd adressesѓ sky┆
0x0f0c0…0f0e0 67 67 65 20 22 32 20 2b 32 37 20 31 35 20 35 22 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 04 00 2d 4c 00 00 ┆gge "2 +27 15 5" -L ┆
0x0f0e0…0f100 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x0f100…0f120 00 00 05 12 19 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 ┆ $-7AKU_is} -L ┆
0x0f120…0f140 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1e 2c 37 41 4b ┆A1 ,7AK┆
0x0f140…0f160 55 5f 69 73 7d ff ff ff ff ff ff 04 0a 0d 0a 54 68 65 20 73 75 6d 73 20 69 6e 63 6c 75 64 65 20 ┆U_is} The sums include ┆
0x0f160…0f180 74 68 65 20 27 41 41 41 41 27 20 61 6e 64 20 27 46 46 46 46 27 20 77 6f 72 64 73 2e 20 54 68 65 ┆the 'AAAA' and 'FFFF' words. The┆
0x0f180…0f1a0 20 73 75 6d 20 77 6f 72 64 73 20 74 68 65 6d 80 0a 73 65 6c 76 65 73 20 61 72 65 20 6e 6f 74 20 ┆ sum words themђ selves are not ┆
0x0f1a0…0f1c0 69 6e 63 6c 75 64 65 64 2e 20 0d 0a 0f 0a 0d 0a 54 68 65 20 73 75 6d 20 63 68 65 63 6b 20 69 6e ┆included. The sum check in┆
0x0f1c0…0f1e0 20 74 68 65 20 6d 6f 64 75 6c 65 20 61 6e 64 20 74 68 65 20 63 6f 6d 70 75 74 65 64 20 73 75 6d ┆ the module and the computed sum┆
0x0f1e0…0f200 20 61 72 65 20 64 65 6c 69 76 65 72 65 64 20 69 6e 20 0a 74 68 65 20 6d 65 73 73 61 67 65 20 61 ┆ are delivered in the message a┆
0x0f200…0f220 73 3a 20 0d 0a 0d 0a 8c 89 98 0a 41 52 52 41 59 20 28 31 2e 2e 33 32 29 20 4f 46 20 20 20 0d 0a ┆s: їЅў ARRAY (1..32) OF ┆
0x0f220…0f240 20 20 20 52 45 43 4f 52 44 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 70 72 6f 6d 73 75 6d 2c 20 ┆ RECORD promsum, ┆
0x0f240…0f260 20 20 20 20 20 0d 0a 20 20 20 20 20 20 65 78 70 65 63 74 65 64 3a 20 69 6e 74 65 67 65 72 3b 20 ┆ expected: integer; ┆
0x0f260…0f280 20 20 0d 0a 20 20 20 45 4e 44 3b 20 0d 0a 0d 0a 0e 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 ┆ END; Results Meani┆
0x0f280…0f2a0 6e 67 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 84 54 68 65 20 63 68 65 63 6b 20 73 75 6d 20 ┆ng 0 ёThe check sum ┆
0x0f2a0…0f2c0 76 61 6c 75 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 20 69 6e 20 74 68 65 20 64 61 74 61 20 ┆values are returned in the data ┆
0x0f2c0…0f2e0 62 75 66 66 65 72 2e 0d 0a 20 20 20 20 31 20 20 20 20 54 68 65 20 6d 6f 64 75 6c 65 20 69 73 20 ┆buffer. 1 The module is ┆
0x0f2e0…0f300 65 6d 70 74 79 2e 20 0d 0a 0f 0a 16 53 43 0d 0a 53 65 6e 64 74 69 6d 65 72 0d 0a 50 52 4f 43 45 ┆empty. SC Sendtimer PROCE┆
0x0f300…0f320 44 55 52 45 20 bf dc d8 73 65 6e 64 74 69 6d 65 72 be 28 56 41 52 20 72 20 3a 20 72 65 66 65 72 ┆DURE ┐▄пsendtimerЙ(VAR r : refer┆
0x0f320…0f340 65 6e 63 65 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e ┆ence); Defined in rc3502env.┆
0x0f340…0f360 20 0d 0a 0d 0a 20 20 20 2d 20 84 73 69 67 6e 61 6c 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 72 ┆ - ёsignals the message r┆
0x0f360…0f380 65 66 65 72 65 6e 63 65 64 20 62 79 20 27 72 27 20 74 6f 20 74 68 65 20 54 49 4d 45 52 20 70 72 ┆eferenced by 'r' to the TIMER pr┆
0x0f380…0f3a0 6f 63 65 73 73 2e 20 4e 6f 20 0a 19 85 80 80 77 61 69 74 20 69 73 20 70 65 72 66 6f 72 6d 65 64 ┆ocess. No Ёђђwait is performed┆
0x0f3a0…0f3c0 20 69 6e 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 ┆ in the procedure. An except┆
0x0f3c0…0f3e0 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 74 68 65 20 72 65 66 ┆ion occurs if: - ёthe ref┆
0x0f3e0…0f400 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 69 6c 20 0d 0a 20 20 20 2d 20 84 74 ┆erence variable is nil - ёt┆
0x0f400…0f420 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6c 6f 63 6b 65 64 20 ┆he reference variable is locked ┆
0x0f420…0f440 0d 0a 0d 0a 49 66 20 74 68 65 20 62 75 66 66 65 72 20 63 61 6e 6e 6f 74 20 63 6f 6e 74 61 69 6e ┆ If the buffer cannot contain┆
0x0f440…0f460 20 61 20 72 65 63 6f 72 64 20 6f 66 20 74 68 65 20 70 72 65 64 65 66 69 6e 65 64 20 74 79 70 65 ┆ a record of the predefined type┆
0x0f460…0f480 20 27 64 65 6c 61 79 80 0a 74 79 70 65 27 20 28 73 65 63 74 69 6f 6e 20 49 2e 31 29 20 77 68 65 ┆ 'delayђ type' (section I.1) whe┆
0x0f480…0f4a0 6e 20 64 65 6d 61 6e 64 65 64 2c 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 66 75 73 ┆n demanded, the message is refus┆
0x0f4a0…0f4c0 65 64 20 69 6d 6d 65 80 64 69 61 80 74 65 80 0a 6c 79 20 77 69 74 68 20 75 32 3d 34 20 28 75 6e ┆ed immeђdiaђteђ ly with u2=4 (un┆
0x0f4c0…0f4e0 69 6e 74 65 6c 6c 69 67 69 62 6c 65 29 2e 20 55 6e 64 65 66 69 6e 65 64 20 66 75 6e 63 74 69 6f ┆intelligible). Undefined functio┆
0x0f4e0…0f500 6e 73 20 61 72 65 20 70 72 6f 63 65 73 73 65 64 20 61 73 20 61 20 0a 67 65 74 20 63 6c 6f 63 6b ┆ns are processed as a get clock┆
0x0f500…0f520 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 54 68 65 20 73 75 62 72 65 63 6f 72 64 20 63 6f 6e 73 ┆ message. The subrecord cons┆
0x0f520…0f540 69 73 74 69 6e 67 20 6f 66 20 74 68 65 20 66 69 65 6c 64 73 20 27 70 72 65 76 5f 64 61 74 65 27 ┆isting of the fields 'prev_date'┆
0x0f540…0f560 2c 20 27 70 72 65 76 5f 74 69 6d 65 27 2c 20 61 6e 64 20 0a 27 70 72 65 76 5f 73 65 63 73 27 20 ┆, 'prev_time', and 'prev_secs' ┆
0x0f560…0f580 69 73 20 63 61 6c 6c 65 64 20 27 62 75 66 66 65 72 20 74 69 6d 65 27 2e 20 0d 0a 16 53 44 0d 0a ┆is called 'buffer time'. SD ┆
0x0f580…0f5a0 53 68 6f 72 74 20 44 65 6c 61 79 20 4d 65 73 73 61 67 65 0d 0a 16 73 6f 20 64 65 6c 61 79 20 6d ┆Short Delay Message so delay m┆
0x0f5a0…0f5c0 65 73 73 61 67 65 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 ┆essage -L A1 ┆
0x0f5c0…0f5e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff ┆ $-7AKU_is} ┆
0x0f5e0…0f600 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1 ┆
0x0f600…0f620 00 00 00 00 00 00 00 00 00 05 12 19 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 0a a1 55 73 65 72 ┆ $-7AKU_is} АUser┆
0x0f620…0f640 20 46 69 65 6c 64 73 09 4d 65 73 73 61 67 65 09 41 6e 73 77 65 72 20 e1 20 20 20 0d 0a 20 20 20 ┆ Fields Message Answer р ┆
0x0f640…0f660 20 75 31 09 35 20 28 31 2b 34 2a 31 29 09 35 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 75 32 ┆ u1 5 (1+4*1) 5 u2┆
0x0f660…0f680 09 64 65 6c 61 79 31 20 28 3c 3e 30 29 09 72 65 73 75 6c 74 20 20 20 20 0d 0a 20 20 20 20 75 33 ┆ delay1 (<>0) result u3┆
0x0f680…0f6a0 09 64 65 6c 61 79 32 09 30 20 20 20 20 0d 0a 20 20 20 20 75 34 09 75 6e 75 73 65 64 09 75 6e 63 ┆ delay2 0 u4 unused unc┆
0x0f6a0…0f6c0 68 61 6e 67 65 64 20 0d 0a 0d 0a a1 4d 65 73 73 61 67 65 20 62 75 66 66 65 72 0d 0a e1 4e 6f 74 ┆hanged АMessage buffer рNot┆
0x0f6c0…0f6e0 20 75 73 65 64 2e 20 0d 0a 0d 0a a1 46 75 6e 63 74 69 6f 6e 0d 0a e1 52 65 74 75 72 6e 73 20 74 ┆ used. АFunction рReturns t┆
0x0f6e0…0f700 68 65 20 6d 65 73 73 61 67 65 20 61 66 74 65 72 20 64 65 6c 61 79 31 2a 32 5e 88 7c 64 65 6c 61 ┆he message after delay1*2^ѕ|dela┆
0x0f700…0f720 79 32 20 6d 73 65 63 2e 20 54 68 65 20 76 61 6c 75 65 73 20 6f 66 20 0d 0a 27 64 65 6c 61 79 31 ┆y2 msec. The values of 'delay1┆
0x0f720…0f740 27 20 61 6e 64 20 27 64 65 6c 61 79 32 27 20 6d 75 73 74 20 66 75 6c 66 69 6c 20 74 68 65 20 72 ┆' and 'delay2' must fulfil the r┆
0x0f740…0f760 65 6c 61 74 69 6f 6e 20 64 65 6c 61 79 31 2a 32 5e 88 7c 64 65 6c 61 79 32 3c 3d 36 35 35 33 35 ┆elation delay1*2^ѕ|delay2<=65535┆
0x0f760…0f780 2e 20 09 0d 0a 0d 0a 0e 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a 20 ┆. Results Meaning ┆
0x0f780…0f7a0 20 20 20 30 20 20 20 20 4f 4b 2e 20 20 20 20 0d 0a 20 20 20 20 31 20 20 20 20 4e 6f 74 20 70 72 ┆ 0 OK. 1 Not pr┆
0x0f7a0…0f7c0 6f 63 65 73 73 65 64 2e 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 54 68 65 20 ┆ocessed. The ┆
0x0f7c0…0f7e0 6d 65 73 73 61 67 65 20 69 73 20 72 65 67 72 65 74 74 65 64 2e 20 0d 0a 0f 0a 8c 88 e8 0a 16 53 ┆message is regretted. їѕУ S┆
0x0f7e0…0f800 44 0d 0a 4c 6f 6e 67 20 41 62 73 6f 6c 75 74 65 20 44 65 6c 61 79 20 4d 65 73 73 61 67 65 0d 0a ┆D Long Absolute Delay Message ┆
0x0f800…0f820 0d 0a 0e 0a a1 55 73 65 72 20 46 69 65 6c 64 73 09 4d 65 73 73 61 67 65 09 41 6e 73 77 65 72 20 ┆ АUser Fields Message Answer ┆
0x0f820…0f840 e1 20 20 20 0d 0a 20 20 20 20 75 31 09 31 33 20 28 31 2b 34 2a 33 29 09 31 33 20 20 20 20 20 20 ┆р u1 13 (1+4*3) 13 ┆
0x0f840…0f860 20 20 20 0d 0a 20 20 20 20 75 32 09 75 6e 75 73 65 64 09 72 65 73 75 6c 74 20 20 20 20 0d 0a 20 ┆ u2 unused result ┆
0x0f860…0f880 20 20 20 75 33 09 75 6e 75 73 65 64 09 30 20 20 20 20 0d 0a 20 20 20 20 75 34 09 75 6e 75 73 65 ┆ u3 unused 0 u4 unuse┆
0x0f880…0f8a0 64 09 75 6e 63 68 61 6e 67 65 64 0d 0a 0f 0a 0d 0a a1 4d 65 73 73 61 67 65 20 62 75 66 66 65 72 ┆d unchanged АMessage buffer┆
0x0f8a0…0f8c0 0d 0a e1 54 68 65 20 62 75 66 66 65 72 20 69 73 20 73 75 70 70 6f 73 65 64 20 74 6f 20 68 6f 6c ┆ рThe buffer is supposed to hol┆
0x0f8c0…0f8e0 64 20 61 20 72 65 63 6f 72 64 20 6f 66 20 74 79 70 65 20 27 64 65 6c 61 79 74 79 70 65 27 20 28 ┆d a record of type 'delaytype' (┆
0x0f8e0…0f900 73 65 63 74 69 6f 6e 20 0a 49 2e 31 29 2e 20 0d 0a 0d 0a a1 46 75 6e 63 74 69 6f 6e 0d 0a e1 54 ┆section I.1). АFunction рT┆
0x0f900…0f920 68 65 20 62 75 66 66 65 72 20 74 69 6d 65 20 69 73 20 73 65 74 20 74 6f 20 27 62 75 66 66 65 72 ┆he buffer time is set to 'buffer┆
0x0f920…0f940 20 74 69 6d 65 20 2b 20 69 6e 63 27 2e 20 49 66 20 74 68 65 20 6e 65 77 20 62 75 66 66 65 72 20 ┆ time + inc'. If the new buffer ┆
0x0f940…0f960 74 69 6d 65 20 0a 69 73 20 62 65 66 6f 72 65 20 67 6c 6f 62 61 6c 20 74 69 6d 65 2c 20 74 68 65 ┆time is before global time, the┆
0x0f960…0f980 20 62 75 66 66 65 72 20 74 69 6d 65 20 69 73 20 73 65 74 20 65 71 75 61 6c 20 74 6f 20 67 6c 6f ┆ buffer time is set equal to glo┆
0x0f980…0f9a0 62 61 6c 20 74 69 6d 65 20 61 6e 64 20 0a 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 74 ┆bal time and the message is ret┆
0x0f9a0…0f9c0 75 72 6e 65 64 20 69 6d 6d 65 64 69 61 74 65 6c 79 2c 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 ┆urned immediately, otherwise the┆
0x0f9c0…0f9e0 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 74 75 72 80 0a 6e 65 64 20 77 68 65 6e 20 67 6c 6f 62 ┆ message is returђ ned when glob┆
0x0f9e0…0fa00 61 6c 20 74 69 6d 65 20 70 61 73 73 65 73 20 74 68 65 20 6e 65 77 20 62 75 66 66 65 72 20 74 69 ┆al time passes the new buffer ti┆
0x0fa00…0fa20 6d 65 2e 20 0d 0a 0d 0a 0e 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a ┆me. Results Meaning ┆
0x0fa20…0fa40 20 20 20 30 20 20 20 20 20 20 4f 4b 2e 20 20 20 20 0d 0a 20 20 20 31 20 20 20 20 20 20 4e 6f 74 ┆ 0 OK. 1 Not┆
0x0fa40…0fa60 20 70 72 6f 63 65 73 73 65 64 2e 20 54 68 65 20 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 67 72 ┆ processed. The message is regr┆
0x0fa60…0fa80 65 74 74 65 64 2e 20 0d 0a 0f 0a 16 53 44 0d 0a 53 65 74 20 43 6c 6f 63 6b 20 41 62 73 6f 6c 75 ┆etted. SD Set Clock Absolu┆
0x0fa80…0faa0 74 65 20 4d 65 73 73 61 67 65 0d 0a 16 73 6f 20 73 65 74 20 63 6c 6f 63 6b 0d 0a a1 55 73 65 72 ┆te Message so set clock АUser┆
0x0faa0…0fac0 20 46 69 65 6c 64 73 09 4d 65 73 73 61 67 65 09 41 6e 73 77 65 72 20 e1 20 20 20 0d 0a 20 20 20 ┆ Fields Message Answer р ┆
0x0fac0…0fae0 20 75 31 09 32 20 28 32 2b 34 2a 30 29 09 32 0d 0a 20 20 20 20 75 32 09 75 6e 75 73 65 64 09 30 ┆ u1 2 (2+4*0) 2 u2 unused 0┆
0x0fae0…0fb00 20 20 20 20 0d 0a 20 20 20 20 75 33 09 75 6e 75 73 65 64 09 30 20 20 20 20 20 0d 0a 20 20 20 20 ┆ u3 unused 0 ┆
0x0fb00…0fb20 75 34 09 75 6e 75 73 65 64 09 75 6e 63 68 61 6e 67 65 64 20 0d 0a 0d 0a a1 4d 65 73 73 61 67 65 ┆u4 unused unchanged АMessage┆
0x0fb20…0fb40 20 62 75 66 66 65 72 0d 0a e1 54 68 65 20 62 75 66 66 65 72 20 69 73 20 73 75 70 70 6f 73 65 64 ┆ buffer рThe buffer is supposed┆
0x0fb40…0fb60 20 74 6f 20 68 6f 6c 64 20 61 20 72 65 63 6f 72 64 20 6f 66 20 74 79 70 65 20 27 64 65 6c 61 79 ┆ to hold a record of type 'delay┆
0x0fb60…0fb80 74 79 70 65 27 2e 20 0d 0a 0d 0a a1 46 75 6e 63 74 69 6f 6e 0d 0a e1 47 6c 6f 62 61 6c 20 74 69 ┆type'. АFunction рGlobal ti┆
0x0fb80…0fba0 6d 65 20 69 73 20 61 73 73 69 67 6e 65 64 20 66 72 6f 6d 20 74 68 65 20 62 75 66 66 65 72 20 74 ┆me is assigned from the buffer t┆
0x0fba0…0fbc0 69 6d 65 2e 20 28 27 69 6e 63 27 20 69 73 20 6e 6f 74 20 75 73 65 64 29 2e 20 54 68 65 20 0a 71 ┆ime. ('inc' is not used). The q┆
0x0fbc0…0fbe0 75 65 75 65 20 6f 66 20 6c 6f 6e 67 20 64 65 6c 61 79 20 6d 65 73 73 61 67 65 73 20 69 73 20 73 ┆ueue of long delay messages is s┆
0x0fbe0…0fc00 63 61 6e 6e 65 64 20 66 6f 72 20 65 76 65 6e 74 75 61 6c 20 72 65 74 75 72 6e 73 2e 20 0d 0a 0d ┆canned for eventual returns. ┆
0x0fc00…0fc20 0a 54 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6d 6d 65 64 69 61 ┆ The message is returned immedia┆
0x0fc20…0fc40 74 65 6c 79 2e 20 0d 0a 16 53 44 0d 0a 47 65 74 20 43 6c 6f 63 6b 20 4d 65 73 73 61 67 65 0d 0a ┆tely. SD Get Clock Message ┆
0x0fc40…0fc60 16 73 6f 20 67 65 74 20 63 6c 6f 63 6b 0d 0a a1 55 73 65 72 20 46 69 65 6c 64 73 09 4d 65 73 73 ┆ so get clock АUser Fields Mess┆
0x0fc60…0fc80 61 67 65 09 41 6e 73 77 65 72 20 e1 20 20 20 20 0d 0a 20 20 20 20 75 31 09 31 20 28 31 2b 34 2a ┆age Answer р u1 1 (1+4*┆
0x0fc80…0fca0 30 29 09 31 0d 0a 20 20 20 20 75 32 09 75 6e 75 73 65 64 09 30 20 20 20 20 20 0d 0a 20 20 20 20 ┆0) 1 u2 unused 0 ┆
0x0fca0…0fcc0 75 33 09 75 6e 75 73 65 64 09 30 20 20 20 20 20 0d 0a 20 20 20 20 75 34 09 75 6e 75 73 65 64 09 ┆u3 unused 0 u4 unused ┆
0x0fcc0…0fce0 75 6e 63 68 61 6e 67 65 64 0d 0a 0d 0a a1 4d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 0d 0a e1 ┆unchanged АMessage buffer р┆
0x0fce0…0fd00 41 20 72 65 63 6f 72 64 20 6f 66 20 74 79 70 65 20 27 64 65 6c 61 79 74 79 70 65 27 2e 20 0d 0a ┆A record of type 'delaytype'. ┆
0x0fd00…0fd20 0d 0a 0e 0a a1 46 75 6e 63 74 69 6f 6e 20 0d 0a e1 47 6c 6f 62 61 6c 20 74 69 6d 65 20 69 73 20 ┆ АFunction рGlobal time is ┆
0x0fd20…0fd40 61 73 73 69 67 6e 65 64 20 74 6f 20 74 68 65 20 62 75 66 66 65 72 20 74 69 6d 65 2e 20 28 27 69 ┆assigned to the buffer time. ('i┆
0x0fd40…0fd60 6e 63 27 20 69 73 20 6e 6f 74 20 75 73 65 64 29 2e 0d 0a 0f 0a 0d 0a 8c 89 98 0a 54 68 65 20 6d ┆nc' is not used). їЅў The m┆
0x0fd60…0fd80 65 73 73 61 67 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 20 ┆essage is returned immediately. ┆
0x0fd80…0fda0 0d 0a 16 53 44 0d 0a 4c 6f 6e 67 20 52 65 6c 61 74 69 76 65 20 44 65 6c 61 79 20 4d 65 73 73 61 ┆ SD Long Relative Delay Messa┆
0x0fda0…0fdc0 67 65 0d 0a a1 55 73 65 72 20 46 69 65 6c 64 73 09 4d 65 73 73 61 67 65 09 41 6e 73 77 65 72 20 ┆ge АUser Fields Message Answer ┆
0x0fdc0…0fde0 e1 20 20 20 20 0d 0a 20 20 20 20 75 31 09 39 20 28 31 2b 34 2a 32 29 09 39 0d 0a 20 20 20 20 75 ┆р u1 9 (1+4*2) 9 u┆
0x0fde0…0fe00 32 09 75 6e 75 73 65 64 09 72 65 73 75 6c 74 20 20 20 20 20 0d 0a 20 20 20 20 75 33 09 75 6e 75 ┆2 unused result u3 unu┆
0x0fe00…0fe20 73 65 64 09 30 20 20 20 20 20 0d 0a 20 20 20 20 75 34 09 75 6e 75 73 65 64 09 75 6e 63 68 61 6e ┆sed 0 u4 unused unchan┆
0x0fe20…0fe40 67 65 64 20 0d 0a 0d 0a a1 4d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 0d 0a e1 41 20 72 65 63 ┆ged АMessage buffer рA rec┆
0x0fe40…0fe60 6f 72 64 20 6f 66 20 74 79 70 65 20 27 64 65 6c 61 79 74 79 70 65 27 2e 20 0d 0a 0d 0a a1 46 75 ┆ord of type 'delaytype'. АFu┆
0x0fe60…0fe80 6e 63 74 69 6f 6e 20 0d 0a e1 54 68 65 20 62 75 66 66 65 72 20 74 69 6d 65 20 69 73 20 73 65 74 ┆nction рThe buffer time is set┆
0x0fe80…0fea0 20 74 6f 20 27 67 6c 6f 62 61 6c 20 74 69 6d 65 2b 69 6e 63 27 2e 20 54 68 65 20 6d 65 73 73 61 ┆ to 'global time+inc'. The messa┆
0x0fea0…0fec0 67 65 20 69 73 20 72 65 74 75 72 6e 65 64 2c 20 0a 77 68 65 6e 20 67 6c 6f 62 61 6c 20 74 69 6d ┆ge is returned, when global tim┆
0x0fec0…0fee0 65 20 70 61 73 73 65 73 20 74 68 65 20 6e 65 77 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 62 75 ┆e passes the new value of the bu┆
0x0fee0…0ff00 66 66 65 72 20 74 69 6d 65 2e 20 0d 0a 0d 0a 0e 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e ┆ffer time. Results Meanin┆
0x0ff00…0ff20 67 20 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 4f 4b 2e 20 20 20 20 20 0d 0a 20 20 20 20 31 ┆g 0 OK. 1┆
0x0ff20…0ff40 20 20 20 20 4e 6f 74 20 70 72 6f 63 65 73 73 65 64 2e 20 54 68 65 20 6d 65 73 73 61 67 65 20 69 ┆ Not processed. The message i┆
0x0ff40…0ff60 73 20 72 65 67 72 65 74 74 65 64 2e 20 0d 0a 0f 0a 16 53 44 0d 0a 53 65 74 20 43 6c 6f 63 6b 20 ┆s regretted. SD Set Clock ┆
0x0ff60…0ff80 52 65 6c 61 74 69 76 65 20 4d 65 73 73 61 67 65 0d 0a a1 55 73 65 72 20 46 69 65 6c 64 73 09 4d ┆Relative Message АUser Fields M┆
0x0ff80…0ffa0 65 73 73 61 67 09 41 6e 73 77 65 72 20 e1 20 20 20 20 0d 0a 20 20 20 20 75 31 09 36 20 28 32 2b ┆essag Answer р u1 6 (2+┆
0x0ffa0…0ffc0 34 2a 31 29 09 36 0d 0a 20 20 20 20 75 32 09 75 6e 75 73 65 64 09 30 0d 0a 20 20 20 20 75 33 09 ┆4*1) 6 u2 unused 0 u3 ┆
0x0ffc0…0ffe0 75 6e 75 73 65 64 09 30 0d 0a 20 20 20 20 75 34 09 75 6e 75 73 65 64 09 75 6e 63 68 61 6e 67 65 ┆unused 0 u4 unused unchange┆
0x0ffe0…10000 64 20 0d 0a 0d 0a a1 4d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 0d 0a e1 41 20 72 65 63 6f 72 ┆d АMessage buffer рA recor┆
0x10000…10020 64 20 6f 66 20 74 79 70 65 20 27 64 65 6c 61 79 74 79 70 65 27 2e 20 0d 0a 0d 0a a1 46 75 6e 63 ┆d of type 'delaytype'. АFunc┆
0x10020…10040 74 69 6f 6e 20 0d 0a e1 47 6c 6f 62 61 6c 20 74 69 6d 65 20 69 73 20 73 65 74 20 74 6f 20 27 67 ┆tion рGlobal time is set to 'g┆
0x10040…10060 6c 6f 62 61 6c 20 74 69 6d 65 2b 69 6e 63 27 2c 20 61 6e 64 20 74 68 65 20 62 75 66 66 65 72 20 ┆lobal time+inc', and the buffer ┆
0x10060…10080 74 69 6d 65 20 69 73 20 73 65 74 20 0a 74 6f 20 74 68 69 73 20 6e 65 77 20 76 61 6c 75 65 20 6f ┆time is set to this new value o┆
0x10080…100a0 66 20 67 6c 6f 62 61 6c 20 74 69 6d 65 2e 20 54 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 ┆f global time. The message is re┆
0x100a0…100c0 74 75 72 6e 65 64 20 69 6d 6d 65 64 69 80 0a 61 74 65 6c 79 2e 20 54 68 65 20 71 75 65 75 65 20 ┆turned immediђ ately. The queue ┆
0x100c0…100e0 6f 66 20 6c 6f 6e 67 20 64 65 6c 61 79 20 6d 65 73 73 61 67 65 73 20 69 73 20 73 63 61 6e 6e 65 ┆of long delay messages is scanne┆
0x100e0…10100 64 20 66 6f 72 20 70 6f 73 73 69 62 6c 65 20 0a 72 65 74 75 72 6e 73 2e 20 0d 0a 16 53 44 0d 0a ┆d for possible returns. SD ┆
0x10100…10120 53 65 74 20 43 6c 6f 63 6b 20 49 6e 74 65 72 76 61 6c 20 4d 65 73 73 61 67 65 0d 0a 04 00 2d 4c ┆Set Clock Interval Message -L┆
0x10120…10140 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x10140…10160 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 ┆ $-7AKU_is} -L ┆
0x10160…10180 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c ┆ A1 ┆
0x10180…101a0 20 24 2d 37 41 4b 55 5f 69 73 7d ff ff 04 0a 0e 0a a1 55 73 65 72 20 46 69 65 6c 64 73 09 4d 65 ┆ $-7AKU_is} АUser Fields Me┆
0x101a0…101c0 73 73 61 67 65 09 41 6e 73 77 65 72 20 e1 20 20 20 20 0d 0a 09 75 31 09 34 20 28 30 2b 34 2a 31 ┆ssage Answer р u1 4 (0+4*1┆
0x101c0…101e0 29 09 34 0d 0a 20 20 20 20 75 32 09 75 6e 75 73 65 64 09 30 20 20 20 20 20 0d 0a 20 20 20 20 75 ┆) 4 u2 unused 0 u┆
0x101e0…10200 33 09 6e 65 77 20 69 6e 74 65 72 76 61 6c 09 6f 6c 64 20 69 6e 74 65 72 76 61 6c 20 20 20 20 20 ┆3 new interval old interval ┆
0x10200…10220 0d 0a 20 20 20 20 75 34 09 75 6e 75 73 65 64 09 75 6e 63 68 61 6e 67 65 64 20 0d 0a 0f 0a 0d 0a ┆ u4 unused unchanged ┆
0x10220…10240 a1 4d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 0d 0a e1 4e 6f 74 20 75 73 65 64 2e 20 0d 0a 0d ┆АMessage buffer рNot used. ┆
0x10240…10260 0a a1 46 75 6e 63 74 69 6f 6e 20 0d 0a e1 43 6f 6e 74 72 6f 6c 73 20 74 68 65 20 73 70 65 65 64 ┆ АFunction рControls the speed┆
0x10260…10280 20 6f 66 20 67 6c 6f 62 61 6c 20 74 69 6d 65 2e 20 46 6f 72 20 65 76 65 72 79 20 52 65 61 6c 20 ┆ of global time. For every Real ┆
0x10280…102a0 54 69 6d 65 20 43 6c 6f 63 6b 20 69 6e 74 65 72 80 0a 72 75 70 74 2c 20 67 6c 6f 62 61 6c 20 74 ┆Time Clock interђ rupt, global t┆
0x102a0…102c0 69 6d 65 20 69 73 20 69 6e 63 72 65 6d 65 6e 74 65 64 20 62 79 20 27 67 6c 6f 62 61 6c 20 69 6e ┆ime is incremented by 'global in┆
0x102c0…102e0 74 65 72 76 61 6c 27 20 6d 73 65 63 2e 20 44 65 66 61 75 6c 74 20 3d 20 0a 35 30 20 6d 73 65 63 ┆terval' msec. Default = 50 msec┆
0x102e0…10300 2e 20 4f 6e 6c 79 20 6c 6f 6e 67 20 64 65 6c 61 79 73 20 61 72 65 20 69 6e 66 6c 75 65 6e 63 65 ┆. Only long delays are influence┆
0x10300…10320 64 20 62 79 20 72 65 64 65 66 69 6e 69 74 69 6f 6e 73 20 6f 66 20 27 67 6c 6f 62 61 6c 20 0a 69 ┆d by redefinitions of 'global i┆
0x10320…10340 6e 74 65 72 76 61 6c 27 2e 20 53 68 6f 72 74 20 64 65 6c 61 79 73 20 61 6e 64 20 74 68 65 20 52 ┆nterval'. Short delays and the R┆
0x10340…10360 54 43 20 69 6e 74 65 72 72 75 70 74 20 66 72 65 71 75 65 6e 63 79 20 61 72 65 20 6e 6f 74 20 64 ┆TC interrupt frequency are not d┆
0x10360…10380 69 80 0a 73 74 75 72 62 65 64 2e 20 0d 0a 0d 0a 8c 89 b0 0a a1 4e 65 77 20 69 6e 74 65 72 76 61 ┆iђ sturbed. їЅ░ АNew interva┆
0x10380…103a0 6c 20 0d 0a e1 27 47 6c 6f 62 61 6c 20 69 6e 74 65 72 76 61 6c 27 20 69 73 20 73 65 74 20 74 6f ┆l р'Global interval' is set to┆
0x103a0…103c0 20 27 6e 65 77 20 69 6e 74 65 72 76 61 6c 27 20 28 6d 73 65 63 2e 29 2e 20 0d 0a 0d 0a a1 4f 6c ┆ 'new interval' (msec.). АOl┆
0x103c0…103e0 64 20 69 6e 74 65 72 76 61 6c 20 0d 0a e1 27 47 6c 6f 62 61 6c 20 69 6e 74 65 72 76 61 6c 27 20 ┆d interval р'Global interval' ┆
0x103e0…10400 69 73 20 72 65 74 75 72 6e 65 64 2c 20 62 65 66 6f 72 65 20 73 65 74 20 74 6f 20 27 6e 65 77 20 ┆is returned, before set to 'new ┆
0x10400…10420 69 6e 74 65 72 76 61 6c 27 20 66 6f 72 20 72 65 80 0a 65 73 74 61 62 6c 69 73 68 6d 65 6e 74 20 ┆interval' for reђ establishment ┆
0x10420…10440 70 75 72 70 6f 73 65 73 2e 20 0d 0a 16 53 44 0d 0a 52 65 67 72 65 74 20 4d 65 73 73 61 67 65 0d ┆purposes. SD Regret Message ┆
0x10440…10460 0a 16 73 6f 20 72 65 67 72 65 74 20 6d 65 73 73 61 67 65 2c 20 74 69 6d 65 72 0d 0a a1 55 73 65 ┆ so regret message, timer АUse┆
0x10460…10480 72 20 46 69 65 6c 64 73 09 4d 65 73 73 61 67 65 09 41 6e 73 77 65 72 20 e1 20 20 20 20 0d 0a 20 ┆r Fields Message Answer р ┆
0x10480…104a0 20 20 20 75 31 20 20 20 20 20 20 20 20 31 32 20 28 30 2b 34 2a 33 29 09 31 32 20 20 20 0d 0a 20 ┆ u1 12 (0+4*3) 12 ┆
0x104a0…104c0 20 20 20 75 32 20 20 20 20 20 20 20 20 75 6e 75 73 65 64 09 30 20 20 20 20 20 0d 0a 20 20 20 20 ┆ u2 unused 0 ┆
0x104c0…104e0 75 33 20 20 20 20 20 20 20 20 75 6e 75 73 65 64 09 75 6e 63 68 61 6e 67 65 64 20 20 20 20 20 20 ┆u3 unused unchanged ┆
0x104e0…10500 20 20 20 0d 0a 20 20 20 20 75 34 20 20 20 20 20 20 20 20 75 6e 75 73 65 64 09 75 6e 63 68 61 6e ┆ u4 unused unchan┆
0x10500…10520 67 65 64 20 0d 0a 0d 0a a1 4d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 0d 0a e1 4e 6f 74 20 75 ┆ged АMessage buffer рNot u┆
0x10520…10540 73 65 64 2e 20 0d 0a 0d 0a a1 46 75 6e 63 74 69 6f 6e 20 0d 0a e1 54 68 65 20 64 65 6c 61 79 20 ┆sed. АFunction рThe delay ┆
0x10540…10560 71 75 65 75 65 73 20 61 72 65 20 73 63 61 6e 6e 65 64 2e 20 49 66 20 61 20 6d 65 73 73 61 67 65 ┆queues are scanned. If a message┆
0x10560…10580 20 69 73 20 66 6f 75 6e 64 20 77 69 74 68 20 6d 61 74 63 68 69 6e 67 20 0a 27 68 6f 6d 65 20 6d ┆ is found with matching 'home m┆
0x10580…105a0 61 69 6c 62 6f 78 27 2c 20 69 74 20 69 73 20 72 65 74 75 72 6e 65 64 20 77 69 74 68 20 72 65 73 ┆ailbox', it is returned with res┆
0x105a0…105c0 75 6c 74 3d 31 20 28 6e 6f 74 20 70 72 6f 63 65 73 73 65 64 29 2e 20 54 68 65 20 0a 72 65 67 72 ┆ult=1 (not processed). The regr┆
0x105c0…105e0 65 74 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6d 6d 65 64 69 61 74 65 ┆et message is returned immediate┆
0x105e0…10600 6c 79 2e 20 41 74 20 6d 6f 73 74 20 6f 6e 65 20 6d 65 73 73 61 67 65 20 69 73 20 0a 72 65 67 72 ┆ly. At most one message is regr┆
0x10600…10620 65 74 74 65 64 20 70 65 72 20 27 72 65 67 72 65 74 20 6d 65 73 73 61 67 65 27 2e 20 0d 0a 16 53 ┆etted per 'regret message'. S┆
0x10620…10640 44 0d 0a 52 65 67 72 65 74 20 53 74 72 65 61 6d 20 4d 65 73 73 61 67 65 0d 0a a1 55 73 65 72 20 ┆D Regret Stream Message АUser ┆
0x10640…10660 46 69 65 6c 64 73 09 4d 65 73 73 61 67 65 09 41 6e 73 77 65 72 20 e1 20 20 20 20 0d 0a 20 20 20 ┆Fields Message Answer р ┆
0x10660…10680 20 75 31 20 20 20 20 20 20 20 20 38 20 28 30 2b 34 2a 32 29 09 38 20 20 20 0d 0a 20 20 20 20 75 ┆ u1 8 (0+4*2) 8 u┆
0x10680…106a0 32 20 20 20 20 20 20 20 20 75 6e 75 73 65 64 09 30 20 20 20 20 20 0d 0a 20 20 20 20 75 33 20 20 ┆2 unused 0 u3 ┆
0x106a0…106c0 20 20 20 20 20 20 75 6e 75 73 65 64 09 75 6e 63 68 61 6e 67 65 64 20 20 20 20 20 20 20 20 20 0d ┆ unused unchanged ┆
0x106c0…106e0 0a 20 20 20 20 75 34 20 20 20 20 20 20 20 20 73 74 72 65 61 6d 20 6e 6f 09 75 6e 63 68 61 6e 67 ┆ u4 stream no unchang┆
0x106e0…10700 65 64 20 0d 0a 0d 0a a1 4d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 0d 0a e1 4e 6f 74 20 75 73 ┆ed АMessage buffer рNot us┆
0x10700…10720 65 64 2e 20 0d 0a 0d 0a a1 46 75 6e 63 74 69 6f 6e 20 0d 0a e1 54 68 65 20 64 65 6c 61 79 20 71 ┆ed. АFunction рThe delay q┆
0x10720…10740 75 65 75 65 73 20 61 72 65 20 73 63 61 6e 6e 65 64 2e 20 49 66 20 61 20 6d 65 73 73 61 67 65 20 ┆ueues are scanned. If a message ┆
0x10740…10760 69 73 20 66 6f 75 6e 64 20 77 69 74 68 20 6d 61 74 63 68 69 6e 67 20 0a 27 68 6f 6d 65 20 6d 61 ┆is found with matching 'home ma┆
0x10760…10780 69 6c 62 6f 78 27 20 61 6e 64 20 73 74 72 65 61 6d 20 6e 75 6d 62 65 72 20 28 75 34 20 76 61 6c ┆ilbox' and stream number (u4 val┆
0x10780…107a0 75 65 29 2c 20 69 74 20 69 73 20 72 65 74 75 72 6e 65 64 20 77 69 74 68 20 72 65 80 0a 73 75 6c ┆ue), it is returned with reђ sul┆
0x107a0…107c0 74 3d 31 20 28 6e 6f 74 20 70 72 6f 63 65 73 73 65 64 29 2e 20 54 68 65 20 72 65 67 72 65 74 20 ┆t=1 (not processed). The regret ┆
0x107c0…107e0 6d 65 73 73 61 67 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e ┆message is returned immediately.┆
0x107e0…10800 20 41 74 20 0a 6d 6f 73 74 20 6f 6e 65 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 67 72 65 74 74 ┆ At most one message is regrett┆
0x10800…10820 65 64 20 70 65 72 20 27 72 65 67 72 65 74 20 6d 65 73 73 61 67 65 27 2e 20 0d 0a 16 53 43 0d 0a ┆ed per 'regret message'. SC ┆
0x10820…10840 53 69 67 6e 61 6c 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 69 67 6e 61 6c be 28 56 41 52 ┆Signal PROCEDURE ┐▄пsignalЙ(VAR┆
0x10840…10860 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 6d 62 78 3a 20 6d 61 69 6c 62 6f 78 29 ┆ r: reference; VAR mbx: mailbox)┆
0x10860…10880 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 74 ┆; Predefined. - ёIf t┆
0x10880…108a0 68 65 20 6d 61 69 6c 62 6f 78 20 69 73 20 70 61 73 73 69 76 65 20 6f 72 20 6f 70 65 6e 2c 20 74 ┆he mailbox is passive or open, t┆
0x108a0…108c0 68 65 20 6d 65 73 73 61 67 65 20 72 65 66 65 72 72 65 64 20 74 6f 20 62 79 20 0a 19 85 80 80 27 ┆he message referred to by Ёђђ'┆
0x108c0…108e0 72 27 20 62 65 63 6f 6d 65 73 20 74 68 65 20 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 ┆r' becomes the last element of t┆
0x108e0…10900 68 65 20 6d 61 69 6c 62 6f 78 27 73 20 73 65 71 75 65 6e 63 65 20 6f 66 20 6d 65 73 80 0a 19 85 ┆he mailbox's sequence of mesђ Ё┆
0x10900…10920 80 80 73 61 67 65 73 2e 20 49 66 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 69 73 20 6c 6f 63 6b 65 ┆ђђsages. If the mailbox is locke┆
0x10920…10940 64 2c 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 68 61 6e 64 65 64 20 6f 76 65 72 20 74 6f ┆d, the message is handed over to┆
0x10940…10960 20 0a 19 85 80 80 74 68 65 20 66 69 72 73 74 20 70 72 6f 63 65 73 73 20 77 61 69 74 69 6e 67 20 ┆ Ёђђthe first process waiting ┆
0x10960…10980 6f 6e 20 74 68 65 20 6d 61 69 6c 62 6f 78 2c 20 61 6e 64 20 74 68 69 73 20 70 72 6f 63 65 73 73 ┆on the mailbox, and this process┆
0x10980…109a0 20 69 73 20 61 63 80 0a 19 85 80 80 74 69 76 61 74 65 64 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 ┆ is acђ Ёђђtivated. An exce┆
0x109a0…109c0 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 74 68 65 20 72 ┆ption occurs if: - ёthe r┆
0x109c0…109e0 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 69 6c 2e 20 0d 0a 20 20 20 2d ┆eference variable is nil. -┆
0x109e0…10a00 20 84 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6c 6f 63 6b ┆ ёthe reference variable is lock┆
0x10a00…10a20 65 64 2e 20 0d 0a 8c 89 c8 0a 16 53 43 0d 0a 57 61 69 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf ┆ed. їЅ╚ SC Wait PROCEDURE ┐┆
0x10a20…10a40 dc d8 77 61 69 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 20 56 41 52 20 6d ┆▄пwaitЙ(VAR r: reference; VAR m┆
0x10a40…10a60 3a 20 6d 61 69 6c 62 6f 78 29 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 50 ┆: mailbox); P┆
0x10a60…10a80 72 65 64 65 66 69 6e 65 64 2e 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 6d 61 69 6c 62 ┆redefined. - ёIf the mailb┆
0x10a80…10aa0 6f 78 20 69 73 20 6f 70 65 6e 2c 20 74 68 65 20 66 69 72 73 74 20 6d 65 73 73 61 67 65 20 69 73 ┆ox is open, the first message is┆
0x10aa0…10ac0 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20 0a 19 85 80 80 6d 61 69 6c 62 6f 78 27 73 ┆ removed from the Ёђђmailbox's┆
0x10ac0…10ae0 20 73 65 71 75 65 6e 63 65 20 6f 66 20 6d 65 73 73 61 67 65 73 2e 20 49 66 20 74 68 65 20 6d 61 ┆ sequence of messages. If the ma┆
0x10ae0…10b00 69 6c 62 6f 78 20 69 73 20 70 61 73 73 69 76 65 20 6f 72 20 0a 19 85 80 80 6c 6f 63 6b 65 64 2c ┆ilbox is passive or Ёђђlocked,┆
0x10b00…10b20 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 61 69 74 73 20 61 6e 64 20 62 65 63 6f 6d 65 73 20 74 ┆ the process waits and becomes t┆
0x10b20…10b40 68 65 20 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 0a 19 85 80 80 73 65 71 75 ┆he last element of the Ёђђsequ┆
0x10b40…10b60 65 6e 63 65 20 6f 66 20 70 72 6f 63 65 73 73 65 73 20 77 61 69 74 69 6e 67 20 6f 6e 20 74 68 65 ┆ence of processes waiting on the┆
0x10b60…10b80 20 6d 61 69 6c 62 6f 78 2e 20 49 74 20 69 73 20 72 65 73 75 80 6d 65 64 20 62 79 20 0a 19 85 80 ┆ mailbox. It is resuђmed by Ёђ┆
0x10b80…10ba0 80 61 6e 6f 74 68 65 72 20 70 72 6f 63 65 73 73 20 63 61 6c 6c 69 6e 67 20 73 69 67 6e 61 6c 20 ┆ђanother process calling signal ┆
0x10ba0…10bc0 6f 72 20 72 65 74 75 72 6e 2e 20 0d 0a 0d 0a 54 68 65 20 72 65 66 65 72 65 6e 63 65 20 70 61 72 ┆or return. The reference par┆
0x10bc0…10be0 61 6d 65 74 65 72 20 6d 75 73 74 20 62 65 20 6e 69 6c 2c 20 6f 74 68 65 72 77 69 73 65 20 61 6e ┆ameter must be nil, otherwise an┆
0x10be0…10c00 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 0a 41 66 74 65 72 20 61 20 63 61 6c 6c ┆ exception occurs. After a call┆
0x10c00…10c20 20 6f 66 20 27 77 61 69 74 27 20 69 74 20 72 65 66 65 72 73 20 74 6f 20 61 20 6d 65 73 73 61 67 ┆ of 'wait' it refers to a messag┆
0x10c20…10c40 65 2e 20 0d 0a 16 53 43 0d 0a 57 61 69 74 64 65 6c 61 79 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc ┆e. SC Waitdelay FUNCTION ┐▄┆
0x10c40…10c60 d8 77 61 69 74 64 65 6c 61 79 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 ┆пwaitdelayЙ(VAR r: reference; VA┆
0x10c60…10c80 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 73 65 63 ┆R m: mailbox; msec┆
0x10c80…10ca0 73 3a 20 69 6e 74 65 67 65 72 29 3a 20 61 63 74 69 76 61 74 69 6f 6e 3b 20 0d 0a 0d 0a 50 72 65 ┆s: integer): activation; Pre┆
0x10ca0…10cc0 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 61 69 74 73 20 66 6f 72 20 74 77 6f ┆defined. - ёwaits for two┆
0x10cc0…10ce0 20 6b 69 6e 64 73 20 6f 66 20 65 76 65 6e 74 3a 20 0d 0a 0d 0a 20 20 20 20 20 20 20 20 31 2e 20 ┆ kinds of event: 1. ┆
0x10ce0…10d00 84 54 68 65 20 61 72 72 69 76 61 6c 20 6f 66 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 74 68 65 ┆ёThe arrival of a message to the┆
0x10d00…10d20 20 6d 61 69 6c 62 6f 78 20 27 6d 27 20 28 61 5f 6d 61 69 6c 62 6f 78 29 0d 0a 20 20 20 20 20 20 ┆ mailbox 'm' (a_mailbox) ┆
0x10d20…10d40 20 20 32 2e 20 45 78 70 69 72 61 74 69 6f 6e 20 6f 66 20 61 20 64 65 6c 61 79 20 70 65 72 69 6f ┆ 2. Expiration of a delay perio┆
0x10d40…10d60 64 20 28 61 5f 64 65 6c 61 79 29 20 0d 0a 0d 0a 54 68 65 20 74 69 6d 65 72 20 66 69 65 6c 64 20 ┆d (a_delay) The timer field ┆
0x10d60…10d80 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 6f 72 20 69 73 20 69 6e 69 ┆of the process descriptor is ini┆
0x10d80…10da0 74 69 61 6c 69 7a 65 64 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 0a 27 6d 73 65 63 73 ┆tialized to the value of 'msecs┆
0x10da0…10dc0 27 20 44 49 56 20 31 30 30 30 20 62 65 66 6f 72 65 20 74 68 65 20 77 61 69 74 20 69 73 20 70 65 ┆' DIV 1000 before the wait is pe┆
0x10dc0…10de0 72 66 6f 72 6d 65 64 2e 20 0d 0a 0d 0a 8c 85 88 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 ┆rformed. їЁѕ An exception oc┆
0x10de0…10e00 63 75 72 73 20 69 66 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 27 72 27 20 69 73 20 6e 6f 74 ┆curs if the reference 'r' is not┆
0x10e00…10e20 20 6e 69 6c 2e 20 0d 0a 0d 0a a1 4e 6f 74 65 3a e1 20 43 6f 75 6e 74 20 64 6f 77 6e 20 6f 66 20 ┆ nil. АNote:р Count down of ┆
0x10e20…10e40 74 68 65 20 74 69 6d 65 72 20 6f 6e 6c 79 20 74 61 6b 65 73 20 70 6c 61 63 65 2c 20 69 66 20 27 ┆the timer only takes place, if '┆
0x10e40…10e60 64 65 66 69 6e 65 74 69 6d 65 72 27 20 68 61 73 20 0a 62 65 65 6e 20 62 65 65 6e 20 63 61 6c 6c ┆definetimer' has been been call┆
0x10e60…10e80 65 64 2e 20 0d 0a 16 53 42 0d 0a 52 6f 75 74 69 6e 65 73 20 66 6f 72 20 4d 65 73 73 61 67 65 20 ┆ed. SB Routines for Message ┆
0x10e80…10ea0 4d 61 6e 69 70 75 6c 61 74 69 6f 6e 0d 0a 54 68 65 20 72 6f 75 74 69 6e 65 73 20 69 6e 20 74 68 ┆Manipulation The routines in th┆
0x10ea0…10ec0 69 73 20 73 65 63 74 69 6f 6e 20 61 72 65 20 75 73 65 64 20 66 6f 72 20 61 6c 6c 6f 63 61 74 69 ┆is section are used for allocati┆
0x10ec0…10ee0 6f 6e 20 61 6e 64 20 64 65 61 6c 6c 6f 63 61 74 69 6f 6e 20 0a 6f 66 20 6d 65 73 73 61 67 65 73 ┆on and deallocation of messages┆
0x10ee0…10f00 2c 20 62 65 73 69 64 65 73 20 67 65 6e 65 72 61 6c 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 20 6f ┆, besides general manipulation o┆
0x10f00…10f20 66 20 6d 65 73 73 61 67 65 20 73 74 61 63 6b 73 20 61 6e 64 20 6d 65 73 80 0a 73 61 67 65 20 61 ┆f message stacks and mesђ sage a┆
0x10f20…10f40 74 74 72 69 62 75 74 65 73 2c 20 73 75 63 68 20 61 73 20 74 68 65 20 73 69 7a 65 20 6f 66 20 74 ┆ttributes, such as the size of t┆
0x10f40…10f60 68 65 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 2c 20 74 68 65 20 75 2d 61 74 74 72 69 80 62 ┆he message buffer, the u-attriђb┆
0x10f60…10f80 75 80 0a 74 65 73 2c 20 61 6e 64 20 74 68 65 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 61 ┆uђ tes, and the message buffer a┆
0x10f80…10fa0 74 74 72 69 62 75 74 65 73 2c 20 6f 66 66 73 65 74 2c 20 74 6f 70 2c 20 61 6e 64 20 62 79 74 65 ┆ttributes, offset, top, and byte┆
0x10fa0…10fc0 63 6f 75 6e 74 2e 20 0a 52 6f 75 74 69 6e 65 73 20 66 6f 72 20 6d 61 6e 69 70 75 6c 61 74 69 6f ┆count. Routines for manipulatio┆
0x10fc0…10fe0 6e 20 6f 66 20 74 68 65 20 61 74 74 72 69 62 75 74 65 73 20 66 69 72 73 74 2c 20 6c 61 73 74 2c ┆n of the attributes first, last,┆
0x10fe0…11000 20 61 6e 64 20 6e 65 78 74 20 61 72 65 20 0a 64 65 73 63 72 69 62 65 64 2c 20 62 75 74 20 6f 62 ┆ and next are described, but ob┆
0x11000…11020 73 65 72 76 65 20 74 68 61 74 20 74 68 65 79 20 61 72 65 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 ┆serve that they are not part of ┆
0x11020…11040 74 68 65 20 6c 61 6e 67 75 61 67 65 20 28 69 2e 65 2e 20 0a 6e 6f 74 20 70 72 65 64 65 66 69 6e ┆the language (i.e. not predefin┆
0x11040…11060 65 64 29 2e 20 46 75 72 74 68 65 72 6d 6f 72 65 2c 20 64 69 72 65 63 74 20 61 74 74 72 69 62 75 ┆ed). Furthermore, direct attribu┆
0x11060…11080 74 65 20 6f 70 65 72 61 74 69 6f 6e 73 20 6f 6e 20 74 68 65 20 66 69 72 73 74 20 0a 74 68 72 65 ┆te operations on the first thre┆
0x11080…110a0 65 20 77 6f 72 64 73 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 69 6e 20 6c 6f 63 6b 20 73 74 ┆e words in the buffer in lock st┆
0x110a0…110c0 61 74 65 6d 65 6e 74 73 20 73 68 6f 75 6c 64 20 62 65 20 61 76 6f 69 64 65 64 2e 20 0d 0a 16 53 ┆atements should be avoided. S┆
0x110c0…110e0 43 0d 0a 41 6c 6c 6f 63 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 61 6c 6c 6f 63 be 28 56 41 ┆C Alloc PROCEDURE ┐▄пallocЙ(VA┆
0x110e0…11100 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 70 3a 20 70 6f 6f 6c 3b 20 56 41 52 ┆R r: reference; VAR p: pool; VAR┆
0x11100…11120 20 6d 3a 20 6d 61 69 6c 62 6f 78 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a ┆ m: mailbox); Predefined. ┆
0x11120…11140 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 70 6f 6f 6c 20 6f 66 20 6d 65 73 73 61 67 65 73 20 ┆ - ёIf the pool of messages ┆
0x11140…11160 69 73 20 6e 6f 74 20 65 6d 70 74 79 2c 20 6f 6e 65 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 ┆is not empty, one of the message┆
0x11160…11180 73 20 69 73 20 0a 19 85 80 80 72 65 6d 6f 76 65 64 2e 20 49 66 20 74 68 65 20 70 6f 6f 6c 20 69 ┆s is Ёђђremoved. If the pool i┆
0x11180…111a0 73 20 65 6d 70 74 79 2c 20 74 68 65 20 69 6e 63 61 72 6e 61 74 69 6f 6e 20 77 61 69 74 73 20 75 ┆s empty, the incarnation waits u┆
0x111a0…111c0 6e 74 69 6c 20 61 20 0a 19 85 80 80 6d 65 73 73 61 67 65 20 69 73 20 72 65 6c 65 61 73 65 64 20 ┆ntil a Ёђђmessage is released ┆
0x111c0…111e0 74 6f 20 74 68 65 20 70 6f 6f 6c 20 62 79 20 61 6e 6f 74 68 65 72 20 70 72 6f 63 65 73 73 20 69 ┆to the pool by another process i┆
0x111e0…11200 6e 63 61 72 6e 61 74 69 6f 6e 20 0a 19 85 80 80 63 61 6c 6c 69 6e 67 20 72 65 6c 65 61 73 65 2e ┆ncarnation Ёђђcalling release.┆
0x11200…11220 20 54 68 65 20 61 6e 73 77 65 72 20 6d 61 69 6c 62 6f 78 20 6f 66 20 74 68 65 20 61 6c 6c 6f 63 ┆ The answer mailbox of the alloc┆
0x11220…11240 61 74 65 64 20 6d 65 73 73 61 67 65 20 62 65 80 0a 19 85 80 80 63 6f 6d 65 73 20 27 6d 27 2e 20 ┆ated message beђ Ёђђcomes 'm'. ┆
0x11240…11260 0d 0a 0d 0a 54 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 6d 75 73 74 20 ┆ The reference variable must ┆
0x11260…11280 62 65 20 6e 69 6c 2c 20 6f 74 68 65 72 77 69 73 65 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f ┆be nil, otherwise an exception o┆
0x11280…112a0 63 63 75 72 73 2e 20 0a 41 66 74 65 72 20 74 68 65 20 63 61 6c 6c 20 69 74 20 72 65 66 65 72 73 ┆ccurs. After the call it refers┆
0x112a0…112c0 20 74 6f 20 61 20 6d 65 73 73 61 67 65 2e 20 0d 0a 16 53 43 0d 0a 41 6c 6c 6f 63 64 65 6c 61 79 ┆ to a message. SC Allocdelay┆
0x112c0…112e0 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 61 6c 6c 6f 63 64 65 6c 61 79 be 28 56 41 52 20 72 3a ┆ FUNCTION ┐▄пallocdelayЙ(VAR r:┆
0x112e0…11300 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 70 3a 20 70 6f 6f 6c 3b 20 0d 0a 20 20 20 20 20 ┆ reference; VAR p: pool; ┆
0x11300…11320 20 20 20 20 20 20 20 20 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 3b 20 6e 6f 5f 6f 66 5f 6d 73 ┆ VAR m: mailbox; no_of_ms┆
0x11320…11340 65 63 73 3a 20 30 2e 2e 6d 61 78 69 6e 74 29 3a 20 61 63 74 69 76 61 74 69 6f 6e 3b 0d 0a 0d 0a ┆ecs: 0..maxint): activation; ┆
0x11340…11360 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 70 6f 6f ┆Predefined. - ёIf the poo┆
0x11360…11380 6c 20 6f 66 20 6d 65 73 73 61 67 65 73 20 69 73 20 6e 6f 74 20 65 6d 70 74 79 2c 20 6f 6e 65 20 ┆l of messages is not empty, one ┆
0x11380…113a0 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 73 20 69 73 20 0a 19 85 80 80 72 65 6d 6f 76 65 64 2e ┆of the messages is Ёђђremoved.┆
0x113a0…113c0 20 49 66 20 74 68 65 20 70 6f 6f 6c 20 69 73 20 65 6d 70 74 79 2c 20 74 68 65 20 69 6e 63 61 72 ┆ If the pool is empty, the incar┆
0x113c0…113e0 6e 61 74 69 6f 6e 20 77 61 69 74 73 20 75 6e 74 69 6c 20 61 20 0a 19 85 80 80 6d 65 73 73 61 67 ┆nation waits until a Ёђђmessag┆
0x113e0…11400 65 20 69 73 20 72 65 6c 65 61 73 65 64 20 74 6f 20 74 68 65 20 70 6f 6f 6c 20 62 79 20 61 6e 6f ┆e is released to the pool by ano┆
0x11400…11420 74 68 65 72 20 70 72 6f 63 65 73 73 20 69 6e 63 61 72 6e 61 74 69 6f 6e 20 0a 19 85 80 80 63 61 ┆ther process incarnation Ёђђca┆
0x11420…11440 6c 6c 69 6e 67 20 72 65 6c 65 61 73 65 20 6f 72 20 74 68 65 20 65 78 70 69 72 61 74 69 6f 6e 20 ┆lling release or the expiration ┆
0x11440…11460 6f 66 20 74 68 65 20 64 65 6c 61 79 20 70 65 72 69 6f 64 2c 20 77 68 69 63 68 65 76 65 72 20 0a ┆of the delay period, whichever ┆
0x11460…11480 19 85 80 80 68 61 70 70 65 6e 73 20 66 69 72 73 74 2e 20 49 66 20 74 68 65 20 66 75 6e 63 74 69 ┆ Ёђђhappens first. If the functi┆
0x11480…114a0 6f 6e 20 72 65 73 75 6c 74 20 69 73 20 61 5f 6d 61 69 6c 62 6f 78 2c 20 74 68 65 20 61 6e 73 77 ┆on result is a_mailbox, the answ┆
0x114a0…114c0 65 72 20 0a 19 85 80 80 6d 61 69 6c 62 6f 78 20 6f 66 20 74 68 65 20 61 6c 6c 6f 63 61 74 65 64 ┆er Ёђђmailbox of the allocated┆
0x114c0…114e0 20 6d 65 73 80 73 61 67 65 20 62 65 80 63 6f 6d 65 73 20 27 6d 27 2e 20 49 66 20 74 68 65 20 64 ┆ mesђsage beђcomes 'm'. If the d┆
0x114e0…11500 65 6c 61 79 20 0a 19 85 80 80 70 65 72 69 6f 64 20 65 78 70 69 72 65 73 20 62 65 66 6f 72 65 20 ┆elay Ёђђperiod expires before ┆
0x11500…11520 74 68 65 20 70 72 6f 63 65 73 73 20 6f 62 74 61 69 6e 73 20 61 20 6d 65 73 73 61 67 65 2c 20 74 ┆the process obtains a message, t┆
0x11520…11540 68 65 20 63 61 6c 6c 20 0a 19 85 80 80 77 69 6c 6c 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 ┆he call Ёђђwill return the res┆
0x11540…11560 75 6c 74 20 61 5f 64 65 6c 61 79 2c 20 61 6e 64 20 6f 74 68 65 72 77 69 73 65 20 68 61 76 65 20 ┆ult a_delay, and otherwise have ┆
0x11560…11580 6e 6f 20 65 66 66 65 63 74 2e 2e 20 0d 0a 0d 0a 54 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 ┆no effect.. The reference va┆
0x11580…115a0 72 69 61 62 6c 65 20 6d 75 73 74 20 62 65 20 6e 69 6c 2c 20 6f 74 68 65 72 77 69 73 65 20 61 6e ┆riable must be nil, otherwise an┆
0x115a0…115c0 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 0a 16 53 43 0d 0a 41 6c 6c 6f 63 70 6f ┆ exception occurs. SC Allocpo┆
0x115c0…115e0 6f 6c 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 61 6c 6c 6f 63 70 6f 6f 6c be 28 56 41 52 20 70 ┆ol FUNCTION ┐▄пallocpoolЙ(VAR p┆
0x115e0…11600 3a 20 70 6f 6f 6c 3b 20 6e 75 6d 62 65 72 2c 20 62 79 74 65 73 3a 20 69 6e 74 65 67 65 72 29 3a ┆: pool; number, bytes: integer):┆
0x11600…11620 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 ┆ integer; Predefined. ┆
0x11620…11640 20 2d 20 84 73 75 70 70 6c 69 65 73 20 74 68 65 20 70 6f 6f 6c 20 76 61 72 69 61 62 6c 65 20 27 ┆ - ёsupplies the pool variable '┆
0x11640…11660 70 27 20 77 69 74 68 20 27 6e 75 6d 62 65 72 27 20 6d 65 73 73 61 67 65 73 20 6f 66 20 73 69 7a ┆p' with 'number' messages of siz┆
0x11660…11680 65 20 0a 19 85 80 80 27 62 79 74 65 73 27 2e 20 49 66 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 ┆e Ёђђ'bytes'. If the value of ┆
0x11680…116a0 27 62 79 74 65 73 27 20 69 73 20 6f 64 64 20 74 68 65 20 73 69 7a 65 20 77 69 6c 6c 20 62 65 20 ┆'bytes' is odd the size will be ┆
0x116a0…116c0 74 68 65 20 76 61 6c 75 65 20 0a 19 85 80 80 6f 66 20 27 62 79 74 65 73 27 2b 31 2e 20 54 68 65 ┆the value Ёђђof 'bytes'+1. The┆
0x116c0…116e0 20 72 65 73 75 6c 74 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 61 63 74 75 61 6c 20 6e 75 6d ┆ result indicates the actual num┆
0x116e0…11700 62 65 72 20 6f 66 20 6d 65 73 73 61 67 65 73 20 6f 62 80 0a 19 85 80 80 74 61 69 6e 65 64 20 66 ┆ber of messages obђ Ёђђtained f┆
0x11700…11720 72 6f 6d 20 74 68 65 20 41 4c 4c 4f 43 41 54 4f 52 2e 20 54 68 65 20 27 68 6f 6d 65 27 20 6d 61 ┆rom the ALLOCATOR. The 'home' ma┆
0x11720…11740 69 6c 62 6f 78 20 69 6e 20 74 68 65 20 6d 65 73 73 61 80 0a 19 85 80 80 67 65 73 20 69 73 20 69 ┆ilbox in the messaђ Ёђђges is i┆
0x11740…11760 6e 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 74 68 65 20 61 6e 6f 6e 79 6d 6f 75 73 20 70 6f 6f 6c ┆nitialized to the anonymous pool┆
0x11760…11780 20 6d 61 69 6c 62 6f 78 2e 20 54 68 61 74 20 6d 65 61 6e 73 20 0a 19 85 80 80 74 68 61 74 20 74 ┆ mailbox. That means Ёђђthat t┆
0x11780…117a0 68 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 20 74 6f 20 74 68 65 20 ┆he messages are returned to the ┆
0x117a0…117c0 70 6f 6f 6c 20 76 61 72 69 61 62 6c 65 20 62 79 20 61 20 27 72 65 6c 65 80 0a 19 85 80 80 61 73 ┆pool variable by a 'releђ Ёђђas┆
0x117c0…117e0 65 27 20 63 61 6c 6c 2e 20 0d 0a 0d 0a 0e 0a a1 45 78 61 6d 70 6c 65 20 20 34 2e 20 20 41 4c 4c ┆e' call. АExample 4. ALL┆
0x117e0…11800 4f 43 50 4f 4f 4c 20 e1 20 0d 0a 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 00 00 00 00 00 00 ┆OCPOOL р -L A1 ┆
0x11800…11820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ┆ $-7AKU_is}┆
0x11820…11840 ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1 ┆
0x11840…11860 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 0a 0d 0a ┆ $-7AKU_is} ┆
0x11860…11880 50 52 4f 47 52 41 4d 20 65 78 61 6d 70 6c 65 34 3b 20 20 20 20 20 0d 0a 43 4f 4e 53 54 20 20 20 ┆PROGRAM example4; CONST ┆
0x11880…118a0 20 0d 0a 20 20 73 69 7a 65 20 3d 33 37 3b 20 20 20 20 0d 0a 56 41 52 20 20 20 20 0d 0a 20 20 64 ┆ size =37; VAR d┆
0x118a0…118c0 72 69 76 65 72 2c 20 20 20 20 0d 0a 20 20 6d 20 20 20 20 20 3a 20 6d 61 69 6c 62 6f 78 3b 20 20 ┆river, m : mailbox; ┆
0x118c0…118e0 20 20 20 0d 0a 20 20 72 20 20 20 20 20 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 20 20 20 20 0d 0a ┆ r : reference; ┆
0x118e0…11900 20 20 70 20 20 20 20 20 3a 20 70 6f 6f 6c 3b 20 20 20 20 0d 0a 20 0d 0a 42 45 47 49 4e 20 20 20 ┆ p : pool; BEGIN ┆
0x11900…11920 20 20 0d 0a 20 20 49 46 20 61 6c 6c 6f 63 70 6f 6f 6c 28 70 2c 20 31 2c 20 73 69 7a 65 29 3d 30 ┆ IF allocpool(p, 1, size)=0┆
0x11920…11940 20 54 48 45 4e 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 28 2a 20 6e 6f 20 61 76 61 69 6c ┆ THEN (* no avail┆
0x11940…11960 61 62 6c 65 20 6d 65 6d 6f 72 79 20 6e 6f 77 2a 29 20 20 20 20 20 0d 0a 20 20 45 4c 53 45 20 28 ┆able memory now*) ELSE (┆
0x11960…11980 2a 20 6f 6e 65 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 62 75 66 73 69 7a 65 3d 33 38 20 21 21 ┆* one message with bufsize=38 !!┆
0x11980…119a0 20 61 6c 6c 6f 63 61 74 65 64 20 2a 29 20 20 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 20 ┆ allocated *) BEGIN ┆
0x119a0…119c0 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 61 6c 6c 6f 63 28 72 2c 20 70 2c 20 6d 29 3b 20 0d ┆ alloc(r, p, m); ┆
0x119c0…119e0 0a 20 20 20 20 20 20 20 28 2a 20 6e 6f 77 20 74 68 65 20 61 6e 73 77 65 72 20 6d 61 69 6c 62 6f ┆ (* now the answer mailbo┆
0x119e0…11a00 78 20 6f 66 20 72 20 69 73 20 6d 20 2a 29 20 0d 0a 20 20 20 20 20 20 73 69 67 6e 61 6c 28 72 2c ┆x of r is m *) signal(r,┆
0x11a00…11a20 20 64 72 69 76 65 72 29 3b 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 77 61 69 74 28 72 ┆ driver); wait(r┆
0x11a20…11a40 2c 6d 29 3b 20 20 20 20 20 20 20 0d 0a 20 20 20 20 45 4e 44 3b 20 20 20 0d 0a 45 4e 44 3b 20 28 ┆,m); END; END; (┆
0x11a40…11a60 2a 20 65 78 61 6d 70 6c 65 34 20 2a 29 20 20 20 2e 20 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 ┆* example4 *) . -L ┆
0x11a60…11a80 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 ┆ A1 $┆
0x11a80…11aa0 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 00 00 00 00 ┆-7AKU_is} -L A1 ┆
0x11aa0…11ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 ┆ $-7AKU_i┆
0x11ac0…11ae0 73 7d ff ff ff 04 0a 0f 0a 16 73 63 0d 0a 42 75 66 63 6f 75 6e 74 0d 0a 46 55 4e 43 54 49 4f 4e ┆s} sc Bufcount FUNCTION┆
0x11ae0…11b00 20 bf dc d8 62 75 66 63 6f 75 6e 74 be 28 56 41 52 20 73 74 61 63 6b 3a 20 72 65 66 65 72 65 6e ┆ ┐▄пbufcountЙ(VAR stack: referen┆
0x11b00…11b20 63 65 29 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 0d 0a 0d 0a ┆ce): integer; Predefined. ┆
0x11b20…11b40 20 20 20 2d 20 84 54 68 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64 20 62 79 20 62 75 66 63 ┆ - ёThe value returned by bufc┆
0x11b40…11b60 6f 75 6e 74 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6e 6f 6e 2d 65 6d 70 74 79 20 ┆ount is the number of non-empty ┆
0x11b60…11b80 6d 65 73 80 0a 19 85 80 80 73 61 67 65 73 20 69 6e 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 ┆mesђ Ёђђsages in the designated┆
0x11b80…11ba0 20 73 74 61 63 6b 2e 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 68 65 ┆ stack. The function returns the┆
0x11ba0…11bc0 20 76 61 6c 75 65 20 30 20 0a 19 85 80 80 69 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 68 ┆ value 0 Ёђђif the parameter h┆
0x11bc0…11be0 61 73 20 76 61 6c 75 65 20 4e 49 4c 2e 0d 0a 16 53 43 0d 0a 42 75 66 73 69 7a 65 0d 0a 46 55 4e ┆as value NIL. SC Bufsize FUN┆
0x11be0…11c00 43 54 49 4f 4e 20 bf dc d8 62 75 66 73 69 7a 65 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e ┆CTION ┐▄пbufsizeЙ(VAR r: referen┆
0x11c00…11c20 63 65 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 46 55 4e 43 54 49 4f 4e 20 62 75 66 73 69 7a 65 ┆ce): integer; FUNCTION bufsize┆
0x11c20…11c40 28 56 41 52 20 63 3a 20 63 68 61 69 6e 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 50 72 65 ┆(VAR c: chain): integer; Pre┆
0x11c40…11c60 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 27 62 75 66 73 69 ┆defined. - ёIf the 'bufsi┆
0x11c60…11c80 7a 65 27 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 70 61 ┆ze' function is called with a pa┆
0x11c80…11ca0 72 61 6d 65 74 65 72 20 77 69 74 68 20 76 61 6c 75 65 20 0a 19 85 80 80 4e 49 4c 2c 20 61 6e 20 ┆rameter with value ЁђђNIL, an ┆
0x11ca0…11cc0 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 ┆exception occurs. Otherwise the ┆
0x11cc0…11ce0 62 75 66 66 65 72 20 73 69 7a 65 20 69 6e 20 62 79 74 65 73 20 6f 66 20 0a 19 85 80 80 74 68 65 ┆buffer size in bytes of Ёђђthe┆
0x11ce0…11d00 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 ┆ designated message is returned ┆
0x11d00…11d20 61 73 20 72 65 73 75 6c 74 2e 20 0d 0a 16 53 43 0d 0a 42 79 74 65 63 6f 75 6e 74 0d 0a 46 55 4e ┆as result. SC Bytecount FUN┆
0x11d20…11d40 43 54 49 4f 4e 20 bf dc d8 62 79 74 65 63 6f 75 6e 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 ┆CTION ┐▄пbytecountЙ(VAR r: refer┆
0x11d40…11d60 65 6e 63 65 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 46 55 4e 43 54 49 4f 4e 20 62 79 74 65 63 ┆ence): integer; FUNCTION bytec┆
0x11d60…11d80 6f 75 6e 74 28 56 41 52 20 63 3a 20 63 68 61 69 6e 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d ┆ount(VAR c: chain): integer; ┆
0x11d80…11da0 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 8c 91 e2 0a 0d 0a 20 20 20 2d 20 84 49 66 20 ┆ Predefined. їЉР - ёIf ┆
0x11da0…11dc0 74 68 65 20 27 62 79 74 65 63 6f 75 6e 74 27 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c ┆the 'bytecount' function is call┆
0x11dc0…11de0 65 64 20 77 69 74 68 20 61 20 70 61 72 61 6d 65 74 65 72 20 77 69 74 68 20 0a 19 85 80 80 76 61 ┆ed with a parameter with Ёђђva┆
0x11de0…11e00 6c 75 65 20 4e 49 4c 20 6f 72 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 61 20 68 65 61 64 ┆lue NIL or the message is a head┆
0x11e00…11e20 65 72 20 6d 65 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 65 78 63 65 70 80 0a 19 85 80 80 74 ┆er message only, an excepђ Ёђђt┆
0x11e20…11e40 69 6f 6e 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 72 65 73 75 6c 74 ┆ion occurs. Otherwise the result┆
0x11e40…11e60 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 27 62 79 74 65 63 6f 75 6e 74 27 ┆ is the value of the 'bytecount'┆
0x11e60…11e80 20 0a 19 85 80 80 61 74 74 72 69 62 75 74 65 20 6f 66 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 ┆ Ёђђattribute of the designate┆
0x11e80…11ea0 64 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 4e 4f 54 45 3a 20 54 68 65 20 27 62 79 74 65 63 6f ┆d message. NOTE: The 'byteco┆
0x11ea0…11ec0 75 6e 74 27 20 61 74 74 72 69 62 75 74 65 20 69 73 20 63 6f 6d 70 75 74 65 64 20 66 72 6f 6d 20 ┆unt' attribute is computed from ┆
0x11ec0…11ee0 74 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 0a 27 66 69 72 73 74 27 20 61 6e 64 20 74 ┆the values of the 'first' and t┆
0x11ee0…11f00 68 65 20 27 6e 65 78 74 27 20 61 74 74 72 69 62 75 74 65 73 20 69 6e 20 74 68 65 20 62 75 66 66 ┆he 'next' attributes in the buff┆
0x11f00…11f20 65 72 2e 20 41 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 62 75 66 73 69 7a 65 20 0a 67 72 65 61 ┆er. A message with bufsize grea┆
0x11f20…11f40 74 65 72 20 74 68 61 6e 20 30 20 61 6c 77 61 79 73 20 68 6f 6c 64 73 20 74 68 65 20 27 62 79 74 ┆ter than 0 always holds the 'byt┆
0x11f40…11f60 65 63 6f 75 6e 74 27 20 61 74 74 72 69 62 75 74 65 2e 20 53 6f 20 74 68 65 20 62 75 66 66 65 72 ┆ecount' attribute. So the buffer┆
0x11f60…11f80 20 0a 69 73 20 61 63 63 65 73 73 65 64 20 77 69 74 68 6f 75 74 20 6c 6f 63 6b 69 6e 67 20 74 68 ┆ is accessed without locking th┆
0x11f80…11fa0 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 2e 20 0d 0a 16 73 63 0d 0a 43 68 61 ┆e reference variable. sc Cha┆
0x11fa0…11fc0 69 6e 64 65 71 75 65 75 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 63 68 61 69 6e 64 65 71 ┆indequeue PROCEDURE ┐▄пchaindeq┆
0x11fc0…11fe0 75 65 75 65 be 28 56 41 52 20 72 65 66 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 63 68 ┆ueueЙ(VAR ref: reference; VAR ch┆
0x11fe0…12000 3a 20 63 68 61 69 6e 29 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 0d 0a 0d 0a 20 20 20 2d ┆: chain); Predefined. -┆
0x12000…12020 20 84 54 68 65 20 63 75 72 72 65 6e 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 63 68 61 ┆ ёThe current element of the cha┆
0x12020…12040 69 6e 20 69 73 20 72 65 6d 6f 76 65 64 2c 20 61 6e 64 20 72 65 66 20 64 65 73 69 67 6e 61 74 65 ┆in is removed, and ref designate┆
0x12040…12060 73 20 0a 19 85 80 80 74 68 65 20 72 65 6d 6f 76 65 64 20 65 6c 65 6d 65 6e 74 2e 20 54 68 65 20 ┆s Ёђђthe removed element. The ┆
0x12060…12080 73 75 63 63 65 73 73 6f 72 20 6f 66 20 74 68 65 20 72 65 6d 6f 76 65 64 20 65 6c 65 6d 65 6e 74 ┆successor of the removed element┆
0x12080…120a0 20 62 65 80 0a 19 85 80 80 63 6f 6d 65 73 20 74 68 65 20 6e 65 77 20 63 75 72 72 65 6e 74 20 6d ┆ beђ Ёђђcomes the new current m┆
0x120a0…120c0 65 73 73 61 67 65 2e 20 49 66 20 74 68 65 20 73 74 61 72 74 20 70 6f 69 6e 74 20 69 73 20 72 65 ┆essage. If the start point is re┆
0x120c0…120e0 6d 6f 76 65 64 20 0a 19 85 80 80 66 72 6f 6d 20 61 20 6c 69 73 74 20 77 69 74 68 20 6d 6f 72 65 ┆moved Ёђђfrom a list with more┆
0x120e0…12100 20 74 68 61 6e 20 6f 6e 65 20 65 6c 65 6d 65 6e 74 20 74 68 65 20 73 75 63 63 65 73 73 6f 72 20 ┆ than one element the successor ┆
0x12100…12120 6f 66 20 74 68 65 20 0a 19 85 80 80 72 65 6d 6f 76 65 64 20 65 6c 65 6d 65 6e 74 20 62 65 63 6f ┆of the Ёђђremoved element beco┆
0x12120…12140 6d 65 73 20 74 68 65 20 6e 65 77 20 73 74 61 72 74 20 70 6f 69 6e 74 2e 0d 0a 0d 0a 41 6e 20 65 ┆mes the new start point. An e┆
0x12140…12160 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 0d 0a 0d 0a 20 20 20 2d 20 54 68 65 20 ┆xception occurs if: - The ┆
0x12160…12180 76 61 6c 75 65 20 6f 66 20 27 72 65 66 27 20 69 73 20 6e 6f 74 20 4e 49 4c 20 62 65 66 6f 72 65 ┆value of 'ref' is not NIL before┆
0x12180…121a0 20 74 68 65 20 63 61 6c 6c 0d 0a 20 20 20 2d 20 54 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 ┆ the call - The length of th┆
0x121a0…121c0 65 20 63 68 61 69 6e 20 69 73 20 30 20 62 65 66 6f 72 65 20 74 68 65 20 63 61 6c 6c 0d 0a 20 20 ┆e chain is 0 before the call ┆
0x121c0…121e0 20 2d 20 27 72 65 66 27 20 69 73 20 6c 6f 63 6b 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 63 61 ┆ - 'ref' is locked before the ca┆
0x121e0…12200 6c 6c 20 0d 0a 20 20 20 2d 20 27 63 68 27 20 69 73 20 6c 6f 63 6b 65 64 20 62 65 66 6f 72 65 20 ┆ll - 'ch' is locked before ┆
0x12200…12220 74 68 65 20 63 61 6c 6c 0d 0a 16 73 63 0d 0a 43 68 61 69 6e 64 6f 77 6e 0d 0a 50 52 4f 43 45 44 ┆the call sc Chaindown PROCED┆
0x12220…12240 55 52 45 20 bf dc d8 63 68 61 69 6e 64 6f 77 6e be 28 56 41 52 20 63 68 3a 20 63 68 61 69 6e 29 ┆URE ┐▄пchaindownЙ(VAR ch: chain)┆
0x12240…12260 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 70 72 ┆; Predefined. - ёThe pr┆
0x12260…12280 65 64 65 63 65 73 73 6f 72 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 6c 65 6d 65 6e 74 ┆edecessor of the current element┆
0x12280…122a0 20 62 65 63 6f 6d 65 73 20 74 68 65 20 6e 65 77 20 63 75 72 72 65 6e 74 20 0a 19 85 80 80 6d 65 ┆ becomes the new current Ёђђme┆
0x122a0…122c0 73 73 61 67 65 20 6f 66 20 74 68 65 20 6c 69 73 74 2e 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 ┆ssage of the list. An excepti┆
0x122c0…122e0 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 0d 0a 0d 0a 20 20 20 2d 20 27 63 68 27 20 69 73 20 6c 6f ┆on occurs if: - 'ch' is lo┆
0x122e0…12300 63 6b 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 63 61 6c 6c 0d 0a 16 73 63 0d 0a 43 68 61 69 6e ┆cked before the call sc Chain┆
0x12300…12320 65 6e 71 75 65 75 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 63 68 61 69 6e 65 6e 71 75 65 ┆enqueue PROCEDURE ┐▄пchainenque┆
0x12320…12340 75 65 be 28 56 41 52 20 72 65 66 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 63 68 3a 20 ┆ueЙ(VAR ref: reference; VAR ch: ┆
0x12340…12360 63 68 61 69 6e 29 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 0d 0a 0d 0a 20 20 20 2d 20 84 ┆chain); Predefined. - ё┆
0x12360…12380 54 68 65 20 73 74 61 63 6b 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 72 65 66 20 62 65 63 6f ┆The stack designated by ref beco┆
0x12380…123a0 6d 65 73 20 74 68 65 20 6e 65 77 20 70 72 65 64 65 63 65 73 73 6f 72 20 6f 66 20 0a 19 85 80 80 ┆mes the new predecessor of Ёђђ┆
0x123a0…123c0 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 20 6f 66 20 74 68 65 20 6c 69 73 74 2c 20 61 6e 64 ┆current message of the list, and┆
0x123c0…123e0 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 72 65 66 20 62 65 63 6f 6d 65 73 20 4e 49 4c 2e 0d 0a ┆ the value of ref becomes NIL. ┆
0x123e0…12400 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 0d 0a 0d 0a 20 20 20 ┆ An exception occurs if: ┆
0x12400…12420 2d 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 72 65 66 20 69 73 20 4e 49 4c 20 62 65 66 6f 72 65 ┆- The value of ref is NIL before┆
0x12420…12440 20 74 68 65 20 63 61 6c 6c 0d 0a 20 20 20 2d 20 72 65 66 20 69 73 20 6c 6f 63 6b 65 64 20 62 65 ┆ the call - ref is locked be┆
0x12440…12460 66 6f 72 65 20 74 68 65 20 63 61 6c 6c 20 0d 0a 16 73 63 0d 0a 43 68 61 69 6e 6c 65 6e 67 74 68 ┆fore the call sc Chainlength┆
0x12460…12480 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 63 68 61 69 6e 6c 65 6e 67 74 68 be 28 56 41 52 20 63 ┆ FUNCTION ┐▄пchainlengthЙ(VAR c┆
0x12480…124a0 68 3a 20 63 68 61 69 6e 29 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 ┆h: chain): integer; Predefine┆
0x124a0…124c0 64 2e 0d 0a 20 20 20 2d 20 54 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 63 68 61 69 6e ┆d. - The length of the chain┆
0x124c0…124e0 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 72 65 73 75 6c 74 0d 0a 16 73 63 0d 0a 43 68 61 ┆ is returned as result sc Cha┆
0x124e0…12500 69 6e 72 65 73 65 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 63 68 61 69 6e 72 65 73 65 74 ┆inreset PROCEDURE ┐▄пchainreset┆
0x12500…12520 be 28 56 41 52 20 63 68 3a 20 63 68 61 69 6e 29 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e ┆Й(VAR ch: chain); Predefined.┆
0x12520…12540 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 20 6f 66 ┆ - ёThe current message of┆
0x12540…12560 20 74 68 65 20 6c 69 73 74 20 69 73 20 6d 61 64 65 20 74 68 65 20 6e 65 77 20 73 74 61 72 74 20 ┆ the list is made the new start ┆
0x12560…12580 70 6f 69 6e 74 20 6f 66 20 0a 19 85 80 80 74 68 65 20 6c 69 73 74 2e 0d 0a 0d 0a 41 6e 20 65 78 ┆point of Ёђђthe list. An ex┆
0x12580…125a0 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 0d 0a 0d 0a 20 20 20 2d 20 27 63 68 27 20 ┆ception occurs if: - 'ch' ┆
0x125a0…125c0 69 73 20 6c 6f 63 6b 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 63 61 6c 6c 0d 0a 16 73 63 0d 0a ┆is locked before the call sc ┆
0x125c0…125e0 43 68 61 69 6e 73 74 61 72 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 63 68 61 69 6e 73 74 ┆Chainstart PROCEDURE ┐▄пchainst┆
0x125e0…12600 61 72 74 be 28 56 41 52 20 63 68 3a 20 63 68 61 69 6e 29 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e ┆artЙ(VAR ch: chain); Predefin┆
0x12600…12620 65 64 2e 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 73 74 61 72 74 20 70 6f 69 6e 74 20 6f 66 20 ┆ed. - ёThe start point of ┆
0x12620…12640 74 68 65 20 6c 69 73 74 20 62 65 63 6f 6d 65 73 20 74 68 65 20 6e 65 77 20 63 75 72 72 65 6e 74 ┆the list becomes the new current┆
0x12640…12660 20 6d 65 73 73 61 67 65 20 6f 66 20 0a 19 85 80 80 74 68 65 20 6c 69 73 74 2e 0d 0a 0d 0a 41 6e ┆ message of Ёђђthe list. An┆
0x12660…12680 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 0d 0a 0d 0a 20 20 20 2d 20 27 63 ┆ exception occurs if: - 'c┆
0x12680…126a0 68 27 20 69 73 20 6c 6f 63 6b 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 63 61 6c 6c 0d 0a 16 73 ┆h' is locked before the call s┆
0x126a0…126c0 63 0d 0a 43 68 61 69 6e 75 70 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 63 68 61 69 6e 75 70 ┆c Chainup PROCEDURE ┐▄пchainup┆
0x126c0…126e0 be 28 56 41 52 20 63 68 3a 20 63 68 61 69 6e 29 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e ┆Й(VAR ch: chain); Predefined.┆
0x126e0…12700 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 73 75 63 63 65 73 73 6f 72 20 6f 66 20 74 68 65 20 63 ┆ - ёThe successor of the c┆
0x12700…12720 75 72 72 65 6e 74 20 65 6c 65 6d 65 6e 74 20 62 65 63 6f 6d 65 73 20 74 68 65 20 6e 65 77 20 63 ┆urrent element becomes the new c┆
0x12720…12740 75 72 72 65 6e 74 20 0a 19 85 80 80 6d 65 73 73 61 67 65 20 6f 66 20 74 68 65 20 6c 69 73 74 2e ┆urrent Ёђђmessage of the list.┆
0x12740…12760 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 0d 0a 0d 0a 20 ┆ An exception occurs if: ┆
0x12760…12780 20 20 2d 20 27 63 68 27 20 69 73 20 6c 6f 63 6b 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 63 61 ┆ - 'ch' is locked before the ca┆
0x12780…127a0 6c 6c 0d 0a 16 73 63 0d 0a 43 72 63 31 36 62 75 66 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 63 ┆ll sc Crc16buf FUNCTION ┐▄пc┆
0x127a0…127c0 72 63 31 36 62 75 66 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 66 72 6f 6d 62 ┆rc16bufЙ(VAR r: reference; fromb┆
0x127c0…127e0 79 74 65 2c 20 74 6f 62 79 74 65 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆yte, tobyte: integer; ┆
0x127e0…12800 20 20 20 20 71 75 6f 74 69 65 6e 74 2c 20 73 74 61 72 74 76 61 6c 75 65 3a 20 69 6e 74 65 67 65 ┆ quotient, startvalue: intege┆
0x12800…12820 72 29 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 ┆r): integer; Defined in rc350┆
0x12820…12840 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 43 61 6c 63 75 6c 61 74 65 73 20 63 72 63 31 36 20 ┆2env. - ёCalculates crc16 ┆
0x12840…12860 63 68 65 63 6b 73 75 6d 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 20 72 65 66 65 72 65 6e 63 ┆checksum of the message referenc┆
0x12860…12880 65 64 20 62 79 20 72 20 66 72 6f 6d 20 0a 19 85 80 80 74 68 65 20 62 79 74 65 20 69 6e 64 65 78 ┆ed by r from Ёђђthe byte index┆
0x12880…128a0 65 64 20 62 79 20 66 72 6f 6d 62 79 74 65 20 75 70 20 74 6f 20 61 6e 64 20 69 6e 63 6c 75 64 69 ┆ed by frombyte up to and includi┆
0x128a0…128c0 6e 67 20 74 68 65 20 62 79 74 65 20 72 65 66 65 80 0a 19 85 80 80 72 65 6e 63 65 64 20 62 79 20 ┆ng the byte refeђ Ёђђrenced by ┆
0x128c0…128e0 74 6f 62 79 74 65 2e 20 51 75 6f 74 69 65 6e 74 20 72 65 70 72 65 73 65 6e 74 73 20 74 68 65 20 ┆tobyte. Quotient represents the ┆
0x128e0…12900 71 75 6f 74 69 65 6e 74 20 70 6f 6c 79 6e 6f 6d 69 75 6d 2e 20 0a 19 85 80 80 53 74 61 72 74 76 ┆quotient polynomium. ЁђђStartv┆
0x12900…12920 61 6c 75 65 20 69 73 20 75 73 65 64 20 61 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 ┆alue is used as the initial valu┆
0x12920…12940 65 20 6f 66 20 74 68 65 20 63 61 6c 63 75 6c 61 74 65 64 20 63 68 65 6b 63 80 0a 19 85 80 80 73 ┆e of the calculated chekcђ Ёђђs┆
0x12940…12960 75 6d 2e 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 0d 0a ┆um. An exception occurs if: ┆
0x12960…12980 0d 0a 20 20 20 2d 20 84 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 72 ┆ - ёthe reference variable r┆
0x12980…129a0 20 69 73 20 6e 69 6c 2e 0d 0a 20 20 20 2d 20 84 74 68 65 20 62 75 66 66 65 72 61 74 74 72 69 62 ┆ is nil. - ёthe bufferattrib┆
0x129a0…129c0 75 74 65 6f 66 20 72 20 69 73 20 65 6d 70 74 79 2e 0d 0a 20 20 20 2d 20 84 74 68 65 20 62 75 66 ┆uteof r is empty. - ёthe buf┆
0x129c0…129e0 73 69 7a 65 20 6f 66 20 72 20 69 73 20 74 6f 6f 20 73 6d 61 6c 6c 2e 0d 0a 20 20 20 2d 20 84 75 ┆size of r is too small. - ёu┆
0x129e0…12a00 6c 74 20 28 74 6f 62 79 74 65 2c 20 66 72 6f 6d 62 79 74 65 29 2e 0d 0a 16 73 63 0d 0a 43 72 65 ┆lt (tobyte, frombyte). sc Cre┆
0x12a00…12a20 64 69 74 63 6f 75 6e 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 63 72 65 64 69 74 63 6f 75 6e ┆ditcount FUNCTION ┐▄пcreditcoun┆
0x12a20…12a40 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 30 2e 2e 6d 61 78 69 6e 74 3b ┆tЙ(VAR r: reference): 0..maxint;┆
0x12a40…12a60 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 ┆ Defined in imc3502env. ┆
0x12a60…12a80 20 2d 20 84 49 66 20 74 68 65 20 65 76 65 6e 74 20 6b 69 6e 64 20 6f 66 20 74 68 65 20 64 65 73 ┆ - ёIf the event kind of the des┆
0x12a80…12aa0 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 20 69 73 20 63 72 65 64 69 74 2c 20 74 68 65 20 72 ┆ignated message is credit, the r┆
0x12aa0…12ac0 65 73 75 6c 74 20 0a 19 85 80 80 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 63 65 ┆esult Ёђђis the number of rece┆
0x12ac0…12ae0 69 76 65 20 6d 65 73 73 61 67 65 73 20 61 76 61 69 6c 61 62 6c 65 20 61 74 20 74 68 65 20 72 65 ┆ive messages available at the re┆
0x12ae0…12b00 6d 6f 74 65 20 65 6e 64 2d 0a 19 85 80 80 70 6f 69 6e 74 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 ┆mote end- Ёђђpoint of the conne┆
0x12b00…12b20 63 74 69 6f 6e 2e 20 49 66 20 74 68 65 20 65 76 65 6e 74 20 6b 69 6e 64 20 69 73 20 72 65 73 65 ┆ction. If the event kind is rese┆
0x12b20…12b40 74 5f 69 6e 64 69 63 61 74 69 6f 6e 20 74 68 65 20 0a 19 85 80 80 72 65 73 75 6c 74 20 69 73 20 ┆t_indication the Ёђђresult is ┆
0x12b40…12b60 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 72 65 64 69 74 73 20 77 68 69 63 68 20 68 61 76 65 ┆the number of credits which have┆
0x12b60…12b80 20 62 65 65 6e 20 74 61 6b 65 6e 20 62 61 63 6b 20 62 79 20 61 20 0a 19 85 80 80 63 61 6c 6c 20 ┆ been taken back by a Ёђђcall ┆
0x12b80…12ba0 6f 66 20 72 65 73 65 74 20 61 74 20 74 68 65 20 72 65 6d 6f 74 65 20 65 6e 64 2d 70 6f 69 6e 74 ┆of reset at the remote end-point┆
0x12ba0…12bc0 2e 0d 0a 16 73 63 0d 0a 45 76 65 6e 74 6b 69 6e 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 65 ┆. sc Eventkind FUNCTION ┐▄пe┆
0x12bc0…12be0 76 65 6e 74 6b 69 6e 64 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 65 76 65 ┆ventkindЙ(VAR r: reference): eve┆
0x12be0…12c00 6e 74 5f 74 79 70 65 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 30 32 65 6e ┆nt_type; Defined in imc3502en┆
0x12c00…12c20 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 ┆v. - ёAn exception occurs ┆
0x12c20…12c40 69 66 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 69 73 20 4e 49 4c 2e 20 4f 74 68 65 72 77 69 ┆if the reference is NIL. Otherwi┆
0x12c40…12c60 73 65 20 74 68 65 20 72 65 80 0a 19 85 80 80 73 75 6c 74 20 69 73 20 74 68 65 20 76 61 6c 75 65 ┆se the reђ Ёђђsult is the value┆
0x12c60…12c80 20 6f 66 20 74 68 65 20 65 76 65 6e 74 20 6b 69 6e 64 20 61 74 74 72 69 62 75 74 65 20 6f 66 20 ┆ of the event kind attribute of ┆
0x12c80…12ca0 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 0d 0a 19 85 80 80 6d 65 73 73 61 67 65 2e 09 54 68 ┆the designated Ёђђmessage. Th┆
0x12ca0…12cc0 65 20 72 65 73 75 6c 74 20 6e 6f 74 5f 65 76 65 6e 74 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 ┆e result not_event indicates the┆
0x12cc0…12ce0 20 6d 65 73 73 61 67 65 20 68 61 73 20 62 65 65 6e 20 0a 19 85 80 80 6f 62 74 61 69 6e 65 64 20 ┆ message has been Ёђђobtained ┆
0x12ce0…12d00 66 72 6f 6d 20 61 20 70 6f 6f 6c 20 6f 72 20 69 74 73 20 65 76 65 6e 74 20 6b 69 6e 64 20 68 61 ┆from a pool or its event kind ha┆
0x12d00…12d20 73 20 62 65 65 6e 20 72 65 73 65 74 20 28 63 66 2e 20 72 65 80 0a 19 85 80 80 73 65 74 65 76 65 ┆s been reset (cf. reђ Ёђђseteve┆
0x12d20…12d40 6e 74 29 2e 20 54 68 65 20 72 65 73 75 6c 74 20 6d 65 73 73 61 67 65 5f 65 76 65 6e 74 20 69 6e ┆nt). The result message_event in┆
0x12d40…12d60 64 69 63 61 74 65 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 68 61 73 20 0a 19 85 80 80 62 65 80 ┆dicates the message has Ёђђbeђ┆
0x12d60…12d80 65 6e 20 73 69 67 6e 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 70 72 6f 63 65 73 73 2e 20 54 68 65 ┆en signalled from a process. The┆
0x12d80…12da0 20 72 65 73 75 6c 74 20 61 6e 73 77 65 72 5f 65 76 65 6e 74 20 69 6e 64 69 63 61 74 65 73 20 0a ┆ result answer_event indicates ┆
0x12da0…12dc0 19 85 80 80 74 68 65 20 6d 65 73 73 61 67 65 20 68 61 73 20 62 65 65 6e 20 72 65 74 75 72 6e 65 ┆ Ёђђthe message has been returne┆
0x12dc0…12de0 64 20 62 79 20 61 20 70 72 6f 63 65 73 73 2e 20 54 68 65 20 72 65 73 75 6c 74 20 70 72 6f 80 0a ┆d by a process. The result proђ ┆
0x12de0…12e00 19 85 80 80 63 65 73 73 5f 72 65 6d 6f 76 65 64 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 6d ┆ Ёђђcess_removed indicates the m┆
0x12e00…12e20 65 73 73 61 67 65 20 68 61 73 20 62 65 65 6e 20 72 65 74 75 72 6e 65 64 20 66 72 6f 6d 20 61 20 ┆essage has been returned from a ┆
0x12e20…12e40 0a 19 85 80 80 70 72 6f 80 63 65 73 73 20 77 68 69 63 68 20 77 61 73 20 72 65 6d 6f 76 65 64 2e ┆ Ёђђproђcess which was removed.┆
0x12e40…12e60 20 54 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 72 65 73 75 6c 74 20 76 61 6c 75 65 73 20 69 6e 64 ┆ The remaining result values ind┆
0x12e60…12e80 69 63 61 74 65 20 0a 19 85 80 80 49 4d 43 20 65 76 65 6e 74 73 2e 0d 0a 16 73 63 0d 0a 49 6e 64 ┆icate ЁђђIMC events. sc Ind┆
0x12e80…12ea0 65 78 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 69 6e 64 65 78 be 28 56 41 52 20 72 3a 20 72 65 ┆ex FUNCTION ┐▄пindexЙ(VAR r: re┆
0x12ea0…12ec0 66 65 72 65 6e 63 65 29 3a 20 30 2e 2e 6d 61 78 69 6e 74 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 ┆ference): 0..maxint; Defined ┆
0x12ec0…12ee0 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 72 65 73 75 ┆in imc3502env. - ёThe resu┆
0x12ee0…12f00 6c 74 20 69 73 20 74 68 65 20 69 6e 64 65 78 20 69 6e 20 74 68 65 20 72 65 6c 65 76 61 6e 74 20 ┆lt is the index in the relevant ┆
0x12f00…12f20 70 6f 72 74 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 0a 19 85 80 80 65 6e 64 2d ┆port of the connection Ёђђend-┆
0x12f20…12f40 70 6f 69 6e 74 20 66 72 6f 6d 20 77 68 69 63 68 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 ┆point from which the designated ┆
0x12f40…12f60 6d 65 73 73 61 67 65 20 77 61 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 6e 20 0a 19 85 80 80 ┆message was returned as an Ёђђ┆
0x12f60…12f80 65 76 65 6e 74 2e 20 49 74 20 69 73 20 64 65 66 69 6e 65 64 20 66 6f 72 20 6d 65 73 73 61 67 65 ┆event. It is defined for message┆
0x12f80…12fa0 73 20 77 69 74 68 20 65 76 65 6e 74 20 6b 69 6e 64 20 6c 6f 63 61 6c 5f 63 6f 6e 6e 65 63 74 2c ┆s with event kind local_connect,┆
0x12fa0…12fc0 20 0a 19 85 80 80 72 65 6d 6f 74 65 5f 63 6f 6e 6e 65 63 74 2c 20 64 69 73 63 6f 6e 6e 65 63 74 ┆ Ёђђremote_connect, disconnect┆
0x12fc0…12fe0 65 64 2c 20 72 65 73 65 74 5f 63 6f 6d 70 6c 65 74 69 6f 6e 2c 20 72 65 73 65 74 5f 69 6e 64 69 ┆ed, reset_completion, reset_indi┆
0x12fe0…13000 63 61 74 69 6f 6e 2c 20 0a 19 85 80 80 64 61 74 61 5f 73 65 6e 74 2c 20 64 61 74 61 5f 61 72 72 ┆cation, Ёђђdata_sent, data_arr┆
0x13000…13020 69 76 65 64 2c 20 64 61 74 61 5f 6f 76 65 72 72 75 6e 2c 20 63 72 65 64 69 74 2c 20 61 6e 64 20 ┆ived, data_overrun, credit, and ┆
0x13020…13040 66 6f 72 20 64 75 6d 6d 79 20 0a 19 85 80 80 65 76 65 6e 74 73 2e 20 49 66 20 74 68 65 20 65 76 ┆for dummy Ёђђevents. If the ev┆
0x13040…13060 65 6e 74 20 69 73 20 64 75 6d 6d 79 20 61 6e 64 20 74 68 65 72 65 20 69 73 20 6e 6f 20 61 70 70 ┆ent is dummy and there is no app┆
0x13060…13080 6c 69 63 61 62 6c 65 20 69 6e 64 65 78 20 0a 19 85 80 80 74 68 65 20 72 65 73 75 6c 74 20 77 69 ┆licable index Ёђђthe result wi┆
0x13080…130a0 6c 6c 20 62 65 20 30 2e 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 ┆ll be 0. An exception occurs ┆
0x130a0…130c0 69 66 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 69 6c ┆if the reference variable is nil┆
0x130c0…130e0 2e 20 0d 0a 16 53 43 0d 0a 4f 66 66 73 65 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6f 66 66 ┆. SC Offset FUNCTION ┐▄пoff┆
0x130e0…13100 73 65 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 69 6e 74 65 67 65 72 3b ┆setЙ(VAR r: reference): integer;┆
0x13100…13120 20 0d 0a 46 55 4e 43 54 49 4f 4e 20 6f 66 66 73 65 74 28 56 41 52 20 63 3a 20 63 68 61 69 6e 29 ┆ FUNCTION offset(VAR c: chain)┆
0x13120…13140 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 8c 9b f8 0a 50 72 65 64 65 66 69 6e 65 64 2e 0d 0a ┆: integer; їЏЭ Predefined. ┆
0x13140…13160 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 27 6f 66 66 73 65 74 27 20 66 75 6e 63 74 69 6f 6e ┆ - ёIf the 'offset' function┆
0x13160…13180 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 70 61 72 61 6d 65 74 65 72 20 77 69 74 68 ┆ is called with a parameter with┆
0x13180…131a0 20 76 61 6c 75 65 20 0a 19 85 80 80 4e 49 4c 20 6f 72 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 ┆ value ЁђђNIL or the message i┆
0x131a0…131c0 73 20 61 20 68 65 61 64 65 72 20 6d 65 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 65 78 63 65 ┆s a header message only, an exce┆
0x131c0…131e0 70 74 69 6f 6e 20 6f 63 80 0a 19 85 80 80 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 ┆ption ocђ Ёђђcurs. Otherwise th┆
0x131e0…13200 65 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 27 6f 66 ┆e result is the value of the 'of┆
0x13200…13220 66 73 65 74 27 20 61 74 74 72 69 62 75 74 65 20 0a 19 85 80 80 6f 66 20 74 68 65 20 64 65 73 69 ┆fset' attribute Ёђђof the desi┆
0x13220…13240 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 4e 4f 54 45 3a 20 54 68 65 20 27 6f ┆gnated message. NOTE: The 'o┆
0x13240…13260 66 66 73 65 74 27 20 61 74 74 72 69 62 75 74 65 20 69 73 20 74 68 65 20 66 69 72 73 74 20 77 6f ┆ffset' attribute is the first wo┆
0x13260…13280 72 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2c 20 61 63 63 6f 72 80 80 0a 64 69 6e 67 20 74 ┆rd in the buffer, accorђђ ding t┆
0x13280…132a0 6f 20 74 68 65 20 64 72 69 76 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 ┆o the driver conventions /Driver┆
0x132a0…132c0 20 43 6f 6e 76 2e 2f 2e 20 41 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 62 75 66 73 69 7a 65 20 ┆ Conv./. A message with bufsize ┆
0x132c0…132e0 0a 67 72 65 61 74 65 72 20 74 68 61 6e 20 30 20 61 6c 77 61 79 73 20 68 6f 6c 64 73 20 74 68 65 ┆ greater than 0 always holds the┆
0x132e0…13300 20 27 6f 66 66 73 65 74 27 20 61 74 74 72 69 62 75 74 65 2e 20 53 6f 20 74 68 65 20 62 75 66 66 ┆ 'offset' attribute. So the buff┆
0x13300…13320 65 72 20 69 73 20 0a 61 63 63 65 73 73 65 64 20 77 69 74 68 6f 75 74 20 6c 6f 63 6b 69 6e 67 20 ┆er is accessed without locking ┆
0x13320…13340 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 2e 20 0d 0a 16 53 43 0d 0a 4f ┆the reference variable. SC O┆
0x13340…13360 70 65 6e 70 6f 6f 6c 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6f 70 65 6e 70 6f 6f 6c be 28 56 ┆penpool FUNCTION ┐▄пopenpoolЙ(V┆
0x13360…13380 41 52 20 70 3a 20 70 6f 6f 6c 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 ┆AR p: pool): boolean; Predef┆
0x13380…133a0 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 ┆ined. - ёreturns the valu┆
0x133a0…133c0 65 20 74 72 75 65 20 69 66 20 74 68 65 20 70 6f 6f 6c 20 63 6f 6e 74 61 69 6e 73 20 61 20 6d 65 ┆e true if the pool contains a me┆
0x133c0…133e0 73 73 61 67 65 2c 20 6f 74 68 65 72 77 69 73 65 20 0a 19 85 80 80 66 61 6c 73 65 2e 20 0d 0a 16 ┆ssage, otherwise Ёђђfalse. ┆
0x133e0…13400 53 43 0d 0a 50 6f 70 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 70 6f 70 be 28 56 41 52 20 72 ┆SC Pop PROCEDURE ┐▄пpopЙ(VAR r┆
0x13400…13420 31 2c 20 72 32 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 ┆1, r2: reference); Predefine┆
0x13420…13440 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 74 6f 70 20 6d 65 73 73 61 67 65 20 68 65 61 ┆d. - ёThe top message hea┆
0x13440…13460 64 65 72 20 66 72 6f 6d 20 27 72 32 27 20 69 73 20 72 65 6d 6f 76 65 64 2e 20 49 66 20 74 68 65 ┆der from 'r2' is removed. If the┆
0x13460…13480 20 6e 65 77 20 74 6f 70 20 0a 19 85 80 80 6d 65 73 73 61 67 65 20 61 6e 64 20 74 68 65 20 6f 6c ┆ new top Ёђђmessage and the ol┆
0x13480…134a0 64 20 74 6f 70 20 6d 65 73 73 61 67 65 20 72 65 66 65 72 20 74 6f 20 74 68 65 20 73 61 6d 65 20 ┆d top message refer to the same ┆
0x134a0…134c0 6d 65 73 73 61 67 65 20 62 75 66 80 0a 19 85 80 80 66 65 72 2c 20 6f 6e 6c 79 20 74 68 65 20 6d ┆message bufђ Ёђђfer, only the m┆
0x134c0…134e0 65 73 73 61 67 65 20 68 65 61 64 65 72 20 69 73 20 72 65 6d 6f 76 65 64 2e 20 49 66 20 6e 6f 74 ┆essage header is removed. If not┆
0x134e0…13500 2c 20 74 68 65 20 74 6f 70 20 6d 65 73 73 61 80 0a 19 85 80 80 67 65 20 62 75 66 66 65 72 20 69 ┆, the top messaђ Ёђђge buffer i┆
0x13500…13520 73 20 72 65 6d 6f 76 65 64 20 61 6c 73 6f 2e 20 27 72 31 27 20 72 65 66 65 72 73 20 74 6f 20 74 ┆s removed also. 'r1' refers to t┆
0x13520…13540 68 65 20 72 65 6d 6f 76 65 64 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 ┆he removed message. An excep┆
0x13540…13560 74 69 6f 6e 73 20 6f 63 63 75 72 73 20 69 66 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 72 31 20 69 73 ┆tions occurs if: - ёr1 is┆
0x13560…13580 20 6e 6f 74 20 6e 69 6c 20 62 65 66 6f 72 65 20 63 61 6c 6c 20 0d 0a 20 20 20 2d 20 84 72 32 20 ┆ not nil before call - ёr2 ┆
0x13580…135a0 69 73 20 6e 69 6c 20 62 65 66 6f 72 65 20 63 61 6c 6c 20 0d 0a 20 20 20 2d 20 84 72 32 20 69 73 ┆is nil before call - ёr2 is┆
0x135a0…135c0 20 6c 6f 63 6b 65 64 20 62 65 66 6f 72 65 20 63 61 6c 6c 20 0d 0a 0d 0a 49 66 20 27 72 32 27 20 ┆ locked before call If 'r2' ┆
0x135c0…135e0 64 65 6e 6f 74 65 73 20 61 20 73 74 61 63 6b 20 77 69 74 68 20 6f 6e 6c 79 20 6f 6e 65 20 65 6c ┆denotes a stack with only one el┆
0x135e0…13600 65 6d 65 6e 74 20 62 65 66 6f 72 65 20 74 68 65 20 63 61 6c 6c 2c 20 74 68 65 20 0a 76 61 6c 75 ┆ement before the call, the valu┆
0x13600…13620 65 20 6f 66 20 27 72 32 27 20 62 65 63 6f 6d 65 73 20 6e 69 6c 20 61 66 74 65 72 20 74 68 65 20 ┆e of 'r2' becomes nil after the ┆
0x13620…13640 63 61 6c 6c 2e 20 0d 0a 16 53 43 0d 0a 50 75 73 68 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 ┆call. SC Push PROCEDURE ┐▄п┆
0x13640…13660 70 75 73 68 be 28 56 41 52 20 72 31 2c 20 72 32 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a ┆pushЙ(VAR r1, r2: reference); ┆
0x13660…13680 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 68 65 61 64 ┆ Predefined. - ёThe head┆
0x13680…136a0 65 72 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 27 72 31 27 20 62 65 63 6f 6d 65 73 20 74 68 ┆er designated by 'r1' becomes th┆
0x136a0…136c0 65 20 6e 65 77 20 74 6f 70 20 68 65 61 64 65 72 20 6f 66 20 0a 19 85 80 80 74 68 65 20 73 74 61 ┆e new top header of Ёђђthe sta┆
0x136c0…136e0 63 6b 2e 20 41 66 74 65 72 20 74 68 65 20 63 61 6c 6c 2c 20 27 72 32 27 20 64 65 73 69 67 6e 61 ┆ck. After the call, 'r2' designa┆
0x136e0…13700 74 65 73 20 74 68 65 20 6e 65 77 20 73 74 61 63 6b 2e 20 41 66 74 65 72 20 0a 19 85 80 80 74 68 ┆tes the new stack. After Ёђђth┆
0x13700…13720 65 20 63 61 6c 6c 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 27 72 31 27 20 69 73 20 6e 69 6c 2e ┆e call the value of 'r1' is nil.┆
0x13720…13740 0d 0a 0d 0a 49 66 20 74 68 65 20 6e 65 77 20 74 6f 70 20 6d 65 73 73 61 67 65 20 69 73 20 61 20 ┆ If the new top message is a ┆
0x13740…13760 68 65 61 64 65 72 20 6d 65 73 73 61 67 65 2c 20 74 68 65 20 74 6f 70 20 6d 65 73 73 61 67 65 20 ┆header message, the top message ┆
0x13760…13780 62 75 66 66 65 72 20 0a 6f 66 20 27 72 32 27 20 72 65 6d 61 69 6e 73 20 74 68 65 20 73 61 6d 65 ┆buffer of 'r2' remains the same┆
0x13780…137a0 2e 20 20 0d 0a 0d 0a 54 68 65 20 6d 65 73 73 61 67 65 20 61 63 63 65 73 73 69 62 6c 65 20 74 68 ┆. The message accessible th┆
0x137a0…137c0 72 6f 75 67 68 20 27 72 32 27 20 28 70 6f 73 73 69 62 6c 79 20 6e 69 6c 29 20 69 73 20 63 61 6c ┆rough 'r2' (possibly nil) is cal┆
0x137c0…137e0 6c 65 64 20 74 68 65 20 73 74 61 63 6b 2e 20 0d 0a 0d 0a 0e 0a 41 6e 20 65 78 63 65 70 74 69 6f ┆led the stack. An exceptio┆
0x137e0…13800 6e 73 20 6f 63 63 75 72 73 20 69 66 3a 20 0d 0a 0d 0a 8c 89 e0 0a 20 20 20 2d 20 84 27 72 31 27 ┆ns occurs if: їЅЯ - ё'r1'┆
0x13800…13820 20 69 73 20 6e 69 6c 20 62 65 66 6f 72 65 20 63 61 6c 6c 20 0d 0a 20 20 20 2d 20 84 27 72 31 27 ┆ is nil before call - ё'r1'┆
0x13820…13840 20 69 73 20 6c 6f 63 6b 65 64 20 62 65 66 6f 72 65 20 63 61 6c 6c 20 0d 0a 20 20 20 2d 20 84 27 ┆ is locked before call - ё'┆
0x13840…13860 72 32 27 20 69 73 20 6c 6f 63 6b 65 64 20 62 65 66 6f 72 65 20 63 61 6c 6c 20 0d 0a 20 20 20 2d ┆r2' is locked before call -┆
0x13860…13880 20 84 27 72 31 27 20 64 65 73 69 67 6e 61 74 65 73 20 61 20 73 74 61 63 6b 20 77 69 74 68 20 6d ┆ ё'r1' designates a stack with m┆
0x13880…138a0 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 65 6c 65 6d 65 6e 74 20 0d 0a 20 20 20 2d 20 84 27 72 31 ┆ore than one element - ё'r1┆
0x138a0…138c0 27 3d 27 72 32 27 20 62 65 66 6f 72 65 20 63 61 6c 6c 20 0d 0a 0f 0a 0e 0a 20 20 20 20 20 0d 0a ┆'='r2' before call ┆
0x138c0…138e0 16 73 66 20 33 39 0d 0a 45 78 61 6d 70 6c 65 20 6f 6e 20 74 68 65 20 42 65 68 61 76 69 6f 75 72 ┆ sf 39 Example on the Behaviour┆
0x138e0…13900 20 6f 66 20 50 75 73 68 0d 0a 0f 0a 16 73 63 0d 0a 52 65 61 73 6f 6e 0d 0a 46 55 4e 43 54 49 4f ┆ of Push sc Reason FUNCTIO┆
0x13900…13920 4e 20 bf dc d8 72 65 61 73 6f 6e be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 ┆N ┐▄пreasonЙ(VAR r: reference): ┆
0x13920…13940 72 65 61 73 6f 6e 5f 74 79 70 65 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6d 63 33 35 ┆reason_type; Defined in imc35┆
0x13940…13960 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 ┆02env. - ёAn exception occ┆
0x13960…13980 75 72 73 20 69 66 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 72 65 66 65 72 65 6e 63 ┆urs if the value of the referenc┆
0x13980…139a0 65 20 69 73 20 4e 49 4c 2e 20 0a 19 85 80 80 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 72 65 73 ┆e is NIL. ЁђђOtherwise the res┆
0x139a0…139c0 75 6c 74 20 69 73 20 74 68 65 20 72 65 61 73 6f 6e 20 66 6f 72 20 61 6e 20 65 76 65 6e 74 2e 20 ┆ult is the reason for an event. ┆
0x139c0…139e0 28 43 66 2e 20 52 54 50 2d 31 31 29 2e 0d 0a 16 53 43 0d 0a 52 65 6c 65 61 73 65 0d 0a 50 52 4f ┆(Cf. RTP-11). SC Release PRO┆
0x139e0…13a00 43 45 44 55 52 45 20 bf dc d8 72 65 6c 65 61 73 65 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 ┆CEDURE ┐▄пreleaseЙ(VAR r: refere┆
0x13a00…13a20 6e 63 65 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 ┆nce); Predefined. - ё┆
0x13a20…13a40 73 69 67 6e 61 6c 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 72 65 66 65 72 65 6e 63 65 64 20 62 ┆signals the message referenced b┆
0x13a40…13a60 79 20 27 72 27 20 74 6f 20 74 68 65 20 61 6e 6f 6e 79 6d 6f 75 73 20 68 6f 6d 65 20 0a 19 85 80 ┆y 'r' to the anonymous home Ёђ┆
0x13a60…13a80 80 6d 61 69 6c 62 6f 78 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 ┆ђmailbox. An exception occur┆
0x13a80…13aa0 73 20 69 66 3a 20 0d 0a 20 20 20 2d 20 84 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 ┆s if: - ёthe reference vari┆
0x13aa0…13ac0 61 62 6c 65 20 69 73 20 6e 69 6c 2e 20 0d 0a 20 20 20 2d 20 84 74 68 65 20 72 65 66 65 72 65 6e ┆able is nil. - ёthe referen┆
0x13ac0…13ae0 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6c 6f 63 6b 65 64 2e 20 0d 0a 8c 84 d8 0a 16 53 43 ┆ce variable is locked. їёп SC┆
0x13ae0…13b00 0d 0a 52 65 6c 65 61 73 65 70 6f 6f 6c 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 72 65 6c 65 61 ┆ Releasepool FUNCTION ┐▄пrelea┆
0x13b00…13b20 73 65 70 6f 6f 6c be 28 56 41 52 20 70 3a 20 70 6f 6f 6c 3b 20 6e 75 6d 62 65 72 3a 20 69 6e 74 ┆sepoolЙ(VAR p: pool; number: int┆
0x13b20…13b40 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 ┆eger): integer; Predefined. ┆
0x13b40…13b60 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 61 20 6d 61 78 69 6d 75 6d 20 6f 66 20 27 ┆ - ёreturns a maximum of '┆
0x13b60…13b80 6e 75 6d 62 65 72 27 20 6d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 74 68 65 20 70 6f 6f 6c 20 27 ┆number' messages from the pool '┆
0x13b80…13ba0 70 27 20 74 6f 20 0a 19 85 80 80 74 68 65 20 41 4c 4c 4f 43 41 54 4f 52 2e 20 54 68 65 20 61 63 ┆p' to Ёђђthe ALLOCATOR. The ac┆
0x13ba0…13bc0 74 75 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 6d 65 73 73 61 67 65 73 20 72 65 6c 65 61 73 65 64 ┆tual number of messages released┆
0x13bc0…13be0 20 69 73 20 72 65 80 0a 19 85 80 80 74 75 72 6e 65 64 20 61 73 20 74 68 65 20 72 65 73 75 6c 74 ┆ is reђ Ёђђturned as the result┆
0x13be0…13c00 2e 20 0d 0a 16 53 43 0d 0a 53 65 74 62 79 74 65 63 6f 75 6e 74 0d 0a 50 52 4f 43 45 44 55 52 45 ┆. SC Setbytecount PROCEDURE┆
0x13c00…13c20 20 bf dc d8 73 65 74 62 79 74 65 63 6f 75 6e 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e ┆ ┐▄пsetbytecountЙ(VAR r: referen┆
0x13c20…13c40 63 65 3b 20 76 61 6c 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 73 ┆ce; val: integer); PROCEDURE s┆
0x13c40…13c60 65 74 62 79 74 65 63 6f 75 6e 74 28 56 41 52 20 63 3a 20 63 68 61 69 6e 3b 20 76 61 6c 3a 20 69 ┆etbytecount(VAR c: chain; val: i┆
0x13c60…13c80 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 0d 0a 0d 0a 20 20 20 2d ┆nteger); Predefined. -┆
0x13c80…13ca0 20 84 49 66 20 74 68 65 20 27 73 65 74 62 79 74 65 63 6f 75 6e 74 27 20 70 72 6f 63 65 64 75 72 ┆ ёIf the 'setbytecount' procedur┆
0x13ca0…13cc0 65 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 72 65 66 65 72 65 6e 63 65 20 70 61 72 ┆e is called with a reference par┆
0x13cc0…13ce0 61 80 0a 19 85 80 80 6d 65 74 65 72 20 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 2c 20 6f 72 20 ┆aђ Ёђђmeter with value NIL, or ┆
0x13ce0…13d00 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 61 20 68 65 61 64 65 72 20 6d 65 73 73 61 67 65 20 ┆the message is a header message ┆
0x13d00…13d20 6f 6e 6c 79 2c 20 0a 19 85 80 80 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 ┆only, Ёђђan exception occurs. ┆
0x13d20…13d40 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 27 76 61 6c 27 ┆Otherwise the value of the 'val'┆
0x13d40…13d60 20 70 61 72 61 6d 65 74 65 72 20 0a 19 85 80 80 69 73 20 61 73 73 69 67 6e 65 64 20 74 6f 20 74 ┆ parameter Ёђђis assigned to t┆
0x13d60…13d80 68 65 20 27 62 79 74 65 63 6f 75 6e 74 27 20 61 74 74 72 69 62 75 74 65 20 6f 66 20 74 68 65 20 ┆he 'bytecount' attribute of the ┆
0x13d80…13da0 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 80 0a 19 85 80 80 67 65 2e 20 0d 0a 0d 0a 4e 4f ┆designated messaђ Ёђђge. NO┆
0x13da0…13dc0 54 45 3a 20 54 68 65 20 27 62 79 74 65 63 6f 75 6e 74 27 20 61 74 74 72 69 62 75 74 65 20 69 73 ┆TE: The 'bytecount' attribute is┆
0x13dc0…13de0 20 63 6f 6d 70 75 74 65 64 20 66 72 6f 6d 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 0a 27 6e 65 ┆ computed from the value of 'ne┆
0x13de0…13e00 78 74 27 20 61 6e 64 20 27 66 69 72 73 74 27 2c 20 77 68 69 63 68 20 61 72 65 20 69 6e 20 74 68 ┆xt' and 'first', which are in th┆
0x13e00…13e20 65 20 66 69 72 73 74 20 70 61 72 74 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 2c 20 61 63 63 6f ┆e first part of the buffer, acco┆
0x13e20…13e40 72 64 69 6e 67 20 0a 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 ┆rding to the driver conventions┆
0x13e40…13e60 20 2f 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 2e 20 41 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 ┆ /Driver Conv./. A message with ┆
0x13e60…13e80 62 75 66 73 69 7a 65 20 67 72 65 80 0a 61 74 65 72 20 74 68 61 6e 20 30 20 61 6c 77 61 79 73 20 ┆bufsize greђ ater than 0 always ┆
0x13e80…13ea0 68 6f 6c 64 73 20 74 68 65 20 27 62 79 74 65 63 6f 75 6e 74 27 20 61 74 74 72 69 62 75 74 65 2e ┆holds the 'bytecount' attribute.┆
0x13ea0…13ec0 20 53 6f 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 0a 75 70 64 61 74 65 64 20 77 69 74 68 6f ┆ So the buffer is updated witho┆
0x13ec0…13ee0 75 74 20 6c 6f 63 6b 69 6e 67 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c ┆ut locking the reference variabl┆
0x13ee0…13f00 65 2e 20 0d 0a 16 53 43 0d 0a 53 65 74 6f 66 66 73 65 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf ┆e. SC Setoffset PROCEDURE ┐┆
0x13f00…13f20 dc d8 73 65 74 6f 66 66 73 65 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 76 ┆▄пsetoffsetЙ(VAR r: reference; v┆
0x13f20…13f40 61 6c 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 73 65 74 6f 66 66 ┆al: integer); PROCEDURE setoff┆
0x13f40…13f60 73 65 74 28 56 41 52 20 63 3a 20 63 68 61 69 6e 3b 20 76 61 6c 3a 20 69 6e 74 65 67 65 72 29 3b ┆set(VAR c: chain; val: integer);┆
0x13f60…13f80 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 ┆ Predefined. - ёIf th┆
0x13f80…13fa0 65 20 27 73 65 74 6f 66 66 73 65 74 27 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65 ┆e 'setoffset' procedure is calle┆
0x13fa0…13fc0 64 20 77 69 74 68 20 61 20 72 65 66 65 72 65 6e 63 65 20 70 61 72 61 6d 65 74 65 72 20 0a 19 85 ┆d with a reference parameter Ё┆
0x13fc0…13fe0 80 80 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 2c 20 6f 72 20 74 68 65 20 6d 65 73 73 61 67 65 ┆ђђwith value NIL, or the message┆
0x13fe0…14000 20 69 73 20 61 20 68 65 61 64 65 72 20 6d 65 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 0a 19 ┆ is a header message only, an ┆
0x14000…14020 85 80 80 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 ┆Ёђђexception occurs. Otherwise t┆
0x14020…14040 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 27 76 61 6c 27 20 70 61 72 61 6d 65 74 65 72 20 ┆he value of the 'val' parameter ┆
0x14040…14060 69 73 20 0a 19 85 80 80 61 73 73 69 67 6e 65 64 20 74 6f 20 74 68 65 20 27 6f 66 66 73 65 74 27 ┆is Ёђђassigned to the 'offset'┆
0x14060…14080 20 61 74 74 72 69 62 75 74 65 20 6f 66 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 ┆ attribute of the designated mes┆
0x14080…140a0 73 61 67 65 2e 20 0d 0a 0d 0a 4e 4f 54 45 3a 20 54 68 65 20 27 6f 66 66 73 65 74 27 20 61 74 74 ┆sage. NOTE: The 'offset' att┆
0x140a0…140c0 72 69 62 75 74 65 20 69 73 20 74 68 65 20 66 69 72 73 74 20 77 6f 72 64 20 69 6e 20 74 68 65 20 ┆ribute is the first word in the ┆
0x140c0…140e0 62 75 66 66 65 72 2c 20 61 63 63 6f 72 80 80 0a 64 69 6e 67 20 74 6f 20 74 68 65 20 64 72 69 76 ┆buffer, accorђђ ding to the driv┆
0x140e0…14100 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 2e 20 41 ┆er conventions /Driver Conv./. A┆
0x14100…14120 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 62 75 66 73 69 7a 65 20 0a 67 72 65 80 61 74 65 72 20 ┆ message with bufsize greђater ┆
0x14120…14140 74 68 61 6e 20 30 20 61 6c 77 61 79 73 20 68 6f 6c 64 73 20 74 68 65 20 27 6f 66 66 73 65 74 27 ┆than 0 always holds the 'offset'┆
0x14140…14160 20 61 74 74 72 69 62 75 74 65 2e 20 53 6f 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 0a 75 70 ┆ attribute. So the buffer is up┆
0x14160…14180 64 61 74 65 64 20 77 69 74 68 6f 75 74 20 6c 6f 63 6b 69 6e 67 20 74 68 65 20 72 65 66 65 72 65 ┆dated without locking the refere┆
0x14180…141a0 6e 63 65 20 76 61 72 69 61 62 6c 65 2e 20 0d 0a 16 53 43 0d 0a 53 65 74 74 6f 70 0d 0a 50 52 4f ┆nce variable. SC Settop PRO┆
0x141a0…141c0 43 45 44 55 52 45 20 bf dc d8 73 65 74 74 6f 70 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e ┆CEDURE ┐▄пsettopЙ(VAR r: referen┆
0x141c0…141e0 63 65 3b 20 76 61 6c 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 73 ┆ce; val: integer); PROCEDURE s┆
0x141e0…14200 65 74 74 6f 70 28 56 41 52 20 63 3a 20 63 68 61 69 6e 3b 20 76 61 6c 3a 20 69 6e 74 65 67 65 72 ┆ettop(VAR c: chain; val: integer┆
0x14200…14220 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 ┆); Predefined. - ёIf ┆
0x14220…14240 74 68 65 20 27 73 65 74 74 6f 70 27 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65 64 ┆the 'settop' procedure is called┆
0x14240…14260 20 77 69 74 68 20 61 20 72 65 66 65 72 65 6e 63 65 20 70 61 72 61 6d 65 74 65 72 20 0a 19 85 80 ┆ with a reference parameter Ёђ┆
0x14260…14280 80 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 2c 20 6f 72 20 74 68 65 20 6d 65 73 73 61 67 65 20 ┆ђwith value NIL, or the message ┆
0x14280…142a0 69 73 20 61 20 68 65 61 64 65 72 20 6d 65 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 0a 19 85 ┆is a header message only, an Ё┆
0x142a0…142c0 80 80 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 ┆ђђexception occurs. Otherwise th┆
0x142c0…142e0 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 27 76 61 6c 27 20 70 61 72 61 6d 65 74 65 72 20 69 ┆e value of the 'val' parameter i┆
0x142e0…14300 73 20 0a 19 85 80 80 61 73 73 69 67 6e 65 64 20 74 6f 20 74 68 65 20 27 66 69 72 73 74 27 20 61 ┆s Ёђђassigned to the 'first' a┆
0x14300…14320 74 74 72 69 62 75 74 65 20 6f 66 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 ┆ttribute of the designated messa┆
0x14320…14340 67 65 2e 20 0d 0a 0d 0a 4e 4f 54 45 3a 20 54 68 65 20 27 74 6f 70 27 20 61 74 74 72 69 62 75 74 ┆ge. NOTE: The 'top' attribut┆
0x14340…14360 65 20 69 73 20 63 6f 6d 70 75 74 65 64 20 66 72 6f 6d 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 ┆e is computed from the value of ┆
0x14360…14380 74 68 65 20 73 65 63 6f 6e 64 20 0a 77 6f 72 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2c 20 ┆the second word in the buffer, ┆
0x14380…143a0 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 63 6f 6e 76 65 6e 74 69 ┆according to the driver conventi┆
0x143a0…143c0 6f 6e 73 20 2f 44 72 69 76 65 72 20 0a 43 6f 6e 76 2e 2f 2e 20 41 20 6d 65 73 73 61 67 65 20 77 ┆ons /Driver Conv./. A message w┆
0x143c0…143e0 69 74 68 20 62 75 66 73 69 7a 65 20 67 72 65 80 61 74 65 72 20 74 68 61 6e 20 30 20 61 6c 77 61 ┆ith bufsize greђater than 0 alwa┆
0x143e0…14400 79 73 20 68 6f 6c 64 73 20 74 68 65 20 27 74 6f 70 27 20 0a 61 74 74 72 69 62 75 74 65 2e 20 53 ┆ys holds the 'top' attribute. S┆
0x14400…14420 6f 20 74 68 65 20 62 75 66 80 66 65 72 20 69 73 20 75 70 64 61 74 65 64 20 77 69 74 68 6f 75 74 ┆o the bufђfer is updated without┆
0x14420…14440 20 6c 6f 63 6b 69 6e 67 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 80 0a 72 69 61 62 6c ┆ locking the reference vaђ riabl┆
0x14440…14460 65 2e 27 20 0d 0a 16 53 43 0d 0a 53 65 74 75 31 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 ┆e.' SC Setu1 PROCEDURE ┐▄пs┆
0x14460…14480 65 74 75 31 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 76 61 6c 3a 20 62 79 74 ┆etu1Й(VAR r: reference; val: byt┆
0x14480…144a0 65 29 3b 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 73 65 74 75 31 28 56 41 52 20 63 3a 20 63 68 61 ┆e); PROCEDURE setu1(VAR c: cha┆
0x144a0…144c0 69 6e 3b 20 76 61 6c 3a 20 62 79 74 65 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 ┆in; val: byte); Predefined. ┆
0x144c0…144e0 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 27 73 65 74 75 31 27 20 70 72 6f 63 65 64 75 ┆ - ёIf the 'setu1' procedu┆
0x144e0…14500 72 65 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 72 65 66 65 72 65 6e 63 65 20 70 61 ┆re is called with a reference pa┆
0x14500…14520 72 61 6d 65 74 65 72 20 0a 19 85 80 80 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 20 61 6e 20 65 ┆rameter Ёђђwith value NIL an e┆
0x14520…14540 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 76 ┆xception occurs. Otherwise the v┆
0x14540…14560 61 6c 75 65 20 6f 66 20 74 68 65 20 0a 19 85 80 80 70 61 72 61 6d 65 74 65 72 20 27 76 61 6c 27 ┆alue of the Ёђђparameter 'val'┆
0x14560…14580 20 69 73 20 61 73 73 69 67 6e 65 64 20 74 6f 20 74 68 65 20 75 31 2d 61 74 74 72 69 62 75 74 65 ┆ is assigned to the u1-attribute┆
0x14580…145a0 20 6f 66 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 0a 19 85 80 80 6d 65 73 73 61 67 65 2e ┆ of the designated Ёђђmessage.┆
0x145a0…145c0 0d 0a 16 53 43 0d 0a 53 65 74 75 32 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 74 75 32 ┆ SC Setu2 PROCEDURE ┐▄пsetu2┆
0x145c0…145e0 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 76 61 6c 3a 20 62 79 74 65 29 3b 20 ┆Й(VAR r: reference; val: byte); ┆
0x145e0…14600 0d 0a 50 52 4f 43 45 44 55 52 45 20 73 65 74 75 32 28 56 41 52 20 63 3a 20 63 68 61 69 6e 3b 20 ┆ PROCEDURE setu2(VAR c: chain; ┆
0x14600…14620 76 61 6c 3a 20 62 79 74 65 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a ┆val: byte); Predefined. ┆
0x14620…14640 20 20 20 2d 20 84 49 66 20 74 68 65 20 27 73 65 74 75 32 27 20 70 72 6f 63 65 64 75 72 65 20 69 ┆ - ёIf the 'setu2' procedure i┆
0x14640…14660 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 72 65 66 65 72 65 6e 63 65 20 70 61 72 61 6d 65 ┆s called with a reference parame┆
0x14660…14680 74 65 72 20 0a 19 85 80 80 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 20 61 6e 20 65 78 63 65 70 ┆ter Ёђђwith value NIL an excep┆
0x14680…146a0 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 76 61 6c 75 65 ┆tion occurs. Otherwise the value┆
0x146a0…146c0 20 6f 66 20 74 68 65 20 0a 19 85 80 80 70 61 72 61 6d 65 74 65 72 20 27 76 61 6c 27 20 69 73 20 ┆ of the Ёђђparameter 'val' is ┆
0x146c0…146e0 61 73 73 69 67 6e 65 64 20 74 6f 20 74 68 65 20 75 32 2d 61 74 74 72 69 62 75 74 65 20 6f 66 20 ┆assigned to the u2-attribute of ┆
0x146e0…14700 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 0a 19 85 80 80 6d 65 73 73 61 67 65 2e 0d 0a 16 53 ┆the designated Ёђђmessage. S┆
0x14700…14720 43 0d 0a 53 65 74 75 33 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 74 75 33 be 28 56 41 ┆C Setu3 PROCEDURE ┐▄пsetu3Й(VA┆
0x14720…14740 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 76 61 6c 3a 20 62 79 74 65 29 3b 20 0d 0a 50 52 ┆R r: reference; val: byte); PR┆
0x14740…14760 4f 43 45 44 55 52 45 20 73 65 74 75 33 28 56 41 52 20 63 3a 20 63 68 61 69 6e 3b 20 76 61 6c 3a ┆OCEDURE setu3(VAR c: chain; val:┆
0x14760…14780 20 62 79 74 65 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d ┆ byte); Predefined. -┆
0x14780…147a0 20 84 49 66 20 74 68 65 20 27 73 65 74 75 33 27 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 63 61 ┆ ёIf the 'setu3' procedure is ca┆
0x147a0…147c0 6c 6c 65 64 20 77 69 74 68 20 61 20 72 65 66 65 72 65 6e 63 65 20 70 61 72 61 6d 65 74 65 72 20 ┆lled with a reference parameter ┆
0x147c0…147e0 0a 19 85 80 80 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 20 61 6e 20 65 78 63 65 70 74 69 6f 6e ┆ Ёђђwith value NIL an exception┆
0x147e0…14800 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 ┆ occurs. Otherwise the value of ┆
0x14800…14820 74 68 65 20 0a 19 85 80 80 70 61 72 61 6d 65 74 65 72 20 27 76 61 6c 27 20 69 73 20 61 73 73 69 ┆the Ёђђparameter 'val' is assi┆
0x14820…14840 67 6e 65 64 20 74 6f 20 74 68 65 20 75 33 2d 61 74 74 72 69 62 75 74 65 20 6f 66 20 74 68 65 20 ┆gned to the u3-attribute of the ┆
0x14840…14860 64 65 73 69 67 6e 61 74 65 64 20 0a 19 85 80 80 6d 65 73 73 61 67 65 2e 0d 0a 16 53 43 0d 0a 53 ┆designated Ёђђmessage. SC S┆
0x14860…14880 65 74 75 34 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 74 75 34 be 28 56 41 52 20 72 3a ┆etu4 PROCEDURE ┐▄пsetu4Й(VAR r:┆
0x14880…148a0 20 72 65 66 65 72 65 6e 63 65 3b 20 76 61 6c 3a 20 62 79 74 65 29 3b 20 0d 0a 50 52 4f 43 45 44 ┆ reference; val: byte); PROCED┆
0x148a0…148c0 55 52 45 20 73 65 74 75 34 28 56 41 52 20 63 3a 20 63 68 61 69 6e 3b 20 76 61 6c 3a 20 62 79 74 ┆URE setu4(VAR c: chain; val: byt┆
0x148c0…148e0 65 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 ┆e); Predefined. - ёIf┆
0x148e0…14900 20 74 68 65 20 27 73 65 74 75 34 27 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65 64 ┆ the 'setu4' procedure is called┆
0x14900…14920 20 77 69 74 68 20 61 20 72 65 66 65 72 65 6e 63 65 20 70 61 72 61 6d 65 74 65 72 20 0a 19 85 80 ┆ with a reference parameter Ёђ┆
0x14920…14940 80 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 ┆ђwith value NIL an exception occ┆
0x14940…14960 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 ┆urs. Otherwise the value of the ┆
0x14960…14980 0a 19 85 80 80 70 61 72 61 6d 65 74 65 72 20 27 76 61 6c 27 20 69 73 20 61 73 73 69 67 6e 65 64 ┆ Ёђђparameter 'val' is assigned┆
0x14980…149a0 20 74 6f 20 74 68 65 20 75 34 2d 61 74 74 72 69 62 75 74 65 20 6f 66 20 74 68 65 20 64 65 73 69 ┆ to the u4-attribute of the desi┆
0x149a0…149c0 67 6e 61 74 65 64 20 0a 19 85 80 80 6d 65 73 73 61 67 65 2e 0d 0a 16 73 63 0d 0a 53 74 61 63 6b ┆gnated Ёђђmessage. sc Stack┆
0x149c0…149e0 64 65 70 74 68 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 73 74 61 63 6b 64 65 70 74 68 be 28 56 ┆depth FUNCTION ┐▄пstackdepthЙ(V┆
0x149e0…14a00 41 52 20 73 74 61 63 6b 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 69 6e 74 65 67 65 72 3b 0d 0a ┆AR stack: reference): integer; ┆
0x14a00…14a20 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 0d 0a 0d 0a 54 68 65 20 76 61 6c 75 65 20 72 65 74 75 72 ┆ Predefined. The value retur┆
0x14a20…14a40 6e 65 64 20 62 79 20 73 74 61 63 6b 64 65 70 74 68 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 ┆ned by stackdepth is the number ┆
0x14a40…14a60 6f 66 20 6d 65 73 73 61 67 65 73 20 0a 69 6e 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 73 ┆of messages in the designated s┆
0x14a60…14a80 74 61 63 6b 2c 20 69 6e 63 6c 75 64 69 6e 67 20 65 6d 70 74 79 20 6f 6e 65 73 2e 20 54 68 65 20 ┆tack, including empty ones. The ┆
0x14a80…14aa0 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 0a 74 68 65 20 76 61 6c 75 65 20 30 20 69 66 ┆function returns the value 0 if┆
0x14aa0…14ac0 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 68 61 73 20 76 61 6c 75 65 20 4e 49 4c 2e 0d 0a 16 ┆ the parameter has value NIL. ┆
0x14ac0…14ae0 53 43 0d 0a 54 6f 66 72 6f 6d 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 74 6f 66 72 6f 6d be ┆SC Tofrom PROCEDURE ┐▄пtofromЙ┆
0x14ae0…14b00 28 56 41 52 20 74 6f 72 65 66 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 74 6f 69 6e 64 65 78 3a 20 ┆(VAR toref: reference; toindex: ┆
0x14b00…14b20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 66 72 6f 6d ┆integer; VAR from┆
0x14b20…14b40 72 65 66 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 66 72 6f 6d 69 6e 64 65 78 3a 20 69 6e 74 65 67 ┆ref: reference; fromindex: integ┆
0x14b40…14b60 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 73 3a 20 69 6e 80 74 65 67 ┆er; bytes: inђteg┆
0x14b60…14b80 65 72 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 0d 0a 0d ┆er); Defined in rc3502env. ┆
0x14b80…14ba0 0a 8c 94 e8 0a 20 20 20 2d 20 84 4d 6f 76 65 73 20 27 62 79 74 65 73 27 20 62 79 74 65 73 20 66 ┆ їћУ - ёMoves 'bytes' bytes f┆
0x14ba0…14bc0 72 6f 6d 20 74 68 65 20 6d 65 73 73 61 67 65 20 64 65 73 69 67 6e 61 74 65 64 20 62 79 20 27 66 ┆rom the message designated by 'f┆
0x14bc0…14be0 72 6f 6d 72 65 66 27 20 0a 19 85 80 80 73 74 61 72 74 69 6e 67 20 61 74 20 74 68 65 20 6c 6f 63 ┆romref' Ёђђstarting at the loc┆
0x14be0…14c00 61 74 69 6f 6e 20 69 6e 64 65 78 20 27 66 72 6f 6d 69 6e 64 65 78 27 20 74 6f 20 74 68 65 20 6d ┆ation index 'fromindex' to the m┆
0x14c00…14c20 65 73 73 61 67 65 20 64 65 73 69 67 80 0a 19 85 80 80 6e 61 74 65 64 20 62 79 20 27 74 6f 72 65 ┆essage desigђ Ёђђnated by 'tore┆
0x14c20…14c40 66 27 20 73 74 61 72 74 69 6e 67 20 61 74 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 69 6e 64 65 ┆f' starting at the location inde┆
0x14c40…14c60 78 20 27 74 6f 69 6e 64 65 78 27 2e 20 49 6e 64 65 78 80 0a 19 85 80 80 69 6e 67 20 69 6e 20 74 ┆x 'toindex'. Indexђ Ёђђing in t┆
0x14c60…14c80 68 65 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 73 20 69 73 20 61 63 80 63 6f 72 64 69 6e 67 ┆he message buffers is acђcording┆
0x14c80…14ca0 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 0a 19 85 80 80 ┆ to the driver conventions Ёђђ┆
0x14ca0…14cc0 2f 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 2e 20 54 68 65 20 27 62 79 74 65 73 27 20 61 6e 64 20 ┆/Driver Conv./. The 'bytes' and ┆
0x14cc0…14ce0 69 6e 64 65 78 20 70 61 72 61 6d 65 74 65 72 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 20 ┆index parameters are considered ┆
0x14ce0…14d00 0a 19 85 80 80 69 6e 74 65 67 65 72 73 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 36 35 ┆ Ёђђintegers in the range 0..65┆
0x14d00…14d20 35 33 35 2e 20 54 68 65 20 6d 6f 76 65 20 69 73 20 70 65 72 66 6f 72 6d 65 64 20 61 73 20 61 20 ┆535. The move is performed as a ┆
0x14d20…14d40 66 6f 72 80 0a 19 85 80 80 77 61 72 64 20 6d 6f 76 65 20 6f 6e 65 20 62 79 74 65 20 61 20 74 69 ┆forђ Ёђђward move one byte a ti┆
0x14d40…14d60 6d 65 20 77 69 74 68 6f 75 74 20 73 70 65 63 69 61 6c 20 61 63 74 69 6f 6e 20 69 6e 20 63 61 73 ┆me without special action in cas┆
0x14d60…14d80 65 20 6f 66 20 0a 19 85 80 80 6f 76 65 72 6c 61 70 70 69 6e 67 20 73 6f 75 72 63 65 20 61 6e 64 ┆e of Ёђђoverlapping source and┆
0x14d80…14da0 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 61 72 65 61 73 2e 0d 0a 16 53 43 0d 0a 54 6f 70 0d 0a 46 ┆ destination areas. SC Top F┆
0x14da0…14dc0 55 4e 43 54 49 4f 4e 20 bf dc d8 74 6f 70 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 ┆UNCTION ┐▄пtopЙ(VAR r: reference┆
0x14dc0…14de0 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 46 55 4e 43 54 49 4f 4e 20 74 6f 70 28 56 41 52 20 63 ┆): integer; FUNCTION top(VAR c┆
0x14de0…14e00 3a 20 63 68 61 69 6e 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 88 50 72 65 64 65 66 69 6e ┆: chain): integer; ѕPredefin┆
0x14e00…14e20 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 27 74 6f 70 27 20 66 75 6e 63 74 ┆ed. - ёIf the 'top' funct┆
0x14e20…14e40 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 70 61 72 61 6d 65 74 65 72 20 77 ┆ion is called with a parameter w┆
0x14e40…14e60 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 20 0a 19 85 80 80 6f 72 20 74 68 65 20 6d 65 73 73 61 67 ┆ith value NIL Ёђђor the messag┆
0x14e60…14e80 65 20 69 73 20 61 20 68 65 61 64 65 72 20 6d 65 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 65 ┆e is a header message only, an e┆
0x14e80…14ea0 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 0a 19 85 80 80 4f 74 68 65 72 77 69 73 65 20 ┆xception occurs. ЁђђOtherwise ┆
0x14ea0…14ec0 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 27 ┆the result is the value of the '┆
0x14ec0…14ee0 74 6f 70 27 20 61 74 74 72 69 62 75 74 65 20 6f 66 20 74 68 65 20 0a 19 85 80 80 64 65 73 69 67 ┆top' attribute of the Ёђђdesig┆
0x14ee0…14f00 6e 61 74 65 64 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 4e 4f 54 45 3a 20 54 68 65 20 27 74 6f ┆nated message. NOTE: The 'to┆
0x14f00…14f20 70 27 20 61 74 74 72 69 62 75 74 65 20 69 73 20 63 6f 6d 70 75 74 65 64 20 66 72 6f 6d 20 74 68 ┆p' attribute is computed from th┆
0x14f20…14f40 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 73 65 63 6f 6e 64 20 0a 77 6f 72 64 20 69 6e 20 74 ┆e value of the second word in t┆
0x14f40…14f60 68 65 20 62 75 66 66 65 72 2c 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 64 72 69 76 ┆he buffer, according to the driv┆
0x14f60…14f80 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 20 0a 43 6f 6e 76 2e 2f 2e 20 ┆er conventions /Driver Conv./. ┆
0x14f80…14fa0 41 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 62 75 66 73 69 7a 65 20 67 72 65 80 61 74 65 72 20 ┆A message with bufsize greђater ┆
0x14fa0…14fc0 74 68 61 6e 20 30 20 61 6c 77 61 79 73 20 68 6f 6c 64 73 20 74 68 65 20 27 74 6f 70 27 20 0a 61 ┆than 0 always holds the 'top' a┆
0x14fc0…14fe0 74 74 72 69 62 75 74 65 2e 20 53 6f 20 74 68 65 20 62 75 66 80 66 65 72 20 69 73 20 61 63 63 65 ┆ttribute. So the bufђfer is acce┆
0x14fe0…15000 73 73 65 64 20 77 69 74 68 6f 75 74 20 6c 6f 63 6b 69 6e 67 20 74 68 65 20 72 65 66 65 72 65 6e ┆ssed without locking the referen┆
0x15000…15020 63 65 20 76 61 80 0a 72 69 61 62 6c 65 2e 20 0d 0a 16 53 43 0d 0a 55 31 0d 0a 46 55 4e 43 54 49 ┆ce vaђ riable. SC U1 FUNCTI┆
0x15020…15040 4f 4e 20 bf dc d8 75 31 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 62 79 74 ┆ON ┐▄пu1Й(VAR r: reference): byt┆
0x15040…15060 65 3b 20 0d 0a 46 55 4e 43 54 49 4f 4e 20 75 31 28 56 41 52 20 63 3a 20 63 68 61 69 6e 29 3a 20 ┆e; FUNCTION u1(VAR c: chain): ┆
0x15060…15080 62 79 74 65 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 ┆byte; Predefined. - ё┆
0x15080…150a0 49 66 20 74 68 65 20 27 75 31 27 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 77 ┆If the 'u1' function is called w┆
0x150a0…150c0 69 74 68 20 61 20 70 61 72 61 6d 65 74 65 72 20 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 2c 20 ┆ith a parameter with value NIL, ┆
0x150c0…150e0 0a 19 85 80 80 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 ┆ Ёђђan exception occurs. Otherw┆
0x150e0…15100 69 73 65 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 20 75 31 2d 61 74 74 72 69 62 75 ┆ise the result is the u1-attribu┆
0x15100…15120 74 65 20 6f 66 20 0a 19 85 80 80 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 ┆te of Ёђђthe designated messag┆
0x15120…15140 65 2e 0d 0a 16 53 43 0d 0a 55 32 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 75 32 be 28 56 41 52 ┆e. SC U2 FUNCTION ┐▄пu2Й(VAR┆
0x15140…15160 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 62 79 74 65 3b 20 0d 0a 46 55 4e 43 54 49 4f 4e ┆ r: reference): byte; FUNCTION┆
0x15160…15180 20 75 32 28 56 41 52 20 63 3a 20 63 68 61 69 6e 29 3a 20 62 79 74 65 3b 20 0d 0a 0d 0a 50 72 65 ┆ u2(VAR c: chain): byte; Pre┆
0x15180…151a0 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 27 75 32 27 20 66 ┆defined. - ёIf the 'u2' f┆
0x151a0…151c0 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 70 61 72 61 6d 65 74 ┆unction is called with a paramet┆
0x151c0…151e0 65 72 20 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 2c 20 0a 19 85 80 80 61 6e 20 65 78 63 65 70 ┆er with value NIL, Ёђђan excep┆
0x151e0…15200 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 72 65 73 75 6c ┆tion occurs. Otherwise the resul┆
0x15200…15220 74 20 69 73 20 74 68 65 20 75 32 2d 61 74 74 72 69 62 75 74 65 20 6f 66 20 0a 19 85 80 80 74 68 ┆t is the u2-attribute of Ёђђth┆
0x15220…15240 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 2e 0d 0a 16 53 43 0d 0a 55 33 0d 0a ┆e designated message. SC U3 ┆
0x15240…15260 46 55 4e 43 54 49 4f 4e 20 bf dc d8 75 33 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 ┆FUNCTION ┐▄пu3Й(VAR r: reference┆
0x15260…15280 29 3a 20 62 79 74 65 3b 20 0d 0a 46 55 4e 43 54 49 4f 4e 20 75 33 28 56 41 52 20 63 3a 20 63 68 ┆): byte; FUNCTION u3(VAR c: ch┆
0x15280…152a0 61 69 6e 29 3a 20 62 79 74 65 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a ┆ain): byte; Predefined. ┆
0x152a0…152c0 20 20 20 2d 20 84 49 66 20 74 68 65 20 27 75 33 27 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 ┆ - ёIf the 'u3' function is ca┆
0x152c0…152e0 6c 6c 65 64 20 77 69 74 68 20 61 20 70 61 72 61 6d 65 74 65 72 20 77 69 74 68 20 76 61 6c 75 65 ┆lled with a parameter with value┆
0x152e0…15300 20 4e 49 4c 2c 20 0a 19 85 80 80 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 ┆ NIL, Ёђђan exception occurs. ┆
0x15300…15320 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 20 75 33 2d 61 ┆Otherwise the result is the u3-a┆
0x15320…15340 74 74 72 69 62 75 74 65 20 6f 66 20 0a 19 85 80 80 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 ┆ttribute of Ёђђthe designated ┆
0x15340…15360 6d 65 73 73 61 67 65 2e 0d 0a 16 53 43 0d 0a 55 34 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 75 ┆message. SC U4 FUNCTION ┐▄пu┆
0x15360…15380 34 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 62 79 74 65 3b 20 0d 0a 46 55 ┆4Й(VAR r: reference): byte; FU┆
0x15380…153a0 4e 43 54 49 4f 4e 20 75 34 28 56 41 52 20 63 3a 20 63 68 61 69 6e 29 3a 20 62 79 74 65 3b 20 0d ┆NCTION u4(VAR c: chain): byte; ┆
0x153a0…153c0 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 ┆ Predefined. - ёIf the ┆
0x153c0…153e0 27 75 34 27 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 70 ┆'u4' function is called with a p┆
0x153e0…15400 61 72 61 6d 65 74 65 72 20 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 2c 20 0a 19 85 80 80 61 6e ┆arameter with value NIL, Ёђђan┆
0x15400…15420 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 ┆ exception occurs. Otherwise the┆
0x15420…15440 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 20 75 34 2d 61 74 74 72 69 62 75 74 65 20 6f 66 20 0a ┆ result is the u4-attribute of ┆
0x15440…15460 19 85 80 80 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 2e 0d 0a 16 53 42 ┆ Ёђђthe designated message. SB┆
0x15460…15480 0d 0a 43 6f 6e 76 65 72 73 69 6f 6e 20 61 6e 64 20 41 72 69 74 68 6d 65 74 69 63 20 52 6f 75 74 ┆ Conversion and Arithmetic Rout┆
0x15480…154a0 69 6e 65 73 0d 0a 16 53 43 0d 0a 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 52 6f 75 74 69 6e 65 ┆ines SC Miscellaneous Routine┆
0x154a0…154c0 73 0d 0a 8c 8b d0 0a 16 53 44 0d 0a 43 68 72 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 63 68 72 ┆s їІл SD Chr FUNCTION ┐▄пchr┆
0x154c0…154e0 be 28 69 6e 74 3a 20 30 2e 2e 32 35 35 29 3a 20 63 68 61 72 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 ┆Й(int: 0..255): char; Predef┆
0x154e0…15500 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 74 68 65 20 63 68 61 72 ┆ined. - ёreturns the char┆
0x15500…15520 61 63 74 65 72 20 77 69 74 68 20 74 68 65 20 6f 72 64 69 6e 61 6c 20 76 61 6c 75 65 20 27 69 6e ┆acter with the ordinal value 'in┆
0x15520…15540 74 27 2e 20 0d 0a 16 53 44 0d 0a 4f 72 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6f 72 64 be ┆t'. SD Ord FUNCTION ┐▄пordЙ┆
0x15540…15560 28 78 3a 20 6f 74 79 70 65 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 ┆(x: otype): integer; Predefi┆
0x15560…15580 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 74 68 65 20 6f 72 64 69 6e ┆ned. - ёreturns the ordin┆
0x15580…155a0 61 6c 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 27 78 27 20 6f 66 20 ┆al value of the variable 'x' of ┆
0x155a0…155c0 74 79 70 65 20 27 6f 74 79 70 65 27 2c 20 0a 19 85 80 80 77 68 65 72 65 20 27 6f 74 79 70 65 27 ┆type 'otype', Ёђђwhere 'otype'┆
0x155c0…155e0 20 69 73 20 61 6e 79 20 6f 72 64 69 6e 61 6c 20 74 79 70 65 2e 20 0d 0a 16 53 44 0d 0a 50 72 65 ┆ is any ordinal type. SD Pre┆
0x155e0…15600 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 70 72 65 64 be 28 78 3a 20 6f 74 79 70 65 29 3a 20 ┆d FUNCTION ┐▄пpredЙ(x: otype): ┆
0x15600…15620 6f 74 79 70 65 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 ┆otype; Predefined. - ┆
0x15620…15640 84 67 69 76 65 73 20 74 68 65 20 70 72 65 64 65 63 65 73 73 6f 72 20 6f 66 20 74 68 65 20 76 61 ┆ёgives the predecessor of the va┆
0x15640…15660 72 69 61 62 6c 65 20 27 78 27 20 6f 66 20 74 79 70 65 20 27 6f 74 79 70 65 27 2c 20 77 68 65 72 ┆riable 'x' of type 'otype', wher┆
0x15660…15680 65 20 0a 19 85 80 80 27 6f 74 79 70 65 27 20 69 73 20 61 6e 79 20 6f 72 64 69 6e 61 6c 20 74 79 ┆e Ёђђ'otype' is any ordinal ty┆
0x15680…156a0 70 65 2e 20 0d 0a 16 53 44 0d 0a 53 75 63 63 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 73 75 63 ┆pe. SD Succ FUNCTION ┐▄пsuc┆
0x156a0…156c0 63 be 28 78 3a 20 6f 74 79 70 65 29 3a 20 6f 74 79 70 65 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 ┆cЙ(x: otype): otype; Predefi┆
0x156c0…156e0 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 67 69 76 65 73 20 74 68 65 20 73 75 63 63 65 73 73 ┆ned. - ёgives the success┆
0x156e0…15700 6f 72 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 27 78 27 20 6f 66 20 74 79 70 65 20 27 ┆or of the variable 'x' of type '┆
0x15700…15720 6f 74 79 70 65 27 2c 20 77 68 65 72 65 20 0a 19 85 80 80 27 6f 74 79 70 65 27 20 69 73 20 61 6e ┆otype', where Ёђђ'otype' is an┆
0x15720…15740 79 20 6f 72 64 69 6e 61 6c 20 74 79 70 65 2e 20 0d 0a 16 53 43 0d 0a 44 6f 75 62 6c 65 20 41 72 ┆y ordinal type. SC Double Ar┆
0x15740…15760 69 74 68 6d 65 74 69 63 73 20 52 6f 75 74 69 6e 65 73 0d 0a 16 73 6f 20 72 6f 75 74 69 6e 65 73 ┆ithmetics Routines so routines┆
0x15760…15780 2c 20 64 6f 75 62 6c 65 0d 0a 44 6f 75 62 6c 65 65 6e 76 20 28 63 66 2e 20 61 70 70 65 6e 64 69 ┆, double Doubleenv (cf. appendi┆
0x15780…157a0 78 20 4b 2e 31 29 20 63 6f 6e 74 61 69 6e 73 20 66 69 76 65 20 63 6f 6e 73 74 61 6e 74 20 64 65 ┆x K.1) contains five constant de┆
0x157a0…157c0 63 6c 61 80 72 61 74 69 6f 6e 73 2c 20 0a 62 65 73 69 64 65 73 20 64 65 63 6c 61 72 61 74 69 6f ┆claђrations, besides declaratio┆
0x157c0…157e0 6e 73 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 6f 75 62 6c 65 20 61 72 69 74 68 ┆ns of the following double arith┆
0x157e0…15800 6d 65 74 69 63 73 20 72 6f 75 74 69 6e 65 73 3a 20 20 20 20 20 20 0d 0a 09 64 6f 75 62 6c 65 5f ┆metics routines: double_┆
0x15800…15820 6d 69 6e 09 3d 20 64 6f 75 62 6c 65 28 3a 6d 69 6e 69 6e 74 2c 20 30 3a 29 3b 20 20 20 20 0d 0a ┆min = double(:minint, 0:); ┆
0x15820…15840 09 64 6f 75 62 6c 65 5f 7a 65 72 6f 09 3d 20 64 6f 75 62 6c 65 28 3a 30 2c 20 30 3a 29 3b 20 0d ┆ double_zero = double(:0, 0:); ┆
0x15840…15860 0a 09 64 6f 75 62 6c 65 5f 6f 6e 65 09 3d 20 64 6f 75 62 6c 65 28 3a 30 2c 20 31 3a 29 3b 0d 0a ┆ double_one = double(:0, 1:); ┆
0x15860…15880 09 64 6f 75 62 6c 65 5f 74 77 6f 09 3d 20 64 6f 75 62 6c 65 28 3a 30 2c 20 32 3a 29 3b 20 0d 0a ┆ double_two = double(:0, 2:); ┆
0x15880…158a0 09 64 6f 75 62 6c 65 5f 6d 61 78 09 3d 20 64 6f 75 62 6c 65 28 3a 6d 61 78 69 6e 74 2c 20 2d 31 ┆ double_max = double(:maxint, -1┆
0x158a0…158c0 3a 29 3b 0d 0a 16 53 44 0d 0a 44 6f 75 62 6c 65 5f 61 64 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf ┆:); SD Double_add FUNCTION ┐┆
0x158c0…158e0 dc d8 64 6f 75 62 6c 65 5f 61 64 64 be 28 64 31 2c 20 64 32 3a 20 64 6f 75 62 6c 65 29 3a 20 64 ┆▄пdouble_addЙ(d1, d2: double): d┆
0x158e0…15900 6f 75 62 6c 65 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 64 6f 75 62 6c 65 65 6e 76 2e ┆ouble; Defined in doubleenv.┆
0x15900…15920 20 0d 0a 0d 0a 20 20 20 2d 20 84 41 64 64 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 72 61 6e 67 65 ┆ - ёAddition in the range┆
0x15920…15940 20 2d 32 31 34 37 34 38 33 36 34 38 2e 2e 32 31 34 37 34 38 33 36 34 37 2e 20 0d 0a 0d 0a 41 6e ┆ -2147483648..2147483647. An┆
0x15940…15960 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 74 68 65 20 72 65 73 75 6c 74 ┆ exception occurs, if the result┆
0x15960…15980 20 69 73 20 6f 75 74 73 69 64 65 20 74 68 69 73 20 72 61 6e 67 65 2e 20 0d 0a 16 53 44 0d 0a 44 ┆ is outside this range. SD D┆
0x15980…159a0 6f 75 62 6c 65 5f 64 65 63 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 64 6f 75 62 6c 65 5f 64 ┆ouble_dec PROCEDURE ┐▄пdouble_d┆
0x159a0…159c0 65 63 be 28 56 41 52 20 64 3a 20 64 6f 75 62 6c 65 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 ┆ecЙ(VAR d: double); Defined ┆
0x159c0…159e0 69 6e 20 64 6f 75 62 6c 65 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 44 65 63 72 65 6d 65 6e ┆in doubleenv. - ёDecremen┆
0x159e0…15a00 74 73 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 64 27 20 62 79 20 6f 6e 65 20 69 6e 20 74 ┆ts the parameter 'd' by one in t┆
0x15a00…15a20 68 65 20 72 61 6e 67 65 20 0a 19 85 80 80 1e 32 31 34 37 34 38 33 36 34 38 2e 2e 32 31 34 37 34 ┆he range Ёђђ 2147483648..21474┆
0x15a20…15a40 38 33 36 34 37 2c 20 62 75 74 20 77 69 74 68 20 6e 6f 20 6f 76 65 72 66 6c 6f 77 20 65 78 63 65 ┆83647, but with no overflow exce┆
0x15a40…15a60 70 74 69 6f 6e 2e 20 0d 0a 16 53 44 0d 0a 44 6f 75 62 6c 65 5f 64 69 76 0d 0a 8c 89 c8 0a 46 55 ┆ption. SD Double_div їЅ╚ FU┆
0x15a60…15a80 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c 65 5f 64 69 76 be 28 64 31 2c 20 64 32 3a 20 64 6f ┆NCTION ┐▄пdouble_divЙ(d1, d2: do┆
0x15a80…15aa0 75 62 6c 65 29 3a 20 64 6f 75 62 6c 65 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 64 6f ┆uble): double; Defined in do┆
0x15aa0…15ac0 75 62 6c 65 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 44 69 76 69 73 69 6f 6e 20 69 6e 20 74 ┆ubleenv. - ёDivision in t┆
0x15ac0…15ae0 68 65 20 72 61 6e 67 65 20 2d 32 31 34 37 34 38 33 36 34 38 2e 2e 32 31 34 37 34 38 33 36 34 37 ┆he range -2147483648..2147483647┆
0x15ae0…15b00 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 27 64 ┆. An exception occurs, if 'd┆
0x15b00…15b20 32 27 3d 27 64 6f 75 62 6c 65 5f 7a 65 72 6f 27 2e 20 0d 0a 16 53 44 0d 0a 44 6f 75 62 6c 65 5f ┆2'='double_zero'. SD Double_┆
0x15b20…15b40 69 6e 63 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 64 6f 75 62 6c 65 5f 69 6e 63 be 28 56 41 ┆inc PROCEDURE ┐▄пdouble_incЙ(VA┆
0x15b40…15b60 52 20 64 3a 20 64 6f 75 62 6c 65 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 64 6f 75 ┆R d: double); Defined in dou┆
0x15b60…15b80 62 6c 65 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 49 6e 63 72 65 6d 65 6e 74 73 20 74 68 65 ┆bleenv. - ёIncrements the┆
0x15b80…15ba0 20 70 61 72 61 6d 65 74 65 72 20 27 64 27 20 62 79 20 6f 6e 65 20 69 6e 20 74 68 65 20 72 61 6e ┆ parameter 'd' by one in the ran┆
0x15ba0…15bc0 67 65 20 0a 19 85 80 80 1e 32 31 34 37 34 38 33 36 34 38 2e 2e 32 31 34 37 34 38 33 36 34 37 2c ┆ge Ёђђ 2147483648..2147483647,┆
0x15bc0…15be0 20 62 75 74 20 77 69 74 68 20 6e 6f 20 6f 76 65 72 66 6c 6f 77 20 65 78 63 65 70 74 69 6f 6e 2e ┆ but with no overflow exception.┆
0x15be0…15c00 20 0d 0a 16 53 44 0d 0a 44 6f 75 62 6c 65 5f 69 6e 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 ┆ SD Double_int FUNCTION ┐▄п┆
0x15c00…15c20 64 6f 75 62 6c 65 5f 69 6e 74 be 28 69 3a 20 69 6e 74 65 67 65 72 29 3a 20 64 6f 75 62 6c 65 3b ┆double_intЙ(i: integer): double;┆
0x15c20…15c40 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 64 6f 75 62 6c 65 65 6e 76 2e 20 0d 0a 0d 0a 20 ┆ Defined in doubleenv. ┆
0x15c40…15c60 20 20 2d 20 84 43 6f 6e 76 65 72 74 73 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 74 79 70 65 ┆ - ёConverts a variable of type┆
0x15c60…15c80 20 69 6e 74 65 67 65 72 20 74 6f 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 74 79 70 65 20 0a ┆ integer to a variable of type ┆
0x15c80…15ca0 19 85 80 80 27 64 6f 75 62 6c 65 27 2e 20 0d 0a 16 53 44 0d 0a 44 6f 75 62 6c 65 5f 6c 74 0d 0a ┆ Ёђђ'double'. SD Double_lt ┆
0x15ca0…15cc0 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c 65 5f 6c 74 be 28 64 31 2c 20 64 32 3a 20 64 ┆FUNCTION ┐▄пdouble_ltЙ(d1, d2: d┆
0x15cc0…15ce0 6f 75 62 6c 65 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 ┆ouble): boolean; Defined in ┆
0x15ce0…15d00 64 6f 75 62 6c 65 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 27 6c 65 73 73 20 74 68 61 6e 27 ┆doubleenv. - ё'less than'┆
0x15d00…15d20 20 28 27 64 31 27 3c 27 64 32 27 29 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 2d 32 31 34 37 34 ┆ ('d1'<'d2') in the range -21474┆
0x15d20…15d40 38 33 36 34 38 2e 2e 32 31 34 37 34 38 33 36 34 37 2e 20 0d 0a 16 53 44 0d 0a 44 6f 75 62 6c 65 ┆83648..2147483647. SD Double┆
0x15d40…15d60 5f 6d 61 64 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c 65 5f 6d 61 64 64 be 28 ┆_madd FUNCTION ┐▄пdouble_maddЙ(┆
0x15d60…15d80 64 31 2c 20 64 32 3a 20 64 6f 75 62 6c 65 29 3a 20 64 6f 75 62 6c 65 3b 20 0d 0a 0d 0a 44 65 66 ┆d1, d2: double): double; Def┆
0x15d80…15da0 69 6e 65 64 20 69 6e 20 64 6f 75 62 6c 65 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 41 64 64 ┆ined in doubleenv. - ёAdd┆
0x15da0…15dc0 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 2d 32 31 34 37 34 38 33 36 34 38 2e 2e ┆ition in the range -2147483648..┆
0x15dc0…15de0 32 31 34 37 34 38 33 36 34 37 2c 20 62 75 74 20 77 69 74 68 20 6e 6f 20 0a 19 85 80 80 6f 76 65 ┆2147483647, but with no Ёђђove┆
0x15de0…15e00 72 66 6c 6f 77 20 65 78 63 65 70 74 69 6f 6e 2e 20 0d 0a 16 53 44 0d 0a 44 6f 75 62 6c 65 5f 6d ┆rflow exception. SD Double_m┆
0x15e00…15e20 6f 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c 65 5f 6d 6f 64 be 28 64 31 2c 20 ┆od FUNCTION ┐▄пdouble_modЙ(d1, ┆
0x15e20…15e40 64 32 3a 20 64 6f 75 62 6c 65 29 3a 20 64 6f 75 62 6c 65 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 ┆d2: double): double; Defined┆
0x15e40…15e60 20 69 6e 20 64 6f 75 62 6c 65 65 6e 76 2e 20 20 20 0d 0a 0d 0a 20 20 20 2d 20 84 4d 6f 64 75 6c ┆ in doubleenv. - ёModul┆
0x15e60…15e80 6f 20 6f 70 65 72 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 2d 32 31 34 37 34 38 ┆o operation in the range -214748┆
0x15e80…15ea0 33 36 34 38 2e 2e 32 31 34 37 34 38 33 36 34 37 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 ┆3648..2147483647. An excepti┆
0x15ea0…15ec0 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 27 64 32 27 20 3d 20 27 64 6f 75 62 6c 65 5f 7a 65 72 ┆on occurs, if 'd2' = 'double_zer┆
0x15ec0…15ee0 6f 27 2e 20 0d 0a 16 53 44 0d 0a 44 6f 75 62 6c 65 5f 6d 73 75 62 0d 0a 46 55 4e 43 54 49 4f 4e ┆o'. SD Double_msub FUNCTION┆
0x15ee0…15f00 20 bf dc d8 64 6f 75 62 6c 65 5f 6d 73 75 62 be 28 64 31 2c 20 64 32 3a 20 64 6f 75 62 6c 65 29 ┆ ┐▄пdouble_msubЙ(d1, d2: double)┆
0x15f00…15f20 3a 20 64 6f 75 62 6c 65 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 64 6f 75 62 6c 65 65 ┆: double; Defined in doublee┆
0x15f20…15f40 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 53 75 62 74 72 61 63 74 69 6f 6e 20 69 6e 20 74 68 65 ┆nv. - ёSubtraction in the┆
0x15f40…15f60 20 72 61 6e 67 65 20 2d 32 31 34 37 34 38 33 36 34 38 2e 2e 32 31 34 37 34 38 33 36 34 37 2c 20 ┆ range -2147483648..2147483647, ┆
0x15f60…15f80 62 75 74 20 77 69 74 68 20 6e 6f 20 0a 19 85 80 80 6f 76 65 72 66 6c 6f 77 20 65 78 63 65 70 74 ┆but with no Ёђђoverflow except┆
0x15f80…15fa0 69 6f 6e 2e 20 0d 0a 8c 89 98 0a 16 53 44 0d 0a 44 6f 75 62 6c 65 5f 6d 75 6c 0d 0a 46 55 4e 43 ┆ion. їЅў SD Double_mul FUNC┆
0x15fa0…15fc0 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c 65 5f 6d 75 6c be 28 64 31 2c 20 64 32 3a 20 64 6f 75 62 ┆TION ┐▄пdouble_mulЙ(d1, d2: doub┆
0x15fc0…15fe0 6c 65 29 3a 20 64 6f 75 62 6c 65 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 64 6f 75 62 ┆le): double; Defined in doub┆
0x15fe0…16000 6c 65 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 4d 75 6c 74 69 70 6c 69 63 61 74 69 6f 6e 20 ┆leenv. - ёMultiplication ┆
0x16000…16020 69 6e 20 74 68 65 20 72 61 6e 67 65 20 2d 32 31 34 37 34 38 33 36 34 38 2e 2e 32 31 34 37 34 38 ┆in the range -2147483648..214748┆
0x16020…16040 33 36 34 37 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 ┆3647. An exception occurs, i┆
0x16040…16060 66 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 6f 75 74 73 69 64 65 20 74 68 69 73 20 72 61 6e ┆f the result is outside this ran┆
0x16060…16080 67 65 2e 20 0d 0a 16 53 44 0d 0a 44 6f 75 62 6c 65 5f 73 75 62 0d 0a 46 55 4e 43 54 49 4f 4e 20 ┆ge. SD Double_sub FUNCTION ┆
0x16080…160a0 bf dc d8 64 6f 75 62 6c 65 5f 73 75 62 be 28 64 31 2c 20 64 32 3a 20 64 6f 75 62 6c 65 29 3a 20 ┆┐▄пdouble_subЙ(d1, d2: double): ┆
0x160a0…160c0 64 6f 75 62 6c 65 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 64 6f 75 62 6c 65 65 6e 76 ┆double; Defined in doubleenv┆
0x160c0…160e0 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 53 75 62 74 72 61 63 74 69 6f 6e 20 69 6e 20 74 68 65 20 72 ┆. - ёSubtraction in the r┆
0x160e0…16100 61 6e 67 65 20 2d 32 31 34 37 34 38 33 36 34 38 2e 2e 32 31 34 37 34 38 33 36 34 37 2e 20 0d 0a ┆ange -2147483648..2147483647. ┆
0x16100…16120 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 74 68 65 20 72 65 ┆ An exception occurs, if the re┆
0x16120…16140 73 75 6c 74 20 69 73 20 6f 75 74 73 69 64 65 20 74 68 69 73 20 72 61 6e 67 65 2e 20 0d 0a 16 53 ┆sult is outside this range. S┆
0x16140…16160 44 0d 0a 44 6f 75 62 6c 65 5f 75 69 6e 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 ┆D Double_uint FUNCTION ┐▄пdoub┆
0x16160…16180 6c 65 5f 75 69 6e 74 be 28 69 3a 20 69 6e 74 65 67 65 72 29 3a 20 64 6f 75 62 6c 65 3b 20 0d 0a ┆le_uintЙ(i: integer): double; ┆
0x16180…161a0 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 64 6f 75 62 6c 65 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d ┆ Defined in doubleenv. -┆
0x161a0…161c0 20 84 43 6f 6e 76 65 72 74 73 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 74 79 70 65 20 69 6e ┆ ёConverts a variable of type in┆
0x161c0…161e0 74 65 67 65 72 2c 20 74 72 65 61 74 65 64 20 61 73 20 61 6e 20 75 6e 73 69 67 6e 65 64 20 0a 19 ┆teger, treated as an unsigned ┆
0x161e0…16200 85 80 80 6e 75 6d 62 65 72 2c 20 74 6f 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 74 79 70 65 ┆Ёђђnumber, to a variable of type┆
0x16200…16220 20 27 64 6f 75 62 6c 65 27 2e 20 0d 0a 16 53 44 0d 0a 49 6e 74 5f 64 6f 75 62 6c 65 0d 0a 46 55 ┆ 'double'. SD Int_double FU┆
0x16220…16240 4e 43 54 49 4f 4e 20 bf dc d8 69 6e 74 5f 64 6f 75 62 6c 65 be 28 64 3a 20 64 6f 75 62 6c 65 29 ┆NCTION ┐▄пint_doubleЙ(d: double)┆
0x16240…16260 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 64 6f 75 62 6c 65 ┆: integer; Defined in double┆
0x16260…16280 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 43 6f 6e 76 65 72 74 73 20 61 20 76 61 72 69 61 62 ┆env. - ёConverts a variab┆
0x16280…162a0 6c 65 20 6f 66 20 74 79 70 65 20 64 6f 75 62 6c 65 20 74 6f 20 61 20 76 61 72 69 61 62 6c 65 20 ┆le of type double to a variable ┆
0x162a0…162c0 6f 66 20 74 79 70 65 20 69 6e 74 65 67 65 72 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f ┆of type integer. An exceptio┆
0x162c0…162e0 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 6f 75 74 73 69 64 ┆n occurs, if the value is outsid┆
0x162e0…16300 65 20 74 68 65 20 72 61 6e 67 65 20 6f 66 20 74 68 65 20 74 79 70 65 20 69 6e 80 0a 74 65 67 65 ┆e the range of the type inђ tege┆
0x16300…16320 72 2e 20 0d 0a 16 53 44 0d 0a 55 69 6e 74 5f 64 6f 75 62 6c 65 0d 0a 46 55 4e 43 54 49 4f 4e 20 ┆r. SD Uint_double FUNCTION ┆
0x16320…16340 bf dc d8 75 69 6e 74 5f 64 6f 75 62 6c 65 be 28 64 3a 20 64 6f 75 62 6c 65 29 3a 20 69 6e 74 65 ┆┐▄пuint_doubleЙ(d: double): inte┆
0x16340…16360 67 65 72 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 64 6f 75 62 6c 65 65 6e 76 2e 20 0d ┆ger; Defined in doubleenv. ┆
0x16360…16380 0a 0d 0a 20 20 20 2d 20 84 43 6f 6e 76 65 72 74 73 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 ┆ - ёConverts a variable of ┆
0x16380…163a0 74 79 70 65 20 64 6f 75 62 6c 65 20 74 6f 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 74 79 70 ┆type double to a variable of typ┆
0x163a0…163c0 65 20 0a 19 85 80 80 75 6e 73 69 67 6e 65 64 20 69 6e 74 65 67 65 72 2e 0d 0a 0d 0a 41 6e 20 65 ┆e Ёђђunsigned integer. An e┆
0x163c0…163e0 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 ┆xception occurs, if the value is┆
0x163e0…16400 20 6f 75 74 73 69 64 65 20 74 68 65 20 69 6e 74 65 72 76 61 6c 20 30 2e 2e 36 35 35 33 35 2e 0d ┆ outside the interval 0..65535. ┆
0x16400…16420 0a 16 53 43 0d 0a 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 41 72 69 74 68 6d 65 74 69 63 20 52 ┆ SC Miscellaneous Arithmetic R┆
0x16420…16440 6f 75 74 69 6e 65 73 0d 0a 16 73 6f 20 72 6f 75 74 69 6e 65 73 2c 20 61 72 69 74 68 6d 65 74 69 ┆outines so routines, arithmeti┆
0x16440…16460 63 0d 0a 16 53 44 0d 0a 41 62 73 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 61 62 73 be 28 78 3a ┆c SD Abs FUNCTION ┐▄пabsЙ(x:┆
0x16460…16480 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 ┆integer): integer; Predefine┆
0x16480…164a0 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 61 62 73 6f 6c 75 74 65 20 76 61 6c 75 65 20 ┆d. - ёThe absolute value ┆
0x164a0…164c0 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 27 78 27 20 69 73 20 64 65 6c 69 76 65 72 65 64 ┆of the variable 'x' is delivered┆
0x164c0…164e0 20 61 73 20 72 65 73 75 6c 74 2e 20 0d 0a 16 53 44 0d 0a 43 72 63 31 36 0d 0a 46 55 4e 43 54 49 ┆ as result. SD Crc16 FUNCTI┆
0x164e0…16500 4f 4e 20 bf dc d8 63 72 63 31 36 be 28 6f 70 31 2c 20 6f 70 32 20 3a 20 69 6e 74 65 67 65 72 29 ┆ON ┐▄пcrc16Й(op1, op2 : integer)┆
0x16500…16520 20 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 ┆ : integer; Defined in rc350┆
0x16520…16540 32 65 6e 76 2e 0d 0a 0d 0a 8c 89 f8 0a 20 20 20 2d 20 84 27 6f 70 31 27 20 72 65 70 72 65 73 65 ┆2env. їЅЭ - ё'op1' represe┆
0x16540…16560 6e 74 73 20 74 68 65 20 70 6f 6c 79 6e 6f 6d 69 75 6d 3a 20 0d 0a 0d 0a 20 20 20 20 20 66 28 78 ┆nts the polynomium: f(x┆
0x16560…16580 29 3d 61 82 31 35 81 2a 78 81 31 35 82 2b 61 82 31 34 81 2a 78 81 31 34 82 2b 2e 2e 2e 2b 61 82 ┆)=aѓ15Ђ*xЂ15ѓ+aѓ14Ђ*xЂ14ѓ+...+aѓ┆
0x16580…165a0 31 81 2a 78 2b 61 82 30 81 20 0d 0a 0d 0a 20 20 20 20 20 77 68 65 72 65 20 61 82 6a 81 3d 6f 70 ┆1Ђ*x+aѓ0Ђ where aѓjЂ=op┆
0x165a0…165c0 31 2e 62 69 74 82 6a 81 2e 20 0d 0a 0d 0a 4e 6f 74 65 3a 20 42 69 74 20 30 20 69 73 20 74 68 65 ┆1.bitѓjЂ. Note: Bit 0 is the┆
0x165c0…165e0 20 a0 6d 6f 73 74 e0 20 73 69 67 6e 69 66 69 63 61 6e 74 20 62 69 74 2e 20 0d 0a 0d 0a 20 20 20 ┆ аmostЯ significant bit. ┆
0x165e0…16600 2d 20 84 27 6f 70 32 27 20 72 65 70 72 65 73 65 6e 74 73 20 74 68 65 20 70 6f 6c 79 6e 6f 6d 69 ┆- ё'op2' represents the polynomi┆
0x16600…16620 75 6d 3a 20 0d 0a 0d 0a 20 20 20 20 20 67 28 78 29 3d 78 81 31 36 82 2b 62 82 31 35 81 2a 78 81 ┆um: g(x)=xЂ16ѓ+bѓ15Ђ*xЂ┆
0x16620…16640 31 35 82 2b 62 82 31 34 81 2a 78 81 31 34 82 2b 2e 2e 2e 2b 62 82 31 81 2a 78 2b 62 82 30 81 20 ┆15ѓ+bѓ14Ђ*xЂ14ѓ+...+bѓ1Ђ*x+bѓ0Ђ ┆
0x16640…16660 0d 0a 0d 0a 20 20 20 20 20 77 68 65 72 65 20 62 82 6a 81 3d 6f 70 32 2e 62 69 74 82 6a 81 2e 20 ┆ where bѓjЂ=op2.bitѓjЂ. ┆
0x16660…16680 0d 0a 0d 0a 20 20 20 20 20 4e 6f 74 65 20 74 68 61 74 20 78 81 31 36 82 20 62 79 20 63 6f 6e 76 ┆ Note that xЂ16ѓ by conv┆
0x16680…166a0 65 6e 74 69 6f 6e 20 69 73 20 69 6d 70 6c 69 63 69 74 6c 79 20 67 69 76 65 6e 2e 20 0d 0a 0d 0a ┆ention is implicitly given. ┆
0x166a0…166c0 20 20 20 20 20 54 68 65 20 72 6f 75 74 69 6e 65 20 64 65 6c 69 76 65 72 73 20 74 68 65 20 72 65 ┆ The routine delivers the re┆
0x166c0…166e0 6d 61 69 6e 64 65 72 20 62 79 20 74 68 65 20 64 69 76 69 73 69 6f 6e 3a 20 0d 0a 0d 0a 20 20 20 ┆mainder by the division: ┆
0x166e0…16700 20 20 20 20 66 28 78 29 2a 78 81 38 82 2f 67 28 78 29 20 0d 0a 0d 0a 0e 0a a1 45 78 61 6d 70 6c ┆ f(x)*xЂ8ѓ/g(x) АExampl┆
0x16700…16720 65 20 20 35 2e 20 20 43 52 43 31 36 20 e1 20 0d 0a 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 ┆e 5. CRC16 р -L A1┆
0x16720…16740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 ┆ $-7A┆
0x16740…16760 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 ┆KU_is} -L A1 ┆
0x16760…16780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ┆ $-7AKU_is} ┆
0x16780…167a0 ff ff 04 0a 50 52 4f 43 45 44 55 52 45 20 65 78 61 6d 70 6c 65 35 3b 20 20 20 20 20 20 20 0d 0a ┆ PROCEDURE example5; ┆
0x167a0…167c0 20 20 20 28 2a 20 67 65 6e 65 72 61 74 65 20 74 68 65 20 63 72 63 31 36 20 72 65 6d 61 69 6e 64 ┆ (* generate the crc16 remaind┆
0x167c0…167e0 65 72 20 2a 29 20 20 20 20 20 20 20 0d 0a 20 20 20 28 2a 20 74 6f 20 62 65 20 70 6c 61 63 65 64 ┆er *) (* to be placed┆
0x167e0…16800 20 69 6e 20 74 68 65 20 6c 61 73 74 2a 29 20 20 20 20 20 20 20 0d 0a 20 20 20 28 2a 20 70 6f 73 ┆ in the last*) (* pos┆
0x16800…16820 69 74 69 6f 6e 73 20 6f 66 20 61 20 62 75 66 66 65 72 20 20 20 2a 29 20 20 20 20 20 0d 0a 0d 0a ┆itions of a buffer *) ┆
0x16820…16840 43 4f 4e 53 54 20 20 20 20 20 0d 0a 20 20 71 75 6f 74 69 65 6e 74 3d 20 2d 33 32 37 36 38 2b 38 ┆CONST quotient= -32768+8┆
0x16840…16860 31 39 32 2b 31 3b 20 20 20 28 2a 20 78 5e 88 7c 31 36 20 2b 20 78 5e 88 7c 31 35 20 2b 78 5e 88 ┆192+1; (* x^ѕ|16 + x^ѕ|15 +x^ѕ┆
0x16860…16880 7c 32 20 2b 20 31 20 2a 29 20 20 20 20 20 0d 0a 20 20 6e 3d 20 37 36 38 3b 20 20 20 20 20 0d 0a ┆|2 + 1 *) n= 768; ┆
0x16880…168a0 0d 0a 56 41 52 0d 0a 20 20 72 65 6d 61 69 6e 64 65 72 3a 20 69 6e 74 65 67 65 72 3b 20 20 20 20 ┆ VAR remainder: integer; ┆
0x168a0…168c0 20 0d 0a 20 20 62 75 66 66 65 72 3a 20 41 52 52 41 59 20 28 31 2e 2e 6e 2b 32 29 20 4f 46 20 62 ┆ buffer: ARRAY (1..n+2) OF b┆
0x168c0…168e0 79 74 65 3b 20 20 20 20 20 0d 0a 0d 0a 42 45 47 49 4e 20 20 20 20 20 0d 0a 20 20 72 65 6d 61 69 ┆yte; BEGIN remai┆
0x168e0…16900 6e 64 65 72 3a 3d 20 30 3b 20 28 2a 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 2a 29 20 20 20 ┆nder:= 0; (* initial value *) ┆
0x16900…16920 20 20 0d 0a 20 20 46 4f 52 20 73 74 65 70 3a 3d 20 31 20 54 4f 20 6e 20 44 4f 20 20 20 20 20 20 ┆ FOR step:= 1 TO n DO ┆
0x16920…16940 20 0d 0a 20 20 20 20 72 65 6d 61 69 6e 64 65 72 3a 3d 20 63 72 63 31 36 28 72 65 6d 61 69 6e 64 ┆ remainder:= crc16(remaind┆
0x16940…16960 65 72 20 58 4f 52 20 62 75 66 66 65 72 28 73 74 65 70 29 2c 20 71 75 6f 74 69 65 6e 74 29 3b 20 ┆er XOR buffer(step), quotient); ┆
0x16960…16980 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 28 2a 20 6e 6f 77 20 72 65 6d 61 69 6e 64 65 72 20 63 ┆ (* now remainder c┆
0x16980…169a0 6f 6e 74 61 69 6e 73 20 74 68 65 20 63 72 63 31 36 20 72 65 6d 61 69 6e 64 65 72 20 2a 29 20 20 ┆ontains the crc16 remainder *) ┆
0x169a0…169c0 20 20 20 20 20 0d 0a 20 20 20 20 20 20 28 2a 20 74 68 65 20 6c 65 61 73 74 20 73 69 67 6e 69 66 ┆ (* the least signif┆
0x169c0…169e0 69 63 61 6e 74 20 62 79 74 65 20 6f 66 20 72 65 6d 61 69 6e 64 65 72 20 20 20 20 2a 29 20 20 20 ┆icant byte of remainder *) ┆
0x169e0…16a00 20 20 20 20 0d 0a 20 20 20 20 20 20 28 2a 20 69 73 20 73 75 70 70 6f 73 65 64 20 74 6f 20 62 65 ┆ (* is supposed to be┆
0x16a00…16a20 20 73 65 6e 74 20 66 69 72 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 20 20 20 ┆ sent first *) ┆
0x16a20…16a40 0d 0a 20 20 62 75 66 66 65 72 28 6e 2b 31 29 3a 3d 20 72 65 6d 61 69 6e 64 65 72 20 41 4e 44 20 ┆ buffer(n+1):= remainder AND ┆
0x16a40…16a60 32 35 35 3b 20 20 20 20 20 0d 0a 20 20 62 75 66 66 65 72 28 6e 2b 32 29 3a 3d 20 73 77 61 70 28 ┆255; buffer(n+2):= swap(┆
0x16a60…16a80 72 65 6d 61 69 6e 64 65 72 29 20 41 4e 44 20 32 35 35 3b 20 20 20 0d 0a 45 4e 44 3b 20 28 2a 20 ┆remainder) AND 255; END; (* ┆
0x16a80…16aa0 65 78 61 6d 70 6c 65 35 20 2a 29 0d 0a 0f 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 ┆example5 *) -L A1 ┆
0x16aa0…16ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 ┆ $-7AKU┆
0x16ac0…16ae0 5f 69 73 7d ff ff ff 04 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 ┆_is} -L A1 ┆
0x16ae0…16b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff ┆ $-7AKU_is} ┆
0x16b00…16b20 04 0a 16 53 44 0d 0a 44 65 63 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 64 65 63 be 28 56 41 ┆ SD Dec PROCEDURE ┐▄пdecЙ(VA┆
0x16b20…16b40 52 20 69 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 64 65 63 28 56 ┆R i: integer); PROCEDURE dec(V┆
0x16b40…16b60 41 52 20 62 3a 20 62 79 74 65 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d ┆AR b: byte); Predefined. ┆
0x16b60…16b80 0a 20 20 20 2d 20 84 64 65 63 72 65 6d 65 6e 74 73 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 ┆ - ёdecrements the parameter ┆
0x16b80…16ba0 62 79 20 6f 6e 65 20 77 69 74 68 20 6e 6f 20 75 6e 64 65 72 66 6c 6f 77 20 65 78 63 65 70 74 69 ┆by one with no underflow excepti┆
0x16ba0…16bc0 6f 6e 2e 20 0a 19 85 80 80 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 74 65 6e 64 ┆on. ЁђђThe procedure is intend┆
0x16bc0…16be0 65 64 20 66 6f 72 20 73 74 61 74 69 73 74 69 63 61 6c 20 70 75 72 70 6f 73 65 73 2c 20 6c 69 6b ┆ed for statistical purposes, lik┆
0x16be0…16c00 65 20 69 3a 3d 20 69 2d 31 2c 20 0a 19 85 80 80 77 68 65 72 65 20 74 68 65 20 61 63 63 65 73 73 ┆e i:= i-1, Ёђђwhere the access┆
0x16c00…16c20 20 70 61 74 68 20 74 6f 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 69 27 20 69 73 20 68 61 ┆ path to the parameter 'i' is ha┆
0x16c20…16c40 72 64 2e 20 54 68 65 20 61 64 80 64 72 65 73 73 20 0a 19 85 80 80 6f 66 20 74 68 65 20 70 61 72 ┆rd. The adђdress Ёђђof the par┆
0x16c40…16c60 61 6d 65 74 65 72 20 69 73 20 6f 6e 6c 79 20 63 61 6c 63 75 6c 61 74 65 64 20 6f 6e 63 65 2e 20 ┆ameter is only calculated once. ┆
0x16c60…16c80 0d 0a 16 53 44 0d 0a 49 6e 63 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 69 6e 63 be 28 56 41 ┆ SD Inc PROCEDURE ┐▄пincЙ(VA┆
0x16c80…16ca0 52 20 69 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 69 6e 63 28 56 ┆R i: integer); PROCEDURE inc(V┆
0x16ca0…16cc0 41 52 20 62 3a 20 62 79 74 65 29 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d ┆AR b: byte); Predefined. ┆
0x16cc0…16ce0 0a 20 20 20 2d 20 84 69 6e 63 72 65 6d 65 6e 74 73 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 ┆ - ёincrements the parameter ┆
0x16ce0…16d00 62 79 20 6f 6e 65 20 77 69 74 68 20 6e 6f 20 6f 76 65 72 66 6c 6f 77 20 65 78 63 65 70 74 69 6f ┆by one with no overflow exceptio┆
0x16d00…16d20 6e 2e 20 0a 19 85 80 80 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 74 65 6e 64 65 ┆n. ЁђђThe procedure is intende┆
0x16d20…16d40 64 20 66 6f 72 20 73 74 61 74 69 73 74 69 63 61 6c 20 70 75 72 70 6f 73 65 73 2c 20 6c 69 6b 65 ┆d for statistical purposes, like┆
0x16d40…16d60 20 69 3a 3d 20 69 2b 31 2c 20 0a 19 85 80 80 77 68 65 72 65 20 74 68 65 20 61 63 63 65 73 73 20 ┆ i:= i+1, Ёђђwhere the access ┆
0x16d60…16d80 70 61 74 68 20 74 6f 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 69 27 20 69 73 20 68 61 72 ┆path to the parameter 'i' is har┆
0x16d80…16da0 64 2e 20 54 68 65 20 61 64 80 64 72 65 73 73 20 0a 19 85 80 80 6f 66 20 74 68 65 20 70 61 72 61 ┆d. The adђdress Ёђђof the para┆
0x16da0…16dc0 6d 65 74 65 72 20 69 73 20 6f 6e 6c 79 20 63 61 6c 63 75 6c 61 74 65 64 20 6f 6e 63 65 2e 20 0d ┆meter is only calculated once. ┆
0x16dc0…16de0 0a 16 53 44 0d 0a 49 6e 74 65 6c 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 69 6e 74 65 6c be 28 ┆ SD Intel FUNCTION ┐▄пintelЙ(┆
0x16de0…16e00 69 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 6c 5f 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a ┆i: integer): intel_integer; ┆
0x16e00…16e20 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 8c 8b ee 0a 20 20 20 2d 20 84 63 6f ┆Not predefined. їІЬ - ёco┆
0x16e20…16e40 6e 76 65 72 74 73 20 61 6e 20 52 43 33 35 30 32 20 69 6e 74 65 67 65 72 20 74 6f 20 61 6e 20 49 ┆nverts an RC3502 integer to an I┆
0x16e40…16e60 4e 54 45 4c 20 69 6e 74 65 67 65 72 20 62 79 20 65 78 63 68 61 6e 67 69 6e 67 20 0a 19 85 80 80 ┆NTEL integer by exchanging Ёђђ┆
0x16e60…16e80 74 68 65 20 6c 65 61 73 74 20 61 6e 64 20 6d 6f 73 74 20 73 69 67 6e 69 66 69 63 61 6e 74 20 62 ┆the least and most significant b┆
0x16e80…16ea0 79 74 65 2e 20 0d 0a 0d 0a 41 6e 20 27 69 6e 74 65 6c 5f 69 6e 74 65 67 65 72 27 20 69 73 20 64 ┆yte. An 'intel_integer' is d┆
0x16ea0…16ec0 65 66 69 6e 65 64 20 61 73 3a 20 0d 0a 0d 0a 69 6e 74 65 6c 5f 69 6e 74 65 67 65 72 20 3d 20 52 ┆efined as: intel_integer = R┆
0x16ec0…16ee0 45 43 4f 52 44 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ECORD ┆
0x16ee0…16f00 20 20 6c 6f 77 3a 20 62 79 74 65 3b 20 28 2a 20 6c 65 61 73 74 20 73 69 67 6e 69 66 69 63 61 6e ┆ low: byte; (* least significan┆
0x16f00…16f20 74 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 69 67 68 3a 20 62 79 ┆t *) high: by┆
0x16f20…16f40 74 65 3b 20 28 2a 20 6d 6f 73 74 20 73 69 67 6e 69 66 69 63 61 6e 74 20 2a 29 20 20 20 20 20 20 ┆te; (* most significant *) ┆
0x16f40…16f60 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 0d 0a 0d 0a a1 45 78 61 ┆ END; АExa┆
0x16f60…16f80 6d 70 6c 65 3a e1 20 53 65 65 20 65 78 61 6d 70 6c 65 20 75 6e 64 65 72 20 4c 41 4d 42 44 41 2e ┆mple:р See example under LAMBDA.┆
0x16f80…16fa0 20 0d 0a 16 53 44 0d 0a 4c 61 6d 62 64 61 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6c 61 6d 62 ┆ SD Lambda FUNCTION ┐▄пlamb┆
0x16fa0…16fc0 64 61 be 28 69 69 3a 20 69 6e 74 65 6c 5f 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b ┆daЙ(ii: intel_integer): integer;┆
0x16fc0…16fe0 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 63 ┆ Not predefined. - ёc┆
0x16fe0…17000 6f 6e 76 65 72 74 73 20 61 6e 20 49 4e 54 45 4c 20 69 6e 74 65 67 65 72 20 74 6f 20 61 6e 20 52 ┆onverts an INTEL integer to an R┆
0x17000…17020 43 33 35 30 32 20 69 6e 74 65 67 65 72 20 62 79 20 65 78 63 68 61 6e 67 69 6e 67 20 0a 19 85 80 ┆C3502 integer by exchanging Ёђ┆
0x17020…17040 80 74 68 65 20 6c 65 61 73 74 20 61 6e 64 20 6d 6f 73 74 20 73 69 67 6e 69 66 69 63 61 6e 74 20 ┆ђthe least and most significant ┆
0x17040…17060 62 79 74 65 2e 20 0d 0a 0d 0a 41 6e 20 49 4e 54 45 4c 20 69 6e 74 65 67 65 72 20 69 73 20 64 65 ┆byte. An INTEL integer is de┆
0x17060…17080 66 69 6e 65 64 20 61 73 3a 20 0d 0a 0d 0a 20 20 20 20 20 69 6e 74 65 6c 5f 69 6e 74 65 67 65 72 ┆fined as: intel_integer┆
0x17080…170a0 20 3d 20 52 45 43 4f 52 44 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = RECORD ┆
0x170a0…170c0 20 20 20 20 20 20 20 20 20 20 20 6c 6f 77 3a 20 62 79 74 65 3b 20 28 2a 20 6c 65 61 73 74 20 73 ┆ low: byte; (* least s┆
0x170c0…170e0 69 67 6e 69 66 69 63 61 6e 74 20 2a 29 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ignificant *) ┆
0x170e0…17100 20 20 20 20 20 20 20 68 69 67 68 3a 20 62 79 74 65 3b 20 28 2a 20 6d 6f 73 74 20 73 69 67 6e 69 ┆ high: byte; (* most signi┆
0x17100…17120 66 69 63 61 6e 74 20 2a 29 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ficant *) ┆
0x17120…17140 20 20 20 20 20 20 45 4e 44 3b 20 0d 0a 0d 0a 0e 0a 0d 0a a1 45 78 61 6d 70 6c 65 20 20 36 2e 20 ┆ END; АExample 6. ┆
0x17140…17160 20 49 4e 54 45 4c 20 61 6e 64 20 4c 41 4d 42 44 41 20 e1 20 20 0d 0a 04 00 2d 4c 0f 00 08 00 00 ┆ INTEL and LAMBDA р -L ┆
0x17160…17180 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ A1 ┆
0x17180…171a0 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 ┆ $-7AKU_is} -L A1 ┆
0x171a0…171c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b ┆ $-7AK┆
0x171c0…171e0 55 5f 69 73 7d ff ff ff 04 0a 50 52 4f 43 45 44 55 52 45 20 65 78 61 6d 70 6c 65 36 3b 20 20 20 ┆U_is} PROCEDURE example6; ┆
0x171e0…17200 20 20 0d 0a 0d 0a 54 59 50 45 20 20 20 20 20 20 20 0d 0a 20 20 69 6e 74 65 6c 5f 69 6e 74 65 67 ┆ TYPE intel_integ┆
0x17200…17220 65 72 20 3d 20 52 45 43 4f 52 44 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆er = RECORD ┆
0x17220…17240 20 20 20 20 20 20 6c 6f 77 2c 20 68 69 67 68 3a 20 62 79 74 65 3b 20 0d 0a 20 20 20 20 20 20 20 ┆ low, high: byte; ┆
0x17240…17260 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 0d 0a 46 55 4e 43 54 49 4f 4e ┆ END; FUNCTION┆
0x17260…17280 20 69 6e 74 65 6c 28 69 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 6c 5f 69 6e 74 65 67 65 ┆ intel(i: integer): intel_intege┆
0x17280…172a0 72 3b 20 45 58 54 45 52 4e 41 4c 3b 20 20 20 20 20 20 20 0d 0a 46 55 4e 43 54 49 4f 4e 20 6c 61 ┆r; EXTERNAL; FUNCTION la┆
0x172a0…172c0 6d 62 64 61 28 69 69 3a 20 69 6e 74 65 6c 5f 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 ┆mbda(ii: intel_integer): integer┆
0x172c0…172e0 3b 20 45 58 54 45 52 4e 41 4c 3b 0d 0a 56 41 52 20 20 20 20 0d 0a 20 20 69 69 3a 20 69 6e 74 65 ┆; EXTERNAL; VAR ii: inte┆
0x172e0…17300 6c 5f 69 6e 74 65 67 65 72 3b 20 20 20 0d 0a 20 20 69 3a 20 69 6e 74 65 67 65 72 3b 20 20 20 20 ┆l_integer; i: integer; ┆
0x17300…17320 20 0d 0a 0d 0a 42 45 47 49 4e 20 20 20 20 0d 0a 20 20 69 69 2e 6c 6f 77 3a 3d 20 31 35 3b 0d 0a ┆ BEGIN ii.low:= 15; ┆
0x17320…17340 20 20 69 69 2e 68 69 67 68 3a 3d 20 32 3b 20 20 20 20 0d 0a 20 20 69 3a 3d 20 6c 61 6d 62 64 61 ┆ ii.high:= 2; i:= lambda┆
0x17340…17360 28 69 69 29 3b 20 28 2a 20 69 3a 3d 20 32 2a 32 35 36 2b 31 35 20 2a 29 20 20 20 20 0d 0a 20 20 ┆(ii); (* i:= 2*256+15 *) ┆
0x17360…17380 69 3a 3d 20 32 35 39 3b 20 20 20 20 0d 0a 20 20 69 69 3a 3d 20 69 6e 74 65 6c 28 69 29 3b 20 28 ┆i:= 259; ii:= intel(i); (┆
0x17380…173a0 2a 20 69 69 2e 6c 6f 77 3a 3d 20 33 2c 20 69 69 2e 68 69 67 68 3a 3d 20 31 20 2a 29 0d 0a 45 4e ┆* ii.low:= 3, ii.high:= 1 *) EN┆
0x173a0…173c0 44 3b 20 28 2a 20 65 78 61 6d 70 6c 65 36 20 2a 29 20 20 20 0d 0a 04 00 2d 4c 00 00 06 00 00 00 ┆D; (* example6 *) -L ┆
0x173c0…173e0 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f ┆ A1 ┆
0x173e0…17400 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 00 00 ┆ $-7AKU_is} -L A1 ┆
0x17400…17420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 ┆ $-7AKU┆
0x17420…17440 5f 69 73 7d ff ff ff 04 0a 0f 0a 16 53 44 0d 0a 4d 61 64 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf ┆_is} SD Madd FUNCTION ┐┆
0x17440…17460 dc d8 6d 61 64 64 be 28 61 2c 20 62 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b ┆▄пmaddЙ(a, b: integer): integer;┆
0x17460…17480 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 61 ┆ Not predefined. - ёa┆
0x17480…174a0 64 64 69 74 69 6f 6e 2c 20 62 75 74 20 77 69 74 68 20 6e 6f 20 6f 76 65 72 66 6c 6f 77 20 65 78 ┆ddition, but with no overflow ex┆
0x174a0…174c0 63 65 70 74 69 6f 6e 2e 20 0d 0a 16 53 44 0d 0a 4d 6d 75 6c 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf ┆ception. SD Mmul FUNCTION ┐┆
0x174c0…174e0 dc d8 6d 6d 75 6c be 28 61 2c 62 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 ┆▄пmmulЙ(a,b: integer): integer; ┆
0x174e0…17500 0d 0a 0d 0a 8c 89 ce 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d ┆ їЅ╬ Not predefined. -┆
0x17500…17520 20 84 6d 75 6c 74 69 70 6c 69 63 61 74 69 6f 6e 2c 20 62 75 74 20 77 69 74 68 20 6e 6f 20 6f 76 ┆ ёmultiplication, but with no ov┆
0x17520…17540 65 72 66 6c 6f 77 20 65 78 63 65 70 74 69 6f 6e 2e 20 0d 0a 16 53 44 0d 0a 4d 73 75 62 0d 0a 46 ┆erflow exception. SD Msub F┆
0x17540…17560 55 4e 43 54 49 4f 4e 20 bf dc d8 6d 73 75 62 be 28 61 2c 62 3a 20 69 6e 74 65 67 65 72 29 3a 20 ┆UNCTION ┐▄пmsubЙ(a,b: integer): ┆
0x17560…17580 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d ┆integer; Not predefined. ┆
0x17580…175a0 0a 20 20 20 2d 20 84 53 75 62 74 72 61 63 74 69 6f 6e 2c 20 62 75 74 20 77 69 74 68 20 6e 6f 20 ┆ - ёSubtraction, but with no ┆
0x175a0…175c0 6f 76 65 72 66 6c 6f 77 20 65 78 63 65 70 74 69 6f 6e 2e 20 0d 0a 16 53 44 0d 0a 52 6f 74 61 74 ┆overflow exception. SD Rotat┆
0x175c0…175e0 65 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 72 6f 74 61 74 65 be 28 61 2c 20 73 68 69 66 74 73 ┆e FUNCTION ┐▄пrotateЙ(a, shifts┆
0x175e0…17600 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 ┆: integer): integer; Not pre┆
0x17600…17620 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 6d 61 6b 65 73 20 61 20 63 79 63 6c 69 ┆defined. - ёmakes a cycli┆
0x17620…17640 63 20 73 68 69 66 74 20 6f 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 61 27 20 27 73 68 ┆c shift of the parameter 'a' 'sh┆
0x17640…17660 69 66 74 73 27 20 74 69 6d 65 73 2e 20 54 68 65 20 0a 19 85 80 80 72 65 73 75 6c 74 20 6f 66 20 ┆ifts' times. The Ёђђresult of ┆
0x17660…17680 74 68 65 20 72 6f 74 61 74 69 6f 6e 20 69 73 20 72 65 74 75 72 6e 65 64 20 62 79 20 74 68 65 20 ┆the rotation is returned by the ┆
0x17680…176a0 66 75 6e 63 74 69 6f 6e 2e 20 49 66 20 27 73 68 69 66 74 73 27 20 69 73 20 0a 19 85 80 80 70 6f ┆function. If 'shifts' is Ёђђpo┆
0x176a0…176c0 73 69 74 69 76 65 2c 20 74 68 65 20 73 68 69 66 74 20 69 73 20 74 6f 20 74 68 65 20 6c 65 66 74 ┆sitive, the shift is to the left┆
0x176c0…176e0 3b 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 73 68 69 66 74 20 69 73 20 74 6f 20 74 68 65 20 ┆; otherwise the shift is to the ┆
0x176e0…17700 0a 19 85 80 80 72 69 67 68 74 2e 20 0d 0a 16 53 44 0d 0a 53 77 61 70 0d 0a 46 55 4e 43 54 49 4f ┆ Ёђђright. SD Swap FUNCTIO┆
0x17700…17720 4e 20 bf dc d8 73 77 61 70 be 28 69 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b ┆N ┐▄пswapЙ(i: integer): integer;┆
0x17720…17740 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 63 ┆ Predefined. - ёThe c┆
0x17740…17760 6f 6e 76 65 72 73 69 6f 6e 20 74 61 6b 65 73 20 70 6c 61 63 65 20 62 79 20 73 77 61 70 70 69 6e ┆onversion takes place by swappin┆
0x17760…17780 67 20 74 68 65 20 74 77 6f 20 62 79 74 65 73 20 6f 66 20 74 68 65 20 69 6e 80 0a 19 85 80 80 74 ┆g the two bytes of the inђ Ёђђt┆
0x17780…177a0 65 67 65 72 20 69 2e 20 54 68 69 73 20 65 66 66 65 63 74 69 76 65 20 77 61 79 20 6f 66 20 73 77 ┆eger i. This effective way of sw┆
0x177a0…177c0 61 70 70 69 6e 67 20 6d 61 79 20 62 65 20 75 73 65 64 20 66 6f 72 20 63 6f 6e 80 0a 19 85 80 80 ┆apping may be used for conђ Ёђђ┆
0x177c0…177e0 76 65 72 73 69 6f 6e 20 62 65 74 77 65 65 6e 20 69 6e 74 65 67 65 72 73 20 61 6e 64 20 74 68 65 ┆version between integers and the┆
0x177e0…17800 20 75 2d 66 69 65 6c 64 73 20 69 6e 20 6d 65 73 73 61 67 65 20 68 65 61 64 65 72 73 2e 20 0d 0a ┆ u-fields in message headers. ┆
0x17800…17820 0d 0a a1 45 78 61 6d 70 6c 65 20 20 37 2e 20 20 53 57 41 50 20 e1 20 0d 0a 04 00 2d 4c 0f 00 08 ┆ АExample 7. SWAP р -L ┆
0x17820…17840 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x17840…17860 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 ┆ $-7AKU_is} -L A┆
0x17860…17880 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 ┆1 $-7┆
0x17880…178a0 41 4b 55 5f 69 73 7d ff ff ff 04 0a 0d 0a 20 20 50 52 4f 47 52 41 4d 20 65 78 61 6d 70 6c 65 37 ┆AKU_is} PROGRAM example7┆
0x178a0…178c0 3b 20 20 20 20 0d 0a 0d 0a 20 20 56 41 52 20 20 20 20 20 0d 0a 20 20 20 20 69 2c 20 6a 3a 20 69 ┆; VAR i, j: i┆
0x178c0…178e0 6e 74 65 67 65 72 3b 20 20 20 20 20 0d 0a 20 20 20 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 ┆nteger; r: reference; ┆
0x178e0…17900 20 20 20 20 0d 0a 20 20 20 20 6d 3a 20 6d 61 69 6c 62 6f 78 3b 20 20 20 20 20 0d 0a 0d 0a 20 20 ┆ m: mailbox; ┆
0x17900…17920 42 45 47 49 4e 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 77 61 69 74 28 72 2c 20 6d 29 3b 20 ┆BEGIN wait(r, m); ┆
0x17920…17940 20 20 20 20 0d 0a 20 20 20 20 69 3a 3d 20 73 77 61 70 28 75 32 28 72 29 29 20 4f 52 20 75 33 28 ┆ i:= swap(u2(r)) OR u3(┆
0x17940…17960 72 29 3b 20 20 2d 2d 20 69 3a 3d 20 75 32 2a 32 35 36 2b 75 33 20 0d 0a 20 20 20 20 73 65 74 75 ┆r); -- i:= u2*256+u3 setu┆
0x17960…17980 33 28 72 2c 20 73 77 61 70 28 6a 29 20 41 4e 44 20 32 35 35 29 3b 20 2d 2d 20 75 33 3a 3d 20 6a ┆3(r, swap(j) AND 255); -- u3:= j┆
0x17980…179a0 20 44 49 56 20 32 35 36 20 0d 0a 20 20 20 20 73 65 74 75 34 28 72 2c 20 6a 20 41 4e 44 20 32 35 ┆ DIV 256 setu4(r, j AND 25┆
0x179a0…179c0 35 29 3b 20 20 20 20 20 20 20 2d 2d 20 75 34 3a 3d 20 6a 20 4d 4f 44 20 32 35 36 20 0d 0a 20 20 ┆5); -- u4:= j MOD 256 ┆
0x179c0…179e0 45 4e 44 2e 20 28 2a 20 65 78 61 6d 70 6c 65 37 20 2a 29 20 20 20 0d 0a 04 00 2d 4c 00 00 06 00 ┆END. (* example7 *) -L ┆
0x179e0…17a00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x17a00…17a20 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 ┆ $-7AKU_is} -L A1┆
0x17a20…17a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 ┆ $-7A┆
0x17a40…17a60 4b 55 5f 69 73 7d ff ff ff 04 0a 16 53 44 0d 0a 55 61 64 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf ┆KU_is} SD Uadd FUNCTION ┐┆
0x17a60…17a80 dc d8 75 61 64 64 be 28 61 2c 20 62 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b ┆▄пuaddЙ(a, b: integer): integer;┆
0x17a80…17aa0 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 41 ┆ Not predefined. - ёA┆
0x17aa0…17ac0 64 64 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 36 35 35 33 35 2e 20 0d ┆ddition in the range 0..65535. ┆
0x17ac0…17ae0 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 74 68 65 20 72 ┆ An exception occurs, if the r┆
0x17ae0…17b00 65 73 75 6c 74 20 69 73 20 6f 75 74 73 69 64 65 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 36 35 ┆esult is outside the range 0..65┆
0x17b00…17b20 35 33 35 2e 20 0a 16 53 44 0d 0a 55 64 69 76 0d 0a 8c 88 f4 0a 46 55 4e 43 54 49 4f 4e 20 bf dc ┆535. SD Udiv їѕЗ FUNCTION ┐▄┆
0x17b20…17b40 d8 75 64 69 76 be 28 61 2c 20 62 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 ┆пudivЙ(a, b: integer): integer; ┆
0x17b40…17b60 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 44 69 ┆ Not predefined. - ёDi┆
0x17b60…17b80 76 69 73 69 6f 6e 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 36 35 35 33 35 2e 20 0d 0a ┆vision in the range 0..65535. ┆
0x17b80…17ba0 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 27 62 27 3d 30 2e ┆ An exception occurs, if 'b'=0.┆
0x17ba0…17bc0 20 0d 0a 16 53 44 0d 0a 55 6c 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 75 6c 74 be 28 61 2c ┆ SD Ult FUNCTION ┐▄пultЙ(a,┆
0x17bc0…17be0 20 62 3a 20 69 6e 74 65 67 65 72 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 ┆ b: integer): boolean; Not p┆
0x17be0…17c00 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 27 6c 65 73 73 20 74 68 61 6e 27 ┆redefined. - ё'less than'┆
0x17c00…17c20 20 28 27 61 27 3c 27 62 27 29 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 36 35 35 33 35 ┆ ('a'<'b') in the range 0..65535┆
0x17c20…17c40 2e 20 0d 0a 16 53 44 0d 0a 55 6d 6f 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 75 6d 6f 64 be ┆. SD Umod FUNCTION ┐▄пumodЙ┆
0x17c40…17c60 28 61 2c 20 62 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 4e 6f ┆(a, b: integer): integer; No┆
0x17c60…17c80 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 4d 6f 64 75 6c 6f 20 6f ┆t predefined. - ёModulo o┆
0x17c80…17ca0 70 65 72 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 36 35 35 33 35 2e 20 ┆peration in the range 0..65535. ┆
0x17ca0…17cc0 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 27 62 27 3d ┆ An exception occurs, if 'b'=┆
0x17cc0…17ce0 30 2e 20 0d 0a 16 53 44 0d 0a 55 6d 75 6c 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 75 6d 75 6c ┆0. SD Umul FUNCTION ┐▄пumul┆
0x17ce0…17d00 be 28 61 2c 20 62 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 4e ┆Й(a, b: integer): integer; N┆
0x17d00…17d20 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 4d 75 6c 74 69 70 6c ┆ot predefined. - ёMultipl┆
0x17d20…17d40 69 63 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 36 35 35 33 35 2e 20 0d ┆ication in the range 0..65535. ┆
0x17d40…17d60 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 74 68 65 20 72 ┆ An exception occurs, if the r┆
0x17d60…17d80 65 73 75 6c 74 20 69 73 20 6f 75 74 73 69 64 65 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 36 35 ┆esult is outside the range 0..65┆
0x17d80…17da0 35 33 35 2e 20 0a 16 53 44 0d 0a 55 73 75 62 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 75 73 75 ┆535. SD Usub FUNCTION ┐▄пusu┆
0x17da0…17dc0 62 be 28 61 2c 20 62 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a ┆bЙ(a, b: integer): integer; ┆
0x17dc0…17de0 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 53 75 62 74 72 61 ┆Not predefined. - ёSubtra┆
0x17de0…17e00 63 74 69 6f 6e 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 36 35 35 33 35 2e 20 0d 0a 0d ┆ction in the range 0..65535. ┆
0x17e00…17e20 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 2c 20 69 66 20 74 68 65 20 72 65 73 ┆ An exception occurs, if the res┆
0x17e20…17e40 75 6c 74 20 69 73 20 6f 75 74 73 69 64 65 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 36 35 35 33 ┆ult is outside the range 0..6553┆
0x17e40…17e60 35 2e 20 0d 0a 16 53 42 0d 0a 43 6c 6f 63 6b 20 52 6f 75 74 69 6e 65 73 0d 0a 16 73 6f 20 72 6f ┆5. SB Clock Routines so ro┆
0x17e60…17e80 75 74 69 6e 65 73 2c 20 63 6c 6f 63 6b 0d 0a 54 68 69 73 20 73 65 63 74 69 6f 6e 20 64 65 73 63 ┆utines, clock This section desc┆
0x17e80…17ea0 72 69 62 65 73 20 61 20 6e 75 6d 62 65 72 20 6f 66 20 72 6f 75 74 69 6e 65 73 20 64 65 63 6c 61 ┆ribes a number of routines decla┆
0x17ea0…17ec0 72 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 20 66 6f 72 20 0a 6f 70 65 72 61 74 69 6f 6e 73 ┆red in rc3502env for operations┆
0x17ec0…17ee0 20 6f 6e 20 74 68 65 20 74 79 70 65 73 20 27 63 6c 6f 63 6b 74 79 70 65 27 20 61 6e 64 20 27 63 ┆ on the types 'clocktype' and 'c┆
0x17ee0…17f00 6f 64 65 64 5f 69 6e 63 27 2e 20 54 68 65 73 65 20 74 79 70 65 73 20 61 72 65 20 0a 61 6c 73 6f ┆oded_inc'. These types are also┆
0x17f00…17f20 20 64 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 8c 87 d8 0a 16 53 43 ┆ defined in rc3502env. їЄп SC┆
0x17f20…17f40 0d 0a 43 6c 6f 63 6b 5f 64 69 66 66 65 72 65 6e 63 65 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 ┆ Clock_difference FUNCTION ┐▄п┆
0x17f40…17f60 63 6c 6f 63 6b 5f 64 69 66 66 65 72 65 6e 63 65 be 28 74 31 2c 20 74 32 3a 20 63 6c 6f 63 6b 74 ┆clock_differenceЙ(t1, t2: clockt┆
0x17f60…17f80 79 70 65 29 3a 20 63 6f 64 65 64 5f 69 6e 63 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 ┆ype): coded_inc; Defined in ┆
0x17f80…17fa0 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 52 65 74 75 72 6e 73 20 74 68 65 ┆rc3502env. - ёReturns the┆
0x17fa0…17fc0 20 64 69 66 66 65 72 65 6e 63 65 20 62 65 74 77 65 65 6e 20 74 77 6f 20 63 6c 6f 63 6b 20 76 61 ┆ difference between two clock va┆
0x17fc0…17fe0 6c 75 65 73 2e 20 49 66 20 74 68 65 20 64 69 66 80 0a 19 85 80 80 66 65 72 65 6e 63 65 20 65 78 ┆lues. If the difђ Ёђђference ex┆
0x17fe0…18000 63 65 65 64 73 20 33 32 20 64 61 79 73 2c 20 74 68 65 20 76 61 6c 75 65 20 33 31 20 64 61 79 73 ┆ceeds 32 days, the value 31 days┆
0x18000…18020 2c 20 32 33 20 68 6f 75 72 73 2c 20 35 39 20 0a 19 85 80 80 6d 69 6e 75 74 65 73 2c 20 35 39 20 ┆, 23 hours, 59 Ёђђminutes, 59 ┆
0x18020…18040 73 65 63 6f 6e 64 73 2c 20 61 6e 64 20 39 39 39 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 20 69 73 ┆seconds, and 999 milliseconds is┆
0x18040…18060 20 72 65 74 75 72 6e 65 64 2e 20 0d 0a 16 53 43 0d 0a 43 6c 6f 63 6b 5f 69 6e 63 72 65 6d 65 6e ┆ returned. SC Clock_incremen┆
0x18060…18080 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 63 6c 6f 63 6b 5f 69 6e 63 72 65 6d 65 6e 74 be 28 ┆t FUNCTION ┐▄пclock_incrementЙ(┆
0x18080…180a0 74 3a 20 63 6c 6f 63 6b 74 79 70 65 3b 20 69 6e 63 3a 20 63 6f 64 65 64 5f 69 6e 63 29 3a 20 63 ┆t: clocktype; inc: coded_inc): c┆
0x180a0…180c0 6c 6f 63 6b 74 79 70 65 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 ┆locktype; Defined in rc3502e┆
0x180c0…180e0 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 52 65 74 75 72 6e 73 20 74 68 65 20 63 6c 6f 63 6b 20 ┆nv. - ёReturns the clock ┆
0x180e0…18100 76 61 6c 75 65 20 27 74 2b 69 6e 63 27 2e 20 0d 0a 16 53 43 0d 0a 43 6c 6f 63 6b 5f 6c 65 73 73 ┆value 't+inc'. SC Clock_less┆
0x18100…18120 5f 74 68 61 6e 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 63 6c 6f 63 6b 5f 6c 65 73 73 5f 74 68 ┆_than FUNCTION ┐▄пclock_less_th┆
0x18120…18140 61 6e be 28 74 31 2c 20 74 32 3a 20 63 6c 6f 63 6b 74 79 70 65 29 3a 20 62 6f 6f 6c 65 61 6e 3b ┆anЙ(t1, t2: clocktype): boolean;┆
0x18140…18160 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 ┆ Defined in rc3502env. ┆
0x18160…18180 20 20 2d 20 84 52 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 27 74 72 75 65 27 20 69 66 ┆ - ёReturns the value 'true' if┆
0x18180…181a0 20 27 74 31 27 20 70 72 65 63 65 64 65 73 20 27 74 32 27 2c 20 6f 74 68 65 72 77 69 73 65 20 27 ┆ 't1' precedes 't2', otherwise '┆
0x181a0…181c0 66 61 6c 73 65 27 2e 20 0d 0a 16 53 43 0d 0a 47 65 74 63 6c 6f 63 6b 0d 0a 46 55 4e 43 54 49 4f ┆false'. SC Getclock FUNCTIO┆
0x181c0…181e0 4e 20 bf dc d8 67 65 74 63 6c 6f 63 6b be 3a 20 63 6c 6f 63 6b 74 79 70 65 3b 20 0d 0a 0d 0a 44 ┆N ┐▄пgetclockЙ: clocktype; D┆
0x181e0…18200 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 52 ┆efined in rc3502env. - ёR┆
0x18200…18220 65 74 75 72 6e 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 ┆eturns the current value of the ┆
0x18220…18240 73 79 73 74 65 6d 20 63 6c 6f 63 6b 2e 20 54 68 65 20 74 79 70 65 20 27 63 6c 6f 63 6b 80 0a 19 ┆system clock. The type 'clockђ ┆
0x18240…18260 85 80 80 74 79 70 65 27 20 69 73 20 64 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 ┆Ёђђtype' is defined in rc3502env┆
0x18260…18280 20 28 63 66 2e 20 49 2e 31 29 2e 20 41 73 20 6f 70 70 6f 73 65 64 20 74 6f 20 74 68 65 20 67 65 ┆ (cf. I.1). As opposed to the ge┆
0x18280…182a0 74 20 0a 19 85 80 80 63 6c 6f 63 6b 20 72 65 71 75 65 73 74 2c 20 77 68 65 6e 20 75 73 69 6e 67 ┆t Ёђђclock request, when using┆
0x182a0…182c0 20 74 68 65 20 73 65 6e 64 74 69 6d 65 72 20 70 72 6f 63 65 64 75 72 65 2c 20 74 68 65 20 27 67 ┆ the sendtimer procedure, the 'g┆
0x182c0…182e0 65 74 80 0a 19 85 80 80 63 6c 6f 63 6b 27 20 66 75 6e 63 74 69 6f 6e 20 77 6f 72 6b 73 20 77 69 ┆etђ Ёђђclock' function works wi┆
0x182e0…18300 74 68 6f 75 74 20 6d 65 73 73 61 67 65 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 73 20 77 69 74 ┆thout message communications wit┆
0x18300…18320 68 20 74 68 65 20 0a 19 85 80 80 54 49 4d 45 52 2e 20 0d 0a 16 53 42 0d 0a 4d 69 73 63 65 6c 6c ┆h the ЁђђTIMER. SB Miscell┆
0x18320…18340 61 6e 65 6f 75 73 20 52 6f 75 74 69 6e 65 73 0d 0a 16 53 43 0d 0a 47 65 74 69 64 0d 0a 46 55 4e ┆aneous Routines SC Getid FUN┆
0x18340…18360 43 54 49 4f 4e 20 bf dc d8 67 65 74 69 64 be 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 4e 6f ┆CTION ┐▄пgetidЙ: integer; No┆
0x18360…18380 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 ┆t predefined. - ёreturns ┆
0x18380…183a0 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 31 36 20 62 69 74 20 49 44 20 72 65 67 69 73 ┆the value of the 16 bit ID regis┆
0x183a0…183c0 74 65 72 2c 20 49 44 52 32 30 31 2e 20 54 68 65 20 72 65 80 0a 19 85 80 80 67 69 73 74 65 72 20 ┆ter, IDR201. The reђ Ёђђgister ┆
0x183c0…183e0 69 73 20 6e 6f 72 6d 61 6c 6c 79 20 69 6e 73 74 61 6c 6c 65 64 20 6f 6e 20 52 43 33 35 30 32 20 ┆is normally installed on RC3502 ┆
0x183e0…18400 77 68 65 6e 20 75 73 65 64 20 61 73 20 61 20 6e 6f 64 65 20 69 6e 20 61 20 0a 19 85 80 80 63 6f ┆when used as a node in a Ёђђco┆
0x18400…18420 6d 6d 75 6e 69 63 61 74 69 6f 6e 73 20 6e 65 74 77 6f 72 6b 2e 20 0d 0a 8c 87 a8 0a 16 53 43 0d ┆mmunications network. їЄе SC ┆
0x18420…18440 0a 47 65 74 6c 66 67 66 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 67 65 74 6c 66 67 66 be 28 ┆ Getlfgf PROCEDURE ┐▄пgetlfgfЙ(┆
0x18440…18460 56 41 52 20 6c 66 2c 20 67 66 3a 20 33 32 62 69 74 74 79 70 65 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 ┆VAR lf, gf: 32bittype); Not ┆
0x18460…18480 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 64 65 6c 69 76 65 72 73 20 74 ┆predefined. - ёdelivers t┆
0x18480…184a0 68 65 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 73 74 61 63 6b 20 70 ┆he current values of the stack p┆
0x184a0…184c0 6f 69 6e 74 65 72 73 20 27 6c 6f 63 61 6c 20 66 72 61 6d 65 27 20 0a 19 85 80 80 61 6e 64 20 27 ┆ointers 'local frame' Ёђђand '┆
0x184c0…184e0 67 6c 6f 62 61 6c 20 66 72 61 6d 65 27 2e 20 54 6f 67 65 74 68 65 72 20 77 69 74 68 20 74 68 65 ┆global frame'. Together with the┆
0x184e0…18500 20 70 72 6f 63 65 64 75 72 65 20 27 70 72 69 6e 74 27 20 69 74 20 69 73 20 0a 19 85 80 80 70 6f ┆ procedure 'print' it is Ёђђpo┆
0x18500…18520 73 73 69 62 6c 65 20 74 6f 20 70 72 69 6e 74 20 73 70 65 63 69 66 69 63 20 61 72 65 61 73 20 6f ┆ssible to print specific areas o┆
0x18520…18540 66 20 61 20 73 74 61 63 6b 2e 20 0d 0a 0d 0a 0e 0a a1 45 78 61 6d 70 6c 65 20 20 38 2e 20 20 47 ┆f a stack. АExample 8. G┆
0x18540…18560 45 54 4c 46 47 46 20 e1 20 20 0d 0a 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 00 00 00 00 00 ┆ETLFGF р -L A1 ┆
0x18560…18580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 ┆ $-7AKU_is┆
0x18580…185a0 7d ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 ┆} -L A1 ┆
0x185a0…185c0 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 0a 50 ┆ $-7AKU_is} P┆
0x185c0…185e0 52 4f 47 52 41 4d 20 65 78 61 6d 70 6c 65 38 3b 20 20 20 20 0d 0a 20 20 54 59 50 45 20 20 20 20 ┆ROGRAM example8; TYPE ┆
0x185e0…18600 20 0d 0a 20 20 20 20 61 64 64 72 3d 20 52 45 43 4f 52 44 20 20 20 20 20 0d 0a 20 20 20 20 20 20 ┆ addr= RECORD ┆
0x18600…18620 20 20 20 20 20 20 62 61 73 65 2c 20 64 69 73 70 3a 20 69 6e 74 65 67 65 72 3b 20 20 0d 0a 20 20 ┆ base, disp: integer; ┆
0x18620…18640 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 0d 0a 0d 0a 20 20 50 52 4f 43 45 44 55 ┆ END; PROCEDU┆
0x18640…18660 52 45 20 67 65 74 6c 66 67 66 28 56 41 52 20 6c 66 2c 20 67 66 3a 20 61 64 64 72 29 3b 20 45 58 ┆RE getlfgf(VAR lf, gf: addr); EX┆
0x18660…18680 54 45 52 4e 41 4c 3b 20 20 20 20 20 20 0d 0a 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 20 70 72 69 ┆TERNAL; PROCEDURE pri┆
0x18680…186a0 6e 74 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 62 61 73 65 3a 20 62 79 74 65 3b 20 66 69 72 73 ┆nt(VAR z: zone; base: byte; firs┆
0x186a0…186c0 74 5f 64 69 73 70 2c 20 6c 61 73 74 5f 64 69 73 70 2c 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆t_disp, last_disp, ┆
0x186c0…186e0 20 20 20 20 20 20 20 77 6f 72 64 73 5f 70 65 72 5f 6c 69 6e 65 3a 20 69 6e 74 65 67 65 72 29 3b ┆ words_per_line: integer);┆
0x186e0…18700 20 45 58 54 45 52 4e 41 4c 3b 20 20 20 20 20 0d 0a 20 20 56 41 52 20 20 20 20 20 0d 0a 20 20 20 ┆ EXTERNAL; VAR ┆
0x18700…18720 20 6c 66 2c 20 67 66 3a 20 61 64 64 72 3b 20 20 20 20 20 0d 0a 20 20 20 20 7a 3a 20 7a 6f 6e 65 ┆ lf, gf: addr; z: zone┆
0x18720…18740 3b 20 20 20 20 20 20 20 0d 0a 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 20 65 78 63 65 70 74 69 6f ┆; PROCEDURE exceptio┆
0x18740…18760 6e 28 63 6f 64 65 3a 20 69 6e 74 65 67 65 72 29 3b 20 20 20 20 20 0d 0a 20 20 42 45 47 49 4e 20 ┆n(code: integer); BEGIN ┆
0x18760…18780 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 28 2a 20 74 68 65 20 7a 6f 6e 65 20 6d 75 73 74 20 62 ┆ (* the zone must b┆
0x18780…187a0 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 66 6f 72 20 6f 75 74 70 75 74 20 2a 29 20 0d 0a 20 20 ┆e initialized for output *) ┆
0x187a0…187c0 20 20 67 65 74 6c 66 67 66 28 6c 66 2c 20 67 66 29 3b 20 20 20 20 20 20 20 0d 0a 20 20 20 20 70 ┆ getlfgf(lf, gf); p┆
0x187c0…187e0 72 69 6e 74 28 7a 2c 20 67 66 2e 62 61 73 65 2c 20 67 66 2e 64 69 73 70 2c 20 6c 66 2e 64 69 73 ┆rint(z, gf.base, gf.disp, lf.dis┆
0x187e0…18800 70 2c 20 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 45 4e 44 3b 20 20 20 20 20 0d 0a ┆p, 1); END; ┆
0x18800…18820 0d 0a 42 45 47 49 4e 20 20 20 20 20 20 20 0d 0a 20 20 28 2a 20 70 72 6f 67 72 61 6d 20 62 6f 64 ┆ BEGIN (* program bod┆
0x18820…18840 79 20 2a 29 20 20 20 0d 0a 45 4e 44 2e 20 28 2a 20 65 78 61 6d 70 6c 65 20 38 20 2a 29 20 20 20 ┆y *) END. (* example 8 *) ┆
0x18840…18860 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1 ┆
0x18860…18880 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 04 00 2d 4c 0f ┆ $-7AKU_is} -L ┆
0x18880…188a0 00 08 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1 ┆
0x188a0…188c0 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 0a 0f 0a 16 73 63 0d 0a 47 65 74 73 ┆ $-7AKU_is} sc Gets┆
0x188c0…188e0 77 69 74 63 68 65 73 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 67 65 74 73 77 69 74 63 68 65 ┆witches PROCEDURE ┐▄пgetswitche┆
0x188e0…18900 73 be 28 56 41 52 20 62 30 2c 20 62 31 20 3a 20 62 79 74 65 29 3b 0d 0a 0d 0a 4e 6f 74 20 70 72 ┆sЙ(VAR b0, b1 : byte); Not pr┆
0x18900…18920 65 64 65 66 69 6e 65 64 2e 0d 0a 0d 0a 20 20 20 2d 20 84 52 65 74 75 72 6e 73 20 74 68 65 20 63 ┆edefined. - ёReturns the c┆
0x18920…18940 75 72 72 65 6e 74 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 43 73 77 69 74 63 68 65 73 20 63 ┆urrent values of the Cswitches c┆
0x18940…18960 6f 6e 74 72 6f 6c 6c 69 6e 67 20 74 68 65 20 0a 19 85 80 80 61 75 74 6f 80 6c 6f 61 64 20 70 72 ┆ontrolling the Ёђђautoђload pr┆
0x18960…18980 6f 63 65 64 75 72 65 20 6f 66 20 52 43 33 35 30 32 2e 49 66 20 74 68 65 20 66 69 72 73 74 20 62 ┆ocedure of RC3502.If the first b┆
0x18980…189a0 79 74 65 20 6f 66 20 43 73 77 69 74 63 68 65 73 20 0a 19 85 80 80 65 71 75 61 6c 73 20 7a 65 72 ┆yte of Cswitches Ёђђequals zer┆
0x189a0…189c0 6f 2c 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 53 77 69 74 63 68 65 73 20 ┆o, the contents of the Switches ┆
0x189c0…189e0 61 72 65 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 0a 19 85 80 80 43 73 77 69 74 63 68 65 ┆are transferred to ЁђђCswitche┆
0x189e0…18a00 73 20 61 6e 64 20 72 65 74 75 72 6e 65 64 20 74 6f 20 74 68 65 20 63 61 6c 6c 65 72 2e 20 46 6f ┆s and returned to the caller. Fo┆
0x18a00…18a20 72 20 66 75 72 74 68 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 0a 19 85 80 80 63 6f 6e 73 ┆r further information, Ёђђcons┆
0x18a20…18a40 75 6c 74 20 2f 4f 70 65 72 61 74 69 6e 67 20 47 75 69 64 65 2f 2e 0d 0a 16 73 63 0d 0a 4d 61 78 ┆ult /Operating Guide/. sc Max┆
0x18a40…18a60 63 6f 6e 6e 65 63 74 69 6f 6e 73 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6d 61 78 63 6f 6e 6e ┆connections FUNCTION ┐▄пmaxconn┆
0x18a60…18a80 65 63 74 69 6f 6e 73 be 3a 20 30 2e 2e 6d 61 78 69 6e 74 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 ┆ectionsЙ: 0..maxint; Defined ┆
0x18a80…18aa0 69 6e 20 69 6d 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 52 65 74 75 72 6e 73 20 ┆in imc3502env. - ёReturns ┆
0x18aa0…18ac0 74 68 65 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6e 6e 65 63 74 69 6f 6e ┆the maximum number of connection┆
0x18ac0…18ae0 73 20 77 68 69 63 68 20 74 68 65 20 49 4d 43 20 6e 65 80 74 80 0a 19 85 80 80 77 6f 72 6b 20 61 ┆s which the IMC neђtђ Ёђђwork a┆
0x18ae0…18b00 6c 6c 6f 77 73 20 74 6f 20 61 6e 79 20 6f 6e 65 20 70 6f 72 74 2e 0d 0a 16 53 43 0d 0a 4d 65 6d ┆llows to any one port. SC Mem┆
0x18b00…18b20 65 72 72 6f 72 6c 6f 67 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6d 65 6d 65 72 72 6f 72 6c 6f ┆errorlog FUNCTION ┐▄пmemerrorlo┆
0x18b20…18b40 67 be 28 62 61 73 65 77 6f 72 64 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 ┆gЙ(baseword: integer): integer; ┆
0x18b40…18b60 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 ┆ Not predefined. - ёre┆
0x18b60…18b80 74 75 72 6e 73 20 61 6e 20 65 72 72 6f 72 6c 6f 67 20 77 6f 72 64 20 66 72 6f 6d 20 74 68 65 20 ┆turns an errorlog word from the ┆
0x18b80…18ba0 6d 65 6d 6f 72 79 20 6d 6f 64 75 6c 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 0a 19 85 80 80 ┆memory module specified by Ёђђ┆
0x18ba0…18bc0 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 62 61 73 65 77 6f 72 64 27 2c 20 77 68 69 63 68 20 ┆the parameter 'baseword', which ┆
0x18bc0…18be0 69 73 20 74 68 65 20 62 61 73 65 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 36 34 4b 20 0a 19 85 ┆is the base of the first 64K Ё┆
0x18be0…18c00 80 80 62 79 74 65 20 52 41 4d 20 6d 6f 64 75 6c 65 20 6f 6e 20 4d 45 4d 32 30 35 2e 20 46 6f 72 ┆ђђbyte RAM module on MEM205. For┆
0x18c00…18c20 20 66 75 72 74 68 65 72 20 64 65 74 61 69 6c 73 20 63 6f 6e 73 75 6c 74 20 0a 19 85 80 80 22 4d ┆ further details consult Ёђђ"M┆
0x18c20…18c40 45 4d 32 30 35 20 47 65 6e 65 72 61 6c 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 22 20 2f 4d 45 4d 32 ┆EM205 General Information" /MEM2┆
0x18c40…18c60 30 35 2f 2e 20 0d 0a 16 73 63 0d 0a 4e 65 77 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6e 65 ┆05/. sc New PROCEDURE ┐▄пne┆
0x18c60…18c80 77 be 28 70 74 72 3a 20 70 74 72 74 79 70 65 29 3b 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e ┆wЙ(ptr: ptrtype); Predefined.┆
0x18c80…18ca0 0d 0a 0d 0a 20 20 20 2d 20 84 4d 65 6d 6f 72 79 20 66 6f 72 20 61 20 76 61 72 69 61 62 6c 65 20 ┆ - ёMemory for a variable ┆
0x18ca0…18cc0 6f 66 20 74 68 65 20 62 61 73 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 74 79 70 65 20 6f 66 20 ┆of the base type of the type of ┆
0x18cc0…18ce0 74 68 65 20 70 61 80 0a 19 85 80 80 72 61 80 6d 65 74 65 72 20 27 70 74 72 27 20 69 73 20 61 6c ┆the paђ Ёђђraђmeter 'ptr' is al┆
0x18ce0…18d00 6c 6f 63 61 74 65 64 20 6f 6e 20 74 68 65 20 68 65 61 70 20 6f 66 20 74 68 65 20 63 61 6c 6c 69 ┆located on the heap of the calli┆
0x18d00…18d20 6e 67 20 70 72 6f 63 65 73 73 2e 20 49 66 20 0a 19 85 80 80 61 6e 20 69 6e 69 74 69 61 6c 20 76 ┆ng process. If Ёђђan initial v┆
0x18d20…18d40 61 6c 75 65 20 69 73 20 64 65 66 69 6e 65 64 20 66 6f 72 20 74 68 65 20 76 61 72 69 61 62 6c 65 ┆alue is defined for the variable┆
0x18d40…18d60 20 6f 72 20 61 6e 79 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 6f 66 20 0a 19 85 80 80 69 74 20 28 70 ┆ or any components of Ёђђit (p┆
0x18d60…18d80 6f 69 6e 74 65 72 73 20 61 6e 64 20 73 68 69 65 6c 64 65 64 29 2c 20 74 68 65 20 69 6e 69 74 69 ┆ointers and shielded), the initi┆
0x18d80…18da0 61 6c 69 7a 61 74 69 6f 6e 20 74 61 6b 65 73 20 70 6c 61 63 65 20 69 6d 6d 65 64 69 61 80 0a 19 ┆alization takes place immediaђ ┆
0x18da0…18dc0 85 80 80 74 65 6c 79 20 61 66 74 65 72 20 61 6c 6c 6f 63 61 74 69 6f 6e 2e 20 54 68 65 20 76 61 ┆Ёђђtely after allocation. The va┆
0x18dc0…18de0 6c 75 65 20 6f 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 62 65 63 6f 6d 65 73 20 61 20 70 ┆lue of the parameter becomes a p┆
0x18de0…18e00 6f 80 0a 19 85 80 80 69 6e 74 65 72 20 74 6f 20 74 68 65 20 61 6c 6c 6f 63 61 74 65 64 20 76 61 ┆oђ Ёђђinter to the allocated va┆
0x18e00…18e20 72 69 61 62 6c 65 2e 20 49 66 20 74 68 65 20 63 6c 61 69 6d 65 64 20 61 6d 6f 75 6e 74 20 6f 66 ┆riable. If the claimed amount of┆
0x18e20…18e40 20 6d 65 6d 6f 72 79 20 0a 19 85 80 80 69 73 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 2c 20 74 ┆ memory Ёђђis not available, t┆
0x18e40…18e60 68 65 20 70 6f 69 6e 74 65 72 20 62 65 63 6f 6d 65 73 20 4e 49 4c 20 61 66 74 65 72 20 74 68 65 ┆he pointer becomes NIL after the┆
0x18e60…18e80 20 63 61 6c 6c 20 6f 66 20 6e 65 77 2e 20 0a 19 85 80 80 4d 65 6d 6f 72 79 20 66 6f 72 20 74 68 ┆ call of new. ЁђђMemory for th┆
0x18e80…18ea0 65 20 bf dc d8 68 65 61 70 be 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 72 6f 6d 20 74 68 65 ┆e ┐▄пheapЙ is allocated from the┆
0x18ea0…18ec0 20 6d 61 63 68 69 6e 65 27 73 20 70 6f 6f 6c 20 6f 66 20 0a 19 85 80 80 66 72 65 65 20 6d 65 6d ┆ machine's pool of Ёђђfree mem┆
0x18ec0…18ee0 6f 72 79 2c 20 69 2e 65 2e 20 69 74 20 69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 74 68 65 20 ┆ory, i.e. it is not part of the ┆
0x18ee0…18f00 6d 65 6d 6f 72 79 2c 20 77 68 69 63 68 20 77 61 73 20 0a 19 85 80 80 72 65 73 65 72 76 65 64 20 ┆memory, which was Ёђђreserved ┆
0x18f00…18f20 77 68 65 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 61 73 20 63 72 65 61 74 65 64 2e 20 54 68 ┆when the process was created. Th┆
0x18f20…18f40 65 20 68 65 61 70 20 69 73 20 66 6f 72 20 64 79 6e 61 6d 69 63 20 0a 19 85 80 80 61 6c 6c 6f 63 ┆e heap is for dynamic Ёђђalloc┆
0x18f40…18f60 61 80 74 69 6f 6e 20 6f 66 20 6f 62 6a 65 63 74 73 2c 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 ┆aђtion of objects, not necessari┆
0x18f60…18f80 6c 79 20 64 79 6e 61 6d 69 63 20 73 69 7a 65 64 20 6f 62 6a 65 63 74 73 2e 20 42 75 74 20 0a 19 ┆ly dynamic sized objects. But ┆
0x18f80…18fa0 85 80 80 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 68 65 61 70 20 73 74 6f 72 61 67 65 20 68 61 ┆Ёђђthe amount of heap storage ha┆
0x18fa0…18fc0 73 20 6e 6f 74 68 69 6e 67 20 74 6f 20 64 6f 20 77 69 74 68 20 74 68 65 20 72 65 73 65 72 76 61 ┆s nothing to do with the reserva┆
0x18fc0…18fe0 80 0a 19 85 80 80 74 69 6f 6e 20 6f 66 20 73 74 61 63 6b 20 66 6f 72 20 73 74 61 74 69 63 20 61 ┆ђ Ёђђtion of stack for static a┆
0x18fe0…19000 6e 64 20 64 79 6e 61 6d 69 63 20 73 69 7a 65 64 20 6f 62 6a 65 63 74 73 20 61 6e 64 20 72 6f 75 ┆nd dynamic sized objects and rou┆
0x19000…19020 74 69 6e 65 20 0a 19 85 80 80 63 61 6c 6c 73 2e 20 54 68 65 20 68 65 61 70 20 6f 66 20 61 20 70 ┆tine Ёђђcalls. The heap of a p┆
0x19020…19040 72 6f 63 65 73 73 20 69 73 20 72 65 74 75 72 6e 65 64 20 74 6f 20 74 68 65 20 6d 61 63 68 69 6e ┆rocess is returned to the machin┆
0x19040…19060 65 27 73 20 70 6f 6f 6c 20 0a 19 85 80 80 6f 66 20 66 72 65 65 20 6d 65 6d 6f 72 79 20 77 68 65 ┆e's pool Ёђђof free memory whe┆
0x19060…19080 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 72 65 6d 6f 76 65 64 2e 0d 0a 16 53 43 0d 0a ┆n the process is removed. SC ┆
0x19080…190a0 52 65 61 64 72 61 6d 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 72 65 61 64 72 61 6d be 28 56 ┆Readram PROCEDURE ┐▄пreadramЙ(V┆
0x190a0…190c0 41 52 20 72 65 73 75 6c 74 3a 20 62 79 74 65 3b 20 69 6e 64 65 78 3a 20 69 6e 74 65 67 65 72 29 ┆AR result: byte; index: integer)┆
0x190c0…190e0 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 ┆; Not predefined. - ё┆
0x190e0…19100 72 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 62 79 74 65 20 77 69 ┆returns the value of the byte wi┆
0x19100…19120 74 68 20 69 6e 64 65 78 20 27 69 6e 64 65 78 27 20 0d 0a 20 20 20 20 20 69 6e 20 74 68 65 20 63 ┆th index 'index' in the c┆
0x19120…19140 6f 6e 74 72 6f 6c 20 6d 69 63 72 6f 70 72 6f 63 65 73 73 6f 72 20 72 61 6d 2e 20 0d 0a 0d 0a 52 ┆ontrol microprocessor ram. R┆
0x19140…19160 65 6c 65 76 61 6e 74 20 69 6e 64 69 63 65 73 20 61 72 65 3a 20 0d 0a 0d 0a 20 20 20 20 20 20 39 ┆elevant indices are: 9┆
0x19160…19180 3a 20 76 65 72 73 69 6f 6e 20 20 20 20 20 20 0d 0a 20 20 20 20 20 31 30 3a 20 73 77 69 74 63 68 ┆: version 10: switch┆
0x19180…191a0 65 73 20 30 2d 37 20 20 20 20 20 20 0d 0a 20 20 20 20 20 31 31 3a 20 73 77 69 74 63 68 65 73 20 ┆es 0-7 11: switches ┆
0x191a0…191c0 38 2d 31 35 20 20 20 20 20 20 0d 0a 20 20 20 20 20 34 32 3a 20 43 4f 4d 32 30 34 20 6d 61 73 6b ┆8-15 42: COM204 mask┆
0x191c0…191e0 20 20 20 20 20 20 0d 0a 20 20 20 20 20 34 33 3a 20 43 4f 4d 32 30 34 20 72 65 73 75 6c 74 20 0d ┆ 43: COM204 result ┆
0x191e0…19200 0a 0d 0a 28 46 6f 72 20 66 75 72 74 68 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 72 65 66 ┆ (For further information, ref┆
0x19200…19220 65 72 20 74 6f 20 2f 4f 70 65 72 61 74 69 6e 67 20 47 75 69 64 65 2f 2c 20 61 70 70 65 6e 64 69 ┆er to /Operating Guide/, appendi┆
0x19220…19240 78 20 4b 29 2e 20 0d 0a 16 53 43 0d 0a 52 65 73 74 61 72 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 ┆x K). SC Restart PROCEDURE ┆
0x19240…19260 bf dc d8 72 65 73 74 61 72 74 be 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e ┆┐▄пrestartЙ; Not predefined.┆
0x19260…19280 20 0d 0a 0d 0a 8c 92 80 0a 20 20 20 2d 20 84 50 65 72 66 6f 72 6d 73 20 61 20 72 65 6d 6f 76 65 ┆ їњђ - ёPerforms a remove┆
0x19280…192a0 2c 20 63 72 65 61 74 65 2c 20 61 6e 64 20 73 74 61 72 74 20 6f 66 20 41 44 41 4d 2e 20 41 6c 6c ┆, create, and start of ADAM. All┆
0x192a0…192c0 20 6d 65 73 73 61 67 65 73 20 61 74 20 0a 19 85 80 80 4f 50 45 52 41 54 4f 52 20 61 6e 64 20 54 ┆ messages at ЁђђOPERATOR and T┆
0x192c0…192e0 49 4d 45 52 20 61 72 65 20 64 65 61 6c 6c 6f 63 61 74 65 64 2e 20 54 68 65 20 70 72 6f 67 72 61 ┆IMER are deallocated. The progra┆
0x192e0…19300 6d 73 20 69 6e 20 74 68 65 20 0a 19 85 80 80 4c 49 4e 4b 45 52 20 63 61 74 61 6c 6f 67 75 65 20 ┆ms in the ЁђђLINKER catalogue ┆
0x19300…19320 61 72 65 20 6e 6f 74 20 75 6e 6c 6f 61 64 65 64 2e 20 0d 0a 16 73 63 0d 0a 53 65 74 73 77 69 74 ┆are not unloaded. sc Setswit┆
0x19320…19340 63 68 65 73 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 74 73 77 69 74 63 68 65 73 be 28 ┆ches PROCEDURE ┐▄пsetswitchesЙ(┆
0x19340…19360 62 30 2c 20 62 31 3a 20 62 79 74 65 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 ┆b0, b1: byte); Not predefine┆
0x19360…19380 64 2e 0d 0a 0d 0a 20 20 20 2d 20 84 55 70 64 61 74 65 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 ┆d. - ёUpdates the current ┆
0x19380…193a0 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 43 73 77 69 74 63 68 65 73 2c 20 63 6f 6e 74 72 6f 6c ┆values of the Cswitches, control┆
0x193a0…193c0 6c 69 6e 67 20 74 68 65 20 61 75 80 0a 19 85 80 80 74 6f 80 6c 6f 61 64 20 70 72 6f 63 65 64 75 ┆ling the auђ Ёђђtoђload procedu┆
0x193c0…193e0 72 65 20 6f 66 20 52 43 33 35 30 32 2e 20 46 6f 72 20 66 75 72 74 68 65 72 20 69 6e 66 6f 72 6d ┆re of RC3502. For further inform┆
0x193e0…19400 61 74 69 6f 6e 2c 20 63 6f 6e 73 75 6c 74 20 2f 4f 80 0a 19 85 80 80 70 65 72 61 74 69 6e 67 20 ┆ation, consult /Oђ Ёђђperating ┆
0x19400…19420 47 75 69 64 65 2f 2e 0d 0a 16 53 43 0d 0a 53 65 74 77 61 74 63 68 64 6f 67 0d 0a 50 52 4f 43 45 ┆Guide/. SC Setwatchdog PROCE┆
0x19420…19440 44 55 52 45 20 bf dc d8 73 65 74 77 61 74 63 68 64 6f 67 be 28 69 3a 20 69 6e 74 65 67 65 72 29 ┆DURE ┐▄пsetwatchdogЙ(i: integer)┆
0x19440…19460 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 ┆; Not predefined. - ё┆
0x19460…19480 84 74 68 65 20 22 77 61 74 63 68 64 6f 67 20 68 69 67 68 22 20 62 79 74 65 20 69 6e 20 74 68 65 ┆ёthe "watchdog high" byte in the┆
0x19480…194a0 20 63 6f 6e 74 72 6f 6c 20 6d 69 63 72 6f 70 72 6f 63 65 73 73 6f 72 20 69 73 20 0a 19 85 80 80 ┆ control microprocessor is Ёђђ┆
0x194a0…194c0 69 6e 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 27 69 27 2e 20 0d 0a 0d 0a 20 20 20 20 20 20 20 20 ┆initialized to 'i'. ┆
0x194c0…194e0 20 27 69 27 3d 20 30 20 64 69 73 61 62 6c 65 73 20 74 68 65 20 77 61 74 63 68 64 6f 67 20 66 75 ┆ 'i'= 0 disables the watchdog fu┆
0x194e0…19500 6e 63 74 69 6f 6e 2e 20 0d 0a 20 20 20 20 20 20 20 20 20 27 69 27 3d 20 20 20 31 20 20 65 71 75 ┆nction. 'i'= 1 equ┆
0x19500…19520 61 6c 73 20 20 20 20 20 36 34 30 20 6d 73 65 63 2e 0d 0a 20 20 20 20 20 20 20 20 20 27 69 27 3d ┆als 640 msec. 'i'=┆
0x19520…19540 20 32 35 35 20 20 65 71 75 61 6c 73 20 31 36 33 2c 32 30 30 20 6d 73 65 63 2e 20 0d 0a 16 53 43 ┆ 255 equals 163,200 msec. SC┆
0x19540…19560 0d 0a 57 69 6c 64 5f 63 6f 6d 70 61 72 65 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 77 69 6c 64 ┆ Wild_compare FUNCTION ┐▄пwild┆
0x19560…19580 5f 63 6f 6d 70 61 72 65 be 28 6e 61 6d 65 2c 20 6b 65 79 3a 20 61 6c 66 61 29 3a 20 62 6f 6f 6c ┆_compareЙ(name, key: alfa): bool┆
0x19580…195a0 65 61 6e 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 ┆ean; Not predefined. ┆
0x195a0…195c0 2d 20 84 54 68 65 20 76 61 6c 75 65 20 27 6b 65 79 27 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 77 ┆- ёThe value 'key' may contain w┆
0x195c0…195e0 69 6c 64 20 63 68 61 72 61 63 74 65 72 73 2c 20 22 2a 22 2c 20 77 68 65 72 65 20 6f 6e 65 20 0a ┆ild characters, "*", where one ┆
0x195e0…19600 19 85 80 80 77 69 73 68 65 73 20 74 6f 20 73 70 65 63 69 66 79 20 7a 65 72 6f 20 6f 72 20 6d 6f ┆ Ёђђwishes to specify zero or mo┆
0x19600…19620 72 65 20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f 66 20 22 49 20 64 6f 6e 27 74 20 63 61 72 65 22 ┆re occurrences of "I don't care"┆
0x19620…19640 20 0a 19 85 80 80 63 68 61 72 61 63 74 65 72 73 2e 20 45 2e 67 2e 3a 20 27 61 2a 62 27 20 6d 61 ┆ Ёђђcharacters. E.g.: 'a*b' ma┆
0x19640…19660 74 63 68 65 73 20 27 61 62 27 2c 20 27 61 61 62 27 2c 20 27 61 62 62 27 2c 20 27 61 63 64 65 67 ┆tches 'ab', 'aab', 'abb', 'acdeg┆
0x19660…19680 66 62 27 2c 20 61 6e 64 20 0a 19 85 80 80 69 6e 20 66 61 63 74 20 61 6e 79 20 6e 61 6d 65 20 74 ┆fb', and Ёђђin fact any name t┆
0x19680…196a0 68 61 74 20 62 65 67 69 6e 73 20 77 69 74 68 20 61 6e 20 22 61 22 20 61 6e 64 20 65 6e 64 73 20 ┆hat begins with an "a" and ends ┆
0x196a0…196c0 77 69 74 68 20 61 20 22 62 22 2e 20 0d 0a 0d 0a 54 68 65 20 76 61 6c 75 65 20 27 74 72 75 65 27 ┆with a "b". The value 'true'┆
0x196c0…196e0 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 66 20 74 68 69 73 20 63 6f 6d 70 61 72 69 73 6f 6e 20 ┆ is returned if this comparison ┆
0x196e0…19700 69 73 20 73 75 63 63 65 73 73 66 75 6c 2c 20 6f 74 68 65 72 80 0a 77 69 73 65 20 27 66 61 6c 73 ┆is successful, otherђ wise 'fals┆
0x19700…19720 65 27 2e 20 0d 0a 16 53 42 0d 0a 52 6f 75 74 69 6e 65 73 20 66 6f 72 20 4f 70 65 72 61 74 6f 72 ┆e'. SB Routines for Operator┆
0x19720…19740 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 0d 0a 16 73 6f 20 72 6f 75 74 69 6e 65 73 2c 20 6f 70 ┆ Communication so routines, op┆
0x19740…19760 65 72 61 74 6f 72 0d 0a 54 68 69 73 20 73 65 63 74 69 6f 6e 20 64 65 73 63 72 69 62 65 73 20 61 ┆erator This section describes a┆
0x19760…19780 20 73 65 74 20 6f 66 20 72 6f 75 74 69 6e 65 73 20 77 68 69 63 68 20 6d 61 79 20 62 65 20 75 73 ┆ set of routines which may be us┆
0x19780…197a0 65 64 20 66 6f 72 20 69 6e 80 0a 70 75 74 2f 6f 75 74 70 75 74 20 74 6f 20 74 68 65 20 4f 50 45 ┆ed for inђ put/output to the OPE┆
0x197a0…197c0 52 41 54 4f 52 20 70 72 6f 63 65 73 73 20 6f 72 20 61 6e 6f 74 68 65 72 20 63 68 61 72 61 63 74 ┆RATOR process or another charact┆
0x197c0…197e0 65 72 20 6f 72 69 65 6e 74 65 64 20 0a 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 64 72 69 76 65 72 ┆er oriented input/output driver┆
0x197e0…19800 2e 20 0d 0a 0d 0a 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 74 61 6b 65 73 20 70 6c 61 63 65 20 ┆. Communication takes place ┆
0x19800…19820 76 69 61 20 76 61 72 69 61 62 6c 65 73 20 6f 66 20 74 79 70 65 20 7a 6f 6e 65 2e 20 0d 0a 0d 0a ┆via variables of type zone. ┆
0x19820…19840 54 68 65 20 74 79 70 65 20 bf dc d8 7a 6f 6e 65 be 20 69 73 20 61 20 73 69 6d 70 6c 65 20 69 6d ┆The type ┐▄пzoneЙ is a simple im┆
0x19840…19860 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 7a 6f 6e 65 20 63 6f 6e 63 65 70 74 ┆plementation of the zone concept┆
0x19860…19880 20 6b 6e 6f 77 6e 20 0a 66 72 6f 6d 20 41 4c 47 4f 4c 38 20 2f 41 4c 47 4f 4c 2f 20 61 6e 64 20 ┆ known from ALGOL8 /ALGOL/ and ┆
0x19880…198a0 4d 55 53 49 4c 20 2f 4d 55 53 49 4c 2f 2e 20 0d 0a 0d 0a 53 65 63 74 69 6f 6e 20 33 2e 37 2e 31 ┆MUSIL /MUSIL/. Section 3.7.1┆
0x198a0…198c0 20 64 65 73 63 72 69 62 65 73 20 74 68 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 ┆ describes the initialization of┆
0x198c0…198e0 20 76 61 72 69 61 62 6c 65 73 20 6f 66 20 74 79 70 65 20 7a 6f 6e 65 2e 20 0d 0a 0d 0a 53 65 63 ┆ variables of type zone. Sec┆
0x198e0…19900 74 69 6f 6e 20 33 2e 37 2e 32 20 64 65 73 63 72 69 62 65 73 20 74 68 65 20 6f 75 74 70 75 74 20 ┆tion 3.7.2 describes the output ┆
0x19900…19920 70 72 6f 63 65 64 75 72 65 20 6f 75 74 63 68 61 72 20 61 6e 64 20 61 20 73 65 74 20 6f 66 20 0a ┆procedure outchar and a set of ┆
0x19920…19940 6f 75 74 70 75 74 20 70 72 6f 63 65 64 75 72 65 73 2c 20 77 68 69 63 68 20 75 73 65 20 74 68 65 ┆output procedures, which use the┆
0x19940…19960 20 70 72 6f 63 65 64 75 72 65 20 6f 75 74 63 68 61 72 2e 0d 0a 0d 0a 53 65 63 74 69 6f 6e 20 33 ┆ procedure outchar. Section 3┆
0x19960…19980 2e 37 2e 33 20 64 65 73 63 72 69 62 65 73 20 74 68 65 20 69 6e 70 75 74 20 70 72 6f 63 65 64 75 ┆.7.3 describes the input procedu┆
0x19980…199a0 72 65 20 69 6e 63 68 61 72 20 61 6e 64 20 61 20 73 65 74 20 6f 66 20 69 6e 80 0a 70 75 74 20 70 ┆re inchar and a set of inђ put p┆
0x199a0…199c0 72 6f 63 65 64 75 72 65 73 2c 20 77 68 69 63 68 20 75 73 65 20 74 68 65 20 70 72 6f 63 65 64 75 ┆rocedures, which use the procedu┆
0x199c0…199e0 72 65 20 69 6e 63 68 61 72 2e 20 0d 0a 0d 0a 49 6f 65 6e 76 20 63 6f 6e 74 61 69 6e 73 20 64 65 ┆re inchar. Ioenv contains de┆
0x199e0…19a00 63 6c 61 72 61 74 69 6f 6e 73 20 6f 66 20 74 68 65 20 74 79 70 65 73 20 61 6e 64 20 72 6f 75 74 ┆clarations of the types and rout┆
0x19a00…19a20 69 6e 65 73 20 61 6e 64 20 69 73 20 6c 69 73 74 65 64 20 69 6e 20 0a 61 70 70 65 6e 64 69 78 20 ┆ines and is listed in appendix ┆
0x19a20…19a40 4b 2e 33 2e 20 0d 0a 0d 0a 8c 8a a8 0a 41 70 70 65 6e 64 69 78 20 4c 20 63 6f 6e 74 61 69 6e 73 ┆K.3. їіе Appendix L contains┆
0x19a40…19a60 20 61 20 6d 6f 72 65 20 63 6f 6d 70 72 65 68 65 6e 73 69 76 65 20 65 78 61 6d 70 6c 65 20 6f 66 ┆ a more comprehensive example of┆
0x19a60…19a80 20 4f 50 45 52 41 54 4f 52 20 0a 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2e 20 0d 0a 0d 0a 54 68 ┆ OPERATOR communication. Th┆
0x19a80…19aa0 65 20 72 6f 75 74 69 6e 65 73 20 63 6f 6e 66 6f 72 6d 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 ┆e routines conform to the driver┆
0x19aa0…19ac0 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 20 0a 72 65 67 ┆ conventions /Driver Conv./ reg┆
0x19ac0…19ae0 61 72 64 69 6e 67 20 74 68 65 20 75 73 65 20 6f 66 20 74 68 65 20 75 73 65 72 20 75 2d 66 69 65 ┆arding the use of the user u-fie┆
0x19ae0…19b00 6c 64 73 20 61 6e 64 20 74 68 65 20 62 75 66 66 65 72 20 61 74 74 72 69 62 75 74 65 73 2e 20 0d ┆lds and the buffer attributes. ┆
0x19b00…19b20 0a 16 53 43 0d 0a 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0d 0a 54 68 65 20 74 79 70 65 20 7a ┆ SC Initialization The type z┆
0x19b20…19b40 6f 6e 65 20 69 73 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 65 6e 76 69 72 6f 6e 6d 65 6e ┆one is defined in the environmen┆
0x19b40…19b60 74 20 69 6f 65 6e 76 20 61 73 3a 20 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 ┆t ioenv as: -L A1@ ┆
0x19b60…19b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e ff ff ff ff ff ff ff ff ┆ ┆
0x19b80…19ba0 ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 ┆ -L A1 ┆
0x19ba0…19bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 0f 1c 24 2d 37 41 4b 55 5f 69 73 7d ff ff ff 04 ┆ $-7AKU_is} ┆
0x19bc0…19be0 0a 0d 0a 20 20 20 20 20 7a 6f 6e 65 3d 20 52 45 43 4f 52 44 20 20 20 20 20 20 0d 0a 09 64 72 69 ┆ zone= RECORD dri┆
0x19be0…19c00 76 65 72 2c 20 20 20 20 20 20 0d 0a 09 61 6e 73 77 65 72 3a 20 5e 88 7c 20 6d 61 69 6c 62 6f 78 ┆ver, answer: ^ѕ| mailbox┆
0x19c00…19c20 3b 20 20 20 20 20 20 0d 0a 09 64 61 74 61 72 65 61 64 79 2c 20 20 0d 0a 09 66 72 65 65 3a 20 6d ┆; dataready, free: m┆
0x19c20…19c40 61 69 6c 62 6f 78 3b 20 20 0d 0a 09 63 75 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 0d 0a 09 75 32 ┆ailbox; cur: reference; u2┆
0x19c40…19c60 76 61 6c 2c 20 20 20 20 20 0d 0a 09 73 74 61 74 65 3a 20 62 79 74 65 20 20 20 20 20 0d 0a 09 72 ┆val, state: byte r┆
0x19c60…19c80 65 61 64 73 74 61 74 65 2c 09 09 20 20 20 0d 0a 09 6e 65 78 74 70 2c 0d 0a 09 6c 61 73 74 70 6f ┆eadstate, nextp, lastpo┆
0x19c80…19ca0 73 3a 20 69 6e 74 65 67 65 72 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 0d ┆s: integer END; ┆
0x19ca0…19cc0 0a 0d 0a 27 64 72 69 76 65 72 27 09 2d 20 84 70 6f 69 6e 74 73 20 74 6f 20 74 68 65 20 64 72 69 ┆ 'driver' - ёpoints to the dri┆
0x19cc0…19ce0 76 65 72 20 6d 61 69 6c 62 6f 78 20 28 65 2e 67 2e 20 74 68 65 20 4f 50 45 52 41 54 4f 52 20 6d ┆ver mailbox (e.g. the OPERATOR m┆
0x19ce0…19d00 61 69 6c 80 0a 19 8f 80 80 62 6f 78 29 2e 20 0d 0a 0d 0a 27 61 6e 73 77 65 72 27 09 2d 20 84 70 ┆ailђ Јђђbox). 'answer' - ёp┆
0x19d00…19d20 6f 69 6e 74 20 74 6f 20 74 68 65 20 6d 61 69 6c 62 6f 78 2c 20 77 68 65 72 65 20 61 6e 73 77 65 ┆oint to the mailbox, where answe┆
0x19d20…19d40 72 73 20 61 72 72 69 76 65 20 66 72 6f 6d 20 74 68 65 20 0a 19 8f 80 80 64 72 69 76 65 72 20 20 ┆rs arrive from the Јђђdriver ┆
0x19d40…19d60 20 20 20 20 20 20 20 20 20 0d 0a 0d 0a 27 64 61 74 61 72 65 61 64 79 27 09 2d 20 84 68 6f 6c 64 ┆ 'dataready' - ёhold┆
0x19d60…19d80 73 20 74 68 65 20 61 6e 73 77 65 72 73 20 66 72 6f 6d 20 74 68 65 20 64 72 69 76 65 72 2c 20 69 ┆s the answers from the driver, i┆
0x19d80…19da0 66 20 74 68 69 73 20 6d 61 69 6c 62 6f 78 20 69 73 20 0a 19 8f 80 80 73 70 65 63 69 66 69 65 64 ┆f this mailbox is Јђђspecified┆
0x19da0…19dc0 20 61 73 20 27 61 6e 73 77 65 72 27 20 69 6e 20 74 68 65 20 63 61 6c 6c 20 6f 66 20 6f 70 65 6e ┆ as 'answer' in the call of open┆
0x19dc0…19de0 7a 6f 6e 65 20 6f 72 20 6f 70 65 80 0a 19 8f 80 80 6e 6f 70 7a 6f 6e 65 2e 20 27 64 61 74 61 72 ┆zone or opeђ Јђђnopzone. 'datar┆
0x19de0…19e00 65 61 64 79 27 20 69 73 20 6e 6f 72 6d 61 6c 6c 79 20 73 70 65 63 69 66 69 65 64 2c 20 77 68 65 ┆eady' is normally specified, whe┆
0x19e00…19e20 6e 20 74 68 65 20 0a 19 8f 80 80 7a 6f 6e 65 20 69 73 20 75 73 65 64 20 66 6f 72 20 69 6e 70 75 ┆n the Јђђzone is used for inpu┆
0x19e20…19e40 74 20 66 72 6f 6d 20 4f 50 45 52 41 54 4f 52 0d 0a 0d 0a 27 66 72 65 65 27 09 2d 20 84 68 6f 6c ┆t from OPERATOR 'free' - ёhol┆
0x19e40…19e60 64 73 20 74 68 65 20 65 6d 70 74 79 20 6d 65 73 73 61 67 65 73 2e 20 0d 0a 0d 0a 27 63 75 72 27 ┆ds the empty messages. 'cur'┆
0x19e60…19e80 09 2d 20 84 84 72 65 66 65 72 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 77 68 69 63 68 20 69 73 ┆ - ёёrefers the message which is┆
0x19e80…19ea0 20 63 75 72 72 65 6e 74 6c 79 20 69 6e 20 75 73 65 20 66 6f 72 20 72 65 61 80 0a 19 8f 80 80 64 ┆ currently in use for reaђ Јђђd┆
0x19ea0…19ec0 69 6e 67 20 69 6e 70 75 74 20 6f 72 20 77 72 69 74 69 6e 67 20 6f 75 74 70 75 74 2e 20 0d 0a 0d ┆ing input or writing output. ┆
0x19ec0…19ee0 0a 27 75 32 76 61 6c 27 09 2d 20 84 77 68 65 6e 65 76 65 72 20 61 20 6d 65 73 73 61 67 65 20 69 ┆ 'u2val' - ёwhenever a message i┆
0x19ee0…19f00 73 20 73 69 67 6e 61 6c 6c 65 64 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 6d 61 69 6c 80 80 ┆s signalled to the driver mailђђ┆
0x19f00…19f20 0a 19 8f 80 80 62 6f 78 2c 20 74 68 65 20 75 32 20 61 74 74 72 69 62 75 74 65 20 28 72 65 73 75 ┆ Јђђbox, the u2 attribute (resu┆
0x19f20…19f40 6c 74 20 61 74 74 72 69 62 75 74 65 29 20 6f 66 20 74 68 65 20 6d 65 73 73 61 80 0a 19 8f 80 80 ┆lt attribute) of the messaђ Јђђ┆
0x19f40…19f60 67 65 20 69 73 20 69 6e 80 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 75 32 76 61 6c 2e 20 41 63 63 ┆ge is inђitialized to u2val. Acc┆
0x19f60…19f80 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 0a 19 8f 80 80 63 6f 6e 76 65 6e ┆ording to the driver Јђђconven┆
0x19f80…19fa0 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 2c 20 73 6f 6d 65 20 64 72 69 76 65 ┆tions /Driver Conv./, some drive┆
0x19fa0…19fc0 72 73 20 75 74 69 6c 69 7a 65 73 20 74 68 65 20 0a 19 8f 80 80 73 70 65 63 69 66 69 63 20 63 6f ┆rs utilizes the Јђђspecific co┆
0x19fc0…19fe0 6e 76 65 6e 74 69 6f 6e 2c 20 74 68 61 74 20 27 75 32 27 20 6e 65 76 65 72 20 74 61 6b 65 73 20 ┆nvention, that 'u2' never takes ┆
0x19fe0…1a000 74 68 65 20 76 61 6c 75 65 20 37 20 0a 19 8f 80 80 69 6e 20 61 6e 80 73 77 65 72 73 20 66 72 6f ┆the value 7 Јђђin anђswers fro┆
0x1a000…1a020 6d 20 61 20 64 72 69 76 65 72 2c 20 74 68 65 72 65 62 79 20 64 69 73 74 69 6e 67 75 69 73 68 69 ┆m a driver, thereby distinguishi┆
0x1a020…1a040 6e 67 20 6d 65 73 80 0a 19 8f 80 80 73 61 67 65 73 20 66 72 6f 6d 20 61 70 70 6c 69 63 61 74 69 ┆ng mesђ Јђђsages from applicati┆
0x1a040…1a060 6f 6e 20 70 72 6f 63 65 73 73 65 73 20 61 6e 64 20 61 6e 73 77 65 72 73 20 66 72 6f 6d 20 0a 19 ┆on processes and answers from ┆
0x1a060…1a080 8f 80 80 65 2e 67 2e 20 69 6e 80 74 65 72 6e 61 6c 20 64 72 69 76 65 72 20 69 6e 74 65 72 72 75 ┆Јђђe.g. inђternal driver interru┆
0x1a080…1a0a0 70 74 69 6f 6e 20 70 72 6f 63 65 73 73 65 73 2e 20 0d 0a 0d 0a 27 73 74 61 74 65 27 09 2d 20 84 ┆ption processes. 'state' - ё┆
0x1a0a0…1a0c0 68 6f 6c 64 73 20 74 68 65 20 72 65 73 75 6c 74 20 61 74 74 72 69 62 75 74 65 20 28 75 32 29 20 ┆holds the result attribute (u2) ┆
0x1a0c0…1a0e0 66 72 6f 6d 20 74 68 65 20 6d 65 73 73 61 67 65 20 0a 19 8f 80 80 72 65 66 65 72 72 65 64 20 62 ┆from the message Јђђreferred b┆
0x1a0e0…1a100 79 20 27 63 75 72 27 2e 20 53 74 61 74 65 20 69 73 20 75 70 64 61 74 65 64 20 77 68 65 6e 20 61 ┆y 'cur'. State is updated when a┆
0x1a100…1a120 20 6d 65 73 73 61 67 65 20 69 73 20 0a 19 8f 80 80 74 61 6b 65 6e 20 66 72 6f 6d 20 27 66 72 65 ┆ message is Јђђtaken from 'fre┆
0x1a120…1a140 65 27 20 61 73 20 61 20 6e 65 77 20 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 20 66 6f 72 20 ┆e' as a new current message for ┆
0x1a140…1a160 0a 19 8f 80 80 6f 75 74 70 75 74 20 69 6e 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 6f 75 74 ┆ Јђђoutput in the procedure out┆
0x1a160…1a180 63 68 61 72 2c 20 6f 72 20 77 68 65 6e 20 61 20 6d 65 73 73 61 67 65 20 0a 19 8f 80 80 69 73 20 ┆char, or when a message Јђђis ┆
0x1a180…1a1a0 74 61 6b 65 6e 20 66 72 6f 6d 20 27 64 61 74 61 72 65 61 64 79 27 20 69 6e 20 74 68 65 20 70 72 ┆taken from 'dataready' in the pr┆
0x1a1a0…1a1c0 6f 63 65 64 75 72 65 20 6f 70 77 61 69 74 20 61 73 20 0a 19 8f 80 80 61 20 6e 65 77 20 63 75 72 ┆ocedure opwait as Јђђa new cur┆
0x1a1c0…1a1e0 72 65 6e 74 20 6d 65 73 73 61 67 65 20 68 6f 6c 64 69 6e 67 20 69 6e 70 75 74 20 64 61 74 61 2e ┆rent message holding input data.┆
0x1a1e0…1a200 20 0d 0a 0d 0a 27 72 65 61 64 73 74 61 74 65 27 09 2d 20 84 73 70 65 63 69 66 69 65 73 20 74 68 ┆ 'readstate' - ёspecifies th┆
0x1a200…1a220 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 20 7a 6f 6e 65 20 77 68 65 6e 20 75 73 65 64 20 66 6f ┆e state of the zone when used fo┆
0x1a220…1a240 72 20 69 6e 70 75 74 20 0a 19 8f 80 80 61 66 74 65 72 20 65 61 63 68 20 63 61 6c 6c 20 6f 66 20 ┆r input Јђђafter each call of ┆
0x1a240…1a260 6f 6e 65 20 6f 66 20 74 68 65 20 69 6e 70 75 74 20 72 6f 75 74 69 6e 65 73 2e 20 0d 0a 0d 0a 09 ┆one of the input routines. ┆
0x1a260…1a280 20 20 84 52 65 61 64 73 74 61 74 65 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 2d ┆ ёReadstate is initialized to -┆
0x1a280…1a2a0 31 20 61 66 74 65 72 20 63 61 6c 6c 20 6f 66 20 27 6f 70 65 6e 7a 6f 6e 65 27 20 0a 19 8f 80 80 ┆1 after call of 'openzone' Јђђ┆
0x1a2a0…1a2c0 6f 72 20 27 6f 70 65 6e 6f 70 7a 6f 6e 65 27 2e 20 0d 0a 0d 0a 09 20 20 84 54 68 65 20 66 6f 6c ┆or 'openopzone'. ёThe fol┆
0x1a2c0…1a2e0 6c 6f 77 69 6e 67 20 69 6e 74 65 72 70 72 65 74 61 74 69 6f 6e 20 6f 66 20 72 65 61 64 73 74 61 ┆lowing interpretation of readsta┆
0x1a2e0…1a300 74 65 20 68 6f 6c 64 73 3a 20 09 0d 0a 0d 0a 8c 8b d0 0a 09 20 20 27 52 65 61 64 73 74 61 74 65 ┆te holds: їІл 'Readstate┆
0x1a300…1a320 27 3d 2d 31 20 0d 0a 09 84 20 20 84 4e 6f 20 69 6e 70 75 74 20 77 61 73 20 72 65 61 64 79 20 28 ┆'=-1 ё ёNo input was ready (┆
0x1a320…1a340 27 63 75 72 27 3d 27 6e 69 6c 27 29 20 77 68 65 6e 20 61 6e 20 69 6e 70 75 74 20 70 72 6f 80 0a ┆'cur'='nil') when an input proђ ┆
0x1a340…1a360 19 8f 80 80 63 65 64 75 72 65 20 77 61 73 20 63 61 6c 6c 65 64 20 6f 72 20 74 68 65 20 63 75 72 ┆ Јђђcedure was called or the cur┆
0x1a360…1a380 72 65 6e 74 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 20 62 65 63 61 80 0a 19 8f 80 80 6d 65 20 ┆rent input message becaђ Јђђme ┆
0x1a380…1a3a0 65 6d 70 74 79 20 64 75 72 69 6e 67 20 63 61 6c 6c 2e 20 0d 0a 0d 0a 09 20 20 27 72 65 61 64 73 ┆empty during call. 'reads┆
0x1a3a0…1a3c0 74 61 74 65 27 3d 30 20 0d 0a 09 20 20 84 54 68 65 20 63 61 6c 6c 20 6f 66 20 61 6e 20 69 6e 70 ┆tate'=0 ёThe call of an inp┆
0x1a3c0…1a3e0 75 74 20 70 72 6f 63 65 64 75 72 65 20 73 75 63 63 65 65 64 65 64 20 77 69 74 68 20 6e 6f 20 0a ┆ut procedure succeeded with no ┆
0x1a3e0…1a400 19 8f 80 80 73 79 6e 74 61 78 20 65 72 72 6f 72 73 2e 20 0d 0a 0d 0a 09 20 20 27 72 65 61 64 73 ┆ Јђђsyntax errors. 'reads┆
0x1a400…1a420 74 61 74 65 27 3e 30 20 0d 0a 09 20 20 84 54 68 69 73 20 76 61 6c 75 65 20 72 61 6e 67 65 20 69 ┆tate'>0 ёThis value range i┆
0x1a420…1a440 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 69 6e 64 69 63 61 74 69 6f 6e 20 6f 66 20 61 20 73 ┆s intended for indication of a s┆
0x1a440…1a460 79 6e 80 0a 19 8f 80 80 74 61 78 20 65 72 72 6f 72 20 64 65 74 65 63 74 65 64 20 64 75 72 69 6e ┆ynђ Јђђtax error detected durin┆
0x1a460…1a480 67 20 74 68 65 20 63 61 6c 6c 20 6f 66 20 74 68 65 20 69 6e 70 75 74 20 70 72 6f 63 65 80 0a 19 ┆g the call of the input proceђ ┆
0x1a480…1a4a0 8f 80 80 64 75 72 65 2e 20 54 68 65 20 72 6f 75 74 69 6e 65 73 20 69 6e 20 74 68 69 73 20 6d 61 ┆Јђђdure. The routines in this ma┆
0x1a4a0…1a4c0 6e 75 61 6c 20 64 6f 20 6e 6f 74 20 64 65 6c 69 76 65 72 20 0a 19 8f 80 80 70 6f 73 69 74 69 76 ┆nual do not deliver Јђђpositiv┆
0x1a4c0…1a4e0 65 20 76 61 6c 75 65 73 2e 20 0d 0a 0d 0a 27 6e 65 78 74 70 09 2d 20 84 69 73 20 74 68 65 20 69 ┆e values. 'nextp - ёis the i┆
0x1a4e0…1a500 6e 64 65 78 20 6f 66 20 74 68 65 20 6e 65 78 74 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 63 75 72 ┆ndex of the next position in cur┆
0x1a500…1a520 72 65 6e 74 20 6d 65 73 73 61 67 65 20 0a 19 8f 80 80 66 6f 72 20 72 65 61 64 69 6e 67 20 6f 72 ┆rent message Јђђfor reading or┆
0x1a520…1a540 20 77 72 69 74 69 6e 67 2e 20 0d 0a 0d 0a 27 6c 61 73 74 70 6f 73 27 09 2d 20 84 69 73 20 74 68 ┆ writing. 'lastpos' - ёis th┆
0x1a540…1a560 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 6c 61 73 74 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 ┆e index of the last position in ┆
0x1a560…1a580 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 20 0a 19 8f 80 80 66 6f 72 20 72 65 61 64 69 6e 67 ┆current message Јђђfor reading┆
0x1a580…1a5a0 20 6f 72 20 77 72 69 74 69 6e 67 2e 20 0d 0a 8c 83 e0 0a 16 53 44 0d 0a 4f 70 65 6e 6f 70 7a 6f ┆ or writing. їЃЯ SD Openopzo┆
0x1a5a0…1a5c0 6e 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 70 65 6e 6f 70 7a 6f 6e 65 be 28 56 41 52 ┆ne PROCEDURE ┐▄пopenopzoneЙ(VAR┆
0x1a5c0…1a5e0 20 7a 3a 20 7a 6f 6e 65 3b 20 64 72 69 76 65 72 2c 20 61 6e 73 77 65 72 3a 20 5e 88 7c 20 6d 61 ┆ z: zone; driver, answer: ^ѕ| ma┆
0x1a5e0…1a600 69 6c 62 6f 78 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 73 3a 20 69 6e 74 ┆ilbox; bufs: int┆
0x1a600…1a620 65 67 65 72 3b 20 56 41 52 20 68 6f 6d 65 3a 20 70 6f 6f 6c 3b 20 76 31 2c 20 76 32 2c 20 76 33 ┆eger; VAR home: pool; v1, v2, v3┆
0x1a620…1a640 2c 20 76 34 3a 20 62 79 74 65 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 ┆, v4: byte); Defined in ioenv┆
0x1a640…1a660 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 4d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 74 68 65 20 70 6f ┆. - ёMessages from the po┆
0x1a660…1a680 6f 6c 20 27 68 6f 6d 65 27 20 73 68 6f 75 6c 64 20 62 65 20 61 62 6c 65 20 74 6f 20 68 6f 6c 64 ┆ol 'home' should be able to hold┆
0x1a680…1a6a0 20 76 61 72 69 61 62 6c 65 73 20 0a 19 85 80 80 6f 66 20 74 79 70 65 3a 20 0d 0a 0d 0a 20 20 20 ┆ variables Ёђђof type: ┆
0x1a6a0…1a6c0 20 20 20 20 20 20 20 20 20 52 45 43 4f 52 44 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ RECORD ┆
0x1a6c0…1a6e0 20 20 20 20 66 69 72 73 74 2c 20 6c 61 73 74 2c 20 6e 65 78 74 3a 20 69 6e 74 65 67 65 72 3b 20 ┆ first, last, next: integer; ┆
0x1a6e0…1a700 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 3a 20 61 6c 66 61 3b 20 ┆ name: alfa; ┆
0x1a700…1a720 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 61 72 73 3a 20 41 52 52 41 59 ┆ chars: ARRAY┆
0x1a720…1a740 20 28 66 69 72 73 74 69 6e 64 65 78 2e 2e 6c 61 73 74 69 6e 64 65 78 29 20 4f 46 20 63 68 61 72 ┆ (firstindex..lastindex) OF char┆
0x1a740…1a760 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 0d 0a 0d 0a 27 66 69 72 73 74 27 ┆; END; 'first'┆
0x1a760…1a780 2c 20 27 6c 61 73 74 27 2c 20 61 6e 64 20 27 6e 65 78 74 27 20 61 72 65 20 74 68 65 20 62 75 66 ┆, 'last', and 'next' are the buf┆
0x1a780…1a7a0 66 65 72 20 61 74 74 72 69 62 75 74 65 73 2c 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 ┆fer attributes, according to the┆
0x1a7a0…1a7c0 20 0a 64 72 69 76 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 20 43 6f 6e ┆ driver conventions /Driver Con┆
0x1a7c0…1a7e0 76 2e 2f 20 6f 66 20 74 68 65 20 65 61 72 6c 69 65 72 20 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 ┆v./ of the earlier Real-Time Pas┆
0x1a7e0…1a800 63 61 6c 20 0a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 20 54 68 65 20 76 61 6c 75 65 73 ┆cal implementations. The values┆
0x1a800…1a820 20 6f 66 20 74 68 65 20 61 74 74 72 69 62 75 74 65 73 20 61 72 65 20 75 73 65 64 20 66 6f 72 20 ┆ of the attributes are used for ┆
0x1a820…1a840 63 6f 6d 70 75 74 61 80 0a 74 69 6f 6e 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 61 74 74 72 ┆computaђ tion of the buffer attr┆
0x1a840…1a860 69 62 75 74 65 20 76 61 6c 75 65 73 20 27 6f 66 66 73 65 74 27 2c 20 27 74 6f 70 27 2c 20 61 6e ┆ibute values 'offset', 'top', an┆
0x1a860…1a880 64 20 27 62 79 74 65 63 6f 75 6e 74 27 2e 20 0d 0a 0d 0a 41 20 74 79 70 65 20 27 6f 70 62 75 66 ┆d 'bytecount'. A type 'opbuf┆
0x1a880…1a8a0 66 65 72 27 20 69 73 20 64 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 20 77 69 74 68 20 0d 0a ┆fer' is defined in ioenv with ┆
0x1a8a0…1a8c0 09 6c 61 73 74 69 6e 64 65 78 1e 66 69 72 73 74 69 6e 64 65 78 2b 31 3d 38 30 2e 0d 0a 0d 0a 54 ┆ lastindex firstindex+1=80. T┆
0x1a8c0…1a8e0 68 65 20 70 72 6f 63 65 64 75 72 65 20 61 73 73 69 67 6e 73 20 74 6f 20 74 68 65 20 66 69 65 6c ┆he procedure assigns to the fiel┆
0x1a8e0…1a900 64 20 27 6e 61 6d 65 27 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 ┆d 'name' the value of the proces┆
0x1a900…1a920 73 20 0a 6e 61 6d 65 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 ┆s name field of the process des┆
0x1a920…1a940 63 72 69 70 74 6f 72 20 28 63 66 2e 20 6f 77 6e 6e 61 6d 65 29 20 69 6e 20 61 6c 6c 20 6d 65 73 ┆criptor (cf. ownname) in all mes┆
0x1a940…1a960 73 61 67 65 73 2c 20 0a 77 68 65 72 65 75 70 6f 6e 20 69 74 20 70 65 72 66 6f 72 6d 73 20 61 73 ┆sages, whereupon it performs as┆
0x1a960…1a980 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 6f 70 65 6e 7a 6f 6e 65 2e 20 0d 0a 0d 0a 54 68 65 ┆ the procedure openzone. The┆
0x1a980…1a9a0 20 4f 50 45 52 41 54 4f 52 20 70 72 6f 63 65 73 73 20 69 64 65 6e 74 69 66 69 65 73 20 74 68 65 ┆ OPERATOR process identifies the┆
0x1a9a0…1a9c0 20 69 6e 70 75 74 20 61 6e 64 20 6f 75 74 70 75 74 20 6d 65 73 73 61 67 65 73 20 62 79 20 0a 6d ┆ input and output messages by m┆
0x1a9c0…1a9e0 65 61 6e 73 20 6f 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 6e 61 6d 65 27 2e 20 0d 0a ┆eans of the parameter 'name'. ┆
0x1a9e0…1aa00 0d 0a 49 66 20 74 68 65 20 61 63 74 75 61 6c 20 64 72 69 76 65 72 20 6d 61 69 6c 62 6f 78 20 70 ┆ If the actual driver mailbox p┆
0x1aa00…1aa20 6f 69 6e 74 65 72 20 69 73 20 6e 69 6c 20 28 61 6e 20 75 6e 64 65 66 69 6e 65 64 20 6d 61 69 6c ┆ointer is nil (an undefined mail┆
0x1aa20…1aa40 62 6f 78 20 70 6f 69 6e 80 0a 74 65 72 29 2c 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 77 69 ┆box poinђ ter), the procedure wi┆
0x1aa40…1aa60 6c 6c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 6f 70 65 6e 20 74 68 65 20 7a 6f 6e 65 20 77 ┆ll automatically open the zone w┆
0x1aa60…1aa80 69 74 68 20 74 68 65 20 0a 6f 70 65 72 61 74 6f 72 20 6d 61 69 6c 62 6f 78 20 61 73 20 64 72 69 ┆ith the operator mailbox as dri┆
0x1aa80…1aaa0 76 65 72 20 6d 61 69 6c 62 6f 78 2e 20 0d 0a 16 53 44 0d 0a 4f 70 65 6e 7a 6f 6e 65 0d 0a 50 52 ┆ver mailbox. SD Openzone PR┆
0x1aaa0…1aac0 4f 43 45 44 55 52 45 20 bf dc d8 6f 70 65 6e 7a 6f 6e 65 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 ┆OCEDURE ┐▄пopenzoneЙ(VAR z: zone┆
0x1aac0…1aae0 3b 20 64 72 69 76 65 72 2c 20 61 6e 73 77 65 72 3a 20 5e 88 7c 20 6d 61 69 6c 62 6f 78 3b 20 20 ┆; driver, answer: ^ѕ| mailbox; ┆
0x1aae0…1ab00 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 73 3a 20 69 6e 74 65 67 65 72 3b 20 ┆ bufs: integer; ┆
0x1ab00…1ab20 56 41 52 20 68 6f 6d 65 3a 20 70 6f 6f 6c 3b 20 76 31 2c 20 76 32 2c 20 76 33 2c 20 76 34 3a 20 ┆VAR home: pool; v1, v2, v3, v4: ┆
0x1ab20…1ab40 62 79 74 65 29 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a ┆byte); Defined in ioenv. ┆
0x1ab40…1ab60 4f 70 65 6e 7a 6f 6e 65 20 70 72 65 70 61 72 65 73 20 74 68 65 20 7a 6f 6e 65 20 27 7a 27 20 77 ┆Openzone prepares the zone 'z' w┆
0x1ab60…1ab80 69 74 68 20 6d 65 73 73 61 67 65 73 20 66 6f 72 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 2e 20 0d ┆ith messages for input/output. ┆
0x1ab80…1aba0 0a 0d 0a 4e 6f 74 65 3a 20 49 66 20 4f 50 45 52 41 54 4f 52 20 63 6f 6d 6d 75 6e 69 63 61 74 69 ┆ Note: If OPERATOR communicati┆
0x1aba0…1abc0 6f 6e 20 69 73 20 77 61 6e 74 65 64 2c 20 75 73 65 20 6f 70 65 6e 6f 70 7a 6f 6e 65 2e 0d 0a 0d ┆on is wanted, use openopzone. ┆
0x1abc0…1abe0 0a 27 7a 27 09 2d 20 84 74 68 65 20 7a 6f 6e 65 20 77 68 69 63 68 20 69 73 20 69 6e 69 74 69 61 ┆ 'z' - ёthe zone which is initia┆
0x1abe0…1ac00 6c 69 7a 65 64 2e 20 0d 0a 0d 0a 27 64 72 69 76 65 72 27 09 2d 20 84 61 20 70 6f 69 6e 74 65 72 ┆lized. 'driver' - ёa pointer┆
0x1ac00…1ac20 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 6d 61 69 6c 62 6f 78 2c 20 77 68 69 63 68 20 69 73 ┆ to the driver mailbox, which is┆
0x1ac20…1ac40 20 61 73 73 69 67 6e 65 64 20 74 6f 20 0a 19 8f 80 80 27 7a 2e 64 72 69 76 65 72 27 2e 20 0d 0a ┆ assigned to Јђђ'z.driver'. ┆
0x1ac40…1ac60 0d 0a 27 61 6e 73 77 65 72 27 09 2d 20 84 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 6d 61 69 ┆ 'answer' - ёa pointer to a mai┆
0x1ac60…1ac80 6c 62 6f 78 20 77 68 65 72 65 20 61 6e 73 77 65 72 73 20 61 72 72 69 76 65 20 66 72 6f 6d 20 74 ┆lbox where answers arrive from t┆
0x1ac80…1aca0 68 65 20 0a 19 8e 80 80 64 72 69 76 65 72 2e 20 27 61 6e 73 77 65 72 27 20 69 73 20 61 73 73 69 ┆he јђђdriver. 'answer' is assi┆
0x1aca0…1acc0 67 6e 65 64 20 74 6f 20 27 7a 2e 61 6e 73 77 65 72 27 2e 20 0d 0a 0d 0a 27 62 75 66 73 27 09 2d ┆gned to 'z.answer'. 'bufs' -┆
0x1acc0…1ace0 20 84 73 70 65 63 69 66 69 65 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 65 73 73 61 67 ┆ ёspecifies the number of messag┆
0x1ace0…1ad00 65 73 20 77 68 69 63 68 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 0a 19 8e 80 80 77 69 6c 6c ┆es which the procedure јђђwill┆
0x1ad00…1ad20 20 61 6c 6c 6f 63 61 74 65 20 74 68 65 20 7a 6f 6e 65 20 7a 2e 20 54 68 65 20 6d 65 73 73 61 67 ┆ allocate the zone z. The messag┆
0x1ad20…1ad40 65 73 20 61 72 65 20 70 6c 61 63 65 64 20 69 6e 20 0a 19 8e 80 80 27 7a 2e 66 72 65 65 27 2e 20 ┆es are placed in јђђ'z.free'. ┆
0x1ad40…1ad60 0d 0a 0d 0a 27 68 6f 6d 65 27 09 2d 20 84 74 68 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 61 ┆ 'home' - ёthe messages are a┆
0x1ad60…1ad80 6c 6c 6f 63 61 74 65 64 20 66 72 6f 6d 20 74 68 65 20 70 6f 6f 6c 20 27 68 6f 6d 65 27 2e 20 54 ┆llocated from the pool 'home'. T┆
0x1ad80…1ada0 68 65 20 0a 19 8e 80 80 6d 65 73 73 61 67 65 73 20 63 6f 6e 66 6f 72 6d 20 74 6f 20 74 68 65 20 ┆he јђђmessages conform to the ┆
0x1ada0…1adc0 64 72 69 76 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 20 0a 19 8e 80 80 ┆driver conventions /Driver јђђ┆
0x1adc0…1ade0 43 6f 6e 76 2e 2f 20 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20 61 62 6c 65 20 74 6f 20 68 6f 6c ┆Conv./ and should be able to hol┆
0x1ade0…1ae00 64 20 61 20 76 61 72 69 61 62 6c 65 20 6f 66 20 74 79 70 65 3a 20 0d 0a 0d 0a 09 20 20 52 45 43 ┆d a variable of type: REC┆
0x1ae00…1ae20 4f 52 44 0d 0a 09 20 20 20 20 66 69 72 73 74 2c 20 6c 61 73 74 2c 20 6e 65 78 74 3a 20 69 6e 74 ┆ORD first, last, next: int┆
0x1ae20…1ae40 65 67 65 72 3b 0d 0a 09 20 20 20 20 63 68 61 72 73 3a 20 41 52 52 41 59 20 28 36 2e 2e 6d 61 78 ┆eger; chars: ARRAY (6..max┆
0x1ae40…1ae60 29 20 4f 46 20 63 68 61 72 3b 20 0d 0a 09 20 20 45 4e 44 3b 20 0d 0a 0d 0a 0d 0a 27 76 31 27 2c ┆) OF char; END; 'v1',┆
0x1ae60…1ae80 20 27 76 32 27 2c 0d 0a 27 76 33 27 2c 20 27 76 34 27 09 2d 20 84 74 68 65 20 75 73 65 72 20 61 ┆ 'v2', 'v3', 'v4' - ёthe user a┆
0x1ae80…1aea0 74 74 72 69 62 75 74 65 73 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 69 6e ┆ttributes of the messages are in┆
0x1aea0…1aec0 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 0a 19 8e 80 80 27 76 31 27 2c 20 27 76 32 27 2c 20 27 76 ┆itialized to јђђ'v1', 'v2', 'v┆
0x1aec0…1aee0 33 27 2c 20 61 6e 64 20 27 76 34 27 2e 20 27 76 32 27 20 69 73 20 75 73 65 64 20 74 6f 20 72 65 ┆3', and 'v4'. 'v2' is used to re┆
0x1aee0…1af00 73 65 74 20 74 68 65 20 0a 19 8e 80 80 72 65 73 75 6c 74 20 61 74 74 72 69 62 75 74 65 20 28 75 ┆set the јђђresult attribute (u┆
0x1af00…1af20 32 29 2c 20 77 68 65 6e 65 76 65 72 20 61 20 6d 65 73 73 61 67 65 20 69 73 20 73 69 67 6e 61 6c ┆2), whenever a message is signal┆
0x1af20…1af40 6c 65 64 20 0a 19 8e 80 80 74 6f 20 74 68 65 20 64 72 69 76 65 72 2e 20 0d 0a 16 53 43 0d 0a 4f ┆led јђђto the driver. SC O┆
0x1af40…1af60 75 74 70 75 74 0d 0a 16 73 6f 20 6f 75 74 70 75 74 0d 0a 49 66 20 74 68 65 20 70 72 6f 63 65 73 ┆utput so output If the proces┆
0x1af60…1af80 73 20 64 6f 65 73 20 6e 6f 74 20 77 61 6e 74 20 74 6f 20 62 65 20 61 63 74 69 76 61 74 65 64 2c ┆s does not want to be activated,┆
0x1af80…1afa0 20 77 68 65 6e 20 61 6e 20 6f 75 74 70 75 74 20 6d 65 73 73 61 80 0a 67 65 20 72 65 74 75 72 6e ┆ when an output messaђ ge return┆
0x1afa0…1afc0 73 20 66 72 6f 6d 20 74 68 65 20 64 72 69 76 65 72 2c 20 69 74 20 75 73 65 73 20 61 20 6d 61 69 ┆s from the driver, it uses a mai┆
0x1afc0…1afe0 6c 62 6f 78 20 70 6f 69 6e 74 65 72 20 77 69 74 68 20 76 61 6c 75 65 20 6e 69 6c 20 61 73 20 0a ┆lbox pointer with value nil as ┆
0x1afe0…1b000 74 68 65 20 61 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 20 27 61 6e 73 77 65 72 27 20 69 6e ┆the actual parameter 'answer' in┆
0x1b000…1b020 20 74 68 65 20 63 61 6c 6c 20 6f 66 20 6f 70 65 6e 7a 6f 6e 65 20 6f 72 20 6f 80 70 65 6e 6f 70 ┆ the call of openzone or oђpenop┆
0x1b020…1b040 7a 6f 80 0a 6e 65 2e 20 49 6e 20 74 68 69 73 20 77 61 79 20 65 6d 70 74 79 20 6f 75 74 70 75 74 ┆zoђ ne. In this way empty output┆
0x1b040…1b060 20 6d 65 73 73 61 67 65 73 20 72 65 74 75 72 6e 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 68 65 ┆ messages return directly to the┆
0x1b060…1b080 20 6d 61 69 6c 62 6f 78 20 0a 27 7a 2e 66 72 65 65 27 20 61 73 20 61 76 61 69 6c 61 62 6c 65 20 ┆ mailbox 'z.free' as available ┆
0x1b080…1b0a0 6d 65 73 73 61 67 65 73 20 66 6f 72 20 63 6f 6e 74 69 6e 75 65 64 20 6f 75 74 70 75 74 2e 20 0d ┆messages for continued output. ┆
0x1b0a0…1b0c0 0a 0d 0a 49 66 20 74 68 65 20 70 72 6f 67 72 61 6d 20 77 61 6e 74 73 20 74 6f 20 73 75 70 65 72 ┆ If the program wants to super┆
0x1b0c0…1b0e0 76 69 73 65 20 74 68 65 20 61 6e 73 77 65 72 73 2c 20 69 74 20 75 73 65 73 20 61 20 6d 61 69 6c ┆vise the answers, it uses a mail┆
0x1b0e0…1b100 62 6f 78 20 0a 70 6f 69 6e 74 65 72 20 77 68 69 63 68 20 69 73 20 6e 6f 74 20 6e 69 6c 20 69 6e ┆box pointer which is not nil in┆
0x1b100…1b120 20 74 68 65 20 63 61 6c 6c 20 6f 66 20 6f 70 65 6e 7a 6f 6e 65 20 6f 72 20 6f 70 65 6e 6f 70 7a ┆ the call of openzone or openopz┆
0x1b120…1b140 6f 6e 65 2e 20 54 68 65 20 0a 6d 65 73 73 61 67 65 73 20 6d 75 73 74 20 62 65 20 73 69 67 6e 61 ┆one. The messages must be signa┆
0x1b140…1b160 6c 80 6c 65 64 20 74 6f 20 27 7a 2e 66 72 65 65 27 20 61 66 74 65 72 77 61 72 64 73 2e 20 0d 0a ┆lђled to 'z.free' afterwards. ┆
0x1b160…1b180 16 53 44 0d 0a 4f 75 74 61 64 64 72 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 75 74 61 64 ┆ SD Outaddr PROCEDURE ┐▄пoutad┆
0x1b180…1b1a0 64 72 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 61 3a 20 33 32 62 69 74 74 79 70 65 29 3b 20 ┆drЙ(VAR z: zone; a: 32bittype); ┆
0x1b1a0…1b1c0 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 72 ┆ Not predefined. - ёwr┆
0x1b1c0…1b1e0 69 74 65 73 20 74 68 65 20 74 68 72 65 65 20 6c 65 61 73 74 20 73 69 67 6e 69 66 69 63 61 6e 74 ┆ites the three least significant┆
0x1b1e0…1b200 20 62 79 74 65 73 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 61 20 69 6e 20 68 65 78 80 ┆ bytes of the variable a in hexђ┆
0x1b200…1b220 0a 19 85 80 80 61 64 65 63 69 6d 61 6c 20 66 6f 72 6d 20 77 69 74 68 20 74 68 65 20 6c 61 79 6f ┆ Ёђђadecimal form with the layo┆
0x1b220…1b240 75 74 3a 20 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 42 2e 44 44 44 44 20 0d 0a 0d 0a ┆ut: BB.DDDD ┆
0x1b240…1b260 54 68 65 20 72 6f 75 74 69 6e 65 20 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 6f 75 74 70 ┆The routine is intended for outp┆
0x1b260…1b280 75 74 20 6f 66 20 52 43 33 35 30 32 20 61 64 64 72 65 73 73 65 73 2e 20 0d 0a 16 53 44 0d 0a 4f ┆ut of RC3502 addresses. SD O┆
0x1b280…1b2a0 75 74 61 6c 66 61 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 75 74 61 6c 66 61 be 28 56 41 ┆utalfa PROCEDURE ┐▄пoutalfaЙ(VA┆
0x1b2a0…1b2c0 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 74 65 78 74 3a 20 21 61 6c 66 61 29 3b 20 0d 0a 0d ┆R z: zone; VAR text: !alfa); ┆
0x1b2c0…1b2e0 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 72 69 ┆ Defined in ioenv. - ёwri┆
0x1b2e0…1b300 74 65 73 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 27 74 65 78 74 27 20 62 79 20 63 61 6c 6c 69 ┆tes the variable 'text' by calli┆
0x1b300…1b320 6e 67 20 6f 75 74 63 68 61 72 2e 20 54 68 65 20 63 68 61 72 61 63 74 65 72 20 27 23 27 20 0a 19 ┆ng outchar. The character '#' ┆
0x1b320…1b340 85 80 80 61 63 74 73 20 61 73 20 61 20 73 74 6f 70 20 63 68 61 72 61 63 74 65 72 2e 20 0d 0a 16 ┆Ёђђacts as a stop character. ┆
0x1b340…1b360 53 44 0d 0a 4f 75 74 63 68 61 72 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 75 74 63 68 61 ┆SD Outchar PROCEDURE ┐▄пoutcha┆
0x1b360…1b380 72 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 63 68 3a 20 63 68 61 72 29 3b 20 0d 0a 0d 0a 44 ┆rЙ(VAR z: zone; ch: char); D┆
0x1b380…1b3a0 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 70 6c 61 63 65 ┆efined in ioenv. - ёplace┆
0x1b3a0…1b3c0 73 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 27 63 68 27 20 69 6e 20 74 68 65 20 63 75 72 72 ┆s the character 'ch' in the curr┆
0x1b3c0…1b3e0 65 6e 74 20 6d 65 73 73 61 67 65 20 27 7a 2e 63 75 72 27 2e 20 0d 0a 0d 0a 49 66 20 6e 6f 20 63 ┆ent message 'z.cur'. If no c┆
0x1b3e0…1b400 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 61 20 77 ┆urrent message is available, a w┆
0x1b400…1b420 61 69 74 20 69 73 20 70 65 72 66 6f 72 6d 65 64 20 6f 6e 20 74 68 65 20 6d 61 69 6c 80 0a 62 6f ┆ait is performed on the mailђ bo┆
0x1b420…1b440 78 20 27 7a 2e 66 72 65 65 27 2e 20 0d 0a 0d 0a 49 66 20 74 68 65 20 6d 65 73 73 61 67 65 20 62 ┆x 'z.free'. If the message b┆
0x1b440…1b460 65 63 6f 6d 65 73 20 66 75 6c 6c 2c 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 6f 75 74 65 6e ┆ecomes full, the procedure outen┆
0x1b460…1b480 64 20 69 73 20 63 61 6c 6c 65 64 2e 20 0d 0a 16 53 44 0d 0a 4f 75 74 64 61 74 65 0d 0a 8c 94 d0 ┆d is called. SD Outdate їћл┆
0x1b480…1b4a0 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 75 74 64 61 74 65 be 28 56 41 52 20 7a 3a 20 7a 6f ┆ PROCEDURE ┐▄пoutdateЙ(VAR z: zo┆
0x1b4a0…1b4c0 6e 65 3b 20 64 61 74 65 3a 20 63 6f 64 65 64 5f 64 61 74 65 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e ┆ne; date: coded_date); Defin┆
0x1b4c0…1b4e0 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 72 69 74 65 73 20 74 68 ┆ed in ioenv. - ёwrites th┆
0x1b4e0…1b500 65 20 70 61 72 61 6d 65 74 65 72 20 64 61 74 65 20 77 69 74 68 20 74 68 65 20 6c 61 79 6f 75 74 ┆e parameter date with the layout┆
0x1b500…1b520 3a 20 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 59 59 59 59 2e 4d 4d 2e 44 44 20 0d 0a 0d ┆: YYYY.MM.DD ┆
0x1b520…1b540 0a 54 68 65 20 74 79 70 65 20 27 63 6f 64 65 64 5f 64 61 74 65 27 20 69 73 20 64 65 66 69 6e 65 ┆ The type 'coded_date' is define┆
0x1b540…1b560 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 20 61 6e 64 20 69 73 20 75 73 65 64 20 74 68 72 6f 75 ┆d in rc3502env and is used throu┆
0x1b560…1b580 67 68 6f 75 74 20 0a 74 68 65 20 72 75 6e 20 74 69 6d 65 20 73 79 73 74 65 6d 2c 20 65 73 70 65 ┆ghout the run time system, espe┆
0x1b580…1b5a0 63 69 61 6c 6c 79 20 74 68 65 20 74 69 6d 65 72 20 73 79 73 74 65 6d 20 28 73 65 65 20 64 65 73 ┆cially the timer system (see des┆
0x1b5a0…1b5c0 63 72 69 70 74 69 6f 6e 20 6f 66 20 0a 74 68 65 20 70 72 6f 63 65 80 64 75 72 65 20 73 65 6e 64 ┆cription of the proceђdure send┆
0x1b5c0…1b5e0 74 69 6d 65 72 29 2e 20 0d 0a 16 53 44 0d 0a 4f 75 74 64 6f 75 62 6c 65 0d 0a 50 52 4f 43 45 44 ┆timer). SD Outdouble PROCED┆
0x1b5e0…1b600 55 52 45 20 bf dc d8 6f 75 74 64 6f 75 62 6c 65 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 64 ┆URE ┐▄пoutdoubleЙ(VAR z: zone; d┆
0x1b600…1b620 3a 20 64 6f 75 62 6c 65 3b 20 70 6f 73 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 ┆: double; pos: integer); Def┆
0x1b620…1b640 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 72 69 74 65 73 20 ┆ined in ioenv. - ёwrites ┆
0x1b640…1b660 74 68 65 20 64 6f 75 62 6c 65 20 27 64 27 20 6f 6e 20 64 65 63 69 6d 61 6c 20 66 6f 72 6d 2e 20 ┆the double 'd' on decimal form. ┆
0x1b660…1b680 49 66 20 74 68 65 20 64 6f 75 62 6c 65 20 6f 63 63 75 70 69 65 73 20 0a 19 85 80 80 6c 65 73 73 ┆If the double occupies Ёђђless┆
0x1b680…1b6a0 20 74 68 61 6e 20 27 70 6f 73 27 20 70 6f 73 69 74 69 6f 6e 73 20 28 69 6e 63 6c 75 64 69 6e 67 ┆ than 'pos' positions (including┆
0x1b6a0…1b6c0 20 74 68 65 20 27 2d 27 20 63 68 61 72 61 63 74 65 72 2c 20 69 66 20 0a 19 85 80 80 6e 65 67 61 ┆ the '-' character, if Ёђђnega┆
0x1b6c0…1b6e0 74 69 76 65 29 2c 20 74 68 65 20 64 6f 75 62 6c 65 20 69 73 20 70 72 65 66 69 78 65 64 20 61 20 ┆tive), the double is prefixed a ┆
0x1b6e0…1b700 6e 75 6d 62 65 72 20 6f 66 20 73 70 61 63 65 73 20 74 6f 20 66 69 6c 6c 20 74 68 65 20 0a 19 85 ┆number of spaces to fill the Ё┆
0x1b700…1b720 80 80 27 70 6f 73 27 20 70 6f 73 69 80 74 69 6f 6e 73 2e 20 49 66 20 74 68 65 20 6e 75 6d 62 65 ┆ђђ'pos' posiђtions. If the numbe┆
0x1b720…1b740 72 20 6f 63 63 75 70 69 65 73 20 6d 6f 72 65 20 74 68 61 6e 20 27 70 6f 73 27 20 0a 19 85 80 80 ┆r occupies more than 'pos' Ёђђ┆
0x1b740…1b760 70 6f 73 69 74 69 6f 6e 73 2c 20 61 6c 6c 20 73 69 67 6e 69 66 69 63 61 6e 74 20 64 69 67 69 74 ┆positions, all significant digit┆
0x1b760…1b780 73 20 61 72 65 20 77 72 69 74 74 65 6e 20 28 69 6e 63 6c 75 73 69 76 65 20 61 20 70 6f 73 73 69 ┆s are written (inclusive a possi┆
0x1b780…1b7a0 62 6c 65 20 0a 19 85 80 80 6d 69 6e 75 73 20 73 69 67 6e 29 2e 20 0d 0a 16 53 44 0d 0a 4f 75 74 ┆ble Ёђђminus sign). SD Out┆
0x1b7a0…1b7c0 65 6e 64 0d 0a 8c 84 a8 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 75 74 65 6e 64 be 28 56 41 ┆end їёе PROCEDURE ┐▄пoutendЙ(VA┆
0x1b7c0…1b7e0 52 20 7a 3a 20 7a 6f 6e 65 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 ┆R z: zone); Defined in ioenv┆
0x1b7e0…1b800 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 73 69 67 6e 61 6c 73 20 68 65 20 63 75 72 72 65 6e 74 20 6d ┆. - ёsignals he current m┆
0x1b800…1b820 65 73 73 61 67 65 20 27 7a 2e 63 75 72 27 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 6d 61 69 ┆essage 'z.cur' to the driver mai┆
0x1b820…1b840 6c 62 6f 78 20 0a 19 85 80 80 27 7a 2e 64 72 69 76 65 72 5e 88 7c 27 2e 20 0d 0a 16 53 44 0d 0a ┆lbox Ёђђ'z.driver^ѕ|'. SD ┆
0x1b840…1b860 4f 75 74 66 69 6c 6c 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 75 74 66 69 6c 6c be 28 56 ┆Outfill PROCEDURE ┐▄пoutfillЙ(V┆
0x1b860…1b880 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 66 69 6c 6c 65 72 3a 20 63 68 61 72 3b 20 72 65 70 3a 20 69 ┆AR z: zone; filler: char; rep: i┆
0x1b880…1b8a0 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d ┆nteger); Defined in ioenv. ┆
0x1b8a0…1b8c0 0a 0d 0a 20 20 20 2d 20 84 72 65 70 65 61 74 73 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 27 ┆ - ёrepeats the character '┆
0x1b8c0…1b8e0 66 69 6c 6c 65 72 27 2c 20 27 72 65 70 27 20 74 69 6d 65 73 2e 20 0d 0a 0d 0a 49 66 20 27 72 65 ┆filler', 'rep' times. If 're┆
0x1b8e0…1b900 70 27 20 69 73 20 6e 65 67 61 74 69 76 65 2c 20 6e 6f 20 66 69 6c 6c 20 63 68 61 72 61 63 74 65 ┆p' is negative, no fill characte┆
0x1b900…1b920 72 20 69 73 20 77 72 69 74 74 65 6e 2e 20 0d 0a 16 53 44 0d 0a 4f 75 74 68 65 78 0d 0a 50 52 4f ┆r is written. SD Outhex PRO┆
0x1b920…1b940 43 45 44 55 52 45 20 bf dc d8 6f 75 74 68 65 78 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 69 ┆CEDURE ┐▄пouthexЙ(VAR z: zone; i┆
0x1b940…1b960 2c 20 70 6f 73 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 ┆, pos: integer); Defined in ┆
0x1b960…1b980 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 72 69 74 65 73 20 74 68 65 20 6e 75 6d 62 ┆ioenv. - ёwrites the numb┆
0x1b980…1b9a0 65 72 20 27 69 27 20 69 6e 20 68 65 78 61 64 65 63 69 6d 61 6c 20 66 6f 72 6d 2e 20 49 66 20 70 ┆er 'i' in hexadecimal form. If p┆
0x1b9a0…1b9c0 6f 73 20 69 73 20 67 72 65 61 74 65 72 20 0a 19 85 80 80 74 68 61 6e 20 66 6f 75 72 2c 20 70 6f ┆os is greater Ёђђthan four, po┆
0x1b9c0…1b9e0 73 20 2d 34 20 73 70 61 63 65 20 63 68 61 72 61 63 74 65 72 73 20 61 72 65 20 70 72 65 66 69 78 ┆s -4 space characters are prefix┆
0x1b9e0…1ba00 65 64 20 74 68 65 20 6e 75 6d 62 65 72 2e 20 49 66 20 0a 19 85 80 80 27 70 6f 73 27 20 69 73 20 ┆ed the number. If Ёђђ'pos' is ┆
0x1ba00…1ba20 6c 65 73 73 20 74 68 61 6e 20 66 6f 75 72 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 73 ┆less than four, the following is┆
0x1ba20…1ba40 20 76 61 6c 69 64 2e 20 49 66 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 63 80 0a 19 85 80 80 63 75 ┆ valid. If the number ocђ Ёђђcu┆
0x1ba40…1ba60 70 69 65 73 20 6d 6f 72 65 20 74 68 61 6e 20 27 70 6f 73 27 20 70 6f 73 69 74 69 6f 6e 73 2c 20 ┆pies more than 'pos' positions, ┆
0x1ba60…1ba80 74 68 65 6e 20 6e 75 6d 62 65 72 20 69 73 20 70 72 69 6e 74 65 64 20 61 73 20 66 6f 75 72 20 0a ┆then number is printed as four ┆
0x1ba80…1baa0 19 85 80 80 68 65 78 20 63 68 61 72 61 63 74 65 72 73 2e 20 49 66 20 74 68 65 20 6e 75 6d 62 65 ┆ Ёђђhex characters. If the numbe┆
0x1baa0…1bac0 72 20 6f 63 63 75 70 69 65 73 20 6c 65 73 73 20 74 68 61 6e 20 27 70 6f 73 27 20 70 6f 73 69 74 ┆r occupies less than 'pos' posit┆
0x1bac0…1bae0 69 6f 6e 73 2c 20 0a 19 85 80 80 74 68 65 20 6e 75 6d 62 65 72 20 69 73 20 70 72 65 66 69 78 65 ┆ions, Ёђђthe number is prefixe┆
0x1bae0…1bb00 64 20 61 20 6e 75 6d 62 65 72 20 6f 66 20 7a 65 72 6f 65 73 20 74 6f 20 66 69 6c 6c 20 74 68 65 ┆d a number of zeroes to fill the┆
0x1bb00…1bb20 20 27 70 6f 73 27 20 70 6f 73 69 80 0a 19 85 80 80 74 69 6f 6e 73 2e 20 0d 0a 16 53 44 0d 0a 4f ┆ 'pos' posiђ Ёђђtions. SD O┆
0x1bb20…1bb40 75 74 69 6e 74 65 67 65 72 0d 0a 8c 85 88 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 75 74 69 ┆utinteger їЁѕ PROCEDURE ┐▄пouti┆
0x1bb40…1bb60 6e 74 65 67 65 72 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 69 2c 20 70 6f 73 3a 20 69 6e 74 ┆ntegerЙ(VAR z: zone; i, pos: int┆
0x1bb60…1bb80 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d ┆eger); Defined in ioenv. ┆
0x1bb80…1bba0 0a 20 20 20 2d 20 84 77 72 69 74 65 73 20 74 68 65 20 6e 75 6d 62 65 72 20 27 69 27 20 6f 6e 20 ┆ - ёwrites the number 'i' on ┆
0x1bba0…1bbc0 64 65 63 69 6d 61 6c 20 66 6f 72 6d 2e 20 49 66 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 63 63 75 ┆decimal form. If the number occu┆
0x1bbc0…1bbe0 70 69 65 73 20 0a 19 85 80 80 6c 65 73 73 20 74 68 61 6e 20 27 70 6f 73 27 20 70 6f 73 69 74 69 ┆pies Ёђђless than 'pos' positi┆
0x1bbe0…1bc00 6f 6e 73 20 28 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20 27 2d 27 20 63 68 61 72 61 63 74 65 72 ┆ons (including the '-' character┆
0x1bc00…1bc20 2c 20 69 66 20 0a 19 85 80 80 6e 65 67 61 74 69 76 65 29 2c 20 74 68 65 20 6e 75 6d 62 65 72 20 ┆, if Ёђђnegative), the number ┆
0x1bc20…1bc40 69 73 20 70 72 65 66 69 78 65 64 20 61 20 6e 75 6d 62 65 72 20 6f 66 20 73 70 61 63 65 73 20 74 ┆is prefixed a number of spaces t┆
0x1bc40…1bc60 6f 20 66 69 6c 6c 20 74 68 65 20 0a 19 85 80 80 27 70 6f 73 27 20 70 6f 73 69 80 74 69 6f 6e 73 ┆o fill the Ёђђ'pos' posiђtions┆
0x1bc60…1bc80 2e 20 49 66 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 63 63 75 70 69 65 73 20 6d 6f 72 65 20 74 68 ┆. If the number occupies more th┆
0x1bc80…1bca0 61 6e 20 27 70 6f 73 27 20 0a 19 85 80 80 70 6f 73 69 74 69 6f 6e 73 2c 20 61 6c 6c 20 73 69 67 ┆an 'pos' Ёђђpositions, all sig┆
0x1bca0…1bcc0 6e 69 66 69 63 61 6e 74 20 64 69 67 69 74 73 20 61 72 65 20 77 72 69 74 74 65 6e 20 28 69 6e 63 ┆nificant digits are written (inc┆
0x1bcc0…1bce0 6c 75 73 69 76 65 20 61 20 70 6f 73 73 69 62 6c 65 20 0a 19 85 80 80 6d 69 6e 75 73 20 73 69 67 ┆lusive a possible Ёђђminus sig┆
0x1bce0…1bd00 6e 29 2e 20 0d 0a 16 53 44 0d 0a 4f 75 74 6e 6c 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f ┆n). SD Outnl PROCEDURE ┐▄пo┆
0x1bd00…1bd20 75 74 6e 6c be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 ┆utnlЙ(VAR z: zone); Defined ┆
0x1bd20…1bd40 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 72 69 74 65 73 20 74 68 65 20 63 ┆in ioenv. - ёwrites the c┆
0x1bd40…1bd60 68 61 72 61 63 74 65 72 20 6e 6c 20 61 6e 64 20 73 69 67 6e 61 6c 73 20 74 68 65 20 6d 65 73 73 ┆haracter nl and signals the mess┆
0x1bd60…1bd80 61 67 65 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 62 79 20 0a 19 85 80 80 63 61 6c 6c 69 6e ┆age to the driver by Ёђђcallin┆
0x1bd80…1bda0 67 20 6f 75 74 65 6e 64 2e 20 0d 0a 16 53 44 0d 0a 4f 75 74 74 65 78 74 0d 0a 50 52 4f 43 45 44 ┆g outend. SD Outtext PROCED┆
0x1bda0…1bdc0 55 52 45 20 bf dc d8 6f 75 74 74 65 78 74 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 74 65 78 ┆URE ┐▄пouttextЙ(VAR z: zone; tex┆
0x1bdc0…1bde0 74 3a 20 61 6c 66 61 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 0d 0a 0d ┆t: alfa); Not predefined. ┆
0x1bde0…1be00 0a 20 20 20 2d 20 84 77 6f 72 6b 73 20 61 73 20 6f 75 74 61 6c 66 61 2c 20 77 68 69 63 68 20 73 ┆ - ёworks as outalfa, which s┆
0x1be00…1be20 68 6f 75 6c 64 20 62 65 20 75 73 65 64 20 69 6e 73 74 65 61 64 20 6f 66 20 6f 75 74 74 65 78 74 ┆hould be used instead of outtext┆
0x1be20…1be40 2e 20 0d 0a 16 53 44 0d 0a 4f 75 74 74 69 6d 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f ┆. SD Outtime PROCEDURE ┐▄пo┆
0x1be40…1be60 75 74 74 69 6d 65 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 74 69 6d 65 3a 20 63 6f 64 65 64 ┆uttimeЙ(VAR z: zone; time: coded┆
0x1be60…1be80 5f 74 69 6d 65 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a ┆_time); Defined in ioenv. ┆
0x1be80…1bea0 0d 0a 20 20 20 2d 20 84 77 72 69 74 65 73 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 74 69 6d ┆ - ёwrites the parameter tim┆
0x1bea0…1bec0 65 20 77 69 74 68 20 74 68 65 20 6c 61 79 6f 75 74 3a 20 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 ┆e with the layout: ┆
0x1bec0…1bee0 20 20 20 48 48 2e 4d 4d 20 0d 0a 0d 0a 54 68 65 20 74 79 70 65 20 63 6f 64 65 64 5f 74 69 6d 65 ┆ HH.MM The type coded_time┆
0x1bee0…1bf00 20 69 73 20 64 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 16 53 44 0d ┆ is defined in rc3502env. SD ┆
0x1bf00…1bf20 0a 50 72 69 6e 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 70 72 69 6e 74 be 28 56 41 52 20 ┆ Print PROCEDURE ┐▄пprintЙ(VAR ┆
0x1bf20…1bf40 7a 3a 20 7a 6f 6e 65 3b 20 62 61 73 65 3a 20 62 79 74 65 3b 20 66 69 72 73 74 5f 64 69 73 70 2c ┆z: zone; base: byte; first_disp,┆
0x1bf40…1bf60 20 6c 61 73 74 5f 64 69 73 70 2c 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 ┆ last_disp, word┆
0x1bf60…1bf80 73 5f 70 65 72 5f 6c 69 6e 65 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 ┆s_per_line: integer); Not pr┆
0x1bf80…1bfa0 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 70 72 69 6e 74 73 20 74 68 65 20 6d ┆edefined. - ёprints the m┆
0x1bfa0…1bfc0 65 6d 6f 72 79 20 77 6f 72 64 73 3a 20 0d 0a 0d 0a 20 20 20 20 20 27 62 61 73 65 2e 66 69 72 73 ┆emory words: 'base.firs┆
0x1bfc0…1bfe0 74 5f 64 69 73 70 27 20 74 68 72 6f 75 67 68 20 27 62 61 73 65 2e 6c 61 73 74 5f 64 69 73 70 27 ┆t_disp' through 'base.last_disp'┆
0x1bfe0…1c000 20 0d 0a 0d 0a 77 69 74 68 20 74 68 65 20 6c 61 79 6f 75 74 3a 20 0d 0a 0d 0a 0e 0a 3c 61 64 64 ┆ with the layout: <add┆
0x1c000…1c020 72 65 73 73 3e 20 20 7b 3c 77 6f 72 64 20 68 65 78 3e 20 3c 77 6f 72 64 20 64 65 63 69 6d 61 6c ┆ress> {<word hex> <word decimal┆
0x1c020…1c040 3e 20 3c 4d 53 42 20 64 65 63 69 6d 61 6c 3e 20 0d 0a 0d 0a 09 09 09 20 20 20 20 20 20 20 20 20 ┆> <MSB decimal> ┆
0x1c040…1c060 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 73 5f 70 65 72 5f 6c 69 6e 65 20 20 0d 0a 09 3c 4c ┆ words_per_line <L┆
0x1c060…1c080 53 42 1f 64 65 63 69 6d 61 6c 3e 20 3c 4d 53 42 20 63 68 61 72 3e 20 3c 4c 53 42 20 63 68 61 72 ┆SB decimal> <MSB char> <LSB char┆
0x1c080…1c0a0 3e 7d 20 20 20 20 20 20 20 20 20 20 20 3c 6e 6c 3e 0d 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 ┆>} <nl> ┆
0x1c0a0…1c0c0 20 20 20 20 20 20 20 20 20 20 31 20 0d 0a 0f 0a 0d 0a 8c 89 c8 0a 54 68 65 20 70 72 6f 63 65 64 ┆ 1 їЅ╚ The proced┆
0x1c0c0…1c0e0 75 72 65 20 74 65 72 6d 69 6e 61 74 65 73 20 69 66 20 74 68 65 20 27 73 74 61 74 65 27 20 66 69 ┆ure terminates if the 'state' fi┆
0x1c0e0…1c100 65 6c 64 20 6f 66 20 74 68 65 20 7a 6f 6e 65 20 62 65 63 6f 6d 65 73 20 6e 6f 74 20 0a 4f 4b 20 ┆eld of the zone becomes not OK ┆
0x1c100…1c120 28 3c 3e 30 29 2e 20 0d 0a 16 53 44 0d 0a 50 72 69 6e 74 5f 64 65 73 63 72 69 70 74 6f 72 0d 0a ┆(<>0). SD Print_descriptor ┆
0x1c120…1c140 50 52 4f 43 45 44 55 52 45 20 bf dc d8 70 72 69 6e 74 5f 64 65 73 63 72 69 70 74 6f 72 be 28 56 ┆PROCEDURE ┐▄пprint_descriptorЙ(V┆
0x1c140…1c160 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆AR z: zone; ┆
0x1c160…1c180 20 20 20 20 56 41 52 20 64 3a 20 6c 6f 6f 6b 75 70 5f 64 65 73 63 72 69 70 74 6f 72 5f 73 65 67 ┆ VAR d: lookup_descriptor_seg┆
0x1c180…1c1a0 6d 65 6e 74 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 ┆ment); Not predefined. ┆
0x1c1a0…1c1c0 20 20 2d 20 84 70 72 69 6e 74 73 20 73 65 6c 65 63 74 65 64 20 66 69 65 6c 64 73 20 66 72 6f 6d ┆ - ёprints selected fields from┆
0x1c1c0…1c1e0 20 74 68 65 20 74 79 70 65 20 6c 6f 6f 6b 75 70 5f 64 65 73 63 72 69 70 80 74 6f 72 5f 73 65 67 ┆ the type lookup_descripђtor_seg┆
0x1c1e0…1c200 6d 65 6e 74 2c 20 0a 19 85 80 80 77 68 69 63 68 20 69 73 20 64 65 66 69 6e 65 64 20 69 6e 20 72 ┆ment, Ёђђwhich is defined in r┆
0x1c200…1c220 63 33 35 30 32 65 6e 76 20 77 69 74 68 20 74 68 65 20 6c 61 79 6f 75 74 3a 20 0d 0a 0d 0a 20 20 ┆c3502env with the layout: ┆
0x1c220…1c240 20 20 20 84 3c 6b 69 6e 64 3e 20 3c 6e 61 6d 65 3e 20 3c 73 6f 75 72 63 65 20 64 61 74 65 3e 20 ┆ ё<kind> <name> <source date> ┆
0x1c240…1c260 3c 6f 62 6a 65 63 74 20 64 61 74 65 3e 20 3c 76 65 72 73 69 6f 6e 3e 20 0d 0a 20 20 20 20 20 3c ┆<object date> <version> <┆
0x1c260…1c280 70 72 6f 67 72 61 6d 20 73 69 7a 65 3e 20 3c 6e 6f 5f 6f 66 5f 70 61 67 65 73 3e 20 3c 70 61 67 ┆program size> <no_of_pages> <pag┆
0x1c280…1c2a0 65 73 69 7a 65 3e 20 3c 6c 61 73 74 5f 70 61 67 65 5f 6c 65 6e 67 74 68 3e 20 0d 0a 20 20 20 20 ┆esize> <last_page_length> ┆
0x1c2a0…1c2c0 20 3c 64 65 66 61 75 6c 74 20 61 70 70 65 74 69 74 65 3e 20 3c 6e 6f 5f 6f 66 5f 70 61 72 61 6d ┆ <default appetite> <no_of_param┆
0x1c2c0…1c2e0 73 3e 20 3c 6e 6c 3e 20 0d 0a 0d 0a 20 20 20 20 20 20 3c 6b 69 6e 64 3e 3a 3a 3d 20 50 52 4f 47 ┆s> <nl> <kind>::= PROG┆
0x1c2e0…1c300 52 41 4d 20 7c 20 50 52 4f 43 45 44 55 52 45 20 7c 20 46 55 4e 43 54 49 4f 4e 20 7c 20 44 41 54 ┆RAM | PROCEDURE | FUNCTION | DAT┆
0x1c300…1c320 41 0d 0a 0d 0a 41 20 72 65 63 6f 72 64 20 6f 66 20 74 79 70 65 20 6c 6f 6f 6b 75 70 5f 64 65 73 ┆A A record of type lookup_des┆
0x1c320…1c340 63 72 69 70 74 6f 72 5f 73 65 67 6d 65 6e 74 20 6d 61 79 20 62 65 20 6f 62 74 61 69 6e 65 64 20 ┆criptor_segment may be obtained ┆
0x1c340…1c360 62 79 20 6d 65 61 6e 73 20 0a 6f 66 20 74 68 65 20 27 73 65 6e 64 6c 69 6e 6b 65 72 28 6c 6f 6f ┆by means of the 'sendlinker(loo┆
0x1c360…1c380 6b 75 70 6e 61 6d 65 29 27 20 72 6f 75 74 69 6e 65 2e 20 53 65 65 20 33 2e 32 2e 32 35 2e 20 0d ┆kupname)' routine. See 3.2.25. ┆
0x1c380…1c3a0 0a 16 53 44 0d 0a 50 72 69 6e 74 6d 65 73 73 61 67 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc ┆ SD Printmessage PROCEDURE ┐▄┆
0x1c3a0…1c3c0 d8 70 72 69 6e 74 6d 65 73 73 61 67 65 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 ┆пprintmessageЙ(VAR z: zone; VAR ┆
0x1c3c0…1c3e0 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 66 69 72 73 74 69 6e 64 65 78 2c 0d 0a 20 20 20 20 20 ┆r: reference; firstindex, ┆
0x1c3e0…1c400 20 20 20 20 20 20 20 20 20 6c 61 73 74 69 6e 64 65 78 2c 20 77 6f 72 64 73 5f 70 65 72 5f 6c 69 ┆ lastindex, words_per_li┆
0x1c400…1c420 6e 65 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 ┆ne: integer); Defined in ioe┆
0x1c420…1c440 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 70 72 69 6e 74 73 20 74 68 65 20 61 74 74 72 69 62 75 ┆nv. - ёprints the attribu┆
0x1c440…1c460 74 65 73 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 20 61 6e 64 20 74 68 65 20 73 70 65 63 69 ┆tes of the message and the speci┆
0x1c460…1c480 66 69 65 64 20 64 61 74 61 20 61 72 65 61 2e 20 0a 19 85 80 80 54 68 65 20 6d 65 73 73 61 67 65 ┆fied data area. ЁђђThe message┆
0x1c480…1c4a0 20 62 75 66 66 65 72 20 69 73 20 73 75 70 70 6f 73 65 64 20 74 6f 20 62 65 20 6f 66 20 74 79 70 ┆ buffer is supposed to be of typ┆
0x1c4a0…1c4c0 65 3a 20 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 3d 20 41 52 52 41 59 ┆e: buffer= ARRAY┆
0x1c4c0…1c4e0 20 28 30 2e 2e 6d 61 78 29 20 4f 46 20 62 79 74 65 20 0d 0a 0d 0a 54 68 65 20 70 72 69 6e 74 65 ┆ (0..max) OF byte The printe┆
0x1c4e0…1c500 64 20 61 72 65 61 20 69 73 20 66 72 6f 6d 20 27 62 75 66 66 65 72 28 66 69 72 73 74 69 6e 64 65 ┆d area is from 'buffer(firstinde┆
0x1c500…1c520 78 29 27 20 74 6f 20 27 62 75 66 66 65 72 28 6c 61 73 74 69 6e 64 65 78 29 27 2e 20 0a 16 53 43 ┆x)' to 'buffer(lastindex)'. SC┆
0x1c520…1c540 0d 0a 49 6e 70 75 74 0d 0a 54 68 65 20 bf dc d8 69 6e 70 75 74 be 20 70 72 6f 63 65 64 75 72 65 ┆ Input The ┐▄пinputЙ procedure┆
0x1c540…1c560 73 20 63 6f 6e 73 69 73 74 20 6f 66 20 72 6f 75 74 69 6e 65 73 20 66 6f 72 20 63 6f 6d 6d 75 6e ┆s consist of routines for commun┆
0x1c560…1c580 69 63 61 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 0a 64 72 69 76 65 72 20 28 4f 50 45 52 41 54 ┆ication with the driver (OPERAT┆
0x1c580…1c5a0 4f 52 29 20 70 72 6f 63 65 73 73 2c 20 69 2e 65 2e 20 6f 70 69 6e 20 61 6e 64 20 6f 70 77 61 69 ┆OR) process, i.e. opin and opwai┆
0x1c5a0…1c5c0 74 2c 20 62 65 73 69 64 65 73 20 61 20 73 65 74 20 6f 66 20 0a 72 6f 75 74 69 6e 65 73 20 66 6f ┆t, besides a set of routines fo┆
0x1c5c0…1c5e0 72 20 63 6f 6e 76 65 72 74 69 6e 67 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 61 6e 20 ┆r converting the contents of an ┆
0x1c5e0…1c600 69 6e 70 75 74 20 6d 65 73 73 61 67 65 20 74 6f 20 76 61 72 69 61 62 6c 65 73 20 0a 6f 66 20 74 ┆input message to variables of t┆
0x1c600…1c620 79 70 65 20 27 63 68 61 72 27 2c 20 27 69 6e 74 65 67 65 72 27 2c 20 27 64 6f 75 62 6c 65 27 2c ┆ype 'char', 'integer', 'double',┆
0x1c620…1c640 20 6f 72 20 27 61 6c 66 61 27 2e 20 0d 0a 0d 0a 49 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 ┆ or 'alfa'. If the process w┆
0x1c640…1c660 61 6e 74 73 20 74 6f 20 62 65 20 61 63 74 69 76 61 74 65 64 20 6f 6e 6c 79 20 77 68 65 6e 20 61 ┆ants to be activated only when a┆
0x1c660…1c680 6e 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 20 72 65 80 0a 74 75 72 6e 73 20 66 72 6f 6d 20 74 ┆n input message reђ turns from t┆
0x1c680…1c6a0 68 65 20 64 72 69 76 65 72 2c 20 69 74 20 75 73 65 73 20 61 20 6d 61 69 6c 62 6f 78 20 70 6f 69 ┆he driver, it uses a mailbox poi┆
0x1c6a0…1c6c0 6e 74 65 72 20 77 69 74 68 20 76 61 6c 75 65 20 6e 69 6c 20 61 73 20 74 68 65 20 0a 61 63 74 75 ┆nter with value nil as the actu┆
0x1c6c0…1c6e0 61 6c 20 70 61 72 61 80 6d 65 80 74 65 72 20 27 61 6e 73 77 65 72 27 20 69 6e 20 74 68 65 20 63 ┆al paraђmeђter 'answer' in the c┆
0x1c6e0…1c700 61 6c 6c 20 6f 66 20 6f 70 65 6e 7a 6f 6e 65 20 6f 72 20 6f 80 70 65 6e 80 6f 70 7a 6f 6e 65 2e ┆all of openzone or oђpenђopzone.┆
0x1c700…1c720 0d 0a 0d 0a 8c 87 d8 0a 4d 6f 72 65 20 63 6f 6d 6d 6f 6e 6c 79 2c 20 74 68 65 20 70 72 6f 63 65 ┆ їЄп More commonly, the proce┆
0x1c720…1c740 73 73 20 69 73 20 61 6c 73 6f 20 61 63 74 69 76 61 74 65 64 20 62 79 20 6f 74 68 65 72 20 65 76 ┆ss is also activated by other ev┆
0x1c740…1c760 65 6e 74 73 2e 20 49 6e 20 74 68 61 74 20 0a 73 69 74 75 61 74 69 6f 6e 2c 20 69 74 20 73 70 65 ┆ents. In that situation, it spe┆
0x1c760…1c780 63 69 66 69 65 73 20 61 20 6d 61 69 6c 62 6f 78 20 70 6f 69 6e 74 65 72 20 77 68 69 63 68 20 69 ┆cifies a mailbox pointer which i┆
0x1c780…1c7a0 73 20 6e 6f 74 20 6e 69 6c 20 61 73 20 74 68 65 20 61 63 74 75 61 6c 20 0a 70 61 72 61 6d 65 74 ┆s not nil as the actual paramet┆
0x1c7a0…1c7c0 65 72 20 27 61 6e 73 77 65 72 27 20 69 6e 20 74 68 65 20 63 61 6c 6c 20 6f 66 20 6f 70 65 6e 7a ┆er 'answer' in the call of openz┆
0x1c7c0…1c7e0 6f 6e 65 20 6f 72 20 6f 80 70 65 6e 80 6f 70 7a 6f 6e 65 20 61 6e 64 20 75 73 65 73 20 0a 6f 80 ┆one or oђpenђopzone and uses oђ┆
0x1c7e0…1c800 70 61 6e 73 77 80 65 72 20 74 6f 20 70 6c 61 63 65 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 6e ┆panswђer to place the message in┆
0x1c800…1c820 20 74 68 65 20 69 6e 70 75 74 20 7a 6f 6e 65 20 66 6f 72 20 66 75 72 74 68 65 72 20 72 65 61 80 ┆ the input zone for further reaђ┆
0x1c820…1c840 64 69 6e 67 2e 20 0d 0a 16 53 44 0d 0a 49 6e 63 68 61 72 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf ┆ding. SD Inchar PROCEDURE ┐┆
0x1c840…1c860 dc d8 69 6e 63 68 61 72 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 63 68 3a 20 63 ┆▄пincharЙ(VAR z: zone; VAR ch: c┆
0x1c860…1c880 68 61 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a ┆har); Defined in ioenv. ┆
0x1c880…1c8a0 20 20 20 2d 20 84 74 68 65 20 6e 65 78 74 20 63 68 61 72 61 63 74 65 72 20 66 72 6f 6d 20 74 68 ┆ - ёthe next character from th┆
0x1c8a0…1c8c0 65 20 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 20 27 7a 2e 63 75 72 27 20 69 73 20 72 65 61 ┆e current message 'z.cur' is rea┆
0x1c8c0…1c8e0 64 2e 20 0d 0a 0d 0a 49 66 20 74 68 65 20 6d 65 73 73 61 67 65 20 62 65 63 6f 6d 65 73 20 65 6d ┆d. If the message becomes em┆
0x1c8e0…1c900 70 74 79 2c 20 69 74 20 69 73 20 73 69 67 6e 61 6c 6c 65 64 20 74 6f 20 27 7a 2e 66 72 65 65 27 ┆pty, it is signalled to 'z.free'┆
0x1c900…1c920 2e 20 0d 0a 0d 0a 41 66 74 65 72 20 74 68 65 20 63 61 6c 6c 20 74 68 65 20 76 61 72 69 61 62 6c ┆. After the call the variabl┆
0x1c920…1c940 65 20 27 7a 2e 72 65 61 64 73 74 61 74 65 27 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 73 74 ┆e 'z.readstate' indicates the st┆
0x1c940…1c960 61 74 65 20 6f 66 20 74 68 65 20 0a 7a 6f 6e 65 20 77 69 74 68 20 74 68 65 20 69 6e 74 65 72 70 ┆ate of the zone with the interp┆
0x1c960…1c980 72 65 74 61 74 69 6f 6e 3a 20 0d 0a 0d 0a 20 7a 2e 72 65 61 64 73 74 61 74 65 20 20 20 20 20 20 ┆retation: z.readstate ┆
0x1c980…1c9a0 20 20 0d 0a 20 20 20 20 20 30 20 20 20 20 20 20 20 20 53 75 63 63 65 73 73 66 75 6c 20 72 65 61 ┆ 0 Successful rea┆
0x1c9a0…1c9c0 64 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 2d 20 31 20 20 20 20 20 20 20 20 ┆ding. - 1 ┆
0x1c9c0…1c9e0 84 54 68 69 73 20 6d 65 73 73 61 67 65 20 77 61 73 20 65 6d 70 74 79 20 62 65 66 6f 72 65 20 63 ┆ёThis message was empty before c┆
0x1c9e0…1ca00 61 6c 6c 2e 20 54 68 65 20 63 68 61 72 61 63 74 65 72 20 6e 6c 20 0a 19 8e 80 80 69 73 20 72 65 ┆all. The character nl јђђis re┆
0x1ca00…1ca20 74 75 72 6e 65 64 2e 20 20 20 20 20 20 20 0a 16 53 44 0d 0a 49 6e 64 6f 75 62 6c 65 0d 0a 50 52 ┆turned. SD Indouble PR┆
0x1ca20…1ca40 4f 43 45 44 55 52 45 20 bf dc d8 69 6e 64 6f 75 62 6c 65 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 ┆OCEDURE ┐▄пindoubleЙ(VAR z: zone┆
0x1ca40…1ca60 3b 20 56 41 52 20 64 3a 20 64 6f 75 62 6c 65 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e ┆; VAR d: double); Defined in┆
0x1ca60…1ca80 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 6f 72 6b 73 20 61 73 20 69 6e 69 6e 74 ┆ ioenv. - ёworks as inint┆
0x1ca80…1caa0 65 67 65 72 20 65 78 63 65 70 74 20 74 68 61 74 20 72 65 61 64 69 6e 67 20 69 73 20 69 6e 20 74 ┆eger except that reading is in t┆
0x1caa0…1cac0 68 65 20 72 61 6e 67 65 20 0a 19 85 80 80 1e 32 31 34 37 34 38 33 36 34 38 2e 2e 32 31 34 37 34 ┆he range Ёђђ 2147483648..21474┆
0x1cac0…1cae0 38 33 36 34 37 2e 20 0d 0a 16 53 44 0d 0a 49 6e 68 65 78 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf ┆83647. SD Inhex PROCEDURE ┐┆
0x1cae0…1cb00 dc d8 69 6e 68 65 78 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 69 3a 20 69 6e 74 ┆▄пinhexЙ(VAR z: zone; VAR i: int┆
0x1cb00…1cb20 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d ┆eger); Defined in ioenv. ┆
0x1cb20…1cb40 0a 20 20 20 2d 20 84 72 65 61 64 73 20 61 20 68 65 78 61 64 65 63 69 6d 61 6c 20 6e 75 6d 62 65 ┆ - ёreads a hexadecimal numbe┆
0x1cb40…1cb60 72 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 70 73 65 75 64 6f 20 73 79 6e 74 61 78 ┆r according to the pseudo syntax┆
0x1cb60…1cb80 3a 20 0d 0a 0d 0a 20 20 20 20 20 7b 3c 6e 6f 6e 20 68 65 78 20 64 69 67 69 74 3e 7d 81 2a 82 20 ┆: {<non hex digit>}Ђ*ѓ ┆
0x1cb80…1cba0 20 7b 3c 68 65 78 20 64 69 67 69 74 3e 7d 81 2b 82 20 20 20 0d 0a 0d 0a 20 20 20 20 7a 2e 72 65 ┆ {<hex digit>}Ђ+ѓ z.re┆
0x1cba0…1cbc0 61 64 73 74 61 74 65 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 ┆adstate 0 ┆
0x1cbc0…1cbe0 41 74 20 6c 65 61 73 74 20 6f 6e 65 20 68 65 78 20 64 69 67 69 74 20 69 73 20 72 65 61 64 2e 20 ┆At least one hex digit is read. ┆
0x1cbe0…1cc00 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 2d 20 31 20 20 20 20 20 20 20 84 4e 6f 20 68 65 78 20 ┆ - 1 ёNo hex ┆
0x1cc00…1cc20 64 69 67 69 74 20 77 61 73 20 6d 65 74 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 20 54 68 65 ┆digit was met in the buffer. The┆
0x1cc20…1cc40 20 76 61 6c 75 65 20 30 20 0a 19 92 80 80 69 73 20 72 65 74 75 72 6e 65 64 20 61 6e 64 20 74 68 ┆ value 0 њђђis returned and th┆
0x1cc40…1cc60 65 20 62 75 66 66 65 72 20 69 73 20 65 6d 70 74 79 0d 0a 0d 0a 48 65 78 20 64 69 67 69 74 73 20 ┆e buffer is empty Hex digits ┆
0x1cc60…1cc80 61 72 65 20 72 65 61 64 20 61 73 20 6c 6f 6e 67 20 61 73 20 74 68 65 20 6e 75 6d 62 65 72 20 69 ┆are read as long as the number i┆
0x1cc80…1cca0 73 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 0a 23 68 30 30 30 30 2e 2e 23 68 46 46 46 46 2e 20 ┆s in the range #h0000..#hFFFF. ┆
0x1cca0…1ccc0 0d 0a 16 53 44 0d 0a 49 6e 69 6e 74 65 67 65 72 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 69 ┆ SD Ininteger PROCEDURE ┐▄пi┆
0x1ccc0…1cce0 6e 69 6e 74 65 67 65 72 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 69 3a 20 69 6e ┆nintegerЙ(VAR z: zone; VAR i: in┆
0x1cce0…1cd00 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a ┆teger); Defined in ioenv. ┆
0x1cd00…1cd20 0d 0a 20 20 20 2d 20 84 72 65 61 64 73 20 61 20 64 65 63 69 6d 61 6c 20 6e 75 6d 62 65 72 20 61 ┆ - ёreads a decimal number a┆
0x1cd20…1cd40 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 70 73 65 75 64 6f 20 73 79 6e 74 61 78 3a 20 0d ┆ccording to the pseudo syntax: ┆
0x1cd40…1cd60 0a 0d 0a 20 20 20 7b 3c 6e 6f 6e 64 69 67 69 74 3e 7d 81 2a 82 20 20 3c 73 69 67 6e 3e 7b 3c 64 ┆ {<nondigit>}Ђ*ѓ <sign>{<d┆
0x1cd60…1cd80 69 67 69 74 3e 7d 81 2b 82 20 20 0d 0a 0d 0a 20 20 20 3c 73 69 67 6e 3e 3a 3a 3d 20 2b 20 7c 20 ┆igit>}Ђ+ѓ <sign>::= + | ┆
0x1cd80…1cda0 2d 20 7c 20 3c 65 6d 70 74 79 3e 0d 0a 0d 0a 44 69 67 69 74 73 20 61 72 65 20 72 65 61 64 20 61 ┆- | <empty> Digits are read a┆
0x1cda0…1cdc0 73 20 6c 6f 6e 67 20 61 73 20 74 68 65 20 6e 75 6d 62 65 72 20 69 73 20 69 6e 20 74 68 65 20 72 ┆s long as the number is in the r┆
0x1cdc0…1cde0 61 6e 67 65 20 2d 33 32 37 36 38 2e 2e 33 32 37 36 37 2e 20 0d 0a 0d 0a 20 20 7a 2e 72 65 61 64 ┆ange -32768..32767. z.read┆
0x1cde0…1ce00 73 74 61 74 65 20 20 0d 0a 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 41 74 20 6c 65 61 73 ┆state 0 At leas┆
0x1ce00…1ce20 74 20 6f 6e 65 20 64 69 67 69 74 20 69 73 20 72 65 61 64 2e 20 20 20 20 20 20 20 20 20 0d 0a 20 ┆t one digit is read. ┆
0x1ce20…1ce40 20 20 20 20 20 2d 20 31 20 20 20 20 20 20 20 84 4e 6f 20 64 69 67 69 74 20 77 61 73 20 6d 65 74 ┆ - 1 ёNo digit was met┆
0x1ce40…1ce60 20 69 6e 20 74 68 65 20 6d 65 73 73 61 67 65 2e 20 54 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 ┆ in the message. The message is ┆
0x1ce60…1ce80 0a 19 90 80 80 65 6d 70 74 79 20 61 6e 64 20 74 68 65 20 76 61 6c 75 65 20 30 20 69 73 20 72 65 ┆ љђђempty and the value 0 is re┆
0x1ce80…1cea0 74 75 72 6e 65 64 2e 20 20 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 ┆turned. -L A1@ ┆
0x1cea0…1cec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e 2d ff ff ff ff ff ff ff ff ┆ - ┆
0x1cec0…1cee0 ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x1cee0…1cf00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a ┆ ┆
0x1cf00…1cf20 0e 0a 45 78 61 6d 70 6c 65 73 3a 0a 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 ┆ Examples: -L A1@ ┆
0x1cf20…1cf40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e 2d 36 ff ff ff ff ff ff ff ff ┆ -6 ┆
0x1cf40…1cf60 ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x1cf60…1cf80 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 09 ┆ - ┆
0x1cf80…1cfa0 49 6e 70 75 74 09 09 52 65 73 75 6c 74 28 69 29 3a 20 0d 0a 20 20 20 20 20 7c 88 76 20 20 20 20 ┆Input Result(i): |ѕv ┆
0x1cfa0…1cfc0 20 20 20 20 20 7c 88 76 0d 0a 20 20 20 20 20 61 20 62 20 63 20 31 20 32 20 2a 20 61 20 62 20 63 ┆ |ѕv a b c 1 2 * a b c┆
0x1cfc0…1cfe0 20 64 20 65 09 07 31 32 0d 0a 20 20 20 20 20 7c 88 76 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ d e 12 |ѕv ┆
0x1cfe0…1d000 20 20 20 20 20 7c 88 76 0d 0a 20 20 20 20 20 61 20 62 20 63 20 2b 20 2d 20 2d 20 2b 20 31 20 37 ┆ |ѕv a b c + - - + 1 7┆
0x1d000…1d020 20 39 20 61 20 62 09 07 31 37 39 0d 0a 20 20 20 20 20 7c 88 76 20 20 20 20 20 20 20 20 20 20 20 ┆ 9 a b 179 |ѕv ┆
0x1d020…1d040 20 20 20 20 20 20 20 20 20 20 20 20 7c 88 76 0d 0a 20 20 20 20 20 61 20 62 20 63 20 2b 20 2d 20 ┆ |ѕv a b c + - ┆
0x1d040…1d060 30 20 30 20 31 20 32 20 33 20 34 20 35 20 36 20 37 07 2d 31 32 33 34 35 0d 0a 20 20 20 20 20 7c ┆0 0 1 2 3 4 5 6 7 -12345 |┆
0x1d060…1d080 88 76 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 88 76 0d 0a 20 20 20 20 20 61 20 62 20 63 20 33 ┆ѕv |ѕv a b c 3┆
0x1d080…1d0a0 20 32 20 37 20 36 20 38 09 07 33 32 37 36 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 ┆ 2 7 6 8 3276 -L A┆
0x1d0a0…1d0c0 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e 2d ff ff ff ┆1@ - ┆
0x1d0c0…1d0e0 ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 ┆ -L A1@ ┆
0x1d0e0…1d100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e 2d 36 ff ff ff ff ff ff ff ff ff ┆ -6 ┆
0x1d100…1d120 ff ff ff 04 0a 28 7c 88 76 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 ┆ (|ѕv indicates the value of┆
0x1d120…1d140 20 6e 65 78 74 70 20 62 65 66 6f 72 65 20 61 6e 64 20 61 66 74 65 72 20 74 68 65 20 63 61 6c 6c ┆ nextp before and after the call┆
0x1d140…1d160 29 2e 20 0d 0a 0f 0a 16 53 44 0d 0a 49 6e 6e 61 6d 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc ┆). SD Inname PROCEDURE ┐▄┆
0x1d160…1d180 d8 69 6e 6e 61 6d 65 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 6e 61 6d 65 3a 20 ┆пinnameЙ(VAR z: zone; VAR name: ┆
0x1d180…1d1a0 61 6c 66 61 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d ┆alfa); Defined in ioenv. ┆
0x1d1a0…1d1c0 0a 20 20 20 2d 20 84 72 65 61 64 73 20 61 20 6e 61 6d 65 20 6f 66 20 6d 61 78 69 6d 75 6d 20 31 ┆ - ёreads a name of maximum 1┆
0x1d1c0…1d1e0 32 20 63 68 61 72 61 63 74 65 72 73 20 61 66 74 65 72 20 74 68 65 20 73 79 6e 74 61 78 3a 20 0d ┆2 characters after the syntax: ┆
0x1d1e0…1d200 0a 0d 0a 7b 3c 6e 6f 74 20 6c 65 74 74 65 72 20 6f 72 20 5f 3e 7d 81 2a 82 20 20 20 20 3c 6c 65 ┆ {<not letter or _>}Ђ*ѓ <le┆
0x1d200…1d220 74 74 65 72 20 6f 72 20 5f 3e 20 7b 3c 6c 65 74 74 65 72 2c 20 64 69 67 69 74 20 6f 72 20 5f 3e ┆tter or _> {<letter, digit or _>┆
0x1d220…1d240 7d 20 0d 0a 0d 0a 0d 0a 0e 0a 20 20 20 20 20 45 78 61 6d 70 6c 65 73 3a 0d 0a 04 00 2d 4c 0f 00 ┆} Examples: -L ┆
0x1d240…1d260 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x1d260…1d280 00 00 0e 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 ┆ - -L ┆
0x1d280…1d2a0 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e 2d ff ff ┆A1@ - ┆
0x1d2a0…1d2c0 ff ff ff ff ff ff ff ff ff ff ff 04 0a 20 20 20 20 20 49 6e 70 75 74 3a 09 09 52 65 73 75 6c 74 ┆ Input: Result┆
0x1d2c0…1d2e0 3a 20 0d 0a 0d 0a 20 20 20 20 20 7c 88 76 7c 88 76 0d 0a 20 20 20 20 20 61 20 62 63 09 09 61 20 ┆: |ѕv|ѕv a bc a ┆
0x1d2e0…1d300 0d 0a 20 20 20 20 20 7c 88 76 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 88 76 0d 0a 20 20 20 20 ┆ |ѕv |ѕv ┆
0x1d300…1d320 20 20 20 20 20 20 5f 61 62 63 38 39 5f 36 63 3b 09 5f 61 62 63 38 39 5f 36 63 20 0d 0a 20 20 20 ┆ _abc89_6c; _abc89_6c ┆
0x1d320…1d340 20 20 7c 88 76 20 20 20 20 20 7c 88 76 0d 0a 20 20 20 20 20 20 20 31 32 61 62 09 09 61 62 20 0d ┆ |ѕv |ѕv 12ab ab ┆
0x1d340…1d360 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x1d360…1d380 00 00 00 00 00 00 00 00 00 0e 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 0f 00 ┆ - -L ┆
0x1d380…1d3a0 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x1d3a0…1d3c0 00 00 0e 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 0f 0a 0d 0a 54 68 65 20 63 68 61 72 ┆ - The char┆
0x1d3c0…1d3e0 61 63 74 65 72 73 20 61 72 65 20 64 65 6c 69 76 65 72 65 64 20 69 6e 20 74 68 65 20 70 61 72 61 ┆acters are delivered in the para┆
0x1d3e0…1d400 6d 65 74 65 72 20 27 6e 61 6d 65 27 20 66 72 6f 6d 20 6c 65 66 74 20 74 6f 20 0a 72 69 67 68 74 ┆meter 'name' from left to right┆
0x1d400…1d420 2e 20 27 6e 61 6d 65 27 20 69 73 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 79 20 27 ┆. 'name' is not initialized by '┆
0x1d420…1d440 69 6e 6e 61 6d 65 27 2c 20 73 6f 20 27 6e 61 6d 65 27 20 6d 75 73 74 20 62 65 20 69 6e 69 74 69 ┆inname', so 'name' must be initi┆
0x1d440…1d460 80 0a 61 6c 69 7a 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 63 61 6c 6c 2e 20 54 68 65 20 76 61 ┆ђ alized before the call. The va┆
0x1d460…1d480 72 69 61 62 6c 65 20 27 7a 2e 6e 65 78 74 70 27 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 ┆riable 'z.nextp' may be used to ┆
0x1d480…1d4a0 63 61 6c 80 0a 63 75 6c 61 74 65 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 ┆calђ culate the number of charac┆
0x1d4a0…1d4c0 74 65 72 73 20 72 65 61 64 20 28 69 6e 63 6c 75 73 69 76 65 20 6c 65 61 64 69 6e 67 20 62 6c 61 ┆ters read (inclusive leading bla┆
0x1d4c0…1d4e0 6e 6b 73 29 2e 20 0d 0a 0d 0a 0e 0a 20 20 7a 2e 72 65 61 64 73 74 61 74 65 20 20 0d 0a 20 20 20 ┆nks). z.readstate ┆
0x1d4e0…1d500 20 20 20 20 20 30 20 20 20 20 20 20 20 84 41 74 20 6c 65 61 73 74 20 6f 6e 65 20 3c 6c 65 74 74 ┆ 0 ёAt least one <lett┆
0x1d500…1d520 65 72 20 6f 72 20 5f 3e 20 69 73 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 27 6e 61 6d 65 ┆er or _> is transferred to 'name┆
0x1d520…1d540 27 2e 0d 0a 20 20 20 20 20 20 2d 20 31 20 20 20 20 20 20 20 84 4e 6f 20 3c 6c 65 74 74 65 72 20 ┆'. - 1 ёNo <letter ┆
0x1d540…1d560 6f 72 20 5f 3e 20 77 61 73 20 6d 65 74 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 20 54 68 65 ┆or _> was met in the buffer. The┆
0x1d560…1d580 20 62 75 66 66 65 72 20 0a 19 90 80 80 69 73 20 65 6d 70 74 79 20 61 6e 64 20 70 6f 73 73 69 62 ┆ buffer љђђis empty and possib┆
0x1d580…1d5a0 6c 79 20 61 20 6e 75 6d 62 65 72 20 6f 66 20 73 70 61 63 65 73 20 77 61 73 20 73 6b 69 70 80 0a ┆ly a number of spaces was skipђ ┆
0x1d5a0…1d5c0 19 90 80 80 70 65 64 2e 0d 0a 0f 0a 16 53 44 0d 0a 49 6e 77 69 6c 64 6e 61 6d 65 0d 0a 50 52 4f ┆ љђђped. SD Inwildname PRO┆
0x1d5c0…1d5e0 43 45 44 55 52 45 20 bf dc d8 69 6e 77 69 6c 64 6e 61 6d 65 be 28 56 41 52 20 7a 3a 20 7a 6f 6e ┆CEDURE ┐▄пinwildnameЙ(VAR z: zon┆
0x1d5e0…1d600 65 3b 20 56 41 52 20 6e 61 6d 65 3a 20 61 6c 66 61 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 ┆e; VAR name: alfa); Not pred┆
0x1d600…1d620 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 57 6f 72 6b 73 20 61 73 20 74 68 65 20 72 ┆efined. - ёWorks as the r┆
0x1d620…1d640 6f 75 74 69 6e 65 20 49 4e 4e 41 4d 45 20 65 78 63 65 70 74 20 74 68 61 74 20 74 68 65 20 6c 65 ┆outine INNAME except that the le┆
0x1d640…1d660 67 61 6c 20 63 68 61 72 61 63 74 65 72 73 20 0a 61 72 65 20 65 78 74 65 6e 64 65 64 20 77 69 74 ┆gal characters are extended wit┆
0x1d660…1d680 68 20 74 68 65 20 77 69 6c 64 20 63 68 61 72 61 63 74 65 72 20 22 2a 22 2e 20 0d 0a 16 53 44 0d ┆h the wild character "*". SD ┆
0x1d680…1d6a0 0a 4f 70 61 6e 73 77 65 72 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 70 61 6e 73 77 65 72 ┆ Opanswer PROCEDURE ┐▄пopanswer┆
0x1d6a0…1d6c0 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 7a 3a 20 7a 6f 6e 65 29 ┆Й(VAR r: reference; VAR z: zone)┆
0x1d6c0…1d6e0 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d ┆; Defined in ioenv. -┆
0x1d6e0…1d700 20 84 73 69 67 6e 61 6c 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 72 65 66 65 72 65 6e 63 65 64 ┆ ёsignals the message referenced┆
0x1d700…1d720 20 62 79 20 27 72 27 20 74 6f 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 27 7a 2e 64 61 74 61 72 65 ┆ by 'r' to the mailbox 'z.datare┆
0x1d720…1d740 61 80 0a 19 85 80 80 64 79 27 2e 20 0d 0a 0d 0a 54 68 65 20 72 6f 75 74 69 6e 65 20 69 73 20 69 ┆aђ Ёђђdy'. The routine is i┆
0x1d740…1d760 6e 74 65 6e 64 65 64 20 66 6f 72 20 75 73 65 2c 20 77 68 65 6e 20 74 68 65 20 70 72 6f 63 65 73 ┆ntended for use, when the proces┆
0x1d760…1d780 73 20 77 61 69 74 73 20 61 74 20 61 20 6d 61 69 6e 20 0a 6d 61 69 6c 62 6f 78 20 61 6e 64 20 73 ┆s waits at a main mailbox and s┆
0x1d780…1d7a0 6f 72 74 73 20 6f 75 74 20 61 6c 6c 20 61 72 72 69 76 69 6e 67 20 69 6e 70 75 74 20 6d 65 73 73 ┆orts out all arriving input mess┆
0x1d7a0…1d7c0 61 67 65 73 2e 20 0d 0a 16 53 44 0d 0a 4f 70 69 6e 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 ┆ages. SD Opin PROCEDURE ┐▄п┆
0x1d7c0…1d7e0 6f 70 69 6e be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 ┆opinЙ(VAR z: zone); Defined ┆
0x1d7e0…1d800 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 73 69 67 6e 61 6c 73 20 61 20 6d 65 ┆in ioenv. - ёsignals a me┆
0x1d800…1d820 73 73 61 67 65 20 66 72 6f 6d 20 27 7a 2e 66 72 65 65 27 2c 20 69 66 20 61 6e 79 2c 20 74 6f 20 ┆ssage from 'z.free', if any, to ┆
0x1d820…1d840 74 68 65 20 64 72 69 76 65 72 20 6d 61 69 6c 62 6f 78 20 0a 19 85 80 80 27 7a 2e 64 72 69 76 65 ┆the driver mailbox Ёђђ'z.drive┆
0x1d840…1d860 72 5e 88 7c 27 2e 20 0d 0a 16 53 44 0d 0a 4f 70 74 65 73 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf ┆r^ѕ|'. SD Optest FUNCTION ┐┆
0x1d860…1d880 dc d8 6f 70 74 65 73 74 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 29 3a 20 62 6f 6f 6c 65 61 6e 3b ┆▄пoptestЙ(VAR z: zone): boolean;┆
0x1d880…1d8a0 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 8c 97 f4 0a 20 ┆ Defined in ioenv. їЌЗ ┆
0x1d8a0…1d8c0 20 20 2d 20 84 69 73 20 74 72 75 65 20 69 66 20 61 20 6d 65 73 73 61 67 65 20 69 73 20 71 75 65 ┆ - ёis true if a message is que┆
0x1d8c0…1d8e0 75 65 64 20 61 74 20 27 7a 2e 64 61 74 61 72 65 61 64 79 27 2c 20 6f 74 68 65 72 77 69 73 65 20 ┆ued at 'z.dataready', otherwise ┆
0x1d8e0…1d900 66 61 6c 73 65 2e 20 0a 19 85 80 80 54 68 69 73 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 ┆false. ЁђђThis may be used to ┆
0x1d900…1d920 61 76 6f 69 64 20 61 20 77 61 69 74 20 69 6e 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 6f 70 ┆avoid a wait in the procedure op┆
0x1d920…1d940 77 61 69 74 2e 20 0d 0a 0d 0a 0e 0a 45 78 61 6d 70 6c 65 3a 20 0d 0a 04 00 2d 4c 0f 00 08 00 00 ┆wait. Example: -L ┆
0x1d940…1d960 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e ┆ A1@ ┆
0x1d960…1d980 1e ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 ┆ -L A1@┆
0x1d980…1d9a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e 2d ff ff ff ff ff ┆ - ┆
0x1d9a0…1d9c0 ff ff ff ff ff ff ff ff 04 0a 0d 0a 20 20 20 20 20 49 46 20 6f 70 74 65 73 74 28 7a 29 20 54 48 ┆ IF optest(z) TH┆
0x1d9c0…1d9e0 45 4e 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 42 45 47 49 4e 20 20 0d 0a 20 20 20 ┆EN BEGIN ┆
0x1d9e0…1da00 20 20 20 20 20 20 6f 70 77 61 69 74 28 7a 2c 20 69 6e 70 75 74 70 6f 6f 6c 29 3b 20 20 0d 0a 20 ┆ opwait(z, inputpool); ┆
0x1da00…1da20 20 20 20 20 20 20 20 20 20 20 28 2a 20 70 72 6f 63 65 73 73 20 69 6e 70 75 74 20 64 61 74 61 20 ┆ (* process input data ┆
0x1da20…1da40 66 72 6f 6d 20 7a 6f 6e 65 20 7a 20 2a 29 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 ┆from zone z *) ┆
0x1da40…1da60 45 4e 44 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 45 4c 53 45 20 20 0d 0a 20 20 20 ┆END ELSE ┆
0x1da60…1da80 20 20 20 20 20 20 20 28 2a 20 64 6f 20 73 6f 6d 65 74 68 69 6e 67 20 65 6c 73 65 20 2a 29 20 0d ┆ (* do something else *) ┆
0x1da80…1daa0 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x1daa0…1dac0 00 00 00 00 00 00 00 00 00 0e 1e ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 0f 00 ┆ -L ┆
0x1dac0…1dae0 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x1dae0…1db00 00 00 0e 1e ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 0f 0a 16 53 44 0d 0a 4f 70 77 61 69 ┆ SD Opwai┆
0x1db00…1db20 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 70 77 61 69 74 be 28 56 41 52 20 7a 3a 20 7a ┆t PROCEDURE ┐▄пopwaitЙ(VAR z: z┆
0x1db20…1db40 6f 6e 65 3b 20 56 41 52 20 69 6e 70 75 74 70 6f 6f 6c 3a 20 70 6f 6f 6c 29 3b 20 0d 0a 0d 0a 44 ┆one; VAR inputpool: pool); D┆
0x1db40…1db60 65 66 69 6e 65 64 20 69 6e 20 69 6f 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 69 73 20 75 73 ┆efined in ioenv. - ёis us┆
0x1db60…1db80 65 64 20 74 6f 20 77 61 69 74 20 66 6f 72 20 73 70 65 63 69 66 69 63 20 69 6e 70 75 74 20 74 6f ┆ed to wait for specific input to┆
0x1db80…1dba0 20 74 68 65 20 7a 6f 6e 65 2c 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 0a 19 85 80 80 64 69 ┆ the zone, which returns Ёђђdi┆
0x1dba0…1dbc0 72 65 63 74 6c 79 20 74 6f 20 27 7a 2e 64 61 74 61 72 65 61 64 79 27 2c 20 6f 72 20 74 6f 20 61 ┆rectly to 'z.dataready', or to a┆
0x1dbc0…1dbe0 20 6d 61 69 6e 6d 61 69 6c 62 6f 78 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 0a 19 85 80 80 ┆ mainmailbox together with Ёђђ┆
0x1dbe0…1dc00 6f 74 68 65 72 20 6d 65 73 73 61 67 65 73 2e 20 49 66 20 61 20 6d 65 73 73 61 67 65 20 69 73 20 ┆other messages. If a message is ┆
0x1dc00…1dc20 71 75 65 75 65 64 20 61 74 20 27 7a 2e 64 61 74 61 72 65 61 64 79 27 2c 20 74 68 69 73 20 0a 19 ┆queued at 'z.dataready', this ┆
0x1dc20…1dc40 85 80 80 6d 65 73 73 61 67 65 20 69 73 20 74 61 6b 65 6e 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 ┆Ёђђmessage is taken. Otherwise, ┆
0x1dc40…1dc60 61 20 77 61 69 74 20 69 73 20 70 65 72 66 6f 72 6d 65 64 20 6f 6e 20 27 7a 2e 61 6e 73 77 65 72 ┆a wait is performed on 'z.answer┆
0x1dc60…1dc80 20 27 2e 20 0a 19 85 80 80 27 6f 70 77 61 69 74 27 20 63 68 65 63 6b 73 2c 20 74 68 61 74 20 61 ┆ '. Ёђђ'opwait' checks, that a┆
0x1dc80…1dca0 6e 20 61 72 72 69 76 69 6e 67 20 6d 65 73 73 61 67 65 20 6f 72 69 67 69 6e 61 74 65 73 20 66 72 ┆n arriving message originates fr┆
0x1dca0…1dcc0 6f 6d 20 74 68 65 20 0a 19 85 80 80 27 69 6e 70 75 74 70 6f 6f 6c 27 20 77 68 65 6e 20 74 68 65 ┆om the Ёђђ'inputpool' when the┆
0x1dcc0…1dce0 20 7a 6f 6e 65 20 77 61 73 20 6f 70 65 6e 65 64 2c 20 61 6e 64 20 74 68 61 74 20 28 75 31 20 4d ┆ zone was opened, and that (u1 M┆
0x1dce0…1dd00 4f 44 20 38 29 3d 31 20 0a 19 85 80 80 28 72 65 61 64 29 2e 20 4f 74 68 65 72 20 61 72 72 69 76 ┆OD 8)=1 Ёђђ(read). Other arriv┆
0x1dd00…1dd20 69 6e 67 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 71 75 65 75 65 64 20 74 65 6d 70 6f 72 61 72 ┆ing messages are queued temporar┆
0x1dd20…1dd40 69 6c 79 20 69 6e 20 74 68 65 20 0a 19 85 80 80 7a 6f 6e 65 20 75 6e 74 69 6c 20 61 20 7a 6f 6e ┆ily in the Ёђђzone until a zon┆
0x1dd40…1dd60 65 20 6d 65 73 73 61 67 65 20 72 65 74 75 72 6e 73 2e 20 54 68 65 20 71 75 65 75 65 64 20 6d 65 ┆e message returns. The queued me┆
0x1dd60…1dd80 73 73 61 67 65 73 20 61 72 65 20 70 75 74 20 0a 19 85 80 80 62 61 63 6b 20 69 6e 20 74 68 65 20 ┆ssages are put Ёђђback in the ┆
0x1dd80…1dda0 6d 61 69 6e 6d 61 69 6c 62 6f 78 20 61 6e 64 20 74 68 65 20 7a 6f 6e 65 20 6d 65 73 73 61 67 65 ┆mainmailbox and the zone message┆
0x1dda0…1ddc0 20 70 72 65 70 61 72 65 64 20 66 6f 72 20 0a 19 85 80 80 6c 61 74 65 72 20 63 61 6c 6c 73 20 6f ┆ prepared for Ёђђlater calls o┆
0x1ddc0…1dde0 66 20 69 6e 63 68 61 72 2e 20 0d 0a 16 53 43 0d 0a 41 64 76 61 6e 63 65 64 20 55 73 65 0d 0a 42 ┆f inchar. SC Advanced Use B┆
0x1dde0…1de00 65 73 69 64 65 73 20 74 68 65 20 6f 72 64 69 6e 61 72 79 20 75 73 65 20 6f 66 20 74 68 65 20 4f ┆esides the ordinary use of the O┆
0x1de00…1de20 50 45 52 41 54 4f 52 20 74 6f 20 73 65 6e 64 20 6f 75 74 70 75 74 20 61 6e 64 20 72 65 63 65 80 ┆PERATOR to send output and receђ┆
0x1de20…1de40 0a 69 76 65 20 69 6e 70 75 74 20 66 72 6f 6d 20 74 68 65 20 63 6f 6e 73 6f 6c 65 2c 20 61 64 64 ┆ ive input from the console, add┆
0x1de40…1de60 69 74 69 6f 6e 61 6c 20 66 61 63 69 6c 69 74 69 65 73 20 61 72 65 20 6f 66 66 65 72 65 64 2e 20 ┆itional facilities are offered. ┆
0x1de60…1de80 54 68 65 73 65 20 0a 73 65 72 76 69 63 65 73 20 61 72 65 20 72 65 71 75 65 73 74 65 64 20 62 79 ┆These services are requested by┆
0x1de80…1dea0 20 73 65 6e 64 69 6e 67 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 74 68 65 20 4f 50 45 52 41 54 ┆ sending a message to the OPERAT┆
0x1dea0…1dec0 4f 52 20 61 73 6b 69 6e 67 20 0a 66 6f 72 20 74 68 65 20 77 61 6e 74 65 64 20 66 61 63 69 6c 69 ┆OR asking for the wanted facili┆
0x1dec0…1dee0 74 79 2e 20 0d 0a 16 53 44 0d 0a 49 6e 70 75 74 20 2d 20 4f 75 74 70 75 74 20 4d 6f 64 65 0d 0a ┆ty. SD Input - Output Mode ┆
0x1dee0…1df00 16 73 6f 20 69 6e 70 75 74 20 6d 6f 64 65 0d 0a 16 73 6f 20 6f 75 74 70 75 74 20 6d 6f 64 65 0d ┆ so input mode so output mode ┆
0x1df00…1df20 0a 4e 6f 72 6d 61 6c 6c 79 20 4f 50 45 52 41 54 4f 52 20 73 65 6e 64 73 20 6f 75 74 70 75 74 20 ┆ Normally OPERATOR sends output ┆
0x1df20…1df40 74 6f 20 74 68 65 20 63 6f 6e 73 6f 6c 65 20 61 6e 64 20 72 65 63 65 69 76 65 73 20 69 6e 70 75 ┆to the console and receives inpu┆
0x1df40…1df60 74 20 0a 66 72 6f 6d 20 74 68 65 20 63 6f 6e 73 6f 6c 65 2e 20 0d 0a 0d 0a 4f 6e 20 72 65 71 75 ┆t from the console. On requ┆
0x1df60…1df80 65 73 74 20 4f 50 45 52 41 54 4f 52 20 77 69 6c 6c 20 73 65 6e 64 20 6f 75 74 70 75 74 20 74 6f ┆est OPERATOR will send output to┆
0x1df80…1dfa0 20 0d 0a 20 20 20 2d 20 84 74 68 65 20 63 6f 6e 73 6f 6c 65 20 0d 0a 20 20 20 2d 20 84 61 20 70 ┆ - ёthe console - ёa p┆
0x1dfa0…1dfc0 72 6f 63 65 73 73 20 72 65 71 75 65 73 74 69 6e 67 20 74 68 65 20 6f 75 74 70 75 74 20 0d 0a 0d ┆rocess requesting the output ┆
0x1dfc0…1dfe0 0a 4f 6e 20 72 65 71 75 65 73 74 20 4f 50 45 52 41 54 4f 52 20 77 69 6c 6c 20 73 65 6e 64 20 69 ┆ On request OPERATOR will send i┆
0x1dfe0…1e000 6e 70 75 74 20 6d 65 73 73 61 67 65 20 74 6f 20 28 72 65 63 65 69 76 65 20 69 6e 70 75 74 20 0a ┆nput message to (receive input ┆
0x1e000…1e020 66 72 6f 6d 29 20 0d 0a 20 20 20 2d 20 84 74 68 65 20 63 6f 6e 73 6f 6c 65 20 0d 0a 20 20 20 2d ┆from) - ёthe console -┆
0x1e020…1e040 20 84 61 20 70 72 6f 63 65 73 73 20 72 65 71 75 65 73 74 69 6e 67 20 74 68 65 20 69 6e 70 75 74 ┆ ёa process requesting the input┆
0x1e040…1e060 20 6d 65 73 73 61 67 65 20 28 61 6e 64 20 67 65 6e 65 72 61 74 69 6e 67 20 69 6e 80 70 75 74 29 ┆ message (and generating inђput)┆
0x1e060…1e080 20 0d 0a 0d 0a 0e 0a 54 68 65 72 65 20 61 72 65 20 66 6f 75 72 20 bf dc d8 69 2f 6f 20 6d 6f 64 ┆ There are four ┐▄пi/o mod┆
0x1e080…1e0a0 65 73 be 3a 20 0d 0a 6c 6f 63 5f 69 5f 67 6c 6f 62 5f 6f 20 20 28 30 29 3a 20 09 69 6e 70 75 74 ┆esЙ: loc_i_glob_o (0): input┆
0x1e0a0…1e0c0 20 66 72 6f 6d 20 63 6f 6e 73 6f 6c 65 0d 0a 09 09 6f 75 74 70 75 74 20 74 6f 20 72 65 71 75 65 ┆ from console output to reque┆
0x1e0c0…1e0e0 73 74 20 70 72 6f 63 65 73 73 20 0d 0a 6c 6f 63 5f 69 5f 6c 6f 63 5f 6f 20 20 20 28 31 29 3a 20 ┆st process loc_i_loc_o (1): ┆
0x1e0e0…1e100 09 69 6e 70 75 74 20 66 72 6f 6d 20 63 6f 6e 73 6f 6c 65 20 0d 0a 09 09 6f 75 74 70 75 74 20 74 ┆ input from console output t┆
0x1e100…1e120 6f 20 63 6f 6e 73 6f 6c 65 20 0d 0a 67 6c 6f 62 5f 69 5f 6c 6f 63 5f 6f 20 20 28 32 29 3a 20 09 ┆o console glob_i_loc_o (2): ┆
0x1e120…1e140 69 6e 70 75 74 20 66 72 6f 6d 20 72 65 71 75 65 73 74 20 70 72 6f 63 65 73 73 20 0d 0a 09 09 6f ┆input from request process o┆
0x1e140…1e160 75 74 70 75 74 20 74 6f 20 63 6f 6e 73 6f 6c 65 20 0d 0a 67 6c 6f 62 5f 69 5f 67 6c 6f 62 5f 6f ┆utput to console glob_i_glob_o┆
0x1e160…1e180 20 28 33 29 3a 20 09 69 6e 70 75 74 20 66 72 6f 6d 20 72 65 71 75 65 73 74 20 70 72 6f 63 65 73 ┆ (3): input from request proces┆
0x1e180…1e1a0 73 20 0d 0a 09 09 6f 75 74 70 75 74 20 74 6f 20 72 65 71 75 65 73 74 20 70 72 6f 63 65 73 73 20 ┆s output to request process ┆
0x1e1a0…1e1c0 0d 0a 0f 0a 0d 0a 8c 89 f8 0a 44 65 66 61 75 6c 74 20 6d 6f 64 65 20 69 73 20 27 6c 6f 63 5f 69 ┆ їЅЭ Default mode is 'loc_i┆
0x1e1c0…1e1e0 5f 6c 6f 63 5f 6f 27 2e 20 0d 0a 0d 0a 54 68 65 20 6d 6f 64 65 20 27 6c 6f 63 5f 69 5f 6c 6f 63 ┆_loc_o'. The mode 'loc_i_loc┆
0x1e1e0…1e200 5f 6f 27 20 69 73 20 6b 65 70 74 20 75 6e 63 68 61 6e 67 65 64 20 75 6e 74 69 6c 20 61 20 63 68 ┆_o' is kept unchanged until a ch┆
0x1e200…1e220 61 6e 67 65 20 6d 6f 64 65 20 72 65 71 75 65 73 74 20 0a 69 73 20 72 65 63 65 69 76 65 64 2e 20 ┆ange mode request is received. ┆
0x1e220…1e240 0d 0a 0d 0a 54 68 65 20 6d 6f 64 65 73 20 61 72 65 20 72 65 73 65 74 20 74 6f 20 27 6c 6f 63 5f ┆ The modes are reset to 'loc_┆
0x1e240…1e260 69 5f 6c 6f 63 5f 6f 27 20 61 66 74 65 72 20 33 30 20 73 65 63 6f 6e 64 73 2c 20 69 66 20 6e 6f ┆i_loc_o' after 30 seconds, if no┆
0x1e260…1e280 20 70 72 6f 63 65 73 73 20 0a 72 65 71 75 65 73 74 73 20 74 68 65 20 6d 65 73 73 61 67 65 73 2e ┆ process requests the messages.┆
0x1e280…1e2a0 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65 20 6d 6f 64 65 20 69 73 20 6b 65 70 74 20 66 6f 72 ┆ Otherwise, the mode is kept for┆
0x1e2a0…1e2c0 20 61 20 6e 65 77 20 70 65 72 69 6f 64 20 0a 6f 66 20 33 30 20 73 65 63 6f 6e 64 73 2e 20 0d 0a ┆ a new period of 30 seconds. ┆
0x1e2c0…1e2e0 0d 0a 53 65 63 74 69 6f 6e 20 33 2e 37 2e 34 2e 32 20 6f 6e 20 65 76 65 6e 74 73 20 64 65 73 63 ┆ Section 3.7.4.2 on events desc┆
0x1e2e0…1e300 72 69 62 65 73 20 68 6f 77 20 61 20 70 72 6f 63 65 73 73 20 63 61 6e 20 75 73 65 20 74 68 65 20 ┆ribes how a process can use the ┆
0x1e300…1e320 65 76 65 6e 74 20 0a 6d 65 63 68 61 6e 69 73 6d 20 74 6f 20 6d 61 6e 69 70 75 6c 61 74 65 20 74 ┆event mechanism to manipulate t┆
0x1e320…1e340 68 65 20 69 6e 70 75 74 20 2d 20 6f 75 74 70 75 74 20 73 74 72 65 61 6d 73 2e 20 0d 0a 0d 0a 54 ┆he input - output streams. T┆
0x1e340…1e360 68 65 20 63 68 61 6e 67 65 20 6f 66 20 69 2f 6f 20 6d 6f 64 65 20 69 73 20 72 65 71 75 65 73 74 ┆he change of i/o mode is request┆
0x1e360…1e380 65 64 20 62 79 20 73 65 6e 64 69 6e 67 20 61 20 63 68 61 6e 67 65 20 6d 65 73 73 61 67 65 20 74 ┆ed by sending a change message t┆
0x1e380…1e3a0 6f 20 0a 74 68 65 20 4f 50 45 52 41 54 4f 52 20 6d 61 69 6c 62 6f 78 2e 20 0d 0a 0d 0a 0e 0a 20 ┆o the OPERATOR mailbox. ┆
0x1e3a0…1e3c0 20 20 20 20 20 20 20 20 74 6f 20 4f 50 45 52 41 54 4f 52 20 20 20 20 20 66 72 6f 6d 20 4f 50 45 ┆ to OPERATOR from OPE┆
0x1e3c0…1e3e0 52 41 54 4f 52 20 0d 0a 20 20 75 31 09 30 09 75 6e 63 68 61 6e 67 65 64 20 0d 0a 20 20 75 32 09 ┆RATOR u1 0 unchanged u2 ┆
0x1e3e0…1e400 2d 09 20 20 20 20 6f 6b 0d 0a 20 20 75 33 20 20 20 20 20 77 61 6e 74 65 64 20 6d 6f 64 65 09 75 ┆- ok u3 wanted mode u┆
0x1e400…1e420 6e 63 68 61 6e 67 65 64 20 20 0d 0a 20 20 75 34 20 20 20 20 20 20 20 20 20 2d 20 20 09 75 6e 63 ┆nchanged u4 - unc┆
0x1e420…1e440 68 61 6e 67 65 64 20 0d 0a 0f 0a 0d 0a 41 20 70 72 6f 63 65 73 73 20 72 65 71 75 65 73 74 73 20 ┆hanged A process requests ┆
0x1e440…1e460 74 68 65 20 6d 65 73 73 61 67 65 73 20 69 6e 20 61 63 63 6f 72 64 61 6e 63 65 20 77 69 74 68 20 ┆the messages in accordance with ┆
0x1e460…1e480 74 68 65 20 61 63 74 75 61 6c 20 69 2f 6f 20 0a 6d 6f 64 65 20 62 79 20 73 65 6e 64 69 6e 67 20 ┆the actual i/o mode by sending ┆
0x1e480…1e4a0 61 20 72 65 71 75 65 73 74 20 6d 65 73 73 61 67 65 20 74 6f 20 74 68 65 20 4f 50 45 52 41 54 4f ┆a request message to the OPERATO┆
0x1e4a0…1e4c0 52 20 0d 0a 0d 0a 0e 0a 20 20 20 20 20 20 20 20 20 74 6f 20 4f 50 45 52 41 54 4f 52 20 20 20 20 ┆R to OPERATOR ┆
0x1e4c0…1e4e0 20 66 72 6f 6d 20 4f 50 45 52 41 54 4f 52 20 20 20 0d 0a 20 20 75 31 07 31 32 09 75 6e 63 68 61 ┆ from OPERATOR u1 12 uncha┆
0x1e4e0…1e500 6e 67 65 64 20 20 0d 0a 20 20 75 32 07 2d 84 09 72 65 73 75 6c 74 20 20 20 0d 0a 20 20 75 33 07 ┆nged u2 -ё result u3 ┆
0x1e500…1e520 2d 84 09 75 6e 63 68 61 6e 67 65 64 20 20 20 0d 0a 20 20 75 34 07 2d 84 09 75 6e 63 68 61 6e 67 ┆-ё unchanged u4 -ё unchang┆
0x1e520…1e540 65 64 20 0d 0a 0f 0a 0d 0a 54 68 65 20 72 65 71 75 65 73 74 20 6d 65 73 73 61 67 65 20 69 73 20 ┆ed The request message is ┆
0x1e540…1e560 70 6c 61 63 65 64 20 69 6e 20 61 20 71 75 65 75 65 20 6f 66 20 77 61 69 74 69 6e 67 20 72 65 71 ┆placed in a queue of waiting req┆
0x1e560…1e580 75 65 73 74 20 6d 65 73 73 61 80 0a 67 65 73 2e 20 0d 0a 0d 0a 54 68 65 20 77 61 69 74 69 6e 67 ┆uest messaђ ges. The waiting┆
0x1e580…1e5a0 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 73 20 61 6e 64 2f 6f 72 20 6f 75 74 70 75 74 20 6d 65 ┆ input messages and/or output me┆
0x1e5a0…1e5c0 73 73 61 67 65 73 20 69 6e 20 61 63 63 6f 72 64 61 6e 63 65 20 0a 77 69 74 68 20 69 2f 6f 20 6d ┆ssages in accordance with i/o m┆
0x1e5c0…1e5e0 6f 64 65 20 61 72 65 20 73 74 61 63 6b 65 64 20 61 6e 64 20 74 68 65 20 66 69 72 73 74 20 72 65 ┆ode are stacked and the first re┆
0x1e5e0…1e600 71 75 65 73 74 20 6d 65 73 73 61 67 65 20 69 73 20 70 75 73 68 65 64 20 0a 75 70 6f 6e 20 74 68 ┆quest message is pushed upon th┆
0x1e600…1e620 65 20 73 74 61 63 6b 2e 20 46 69 6e 61 6c 6c 79 20 74 68 65 20 73 74 61 63 6b 20 69 73 20 72 65 ┆e stack. Finally the stack is re┆
0x1e620…1e640 74 75 72 6e 65 64 20 74 6f 20 74 68 65 20 61 6e 73 77 65 72 20 6d 61 69 6c 62 6f 78 20 0a 6f 66 ┆turned to the answer mailbox of┆
0x1e640…1e660 20 74 68 65 20 72 65 71 75 65 73 74 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 ┆ the request message. Result┆
0x1e660…1e680 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 6f 6b 2c 20 73 6f ┆s Meaning 0 ok, so┆
0x1e680…1e6a0 6d 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 20 20 20 20 20 0d 0a 20 ┆me messages are returned ┆
0x1e6a0…1e6c0 20 20 20 31 20 20 20 20 6e 6f 74 5f 70 72 6f 63 65 73 73 65 64 2c 20 69 2f 6f 20 6d 6f 64 65 20 ┆ 1 not_processed, i/o mode ┆
0x1e6c0…1e6e0 77 61 73 20 6c 6f 63 5f 69 5f 6c 6f 63 5f 6f 20 0d 0a 16 53 44 0d 0a 45 76 65 6e 74 73 0d 0a 50 ┆was loc_i_loc_o SD Events P┆
0x1e6e0…1e700 72 6f 63 65 73 73 65 73 20 6d 61 79 20 73 65 6e 64 20 73 6f 6d 65 20 65 76 65 6e 74 20 6d 65 73 ┆rocesses may send some event mes┆
0x1e700…1e720 73 61 67 65 73 20 74 6f 20 74 68 65 20 4f 50 45 52 41 54 4f 52 2e 20 0d 0a 16 73 6f 20 65 76 65 ┆sages to the OPERATOR. so eve┆
0x1e720…1e740 6e 74 20 6d 65 73 73 61 67 65 73 2c 20 6f 70 65 72 61 74 6f 72 0d 0a 0d 0a 45 76 65 6e 74 20 6d ┆nt messages, operator Event m┆
0x1e740…1e760 65 73 73 61 67 65 73 20 61 72 65 20 71 75 65 75 65 64 20 75 6e 74 69 6c 20 0d 0a 20 20 20 2d 20 ┆essages are queued until - ┆
0x1e760…1e780 84 74 68 65 79 20 61 72 65 20 72 65 67 72 65 74 74 65 64 20 28 73 65 65 20 73 65 63 74 69 6f 6e ┆ёthey are regretted (see section┆
0x1e780…1e7a0 20 33 2e 37 2e 34 2e 33 29 20 0d 0a 20 20 20 2d 20 84 74 68 65 20 6f 70 65 72 61 74 6f 72 20 70 ┆ 3.7.4.3) - ёthe operator p┆
0x1e7a0…1e7c0 72 65 73 73 65 73 20 27 45 53 43 27 20 61 6e 64 20 74 79 70 65 73 20 74 68 65 20 27 6e 61 6d 65 ┆resses 'ESC' and types the 'name┆
0x1e7c0…1e7e0 27 20 6f 66 20 74 68 65 20 65 76 65 6e 74 20 0a 19 85 80 80 6d 65 73 73 61 67 65 2e 20 0d 0a 0d ┆' of the event Ёђђmessage. ┆
0x1e7e0…1e800 0a 45 76 65 6e 74 20 6d 65 73 73 61 67 65 73 20 63 61 6e 20 62 65 20 75 73 65 64 20 62 79 20 70 ┆ Event messages can be used by p┆
0x1e800…1e820 72 6f 63 65 73 73 65 73 20 74 6f 20 63 6f 6e 74 72 6f 6c 20 74 68 65 20 69 6e 70 75 74 2d 6f 75 ┆rocesses to control the input-ou┆
0x1e820…1e840 74 80 70 75 74 20 0a 73 74 72 65 61 6d 73 20 61 73 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 74 ┆tђput streams as described in t┆
0x1e840…1e860 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 78 61 6d 70 6c 65 3a 20 0d 0a 41 20 70 72 6f 63 65 73 ┆he following example: A proces┆
0x1e860…1e880 73 20 6e 6f 72 6d 61 6c 6c 79 20 73 65 6e 64 73 20 6f 75 74 70 75 74 20 74 6f 20 61 6e 64 20 72 ┆s normally sends output to and r┆
0x1e880…1e8a0 65 63 65 69 76 65 73 20 69 6e 70 75 74 20 66 72 6f 6d 20 72 65 71 75 65 73 74 20 0a 70 72 6f 63 ┆eceives input from request proc┆
0x1e8a0…1e8c0 65 73 73 65 73 2c 20 62 75 74 20 73 6f 6d 65 74 69 6d 65 73 20 74 68 65 20 6f 70 65 72 61 74 6f ┆esses, but sometimes the operato┆
0x1e8c0…1e8e0 72 20 77 61 6e 74 73 20 74 6f 20 73 65 6e 64 20 61 20 63 6f 6d 6d 61 6e 64 20 66 72 6f 6d 20 0a ┆r wants to send a command from ┆
0x1e8e0…1e900 74 68 65 20 63 6f 6e 73 6f 80 6c 65 2e 20 49 6e 20 74 68 69 73 20 63 61 73 65 2c 20 74 68 65 20 ┆the consoђle. In this case, the ┆
0x1e900…1e920 70 72 6f 63 65 73 73 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 73 65 6e 64 73 20 61 6e 20 65 76 65 6e ┆process: - ёsends an even┆
0x1e920…1e940 74 20 6d 65 73 73 61 67 65 20 74 6f 20 4f 50 45 52 41 54 4f 52 20 77 69 74 68 20 74 68 65 20 6e ┆t message to OPERATOR with the n┆
0x1e940…1e960 61 6d 65 20 73 65 74 20 74 6f 20 0a 19 85 80 80 27 63 6f 6d 6d 61 6e 64 27 20 0d 0a 20 20 20 2d ┆ame set to Ёђђ'command' -┆
0x1e960…1e980 20 84 72 65 71 75 65 73 74 73 20 27 67 6c 6f 62 5f 69 5f 67 6c 6f 62 5f 6f 27 20 6d 6f 64 65 20 ┆ ёrequests 'glob_i_glob_o' mode ┆
0x1e980…1e9a0 63 6f 6e 74 69 6e 75 6f 73 6c 79 2e 20 0d 0a 0d 0a 8c 8b 88 0a 57 68 65 6e 20 74 68 65 20 6f 70 ┆continuosly. їІѕ When the op┆
0x1e9a0…1e9c0 65 72 61 74 6f 72 20 70 72 65 73 73 65 73 20 27 45 53 43 27 20 61 6e 64 20 74 79 70 65 73 20 27 ┆erator presses 'ESC' and types '┆
0x1e9c0…1e9e0 63 6f 6d 6d 61 6e 64 27 2c 20 74 68 65 20 65 76 65 6e 74 20 0a 6d 65 73 73 61 67 65 20 69 73 20 ┆command', the event message is ┆
0x1e9e0…1ea00 72 65 74 75 72 6e 65 64 2e 20 4e 6f 77 20 74 68 65 20 70 72 6f 63 65 73 73 20 63 61 6e 20 63 68 ┆returned. Now the process can ch┆
0x1ea00…1ea20 61 6e 67 65 20 69 2f 6f 20 6d 6f 64 65 20 61 63 63 6f 72 80 64 69 6e 67 20 0a 74 6f 20 74 68 65 ┆ange i/o mode accorђding to the┆
0x1ea20…1ea40 20 6e 65 65 64 2c 20 61 6e 64 20 6c 61 74 65 72 20 63 6f 6e 74 69 6e 75 65 20 77 69 74 68 20 74 ┆ need, and later continue with t┆
0x1ea40…1ea60 68 65 20 27 67 6c 6f 62 5f 69 5f 67 6c 6f 62 5f 6f 27 20 6d 6f 64 65 2e 20 0d 0a 0d 0a 0e 0a 20 ┆he 'glob_i_glob_o' mode. ┆
0x1ea60…1ea80 20 20 20 20 20 20 74 6f 20 4f 50 45 52 41 54 4f 52 20 20 20 20 20 20 20 20 20 66 72 6f 6d 20 4f ┆ to OPERATOR from O┆
0x1ea80…1eaa0 50 45 52 41 54 4f 52 20 20 20 0d 0a 20 20 75 31 07 34 09 75 6e 63 68 61 6e 67 65 64 20 0d 0a 20 ┆PERATOR u1 4 unchanged ┆
0x1eaa0…1eac0 20 75 32 07 2d 84 09 72 65 73 75 6c 74 20 20 0d 0a 20 20 75 33 07 2d 84 09 75 6e 63 68 61 6e 67 ┆ u2 -ё result u3 -ё unchang┆
0x1eac0…1eae0 65 64 20 20 0d 0a 20 20 75 34 07 2d 84 09 75 6e 63 68 61 6e 67 65 64 20 0d 0a 0f 0a 0d 0a a1 4d ┆ed u4 -ё unchanged АM┆
0x1eae0…1eb00 65 73 73 61 67 65 20 62 75 66 66 65 72 3a 0d 0a 54 68 65 20 62 75 66 66 65 72 20 69 73 20 73 75 ┆essage buffer: The buffer is su┆
0x1eb00…1eb20 70 70 6f 73 65 64 20 74 6f 20 68 6f 6c 64 20 61 20 72 65 63 6f 72 64 20 6f 66 20 74 79 70 65 20 ┆pposed to hold a record of type ┆
0x1eb20…1eb40 27 6f 70 80 62 75 66 66 65 72 27 20 28 61 70 70 65 6e 64 69 78 20 0a 4b 2e 33 29 2e 20 54 68 65 ┆'opђbuffer' (appendix K.3). The┆
0x1eb40…1eb60 20 66 69 65 6c 64 20 27 6e 61 6d 65 27 20 69 73 20 75 73 65 64 20 74 6f 20 69 64 65 6e 74 69 66 ┆ field 'name' is used to identif┆
0x1eb60…1eb80 79 20 74 68 65 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e ┆y the message. Results Mean┆
0x1eb80…1eba0 69 6e 67 20 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 6f 6b 2c 20 6e 6f 20 69 6e 70 75 74 20 ┆ing 0 ok, no input ┆
0x1eba0…1ebc0 6d 65 73 73 61 67 65 20 61 76 61 69 6c 61 62 6c 65 20 77 68 65 6e 20 6e 65 65 64 65 64 2e 20 20 ┆message available when needed. ┆
0x1ebc0…1ebe0 20 20 20 0d 0a 20 20 20 20 31 20 20 20 20 6e 6f 74 5f 70 72 6f 63 65 73 73 65 64 2c 20 74 68 65 ┆ 1 not_processed, the┆
0x1ebe0…1ec00 20 65 76 65 6e 74 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 67 72 65 74 74 65 64 2e 20 0d 0a 16 ┆ event message is regretted. ┆
0x1ec00…1ec20 53 44 0d 0a 52 65 67 72 65 74 0d 0a 41 20 70 72 6f 63 65 73 73 20 63 61 6e 20 72 65 67 72 65 74 ┆SD Regret A process can regret┆
0x1ec20…1ec40 20 6d 65 73 73 61 67 65 73 20 70 72 65 76 69 6f 75 73 6c 79 20 73 65 6e 74 20 74 6f 20 4f 50 45 ┆ messages previously sent to OPE┆
0x1ec40…1ec60 52 41 54 4f 52 20 62 79 20 0a 73 65 6e 64 69 6e 67 20 61 20 72 65 67 72 65 74 20 6d 65 73 73 61 ┆RATOR by sending a regret messa┆
0x1ec60…1ec80 67 65 2e 20 0d 0a 16 73 6f 20 72 65 67 72 65 74 20 6d 65 73 73 61 67 65 2c 20 6f 70 65 72 61 74 ┆ge. so regret message, operat┆
0x1ec80…1eca0 6f 72 0d 0a 0d 0a 0e 0a 20 20 20 20 20 20 20 74 6f 20 4f 50 45 52 41 54 4f 52 20 20 20 20 20 20 ┆or to OPERATOR ┆
0x1eca0…1ecc0 20 20 20 66 72 6f 6d 20 4f 50 45 52 41 54 4f 52 20 20 20 0d 0a 20 20 75 31 07 38 09 75 6e 63 68 ┆ from OPERATOR u1 8 unch┆
0x1ecc0…1ece0 61 6e 67 65 64 20 0d 0a 20 20 75 32 07 2d 84 09 30 20 28 6f 6b 29 20 20 0d 0a 20 20 75 33 07 2d ┆anged u2 -ё 0 (ok) u3 -┆
0x1ece0…1ed00 84 09 75 6e 63 68 61 6e 67 65 64 20 20 0d 0a 20 20 75 34 07 2d 84 09 75 6e 63 68 61 6e 67 65 64 ┆ё unchanged u4 -ё unchanged┆
0x1ed00…1ed20 20 0d 0a 0f 0a 0d 0a 54 68 65 20 71 75 65 75 65 73 20 68 6f 6c 64 69 6e 67 20 65 76 65 6e 74 20 ┆ The queues holding event ┆
0x1ed20…1ed40 6d 65 73 73 61 67 65 73 2c 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 73 20 61 6e 64 20 6f 75 74 ┆messages, input messages and out┆
0x1ed40…1ed60 70 75 74 20 6d 65 73 73 61 80 0a 67 65 73 20 61 72 65 20 73 65 61 72 63 68 65 64 2e 20 4d 65 73 ┆put messaђ ges are searched. Mes┆
0x1ed60…1ed80 73 61 67 65 73 20 6f 72 69 67 69 6e 61 74 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 73 61 6d 65 20 ┆sages originating from the same ┆
0x1ed80…1eda0 70 6f 6f 6c 20 61 73 20 74 68 65 20 0a 72 65 67 72 65 74 20 6d 65 73 73 61 67 65 20 61 72 65 20 ┆pool as the regret message are ┆
0x1eda0…1edc0 72 65 74 75 72 6e 65 64 20 77 69 74 68 20 72 65 73 75 6c 74 20 27 6e 6f 74 5f 70 72 6f 63 65 73 ┆returned with result 'not_proces┆
0x1edc0…1ede0 73 65 64 27 20 61 6e 64 20 66 69 6e 61 6c 6c 79 20 0a 74 68 65 20 72 65 67 72 65 74 20 6d 65 73 ┆sed' and finally the regret mes┆
0x1ede0…1ee00 73 61 67 65 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 0d 0a 16 53 44 0d 0a 4d 61 74 63 68 0d 0a ┆sage is returned. SD Match ┆
0x1ee00…1ee20 41 20 70 72 6f 63 65 73 73 20 6d 61 79 20 73 69 6d 75 6c 61 74 65 20 69 6e 70 75 74 20 66 72 6f ┆A process may simulate input fro┆
0x1ee20…1ee40 6d 20 74 68 65 20 63 6f 6e 73 6f 6c 65 20 62 79 20 73 65 6e 64 69 6e 67 20 61 20 bf dc d8 6d 61 ┆m the console by sending a ┐▄пma┆
0x1ee40…1ee60 74 63 68 20 0a 6d 65 73 73 61 67 65 be 20 74 6f 20 4f 50 45 52 41 54 4f 52 2e 20 0d 0a 0d 0a 0e ┆tch messageЙ to OPERATOR. ┆
0x1ee60…1ee80 0a 20 20 20 20 20 20 20 74 6f 20 4f 50 45 52 41 54 4f 52 20 20 20 20 20 20 20 20 20 66 72 6f 6d ┆ to OPERATOR from┆
0x1ee80…1eea0 20 4f 50 45 52 41 54 4f 52 20 20 20 0d 0a 20 20 75 31 07 36 09 75 6e 63 68 61 6e 67 65 64 20 0d ┆ OPERATOR u1 6 unchanged ┆
0x1eea0…1eec0 0a 20 20 75 32 07 2d 84 09 72 65 73 75 6c 74 20 20 0d 0a 20 20 75 33 07 2d 84 09 75 6e 63 68 61 ┆ u2 -ё result u3 -ё uncha┆
0x1eec0…1eee0 6e 67 65 64 20 20 0d 0a 20 20 75 34 07 2d 84 09 75 6e 63 68 61 6e 67 65 64 20 0d 0a 0f 0a 0d 0a ┆nged u4 -ё unchanged ┆
0x1eee0…1ef00 54 68 65 20 62 75 66 66 65 72 20 69 73 20 73 75 70 70 6f 73 65 64 20 74 6f 20 68 6f 6c 64 20 61 ┆The buffer is supposed to hold a┆
0x1ef00…1ef20 20 72 65 63 6f 72 64 20 6f 66 20 74 79 70 65 20 27 6f 70 62 75 66 66 65 72 27 20 28 61 70 70 65 ┆ record of type 'opbuffer' (appe┆
0x1ef20…1ef40 6e 64 69 78 20 0a 4b 2e 33 29 2e 20 54 68 65 20 66 69 65 6c 64 20 27 6e 61 6d 65 27 20 69 73 20 ┆ndix K.3). The field 'name' is ┆
0x1ef40…1ef60 75 73 65 64 20 61 73 20 74 68 65 20 6b 65 79 20 69 6e 20 73 65 61 72 63 68 69 6e 67 20 74 68 65 ┆used as the key in searching the┆
0x1ef60…1ef80 20 71 75 65 75 65 20 68 6f 6c 80 0a 64 69 6e 67 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 73 2e ┆ queue holђ ding input messages.┆
0x1ef80…1efa0 20 49 66 20 61 6e 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 20 69 73 20 66 6f 75 6e 64 20 77 69 ┆ If an input message is found wi┆
0x1efa0…1efc0 74 68 20 6d 61 74 63 68 69 6e 67 20 27 6e 61 80 0a 6d 65 27 20 66 69 65 6c 64 2c 20 74 68 65 20 ┆th matching 'naђ me' field, the ┆
0x1efc0…1efe0 64 61 74 61 20 66 72 6f 6d 20 74 68 65 20 27 6d 61 74 63 68 27 20 6d 65 73 73 61 67 65 20 69 73 ┆data from the 'match' message is┆
0x1efe0…1f000 20 63 6f 70 69 65 64 20 74 6f 20 74 68 65 20 69 6e 70 75 74 20 0a 6d 65 73 73 61 67 65 2c 20 61 ┆ copied to the input message, a┆
0x1f000…1f020 6e 64 20 62 6f 74 68 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 2e 20 0d ┆nd both messages are returned. ┆
0x1f020…1f040 0a 0d 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a 20 20 20 30 20 20 20 ┆ Results Meaning 0 ┆
0x1f040…1f060 20 20 6f 6b 2c 20 64 61 74 61 20 63 6f 70 69 65 64 20 20 20 20 0d 0a 20 20 20 31 20 20 20 20 20 ┆ ok, data copied 1 ┆
0x1f060…1f080 4e 6f 74 70 72 6f 63 65 73 73 65 64 2c 20 6e 6f 20 6d 61 74 63 68 69 6e 67 20 69 6e 70 75 74 20 ┆Notprocessed, no matching input ┆
0x1f080…1f0a0 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 8c 89 c8 0a 16 53 42 0d 0a 44 72 69 76 65 72 20 49 6e 70 ┆message. їЅ╚ SB Driver Inp┆
0x1f0a0…1f0c0 75 74 2f 4f 75 74 70 75 74 20 52 6f 75 74 69 6e 65 73 0d 0a 16 73 6f 20 72 6f 75 74 69 6e 65 73 ┆ut/Output Routines so routines┆
0x1f0c0…1f0e0 2c 20 64 72 69 76 65 72 0d 0a 49 6e 20 74 68 65 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 ┆, driver In the description of ┆
0x1f0e0…1f100 74 68 65 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 72 6f 75 74 69 6e 65 73 20 61 20 64 65 76 69 ┆the input/output routines a devi┆
0x1f100…1f120 63 65 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64 20 0a 61 73 20 63 6f 6e 74 61 69 6e 69 6e 67 20 ┆ce is considered as containing ┆
0x1f120…1f140 61 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 67 69 73 74 65 72 73 3a 20 0d 0a 0d 0a 20 20 20 2d 20 ┆a number of registers: - ┆
0x1f140…1f160 84 63 6f 6e 74 72 6f 6c 20 0d 0a 20 20 20 2d 20 84 73 74 61 74 75 73 69 6e 20 0d 0a 20 20 20 2d ┆ёcontrol - ёstatusin -┆
0x1f160…1f180 20 84 73 74 61 74 75 73 6f 75 74 20 0d 0a 20 20 20 2d 20 84 64 61 74 61 69 6e 20 0d 0a 20 20 20 ┆ ёstatusout - ёdatain ┆
0x1f180…1f1a0 2d 20 84 64 61 74 61 6f 75 74 20 0d 0a 0d 0a 77 68 65 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e ┆- ёdataout where information┆
0x1f1a0…1f1c0 20 69 73 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 2f 66 72 6f 6d 20 62 79 20 6d 65 61 6e 73 ┆ is transferred to/from by means┆
0x1f1c0…1f1e0 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 20 69 73 73 75 65 64 20 0a 62 79 20 74 68 65 20 52 43 33 35 ┆ of commands issued by the RC35┆
0x1f1e0…1f200 30 32 20 6d 61 63 68 69 6e 65 2e 20 0d 0a 0d 0a 54 68 65 20 70 72 6f 63 65 64 75 72 65 73 20 69 ┆02 machine. The procedures i┆
0x1f200…1f220 6e 62 79 74 65 62 6c 6f 63 6b 2c 20 69 6e 77 6f 72 64 62 6c 6f 63 6b 2c 20 69 6f 77 62 77 63 2c ┆nbyteblock, inwordblock, iowbwc,┆
0x1f220…1f240 20 6f 75 74 62 79 74 65 62 6c 6f 63 6b 2c 20 61 6e 64 20 0a 6f 75 74 77 6f 72 64 62 6c 6f 63 6b ┆ outbyteblock, and outwordblock┆
0x1f240…1f260 20 69 6e 74 65 72 70 72 65 74 65 20 74 68 65 20 61 63 74 75 61 6c 20 6d 65 73 73 61 67 65 20 62 ┆ interprete the actual message b┆
0x1f260…1f280 75 66 66 65 72 73 20 61 73 20 62 65 69 6e 67 20 6f 66 20 74 68 65 20 0a 70 73 65 75 80 64 6f 20 ┆uffers as being of the pseuђdo ┆
0x1f280…1f2a0 74 79 70 65 3a 20 0d 0a 0d 0a 20 20 20 20 20 62 75 66 66 65 72 74 79 70 65 3d 20 41 52 52 41 59 ┆type: buffertype= ARRAY┆
0x1f2a0…1f2c0 20 28 30 2e 2e 36 35 35 33 35 29 20 4f 46 20 62 79 74 65 20 0d 0a 0d 0a 54 68 65 20 6d 65 73 73 ┆ (0..65535) OF byte The mess┆
0x1f2c0…1f2e0 61 67 65 20 62 75 66 66 65 72 20 61 74 74 72 69 62 75 74 65 73 2c 20 61 63 63 6f 72 64 69 6e 67 ┆age buffer attributes, according┆
0x1f2e0…1f300 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 0a 2f 44 72 69 ┆ to the driver conventions /Dri┆
0x1f300…1f320 76 65 72 20 43 6f 6e 76 2e 2f 2c 20 61 72 65 20 74 68 65 72 65 66 6f 72 65 20 74 72 65 61 74 65 ┆ver Conv./, are therefore treate┆
0x1f320…1f340 64 20 61 73 20 75 6e 73 69 67 6e 65 64 20 61 74 74 72 69 62 75 74 65 73 20 69 6e 20 74 68 65 20 ┆d as unsigned attributes in the ┆
0x1f340…1f360 0a 72 61 6e 67 65 20 30 2e 2e 36 35 35 33 35 2e 20 0d 0a 16 53 43 0d 0a 43 6c 65 61 72 69 6e 74 ┆ range 0..65535. SC Clearint┆
0x1f360…1f380 65 72 72 75 70 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 63 6c 65 61 72 69 6e 74 65 72 72 ┆errupt PROCEDURE ┐▄пclearinterr┆
0x1f380…1f3a0 75 70 74 be 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 ┆uptЙ; Not predefined. ┆
0x1f3a0…1f3c0 20 2d 20 84 63 6c 65 61 72 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 74 65 72 72 75 70 74 ┆ - ёclears the current interrupt┆
0x1f3c0…1f3e0 69 6f 6e 20 6c 65 76 65 6c 20 61 6e 64 20 77 61 69 74 73 20 66 6f 72 20 61 6e 20 69 6e 74 65 72 ┆ion level and waits for an inter┆
0x1f3e0…1f400 72 75 70 74 2e 20 0a 19 85 80 80 49 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 68 61 73 20 73 74 ┆rupt. ЁђђIf the process has st┆
0x1f400…1f420 61 74 75 73 20 27 74 69 6d 65 64 6f 75 74 27 2c 20 74 68 65 20 63 61 6c 6c 20 68 61 73 20 6e 6f ┆atus 'timedout', the call has no┆
0x1f420…1f440 20 65 66 66 65 63 74 2e 20 0d 0a 16 53 43 0d 0a 43 6f 6e 74 72 6f 6c 0d 0a 50 52 4f 43 45 44 55 ┆ effect. SC Control PROCEDU┆
0x1f440…1f460 52 45 20 bf dc d8 63 6f 6e 74 72 6f 6c be 28 63 6f 6e 74 72 6f 6c 5f 77 6f 72 64 3a 20 31 36 62 ┆RE ┐▄пcontrolЙ(control_word: 16b┆
0x1f460…1f480 69 74 74 79 70 65 3b 56 41 52 20 63 68 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a ┆ittype;VAR chmsg: reference); ┆
0x1f480…1f4a0 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 ┆ Not predefined. - ёThe ┆
0x1f4a0…1f4c0 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 63 6f 6e 74 72 ┆contents of the parameter 'contr┆
0x1f4c0…1f4e0 6f 6c 5f 77 6f 72 64 27 20 61 72 65 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 0a 19 85 80 ┆ol_word' are transferred to Ёђ┆
0x1f4e0…1f500 80 74 68 65 20 43 4f 4e 54 52 4f 4c 20 72 65 67 69 73 74 65 72 20 69 6e 20 74 68 65 20 64 65 76 ┆ђthe CONTROL register in the dev┆
0x1f500…1f520 69 63 65 20 73 65 6c 65 63 74 65 64 20 62 79 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 0a 19 85 80 ┆ice selected by the channel Ёђ┆
0x1f520…1f540 80 6d 65 73 73 61 67 65 20 63 68 6d 73 67 2e 20 54 68 65 20 63 75 72 72 65 6e 74 20 69 6e 74 65 ┆ђmessage chmsg. The current inte┆
0x1f540…1f560 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 20 69 73 20 6e 6f 74 20 63 6c 65 61 72 65 64 20 73 6f ┆rruption level is not cleared so┆
0x1f560…1f580 20 0a 19 85 80 80 74 68 65 20 6e 65 78 74 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 65 78 65 63 ┆ Ёђђthe next statement is exec┆
0x1f580…1f5a0 75 74 65 64 20 77 69 74 68 6f 75 74 20 77 61 69 74 69 6e 67 20 66 6f 72 20 69 6e 74 65 72 72 75 ┆uted without waiting for interru┆
0x1f5a0…1f5c0 70 74 20 0a 19 85 80 80 66 72 6f 6d 20 74 68 65 20 64 65 76 69 63 65 2e 20 54 68 65 20 74 79 70 ┆pt Ёђђfrom the device. The typ┆
0x1f5c0…1f5e0 65 20 6f 66 20 27 63 6f 6e 74 72 6f 6c 5f 77 6f 72 64 27 20 6d 61 79 20 62 65 20 61 6e 79 20 74 ┆e of 'control_word' may be any t┆
0x1f5e0…1f600 79 70 65 20 6f 66 20 0a 19 85 80 80 73 69 7a 65 20 31 36 20 62 69 74 73 2e 20 0d 0a 0d 0a 41 6e ┆ype of Ёђђsize 16 bits. An┆
0x1f600…1f620 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 ┆ exception occurs if: - ё┆
0x1f620…1f640 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 27 63 68 6d 73 67 27 20 69 ┆the reference variable 'chmsg' i┆
0x1f640…1f660 73 20 6e 69 6c 2e 20 0d 0a 20 20 20 2d 20 84 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 ┆s nil. - ёthe reference var┆
0x1f660…1f680 69 61 62 6c 65 20 27 63 68 6d 73 67 27 20 69 73 20 6e 6f 74 20 61 20 63 68 61 6e 6e 65 6c 20 6d ┆iable 'chmsg' is not a channel m┆
0x1f680…1f6a0 65 73 73 61 67 65 2e 20 0d 0a 16 53 43 0d 0a 43 6f 6e 74 72 6f 6c 63 6c 72 0d 0a 50 52 4f 43 45 ┆essage. SC Controlclr PROCE┆
0x1f6a0…1f6c0 44 55 52 45 20 bf dc d8 63 6f 6e 74 72 6f 6c 63 6c 72 be 28 63 6f 6e 74 72 6f 6c 5f 77 6f 72 64 ┆DURE ┐▄пcontrolclrЙ(control_word┆
0x1f6c0…1f6e0 3a 20 31 36 62 69 74 74 79 70 65 29 3b 20 0d 0a 0d 0a 8c 89 80 0a 4e 6f 74 20 70 72 65 64 65 66 ┆: 16bittype); їЅђ Not predef┆
0x1f6e0…1f700 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 ┆ined. - ёThe contents of ┆
0x1f700…1f720 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 63 6f 6e 74 72 6f 6c 5f 77 6f 72 64 27 20 61 72 65 ┆the parameter 'control_word' are┆
0x1f720…1f740 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 0a 19 85 80 80 74 68 65 20 43 4f 4e 54 52 4f 4c ┆ transferred to Ёђђthe CONTROL┆
0x1f740…1f760 20 72 65 67 69 73 74 65 72 20 69 6e 20 74 68 65 20 64 65 76 69 63 65 20 73 65 6c 65 63 74 65 64 ┆ register in the device selected┆
0x1f760…1f780 20 62 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 80 0a 19 85 80 80 74 65 72 72 75 70 74 20 ┆ by the current inђ Ёђђterrupt ┆
0x1f780…1f7a0 6c 65 76 65 6c 2e 20 49 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 64 6f 65 73 20 6e 6f 74 20 68 ┆level. If the process does not h┆
0x1f7a0…1f7c0 61 76 65 20 73 74 61 74 75 73 20 27 74 69 6d 65 64 6f 75 74 27 2c 20 0a 19 85 80 80 74 68 65 20 ┆ave status 'timedout', Ёђђthe ┆
0x1f7c0…1f7e0 63 75 72 72 65 6e 74 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 20 69 73 20 63 6c ┆current interruption level is cl┆
0x1f7e0…1f800 65 61 72 65 64 2c 20 61 6e 64 20 74 68 65 20 6e 65 78 74 20 73 74 61 74 65 6d 65 6e 74 20 0a 19 ┆eared, and the next statement ┆
0x1f800…1f820 85 80 80 69 73 20 65 78 65 63 75 74 65 64 20 77 68 65 6e 20 61 6e 20 69 6e 74 65 72 72 75 70 74 ┆Ёђђis executed when an interrupt┆
0x1f820…1f840 20 61 72 72 69 76 65 73 20 66 72 6f 6d 20 74 68 65 20 64 65 76 69 63 65 2e 20 49 66 20 74 68 65 ┆ arrives from the device. If the┆
0x1f840…1f860 20 0a 19 85 80 80 70 72 6f 63 65 73 73 20 68 61 73 20 73 74 61 74 75 73 20 27 74 69 6d 65 64 6f ┆ Ёђђprocess has status 'timedo┆
0x1f860…1f880 75 74 27 2c 20 65 78 65 63 75 80 74 69 6f 6e 20 63 6f 6e 74 69 6e 75 65 73 20 69 6d 6d 65 64 69 ┆ut', execuђtion continues immedi┆
0x1f880…1f8a0 61 74 65 6c 79 2e 20 0d 0a 0d 0a 54 68 65 20 74 79 70 65 20 6f 66 20 63 6f 6e 74 72 6f 6c 5f 77 ┆ately. The type of control_w┆
0x1f8a0…1f8c0 6f 72 64 20 6d 61 79 20 62 65 20 61 6e 79 20 74 79 70 65 20 6f 66 20 73 69 7a 65 20 31 36 20 62 ┆ord may be any type of size 16 b┆
0x1f8c0…1f8e0 69 74 73 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a ┆its. An exception occurs if:┆
0x1f8e0…1f900 20 0d 0a 0d 0a 20 20 20 2d 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 ┆ - the reference variable┆
0x1f900…1f920 20 63 68 6d 73 67 20 69 73 20 6e 69 6c 0d 0a 20 20 20 2d 20 63 68 6d 73 67 20 69 73 20 6e 6f 74 ┆ chmsg is nil - chmsg is not┆
0x1f920…1f940 20 61 20 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 20 0d 0a 16 53 43 0d 0a 43 74 72 77 61 69 ┆ a channel message SC Ctrwai┆
0x1f940…1f960 74 69 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 63 74 72 77 61 69 74 69 64 be 28 63 3a 20 31 ┆tid FUNCTION ┐▄пctrwaitidЙ(c: 1┆
0x1f960…1f980 36 62 69 74 74 79 70 65 3b 20 6d 73 65 63 73 3a 20 69 6e 74 65 67 65 72 29 3a 20 61 63 74 69 76 ┆6bittype; msecs: integer): activ┆
0x1f980…1f9a0 61 74 69 6f 6e 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 ┆ation; Not predefined. ┆
0x1f9a0…1f9c0 20 20 2d 20 84 77 61 69 74 73 20 66 6f 72 20 74 77 6f 20 6b 69 6e 64 73 20 6f 66 20 65 76 65 6e ┆ - ёwaits for two kinds of even┆
0x1f9c0…1f9e0 74 3a 20 0d 0a 0d 0a 20 20 20 20 20 31 2e 20 41 6e 20 69 6e 74 65 72 72 75 70 74 20 28 61 5f 69 ┆t: 1. An interrupt (a_i┆
0x1f9e0…1fa00 6e 74 65 72 72 75 70 74 29 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 32 2e 20 45 78 70 69 72 61 ┆nterrupt) 2. Expira┆
0x1fa00…1fa20 74 69 6f 6e 20 6f 66 20 61 20 64 65 6c 61 79 20 70 65 72 69 6f 64 20 28 61 5f 64 65 6c 61 79 29 ┆tion of a delay period (a_delay)┆
0x1fa20…1fa40 20 0d 0a 0d 0a 54 68 65 20 74 69 6d 65 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 70 72 6f 63 ┆ The timer field of the proc┆
0x1fa40…1fa60 65 73 73 20 64 65 73 63 72 69 70 74 6f 72 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 74 6f ┆ess descriptor is initialized to┆
0x1fa60…1fa80 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 0a 27 6d 73 65 63 73 27 20 44 49 56 20 31 30 30 30 20 ┆ the value of 'msecs' DIV 1000 ┆
0x1fa80…1faa0 61 6e 64 20 74 68 65 20 63 6f 6e 74 72 6f 6c 20 77 6f 72 64 20 27 63 27 20 69 73 20 73 65 6e 74 ┆and the control word 'c' is sent┆
0x1faa0…1fac0 20 74 6f 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 0a 64 65 76 69 63 65 20 63 6f 6e 6e 65 63 80 ┆ to the external device connecђ┆
0x1fac0…1fae0 74 65 64 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 80 74 65 72 72 75 70 74 69 6f 6e ┆ted to the current inђterruption┆
0x1fae0…1fb00 20 6c 65 76 65 6c 2c 20 62 65 66 6f 72 65 20 74 68 65 20 77 61 69 74 20 69 73 20 0a 70 65 72 66 ┆ level, before the wait is perf┆
0x1fb00…1fb20 6f 72 6d 65 64 2e 20 0d 0a 0d 0a 4e 6f 74 65 20 74 68 61 74 20 64 65 6c 61 79 20 61 63 74 69 76 ┆ormed. Note that delay activ┆
0x1fb20…1fb40 61 74 69 6f 6e 20 6f 6e 6c 79 20 74 61 6b 65 73 20 70 6c 61 63 65 2c 20 69 66 20 74 68 65 20 72 ┆ation only takes place, if the r┆
0x1fb40…1fb60 6f 75 74 69 6e 65 20 27 64 65 66 69 6e 65 74 69 80 0a 6d 65 72 27 20 68 61 73 20 62 65 65 6e 20 ┆outine 'definetiђ mer' has been ┆
0x1fb60…1fb80 63 61 6c 6c 65 64 2e 20 0d 0a 16 53 43 0d 0a 43 74 72 77 61 69 74 69 6d 0d 0a 46 55 4e 43 54 49 ┆called. SC Ctrwaitim FUNCTI┆
0x1fb80…1fba0 4f 4e 20 bf dc d8 63 74 72 77 61 69 74 69 6d be 28 63 3a 20 31 36 62 69 74 74 79 70 65 3b 20 56 ┆ON ┐▄пctrwaitimЙ(c: 16bittype; V┆
0x1fba0…1fbc0 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AR r: reference; ┆
0x1fbc0…1fbe0 56 41 52 20 6d 3a 20 6d 61 69 6c 80 62 6f 78 29 3a 20 61 63 74 69 76 61 74 69 6f 6e 3b 20 0d 0a ┆VAR m: mailђbox): activation; ┆
0x1fbe0…1fc00 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 61 69 74 ┆ Not predefined. - ёwait┆
0x1fc00…1fc20 73 20 66 6f 72 20 74 77 6f 20 6b 69 6e 64 73 20 6f 66 20 65 76 65 6e 74 3a 20 0d 0a 0d 0a 20 20 ┆s for two kinds of event: ┆
0x1fc20…1fc40 20 20 20 20 31 2e 20 41 6e 20 69 6e 74 65 72 72 75 70 74 20 28 61 5f 69 6e 74 65 72 72 75 70 74 ┆ 1. An interrupt (a_interrupt┆
0x1fc40…1fc60 29 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 32 2e 20 84 54 68 65 20 61 72 72 69 76 61 6c 20 ┆) 2. ёThe arrival ┆
0x1fc60…1fc80 6f 66 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 6d 20 28 61 ┆of a message to the mailbox m (a┆
0x1fc80…1fca0 5f 6d 61 69 6c 62 6f 78 29 20 0d 0a 0d 0a 54 68 65 20 63 6f 6e 74 72 6f 6c 20 77 6f 72 64 20 27 ┆_mailbox) The control word '┆
0x1fca0…1fcc0 63 27 20 69 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 64 65 76 69 63 ┆c' is sent to the external devic┆
0x1fcc0…1fce0 65 20 63 6f 6e 6e 65 63 74 65 64 20 74 6f 20 74 68 65 20 0a 63 75 72 72 65 6e 74 20 69 6e 74 65 ┆e connected to the current inte┆
0x1fce0…1fd00 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 2c 20 62 65 66 6f 72 65 20 74 68 65 20 77 61 69 74 20 ┆rruption level, before the wait ┆
0x1fd00…1fd20 69 73 20 70 65 72 66 6f 72 6d 65 64 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f ┆is performed. An exception o┆
0x1fd20…1fd40 63 63 6f 75 72 73 20 69 66 3a 20 0d 0a 0d 0a 8c 89 80 0a 20 20 20 2d 20 84 74 68 65 20 72 65 66 ┆ccours if: їЅђ - ёthe ref┆
0x1fd40…1fd60 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 27 72 27 20 69 73 20 6e 6f 74 20 6e 69 6c 2e 20 ┆erence variable 'r' is not nil. ┆
0x1fd60…1fd80 0d 0a 16 53 43 0d 0a 43 74 72 77 61 69 74 69 6d 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 63 ┆ SC Ctrwaitimd FUNCTION ┐▄пc┆
0x1fd80…1fda0 74 72 77 61 69 74 69 6d 64 be 28 63 3a 20 31 36 62 69 74 74 79 70 65 3b 20 56 41 52 20 72 3a 20 ┆trwaitimdЙ(c: 16bittype; VAR r: ┆
0x1fda0…1fdc0 72 65 66 65 72 65 6e 63 65 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 6d 3a ┆reference; VAR m:┆
0x1fdc0…1fde0 20 6d 61 69 6c 80 62 6f 78 3b 20 6d 73 65 63 73 3a 20 69 6e 74 65 67 65 72 29 3a 20 61 63 74 69 ┆ mailђbox; msecs: integer): acti┆
0x1fde0…1fe00 76 61 74 69 6f 6e 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a ┆vation; Not predefined. ┆
0x1fe00…1fe20 20 20 20 2d 20 84 77 61 69 74 73 20 66 6f 72 20 74 68 72 65 65 20 6b 69 6e 64 73 20 6f 66 20 65 ┆ - ёwaits for three kinds of e┆
0x1fe20…1fe40 76 65 6e 74 3a 20 0d 0a 0d 0a 20 20 20 20 20 20 31 2e 20 41 6e 20 69 6e 74 65 72 72 75 70 74 20 ┆vent: 1. An interrupt ┆
0x1fe40…1fe60 28 61 5f 69 6e 74 65 72 72 75 70 74 29 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 32 2e 20 54 ┆(a_interrupt) 2. T┆
0x1fe60…1fe80 68 65 20 61 72 72 69 76 61 6c 20 6f 66 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 74 68 65 20 6d ┆he arrival of a message to the m┆
0x1fe80…1fea0 61 69 6c 62 6f 78 20 6d 20 28 61 5f 6d 61 69 6c 62 6f 78 29 20 0d 0a 20 20 20 20 20 20 33 2e 20 ┆ailbox m (a_mailbox) 3. ┆
0x1fea0…1fec0 45 78 70 69 72 61 74 69 6f 6e 20 6f 66 20 61 20 64 65 6c 61 79 20 70 65 72 69 6f 64 20 28 61 5f ┆Expiration of a delay period (a_┆
0x1fec0…1fee0 64 65 6c 61 79 29 20 0d 0a 0d 0a 54 68 65 20 74 69 6d 65 72 20 66 69 65 6c 64 20 6f 66 20 74 68 ┆delay) The timer field of th┆
0x1fee0…1ff00 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 6f 72 20 69 73 20 69 6e 69 74 69 61 6c 69 ┆e process descriptor is initiali┆
0x1ff00…1ff20 7a 65 64 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 0a 27 6d 73 65 63 73 27 20 44 49 56 ┆zed to the value of 'msecs' DIV┆
0x1ff20…1ff40 20 31 30 30 30 2c 20 74 68 65 20 63 6f 6e 74 72 6f 6c 20 77 6f 72 64 20 27 63 27 20 69 73 20 73 ┆ 1000, the control word 'c' is s┆
0x1ff40…1ff60 65 6e 74 20 74 6f 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 64 65 76 69 63 65 20 0a 63 6f 6e 6e ┆ent to the external device conn┆
0x1ff60…1ff80 65 63 74 65 64 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 74 65 72 72 75 70 80 74 69 ┆ected to the current interrupђti┆
0x1ff80…1ffa0 6f 6e 20 6c 65 76 65 6c 2c 20 61 6e 64 20 74 68 65 20 77 61 69 74 20 69 73 20 70 65 72 66 6f 72 ┆on level, and the wait is perfor┆
0x1ffa0…1ffc0 80 0a 6d 65 64 2e 20 0d 0a 0d 0a 44 65 6c 61 79 20 61 63 74 69 76 61 74 69 6f 6e 20 6f 6e 6c 79 ┆ђ med. Delay activation only┆
0x1ffc0…1ffe0 20 74 61 6b 65 73 20 70 6c 61 63 65 2c 20 69 66 20 61 20 63 61 6c 6c 20 6f 66 20 27 64 65 66 69 ┆ takes place, if a call of 'defi┆
0x1ffe0…20000 6e 65 74 69 6d 65 72 27 20 68 61 73 20 62 65 65 6e 20 0a 69 73 73 75 65 64 2e 20 41 6e 20 65 78 ┆netimer' has been issued. An ex┆
0x20000…20020 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 74 68 65 ┆ception occurs if: - ёthe┆
0x20020…20040 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 6e 69 6c 2e 20 ┆ reference variable is not nil. ┆
0x20040…20060 0d 0a 16 53 43 0d 0a 45 6f 69 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 65 6f 69 be 3a 20 62 6f ┆ SC Eoi FUNCTION ┐▄пeoiЙ: bo┆
0x20060…20080 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 50 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 ┆olean; Predefined. - ┆
0x20080…200a0 84 74 72 75 65 20 69 66 20 74 68 65 20 45 4f 49 20 28 a1 45 e1 6e 64 20 a1 4f e1 66 20 a1 49 e1 ┆ёtrue if the EOI (АEрnd АOрf АIр┆
0x200a0…200c0 6e 66 6f 72 6d 61 74 69 6f 6e 29 20 73 74 61 74 75 73 20 62 69 74 20 69 73 20 31 20 69 6e 20 74 ┆nformation) status bit is 1 in t┆
0x200c0…200e0 68 65 20 70 72 6f 80 0a 19 85 80 80 63 65 73 73 20 73 74 61 74 75 73 20 77 6f 72 64 20 69 6e 20 ┆he proђ Ёђђcess status word in ┆
0x200e0…20100 74 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 6f 72 2e 20 54 68 65 20 45 4f 49 20 ┆the process descriptor. The EOI ┆
0x20100…20120 73 74 61 74 75 73 20 62 69 74 20 69 73 20 0a 19 85 80 80 75 70 64 61 74 65 64 20 77 68 65 6e 65 ┆status bit is Ёђђupdated whene┆
0x20120…20140 76 65 72 20 61 20 72 65 61 64 20 6f 72 20 77 72 69 74 65 20 64 61 74 61 20 63 6f 6d 6d 61 6e 64 ┆ver a read or write data command┆
0x20140…20160 20 69 73 20 69 73 80 73 75 65 64 20 62 79 20 0a 19 85 80 80 74 68 65 20 70 72 6f 63 65 73 73 2e ┆ is isђsued by Ёђђthe process.┆
0x20160…20180 20 0d 0a 0d 0a 41 20 63 61 6c 6c 20 6f 66 20 65 6f 69 20 72 65 74 75 72 6e 69 6e 67 20 74 68 65 ┆ A call of eoi returning the┆
0x20180…201a0 20 76 61 6c 75 65 20 74 72 75 65 20 61 66 74 65 72 20 61 20 72 65 61 64 20 63 6f 6d 6d 61 6e 64 ┆ value true after a read command┆
0x201a0…201c0 20 69 6e 64 69 63 61 80 74 65 73 20 0a 74 68 61 74 20 74 68 65 20 64 65 76 69 63 65 20 68 61 73 ┆ indicaђtes that the device has┆
0x201c0…201e0 20 72 65 73 70 6f 6e 80 64 65 64 20 77 69 74 68 20 6e 6f 20 64 61 74 61 2e 20 41 20 63 61 6c 6c ┆ responђded with no data. A call┆
0x201e0…20200 20 6f 66 20 65 6f 69 20 72 65 74 75 72 80 6e 69 6e 67 20 0a 74 68 65 20 76 61 6c 75 65 20 74 72 ┆ of eoi returђning the value tr┆
0x20200…20220 75 65 20 61 66 74 65 72 20 61 20 77 72 69 74 65 20 63 6f 6d 80 6d 61 6e 64 20 69 6e 64 69 63 61 ┆ue after a write comђmand indica┆
0x20220…20240 74 65 73 20 74 68 61 74 20 74 68 65 20 64 65 76 69 63 65 20 68 61 73 20 0a 61 63 63 65 70 74 65 ┆tes that the device has accepte┆
0x20240…20260 64 20 74 68 65 20 64 61 74 61 20 61 6e 64 20 77 61 6e 74 73 20 6e 6f 20 6d 6f 72 65 20 64 61 74 ┆d the data and wants no more dat┆
0x20260…20280 61 2e 20 0d 0a 16 53 43 0d 0a 47 65 74 62 75 66 70 61 72 61 6d 0d 0a 50 52 4f 43 45 44 55 52 45 ┆a. SC Getbufparam PROCEDURE┆
0x20280…202a0 20 bf dc d8 67 65 74 62 75 66 70 61 72 61 6d be 28 56 41 52 20 62 75 66 70 61 72 61 6d 3a 20 36 ┆ ┐▄пgetbufparamЙ(VAR bufparam: 6┆
0x202a0…202c0 34 62 69 74 74 79 70 65 3b 20 66 69 72 73 74 2c 20 6c 61 73 74 3a 20 69 6e 74 65 67 65 72 3b 0d ┆4bittype; first, last: integer; ┆
0x202c0…202e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 ┆ VAR msg: referenc┆
0x202e0…20300 65 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 0e 0a 20 20 ┆e); Not predefined. ┆
0x20300…20320 20 2d 20 84 54 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 62 75 66 70 61 72 61 6d 27 20 69 73 20 ┆ - ёThe parameter 'bufparam' is ┆
0x20320…20340 73 75 70 70 6f 73 65 64 20 74 6f 20 62 65 20 6f 66 20 74 79 70 65 0d 0a 0d 0a 20 20 20 20 20 20 ┆supposed to be of type ┆
0x20340…20360 20 20 20 62 75 66 70 61 72 61 6d 74 79 70 65 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 ┆ bufparamtype= RECORD ┆
0x20360…20380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 70 2c 20 63 6f 75 6e 74 3a 20 69 6e ┆ top, count: in┆
0x20380…203a0 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆teger; ┆
0x203a0…203c0 20 64 61 74 61 73 74 61 72 74 3a 20 33 32 62 69 74 74 79 70 65 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ datastart: 32bittype; ┆
0x203c0…203e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 0f 0a 0d 0a 8c 89 98 0a 20 20 20 ┆ END; їЅў ┆
0x203e0…20400 2d 20 84 72 65 74 75 72 6e 73 20 74 68 65 20 73 74 61 72 74 20 61 64 64 72 65 73 73 20 6f 66 20 ┆- ёreturns the start address of ┆
0x20400…20420 74 68 65 20 62 79 74 65 20 77 69 74 68 20 69 6e 64 65 78 20 66 69 72 73 74 20 69 6e 20 74 68 65 ┆the byte with index first in the┆
0x20420…20440 20 0a 19 85 80 80 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 72 65 66 65 72 65 6e 63 65 64 20 ┆ Ёђђmessage buffer referenced ┆
0x20440…20460 62 79 20 6d 73 67 2e 20 41 73 20 61 20 73 69 64 65 20 65 66 66 65 63 74 20 63 6f 75 6e 74 20 61 ┆by msg. As a side effect count a┆
0x20460…20480 6e 64 20 0a 19 85 80 80 74 6f 70 20 61 72 65 20 75 70 64 61 74 65 64 20 61 73 3a 0d 0a 20 20 20 ┆nd Ёђђtop are updated as: ┆
0x20480…204a0 20 20 20 20 20 20 20 63 6f 75 6e 74 3a 3d 20 6d 61 64 64 28 75 73 75 62 28 6c 61 73 74 2c 20 66 ┆ count:= madd(usub(last, f┆
0x204a0…204c0 69 72 73 74 29 2c 20 31 29 20 0d 0a 20 20 20 20 20 20 20 20 20 20 74 6f 70 3a 3d 20 6d 61 64 64 ┆irst), 1) top:= madd┆
0x204c0…204e0 28 6c 61 73 74 2c 20 31 29 20 0d 0a 0d 0a 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 ┆(last, 1) The procedure is i┆
0x204e0…20500 6e 74 65 6e 64 65 64 20 66 6f 72 20 69 6e 69 74 69 61 6c 69 7a 69 6e 67 20 61 20 44 4d 41 20 63 ┆ntended for initializing a DMA c┆
0x20500…20520 6f 6e 74 72 6f 6c 6c 65 72 20 77 69 74 68 20 74 68 65 20 0a 73 74 61 72 74 20 61 64 64 72 65 73 ┆ontroller with the start addres┆
0x20520…20540 73 20 61 6e 64 20 63 6f 75 6e 74 20 66 6f 72 20 61 6e 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 ┆s and count for an input/output ┆
0x20540…20560 6f 70 65 72 61 74 69 6f 6e 2e 20 0d 0a 0d 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 78 63 ┆operation. The following exc┆
0x20560…20580 65 70 74 69 6f 6e 73 20 6d 61 79 20 6f 63 63 75 72 20 0d 0a 0d 0a 20 20 2d 20 74 68 65 20 76 61 ┆eptions may occur - the va┆
0x20580…205a0 6c 75 65 20 6f 66 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 69 73 20 4e 49 4c 20 20 20 0d 0a ┆lue of the reference is NIL ┆
0x205a0…205c0 20 20 2d 20 6e 6f 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 0d 0a 20 20 2d 20 73 69 7a 65 ┆ - no message buffer - size┆
0x205c0…205e0 20 74 6f 6f 20 73 6d 61 6c 6c 20 20 20 0d 0a 20 20 2d 20 75 6c 74 28 6c 61 73 74 2c 20 66 69 72 ┆ too small - ult(last, fir┆
0x205e0…20600 73 74 29 20 0d 0a 16 53 43 0d 0a 49 6e 62 79 74 65 62 6c 6f 63 6b 0d 0a 50 52 4f 43 45 44 55 52 ┆st) SC Inbyteblock PROCEDUR┆
0x20600…20620 45 20 bf dc d8 69 6e 62 79 74 65 62 6c 6f 63 6b be 28 56 41 52 20 6e 65 78 74 3a 20 69 6e 74 65 ┆E ┐▄пinbyteblockЙ(VAR next: inte┆
0x20620…20640 67 65 72 3b 20 66 69 72 73 74 2c 20 6c 61 73 74 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 ┆ger; first, last: integer; ┆
0x20640…20660 20 20 20 20 20 20 20 20 20 20 56 41 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 0d 0a ┆ VAR msg: reference); ┆
0x20660…20680 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d ┆ Defined in rc3502env. -┆
0x20680…206a0 20 84 69 6e 70 75 74 73 20 61 20 62 6c 6f 63 6b 20 6f 66 20 62 79 74 65 73 20 74 6f 20 74 68 65 ┆ ёinputs a block of bytes to the┆
0x206a0…206c0 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 73 70 65 63 69 66 69 65 64 20 62 79 20 0a 19 85 ┆ message buffer specified by Ё┆
0x206c0…206e0 80 80 27 6d 73 67 27 2c 20 27 66 69 72 73 74 27 20 61 6e 64 20 27 6c 61 73 74 27 20 66 72 6f 6d ┆ђђ'msg', 'first' and 'last' from┆
0x206e0…20700 20 74 68 65 20 64 65 76 69 63 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 74 68 65 20 63 75 72 ┆ the device specified by the cur┆
0x20700…20720 72 65 6e 74 20 0a 19 85 80 80 69 6e 74 65 72 80 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 2e 20 57 ┆rent Ёђђinterђruption level. W┆
0x20720…20740 68 65 6e 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 74 65 72 6d 69 6e 61 74 65 73 2c 20 27 6e ┆hen the procedure terminates, 'n┆
0x20740…20760 65 78 74 27 20 77 69 6c 6c 20 62 65 20 0a 19 85 80 80 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 ┆ext' will be Ёђђthe index of t┆
0x20760…20780 68 65 20 62 79 74 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 6c 61 73 74 20 62 79 74 65 20 ┆he byte following the last byte ┆
0x20780…207a0 69 6e 70 75 74 2e 20 0d 0a 0d 0a 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 77 69 6c 6c 20 74 65 ┆input. The procedure will te┆
0x207a0…207c0 72 6d 69 6e 61 74 65 20 69 6e 20 74 77 6f 20 73 69 74 75 61 74 69 6f 6e 73 3a 20 0d 0a 0d 0a 20 ┆rminate in two situations: ┆
0x207c0…207e0 20 20 20 20 2d 20 77 68 65 6e 20 6e 65 78 74 3d 6d 61 64 64 28 6c 61 73 74 2c 20 31 29 3b 20 20 ┆ - when next=madd(last, 1); ┆
0x207e0…20800 20 20 20 20 0d 0a 20 20 20 20 20 2d 20 77 68 65 6e 20 65 6f 69 3d 74 72 75 65 20 0d 0a 0d 0a 49 ┆ - when eoi=true I┆
0x20800…20820 66 20 6e 6f 74 68 69 6e 67 20 69 73 20 69 6e 70 75 74 20 27 6e 65 78 74 27 3d 27 66 69 72 73 74 ┆f nothing is input 'next'='first┆
0x20820…20840 27 2e 20 0d 0a 0d 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 78 63 65 70 74 69 6f 6e 73 20 ┆'. The following exceptions ┆
0x20840…20860 6d 61 79 20 6f 63 63 75 72 3a 20 0d 0a 0d 0a 20 20 20 20 20 2d 20 74 68 65 20 72 65 66 65 72 65 ┆may occur: - the refere┆
0x20860…20880 6e 63 65 20 76 61 72 69 61 62 6c 65 20 27 6d 73 67 27 20 69 73 20 6e 69 6c 20 20 20 20 20 20 0d ┆nce variable 'msg' is nil ┆
0x20880…208a0 0a 20 20 20 20 20 2d 20 74 68 65 20 6d 65 73 73 61 67 65 20 27 6d 73 67 27 20 68 61 73 20 6e 6f ┆ - the message 'msg' has no┆
0x208a0…208c0 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 0d 0a 20 20 20 20 20 2d 20 73 69 7a 65 20 6f 66 ┆ message buffer - size of┆
0x208c0…208e0 20 27 6d 73 67 27 20 69 73 20 74 6f 6f 20 73 6d 61 6c 6c 20 20 20 20 20 20 0d 0a 20 20 20 20 20 ┆ 'msg' is too small ┆
0x208e0…20900 2d 20 75 6c 74 28 6c 61 73 74 2c 20 66 69 72 73 74 29 20 0d 0a 16 53 43 0d 0a 49 6e 77 6f 72 64 ┆- ult(last, first) SC Inword┆
0x20900…20920 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 69 6e 77 6f 72 64 be 28 56 41 52 20 77 6f 72 64 3a ┆ PROCEDURE ┐▄пinwordЙ(VAR word:┆
0x20920…20940 20 31 36 62 69 74 74 79 70 65 3b 20 56 41 52 20 63 68 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 ┆ 16bittype; VAR chmsg: reference┆
0x20940…20960 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 ┆); Not predefined. - ┆
0x20960…20980 84 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 44 41 54 41 49 4e 20 72 65 67 69 ┆ёthe contents of the DATAIN regi┆
0x20980…209a0 73 74 65 72 20 69 6e 20 74 68 65 20 64 65 76 69 63 65 20 73 65 6c 65 63 74 65 64 20 62 79 20 0a ┆ster in the device selected by ┆
0x209a0…209c0 19 85 80 80 74 68 65 20 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 20 27 63 68 6d 73 67 27 20 ┆ Ёђђthe channel message 'chmsg' ┆
0x209c0…209e0 69 73 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 ┆is transferred to the parameter ┆
0x209e0…20a00 0a 19 85 80 80 27 77 6f 72 64 27 2e 20 49 66 20 65 6f 69 3d 74 72 75 65 20 61 66 74 65 72 20 74 ┆ Ёђђ'word'. If eoi=true after t┆
0x20a00…20a20 68 65 20 63 61 6c 6c 2c 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 27 77 6f 72 64 27 20 ┆he call, the contents of 'word' ┆
0x20a20…20a40 61 72 65 20 0a 19 85 80 80 75 6e 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 54 68 65 20 74 79 70 65 ┆are Ёђђundefined. The type┆
0x20a40…20a60 20 6f 66 20 27 77 6f 72 64 27 20 6d 61 79 20 62 65 20 61 6e 79 20 74 79 70 65 20 6f 66 20 73 69 ┆ of 'word' may be any type of si┆
0x20a60…20a80 7a 65 20 31 36 20 62 69 74 73 2e 20 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 ┆ze 16 bits. An exception occ┆
0x20a80…20aa0 75 72 73 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 69 74 75 61 74 69 6f 6e 73 3a ┆urs in the following situations:┆
0x20aa0…20ac0 20 0d 0a 0d 0a 8c 89 f8 0a 20 20 20 2d 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 ┆ їЅЭ - the reference vari┆
0x20ac0…20ae0 61 62 6c 65 20 27 63 68 6d 73 67 27 20 69 73 20 6e 69 6c 20 20 20 20 0d 0a 20 20 20 2d 20 27 63 ┆able 'chmsg' is nil - 'c┆
0x20ae0…20b00 68 6d 73 67 27 20 69 73 20 6e 6f 74 20 61 20 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 20 0d ┆hmsg' is not a channel message ┆
0x20b00…20b20 0a 16 53 43 0d 0a 49 6e 77 6f 72 64 62 6c 6f 63 6b 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 ┆ SC Inwordblock PROCEDURE ┐▄п┆
0x20b20…20b40 69 6e 77 6f 72 64 62 6c 6f 63 6b be 28 56 41 52 20 6e 65 78 74 3a 20 69 6e 74 65 67 65 72 3b 20 ┆inwordblockЙ(VAR next: integer; ┆
0x20b40…20b60 66 69 72 73 74 2c 20 6c 61 73 74 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆first, last: integer; ┆
0x20b60…20b80 20 20 20 20 20 56 41 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 8c 81 ┆ VAR msg: reference); їЂ┆
0x20b80…20ba0 90 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d ┆љ Defined in rc3502env. -┆
0x20ba0…20bc0 20 84 69 6e 70 75 74 73 20 61 20 62 6c 6f 63 6b 20 6f 66 20 77 6f 72 64 73 20 74 6f 20 74 68 65 ┆ ёinputs a block of words to the┆
0x20bc0…20be0 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 73 70 65 63 69 66 69 65 64 20 62 79 20 0a 19 85 ┆ message buffer specified by Ё┆
0x20be0…20c00 80 80 27 6d 73 67 27 2c 20 27 66 69 72 73 74 27 2c 20 61 6e 64 20 27 6c 61 73 74 27 20 66 72 6f ┆ђђ'msg', 'first', and 'last' fro┆
0x20c00…20c20 6d 20 74 68 65 20 64 65 76 69 63 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 74 68 65 20 63 75 ┆m the device specified by the cu┆
0x20c20…20c40 72 80 0a 19 85 80 80 72 65 6e 74 20 69 6e 80 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 2e ┆rђ Ёђђrent inђterruption level.┆
0x20c40…20c60 20 0d 0a 0d 0a 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 74 65 72 6d 69 6e 61 74 65 73 20 69 6e ┆ The procedure terminates in┆
0x20c60…20c80 20 74 77 6f 20 73 69 74 75 61 74 69 6f 6e 73 3a 20 0d 0a 0d 0a 20 20 20 2d 20 77 68 65 6e 20 6e ┆ two situations: - when n┆
0x20c80…20ca0 65 78 74 3d 6d 61 64 64 28 6c 61 73 74 2c 20 31 29 20 20 20 20 0d 0a 20 20 20 2d 20 77 68 65 6e ┆ext=madd(last, 1) - when┆
0x20ca0…20cc0 20 65 6f 69 3d 74 72 75 65 20 0d 0a 0d 0a 49 66 20 6e 6f 74 68 69 6e 67 20 69 73 20 69 6e 70 75 ┆ eoi=true If nothing is inpu┆
0x20cc0…20ce0 74 20 27 6e 65 78 74 27 3d 27 66 69 72 73 74 27 2e 20 0d 0a 46 69 72 73 74 20 61 6e 64 20 6c 61 ┆t 'next'='first'. First and la┆
0x20ce0…20d00 73 74 20 6d 75 73 74 20 73 70 65 63 69 66 79 20 61 6e 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 6f ┆st must specify an even number o┆
0x20d00…20d20 66 20 62 79 74 65 73 20 28 75 73 75 62 28 6c 61 73 74 2c 20 66 69 72 73 74 29 20 0a 6d 75 73 74 ┆f bytes (usub(last, first) must┆
0x20d20…20d40 20 62 65 20 6f 64 64 29 2e 20 0d 0a 0d 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 78 63 65 ┆ be odd). The following exce┆
0x20d40…20d60 70 74 69 6f 6e 73 20 6d 61 79 20 6f 63 63 75 72 3a 20 0d 0a 0d 0a 20 20 20 2d 20 74 68 65 20 72 ┆ptions may occur: - the r┆
0x20d60…20d80 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 27 6d 73 67 27 20 69 73 20 6e 69 6c 20 20 ┆eference variable 'msg' is nil ┆
0x20d80…20da0 20 20 0d 0a 20 20 20 2d 20 74 68 65 20 6d 65 73 73 61 67 65 20 27 6d 73 67 27 20 68 61 73 20 6e ┆ - the message 'msg' has n┆
0x20da0…20dc0 6f 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 0d 0a 20 20 20 2d 20 27 6d 61 64 64 28 75 73 75 ┆o message buffer - 'madd(usu┆
0x20dc0…20de0 62 28 6c 61 73 74 2c 20 66 69 72 73 74 29 2c 20 31 29 27 20 69 73 20 6f 64 64 20 20 20 20 0d 0a ┆b(last, first), 1)' is odd ┆
0x20de0…20e00 20 20 20 2d 20 73 69 7a 65 20 6f 66 20 27 6d 73 67 27 20 69 73 20 74 6f 6f 20 73 6d 61 6c 6c 20 ┆ - size of 'msg' is too small ┆
0x20e00…20e20 20 20 20 0d 0a 20 20 20 2d 20 75 6c 74 28 6c 61 73 74 2c 20 66 69 72 73 74 29 20 0d 0a 16 53 43 ┆ - ult(last, first) SC┆
0x20e20…20e40 0d 0a 49 6e 77 6f 72 64 63 6c 72 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 69 6e 77 6f 72 64 ┆ Inwordclr PROCEDURE ┐▄пinword┆
0x20e40…20e60 63 6c 72 be 28 56 41 52 20 77 6f 72 64 20 3a 20 31 36 62 69 74 74 79 70 65 29 3b 20 0d 0a 0d 0a ┆clrЙ(VAR word : 16bittype); ┆
0x20e60…20e80 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 63 6f ┆Not predefined. - ёThe co┆
0x20e80…20ea0 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 44 41 54 41 49 4e 20 72 65 67 69 73 74 65 72 20 69 6e ┆ntents of the DATAIN register in┆
0x20ea0…20ec0 20 74 68 65 20 64 65 76 69 63 65 2c 20 73 65 6c 65 63 74 65 64 20 62 79 20 0a 19 85 80 80 74 68 ┆ the device, selected by Ёђђth┆
0x20ec0…20ee0 65 20 63 75 72 72 65 6e 74 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 2c 20 69 73 ┆e current interruption level, is┆
0x20ee0…20f00 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 0a 19 ┆ transferred to the parameter ┆
0x20f00…20f20 85 80 80 27 77 6f 72 64 27 2e 20 49 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 68 61 73 20 73 74 ┆Ёђђ'word'. If the process has st┆
0x20f20…20f40 61 74 75 73 20 27 74 69 6d 65 64 6f 75 74 27 2c 20 65 78 65 63 75 80 74 69 6f 6e 20 63 6f 6e 74 ┆atus 'timedout', execuђtion cont┆
0x20f40…20f60 69 6e 75 65 73 20 0a 19 85 80 80 69 6d 6d 65 64 69 61 74 65 6c 79 2e 20 49 66 20 74 68 65 20 70 ┆inues Ёђђimmediately. If the p┆
0x20f60…20f80 72 6f 63 65 73 73 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 73 74 61 74 75 73 20 27 74 69 6d ┆rocess does not have status 'tim┆
0x20f80…20fa0 65 64 6f 75 74 27 2c 20 74 68 65 20 0a 19 85 80 80 63 75 72 72 65 6e 74 20 69 6e 74 65 72 72 75 ┆edout', the Ёђђcurrent interru┆
0x20fa0…20fc0 70 74 69 6f 6e 20 6c 65 76 65 6c 20 69 73 20 63 6c 65 61 72 65 64 2c 20 73 6f 20 74 68 65 20 6e ┆ption level is cleared, so the n┆
0x20fc0…20fe0 65 78 74 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 0a 19 85 80 80 65 78 65 63 75 74 65 64 20 77 ┆ext statement is Ёђђexecuted w┆
0x20fe0…21000 68 65 6e 20 61 6e 20 69 6e 74 65 72 72 75 70 74 20 61 72 72 69 76 65 73 20 66 72 6f 6d 20 74 68 ┆hen an interrupt arrives from th┆
0x21000…21020 65 20 64 65 76 69 63 65 2e 20 0d 0a 0d 0a 54 68 65 20 74 79 70 65 20 6f 66 20 27 77 6f 72 64 27 ┆e device. The type of 'word'┆
0x21020…21040 20 6d 61 79 20 62 65 20 61 6e 79 20 74 79 70 65 20 6f 66 20 73 69 7a 65 20 31 36 20 62 69 74 73 ┆ may be any type of size 16 bits┆
0x21040…21060 2e 20 0d 0a 16 53 43 0d 0a 49 6f 77 62 77 63 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 69 6f ┆. SC Iowbwc PROCEDURE ┐▄пio┆
0x21060…21080 77 62 77 63 be 28 62 75 66 70 61 72 61 6d 3a 20 36 34 62 69 74 74 79 70 65 29 3b 20 0d 0a 0d 0a ┆wbwcЙ(bufparam: 64bittype); ┆
0x21080…210a0 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 74 68 65 20 70 61 ┆Not predefined. - ёthe pa┆
0x210a0…210c0 72 61 6d 65 74 65 72 20 27 62 75 66 70 61 72 61 6d 27 20 69 73 20 73 75 70 70 6f 73 65 64 20 74 ┆rameter 'bufparam' is supposed t┆
0x210c0…210e0 6f 20 62 65 20 64 65 63 6c 61 72 65 64 20 61 73 0d 0a 20 20 20 20 20 20 20 62 75 66 70 61 72 61 ┆o be declared as bufpara┆
0x210e0…21100 6d 74 79 70 65 3d 20 52 45 43 4f 52 44 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆mtype= RECORD ┆
0x21100…21120 20 20 20 20 20 20 20 20 20 20 74 6f 70 2c 20 63 6f 75 6e 74 3a 20 69 6e 74 65 67 65 72 3b 0d 0a ┆ top, count: integer; ┆
0x21120…21140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 74 61 73 74 61 72 74 ┆ datastart┆
0x21140…21160 3a 20 33 32 62 69 74 74 79 70 65 3b 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆: 32bittype; ┆
0x21160…21180 20 20 20 20 45 4e 44 3b 20 0d 0a 0d 0a 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 6f 75 74 70 75 ┆ END; The procedure outpu┆
0x21180…211a0 74 73 20 61 20 62 6c 6f 63 6b 20 6f 66 20 77 6f 72 64 73 20 66 72 6f 6d 20 61 20 62 75 66 66 65 ┆ts a block of words from a buffe┆
0x211a0…211c0 72 20 73 70 65 63 69 66 69 65 64 20 62 79 20 0a 27 64 61 74 61 73 74 61 72 74 27 2e 20 54 68 65 ┆r specified by 'datastart'. The┆
0x211c0…211e0 20 6e 75 6d 62 65 72 20 6f 66 20 77 6f 72 64 73 20 77 69 6c 6c 20 62 65 20 27 63 6f 75 6e 74 27 ┆ number of words will be 'count'┆
0x211e0…21200 20 44 49 56 20 32 20 28 63 6f 75 6e 74 3d 30 20 69 73 20 0a 69 6e 74 65 72 70 72 65 74 65 64 20 ┆ DIV 2 (count=0 is interpreted ┆
0x21200…21220 61 73 20 33 32 20 4b 20 77 6f 72 64 73 29 2e 20 0d 0a 0d 0a 54 68 65 20 70 72 6f 63 65 64 75 72 ┆as 32 K words). The procedur┆
0x21220…21240 65 20 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 73 69 6d 75 6c 74 61 6e 65 6f 75 73 20 6f ┆e is intended for simultaneous o┆
0x21240…21260 75 74 70 75 74 20 6f 66 20 64 61 74 61 20 72 65 73 69 64 69 6e 67 20 69 6e 20 0a 6f 6e 65 20 6d ┆utput of data residing in one m┆
0x21260…21280 65 73 73 61 67 65 2e 20 54 68 65 20 61 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 20 74 6f 20 ┆essage. The actual parameter to ┆
0x21280…212a0 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 6d 61 79 20 62 65 20 6f 62 74 61 69 6e 65 64 20 0a 62 ┆the procedure may be obtained b┆
0x212a0…212c0 79 20 6d 65 61 6e 73 20 6f 66 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 27 67 65 74 62 75 66 ┆y means of the procedure 'getbuf┆
0x212c0…212e0 70 61 72 61 6d 27 2e 20 0d 0a 0d 0a 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 63 61 6e 20 62 65 ┆param'. The procedure can be┆
0x212e0…21300 20 63 61 6c 6c 65 64 20 61 66 74 65 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 61 73 20 73 68 ┆ called after declarations as sh┆
0x21300…21320 6f 77 6e 20 62 65 6c 6f 77 0d 0a 0d 0a 54 59 50 45 20 20 20 20 20 0d 0a 20 20 62 75 66 70 61 72 ┆own below TYPE bufpar┆
0x21320…21340 61 6d 74 79 70 65 20 3d 20 52 45 43 4f 52 44 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆amtype = RECORD ┆
0x21340…21360 20 20 20 20 20 20 20 20 74 6f 70 2c 20 63 6f 75 6e 74 3a 20 69 6e 74 65 67 65 72 3b 20 20 20 0d ┆ top, count: integer; ┆
0x21360…21380 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 74 61 73 74 61 72 74 3a 20 33 ┆ datastart: 3┆
0x21380…213a0 32 62 69 74 74 79 70 65 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b ┆2bittype; END;┆
0x213a0…213c0 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 69 6f 77 62 77 63 28 62 75 66 70 61 72 61 6d 3a 20 ┆ PROCEDURE iowbwc(bufparam: ┆
0x213c0…213e0 62 75 66 70 61 72 61 6d 74 79 70 65 29 3b 20 45 58 54 45 52 4e 41 4c 3b 20 0d 0a 16 73 63 0d 0a ┆bufparamtype); EXTERNAL; sc ┆
0x213e0…21400 4d 65 73 73 61 67 65 6b 69 6e 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 6d 65 73 73 61 67 65 ┆Messagekind FUNCTION ┐▄пmessage┆
0x21400…21420 6b 69 6e 64 be 28 56 41 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 69 6e 74 65 67 ┆kindЙ(VAR msg: reference): integ┆
0x21420…21440 65 72 3b 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 0d 0a 0d 0a ┆er; Defined in rc3502env. ┆
0x21440…21460 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 61 20 6e 65 67 61 74 69 76 65 20 6e 75 6d 62 65 72 20 ┆ - ёreturns a negative number ┆
0x21460…21480 69 66 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 20 69 73 20 61 20 bf ┆if the designated message is a ┐┆
0x21480…214a0 dc d8 63 68 61 6e 80 0a 19 85 80 80 6e 65 6c 20 6d 65 73 73 61 67 65 be 2c 20 6f 74 68 65 72 77 ┆▄пchanђ Ёђђnel messageЙ, otherw┆
0x214a0…214c0 69 73 65 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 6f ┆ise the result is greater than o┆
0x214c0…214e0 72 20 65 71 75 61 6c 20 74 6f 20 30 2e 0d 0a 84 0d 0a 0e 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e ┆r equal to 0. ё An exception┆
0x214e0…21500 20 6f 63 63 75 72 73 20 69 66 3a 20 0d 0a 0d 0a 20 20 20 2d 20 74 68 65 20 72 65 66 65 72 65 6e ┆ occurs if: - the referen┆
0x21500…21520 63 65 20 76 61 72 69 61 62 6c 65 20 27 6d 73 67 27 20 69 73 20 6e 69 6c 20 20 20 20 0d 0a 0f 0a ┆ce variable 'msg' is nil ┆
0x21520…21540 16 53 43 0d 0a 4f 75 74 62 79 74 65 62 6c 6f 63 6b 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 ┆ SC Outbyteblock PROCEDURE ┐▄п┆
0x21540…21560 6f 75 74 62 79 74 65 62 6c 6f 63 6b be 28 56 41 52 20 6e 65 78 74 3a 20 69 6e 74 65 67 65 72 3b ┆outbyteblockЙ(VAR next: integer;┆
0x21560…21580 20 66 69 72 73 74 2c 20 6c 61 73 74 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 20 20 20 20 20 20 20 ┆ first, last: integer; ┆
0x21580…215a0 20 20 20 20 20 20 20 56 41 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a ┆ VAR msg: reference); ┆
0x215a0…215c0 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 ┆Defined in rc3502env. - ё┆
0x215c0…215e0 6f 75 74 70 75 74 73 20 61 20 62 6c 6f 63 6b 20 6f 66 20 62 79 74 65 73 20 66 72 6f 6d 20 74 68 ┆outputs a block of bytes from th┆
0x215e0…21600 65 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 73 70 65 63 69 66 69 65 64 20 62 79 20 0a 19 ┆e message buffer specified by ┆
0x21600…21620 85 80 80 27 6d 73 67 27 2c 20 27 66 69 72 73 74 27 2c 20 61 6e 64 20 27 6c 61 73 74 27 20 74 6f ┆Ёђђ'msg', 'first', and 'last' to┆
0x21620…21640 20 74 68 65 20 64 65 76 69 63 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 74 68 65 20 63 75 72 ┆ the device specified by the cur┆
0x21640…21660 72 65 6e 74 20 0a 19 85 80 80 69 6e 74 65 72 80 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 2e 20 57 ┆rent Ёђђinterђruption level. W┆
0x21660…21680 68 65 6e 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 74 65 72 6d 69 6e 61 74 65 73 2c 20 27 6e ┆hen the procedure terminates, 'n┆
0x21680…216a0 65 78 74 27 20 77 69 6c 6c 20 62 65 20 0a 19 85 80 80 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 ┆ext' will be Ёђђthe index of t┆
0x216a0…216c0 68 65 20 62 79 74 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 6c 61 73 74 20 62 79 74 65 20 ┆he byte following the last byte ┆
0x216c0…216e0 6f 75 74 70 75 74 2e 20 54 68 65 20 70 72 6f 63 65 80 0a 19 85 80 80 64 75 72 65 20 77 69 6c 6c ┆output. The proceђ Ёђђdure will┆
0x216e0…21700 20 74 65 72 6d 69 6e 61 74 65 20 77 68 65 6e 20 27 6e 65 78 74 3d 6d 61 64 64 28 6c 61 73 74 2c ┆ terminate when 'next=madd(last,┆
0x21700…21720 20 31 29 27 2e 20 0d 0a 0d 0a 49 66 20 6e 6f 74 68 69 6e 67 20 69 73 20 6f 75 74 70 75 74 20 6e ┆ 1)'. If nothing is output n┆
0x21720…21740 65 78 74 3d 66 69 72 73 74 2e 20 0d 0a 0d 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 78 63 ┆ext=first. The following exc┆
0x21740…21760 65 70 74 69 6f 6e 73 20 6d 61 79 20 6f 63 63 75 72 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 74 68 65 ┆eptions may occur: - ёthe┆
0x21760…21780 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 27 6d 73 67 27 20 69 73 20 6e 69 6c ┆ reference variable 'msg' is nil┆
0x21780…217a0 20 0d 0a 20 20 20 2d 20 84 74 68 65 20 6d 65 73 73 61 67 65 20 27 6d 73 67 27 20 68 61 73 20 6e ┆ - ёthe message 'msg' has n┆
0x217a0…217c0 6f 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 0d 0a 20 20 20 2d 20 84 73 69 7a 65 20 6f 66 20 ┆o message buffer - ёsize of ┆
0x217c0…217e0 27 6d 73 67 27 20 69 73 20 74 6f 6f 20 73 6d 61 6c 6c 20 0d 0a 20 20 20 2d 20 84 75 6c 74 28 6c ┆'msg' is too small - ёult(l┆
0x217e0…21800 61 73 74 2c 20 66 69 72 73 74 29 20 0d 0a 16 53 43 0d 0a 4f 75 74 77 6f 72 64 0d 0a 50 52 4f 43 ┆ast, first) SC Outword PROC┆
0x21800…21820 45 44 55 52 45 20 bf dc d8 6f 75 74 77 6f 72 64 be 28 77 6f 72 64 3a 20 31 36 62 69 74 74 79 70 ┆EDURE ┐▄пoutwordЙ(word: 16bittyp┆
0x21820…21840 65 3b 20 56 41 52 20 63 68 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 4e 6f ┆e; VAR chmsg: reference); No┆
0x21840…21860 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 63 6f 6e 74 ┆t predefined. - ёThe cont┆
0x21860…21880 65 6e 74 73 20 6f 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 77 6f 72 64 27 20 61 72 65 ┆ents of the parameter 'word' are┆
0x21880…218a0 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 74 68 65 20 0a 19 85 80 80 44 41 54 41 4f 55 54 ┆ transferred to the ЁђђDATAOUT┆
0x218a0…218c0 20 72 65 67 69 73 74 65 72 20 69 6e 20 74 68 65 20 64 65 76 69 63 65 20 73 65 6c 65 63 74 65 64 ┆ register in the device selected┆
0x218c0…218e0 20 62 79 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 80 0a 19 85 80 80 67 65 20 27 63 ┆ by the channel messaђ Ёђђge 'c┆
0x218e0…21900 68 6d 73 67 27 2e 20 54 68 65 20 63 75 72 72 65 6e 74 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 ┆hmsg'. The current interruption ┆
0x21900…21920 6c 65 76 65 6c 20 69 73 20 6e 6f 74 20 63 6c 65 61 72 65 64 20 73 6f 20 74 68 65 20 0a 19 85 80 ┆level is not cleared so the Ёђ┆
0x21920…21940 80 6e 65 78 74 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 65 78 65 63 75 74 65 64 20 77 69 74 68 ┆ђnext statement is executed with┆
0x21940…21960 6f 75 74 20 77 61 69 74 69 6e 67 20 66 6f 72 20 69 6e 74 65 72 72 75 70 74 20 66 72 6f 6d 20 0a ┆out waiting for interrupt from ┆
0x21960…21980 19 85 80 80 74 68 65 20 64 65 76 69 63 65 2e 20 0d 0a 0d 0a 54 68 65 20 74 79 70 65 20 6f 66 20 ┆ Ёђђthe device. The type of ┆
0x21980…219a0 27 77 6f 72 64 27 20 6d 61 79 20 62 65 20 61 6e 79 20 74 79 70 65 20 6f 66 20 73 69 7a 65 20 31 ┆'word' may be any type of size 1┆
0x219a0…219c0 36 20 62 69 74 73 2e 20 0d 0a 0d 0a 8c 94 88 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 ┆6 bits. їћѕ An exception occ┆
0x219c0…219e0 75 72 73 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 69 74 75 61 74 69 6f 6e 73 3a ┆urs in the following situations:┆
0x219e0…21a00 20 0d 0a 0d 0a 20 20 20 2d 20 84 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c ┆ - ёthe reference variabl┆
0x21a00…21a20 65 20 27 63 68 6d 73 67 27 20 69 73 20 6e 69 6c 20 0d 0a 20 20 20 2d 20 84 27 63 68 6d 73 67 27 ┆e 'chmsg' is nil - ё'chmsg'┆
0x21a20…21a40 20 69 73 20 6e 6f 74 20 61 20 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 20 0d 0a 16 53 43 0d ┆ is not a channel message SC ┆
0x21a40…21a60 0a 4f 75 74 77 6f 72 64 62 6c 6f 63 6b 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 6f 75 74 77 ┆ Outwordblock PROCEDURE ┐▄пoutw┆
0x21a60…21a80 6f 72 64 62 6c 6f 63 6b be 28 56 41 52 20 6e 65 78 74 3a 20 69 6e 74 65 67 65 72 3b 20 66 69 72 ┆ordblockЙ(VAR next: integer; fir┆
0x21a80…21aa0 73 74 2c 20 6c 61 73 74 3a 20 69 6e 74 65 67 65 72 3b 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 ┆st, last: integer; ┆
0x21aa0…21ac0 20 20 20 20 20 20 56 41 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 44 ┆ VAR msg: reference); D┆
0x21ac0…21ae0 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 6f ┆efined in rc3502env. - ёo┆
0x21ae0…21b00 75 74 70 75 74 73 20 61 20 62 6c 6f 63 6b 20 6f 66 20 77 6f 72 64 73 20 66 72 6f 6d 20 74 68 65 ┆utputs a block of words from the┆
0x21b00…21b20 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 73 70 65 63 69 66 69 65 64 20 62 79 20 0a 19 85 ┆ message buffer specified by Ё┆
0x21b20…21b40 80 80 27 6d 73 67 27 2c 20 27 66 69 72 73 74 27 2c 20 61 6e 64 20 27 6c 61 73 74 27 20 74 6f 20 ┆ђђ'msg', 'first', and 'last' to ┆
0x21b40…21b60 74 68 65 20 64 65 76 69 63 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 74 68 65 20 63 75 72 72 ┆the device specified by the curr┆
0x21b60…21b80 65 6e 74 20 0a 19 85 80 80 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 2e 20 0d 0a 0d ┆ent Ёђђinterruption level. ┆
0x21b80…21ba0 0a 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 74 65 72 6d 69 6e 61 74 65 73 20 77 68 65 6e 20 6e ┆ The procedure terminates when n┆
0x21ba0…21bc0 65 78 74 3d 6d 61 64 64 28 6c 61 73 74 2c 20 31 29 2e 20 0d 0a 0d 0a 49 66 20 6e 6f 74 68 69 6e ┆ext=madd(last, 1). If nothin┆
0x21bc0…21be0 67 20 69 73 20 6f 75 74 70 75 74 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 6e 65 78 74 20 62 65 ┆g is output the value of next be┆
0x21be0…21c00 63 6f 6d 65 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 66 69 72 73 74 2e 20 0d 0a 0d 0a 46 69 ┆comes the value of first. Fi┆
0x21c00…21c20 72 73 74 20 61 6e 64 20 6c 61 73 74 20 6d 75 73 74 20 73 70 65 63 69 66 79 20 61 6e 20 65 76 65 ┆rst and last must specify an eve┆
0x21c20…21c40 6e 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 28 75 73 75 62 28 6c 61 73 74 2c 20 66 69 ┆n number of bytes (usub(last, fi┆
0x21c40…21c60 72 73 74 29 20 0a 6d 75 73 74 20 62 65 20 6f 64 64 29 2e 20 0d 0a 0d 0a 54 68 65 20 66 6f 6c 6c ┆rst) must be odd). The foll┆
0x21c60…21c80 6f 77 69 6e 67 20 65 78 63 65 70 74 69 6f 6e 73 20 6d 61 79 20 6f 63 63 75 72 3a 20 0d 0a 0d 0a ┆owing exceptions may occur: ┆
0x21c80…21ca0 20 20 20 2d 20 84 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 ┆ - ёthe reference variable is ┆
0x21ca0…21cc0 6e 69 6c 20 0d 0a 20 20 20 2d 20 84 74 68 65 20 6d 65 73 73 61 67 65 20 27 6d 73 67 27 20 68 61 ┆nil - ёthe message 'msg' ha┆
0x21cc0…21ce0 73 20 6e 6f 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 0d 0a 20 20 20 2d 20 84 74 68 65 20 76 ┆s no message buffer - ёthe v┆
0x21ce0…21d00 61 6c 75 65 20 6f 66 20 6d 61 64 64 28 75 73 75 62 28 6c 61 73 74 2c 20 66 69 72 73 74 29 2c 20 ┆alue of madd(usub(last, first), ┆
0x21d00…21d20 31 29 20 69 73 20 6f 64 64 20 0d 0a 20 20 20 2d 20 84 73 69 7a 65 20 6f 66 20 27 6d 73 67 27 20 ┆1) is odd - ёsize of 'msg' ┆
0x21d20…21d40 69 73 20 74 6f 6f 20 73 6d 61 6c 6c 20 0d 0a 20 20 20 2d 20 84 75 6c 74 28 6c 61 73 74 2c 20 66 ┆is too small - ёult(last, f┆
0x21d40…21d60 69 72 73 74 29 20 0d 0a 16 53 43 0d 0a 4f 75 74 77 6f 72 64 63 6c 72 0d 0a 50 52 4f 43 45 44 55 ┆irst) SC Outwordclr PROCEDU┆
0x21d60…21d80 52 45 20 bf dc d8 6f 75 74 77 6f 72 64 63 6c 72 be 28 77 6f 72 64 3a 20 31 36 62 69 74 74 79 70 ┆RE ┐▄пoutwordclrЙ(word: 16bittyp┆
0x21d80…21da0 65 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d ┆e); Not predefined. -┆
0x21da0…21dc0 20 84 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 ┆ ёthe contents of the parameter ┆
0x21dc0…21de0 27 77 6f 72 64 27 20 61 72 65 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 74 68 65 20 0a 19 ┆'word' are transferred to the ┆
0x21de0…21e00 85 80 80 44 41 54 41 4f 55 54 20 72 65 67 69 73 74 65 72 20 69 6e 20 74 68 65 20 64 65 76 69 63 ┆ЁђђDATAOUT register in the devic┆
0x21e00…21e20 65 20 73 65 6c 65 63 74 65 64 20 62 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 74 65 72 80 ┆e selected by the current interђ┆
0x21e20…21e40 0a 19 85 80 80 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 2e 20 49 66 20 74 68 65 20 70 72 6f 63 65 ┆ Ёђђruption level. If the proce┆
0x21e40…21e60 73 73 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 73 74 61 74 75 73 20 27 74 69 6d 65 64 6f 75 ┆ss does not have status 'timedou┆
0x21e60…21e80 74 27 2c 20 0a 19 85 80 80 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 74 65 72 72 75 70 74 69 6f ┆t', Ёђђthe current interruptio┆
0x21e80…21ea0 6e 20 6c 65 76 65 6c 20 69 73 20 63 6c 65 61 72 65 64 2c 20 73 6f 20 74 68 65 20 6e 65 78 74 20 ┆n level is cleared, so the next ┆
0x21ea0…21ec0 73 74 61 74 65 6d 65 6e 74 20 0a 19 85 80 80 69 73 20 65 78 65 63 75 74 65 64 2c 20 77 68 65 6e ┆statement Ёђђis executed, when┆
0x21ec0…21ee0 20 61 6e 20 69 6e 74 65 72 72 75 70 74 20 61 72 72 69 76 65 73 20 66 72 6f 6d 20 74 68 65 20 64 ┆ an interrupt arrives from the d┆
0x21ee0…21f00 65 76 69 80 63 65 2e 20 49 66 20 74 68 65 20 0a 19 85 80 80 70 72 6f 63 65 73 73 20 68 61 73 20 ┆eviђce. If the Ёђђprocess has ┆
0x21f00…21f20 73 74 61 74 75 73 20 27 74 69 6d 65 64 6f 75 74 27 2c 20 65 78 65 63 75 74 69 6f 6e 20 63 6f 6e ┆status 'timedout', execution con┆
0x21f20…21f40 74 69 6e 75 65 73 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 20 0d 0a 0d 0a 54 68 65 20 74 79 70 65 ┆tinues immediately. The type┆
0x21f40…21f60 20 6f 66 20 27 77 6f 72 64 27 20 6d 61 79 20 62 65 20 61 6e 79 20 74 79 70 65 20 6f 66 20 73 69 ┆ of 'word' may be any type of si┆
0x21f60…21f80 7a 65 20 31 36 20 62 69 74 73 2e 20 0d 0a 16 53 43 0d 0a 52 65 73 65 72 76 65 63 68 0d 0a 46 55 ┆ze 16 bits. SC Reservech FU┆
0x21f80…21fa0 4e 43 54 49 4f 4e 20 bf dc d8 72 65 73 65 72 76 65 63 68 be 28 56 41 52 20 63 68 6d 73 67 3a 20 ┆NCTION ┐▄пreservechЙ(VAR chmsg: ┆
0x21fa0…21fc0 72 65 66 65 72 65 6e 63 65 3b 20 6c 65 76 65 6c 2c 20 6d 61 73 6b 3a 20 69 6e 74 65 67 65 72 29 ┆reference; level, mask: integer)┆
0x21fc0…21fe0 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 80 74 65 67 65 72 3b 20 0d 0a 0d 0a 44 65 ┆: inђteger; De┆
0x21fe0…22000 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 ┆fined in rc3502env. - ё┆
0x22000…22020 61 6c 6c 6f 63 61 74 65 73 20 74 68 65 20 bf dc d8 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 ┆allocates the ┐▄пchannel message┆
0x22020…22040 be 20 74 6f 20 74 68 65 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 20 73 70 65 63 ┆Й to the interruption level spec┆
0x22040…22060 69 66 69 65 64 20 0a 19 85 80 80 62 79 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 6c 65 76 ┆ified Ёђђby the parameter 'lev┆
0x22060…22080 65 6c 27 2e 20 54 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 6d 61 73 6b 27 20 69 73 20 69 6e 74 ┆el'. The parameter 'mask' is int┆
0x22080…220a0 65 6e 64 65 64 20 66 6f 72 20 0a 19 85 80 80 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 6f 66 20 ┆ended for Ёђђspecification of ┆
0x220a0…220c0 74 68 65 20 61 63 74 69 6f 6e 73 20 74 68 65 20 75 73 65 72 20 77 61 6e 74 73 20 74 6f 20 70 65 ┆the actions the user wants to pe┆
0x220c0…220e0 72 66 6f 72 6d 20 6f 6e 20 74 68 65 20 0a 19 85 80 80 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c ┆rform on the Ёђђinterruption l┆
0x220e0…22100 65 76 65 6c 2e 20 54 68 65 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 6e 6f 74 20 75 73 65 64 20 ┆evel. The parameter is not used ┆
0x22100…22120 69 6e 20 74 68 69 73 20 72 65 76 69 73 69 6f 6e 2e 20 0d 0a 0d 0a 8c 89 f8 0a 52 65 73 75 6c 74 ┆in this revision. їЅЭ Result┆
0x22120…22140 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 84 52 65 73 65 72 ┆s Meaning 0 ёReser┆
0x22140…22160 76 61 74 69 6f 6e 20 4f 4b 2e 20 27 63 68 6d 73 67 27 20 72 65 66 65 72 73 20 74 6f 20 74 68 65 ┆vation OK. 'chmsg' refers to the┆
0x22160…22180 20 61 6c 6c 6f 63 61 74 65 64 20 63 68 61 6e 6e 65 6c 20 0a 19 89 80 80 6d 65 73 73 61 67 65 2e ┆ allocated channel Ѕђђmessage.┆
0x22180…221a0 20 20 20 20 20 0d 0a 20 20 20 20 31 20 20 20 20 84 54 68 65 20 69 6e 74 65 72 72 75 70 74 69 6f ┆ 1 ёThe interruptio┆
0x221a0…221c0 6e 20 6c 65 76 65 6c 20 69 73 20 61 6c 72 65 61 64 79 20 72 65 73 65 72 76 65 64 20 6f 72 20 69 ┆n level is already reserved or i┆
0x221c0…221e0 73 20 6e 6f 74 20 69 6e 73 74 61 6c 6c 65 64 2e 20 20 20 20 0d 0a 20 20 20 20 32 20 20 20 20 54 ┆s not installed. 2 T┆
0x221e0…22200 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 27 63 68 6d 73 67 27 20 69 73 ┆he reference variable 'chmsg' is┆
0x22200…22220 20 6e 6f 74 20 6e 69 6c 20 62 65 66 6f 72 65 20 63 61 6c 6c 2e 20 0d 0a 16 53 43 0d 0a 52 65 73 ┆ not nil before call. SC Res┆
0x22220…22240 65 72 76 65 65 78 74 6d 65 6d 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 72 65 73 65 72 76 65 65 ┆erveextmem FUNCTION ┐▄пreservee┆
0x22240…22260 78 74 6d 65 6d be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 63 6c 61 73 73 2c 20 ┆xtmemЙ(VAR r: reference; class, ┆
0x22260…22280 73 69 7a 65 2c 20 6d 65 6d 6e 6f 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 70 3a ┆size, memno, disp:┆
0x22280…222a0 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 ┆ integer): integer; Not pred┆
0x222a0…222c0 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 2d 20 20 20 20 20 84 61 6c 6c 6f 63 61 74 65 73 20 61 20 6d ┆efined. - ёallocates a m┆
0x222c0…222e0 65 73 73 61 67 65 20 62 75 66 66 65 72 20 69 6e 20 74 68 65 20 61 72 65 61 20 38 30 2e 30 30 30 ┆essage buffer in the area 80.000┆
0x222e0…22300 30 20 74 6f 20 39 65 2e 66 66 66 66 2c 20 63 61 6c 80 0a 19 86 80 80 6c 65 64 20 27 65 78 74 65 ┆0 to 9e.ffff, calђ єђђled 'exte┆
0x22300…22320 72 6e 61 6c 20 52 41 4d 27 2e 20 54 68 65 20 73 74 61 72 74 20 61 64 64 72 65 73 73 20 69 73 20 ┆rnal RAM'. The start address is ┆
0x22320…22340 73 70 65 63 69 66 69 65 64 20 62 79 20 27 6d 65 6d 6e 6f 27 20 0a 19 86 80 80 61 6e 64 20 27 64 ┆specified by 'memno' єђђand 'd┆
0x22340…22360 69 73 70 27 2e 20 54 68 65 20 62 75 66 66 65 72 20 73 69 7a 65 20 69 73 20 73 70 65 63 69 66 69 ┆isp'. The buffer size is specifi┆
0x22360…22380 65 64 20 62 79 20 27 73 69 7a 65 27 20 69 6e 20 a0 77 6f 72 64 73 e0 2e 20 0a 19 86 80 80 27 43 ┆ed by 'size' in аwordsЯ. єђђ'C┆
0x22380…223a0 6c 61 73 73 27 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 74 79 70 65 20 6f 66 20 63 68 65 63 ┆lass' specifies the type of chec┆
0x223a0…223c0 6b 2c 20 74 68 65 20 72 6f 75 74 69 6e 65 20 70 65 72 66 6f 72 6d 73 20 64 75 72 69 6e 67 20 0a ┆k, the routine performs during ┆
0x223c0…223e0 19 86 80 80 72 65 73 65 72 76 61 74 69 6f 6e 2e 20 0d 0a 0d 0a 0e 0a 54 68 65 20 6d 65 6d 6f 72 ┆ єђђreservation. The memor┆
0x223e0…22400 79 20 68 61 73 20 74 68 65 20 66 6f 72 6d 61 74 20 28 62 79 20 63 6f 6e 76 65 6e 74 69 6f 6e 29 ┆y has the format (by convention)┆
0x22400…22420 3a 20 0d 0a 0d 0a 6d 65 6d 3d 20 52 45 43 4f 52 44 20 0d 0a 20 20 20 20 20 20 20 69 6e 74 72 2c ┆: mem= RECORD intr,┆
0x22420…22440 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 72 65 73 65 74 2c 20 20 20 20 20 20 20 20 0d ┆ reset, ┆
0x22440…22460 0a 20 20 20 20 20 20 20 63 6c 61 73 73 2c 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 73 ┆ class, s┆
0x22460…22480 69 7a 65 6c 73 62 2c 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 73 69 7a 65 6d 73 62 2c ┆izelsb, sizemsb,┆
0x22480…224a0 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 76 65 72 73 69 6f 6e 2c 20 20 20 20 20 20 20 ┆ version, ┆
0x224a0…224c0 20 0d 0a 20 20 20 20 20 20 20 69 6e 74 72 6e 6f 3a 20 62 79 74 65 3b 20 20 20 20 20 20 20 20 0d ┆ intrno: byte; ┆
0x224c0…224e0 0a 20 20 20 20 20 20 20 73 70 61 72 65 3a 20 41 52 52 41 59 20 28 37 2e 2e 33 31 29 20 4f 46 20 ┆ spare: ARRAY (7..31) OF ┆
0x224e0…22500 62 79 74 65 3b 0d 0a 20 20 20 20 45 4e 44 20 0d 0a 0f 0a 0d 0a 49 66 20 27 73 69 7a 65 27 3d 20 ┆byte; END If 'size'= ┆
0x22500…22520 30 20 2c 20 74 68 65 20 73 69 7a 65 20 69 73 20 74 61 6b 65 6e 20 66 72 6f 6d 20 74 68 65 20 6d ┆0 , the size is taken from the m┆
0x22520…22540 65 6d 6f 72 79 20 6c 6f 63 61 74 69 6f 6e 73 20 27 73 69 7a 65 6c 73 62 27 2c 20 0a 61 6e 64 20 ┆emory locations 'sizelsb', and ┆
0x22540…22560 27 73 69 7a 65 6d 73 62 27 2c 20 77 68 69 63 68 20 69 73 20 74 68 65 20 73 69 7a 65 20 69 6e 20 ┆'sizemsb', which is the size in ┆
0x22560…22580 62 79 74 65 73 20 6f 6e 20 49 6e 74 65 6c 20 69 6e 74 65 67 65 72 20 66 6f 72 6d 2e 20 0d 0a 0d ┆bytes on Intel integer form. ┆
0x22580…225a0 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 68 65 63 6b 73 20 61 72 65 20 70 65 72 66 6f 72 ┆ The following checks are perfor┆
0x225a0…225c0 6d 65 64 3a 20 0d 0a 63 6c 61 73 73 3d 31 09 4e 6f 20 63 68 65 63 6b 2e 20 0d 0a 63 6c 61 73 73 ┆med: class=1 No check. class┆
0x225c0…225e0 3d 32 09 6d 65 6d 2e 72 65 73 65 74 3d 36 2e 20 0d 0a 6f 74 68 65 72 77 69 73 65 09 6d 65 6d 2e ┆=2 mem.reset=6. otherwise mem.┆
0x225e0…22600 63 6c 61 73 73 3d 63 6c 61 73 73 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 09 4d 65 61 6e 69 6e 67 20 ┆class=class. Result Meaning ┆
0x22600…22620 0d 0a 30 09 84 52 65 73 65 72 76 61 74 69 6f 6e 20 6f 6b 2e 20 27 72 27 20 72 65 66 65 72 73 20 ┆ 0 ёReservation ok. 'r' refers ┆
0x22620…22640 61 20 6d 65 73 73 61 67 65 2c 20 77 68 65 72 65 20 74 68 65 20 62 75 66 66 65 72 20 0a 19 8d 80 ┆a message, where the buffer Їђ┆
0x22640…22660 80 69 73 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 20 6d 65 6d 6f 72 79 2e 20 54 68 65 20 76 ┆ђis the specified memory. The v┆
0x22660…22680 61 6c 75 65 20 6f 66 20 27 62 75 66 73 69 7a 65 27 20 69 73 20 74 68 65 20 0a 19 8d 80 80 61 63 ┆alue of 'bufsize' is the Їђђac┆
0x22680…226a0 80 74 75 61 6c 20 73 69 7a 65 20 69 6e 20 62 79 74 65 73 2e 20 0d 0a 31 09 84 41 6c 72 65 61 64 ┆ђtual size in bytes. 1 ёAlread┆
0x226a0…226c0 79 20 72 65 73 65 72 76 65 64 2e 20 54 68 65 20 6d 65 6d 6f 72 79 20 69 73 20 6f 63 63 75 70 69 ┆y reserved. The memory is occupi┆
0x226c0…226e0 65 64 2c 20 6f 72 20 74 68 65 20 72 65 80 0a 19 8d 80 80 71 75 65 73 74 65 64 20 6d 65 6d 6f 72 ┆ed, or the reђ Їђђquested memor┆
0x226e0…22700 79 20 6f 76 65 72 6c 61 70 73 20 61 6e 20 61 72 65 61 2c 20 77 68 69 63 68 20 69 73 20 61 6c 72 ┆y overlaps an area, which is alr┆
0x22700…22720 65 61 64 79 20 0a 19 8d 80 80 72 65 73 65 72 76 65 64 2e 20 0d 0a 32 09 84 54 68 65 20 72 65 66 ┆eady Їђђreserved. 2 ёThe ref┆
0x22720…22740 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 27 72 27 20 69 73 20 6e 6f 74 20 6e 69 6c 20 62 ┆erence variable 'r' is not nil b┆
0x22740…22760 65 66 6f 72 65 20 63 61 6c 6c 2e 20 0d 0a 33 09 84 49 6c 6c 65 67 61 6c 20 27 6d 65 6d 6e 6f 27 ┆efore call. 3 ёIllegal 'memno'┆
0x22760…22780 2e 20 4f 6e 6c 79 20 6d 6f 64 75 6c 65 73 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 30 2e 2e 31 ┆. Only modules in the range 0..1┆
0x22780…227a0 35 20 20 20 20 20 20 0a 19 8d 80 80 61 72 65 20 6c 65 67 61 6c 2e 20 0d 0a 34 09 84 4e 6f 20 6d ┆5 Їђђare legal. 4 ёNo m┆
0x227a0…227c0 65 6d 6f 72 79 2e 20 4e 6f 20 70 68 79 73 69 63 61 6c 20 6d 65 6d 6f 72 79 20 69 73 20 69 6e 73 ┆emory. No physical memory is ins┆
0x227c0…227e0 74 61 6c 6c 65 64 20 69 6e 20 74 68 65 20 72 65 80 0a 19 8d 80 80 71 75 65 73 74 65 64 20 61 72 ┆talled in the reђ Їђђquested ar┆
0x227e0…22800 65 61 2e 20 0d 0a 35 09 84 49 6c 6c 65 67 61 6c 20 63 6c 61 73 73 2e 20 54 68 65 20 72 65 71 75 ┆ea. 5 ёIllegal class. The requ┆
0x22800…22820 65 73 74 65 64 20 63 6c 61 73 73 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 0a ┆ested class does not match the ┆
0x22820…22840 19 8d 80 80 6c 6f 63 61 74 69 6f 6e 20 27 6d 65 6d 2e 63 6c 61 73 73 27 2e 20 4e 6f 74 65 20 63 ┆ Їђђlocation 'mem.class'. Note c┆
0x22840…22860 6c 61 73 73 31 20 61 6e 64 20 63 6c 61 73 73 32 2e 20 0d 0a 36 09 84 4e 6f 20 72 65 73 6f 75 72 ┆lass1 and class2. 6 ёNo resour┆
0x22860…22880 63 65 73 2e 20 4d 65 73 73 61 67 65 20 68 65 61 64 65 72 73 20 63 6f 75 6c 64 20 6e 6f 74 20 62 ┆ces. Message headers could not b┆
0x22880…228a0 65 20 61 6c 6c 6f 63 61 74 65 64 20 0a 19 8d 80 80 74 6f 20 64 65 73 63 72 69 62 65 20 74 68 65 ┆e allocated Їђђto describe the┆
0x228a0…228c0 20 72 65 71 75 65 73 74 65 64 20 6d 65 6d 6f 72 79 20 61 72 65 61 2e 20 0d 0a 37 09 84 49 6c 6c ┆ requested memory area. 7 ёIll┆
0x228c0…228e0 65 67 61 6c 20 73 69 7a 65 2e 20 27 73 69 7a 65 3d 30 27 20 69 73 20 72 65 74 75 72 6e 65 64 20 ┆egal size. 'size=0' is returned ┆
0x228e0…22900 66 72 6f 6d 20 74 68 65 20 6d 65 6d 6f 72 79 20 6c 6f 63 61 80 0a 19 8d 80 80 74 69 6f 6e 73 20 ┆from the memory locaђ Їђђtions ┆
0x22900…22920 27 73 69 7a 65 6c 73 62 27 2c 20 61 6e 64 20 27 73 69 7a 65 6d 73 62 27 2e 20 0d 0a 16 53 43 0d ┆'sizelsb', and 'sizemsb'. SC ┆
0x22920…22940 0a 53 65 6e 73 65 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 6e 73 65 be 28 56 41 52 20 ┆ Sense PROCEDURE ┐▄пsenseЙ(VAR ┆
0x22940…22960 73 74 61 74 75 73 5f 69 6e 3a 20 31 36 62 69 74 74 79 70 65 3b 20 73 74 61 74 75 73 5f 6f 75 74 ┆status_in: 16bittype; status_out┆
0x22960…22980 3a 20 31 36 62 69 74 74 79 70 65 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 ┆: 16bittype; VAR┆
0x22980…229a0 20 63 68 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 ┆ chmsg: reference); Not pred┆
0x229a0…229c0 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f ┆efined. - ёThe contents o┆
0x229c0…229e0 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 27 73 74 61 74 75 73 5f 6f 75 74 27 20 61 72 65 ┆f the parameter 'status_out' are┆
0x229e0…22a00 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 0a 19 85 80 80 74 68 65 20 53 54 41 54 55 53 4f ┆ transferred to Ёђђthe STATUSO┆
0x22a00…22a20 55 54 20 72 65 67 69 73 74 65 72 20 69 6e 20 74 68 65 20 64 65 76 69 63 65 20 73 65 6c 65 63 74 ┆UT register in the device select┆
0x22a20…22a40 65 64 20 62 79 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 0a 19 85 80 80 6d 65 73 73 61 67 65 20 27 ┆ed by the channel Ёђђmessage '┆
0x22a40…22a60 63 68 6d 73 67 27 2e 20 41 73 20 61 20 72 65 73 70 6f 6e 73 65 20 66 72 6f 6d 20 74 68 65 20 64 ┆chmsg'. As a response from the d┆
0x22a60…22a80 65 76 69 63 65 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 0a 19 85 80 80 74 68 65 20 53 ┆evice the contents of Ёђђthe S┆
0x22a80…22aa0 54 41 54 55 53 49 4e 20 72 65 67 69 73 74 65 72 20 61 72 65 20 74 72 61 6e 73 66 65 72 72 65 64 ┆TATUSIN register are transferred┆
0x22aa0…22ac0 20 74 6f 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 0a 19 85 80 80 27 73 74 61 74 75 73 5f 69 ┆ to the parameter Ёђђ'status_i┆
0x22ac0…22ae0 6e 27 2e 20 54 68 65 20 63 75 72 72 65 6e 74 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 ┆n'. The current interruption lev┆
0x22ae0…22b00 65 6c 20 69 73 20 6e 6f 74 20 63 6c 65 61 72 65 64 20 73 6f 20 74 68 65 20 0a 19 85 80 80 6e 65 ┆el is not cleared so the Ёђђne┆
0x22b00…22b20 78 74 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 65 78 65 63 75 74 65 64 20 77 69 74 68 6f 75 74 ┆xt statement is executed without┆
0x22b20…22b40 20 77 61 69 74 69 6e 67 20 66 6f 72 20 69 6e 74 65 72 72 75 70 74 20 66 72 6f 6d 20 0a 19 85 80 ┆ waiting for interrupt from Ёђ┆
0x22b40…22b60 80 74 68 65 20 64 65 76 69 63 65 2e 20 0d 0a 0d 0a 8c 8d 90 0a 54 68 65 20 74 79 70 65 20 6f 66 ┆ђthe device. їЇљ The type of┆
0x22b60…22b80 20 27 73 74 61 74 75 73 5f 69 6e 27 20 61 6e 64 20 27 73 74 61 74 75 73 5f 6f 75 74 27 20 6d 61 ┆ 'status_in' and 'status_out' ma┆
0x22b80…22ba0 79 20 62 65 20 61 6e 79 20 74 79 70 65 20 6f 66 20 73 69 7a 65 20 31 36 20 0a 62 69 74 73 2e 20 ┆y be any type of size 16 bits. ┆
0x22ba0…22bc0 0d 0a 0d 0a 41 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 6e 20 74 68 65 20 66 ┆ An exception occurs in the f┆
0x22bc0…22be0 6f 6c 6c 6f 77 69 6e 67 20 73 69 74 75 61 74 69 6f 6e 73 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 74 ┆ollowing situations: - ёt┆
0x22be0…22c00 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 27 63 68 6d 73 67 27 20 69 73 ┆he reference variable 'chmsg' is┆
0x22c00…22c20 20 6e 69 6c 20 0d 0a 20 20 20 2d 20 84 63 68 6d 73 67 20 69 73 20 6e 6f 74 20 61 20 63 68 61 6e ┆ nil - ёchmsg is not a chan┆
0x22c20…22c40 6e 65 6c 20 6d 65 73 73 61 67 65 20 0d 0a 16 53 43 0d 0a 53 65 6e 73 65 63 6c 72 0d 0a 50 52 4f ┆nel message SC Senseclr PRO┆
0x22c40…22c60 43 45 44 55 52 45 20 bf dc d8 73 65 6e 73 65 63 6c 72 be 28 56 41 52 20 73 74 61 74 75 73 5f 69 ┆CEDURE ┐▄пsenseclrЙ(VAR status_i┆
0x22c60…22c80 6e 3a 20 31 36 62 69 74 74 79 70 65 3b 20 73 74 61 74 75 73 5f 6f 75 74 3a 20 31 36 62 69 74 74 ┆n: 16bittype; status_out: 16bitt┆
0x22c80…22ca0 79 70 65 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 2c 20 6d 61 ┆ype; compare, ma┆
0x22ca0…22cc0 73 6b 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 ┆sk: integer); Not predefined┆
0x22cc0…22ce0 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 54 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 ┆. - ёThe contents of the ┆
0x22ce0…22d00 70 61 72 61 6d 65 74 65 72 20 27 73 74 61 74 75 73 5f 6f 75 74 27 20 61 72 65 20 74 72 61 6e 73 ┆parameter 'status_out' are trans┆
0x22d00…22d20 66 65 72 72 65 64 20 74 6f 20 0a 19 85 80 80 74 68 65 20 73 74 61 74 75 73 6f 75 74 20 72 65 67 ┆ferred to Ёђђthe statusout reg┆
0x22d20…22d40 69 73 74 65 72 20 69 6e 20 74 68 65 20 64 65 76 69 63 65 20 73 65 6c 65 63 74 65 64 20 62 79 20 ┆ister in the device selected by ┆
0x22d40…22d60 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 80 0a 19 85 80 80 74 65 72 72 75 70 74 69 6f 6e 20 6c ┆the current inђ Ёђђterruption l┆
0x22d60…22d80 65 76 65 6c 2e 20 54 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 53 54 41 54 55 53 ┆evel. The contents of the STATUS┆
0x22d80…22da0 49 4e 20 72 65 67 69 73 74 65 72 20 61 72 65 20 0a 19 85 80 80 74 72 61 6e 73 66 65 72 72 65 64 ┆IN register are Ёђђtransferred┆
0x22da0…22dc0 20 74 6f 20 52 43 33 35 30 32 2e 20 49 66 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 73 74 61 74 ┆ to RC3502. If the value of stat┆
0x22dc0…22de0 75 73 69 6e 20 69 73 20 74 72 75 65 20 61 6e 64 20 0a 19 85 80 80 27 6d 61 73 6b 27 20 68 61 73 ┆usin is true and Ёђђ'mask' has┆
0x22de0…22e00 20 76 61 6c 75 65 20 27 63 6f 6d 70 61 72 65 27 2c 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 63 ┆ value 'compare', the original c┆
0x22e00…22e20 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 73 74 61 74 75 73 69 6e 20 0a 19 85 80 80 72 65 67 ┆ontents of the statusin Ёђђreg┆
0x22e20…22e40 69 73 74 65 72 20 61 72 65 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 74 68 65 20 70 61 72 ┆ister are transferred to the par┆
0x22e40…22e60 61 6d 65 74 65 72 20 27 73 74 61 74 75 73 5f 69 6e 27 2c 20 61 6e 64 20 74 68 65 20 0a 19 85 80 ┆ameter 'status_in', and the Ёђ┆
0x22e60…22e80 80 6e 65 78 74 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 65 78 65 63 75 74 65 64 20 77 69 74 68 ┆ђnext statement is executed with┆
0x22e80…22ea0 6f 75 74 20 77 61 69 74 69 6e 67 20 66 6f 72 20 69 6e 74 65 72 72 75 70 74 20 66 72 6f 6d 20 0a ┆out waiting for interrupt from ┆
0x22ea0…22ec0 19 85 80 80 74 68 65 20 64 65 76 69 63 65 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 63 75 ┆ Ёђђthe device. Otherwise the cu┆
0x22ec0…22ee0 72 72 65 6e 74 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 20 69 73 20 63 6c 65 61 ┆rrent interruption level is clea┆
0x22ee0…22f00 72 65 64 20 0a 19 85 80 80 61 6e 64 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 72 65 ┆red Ёђђand the procedure is re┆
0x22f00…22f20 70 65 80 61 74 65 64 2c 20 77 68 65 6e 20 74 68 65 20 6e 65 78 74 20 69 6e 74 65 72 72 75 70 74 ┆peђated, when the next interrupt┆
0x22f20…22f40 20 61 72 72 69 76 65 73 20 0a 19 85 80 80 66 72 6f 6d 20 74 68 65 20 64 65 76 69 63 65 2c 20 75 ┆ arrives Ёђђfrom the device, u┆
0x22f40…22f60 6e 6c 65 73 73 20 74 68 65 20 70 72 6f 63 65 73 73 20 63 68 61 6e 67 65 73 20 73 74 61 74 75 73 ┆nless the process changes status┆
0x22f60…22f80 20 74 6f 20 27 74 69 6d 65 64 6f 75 74 27 2e 20 0d 0a 0d 0a 54 68 65 20 74 79 70 65 20 6f 66 20 ┆ to 'timedout'. The type of ┆
0x22f80…22fa0 27 73 74 61 74 75 73 5f 69 6e 27 20 61 6e 64 20 27 73 74 61 74 75 73 5f 6f 75 74 27 20 6d 61 79 ┆'status_in' and 'status_out' may┆
0x22fa0…22fc0 20 62 65 20 61 6e 79 20 74 79 70 65 20 6f 66 20 73 69 7a 65 20 31 36 20 0a 62 69 74 73 2e 20 0d ┆ be any type of size 16 bits. ┆
0x22fc0…22fe0 0a 16 53 43 0d 0a 53 65 74 69 6e 74 65 72 72 75 70 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc ┆ SC Setinterrupt PROCEDURE ┐▄┆
0x22fe0…23000 d8 73 65 74 69 6e 74 65 72 72 75 70 74 be 28 56 41 52 20 63 68 3a 20 72 65 66 65 72 65 6e 63 65 ┆пsetinterruptЙ(VAR ch: reference┆
0x23000…23020 29 3b 20 0d 0a 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 0d 0a 20 20 20 2d 20 ┆); Not predefined. - ┆
0x23020…23040 84 61 63 74 69 76 61 74 65 73 20 74 68 65 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 ┆ёactivates the interruption leve┆
0x23040…23060 6c 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 79 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 6d 65 73 73 ┆l controlled by the channel mess┆
0x23060…23080 61 80 0a 19 85 80 80 67 65 20 27 63 68 27 2e 20 0d 0a 0d 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e ┆aђ Ёђђge 'ch'. The followin┆
0x23080…230a0 67 20 65 78 63 65 70 74 69 6f 6e 73 20 6d 61 79 20 6f 63 63 75 72 3a 20 0d 0a 0d 0a 20 20 20 2d ┆g exceptions may occur: -┆
0x230a0…230c0 20 84 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 63 68 6d 73 67 20 69 ┆ ёthe reference variable chmsg i┆
0x230c0…230e0 73 20 6e 69 6c 20 0d 0a 20 20 20 2d 20 84 63 68 6d 73 67 20 69 73 20 6e 6f 74 20 61 20 63 68 61 ┆s nil - ёchmsg is not a cha┆
0x230e0…23100 6e 6e 65 6c 20 6d 65 73 73 61 67 65 20 0d 0a 16 53 43 0d 0a 54 69 6d 65 64 6f 75 74 0d 0a 46 55 ┆nnel message SC Timedout FU┆
0x23100…23120 4e 43 54 49 4f 4e 20 bf dc d8 74 69 6d 65 64 6f 75 74 be 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a ┆NCTION ┐▄пtimedoutЙ: boolean; ┆
0x23120…23140 0d 0a 4e 6f 74 20 70 72 65 64 65 66 69 6e 65 64 2e 20 0d 0a 8c 87 f0 0a 0d 0a 54 68 65 20 72 65 ┆ Not predefined. їЄ The re┆
0x23140…23160 73 75 6c 74 73 20 61 72 65 3a 0d 0a 20 20 20 2d 20 84 74 72 75 65 3a 20 20 84 54 68 65 20 70 72 ┆sults are: - ёtrue: ёThe pr┆
0x23160…23180 6f 63 65 73 73 20 68 61 73 20 73 74 61 74 75 73 20 27 74 69 6d 65 64 6f 75 74 27 2e 20 54 68 65 ┆ocess has status 'timedout'. The┆
0x23180…231a0 20 73 74 61 74 75 73 20 69 73 20 63 6c 65 61 72 65 64 20 0a 19 8c 80 80 61 6e 64 20 74 68 65 20 ┆ status is cleared їђђand the ┆
0x231a0…231c0 74 69 6d 65 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 ┆timer field of the process descr┆
0x231c0…231e0 69 70 74 6f 72 20 69 73 20 73 65 74 20 74 6f 20 0a 19 8c 80 80 7a 65 72 6f 2e 20 0d 0a 20 20 20 ┆iptor is set to їђђzero. ┆
0x231e0…23200 2d 20 66 61 6c 73 65 3a 20 54 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 6e 6f 74 20 27 74 69 6d ┆- false: The process is not 'tim┆
0x23200…23220 65 64 20 6f 75 74 27 2e 20 0d 0a 16 53 43 0d 0a 57 61 69 74 69 0d 0a 50 52 4f 43 45 44 55 52 45 ┆ed out'. SC Waiti PROCEDURE┆
0x23220…23240 20 77 61 69 74 69 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 ┆ waiti; Defined in rc3502env┆
0x23240…23260 2e 20 0d 0a 0d 0a 20 20 20 2d 20 84 77 61 69 74 73 20 66 6f 72 20 61 6e 20 69 6e 74 65 72 72 75 ┆. - ёwaits for an interru┆
0x23260…23280 70 74 20 66 72 6f 6d 20 61 6e 20 65 78 74 65 72 6e 61 6c 20 64 65 76 69 63 65 2e 20 49 66 20 65 ┆pt from an external device. If e┆
0x23280…232a0 78 65 63 75 74 65 64 20 6f 6e 20 0a 19 85 80 80 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 ┆xecuted on Ёђђinterruption lev┆
0x232a0…232c0 65 6c 20 30 20 28 63 6c 61 73 73 20 49 49 20 6f 72 20 49 49 49 29 2c 20 74 68 65 20 63 61 6c 6c ┆el 0 (class II or III), the call┆
0x232c0…232e0 65 72 20 77 69 6c 6c 20 62 65 20 70 65 72 80 0a 19 85 80 80 6d 61 6e 65 6e 74 6c 79 20 64 65 73 ┆er will be perђ Ёђђmanently des┆
0x232e0…23300 63 68 65 64 75 6c 65 64 20 28 69 2e 65 2e 20 73 75 69 63 69 64 65 29 2e 20 0d 0a 16 53 43 0d 0a ┆cheduled (i.e. suicide). SC ┆
0x23300…23320 57 61 69 74 69 64 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 77 61 69 74 69 64 be 28 6d 73 65 63 ┆Waitid FUNCTION ┐▄пwaitidЙ(msec┆
0x23320…23340 73 3a 20 69 6e 74 65 67 65 72 29 3a 20 61 63 74 69 76 61 74 69 6f 6e 3b 20 0d 0a 0d 0a 44 65 66 ┆s: integer): activation; Def┆
0x23340…23360 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 77 61 69 74 ┆ined in rc3502env. - wait┆
0x23360…23380 73 20 66 6f 72 20 74 77 6f 20 6b 69 6e 64 73 20 6f 66 20 65 76 65 6e 74 3a 20 20 20 0d 0a 20 20 ┆s for two kinds of event: ┆
0x23380…233a0 20 20 20 20 31 2e 20 41 6e 20 69 6e 74 65 72 72 75 70 74 20 28 61 5f 69 6e 74 65 72 72 75 70 74 ┆ 1. An interrupt (a_interrupt┆
0x233a0…233c0 29 20 0d 0a 20 20 20 20 20 20 32 2e 20 45 78 70 69 72 61 74 69 6f 6e 20 6f 66 20 61 20 64 65 6c ┆) 2. Expiration of a del┆
0x233c0…233e0 61 79 20 70 65 72 69 6f 64 20 28 61 5f 64 65 6c 61 79 29 20 0d 0a 0d 0a 54 68 65 20 74 69 6d 65 ┆ay period (a_delay) The time┆
0x233e0…23400 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 6f ┆r field of the process descripto┆
0x23400…23420 72 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 ┆r is initialized to the value of┆
0x23420…23440 20 0a 27 6d 73 65 63 73 27 20 44 49 56 20 31 30 30 30 20 62 65 66 6f 72 65 20 74 68 65 20 77 61 ┆ 'msecs' DIV 1000 before the wa┆
0x23440…23460 69 74 20 69 73 20 70 65 72 66 6f 72 6d 65 64 2e 20 0d 0a 0d 0a 4e 6f 74 65 20 74 68 61 74 20 64 ┆it is performed. Note that d┆
0x23460…23480 65 6c 61 79 20 61 63 74 69 76 61 74 69 6f 6e 20 6f 6e 6c 79 20 74 61 6b 65 73 20 70 6c 61 63 65 ┆elay activation only takes place┆
0x23480…234a0 20 69 66 20 74 68 65 20 72 6f 75 74 69 6e 65 20 27 64 65 66 69 6e 65 74 69 80 0a 6d 65 72 27 20 ┆ if the routine 'definetiђ mer' ┆
0x234a0…234c0 68 61 73 20 62 65 65 6e 20 63 61 6c 6c 65 64 2e 20 0d 0a 16 53 43 0d 0a 57 61 69 74 69 6d 0d 0a ┆has been called. SC Waitim ┆
0x234c0…234e0 46 55 4e 43 54 49 4f 4e 20 bf dc d8 77 61 69 74 69 6d be 28 56 41 52 20 72 3a 20 72 65 66 65 72 ┆FUNCTION ┐▄пwaitimЙ(VAR r: refer┆
0x234e0…23500 65 6e 63 65 3b 20 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 29 3a 20 61 63 74 69 76 61 74 69 6f ┆ence; VAR m: mailbox): activatio┆
0x23500…23520 6e 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d ┆n; Defined in rc3502env. ┆
0x23520…23540 0a 20 20 20 2d 20 77 61 69 74 73 20 66 6f 72 20 74 77 6f 20 6b 69 6e 64 73 20 6f 66 20 65 76 65 ┆ - waits for two kinds of eve┆
0x23540…23560 6e 74 3a 20 0d 0a 20 20 20 20 20 20 20 20 31 2e 20 41 6e 20 69 6e 74 65 72 72 75 70 74 20 28 61 ┆nt: 1. An interrupt (a┆
0x23560…23580 5f 69 6e 74 65 72 72 75 70 74 29 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 32 2e ┆_interrupt) 2.┆
0x23580…235a0 20 84 54 68 65 20 61 72 72 69 76 61 6c 20 6f 66 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 74 68 ┆ ёThe arrival of a message to th┆
0x235a0…235c0 65 20 6d 61 69 6c 62 6f 78 20 6d 20 28 61 5f 6d 61 69 6c 62 6f 78 29 20 0d 0a 0d 0a 41 6e 20 65 ┆e mailbox m (a_mailbox) An e┆
0x235c0…235e0 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 73 20 69 66 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 ┆xception occurs if the reference┆
0x235e0…23600 20 27 72 27 20 69 73 20 6e 6f 74 20 6e 69 6c 2e 20 0d 0a 16 53 43 0d 0a 57 61 69 74 69 6d 64 0d ┆ 'r' is not nil. SC Waitimd ┆
0x23600…23620 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 77 61 69 74 69 6d 64 be 28 56 41 52 20 72 3a 20 72 65 66 ┆ FUNCTION ┐▄пwaitimdЙ(VAR r: ref┆
0x23620…23640 65 72 65 6e 63 65 3b 20 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 3b 20 0d 0a 20 20 20 20 20 20 ┆erence; VAR m: mailbox; ┆
0x23640…23660 20 20 20 20 20 20 20 64 65 6c 61 79 3a 20 69 6e 74 65 67 65 72 29 3a 20 61 63 74 69 76 61 74 69 ┆ delay: integer): activati┆
0x23660…23680 6f 6e 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a ┆on; Defined in rc3502env. ┆
0x23680…236a0 0d 0a 0d 0a 20 20 20 2d 20 84 77 61 69 74 73 20 66 6f 72 20 74 68 72 65 65 20 6b 69 6e 64 73 20 ┆ - ёwaits for three kinds ┆
0x236a0…236c0 6f 66 20 65 76 65 6e 74 73 3a 20 0d 0a 0d 0a 20 20 20 20 20 20 20 31 2e 20 41 6e 20 69 6e 74 65 ┆of events: 1. An inte┆
0x236c0…236e0 72 72 75 70 74 20 28 61 5f 69 6e 74 65 72 72 75 70 74 29 2e 20 0d 0a 20 20 20 20 20 20 20 32 2e ┆rrupt (a_interrupt). 2.┆
0x236e0…23700 20 84 54 68 65 20 61 72 72 69 76 61 6c 20 6f 66 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 74 68 ┆ ёThe arrival of a message to th┆
0x23700…23720 65 20 6d 61 69 6c 62 6f 78 20 6d 20 28 61 5f 6d 61 69 6c 62 6f 78 29 2e 20 0d 0a 20 20 20 20 20 ┆e mailbox m (a_mailbox). ┆
0x23720…23740 20 20 33 2e 20 45 78 70 69 72 61 74 69 6f 6e 20 6f 66 20 61 20 64 65 6c 61 79 20 70 65 72 69 6f ┆ 3. Expiration of a delay perio┆
0x23740…23760 64 20 28 61 5f 64 65 6c 61 79 29 2e 20 0d 0a 0d 0a 8c 89 c8 0a 41 6e 20 65 78 63 65 70 74 69 6f ┆d (a_delay). їЅ╚ An exceptio┆
0x23760…23780 6e 20 6f 63 63 75 72 73 20 69 66 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 27 72 27 20 69 73 ┆n occurs if the reference 'r' is┆
0x23780…237a0 20 6e 6f 74 20 6e 69 6c 2e 20 0d 0a 16 73 62 0d 0a 52 6f 75 74 69 6e 65 73 20 66 6f 72 20 42 61 ┆ not nil. sb Routines for Ba┆
0x237a0…237c0 63 6b 77 61 72 64 73 20 43 6f 6d 70 61 74 69 62 69 6c 69 74 79 0d 0a 54 68 65 20 66 6f 6c 6c 6f ┆ckwards Compatibility The follo┆
0x237c0…237e0 77 69 6e 67 20 72 6f 75 74 69 6e 65 73 2c 20 64 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 ┆wing routines, defined in rc3502┆
0x237e0…23800 65 6e 76 2c 20 61 72 65 20 69 6e 63 6c 75 64 65 64 20 66 6f 72 20 62 61 63 6b 80 0a 77 61 72 64 ┆env, are included for backђ ward┆
0x23800…23820 73 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 2c 20 6f 6e 6c 79 2e 20 54 68 65 79 20 73 68 6f 75 ┆s compatibility, only. They shou┆
0x23820…23840 6c 64 20 6e 6f 74 20 62 65 20 75 73 65 64 2c 20 65 78 63 65 70 74 20 69 6e 20 76 65 72 79 20 0a ┆ld not be used, except in very ┆
0x23840…23860 73 70 65 63 69 61 6c 20 63 61 73 65 73 2c 20 77 68 65 72 65 20 74 68 65 20 75 73 65 20 6f 66 20 ┆special cases, where the use of ┆
0x23860…23880 74 68 65 20 65 71 75 69 76 61 6c 65 6e 74 20 52 54 50 20 63 6f 6e 73 74 72 75 63 74 73 20 69 73 ┆the equivalent RTP constructs is┆
0x23880…238a0 20 69 6d 80 0a 70 6f 73 73 69 62 6c 65 2e 0d 0a 16 53 43 0d 0a 46 69 72 73 74 0d 0a 46 55 4e 43 ┆ imђ possible. SC First FUNC┆
0x238a0…238c0 54 49 4f 4e 20 bf dc d8 66 69 72 73 74 be 3d 6f 66 66 73 65 74 28 56 41 52 20 72 3a 20 72 65 66 ┆TION ┐▄пfirstЙ=offset(VAR r: ref┆
0x238c0…238e0 65 72 65 6e 63 65 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 46 55 4e 43 54 49 4f 4e 20 66 69 72 ┆erence): integer; FUNCTION fir┆
0x238e0…23900 73 74 3d 6f 66 66 73 65 74 28 56 41 52 20 63 3a 20 63 68 61 69 6e 29 3a 20 69 6e 74 65 67 65 72 ┆st=offset(VAR c: chain): integer┆
0x23900…23920 3b 20 0d 0a 0d 0a 8c 81 f0 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 ┆; їЂ Defined in rc3502env. ┆
0x23920…23940 0d 0a 0d 0a 20 20 20 2d 20 43 66 2e 20 6f 66 66 73 65 74 2e 0d 0a 20 20 20 84 2d 20 84 54 68 65 ┆ - Cf. offset. ё- ёThe┆
0x23940…23960 20 61 74 74 72 69 62 75 74 65 20 6e 61 6d 65 20 27 66 69 72 73 74 27 20 69 73 20 74 68 65 20 6f ┆ attribute name 'first' is the o┆
0x23960…23980 6c 64 20 52 54 50 20 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 52 54 50 20 64 65 80 0a 19 85 80 80 ┆ld RTP name for the RTP deђ Ёђђ┆
0x23980…239a0 66 69 6e 65 64 20 61 74 74 72 69 62 75 74 65 20 27 6f 66 66 73 65 74 27 0d 0a 20 20 20 2d 20 84 ┆fined attribute 'offset' - ё┆
0x239a0…239c0 49 66 20 74 68 65 20 27 66 69 72 73 74 27 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 ┆If the 'first' function is calle┆
0x239c0…239e0 64 20 77 69 74 68 20 61 20 70 61 72 61 6d 65 74 65 72 20 77 69 74 68 20 76 61 6c 75 65 20 4e 49 ┆d with a parameter with value NI┆
0x239e0…23a00 4c 20 0a 19 85 80 80 6f 72 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 61 20 68 65 61 64 65 ┆L Ёђђor the message is a heade┆
0x23a00…23a20 72 20 6d 65 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 ┆r message only, an exception occ┆
0x23a20…23a40 75 72 73 2e 20 0a 19 85 80 80 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 72 65 73 75 6c 74 20 69 ┆urs. ЁђђOtherwise the result i┆
0x23a40…23a60 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 27 66 69 72 73 74 27 20 61 74 74 72 69 ┆s the value of the 'first' attri┆
0x23a60…23a80 62 75 74 65 20 6f 66 20 74 68 65 20 0a 19 85 80 80 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 ┆bute of the Ёђђdesignated mess┆
0x23a80…23aa0 61 67 65 2e 20 0d 0a 0d 0a 4e 4f 54 45 3a 20 54 68 65 20 27 66 69 72 73 74 27 20 61 74 74 72 69 ┆age. NOTE: The 'first' attri┆
0x23aa0…23ac0 62 75 74 65 20 69 73 20 74 68 65 20 66 69 72 73 74 20 77 6f 72 64 20 69 6e 20 74 68 65 20 62 75 ┆bute is the first word in the bu┆
0x23ac0…23ae0 66 66 65 72 2c 20 61 63 63 6f 72 64 69 6e 67 20 0a 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 63 ┆ffer, according to the driver c┆
0x23ae0…23b00 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 2e 20 41 20 6d 65 73 ┆onventions /Driver Conv./. A mes┆
0x23b00…23b20 73 61 67 65 20 77 69 74 68 20 62 75 66 73 69 7a 65 20 67 72 65 80 0a 61 74 65 72 20 74 68 61 6e ┆sage with bufsize greђ ater than┆
0x23b20…23b40 20 30 20 61 6c 77 61 79 73 20 68 6f 6c 64 73 20 74 68 65 20 27 66 69 72 73 74 27 20 61 74 74 72 ┆ 0 always holds the 'first' attr┆
0x23b40…23b60 69 62 75 74 65 2e 20 53 6f 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 61 63 63 65 73 80 0a 73 ┆ibute. So the buffer is accesђ s┆
0x23b60…23b80 65 64 20 77 69 74 68 6f 75 74 20 6c 6f 63 6b 69 6e 67 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 ┆ed without locking the reference┆
0x23b80…23ba0 20 76 61 72 69 61 62 6c 65 2e 20 0d 0a 16 53 43 0d 0a 4c 61 73 74 0d 0a 46 55 4e 43 54 49 4f 4e ┆ variable. SC Last FUNCTION┆
0x23ba0…23bc0 20 bf dc d8 6c 61 73 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 69 6e 74 ┆ ┐▄пlastЙ(VAR r: reference): int┆
0x23bc0…23be0 65 67 65 72 3b 20 0d 0a 46 55 4e 43 54 49 4f 4e 20 6c 61 73 74 28 56 41 52 20 63 3a 20 63 68 61 ┆eger; FUNCTION last(VAR c: cha┆
0x23be0…23c00 69 6e 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 ┆in): integer; Defined in rc3┆
0x23c00…23c20 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 43 66 2e 20 74 6f 70 2e 0d 0a 20 20 20 84 2d ┆502env. - Cf. top. ё-┆
0x23c20…23c40 20 84 54 68 65 20 61 74 74 72 69 62 75 74 65 20 6e 61 6d 65 20 27 6c 61 73 74 27 20 69 73 20 74 ┆ ёThe attribute name 'last' is t┆
0x23c40…23c60 68 65 20 6f 6c 64 20 52 54 50 20 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 52 54 50 20 64 65 80 0a ┆he old RTP name for the RTP deђ ┆
0x23c60…23c80 19 85 80 80 66 69 6e 65 64 20 61 74 74 72 69 62 75 74 65 20 27 74 6f 70 27 2c 20 74 68 65 20 72 ┆ Ёђђfined attribute 'top', the r┆
0x23c80…23ca0 65 6c 61 74 69 6f 6e 20 69 73 3a 20 74 6f 70 3d 6c 61 73 74 2b 31 2e 0d 0a 20 20 20 2d 20 84 49 ┆elation is: top=last+1. - ёI┆
0x23ca0…23cc0 66 20 74 68 65 20 27 6c 61 73 74 27 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 ┆f the 'last' function is called ┆
0x23cc0…23ce0 77 69 74 68 20 61 20 70 61 72 61 6d 65 74 65 72 20 77 69 74 68 20 76 61 6c 75 65 20 4e 49 4c 20 ┆with a parameter with value NIL ┆
0x23ce0…23d00 0a 19 85 80 80 6f 72 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 61 20 68 65 61 64 65 72 20 ┆ Ёђђor the message is a header ┆
0x23d00…23d20 6d 65 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 6f 63 63 75 72 ┆message only, an exception occur┆
0x23d20…23d40 73 2e 20 0a 19 85 80 80 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 ┆s. ЁђђOtherwise the result is ┆
0x23d40…23d60 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 27 6c 61 73 74 27 20 61 74 74 72 69 62 75 74 ┆the value of the 'last' attribut┆
0x23d60…23d80 65 20 6f 66 20 74 68 65 20 0a 19 85 80 80 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 ┆e of the Ёђђdesignated message┆
0x23d80…23da0 2e 20 0d 0a 0d 0a 4e 4f 54 45 3a 20 54 68 65 20 27 6c 61 73 74 27 20 61 74 74 72 69 62 75 74 65 ┆. NOTE: The 'last' attribute┆
0x23da0…23dc0 20 69 73 20 74 68 65 20 73 65 63 6f 6e 64 20 77 6f 72 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 ┆ is the second word in the buffe┆
0x23dc0…23de0 72 2c 20 61 63 63 6f 72 80 80 0a 64 69 6e 67 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 63 6f ┆r, accorђђ ding to the driver co┆
0x23de0…23e00 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 2e 20 41 20 6d 65 73 73 ┆nventions /Driver Conv./. A mess┆
0x23e00…23e20 61 67 65 20 77 69 74 68 20 62 75 66 73 69 7a 65 20 0a 67 72 65 61 74 65 72 20 74 68 61 6e 20 30 ┆age with bufsize greater than 0┆
0x23e20…23e40 20 61 6c 77 61 79 73 20 68 6f 6c 64 73 20 74 68 65 20 27 6c 61 73 74 27 20 61 74 74 72 69 62 75 ┆ always holds the 'last' attribu┆
0x23e40…23e60 74 65 2e 20 53 6f 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 61 63 80 0a 63 65 73 73 65 64 20 ┆te. So the buffer is acђ cessed ┆
0x23e60…23e80 77 69 74 68 6f 75 74 20 6c 6f 63 6b 69 6e 67 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 ┆without locking the reference va┆
0x23e80…23ea0 72 69 61 62 6c 65 2e 20 0d 0a 16 53 43 0d 0a 4e 65 78 74 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc ┆riable. SC Next FUNCTION ┐▄┆
0x23ea0…23ec0 d8 6e 65 78 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 69 6e 74 65 67 65 ┆пnextЙ(VAR r: reference): intege┆
0x23ec0…23ee0 72 3b 20 0d 0a 46 55 4e 43 54 49 4f 4e 20 6e 65 78 74 28 56 41 52 20 63 3a 20 63 68 61 69 6e 29 ┆r; FUNCTION next(VAR c: chain)┆
0x23ee0…23f00 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 ┆: integer; Defined in rc3502┆
0x23f00…23f20 65 6e 76 2e 20 0d 0a 0d 0a 8c 87 90 0a 20 20 20 2d 20 43 66 2e 20 62 79 74 65 63 6f 75 6e 74 2e ┆env. їЄљ - Cf. bytecount.┆
0x23f20…23f40 0d 0a 20 20 20 2d 20 84 54 68 65 20 61 74 74 72 69 62 75 74 65 20 6e 61 6d 65 20 27 6e 65 78 74 ┆ - ёThe attribute name 'next┆
0x23f40…23f60 27 20 69 73 20 74 68 65 20 6f 6c 64 20 52 54 50 20 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 52 54 ┆' is the old RTP name for the RT┆
0x23f60…23f80 50 20 64 65 80 0a 19 85 80 80 66 69 6e 65 64 20 61 74 74 72 69 62 75 74 65 20 27 62 79 74 65 63 ┆P deђ Ёђђfined attribute 'bytec┆
0x23f80…23fa0 6f 75 6e 74 27 2c 20 74 68 65 20 72 65 6c 61 74 69 6f 6e 20 69 73 3a 0d 0a 20 20 20 20 20 20 20 ┆ount', the relation is: ┆
0x23fa0…23fc0 20 20 20 20 20 20 20 20 62 79 74 65 63 6f 75 6e 74 3d 6e 65 78 74 1e 66 69 72 73 74 2e 0d 0a 20 ┆ bytecount=next first. ┆
0x23fc0…23fe0 20 20 2d 20 84 49 66 20 74 68 65 20 27 6e 65 78 74 27 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 ┆ - ёIf the 'next' function is c┆
0x23fe0…24000 61 6c 6c 65 64 20 77 69 74 68 20 61 20 70 61 72 61 6d 65 74 65 72 20 77 69 74 68 20 76 61 6c 75 ┆alled with a parameter with valu┆
0x24000…24020 65 20 4e 49 4c 20 0a 19 85 80 80 6f 72 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 61 20 68 ┆e NIL Ёђђor the message is a h┆
0x24020…24040 65 61 64 65 72 20 6d 65 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 65 78 63 65 70 74 69 6f 6e ┆eader message only, an exception┆
0x24040…24060 20 6f 63 63 75 72 73 2e 20 0a 19 85 80 80 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 72 65 73 75 ┆ occurs. ЁђђOtherwise the resu┆
0x24060…24080 6c 74 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 27 6e 65 78 74 27 20 61 74 ┆lt is the value of the 'next' at┆
0x24080…240a0 74 72 69 62 75 74 65 20 6f 66 20 74 68 65 20 0a 19 85 80 80 64 65 73 69 67 6e 61 74 65 64 20 6d ┆tribute of the Ёђђdesignated m┆
0x240a0…240c0 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 4e 4f 54 45 3a 20 54 68 65 20 27 6e 65 78 74 27 20 61 74 74 ┆essage. NOTE: The 'next' att┆
0x240c0…240e0 72 69 62 75 74 65 20 69 73 20 74 68 65 20 74 68 69 72 64 20 77 6f 72 64 20 69 6e 20 74 68 65 20 ┆ribute is the third word in the ┆
0x240e0…24100 62 75 66 66 65 72 2c 20 61 63 63 6f 72 64 69 6e 67 20 0a 74 6f 20 74 68 65 20 64 72 69 76 65 72 ┆buffer, according to the driver┆
0x24100…24120 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 2e 20 41 20 6d ┆ conventions /Driver Conv./. A m┆
0x24120…24140 65 73 73 61 67 65 20 77 69 74 68 20 62 75 66 73 69 7a 65 20 67 72 65 80 0a 61 74 65 72 20 74 68 ┆essage with bufsize greђ ater th┆
0x24140…24160 61 6e 20 30 20 61 6c 77 61 79 73 20 68 6f 6c 64 73 20 74 68 65 20 27 6e 65 78 74 27 20 61 74 74 ┆an 0 always holds the 'next' att┆
0x24160…24180 72 69 62 75 74 65 2e 20 53 6f 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 61 63 63 65 73 80 0a ┆ribute. So the buffer is accesђ ┆
0x24180…241a0 73 65 64 20 77 69 74 68 6f 75 74 20 6c 6f 63 6b 69 6e 67 20 74 68 65 20 72 65 66 65 72 65 6e 63 ┆sed without locking the referenc┆
0x241a0…241c0 65 20 76 61 72 69 61 62 6c 65 2e 20 0d 0a 16 53 43 0d 0a 52 65 66 0d 0a 46 55 4e 43 54 49 4f 4e ┆e variable. SC Ref FUNCTION┆
0x241c0…241e0 20 bf dc d8 72 65 66 be 28 56 41 52 20 6d 62 78 3a 20 6d 61 69 6c 62 6f 78 29 3a 20 5e 88 7c 20 ┆ ┐▄пrefЙ(VAR mbx: mailbox): ^ѕ| ┆
0x241e0…24200 6d 61 69 6c 62 6f 78 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e ┆mailbox; Defined in rc3502en┆
0x24200…24220 76 2e 0d 0a 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 6e 73 20 61 20 70 6f 69 6e 74 65 72 20 76 61 ┆v. - ёreturns a pointer va┆
0x24220…24240 6c 75 65 20 74 6f 20 74 68 65 20 70 6f 69 6e 74 65 64 20 6f 62 6a 65 63 74 20 27 6d 62 78 27 2e ┆lue to the pointed object 'mbx'.┆
0x24240…24260 20 27 52 65 66 27 20 63 61 6e 20 0a 19 85 80 80 6f 6e 6c 79 20 62 65 20 61 70 70 6c 69 65 64 20 ┆ 'Ref' can Ёђђonly be applied ┆
0x24260…24280 74 6f 20 76 61 72 69 61 62 6c 65 73 20 6f 66 20 74 79 70 65 20 6d 61 69 6c 62 6f 78 2e 20 0d 0a ┆to variables of type mailbox. ┆
0x24280…242a0 0d 0a 52 65 66 20 69 73 20 74 68 65 20 6f 6c 64 20 52 54 50 20 6d 65 61 6e 73 20 66 6f 72 20 67 ┆ Ref is the old RTP means for g┆
0x242a0…242c0 65 74 74 69 6e 67 20 6d 61 69 6c 62 6f 78 20 70 6f 69 6e 74 65 72 73 2e 20 41 73 20 61 6e 20 61 ┆etting mailbox pointers. As an a┆
0x242c0…242e0 6c 74 65 72 6e 61 80 0a 74 69 76 65 2c 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 6d 61 69 6c 62 ┆lternaђ tive, a pointer to mailb┆
0x242e0…24300 6f 78 20 6d 61 79 20 62 65 20 61 63 68 69 65 76 65 64 20 62 79 20 61 6c 6c 6f 63 61 74 69 6e 67 ┆ox may be achieved by allocating┆
0x24300…24320 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 0a 6f 6e 20 74 68 65 20 68 65 61 70 2e 0d 0a 16 53 43 0d ┆ the mailbox on the heap. SC ┆
0x24320…24340 0a 53 65 74 66 69 72 73 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 74 66 69 72 73 74 ┆ Setfirst PROCEDURE ┐▄пsetfirst┆
0x24340…24360 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 76 61 6c 3a 20 69 6e 74 65 67 65 72 ┆Й(VAR r: reference; val: integer┆
0x24360…24380 29 3b 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 73 65 74 66 69 72 73 74 28 56 41 52 20 63 3a 20 63 ┆); PROCEDURE setfirst(VAR c: c┆
0x24380…243a0 68 61 69 6e 3b 20 76 61 6c 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 ┆hain; val: integer); Defined┆
0x243a0…243c0 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 43 66 2e 20 73 65 74 6f ┆ in rc3502env. - Cf. seto┆
0x243c0…243e0 66 66 73 65 74 2e 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 27 73 65 74 66 69 72 73 74 27 20 ┆ffset. - ёIf the 'setfirst' ┆
0x243e0…24400 70 72 6f 63 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 72 65 66 65 72 ┆procedure is called with a refer┆
0x24400…24420 65 6e 63 65 20 70 61 72 61 6d 65 74 65 72 20 0a 19 85 80 80 77 69 74 68 20 76 61 6c 75 65 20 4e ┆ence parameter Ёђђwith value N┆
0x24420…24440 49 4c 2c 20 6f 72 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 61 20 68 65 61 64 65 72 20 6d ┆IL, or the message is a header m┆
0x24440…24460 65 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 0a 19 85 80 80 65 78 63 65 70 74 69 6f 6e 20 6f ┆essage only, an Ёђђexception o┆
0x24460…24480 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 ┆ccurs. Otherwise the value of th┆
0x24480…244a0 65 20 27 76 61 6c 27 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 0a 19 85 80 80 61 73 73 69 67 6e ┆e 'val' parameter is Ёђђassign┆
0x244a0…244c0 65 64 20 74 6f 20 74 68 65 20 27 66 69 72 73 74 27 20 61 74 74 72 69 62 75 74 65 20 6f 66 20 74 ┆ed to the 'first' attribute of t┆
0x244c0…244e0 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 4e 4f 54 45 3a ┆he designated message. NOTE:┆
0x244e0…24500 20 54 68 65 20 27 66 69 72 73 74 27 20 61 74 74 72 69 62 75 74 65 20 69 73 20 74 68 65 20 66 69 ┆ The 'first' attribute is the fi┆
0x24500…24520 72 73 74 20 77 6f 72 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2c 20 61 63 63 6f 72 64 69 6e ┆rst word in the buffer, accordin┆
0x24520…24540 67 20 0a 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 ┆g to the driver conventions /Dr┆
0x24540…24560 69 76 65 72 20 43 6f 6e 76 2e 2f 2e 20 41 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 62 75 66 73 ┆iver Conv./. A message with bufs┆
0x24560…24580 69 7a 65 20 67 72 65 80 0a 61 74 65 72 20 74 68 61 6e 20 30 20 61 6c 77 61 79 73 20 68 6f 6c 64 ┆ize greђ ater than 0 always hold┆
0x24580…245a0 73 20 74 68 65 20 27 66 69 72 73 74 27 20 61 74 74 72 69 62 75 74 65 2e 20 53 6f 20 74 68 65 20 ┆s the 'first' attribute. So the ┆
0x245a0…245c0 62 75 66 66 65 72 20 69 73 20 75 70 64 61 80 0a 74 65 64 20 77 69 74 68 6f 75 74 20 6c 6f 63 6b ┆buffer is updaђ ted without lock┆
0x245c0…245e0 69 6e 67 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 2e 20 0d 0a 16 53 ┆ing the reference variable. S┆
0x245e0…24600 43 0d 0a 53 65 74 6c 61 73 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 74 6c 61 73 74 ┆C Setlast PROCEDURE ┐▄пsetlast┆
0x24600…24620 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 76 61 6c 3a 20 69 6e 74 65 67 65 72 ┆Й(VAR r: reference; val: integer┆
0x24620…24640 29 3b 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 73 65 74 6c 61 73 74 28 56 41 52 20 63 3a 20 63 68 ┆); PROCEDURE setlast(VAR c: ch┆
0x24640…24660 61 69 6e 3b 20 76 61 6c 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e 65 64 20 ┆ain; val: integer); Defined ┆
0x24660…24680 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 43 66 2e 20 73 65 74 74 6f ┆in rc3502env. - Cf. setto┆
0x24680…246a0 70 2e 0d 0a 8c 88 e8 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 27 73 65 74 6c 61 73 74 27 20 70 ┆p. їѕУ - ёIf the 'setlast' p┆
0x246a0…246c0 72 6f 63 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 72 65 66 65 72 65 ┆rocedure is called with a refere┆
0x246c0…246e0 6e 63 65 20 70 61 72 61 6d 65 74 65 72 20 0a 19 85 80 80 77 69 74 68 20 76 61 6c 75 65 20 4e 49 ┆nce parameter Ёђђwith value NI┆
0x246e0…24700 4c 2c 20 6f 72 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 61 20 68 65 61 64 65 72 20 6d 65 ┆L, or the message is a header me┆
0x24700…24720 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 0a 19 85 80 80 65 78 63 65 70 74 69 6f 6e 20 6f 63 ┆ssage only, an Ёђђexception oc┆
0x24720…24740 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 ┆curs. Otherwise the value of the┆
0x24740…24760 20 27 76 61 6c 27 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 0a 19 85 80 80 61 73 73 69 67 6e 65 ┆ 'val' parameter is Ёђђassigne┆
0x24760…24780 64 20 74 6f 20 74 68 65 20 27 66 69 72 73 74 27 20 61 74 74 72 69 62 75 74 65 20 6f 66 20 74 68 ┆d to the 'first' attribute of th┆
0x24780…247a0 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 4e 4f 54 45 3a 20 ┆e designated message. NOTE: ┆
0x247a0…247c0 54 68 65 20 27 6c 61 73 74 27 20 61 74 74 72 69 62 75 74 65 20 69 73 20 74 68 65 20 73 65 63 6f ┆The 'last' attribute is the seco┆
0x247c0…247e0 6e 64 20 77 6f 72 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2c 20 61 63 63 6f 72 80 80 80 0a ┆nd word in the buffer, accorђђђ ┆
0x247e0…24800 64 69 6e 67 20 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f ┆ding to the driver conventions /┆
0x24800…24820 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 2e 20 41 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 62 75 ┆Driver Conv./. A message with bu┆
0x24820…24840 66 73 69 7a 65 20 0a 67 72 65 80 61 74 65 72 20 74 68 61 6e 20 30 20 61 6c 77 61 79 73 20 68 6f ┆fsize greђater than 0 always ho┆
0x24840…24860 6c 64 73 20 74 68 65 20 27 6c 61 73 74 27 20 61 74 74 72 69 62 75 74 65 2e 20 53 6f 20 74 68 65 ┆lds the 'last' attribute. So the┆
0x24860…24880 20 62 75 66 66 65 72 20 69 73 20 75 70 80 0a 64 61 80 74 65 64 20 77 69 74 68 6f 75 74 20 6c 6f ┆ buffer is upђ daђted without lo┆
0x24880…248a0 63 6b 69 6e 67 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 2e 27 20 0d ┆cking the reference variable.' ┆
0x248a0…248c0 0a 16 53 43 0d 0a 53 65 74 6e 65 78 74 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 65 74 6e ┆ SC Setnext PROCEDURE ┐▄пsetn┆
0x248c0…248e0 65 78 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 76 61 6c 3a 20 69 6e 74 65 ┆extЙ(VAR r: reference; val: inte┆
0x248e0…24900 67 65 72 29 3b 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 73 65 74 6e 65 78 74 28 56 41 52 20 63 3a ┆ger); PROCEDURE setnext(VAR c:┆
0x24900…24920 20 63 68 61 69 6e 3b 20 76 61 6c 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 44 65 66 69 6e ┆ chain; val: integer); Defin┆
0x24920…24940 65 64 20 69 6e 20 72 63 33 35 30 32 65 6e 76 2e 20 0d 0a 0d 0a 20 20 20 2d 20 43 66 2e 20 73 65 ┆ed in rc3502env. - Cf. se┆
0x24940…24960 74 62 79 74 65 63 6f 75 6e 74 0d 0a 20 20 20 2d 20 84 49 66 20 74 68 65 20 27 73 65 74 6e 65 78 ┆tbytecount - ёIf the 'setnex┆
0x24960…24980 74 27 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 72 65 ┆t' procedure is called with a re┆
0x24980…249a0 66 65 72 65 6e 63 65 20 70 61 72 61 6d 65 74 65 72 20 0a 19 85 80 80 77 69 74 68 20 76 61 6c 75 ┆ference parameter Ёђђwith valu┆
0x249a0…249c0 65 20 4e 49 4c 2c 20 6f 72 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 61 20 68 65 61 64 65 ┆e NIL, or the message is a heade┆
0x249c0…249e0 72 20 6d 65 73 73 61 67 65 20 6f 6e 6c 79 2c 20 61 6e 20 0a 19 85 80 80 65 78 63 65 70 74 69 6f ┆r message only, an Ёђђexceptio┆
0x249e0…24a00 6e 20 6f 63 63 75 72 73 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 76 61 6c 75 65 20 6f 66 ┆n occurs. Otherwise the value of┆
0x24a00…24a20 20 74 68 65 20 27 76 61 6c 27 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 0a 19 85 80 80 61 73 73 ┆ the 'val' parameter is Ёђђass┆
0x24a20…24a40 69 67 6e 65 64 20 74 6f 20 74 68 65 20 27 6e 65 78 74 27 20 61 74 74 72 69 62 75 74 65 20 6f 66 ┆igned to the 'next' attribute of┆
0x24a40…24a60 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 4e 4f 54 ┆ the designated message. NOT┆
0x24a60…24a80 45 3a 20 54 68 65 20 27 6e 65 78 74 27 20 61 74 74 72 69 62 75 74 65 20 69 73 20 74 68 65 20 74 ┆E: The 'next' attribute is the t┆
0x24a80…24aa0 68 69 72 64 20 77 6f 72 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2c 20 61 63 63 6f 72 64 69 ┆hird word in the buffer, accordi┆
0x24aa0…24ac0 6e 67 20 0a 74 6f 20 74 68 65 20 64 72 69 76 65 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 ┆ng to the driver conventions /D┆
0x24ac0…24ae0 72 69 76 65 72 20 43 6f 6e 76 2e 2f 2e 20 41 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 62 75 66 ┆river Conv./. A message with buf┆
0x24ae0…24b00 73 69 7a 65 20 67 72 65 80 0a 61 74 65 72 20 74 68 61 6e 20 30 20 61 6c 77 61 79 73 20 68 6f 6c ┆size greђ ater than 0 always hol┆
0x24b00…24b20 64 73 20 74 68 65 20 27 6e 65 78 74 27 20 61 74 74 72 69 62 75 74 65 2e 20 53 6f 20 74 68 65 20 ┆ds the 'next' attribute. So the ┆
0x24b20…24b40 62 75 66 66 65 72 20 69 73 20 75 70 64 61 80 0a 74 65 64 20 77 69 74 68 6f 75 74 20 6c 6f 63 6b ┆buffer is updaђ ted without lock┆
0x24b40…24b60 69 6e 67 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 2e 20 0d 0a 8c 84 ┆ing the reference variable. їё┆
0x24b60…24b80 d8 0a 16 73 62 0d 0a 52 54 50 20 4c 61 6e 67 75 61 67 65 20 53 75 70 70 6f 72 74 69 6e 67 20 52 ┆п sb RTP Language Supporting R┆
0x24b80…24ba0 6f 75 74 69 6e 65 73 0d 0a 16 73 6f 20 72 6f 75 74 69 6e 65 73 2c 20 52 54 50 20 73 75 70 70 6f ┆outines so routines, RTP suppo┆
0x24ba0…24bc0 72 74 69 6e 67 0d 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 73 74 20 6f 66 20 72 6f 75 ┆rting The following list of rou┆
0x24bc0…24be0 74 69 6e 65 20 6e 61 6d 65 73 20 64 65 6e 6f 74 65 20 74 68 65 20 72 6f 75 74 69 6e 65 73 20 77 ┆tine names denote the routines w┆
0x24be0…24c00 68 69 63 68 20 74 68 65 20 0a 52 54 50 20 73 79 73 74 65 6d 20 75 73 65 73 20 66 6f 72 20 73 75 ┆hich the RTP system uses for su┆
0x24c00…24c20 70 70 6f 72 74 20 6f 66 20 74 68 65 20 6d 6f 72 65 20 63 6f 6d 70 6c 69 63 61 74 65 64 20 6c 61 ┆pport of the more complicated la┆
0x24c20…24c40 6e 67 75 61 67 65 20 0a 66 65 61 74 75 72 65 73 2e 20 54 68 65 73 65 20 72 6f 75 74 69 6e 65 73 ┆nguage features. These routines┆
0x24c40…24c60 20 73 68 6f 75 6c 64 20 6e 6f 74 20 62 65 20 65 78 70 6c 69 63 69 74 6c 79 20 63 61 6c 6c 65 64 ┆ should not be explicitly called┆
0x24c60…24c80 20 62 79 20 74 68 65 20 75 73 65 72 2c 20 69 66 20 0a 64 6f 6e 65 2c 20 61 6e 20 65 72 72 6f 72 ┆ by the user, if done, an error┆
0x24c80…24ca0 20 6d 65 73 73 61 67 65 20 6d 61 79 20 62 65 20 67 69 76 65 6e 2e 0d 0a 04 00 2d 4c 00 00 06 00 ┆ message may be given. -L ┆
0x24ca0…24cc0 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x24cc0…24ce0 1e ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 ┆ -L A1┆
0x24ce0…24d00 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e ff ff ff ff ff ┆@ ┆
0x24d00…24d20 ff ff ff ff ff ff ff ff ff 04 0a 0d 0a bf dc d8 63 68 65 63 6b 73 74 61 63 6b be 2c 09 bf dc d8 ┆ ┐▄пcheckstackЙ, ┐▄п┆
0x24d20…24d40 5f 69 6e 69 74 63 68 61 69 6e 72 63 be 2c 20 20 0d 0a bf dc d8 64 65 6c 65 74 65 5f 73 65 6d 61 ┆_initchainrcЙ, ┐▄пdelete_sema┆
0x24d40…24d60 70 68 6f 72 65 be 2c 09 bf dc d8 5f 69 6e 69 74 6d 62 78 5f 5f 72 63 be 2c 20 20 0d 0a bf dc d8 ┆phoreЙ, ┐▄п_initmbx__rcЙ, ┐▄п┆
0x24d60…24d80 65 6d 70 74 79 be 2c 20 20 20 20 20 20 20 20 20 20 20 20 09 bf dc d8 5f 69 6e 69 74 70 6f 6f 6c ┆emptyЙ, ┐▄п_initpool┆
0x24d80…24da0 5f 72 63 be 2c 20 20 0d 0a bf dc d8 67 65 74 6d 65 6d 62 79 74 65 be 2c 09 bf dc d8 5f 69 6e 69 ┆_rcЙ, ┐▄пgetmembyteЙ, ┐▄п_ini┆
0x24da0…24dc0 74 70 72 6f 63 5f 72 63 be 2c 20 20 0d 0a bf dc d8 69 6e 69 74 70 6f 6f 6c be 2c 09 bf dc d8 5f ┆tproc_rcЙ, ┐▄пinitpoolЙ, ┐▄п_┆
0x24dc0…24de0 69 6e 69 74 70 72 6f 67 5f 72 63 be 2c 20 20 0d 0a bf dc d8 69 6e 69 74 73 65 6d be 2c 09 bf dc ┆initprog_rcЙ, ┐▄пinitsemЙ, ┐▄┆
0x24de0…24e00 d8 5f 69 6e 69 74 72 65 66 5f 5f 72 63 be 2c 20 20 0d 0a bf dc d8 5f 62 75 66 73 69 7a 65 5f 5f ┆п_initref__rcЙ, ┐▄п_bufsize__┆
0x24e00…24e20 72 63 be 2c 09 bf dc d8 5f 69 6e 69 74 73 65 6d 5f 5f 72 63 be 2c 20 20 0d 0a bf dc d8 5f 64 65 ┆rcЙ, ┐▄п_initsem__rcЙ, ┐▄п_de┆
0x24e20…24e40 63 5f 62 79 74 65 5f 72 63 be 2c 09 bf dc d8 5f 69 6e 69 74 73 68 5f 5f 5f 72 63 be 2c 20 20 0d ┆c_byte_rcЙ, ┐▄п_initsh___rcЙ, ┆
0x24e40…24e60 0a bf dc d8 5f 65 78 63 68 61 6e 67 65 5f 72 63 be 2c 09 bf dc d8 5f 6c 61 73 74 5f 5f 5f 5f 5f ┆ ┐▄п_exchange_rcЙ, ┐▄п_last_____┆
0x24e60…24e80 72 63 be 2c 20 20 0d 0a bf dc d8 5f 65 78 69 74 5f 5f 5f 5f 5f 72 63 be 2c 09 bf dc d8 5f 6e 65 ┆rcЙ, ┐▄п_exit_____rcЙ, ┐▄п_ne┆
0x24e80…24ea0 77 5f 5f 5f 5f 5f 5f 72 63 be 2c 20 20 0d 0a bf dc d8 5f 66 69 72 73 74 5f 5f 5f 5f 72 63 be 2c ┆w______rcЙ, ┐▄п_first____rcЙ,┆
0x24ea0…24ec0 09 bf dc d8 5f 6e 69 6c 72 65 66 5f 5f 5f 72 63 be 2c 20 20 0d 0a bf dc d8 5f 68 65 61 70 70 72 ┆ ┐▄п_nilref___rcЙ, ┐▄п_heappr┆
0x24ec0…24ee0 6f 63 5f 72 63 be 2c 09 bf dc d8 5f 72 65 67 69 6f 6e 5f 5f 5f 72 63 be 2c 20 20 0d 0a bf dc d8 ┆oc_rcЙ, ┐▄п_region___rcЙ, ┐▄п┆
0x24ee0…24f00 5f 68 65 61 70 72 65 66 5f 5f 72 63 be 2c 09 bf dc d8 5f 72 65 67 5f 65 78 69 74 5f 72 63 be 2c ┆_heapref__rcЙ, ┐▄п_reg_exit_rcЙ,┆
0x24f00…24f20 20 20 0d 0a bf dc d8 5f 68 65 61 70 73 68 5f 5f 5f 72 63 be 2c 09 bf dc d8 5f 73 65 6e 64 61 6c ┆ ┐▄п_heapsh___rcЙ, ┐▄п_sendal┆
0x24f20…24f40 6c 6f 63 72 63 be 2c 20 20 0d 0a bf dc d8 5f 69 6e 63 5f 62 79 74 65 5f 72 63 be 2c 09 bf dc d8 ┆locrcЙ, ┐▄п_inc_byte_rcЙ, ┐▄п┆
0x24f40…24f60 5f 73 68 69 66 74 5f 5f 5f 5f 72 63 be 20 20 20 0d 0a 8c 83 f8 0a 04 00 2d 4c 00 00 06 00 00 00 ┆_shift____rcЙ їЃЭ -L ┆
0x24f60…24f80 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e ┆ A1@ ┆
0x24f80…24fa0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 ┆ -L A1@ ┆
0x24fa0…24fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1e ff ff ff ff ff ff ff ff ┆ ┆
0x24fc0…24fe0 ff ff ff ff ff ff ff 04 0a 0c 80 80 0a 20 20 20 20 20 0d 0a 16 53 61 0d 0a 54 68 65 20 52 43 33 ┆ ђђ Sa The RC3┆
0x24fe0…25000 35 30 32 20 4d 61 63 68 69 6e 65 0d 0a 16 53 42 0d 0a 52 75 6e 20 54 69 6d 65 20 45 6e 76 69 72 ┆502 Machine SB Run Time Envir┆
0x25000…25020 6f 6e 6d 65 6e 74 0d 0a 41 66 74 65 72 20 61 75 74 6f 6c 6f 61 64 20 61 6e 64 20 73 79 73 74 65 ┆onment After autoload and syste┆
0x25020…25040 6d 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 2c 20 74 68 65 20 70 72 6f 63 65 73 73 20 73 74 ┆m initialization, the process st┆
0x25040…25060 72 75 63 74 75 72 65 20 69 73 3a 20 0d 0a 16 73 66 20 32 39 0d 0a 50 72 6f 63 65 73 73 20 73 74 ┆ructure is: sf 29 Process st┆
0x25060…25080 72 75 63 74 75 72 65 20 61 66 74 65 72 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0d 0a 0d 0a ┆ructure after initialization ┆
0x25080…250a0 4d 4f 4e 49 54 4f 52 09 70 65 72 66 6f 72 6d 73 20 6d 65 64 69 75 6d 20 74 65 72 6d 20 73 63 68 ┆MONITOR performs medium term sch┆
0x250a0…250c0 65 64 75 6c 69 6e 67 20 28 73 74 61 72 74 2c 20 73 74 6f 70 29 2e 20 0d 0a 0d 0a 54 49 4d 45 52 ┆eduling (start, stop). TIMER┆
0x250c0…250e0 09 84 70 65 72 66 6f 72 6d 73 20 64 65 6c 61 79 20 74 69 6d 69 6e 67 2c 20 74 69 6d 65 20 6f 75 ┆ ёperforms delay timing, time ou┆
0x250e0…25100 74 20 6f 66 20 70 72 6f 63 65 73 73 65 73 2c 20 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t of processes, and ┆
0x25100…25120 0a 19 8d 80 80 63 6f 6e 74 72 6f 6c 73 20 61 20 73 79 73 74 65 6d 20 63 6c 6f 63 6b 20 66 6f 72 ┆ Їђђcontrols a system clock for┆
0x25120…25140 20 74 69 6d 65 20 73 74 61 6d 70 69 6e 67 2e 20 0d 0a 0d 0a 41 4c 4c 4f 43 41 54 4f 52 09 84 61 ┆ time stamping. ALLOCATOR ёa┆
0x25140…25160 64 6d 69 6e 69 73 74 65 72 73 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 61 6e 64 20 64 65 61 6c 6c 6f ┆dministers allocation and deallo┆
0x25160…25180 63 61 74 69 6f 6e 20 6f 66 20 52 41 4d 20 6d 65 6d 6f 72 79 20 20 20 20 20 20 20 20 20 20 20 20 ┆cation of RAM memory ┆
0x25180…251a0 20 0a 19 8d 80 80 61 6e 64 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 73 2e 20 0d ┆ Їђђand interruption levels. ┆
0x251a0…251c0 0a 0d 0a 41 44 41 4d 09 84 69 73 20 74 68 65 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 64 79 6e 61 ┆ ADAM ёis the root of the dyna┆
0x251c0…251e0 6d 69 63 20 74 72 65 65 20 6f 66 20 70 72 6f 63 65 73 73 65 73 2e 20 41 44 41 4d 20 20 20 20 20 ┆mic tree of processes. ADAM ┆
0x251e0…25200 20 20 20 20 20 20 20 20 0a 19 8d 80 80 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 72 65 61 74 ┆ Їђђautomatically creat┆
0x25200…25220 65 73 20 61 6e 64 20 73 74 61 72 74 73 20 61 20 6e 75 6d 62 65 72 20 6f 66 20 69 6e 63 61 72 6e ┆es and starts a number of incarn┆
0x25220…25240 61 80 0a 19 8d 80 80 74 69 6f 6e 73 3a 20 0d 0a 09 2d 20 46 53 20 0d 0a 09 2d 20 49 4d 43 53 54 ┆aђ Їђђtions: - FS - IMCST┆
0x25240…25260 41 52 54 20 0d 0a 09 2d 20 4f 50 53 59 53 20 0d 0a 09 2d 20 53 20 0d 0a 0d 0a 8c 84 90 0a 4c 49 ┆ART - OPSYS - S їёљ LI┆
0x25260…25280 4e 4b 45 52 09 84 61 64 6d 69 6e 69 73 74 65 72 73 20 61 20 63 61 74 61 6c 6f 67 75 65 20 6f 66 ┆NKER ёadministers a catalogue of┆
0x25280…252a0 20 70 72 6f 67 72 61 6d 73 20 61 6e 64 20 72 6f 75 74 69 6e 65 73 2c 20 74 68 65 20 20 20 20 20 ┆ programs and routines, the ┆
0x252a0…252c0 20 20 20 20 20 20 20 20 0a 19 8d 80 80 4c 49 4e 4b 45 52 20 63 61 74 61 6c 6f 67 75 65 2e 20 0d ┆ ЇђђLINKER catalogue. ┆
0x252c0…252e0 0a 0d 0a 4f 50 45 52 41 54 4f 52 09 84 69 73 20 74 68 65 20 69 6e 74 65 72 66 61 63 65 20 62 65 ┆ OPERATOR ёis the interface be┆
0x252e0…25300 74 77 65 65 6e 20 61 20 68 75 6d 61 6e 20 6f 70 65 72 61 74 6f 72 20 61 6e 64 20 74 68 65 20 72 ┆tween a human operator and the r┆
0x25300…25320 75 6e 80 0a 19 8d 80 80 6e 69 6e 67 20 70 72 6f 63 65 73 73 65 73 2e 20 4f 50 45 52 41 54 4f 52 ┆unђ Їђђning processes. OPERATOR┆
0x25320…25340 20 70 65 72 66 6f 72 6d 73 20 69 6e 80 70 75 74 2f 6f 75 74 70 75 74 20 74 6f 20 74 68 65 20 0a ┆ performs inђput/output to the ┆
0x25340…25360 19 8d 80 80 64 65 62 75 67 20 63 6f 6e 73 6f 6c 65 2e 20 0d 0a 0d 0a 4f 50 45 52 41 54 4f 52 09 ┆ Їђђdebug console. OPERATOR ┆
0x25360…25380 84 68 61 6e 64 6c 65 73 20 6d 65 73 73 61 67 65 73 20 73 69 67 6e 61 6c 6c 65 64 20 74 6f 20 74 ┆ёhandles messages signalled to t┆
0x25380…253a0 68 65 20 6f 70 65 72 61 74 6f 72 20 6d 61 69 6c 62 6f 78 2e 20 0d 0a 0d 0a 4f 50 53 59 53 09 84 ┆he operator mailbox. OPSYS ё┆
0x253a0…253c0 69 73 20 61 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20 66 75 6e 63 74 69 ┆is a command interpreter, functi┆
0x253c0…253e0 6f 6e 69 6e 67 20 61 73 20 61 6e 20 69 6e 74 65 72 66 61 63 65 20 20 20 20 20 20 20 20 20 20 20 ┆oning as an interface ┆
0x253e0…25400 20 20 0a 19 8d 80 80 62 65 74 77 65 65 6e 20 61 20 68 75 6d 61 6e 20 6f 70 65 72 61 74 6f 72 20 ┆ Їђђbetween a human operator ┆
0x25400…25420 61 6e 64 20 74 68 65 20 52 75 6e 20 54 69 6d 65 20 70 72 6f 63 65 73 73 65 73 2e 20 0d 0a 0d 0a ┆and the Run Time processes. ┆
0x25420…25440 45 58 43 45 50 54 49 4f 4e 09 84 70 72 69 6e 74 73 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 ┆EXCEPTION ёprints a list of the ┆
0x25440…25460 64 79 6e 61 6d 69 63 20 63 68 61 69 6e 20 6f 66 20 72 6f 75 74 69 6e 65 20 63 61 6c 6c 73 2c 20 ┆dynamic chain of routine calls, ┆
0x25460…25480 20 20 20 20 20 20 20 20 20 20 20 20 0a 19 8d 80 80 77 68 65 6e 20 74 68 65 20 70 72 6f 63 65 64 ┆ Їђђwhen the proced┆
0x25480…254a0 75 72 65 20 74 72 61 63 65 20 69 73 20 63 61 6c 6c 65 64 20 6f 72 20 74 68 65 20 73 79 73 74 65 ┆ure trace is called or the syste┆
0x254a0…254c0 6d 73 20 65 78 80 0a 19 8d 80 80 63 65 70 74 69 6f 6e 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 ┆ms exђ Їђђception procedure is ┆
0x254c0…254e0 63 61 6c 6c 65 64 20 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 20 72 75 6e 20 74 69 6d 65 20 65 ┆called as a result of run time e┆
0x254e0…25500 72 80 0a 19 8d 80 80 72 6f 72 20 69 6e 20 61 20 70 72 6f 63 65 73 73 2e 20 0d 0a 0d 0a 53 09 84 ┆rђ Їђђror in a process. S ё┆
0x25500…25520 49 66 20 61 20 70 72 6f 67 72 61 6d 20 53 20 65 78 69 73 74 73 20 69 6e 20 74 68 65 20 4c 49 4e ┆If a program S exists in the LIN┆
0x25520…25540 4b 45 52 20 63 61 74 61 6c 6f 67 75 65 2c 20 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 19 ┆KER catalogue, an ┆
0x25540…25560 8d 80 80 69 6e 63 61 72 6e 61 74 69 6f 6e 20 6f 66 20 53 20 77 69 6c 6c 20 62 65 20 63 72 65 61 ┆Їђђincarnation of S will be crea┆
0x25560…25580 74 65 64 20 61 6e 64 20 73 74 61 72 74 65 64 2e 20 54 68 69 73 20 77 69 6c 6c 20 0a 19 8d 80 80 ┆ted and started. This will Їђђ┆
0x25580…255a0 62 65 20 74 68 65 20 63 61 73 65 20 77 68 65 6e 20 61 20 70 72 6f 67 72 61 6d 20 53 20 69 73 20 ┆be the case when a program S is ┆
0x255a0…255c0 62 6c 61 73 74 65 64 20 69 6e 20 50 52 4f 4d 20 6f 72 20 0a 19 8d 80 80 61 75 74 6f 6c 6f 61 64 ┆blasted in PROM or Їђђautoload┆
0x255c0…255e0 65 64 2e 20 0d 0a 09 53 20 6d 61 79 20 72 65 70 6c 61 63 65 20 4f 50 53 59 53 20 62 79 20 69 74 ┆ed. S may replace OPSYS by it┆
0x255e0…25600 73 20 6f 77 6e 20 4e 45 57 5f 4f 50 53 59 53 2e 20 0d 0a 16 53 42 0d 0a 4d 6f 6e 69 74 6f 72 20 ┆s own NEW_OPSYS. SB Monitor ┆
0x25600…25620 50 72 6f 63 65 73 73 0d 0a 16 73 6f 20 6d 6f 6e 69 74 6f 72 20 70 72 6f 63 65 73 73 0d 0a 54 68 ┆Process so monitor process Th┆
0x25620…25640 65 20 6d 61 69 6e 20 70 75 72 70 6f 73 65 20 6f 66 20 74 68 65 20 6d 6f 6e 69 74 6f 72 20 69 73 ┆e main purpose of the monitor is┆
0x25640…25660 20 74 6f 20 63 6f 6e 74 72 6f 6c 20 74 68 65 20 73 65 74 20 6f 66 20 61 63 74 69 76 65 20 70 72 ┆ to control the set of active pr┆
0x25660…25680 6f 80 0a 63 65 73 73 65 73 2e 20 0d 0a 0d 0a 54 68 65 20 61 63 74 69 76 65 20 70 72 6f 63 65 73 ┆oђ cesses. The active proces┆
0x25680…256a0 73 65 73 20 61 72 65 20 64 69 76 69 64 65 64 20 69 6e 74 6f 20 74 68 72 65 65 20 70 72 69 6f 72 ┆ses are divided into three prior┆
0x256a0…256c0 69 74 79 20 63 6c 61 73 73 65 73 3a 20 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 ┆ity classes: -L A1┆
0x256c0…256e0 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 14 1e 2d ff ff ff ┆@ - ┆
0x256e0…25700 ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 ┆ -L A1@ ┆
0x25700…25720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 1e ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x25720…25740 ff ff 04 0a 20 20 20 20 20 20 20 43 6c 61 73 73 20 49 3a 09 48 69 67 68 20 70 72 69 6f 72 69 74 ┆ Class I: High priorit┆
0x25740…25760 79 20 0d 0a 20 20 20 20 20 20 20 43 6c 61 73 73 20 49 49 3a 09 4d 65 64 69 75 6d 20 70 72 69 6f ┆y Class II: Medium prio┆
0x25760…25780 72 69 74 79 20 0d 0a 20 20 20 20 20 20 20 43 6c 61 73 73 20 49 49 49 3a 09 4c 6f 77 20 70 72 69 ┆rity Class III: Low pri┆
0x25780…257a0 6f 72 69 74 79 20 0d 0a 0d 0a 16 73 6f 20 73 63 68 65 64 75 6c 69 6e 67 0d 0a 16 73 6f 20 70 72 ┆ority so scheduling so pr┆
0x257a0…257c0 69 6f 72 69 74 79 0d 0a 53 63 68 65 64 75 6c 69 6e 67 20 6f 66 20 63 6c 61 73 73 20 49 20 70 72 ┆iority Scheduling of class I pr┆
0x257c0…257e0 6f 63 65 73 73 65 73 20 69 73 20 6d 61 6e 61 67 65 64 20 62 79 20 74 68 65 20 68 61 72 64 77 61 ┆ocesses is managed by the hardwa┆
0x257e0…25800 72 65 20 69 6e 74 65 72 80 72 75 70 74 20 0a 70 72 69 6f 72 69 74 79 20 6d 65 63 68 61 6e 69 73 ┆re interђrupt priority mechanis┆
0x25800…25820 6d 2e 20 50 72 6f 63 65 73 73 65 73 20 69 6e 20 63 6c 61 73 73 20 49 20 61 72 65 20 72 75 6e 6e ┆m. Processes in class I are runn┆
0x25820…25840 69 6e 67 20 6f 6e 20 61 6e 20 69 6e 80 74 65 72 72 75 70 74 69 6f 6e 20 0a 6c 65 76 65 6c 20 67 ┆ing on an inђterruption level g┆
0x25840…25860 72 65 61 74 65 72 20 74 68 61 6e 20 7a 65 72 6f 2e 20 0d 0a 0d 0a 43 6c 61 73 73 20 49 49 20 61 ┆reater than zero. Class II a┆
0x25860…25880 6e 64 20 49 49 49 20 70 72 6f 63 65 73 73 65 73 20 61 72 65 20 72 75 6e 6e 69 6e 67 20 6f 6e 20 ┆nd III processes are running on ┆
0x25880…258a0 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 20 30 2e 20 0d 0a 0d 0a 53 63 68 65 64 75 ┆interruption level 0. Schedu┆
0x258a0…258c0 6c 69 6e 67 20 6f 66 20 63 6c 61 73 73 20 49 49 20 61 6e 64 20 49 49 49 20 70 72 6f 63 65 73 73 ┆ling of class II and III process┆
0x258c0…258e0 65 73 20 69 73 20 61 6c 73 6f 20 70 65 72 66 6f 72 6d 65 64 20 62 79 20 74 68 65 20 0a 68 61 72 ┆es is also performed by the har┆
0x258e0…25900 64 77 61 72 65 2e 20 0d 0a 0d 0a 54 68 65 20 63 6c 61 73 73 20 49 49 20 70 72 6f 63 65 73 73 65 ┆dware. The class II processe┆
0x25900…25920 73 20 28 63 6f 72 6f 75 74 69 6e 65 73 29 20 61 72 65 20 73 63 68 65 64 75 6c 65 64 20 61 63 63 ┆s (coroutines) are scheduled acc┆
0x25920…25940 6f 72 64 69 6e 67 20 74 6f 20 69 6e 74 65 72 6e 61 6c 20 0a 70 72 69 6f 72 69 74 79 20 69 6e 20 ┆ording to internal priority in ┆
0x25940…25960 74 68 65 20 63 6c 61 73 73 20 61 6e 64 20 72 6f 75 6e 64 20 72 6f 62 69 6e 20 66 6f 72 20 61 20 ┆the class and round robin for a ┆
0x25960…25980 67 69 76 65 6e 20 70 72 69 6f 72 69 74 79 2e 20 0d 0a 0d 0a 54 68 65 20 63 6c 61 73 73 20 49 49 ┆given priority. The class II┆
0x25980…259a0 49 20 70 72 6f 63 65 73 73 65 73 20 61 72 65 20 73 63 68 65 64 75 6c 65 64 20 61 66 74 65 72 20 ┆I processes are scheduled after ┆
0x259a0…259c0 61 20 74 69 6d 65 20 73 6c 69 63 65 64 20 72 6f 75 6e 64 20 72 6f 80 62 69 6e 20 0a 61 6c 67 6f ┆a time sliced round roђbin algo┆
0x259c0…259e0 72 69 74 68 6d 20 77 69 74 68 20 62 75 69 6c 74 2d 69 6e 20 70 72 69 6f 72 69 74 79 2e 20 0d 0a ┆rithm with built-in priority. ┆
0x259e0…25a00 0d 0a 54 68 65 20 6d 6f 6e 69 74 6f 72 20 69 73 20 61 63 74 69 76 61 74 65 64 2c 20 77 68 65 6e ┆ The monitor is activated, when┆
0x25a00…25a20 20 70 72 6f 63 65 73 73 65 73 20 63 61 6c 6c 20 74 68 65 20 72 6f 75 74 69 6e 65 73 20 62 72 65 ┆ processes call the routines bre┆
0x25a20…25a40 61 6b 2c 20 72 65 80 0a 6d 6f 76 65 2c 20 73 74 61 72 74 2c 20 72 65 73 75 6d 65 20 6f 72 20 73 ┆ak, reђ move, start, resume or s┆
0x25a40…25a60 74 6f 70 2e 20 0d 0a 16 53 42 0d 0a 44 72 69 76 65 72 20 50 72 6f 63 65 73 73 65 73 0d 0a 16 73 ┆top. SB Driver Processes s┆
0x25a60…25a80 6f 20 64 72 69 76 65 72 20 70 72 6f 63 65 73 73 0d 0a 42 79 20 64 65 66 69 6e 69 74 69 6f 6e 2c ┆o driver process By definition,┆
0x25a80…25aa0 20 61 20 64 72 69 76 65 72 20 70 72 6f 63 65 73 73 20 69 73 20 61 20 70 72 6f 67 72 61 6d 20 77 ┆ a driver process is a program w┆
0x25aa0…25ac0 68 69 63 68 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 0d 0a 0d 0a 43 48 41 4e 4e 45 4c 20 3c 72 ┆hich contains the CHANNEL <r┆
0x25ac0…25ae0 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 3e 20 44 4f 20 3c 73 74 61 74 65 6d 65 6e 74 ┆eference variable> DO <statement┆
0x25ae0…25b00 73 3e 3b 20 0d 0a 0d 0a 8c 8a 90 0a 63 6f 6e 73 74 72 75 63 74 69 6f 6e 20 6f 72 20 74 68 65 20 ┆s>; їіљ construction or the ┆
0x25b00…25b20 73 74 61 6e 64 61 72 64 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 72 6f 75 74 69 6e 65 73 20 66 ┆standard input/output routines f┆
0x25b20…25b40 72 6f 6d 20 73 65 63 74 69 6f 6e 20 33 2e 0d 0a 0d 0a 41 63 63 65 73 73 20 74 6f 20 6d 6f 73 74 ┆rom section 3. Access to most┆
0x25b40…25b60 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 72 6f 75 74 69 6e 65 73 20 61 6e 64 20 74 68 65 20 43 ┆ input/output routines and the C┆
0x25b60…25b80 48 41 4e 4e 45 4c 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 0a 61 20 72 65 66 65 72 65 6e 63 65 ┆HANNEL statement is a reference┆
0x25b80…25ba0 20 76 61 72 69 61 62 6c 65 20 77 68 69 63 68 20 72 65 66 65 72 73 20 74 6f 20 61 20 6d 65 73 73 ┆ variable which refers to a mess┆
0x25ba0…25bc0 61 67 65 20 6f 66 20 6b 69 6e 64 20 27 63 68 61 6e 6e 65 6c 20 6d 65 73 80 0a 73 61 67 65 27 20 ┆age of kind 'channel mesђ sage' ┆
0x25bc0…25be0 28 63 66 2e 20 46 55 4e 43 54 49 4f 4e 20 6d 65 73 73 61 67 65 6b 69 6e 64 29 2e 20 0d 0a 0d 0a ┆(cf. FUNCTION messagekind). ┆
0x25be0…25c00 41 20 bf dc d8 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 be 20 69 73 20 6f 62 74 61 69 6e 65 ┆A ┐▄пchannel messageЙ is obtaine┆
0x25c00…25c20 64 20 62 79 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 72 6f 75 74 69 6e 65 20 72 65 73 65 72 76 65 ┆d by calling the routine reserve┆
0x25c20…25c40 63 68 20 73 70 65 63 69 80 0a 66 79 69 6e 67 20 74 68 65 20 64 65 76 69 63 65 20 6f 72 20 69 6e ┆ch speciђ fying the device or in┆
0x25c40…25c60 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 2c 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 61 ┆terruption level, the process wa┆
0x25c60…25c80 6e 74 73 20 74 6f 20 63 6f 6e 74 72 6f 6c 2e 20 0d 0a 0d 0a 54 68 65 20 73 79 73 74 65 6d 20 67 ┆nts to control. The system g┆
0x25c80…25ca0 75 61 72 61 6e 74 65 65 73 20 74 68 61 74 20 61 74 20 6d 6f 73 74 20 6f 6e 65 20 63 68 61 6e 6e ┆uarantees that at most one chann┆
0x25ca0…25cc0 65 6c 20 6d 65 73 73 61 67 65 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 0a 70 65 72 20 64 65 76 ┆el message is allocated per dev┆
0x25cc0…25ce0 69 63 65 20 6f 72 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 2e 20 0d 0a 0d 0a 57 ┆ice or interruption level. W┆
0x25ce0…25d00 68 65 6e 20 61 20 70 72 6f 63 65 73 73 20 65 78 65 63 75 74 65 73 20 61 20 43 48 41 4e 4e 45 4c ┆hen a process executes a CHANNEL┆
0x25d00…25d20 20 73 74 61 74 65 6d 65 6e 74 20 6f 72 20 63 61 6c 6c 73 20 61 6e 20 69 6e 70 75 74 2f 6f 75 74 ┆ statement or calls an input/out┆
0x25d20…25d40 80 0a 70 75 74 20 72 6f 75 74 69 6e 65 2c 20 77 68 69 63 68 20 64 65 6d 61 6e 64 73 20 61 20 63 ┆ђ put routine, which demands a c┆
0x25d40…25d60 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 2c 20 69 74 20 69 73 20 63 68 65 63 6b 65 64 20 74 68 ┆hannel message, it is checked th┆
0x25d60…25d80 61 74 20 74 68 65 20 0a 72 65 80 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e ┆at the reђference variable is n┆
0x25d80…25da0 6f 74 20 6e 69 6c 20 61 6e 64 20 74 68 61 74 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 76 61 ┆ot nil and that the reference va┆
0x25da0…25dc0 72 69 61 62 6c 65 20 72 65 66 65 72 73 20 74 6f 20 0a 61 20 6d 65 73 73 61 67 65 20 6f 66 20 6b ┆riable refers to a message of k┆
0x25dc0…25de0 69 6e 64 20 27 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 27 2e 20 0d 0a 0d 0a 49 6e 20 74 68 ┆ind 'channel message'. In th┆
0x25de0…25e00 65 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 72 6f 75 74 69 6e 65 73 2c 20 77 68 69 63 68 20 64 ┆e input/output routines, which d┆
0x25e00…25e20 6f 20 6e 6f 74 20 77 61 69 74 20 66 6f 72 20 61 6e 20 69 6e 74 65 72 72 75 70 74 20 66 72 6f 6d ┆o not wait for an interrupt from┆
0x25e20…25e40 20 0a 74 68 65 20 64 65 76 69 63 65 2c 20 74 68 69 73 20 69 73 20 61 6c 73 6f 20 63 68 65 63 6b ┆ the device, this is also check┆
0x25e40…25e60 65 64 2e 20 0d 0a 0d 0a 42 65 66 6f 72 65 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 ┆ed. Before execution of the ┆
0x25e60…25e80 66 69 72 73 74 20 73 74 61 74 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 43 48 41 4e 4e 45 4c 20 73 ┆first statement in the CHANNEL s┆
0x25e80…25ea0 74 61 74 65 6d 65 6e 74 2c 20 0a 74 68 65 20 69 6e 63 61 72 6e 61 74 69 6f 6e 20 68 61 73 20 65 ┆tatement, the incarnation has e┆
0x25ea0…25ec0 6e 74 65 72 65 64 20 74 68 65 20 63 6c 61 73 73 20 49 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 ┆ntered the class I priority clas┆
0x25ec0…25ee0 73 2e 20 41 20 70 6f 73 73 69 62 6c 65 20 0a 27 74 69 6d 65 64 20 6f 75 74 27 20 73 74 61 74 75 ┆s. A possible 'timed out' statu┆
0x25ee0…25f00 73 20 69 73 20 63 6c 65 61 72 65 64 2e 20 0d 0a 0d 0a 54 68 65 20 73 74 61 74 65 6d 65 6e 74 73 ┆s is cleared. The statements┆
0x25f00…25f20 20 69 6e 20 74 68 65 20 43 48 41 4e 4e 45 4c 20 73 74 61 74 65 6d 65 6e 74 20 61 72 65 20 65 78 ┆ in the CHANNEL statement are ex┆
0x25f20…25f40 65 63 75 74 65 64 20 6f 6e 20 74 68 65 20 68 61 72 64 80 0a 77 61 72 65 20 69 6e 74 65 72 72 75 ┆ecuted on the hardђ ware interru┆
0x25f40…25f60 70 74 69 6f 6e 20 6c 65 76 65 6c 20 73 70 65 63 69 66 69 65 64 20 62 79 20 74 68 65 20 63 68 61 ┆ption level specified by the cha┆
0x25f60…25f80 6e 6e 65 6c 20 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 41 66 74 65 72 20 65 78 65 63 75 74 69 6f ┆nnel message. After executio┆
0x25f80…25fa0 6e 20 6f 66 20 74 68 65 20 6c 61 73 74 20 73 74 61 74 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 43 ┆n of the last statement in the C┆
0x25fa0…25fc0 48 41 4e 4e 45 4c 20 73 74 61 74 65 6d 65 6e 74 2c 20 74 68 65 20 0a 70 72 6f 63 65 73 73 20 72 ┆HANNEL statement, the process r┆
0x25fc0…25fe0 65 65 6e 74 65 72 73 20 74 68 65 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 73 20 28 49 49 20 6f ┆eenters the priority class (II o┆
0x25fe0…26000 72 20 49 49 49 29 20 77 68 69 63 68 20 74 68 65 20 70 72 6f 63 65 73 73 20 6c 65 66 74 2c 20 0a ┆r III) which the process left, ┆
0x26000…26020 77 68 65 6e 20 65 6e 74 65 72 69 6e 67 20 74 68 65 20 43 48 41 4e 4e 45 4c 20 73 74 61 74 65 6d ┆when entering the CHANNEL statem┆
0x26020…26040 65 6e 74 2e 20 41 6e 20 65 76 65 6e 74 75 61 6c 6c 79 20 27 74 69 6d 65 64 20 6f 75 74 27 20 0a ┆ent. An eventually 'timed out' ┆
0x26040…26060 73 74 61 74 75 73 20 69 73 20 63 6c 65 61 72 65 64 2e 20 0d 0a 0d 0a 54 68 65 20 75 73 65 72 20 ┆status is cleared. The user ┆
0x26060…26080 73 68 6f 75 6c 64 20 62 65 20 76 65 72 79 20 6d 75 63 68 20 61 77 61 72 65 20 6f 66 20 74 68 65 ┆should be very much aware of the┆
0x26080…260a0 20 66 61 63 74 20 74 68 61 74 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 0a 6f 66 20 70 72 6f ┆ fact that the execution of pro┆
0x260a0…260c0 63 65 73 73 65 73 20 69 6e 20 74 68 65 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 73 65 73 20 49 ┆cesses in the priority classes I┆
0x260c0…260e0 49 20 61 6e 64 20 49 49 49 2c 20 62 65 73 69 64 65 73 20 61 6c 6c 20 70 72 6f 63 65 73 73 65 73 ┆I and III, besides all processes┆
0x260e0…26100 20 0a 72 75 6e 6e 69 6e 67 20 61 74 20 61 20 68 61 72 64 77 61 72 65 20 69 6e 74 65 72 72 75 70 ┆ running at a hardware interrup┆
0x26100…26120 74 69 6f 6e 20 6c 65 76 65 6c 20 6c 65 73 73 20 74 68 61 6e 20 74 68 65 20 69 6e 74 65 72 72 75 ┆tion level less than the interru┆
0x26120…26140 70 80 74 69 6f 6e 20 6c 65 80 0a 76 65 6c 20 6f 66 20 74 68 65 20 75 73 65 72 27 73 20 70 72 6f ┆pђtion leђ vel of the user's pro┆
0x26140…26160 63 65 73 73 65 73 2c 20 69 73 20 64 69 73 61 62 6c 65 64 20 77 68 69 6c 65 20 65 78 65 63 75 74 ┆cesses, is disabled while execut┆
0x26160…26180 69 6e 67 20 73 74 61 74 65 6d 65 6e 74 73 20 69 6e 20 0a 61 20 43 48 41 4e 4e 45 4c 20 73 74 61 ┆ing statements in a CHANNEL sta┆
0x26180…261a0 74 65 6d 65 6e 74 2e 20 0d 0a 0d 0a 54 68 69 73 20 69 73 20 74 72 75 65 20 66 6f 72 20 61 6c 6c ┆tement. This is true for all┆
0x261a0…261c0 20 73 74 61 74 65 6d 65 6e 74 73 20 65 78 63 65 70 74 20 74 68 6f 73 65 20 69 6e 70 75 74 2f 6f ┆ statements except those input/o┆
0x261c0…261e0 75 74 70 75 74 20 72 6f 75 74 69 6e 65 73 2c 20 0a 77 68 69 63 68 20 77 61 69 74 20 66 6f 72 20 ┆utput routines, which wait for ┆
0x261e0…26200 61 6e 20 69 6e 74 65 72 72 75 70 74 2c 20 61 6e 64 20 74 68 65 72 65 62 79 20 61 6c 6c 6f 77 20 ┆an interrupt, and thereby allow ┆
0x26200…26220 70 72 6f 63 65 73 73 65 73 20 6f 6e 20 6c 6f 77 65 72 20 69 6e 80 0a 74 65 72 72 75 70 74 69 6f ┆processes on lower inђ terruptio┆
0x26220…26240 6e 20 6c 65 76 65 6c 73 20 74 6f 20 65 78 65 63 75 74 65 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 ┆n levels to execute instructions┆
0x26240…26260 2e 20 0d 0a 0d 0a 54 68 65 72 65 66 6f 72 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 ┆. Therefore, the following r┆
0x26260…26280 65 63 6f 6d 6d 65 6e 64 61 74 69 6f 6e 73 20 73 68 6f 75 6c 64 20 62 65 20 66 6f 6c 6c 6f 77 65 ┆ecommendations should be followe┆
0x26280…262a0 64 3a 20 0d 0a 0d 0a 20 20 20 2d 20 84 6d 69 6e 69 6d 69 7a 65 20 74 68 65 20 6e 75 6d 62 65 72 ┆d: - ёminimize the number┆
0x262a0…262c0 20 6f 66 20 73 74 61 74 65 6d 65 6e 74 73 20 77 68 69 63 68 20 61 72 65 20 65 78 65 63 75 74 65 ┆ of statements which are execute┆
0x262c0…262e0 64 20 69 6e 20 61 20 0a 19 85 80 80 43 48 41 4e 4e 45 4c 20 73 74 61 74 65 6d 65 6e 74 2e 20 0d ┆d in a ЁђђCHANNEL statement. ┆
0x262e0…26300 0a 20 20 20 2d 20 84 74 68 65 20 73 74 61 74 65 6d 65 6e 74 73 20 69 6e 20 61 20 43 48 41 4e 4e ┆ - ёthe statements in a CHANN┆
0x26300…26320 45 4c 20 73 74 61 74 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 6d 61 69 6e 6c 79 20 62 65 20 69 6e ┆EL statement should mainly be in┆
0x26320…26340 80 0a 19 85 80 80 70 75 74 2f 6f 75 74 70 75 74 20 72 6f 75 74 69 6e 65 20 63 61 6c 6c 73 2e 20 ┆ђ Ёђђput/output routine calls. ┆
0x26340…26360 0d 0a 0d 0a 54 68 65 20 73 79 73 74 65 6d 20 61 6c 6c 6f 77 73 20 61 20 70 72 6f 63 65 73 73 20 ┆ The system allows a process ┆
0x26360…26380 74 6f 20 70 6f 73 73 65 73 73 20 73 65 76 65 72 61 6c 20 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 ┆to possess several channel messa┆
0x26380…263a0 67 65 73 2c 20 62 75 74 20 0a 69 74 20 69 73 20 65 6d 70 68 61 73 69 7a 65 64 20 74 68 61 74 20 ┆ges, but it is emphasized that ┆
0x263a0…263c0 69 74 20 69 73 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 20 75 73 65 64 20 69 ┆it is the channel message used i┆
0x263c0…263e0 6e 20 74 68 65 20 43 48 41 4e 4e 45 4c 20 0a 73 74 61 74 65 6d 65 6e 74 20 74 68 61 74 20 64 65 ┆n the CHANNEL statement that de┆
0x263e0…26400 66 69 6e 65 73 20 74 68 65 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 2c 20 77 68 ┆fines the interruption level, wh┆
0x26400…26420 65 72 65 20 74 68 65 20 69 6e 80 63 61 72 6e 61 74 69 6f 6e 20 69 73 20 0a 73 65 6e 73 69 74 69 ┆ere the inђcarnation is sensiti┆
0x26420…26440 76 65 20 66 6f 72 20 69 6e 74 65 72 72 75 70 74 73 2e 20 0d 0a 0d 0a 8c 8a 90 0a 54 68 65 72 65 ┆ve for interrupts. їіљ There┆
0x26440…26460 66 6f 72 65 20 69 74 20 69 73 20 6e 6f 72 6d 61 6c 6c 79 20 74 68 65 20 73 61 6d 65 20 63 68 61 ┆fore it is normally the same cha┆
0x26460…26480 6e 6e 65 6c 20 6d 65 73 73 61 67 65 20 77 68 69 63 68 20 69 73 20 75 73 65 64 20 62 6f 74 68 20 ┆nnel message which is used both ┆
0x26480…264a0 0a 69 6e 20 74 68 65 20 43 48 41 4e 4e 45 4c 20 73 74 61 74 65 6d 65 6e 74 20 61 6e 64 20 69 6e ┆ in the CHANNEL statement and in┆
0x264a0…264c0 20 74 68 65 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 72 6f 75 74 69 6e 65 73 2e 20 0d 0a 0d 0a ┆ the input/output routines. ┆
0x264c0…264e0 54 68 65 20 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 73 20 69 6e 20 61 20 43 48 41 4e 4e 45 ┆The channel messages in a CHANNE┆
0x264e0…26500 4c 20 73 74 61 74 65 6d 65 6e 74 20 61 6e 64 20 61 6e 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 ┆L statement and an input/output ┆
0x26500…26520 0a 72 6f 75 74 69 6e 65 20 6d 61 79 20 64 69 66 66 65 72 2e 20 54 68 69 73 20 6d 61 79 20 62 65 ┆ routine may differ. This may be┆
0x26520…26540 20 75 73 65 64 20 74 6f 20 73 65 6e 73 65 20 61 20 64 65 76 69 63 65 20 77 69 74 68 20 61 6e 6f ┆ used to sense a device with ano┆
0x26540…26560 74 68 65 72 20 0a 64 65 76 69 63 65 20 61 64 64 72 65 73 73 20 74 68 61 6e 20 74 68 65 20 69 6e ┆ther device address than the in┆
0x26560…26580 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 20 64 65 66 69 6e 65 64 20 62 79 20 74 68 65 20 ┆terruption level defined by the ┆
0x26580…265a0 43 48 41 4e 4e 45 4c 20 0a 73 74 61 74 65 6d 65 6e 74 2c 20 6f 72 20 65 76 65 6e 20 6f 75 74 73 ┆CHANNEL statement, or even outs┆
0x265a0…265c0 69 64 65 20 61 20 43 48 41 4e 4e 45 4c 20 73 74 61 74 65 6d 65 6e 74 2e 20 0d 0a 16 53 43 0d 0a ┆ide a CHANNEL statement. SC ┆
0x265c0…265e0 54 69 6d 65 20 4f 75 74 0d 0a 54 69 6d 65 20 6f 75 74 20 69 73 20 74 68 65 20 61 63 74 69 76 61 ┆Time Out Time out is the activa┆
0x265e0…26600 74 69 6f 6e 20 6f 66 20 61 20 70 72 6f 63 65 73 73 20 77 69 74 68 20 73 74 61 74 75 73 20 27 74 ┆tion of a process with status 't┆
0x26600…26620 69 6d 65 64 20 6f 75 74 27 2e 20 0d 0a 16 73 6f 20 74 69 6d 65 20 6f 75 74 0d 0a 0d 0a 54 69 6d ┆imed out'. so time out Tim┆
0x26620…26640 65 20 6f 75 74 20 6f 66 20 70 72 6f 63 65 73 73 65 73 20 69 73 20 70 65 72 66 6f 72 6d 65 64 20 ┆e out of processes is performed ┆
0x26640…26660 62 79 20 74 68 65 20 54 49 4d 45 52 20 70 72 6f 63 65 73 73 20 77 68 69 63 68 20 64 65 80 0a 63 ┆by the TIMER process which deђ c┆
0x26660…26680 72 65 6d 65 6e 74 73 20 6f 6e 63 65 20 70 65 72 20 73 65 63 6f 6e 64 20 74 68 65 20 74 69 6d 65 ┆rements once per second the time┆
0x26680…266a0 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 6f ┆r field of the process descripto┆
0x266a0…266c0 72 20 69 6e 20 0a 61 6c 6c 20 69 6e 80 63 61 72 6e 61 74 69 6f 6e 73 2c 20 77 68 69 63 68 20 68 ┆r in all inђcarnations, which h┆
0x266c0…266e0 61 76 65 20 63 61 6c 6c 65 64 20 74 68 65 20 72 6f 75 74 69 6e 65 20 64 65 66 69 6e 65 74 69 6d ┆ave called the routine definetim┆
0x266e0…26700 65 72 2e 20 0d 0a 0d 0a 54 69 6d 65 20 6f 75 74 20 74 61 6b 65 73 20 70 6c 61 63 65 2c 20 77 68 ┆er. Time out takes place, wh┆
0x26700…26720 65 6e 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 64 65 63 72 65 6d 65 6e 74 65 64 20 66 ┆en the variable is decremented f┆
0x26720…26740 72 6f 6d 20 31 20 74 6f 20 30 2e 20 0d 0a 0d 0a 54 68 65 20 27 74 69 6d 65 64 20 6f 75 74 27 20 ┆rom 1 to 0. The 'timed out' ┆
0x26740…26760 73 74 61 74 75 73 20 69 73 20 63 6c 65 61 72 65 64 2c 20 62 79 20 63 61 6c 6c 69 6e 67 20 74 68 ┆status is cleared, by calling th┆
0x26760…26780 65 20 72 6f 75 74 69 6e 65 20 74 69 6d 65 64 6f 75 74 20 6f 72 20 0a 62 79 20 65 78 69 74 20 6f ┆e routine timedout or by exit o┆
0x26780…267a0 66 20 61 20 43 48 41 4e 4e 45 4c 20 73 74 61 74 65 6d 65 6e 74 2e 20 0d 0a 16 53 42 0d 0a 54 69 ┆f a CHANNEL statement. SB Ti┆
0x267a0…267c0 6d 65 72 20 50 72 6f 63 65 73 73 0d 0a 16 73 6f 20 74 69 6d 65 72 20 70 72 6f 63 65 73 73 0d 0a ┆mer Process so timer process ┆
0x267c0…267e0 54 68 65 20 54 69 6d 65 72 20 50 72 6f 63 65 73 73 3a 20 0d 0a 20 20 20 2d 20 84 72 65 74 75 72 ┆The Timer Process: - ёretur┆
0x267e0…26800 6e 73 20 6d 65 73 73 61 67 65 73 20 61 66 74 65 72 20 61 20 73 70 65 63 69 66 69 65 64 20 69 6e ┆ns messages after a specified in┆
0x26800…26820 74 65 72 76 61 6c 20 28 44 65 6c 61 79 20 54 69 6d 69 6e 67 29 2c 20 0d 0a 20 20 20 2d 20 84 6d ┆terval (Delay Timing), - ёm┆
0x26820…26840 61 69 6e 74 61 69 6e 73 20 61 20 73 79 73 74 65 6d 20 63 6c 6f 63 6b 2c 20 0d 0a 20 20 20 2d 20 ┆aintains a system clock, - ┆
0x26840…26860 84 63 6f 6e 74 72 6f 6c 73 20 74 69 6d 65 20 6f 75 74 20 6f 66 20 70 72 6f 63 65 73 73 65 73 2e ┆ёcontrols time out of processes.┆
0x26860…26880 20 0d 0a 0d 0a 44 65 6c 61 79 20 74 69 6d 69 6e 67 20 69 73 20 72 65 71 75 65 73 74 65 64 20 62 ┆ Delay timing is requested b┆
0x26880…268a0 79 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 73 65 6e 64 74 69 6d 65 ┆y calling the procedure sendtime┆
0x268a0…268c0 72 20 28 73 65 65 20 73 65 63 80 0a 74 69 6f 6e 20 33 2e 32 2e 32 37 29 2e 20 0d 0a 0d 0a 54 69 ┆r (see secђ tion 3.2.27). Ti┆
0x268c0…268e0 6d 65 20 6f 75 74 20 69 73 20 72 65 71 75 65 73 74 65 64 20 62 79 20 61 73 73 69 67 6e 69 6e 67 ┆me out is requested by assigning┆
0x268e0…26900 20 74 68 65 20 74 69 6d 65 20 6f 75 74 20 70 65 72 69 6f 64 20 69 6e 20 73 65 63 6f 6e 64 73 20 ┆ the time out period in seconds ┆
0x26900…26920 74 6f 20 0a 74 68 65 20 74 69 6d 65 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 70 72 6f 63 65 ┆to the timer field of the proce┆
0x26920…26940 73 73 20 64 65 73 63 72 69 70 74 6f 72 20 28 61 73 73 69 67 6e 6d 65 6e 74 20 74 6f 20 6f 77 6e ┆ss descriptor (assignment to own┆
0x26940…26960 2e 74 69 6d 65 72 29 2c 20 6f 72 20 0a 62 79 20 75 73 69 6e 67 20 6f 6e 65 20 6f 66 20 74 68 65 ┆.timer), or by using one of the┆
0x26960…26980 20 63 6f 6d 62 69 6e 65 64 20 77 61 69 74 20 66 75 6e 63 80 74 69 6f 6e 73 20 73 70 65 63 69 66 ┆ combined wait funcђtions specif┆
0x26980…269a0 79 69 6e 67 20 61 20 64 65 6c 61 79 2e 20 43 6f 75 6e 74 20 0a 64 6f 77 6e 20 6f 66 20 74 68 65 ┆ying a delay. Count down of the┆
0x269a0…269c0 20 74 69 6d 65 72 20 66 69 65 6c 64 20 77 69 6c 6c 20 6f 6e 6c 79 20 68 61 70 70 65 6e 20 61 66 ┆ timer field will only happen af┆
0x269c0…269e0 74 65 72 20 61 20 63 61 6c 6c 20 6f 66 20 74 68 65 20 72 6f 75 74 69 6e 65 20 0a 64 65 66 69 6e ┆ter a call of the routine defin┆
0x269e0…26a00 65 74 69 6d 65 72 2e 20 0d 0a 16 53 42 0d 0a 41 6c 6c 6f 63 61 74 6f 72 20 50 72 6f 63 65 73 73 ┆etimer. SB Allocator Process┆
0x26a00…26a20 0d 0a 16 73 6f 20 61 6c 6c 6f 63 61 74 6f 72 20 70 72 6f 63 65 73 73 0d 0a 41 66 74 65 72 20 73 ┆ so allocator process After s┆
0x26a20…26a40 74 61 72 74 75 70 20 6f 66 20 74 68 65 20 73 79 73 74 65 6d 2c 20 41 4c 4c 4f 43 41 54 4f 52 20 ┆tartup of the system, ALLOCATOR ┆
0x26a40…26a60 63 6f 6e 74 72 6f 6c 73 20 74 68 65 20 61 76 61 69 6c 61 62 6c 65 20 6d 65 80 0a 6d 6f 72 79 2e ┆controls the available meђ mory.┆
0x26a60…26a80 20 0d 0a 0d 0a 4d 65 6d 6f 72 79 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 74 6f 20 63 6f 6e 74 ┆ Memory is allocated to cont┆
0x26a80…26aa0 61 69 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 73 74 61 63 6b 2c 20 77 68 65 6e 20 61 20 70 72 ┆ain the process stack, when a pr┆
0x26aa0…26ac0 6f 63 65 73 73 20 69 73 20 0a 63 72 65 61 74 65 64 2e 20 0d 0a 0d 0a 56 61 72 69 61 62 6c 65 73 ┆ocess is created. Variables┆
0x26ac0…26ae0 20 6f 66 20 74 79 70 65 20 70 6f 6f 6c 20 6d 61 79 20 62 65 20 61 6c 6c 6f 63 61 74 65 64 20 6d ┆ of type pool may be allocated m┆
0x26ae0…26b00 65 6d 6f 72 79 2c 20 77 68 65 6e 20 61 20 6e 65 77 62 6f 72 6e 20 0a 70 72 6f 63 65 73 73 20 69 ┆emory, when a newborn process i┆
0x26b00…26b20 73 20 73 74 61 72 74 65 64 2c 20 6f 72 20 77 68 65 6e 20 74 68 65 20 72 6f 75 74 69 6e 65 20 61 ┆s started, or when the routine a┆
0x26b20…26b40 6c 6c 6f 63 70 6f 6f 6c 20 69 73 20 63 61 6c 80 6c 65 64 2e 20 0d 0a 0d 0a 54 68 65 20 6d 65 6d ┆llocpool is calђled. The mem┆
0x26b40…26b60 6f 72 79 20 70 6f 73 73 65 73 73 65 64 20 62 79 20 61 20 70 72 6f 63 65 73 73 20 69 73 20 64 65 ┆ory possessed by a process is de┆
0x26b60…26b80 61 6c 6c 6f 63 61 74 65 64 20 77 68 65 6e 20 74 68 65 20 63 6f 6e 74 72 6f 6c 80 0a 6c 69 6e 67 ┆allocated when the controlђ ling┆
0x26b80…26ba0 20 66 61 74 68 65 72 20 70 72 6f 63 65 73 73 20 6f 72 20 61 6e 20 61 6e 63 65 73 74 6f 72 20 63 ┆ father process or an ancestor c┆
0x26ba0…26bc0 61 6c 6c 73 20 74 68 65 20 72 65 6d 6f 76 65 20 70 72 6f 63 65 64 75 72 65 2e 20 0d 0a 0d 0a 8c ┆alls the remove procedure. ї┆
0x26bc0…26be0 88 b8 0a 4d 65 6d 6f 72 79 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 69 6e 20 74 68 65 20 66 6f ┆ѕИ Memory is allocated in the fo┆
0x26be0…26c00 6c 6c 6f 77 69 6e 67 20 6f 72 64 65 72 3a 20 63 30 2c 20 63 32 2c 20 2e 2e 2e 2c 20 66 65 2c 20 ┆llowing order: c0, c2, ..., fe, ┆
0x26c00…26c20 61 30 2c 20 61 32 2c 20 2e 2e 2e 2c 20 0a 62 65 2e 20 54 68 69 73 20 69 73 20 64 6f 6e 65 20 66 ┆a0, a2, ..., be. This is done f┆
0x26c20…26c40 6f 72 20 68 61 72 64 77 61 72 65 20 74 65 73 74 20 70 75 72 70 6f 73 65 73 2e 20 0d 0a 0d 0a 41 ┆or hardware test purposes. A┆
0x26c40…26c60 4c 4c 4f 43 41 54 4f 52 20 61 6c 73 6f 20 63 6f 6e 74 72 6f 6c 73 20 61 63 63 65 73 73 20 74 6f ┆LLOCATOR also controls access to┆
0x26c60…26c80 20 61 6c 6c 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c 73 2e 20 54 68 69 73 20 69 ┆ all interruption levels. This i┆
0x26c80…26ca0 73 20 0a 64 6f 6e 65 20 62 79 20 6d 65 73 73 61 67 65 73 20 6f 66 20 6b 69 6e 64 20 63 68 61 6e ┆s done by messages of kind chan┆
0x26ca0…26cc0 6e 65 6c 6d 65 73 73 61 67 65 2e 20 0d 0a 0d 0a 41 6e 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 ┆nelmessage. An interruption ┆
0x26cc0…26ce0 6c 65 76 65 6c 20 69 73 20 72 65 73 65 72 76 65 64 20 62 79 20 63 61 6c 6c 69 6e 67 20 74 68 65 ┆level is reserved by calling the┆
0x26ce0…26d00 20 72 6f 75 74 69 6e 65 20 72 65 73 65 72 76 65 63 68 20 0a 73 70 65 63 69 66 79 69 6e 67 3a 20 ┆ routine reservech specifying: ┆
0x26d00…26d20 0d 0a 20 20 20 20 6c 65 76 65 6c 20 2d 20 69 6e 74 65 72 72 75 70 74 69 6f 6e 20 6c 65 76 65 6c ┆ level - interruption level┆
0x26d20…26d40 2c 20 0d 0a 20 20 20 20 6d 61 73 6b 20 20 2d 20 66 61 63 69 6c 69 74 79 20 6d 61 73 6b 2e 20 0d ┆, mask - facility mask. ┆
0x26d40…26d60 0a 0d 0a 41 20 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 6c 65 61 73 65 64 ┆ A channel message is released┆
0x26d60…26d80 20 62 79 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 3a 20 0d 0a 20 20 20 20 20 72 65 6c 65 61 73 ┆ by the statement: releas┆
0x26d80…26da0 65 28 63 68 61 6e 6e 65 6c 5f 6d 65 73 73 61 67 65 29 3b 20 0d 0a 16 53 42 0d 0a 4c 69 6e 6b 65 ┆e(channel_message); SB Linke┆
0x26da0…26dc0 72 20 50 72 6f 63 65 73 73 0d 0a 16 73 6f 20 6c 69 6e 6b 65 72 20 70 72 6f 63 65 73 73 0d 0a 4c ┆r Process so linker process L┆
0x26dc0…26de0 49 4e 4b 45 52 20 61 64 6d 69 6e 69 73 74 72 61 74 65 73 20 74 68 65 20 4c 49 4e 4b 45 52 20 63 ┆INKER administrates the LINKER c┆
0x26de0…26e00 61 74 61 6c 6f 67 75 65 20 64 65 73 63 72 69 62 69 6e 67 20 61 6c 6c 20 70 72 6f 67 72 61 6d 73 ┆atalogue describing all programs┆
0x26e00…26e20 20 69 6e 20 0a 74 68 65 20 73 79 73 74 65 6d 2e 20 54 68 65 20 70 72 6f 67 72 61 6d 73 20 61 72 ┆ in the system. The programs ar┆
0x26e20…26e40 65 20 6c 69 6e 6b 65 64 20 74 6f 20 70 68 79 73 69 80 63 61 6c 20 6d 65 6d 6f 72 79 20 28 73 74 ┆e linked to physiђcal memory (st┆
0x26e40…26e60 61 74 69 63 61 6c 6c 79 20 0a 72 65 80 6c 6f 63 61 74 65 64 29 20 61 6e 64 20 61 6c 6c 20 63 61 ┆atically reђlocated) and all ca┆
0x26e60…26e80 6c 6c 73 20 6f 66 20 65 78 74 65 72 6e 61 6c 20 72 6f 75 74 69 6e 65 73 20 61 72 65 20 72 65 73 ┆lls of external routines are res┆
0x26e80…26ea0 6f 6c 76 65 64 2e 20 0d 0a 0d 0a 54 68 65 20 4c 49 4e 4b 45 52 20 70 72 6f 63 65 73 73 65 73 20 ┆olved. The LINKER processes ┆
0x26ea0…26ec0 6c 69 6e 6b 2f 75 6e 6c 69 6e 6b 20 72 65 71 75 65 73 74 73 20 66 72 6f 6d 20 72 75 6e 6e 69 6e ┆link/unlink requests from runnin┆
0x26ec0…26ee0 67 20 70 72 6f 63 65 73 73 65 73 20 28 73 65 65 20 0a 74 68 65 20 72 6f 75 74 69 6e 65 73 20 6c ┆g processes (see the routines l┆
0x26ee0…26f00 69 6e 6b 20 61 6e 64 20 75 6e 6c 69 6e 6b 29 2e 20 0d 0a 0d 0a 41 20 6c 6f 6f 6b 75 70 20 66 75 ┆ink and unlink). A lookup fu┆
0x26f00…26f20 6e 63 74 69 6f 6e 20 61 6e 64 20 61 20 63 72 63 31 36 20 63 68 65 63 6b 20 66 75 6e 63 74 69 6f ┆nction and a crc16 check functio┆
0x26f20…26f40 6e 20 6d 61 79 20 61 6c 73 6f 20 62 65 20 72 65 80 71 75 65 73 74 65 64 20 0a 28 73 65 65 20 74 ┆n may also be reђquested (see t┆
0x26f40…26f60 68 65 20 73 65 6e 64 6c 69 6e 6b 65 72 20 72 6f 75 74 69 6e 65 29 2e 20 0d 0a 16 53 42 0d 0a 41 ┆he sendlinker routine). SB A┆
0x26f60…26f80 64 61 6d 20 50 72 6f 63 65 73 73 0d 0a 16 73 6f 20 61 64 61 6d 20 70 72 6f 63 65 73 73 0d 0a 49 ┆dam Process so adam process I┆
0x26f80…26fa0 6d 6d 65 64 69 61 74 65 6c 79 20 61 66 74 65 72 20 72 65 73 74 61 72 74 20 6f 66 20 74 68 65 20 ┆mmediately after restart of the ┆
0x26fa0…26fc0 73 79 73 74 65 6d 20 74 68 65 20 70 72 6f 63 65 73 73 20 74 72 65 65 20 6d 61 79 20 6c 6f 6f 6b ┆system the process tree may look┆
0x26fc0…26fe0 20 0a 6c 69 6b 65 20 74 68 65 20 66 69 67 75 72 65 20 62 65 6c 6f 77 2e 20 28 54 68 65 20 66 69 ┆ like the figure below. (The fi┆
0x26fe0…27000 67 75 72 65 20 69 73 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 29 2e 0d 0a 16 73 66 20 31 35 0d 0a ┆gure is not complete). sf 15 ┆
0x27000…27020 53 6e 61 70 73 68 6f 74 20 6f 66 20 70 61 72 74 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 ┆Snapshot of part of the process ┆
0x27020…27040 73 74 72 75 63 74 75 72 65 0d 0a 0d 0a 41 44 41 4d 20 69 73 20 74 68 65 20 72 6f 6f 74 20 6f 66 ┆structure ADAM is the root of┆
0x27040…27060 20 74 68 65 20 64 79 6e 61 6d 69 63 20 74 72 65 65 20 6f 66 20 70 72 6f 63 65 73 73 65 73 2e 20 ┆ the dynamic tree of processes. ┆
0x27060…27080 0d 0a 41 44 41 4d 20 63 72 65 61 74 65 73 20 61 6e 64 20 73 74 61 72 74 73 20 61 20 6e 75 6d 62 ┆ ADAM creates and starts a numb┆
0x27080…270a0 65 72 20 6f 66 20 70 72 6f 63 65 73 73 65 73 20 64 75 72 69 6e 67 20 69 6e 69 74 69 61 6c 69 7a ┆er of processes during initializ┆
0x270a0…270c0 61 74 69 6f 6e 3a 20 0d 0a 8c 85 d0 0a 20 20 31 2e 20 84 4f 50 53 59 53 2c 20 77 68 69 63 68 20 ┆ation: їЁл 1. ёOPSYS, which ┆
0x270c0…270e0 69 6e 74 65 72 70 72 65 74 73 20 63 6f 6d 6d 61 6e 64 73 20 66 72 6f 6d 20 74 68 65 20 63 6f 6e ┆interprets commands from the con┆
0x270e0…27100 73 6f 6c 65 20 61 6e 64 20 63 6f 6e 80 0a 19 85 80 80 76 65 72 74 73 20 74 68 65 20 63 6f 6d 6d ┆sole and conђ Ёђђverts the comm┆
0x27100…27120 61 6e 64 73 20 74 6f 20 41 44 41 4d 2c 20 4c 49 4e 4b 45 52 2c 20 6f 72 20 54 49 4d 45 52 20 6d ┆ands to ADAM, LINKER, or TIMER m┆
0x27120…27140 65 73 73 61 67 65 73 2e 20 0d 0a 0d 0a 20 20 32 2e 20 53 2c 20 77 68 69 63 68 20 69 73 20 74 68 ┆essages. 2. S, which is th┆
0x27140…27160 65 20 72 6f 6f 74 20 6f 66 20 61 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e 20 0d 0a 16 73 66 20 ┆e root of an application. sf ┆
0x27160…27180 31 35 0d 0a 53 6e 61 70 73 68 6f 74 20 6f 66 20 70 72 6f 63 65 73 73 20 73 74 72 75 63 74 75 72 ┆15 Snapshot of process structur┆
0x27180…271a0 65 20 69 66 20 53 20 69 73 20 69 6e 63 6c 75 64 65 64 2e 0d 0a 0d 0a 41 44 41 4d 20 63 6f 6e 74 ┆e if S is included. ADAM cont┆
0x271a0…271c0 61 69 6e 73 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 6f 66 20 74 77 6f 20 63 6c 61 73 73 65 73 ┆ains declarations of two classes┆
0x271c0…271e0 20 6f 66 20 70 72 6f 67 72 61 6d 73 2e 20 54 68 65 20 66 69 72 73 74 20 0a 63 6c 61 73 73 20 68 ┆ of programs. The first class h┆
0x271e0…27200 61 73 20 6e 6f 20 70 61 72 61 6d 65 74 65 72 73 2e 20 54 68 65 20 73 65 63 6f 6e 64 20 68 61 73 ┆as no parameters. The second has┆
0x27200…27220 20 6f 6e 65 20 70 61 72 61 6d 65 74 65 72 2c 20 74 68 65 20 27 73 79 73 74 65 6d 80 0a 76 65 63 ┆ one parameter, the 'systemђ vec┆
0x27220…27240 74 6f 72 27 3a 20 0d 0a 0d 0a 20 20 20 20 20 73 5f 74 79 70 65 30 3d 20 45 58 54 45 52 4e 41 4c ┆tor': s_type0= EXTERNAL┆
0x27240…27260 20 50 52 4f 47 52 41 4d 3b 20 0d 0a 0d 0a 20 20 20 20 20 73 5f 74 79 70 65 31 3d 20 45 58 54 45 ┆ PROGRAM; s_type1= EXTE┆
0x27260…27280 52 4e 41 4c 20 50 52 4f 47 52 41 4d 28 56 41 52 20 73 76 3a 20 73 79 73 74 65 6d 5f 76 65 63 74 ┆RNAL PROGRAM(VAR sv: system_vect┆
0x27280…272a0 6f 72 29 3b 20 0d 0a 0d 0a 53 20 69 73 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 65 70 65 6e 64 ┆or); S is application depend┆
0x272a0…272c0 65 6e 74 2c 20 61 6e 64 20 74 68 65 20 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 73 20 6f ┆ent, and the formal parameters o┆
0x272c0…272e0 66 20 74 68 65 20 61 63 74 75 61 6c 20 53 20 0a 6d 75 73 74 20 63 6f 6e 66 6f 72 6d 20 74 6f 20 ┆f the actual S must conform to ┆
0x272e0…27300 6f 6e 65 20 6f 66 20 74 68 65 73 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 2e 20 0d 0a 0d 0a 41 ┆one of these declarations. A┆
0x27300…27320 44 41 4d 20 63 6f 6e 74 72 6f 6c 73 20 61 20 70 6f 6f 6c 20 6f 66 20 70 72 6f 67 72 61 6d 20 64 ┆DAM controls a pool of program d┆
0x27320…27340 65 63 6c 61 72 61 74 69 6f 6e 73 2c 20 77 68 69 63 68 20 63 6f 6e 66 6f 72 6d 20 74 6f 20 0a 74 ┆eclarations, which conform to t┆
0x27340…27360 68 65 73 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 2e 20 54 68 65 73 65 20 64 65 63 6c 61 72 61 ┆hese declarations. These declara┆
0x27360…27380 74 69 6f 6e 73 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 72 65 71 75 65 73 74 20 63 72 65 ┆tions may be used to request cre┆
0x27380…273a0 61 74 69 6f 6e 20 0a 6f 66 20 6e 65 77 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 73 75 62 2d 74 72 ┆ation of new application sub-tr┆
0x273a0…273c0 65 65 73 20 77 69 74 68 20 41 44 41 4d 20 61 73 20 74 68 65 20 63 6f 6e 74 72 6f 6c 6c 69 6e 67 ┆ees with ADAM as the controlling┆
0x273c0…273e0 20 66 61 74 68 65 72 20 28 73 65 65 20 0a 6c 61 74 65 72 29 2e 20 0d 0a 0d 0a 54 68 65 20 70 61 ┆ father (see later). The pa┆
0x273e0…27400 72 61 6d 65 74 65 72 20 27 73 76 27 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 70 61 73 73 ┆rameter 'sv' may be used to pass┆
0x27400…27420 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 73 79 73 74 65 6d 20 6d 61 69 6c 80 0a 62 6f 78 65 ┆ references to system mailђ boxe┆
0x27420…27440 73 20 6c 69 6b 65 3a 20 0d 0a 0d 0a 61 64 61 6d 20 6d 61 69 6c 62 6f 78 09 09 73 76 28 61 64 61 ┆s like: adam mailbox sv(ada┆
0x27440…27460 6d 6d 62 78 29 20 0d 0a 6f 70 65 72 61 74 6f 72 20 6d 61 69 6c 62 6f 78 09 73 76 28 6f 70 65 72 ┆mmbx) operator mailbox sv(oper┆
0x27460…27480 61 74 6f 72 6d 62 78 29 20 0d 0a 0d 0a 54 68 65 73 65 20 6d 61 69 6c 62 6f 78 65 73 20 6d 69 67 ┆atormbx) These mailboxes mig┆
0x27480…274a0 68 74 20 61 73 20 77 65 6c 6c 20 62 65 20 6f 62 74 61 69 6e 65 64 20 62 79 20 74 68 65 20 72 6f ┆ht as well be obtained by the ro┆
0x274a0…274c0 75 74 69 6e 65 20 73 65 61 72 63 68 5f 80 0a 6d 61 69 6c 62 6f 78 2c 20 62 65 63 61 75 73 65 20 ┆utine search_ђ mailbox, because ┆
0x274c0…274e0 41 44 41 4d 20 6e 61 6d 65 73 20 74 68 65 20 73 61 6d 65 20 6d 61 69 6c 62 6f 78 65 73 20 64 75 ┆ADAM names the same mailboxes du┆
0x274e0…27500 72 69 6e 67 20 69 6e 69 74 69 61 6c 69 7a 61 80 0a 74 69 6f 6e 3a 20 0d 0a 0d 0a 8c 86 80 0a 20 ┆ring initializaђ tion: їєђ ┆
0x27500…27520 20 20 20 bf dc d8 73 79 73 74 65 6d 76 65 63 74 6f 72 be 09 73 65 61 72 63 68 6d 61 69 6c 62 6f ┆ ┐▄пsystemvectorЙ searchmailbo┆
0x27520…27540 78 20 0d 0a 0d 0a 20 20 20 20 61 64 61 6d 6d 62 78 09 09 27 61 64 61 6d 6d 62 78 27 0d 0a 20 20 ┆x adammbx 'adammbx' ┆
0x27540…27560 20 20 6f 70 65 72 61 74 6f 72 6d 62 78 09 27 6f 70 65 72 61 74 6f 72 6d 62 78 27 20 20 20 0d 0a ┆ operatormbx 'operatormbx' ┆
0x27560…27580 20 20 20 20 6c 6f 61 64 65 72 6d 62 78 09 27 6c 6f 61 64 65 72 6d 62 78 27 20 20 20 20 20 0d 0a ┆ loadermbx 'loadermbx' ┆
0x27580…275a0 20 20 20 20 67 6c 6f 62 61 6c 6d 62 78 09 27 67 6c 6f 62 61 6c 6d 62 78 27 20 20 20 20 20 0d 0a ┆ globalmbx 'globalmbx' ┆
0x275a0…275c0 20 20 20 20 6c 6f 61 64 64 72 69 76 65 72 6d 62 78 09 27 6c 6f 61 64 64 72 69 76 65 72 6d 62 78 ┆ loaddrivermbx 'loaddrivermbx┆
0x275c0…275e0 27 20 20 20 20 20 0d 0a 20 20 20 20 70 61 78 6d 62 78 09 09 27 70 61 78 6d 62 78 27 20 20 20 20 ┆' paxmbx 'paxmbx' ┆
0x275e0…27600 20 0d 0a 20 20 20 20 72 65 73 74 61 72 74 6d 62 78 09 27 72 65 73 74 61 72 74 6d 62 78 27 20 0d ┆ restartmbx 'restartmbx' ┆
0x27600…27620 0a 0d 0a 46 75 72 74 68 65 72 6d 6f 72 65 20 74 68 65 73 65 20 6d 61 69 6c 62 6f 78 65 73 20 61 ┆ Furthermore these mailboxes a┆
0x27620…27640 6e 64 20 6e 65 77 20 6d 61 69 6c 62 6f 78 65 73 20 6d 61 79 20 62 65 20 6d 61 6e 69 70 75 6c 61 ┆nd new mailboxes may be manipula┆
0x27640…27660 74 65 64 20 0a 62 79 20 61 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 71 75 65 73 74 73 20 74 6f 20 ┆ted by a number of requests to ┆
0x27660…27680 41 44 41 4d 2e 20 0d 0a 0d 0a 41 44 41 4d 20 6d 61 79 20 62 65 20 72 65 71 75 65 73 74 65 64 20 ┆ADAM. ADAM may be requested ┆
0x27680…276a0 74 6f 20 73 74 6f 70 20 61 6e 64 20 72 65 6d 6f 76 65 20 61 6e 79 20 6f 66 20 74 68 65 20 63 68 ┆to stop and remove any of the ch┆
0x276a0…276c0 69 6c 64 72 65 6e 20 61 6e 64 20 0a 75 6e 6c 69 6e 6b 20 74 68 65 20 70 72 6f 67 72 61 6d 20 62 ┆ildren and unlink the program b┆
0x276c0…276e0 79 20 73 65 6e 64 69 6e 67 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 74 68 65 20 41 44 41 4d 20 ┆y sending a message to the ADAM ┆
0x276e0…27700 6d 61 69 6c 62 6f 78 20 73 70 65 63 69 80 0a 66 79 69 6e 67 20 74 68 65 20 66 75 6e 63 74 69 6f ┆mailbox speciђ fying the functio┆
0x27700…27720 6e 20 74 6f 20 70 65 72 66 6f 72 6d 2e 20 0d 0a 0d 0a 45 78 61 6d 70 6c 65 3a 0d 0a 20 20 31 2e ┆n to perform. Example: 1.┆
0x27720…27740 20 84 41 20 68 75 6d 61 6e 20 6f 70 65 72 61 74 6f 72 20 6d 61 79 20 73 74 6f 70 2c 20 72 65 6d ┆ ёA human operator may stop, rem┆
0x27740…27760 6f 76 65 2c 20 61 6e 64 20 75 6e 6c 69 6e 6b 20 74 68 65 20 77 68 6f 6c 65 20 20 20 20 20 20 0a ┆ove, and unlink the whole ┆
0x27760…27780 19 85 80 80 61 70 70 6c 69 63 61 74 69 6f 6e 20 74 72 65 65 20 28 53 29 20 61 6e 64 20 73 74 61 ┆ Ёђђapplication tree (S) and sta┆
0x27780…277a0 72 74 20 75 70 20 61 20 63 6f 6d 70 6c 65 74 65 6c 79 20 64 69 66 66 65 72 65 6e 74 20 61 70 70 ┆rt up a completely different app┆
0x277a0…277c0 6c 69 63 61 80 80 0a 19 85 80 80 74 69 6f 6e 20 74 72 65 65 2e 20 0d 0a 20 20 32 2e 20 84 54 68 ┆licaђђ Ёђђtion tree. 2. ёTh┆
0x277c0…277e0 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 74 72 65 65 20 6d 61 79 20 73 74 6f 70 2c 20 72 65 6d ┆e application tree may stop, rem┆
0x277e0…27800 6f 76 65 2c 20 61 6e 64 20 75 6e 6c 69 6e 6b 20 4f 50 53 59 53 2e 20 41 20 20 20 20 20 20 0a 19 ┆ove, and unlink OPSYS. A ┆
0x27800…27820 85 80 80 4e 45 57 5f 4f 50 53 59 53 20 6d 61 79 20 62 65 20 63 72 65 61 74 65 64 20 61 6e 64 20 ┆ЁђђNEW_OPSYS may be created and ┆
0x27820…27840 73 74 61 72 74 65 64 20 61 73 20 61 20 63 68 69 6c 64 20 6f 66 20 53 2e 20 0d 0a 0d 0a 4d 65 73 ┆started as a child of S. Mes┆
0x27840…27860 73 61 67 65 73 20 73 69 67 6e 61 6c 6c 65 64 20 74 6f 20 74 68 65 20 41 44 41 4d 20 6d 61 69 6c ┆sages signalled to the ADAM mail┆
0x27860…27880 62 6f 78 20 61 72 65 20 69 6e 74 65 72 70 72 65 74 65 64 20 61 73 20 68 61 76 69 6e 67 20 61 20 ┆box are interpreted as having a ┆
0x27880…278a0 0a 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 6f 66 20 74 79 70 65 3a 20 0d 0a 0d 0a 20 20 20 ┆ message buffer of type: ┆
0x278a0…278c0 20 61 64 61 6d 74 79 70 65 3d 20 52 45 43 4f 52 44 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ adamtype= RECORD ┆
0x278c0…278e0 20 20 20 20 6e 61 6d 65 31 3a 20 61 6c 66 61 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ name1: alfa; ┆
0x278e0…27900 20 20 20 6e 61 6d 65 32 3a 20 61 6c 66 61 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ name2: alfa; ┆
0x27900…27920 20 20 61 75 78 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ aux: integer; ┆
0x27920…27940 45 4e 44 3b 0d 0a 0d 0a 42 65 20 61 77 61 72 65 20 6f 66 20 74 68 65 20 64 69 66 66 65 72 65 6e ┆END; Be aware of the differen┆
0x27940…27960 63 65 20 62 65 74 77 65 65 6e 20 73 65 6e 64 69 6e 67 20 61 20 6c 69 6e 6b 2c 20 63 72 65 61 74 ┆ce between sending a link, creat┆
0x27960…27980 65 2c 20 73 74 61 72 74 2c 20 0a 73 74 6f 70 2c 20 62 72 65 61 6b 2c 20 72 65 6d 6f 76 65 2c 20 ┆e, start, stop, break, remove, ┆
0x27980…279a0 6f 72 20 75 6e 6c 69 6e 6b 20 6d 65 73 73 61 67 65 20 74 6f 20 41 44 41 4d 20 61 6e 64 20 74 68 ┆or unlink message to ADAM and th┆
0x279a0…279c0 65 20 63 61 6c 6c 20 6f 66 20 74 68 65 20 0a 70 72 65 64 65 66 69 6e 65 64 20 72 6f 75 74 69 6e ┆e call of the predefined routin┆
0x279c0…279e0 65 73 20 6c 69 6e 6b 2c 20 63 72 65 61 74 65 2c 20 73 74 61 72 74 2c 20 73 74 6f 70 2c 20 62 72 ┆es link, create, start, stop, br┆
0x279e0…27a00 65 61 6b 2c 20 72 65 6d 6f 76 65 2c 20 75 6e 6c 69 6e 6b 2e 20 0a 54 68 65 20 66 6f 72 6d 65 72 ┆eak, remove, unlink. The former┆
0x27a00…27a20 20 6f 70 65 72 61 74 65 73 20 6f 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 69 6e 20 41 44 41 ┆ operates on declarations in ADA┆
0x27a20…27a40 4d 2c 20 74 68 65 20 6c 61 74 74 65 72 20 6f 6e 20 64 65 63 6c 61 80 72 61 80 0a 74 69 6f 6e 73 ┆M, the latter on declaђraђ tions┆
0x27a40…27a60 20 69 6e 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 70 72 6f 63 65 73 73 2e 20 4d 65 73 73 61 67 65 ┆ in the calling process. Message┆
0x27a60…27a80 73 20 74 6f 2f 66 72 6f 6d 20 41 44 41 4d 20 68 61 76 65 20 74 68 65 20 66 6f 6c 6c 6f 80 0a 77 ┆s to/from ADAM have the folloђ w┆
0x27a80…27aa0 69 6e 67 20 75 73 65 72 20 61 74 74 72 69 62 75 74 65 20 69 6e 74 65 72 70 72 65 74 61 74 69 6f ┆ing user attribute interpretatio┆
0x27aa0…27ac0 6e 3a 20 0d 0a 0d 0a 09 41 44 41 4d 20 6d 65 73 73 61 67 65 09 41 6e 73 77 65 72 20 20 20 20 20 ┆n: ADAM message Answer ┆
0x27ac0…27ae0 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 75 31 09 66 75 6e 63 74 69 6f 6e 09 75 6e 63 68 ┆ u1 function unch┆
0x27ae0…27b00 61 6e 67 65 64 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 75 32 09 6e 6f 74 20 75 73 65 ┆anged u2 not use┆
0x27b00…27b20 64 09 72 65 73 75 6c 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 75 33 09 6e 6f ┆d result u3 no┆
0x27b20…27b40 74 20 75 73 65 64 09 75 6e 63 68 61 6e 67 65 64 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 ┆t used unchanged ┆
0x27b40…27b60 20 75 34 09 6e 6f 74 20 75 73 65 64 09 75 6e 63 68 61 6e 67 65 64 20 0d 0a 0d 0a 41 6c 6c 20 6d ┆ u4 not used unchanged All m┆
0x27b60…27b80 65 73 73 61 67 65 73 20 77 68 69 63 68 20 63 61 6e 6e 6f 74 20 68 6f 6c 64 20 61 20 76 61 72 69 ┆essages which cannot hold a vari┆
0x27b80…27ba0 61 62 6c 65 20 6f 66 20 74 79 70 65 20 61 64 61 6d 74 79 70 65 20 61 72 65 20 0a 72 65 74 75 72 ┆able of type adamtype are retur┆
0x27ba0…27bc0 6e 65 64 20 77 69 74 68 20 72 65 73 75 6c 74 3d 31 2e 20 41 6e 20 75 6e 6b 6e 6f 77 6e 20 66 75 ┆ned with result=1. An unknown fu┆
0x27bc0…27be0 6e 63 74 69 6f 6e 20 69 73 20 72 65 74 75 72 6e 65 64 20 77 69 74 68 20 0a 72 65 73 75 6c 74 3d ┆nction is returned with result=┆
0x27be0…27c00 31 35 2e 20 0d 0a 0d 0a 46 75 6e 63 74 69 6f 6e 3d 31 20 28 6c 69 6e 6b 29 20 0d 0a 16 73 6f 20 ┆15. Function=1 (link) so ┆
0x27c00…27c20 6c 69 6e 6b 20 28 41 44 41 4d 29 0d 0a 0d 0a 49 66 20 41 44 41 4d 20 68 61 73 20 61 20 66 72 65 ┆link (ADAM) If ADAM has a fre┆
0x27c20…27c40 65 20 70 72 6f 67 72 61 6d 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20 65 69 74 68 65 72 20 ┆e program declaration of either ┆
0x27c40…27c60 73 5f 74 79 70 65 30 20 6f 72 20 73 5f 74 79 70 65 31 20 0a 74 68 65 20 70 72 6f 67 72 61 6d 20 ┆s_type0 or s_type1 the program ┆
0x27c60…27c80 27 6e 61 6d 65 31 27 20 69 73 20 6c 69 6e 80 6b 65 64 20 74 6f 20 61 20 66 72 65 65 20 70 72 6f ┆'name1' is linђked to a free pro┆
0x27c80…27ca0 67 72 61 6d 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 0d 0a 0d 0a 8c 8a a8 0a 52 65 73 75 6c 74 73 ┆gram declaration. їіе Results┆
0x27ca0…27cc0 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 6f 6b 20 20 20 20 0d ┆ Meaning 0 ok ┆
0x27cc0…27ce0 0a 20 20 20 20 32 20 20 20 20 84 41 20 70 72 6f 67 72 61 6d 20 69 73 20 61 6c 72 65 61 64 79 20 ┆ 2 ёA program is already ┆
0x27ce0…27d00 6c 69 6e 6b 65 64 20 74 6f 20 61 20 70 72 6f 67 72 61 6d 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 ┆linked to a program declaration ┆
0x27d00…27d20 69 6e 20 0a 19 89 80 80 41 44 41 4d 20 77 69 74 68 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 6e ┆in ЅђђADAM with the external n┆
0x27d20…27d40 61 6d 65 20 27 6e 61 6d 65 31 27 2e 20 20 20 20 20 0d 0a 20 20 20 20 33 20 20 20 20 4e 6f 20 66 ┆ame 'name1'. 3 No f┆
0x27d40…27d60 72 65 65 20 70 72 6f 67 72 61 6d 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 2e 20 0d 0a 20 20 20 20 ┆ree program declarations. ┆
0x27d60…27d80 34 20 20 20 20 84 50 72 6f 67 72 61 6d 20 77 69 74 68 20 6e 61 6d 65 20 27 6e 61 6d 65 31 27 20 ┆4 ёProgram with name 'name1' ┆
0x27d80…27da0 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20 69 6e 20 74 68 65 20 4c 49 4e 4b 45 52 20 0a 19 89 ┆does not exist in the LINKER Ѕ┆
0x27da0…27dc0 80 80 63 61 74 61 6c 6f 67 75 65 2e 20 20 20 20 0d 0a 20 20 20 20 35 20 20 20 20 84 50 72 6f 67 ┆ђђcatalogue. 5 ёProg┆
0x27dc0…27de0 72 61 6d 20 77 69 74 68 20 6e 61 6d 65 20 27 6e 61 6d 65 31 27 20 65 78 69 73 74 73 20 69 6e 20 ┆ram with name 'name1' exists in ┆
0x27de0…27e00 74 68 65 20 4c 49 4e 4b 45 52 20 63 61 74 61 6c 6f 67 75 65 2c 20 0a 19 89 80 80 62 75 74 20 74 ┆the LINKER catalogue, Ѕђђbut t┆
0x27e00…27e20 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 61 72 61 6d 65 74 65 72 73 20 6f 72 20 74 68 65 20 74 ┆he number of parameters or the t┆
0x27e20…27e40 79 70 65 20 6f 66 20 70 61 72 61 6d 65 74 65 72 73 20 64 6f 20 0a 19 89 80 80 6e 6f 74 20 6d 61 ┆ype of parameters do Ѕђђnot ma┆
0x27e40…27e60 74 63 68 2e 20 0d 0a 0d 0a 46 75 6e 63 74 69 6f 6e 3d 32 20 28 63 72 65 61 74 65 29 20 0d 0a 0d ┆tch. Function=2 (create) ┆
0x27e60…27e80 0a 16 73 6f 20 63 72 65 61 74 65 20 28 41 44 41 4d 29 0d 0a 41 6e 20 69 6e 63 61 72 6e 61 74 69 ┆ so create (ADAM) An incarnati┆
0x27e80…27ea0 6f 6e 20 77 69 74 68 20 6e 61 6d 65 20 27 6e 61 6d 65 32 27 20 6f 66 20 74 68 65 20 70 72 6f 67 ┆on with name 'name2' of the prog┆
0x27ea0…27ec0 72 61 6d 20 27 6e 61 6d 65 31 27 20 69 73 20 63 72 65 61 74 65 64 20 0a 77 69 74 68 20 73 69 7a ┆ram 'name1' is created with siz┆
0x27ec0…27ee0 65 20 27 61 75 78 27 2e 20 4d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 69 6e 63 61 72 6e 61 74 69 ┆e 'aux'. More than one incarnati┆
0x27ee0…27f00 6f 6e 20 70 65 72 20 70 72 6f 67 72 61 6d 20 63 61 6e 20 62 65 20 63 72 65 80 0a 61 74 65 64 2e ┆on per program can be creђ ated.┆
0x27f00…27f20 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a 20 20 20 20 30 ┆ Results Meaning 0┆
0x27f20…27f40 20 20 20 20 6f 6b 20 20 20 20 20 0d 0a 20 20 20 20 36 20 20 20 20 84 41 6e 20 69 6e 63 61 72 6e ┆ ok 6 ёAn incarn┆
0x27f40…27f60 61 74 69 6f 6e 20 6f 66 20 70 72 6f 67 72 61 6d 20 27 6e 61 6d 65 31 27 20 77 69 74 68 20 6e 61 ┆ation of program 'name1' with na┆
0x27f60…27f80 6d 65 20 27 6e 61 6d 65 32 27 20 69 73 20 61 6c 80 0a 19 89 80 80 72 65 61 64 79 20 63 72 65 61 ┆me 'name2' is alђ Ѕђђready crea┆
0x27f80…27fa0 74 65 64 2e 20 20 20 20 0d 0a 20 20 20 20 37 20 20 20 20 84 4e 6f 20 70 72 6f 67 72 61 6d 20 77 ┆ted. 7 ёNo program w┆
0x27fa0…27fc0 69 74 68 20 65 78 74 65 72 6e 61 6c 20 6e 61 6d 65 20 27 6e 61 6d 65 31 27 20 69 73 20 6c 69 6e ┆ith external name 'name1' is lin┆
0x27fc0…27fe0 6b 65 64 20 74 6f 20 61 20 70 72 6f 80 0a 19 89 80 80 67 72 61 6d 20 64 65 63 6c 61 72 61 74 69 ┆ked to a proђ Ѕђђgram declarati┆
0x27fe0…28000 6f 6e 20 69 6e 20 41 44 41 4d 2e 20 20 20 20 0d 0a 20 20 20 20 38 20 20 20 20 84 4e 6f 20 73 74 ┆on in ADAM. 8 ёNo st┆
0x28000…28020 6f 72 61 67 65 20 6f 72 20 64 65 6d 61 6e 64 65 64 20 73 69 7a 65 20 28 61 75 78 29 20 69 73 20 ┆orage or demanded size (aux) is ┆
0x28020…28040 74 6f 6f 20 73 6d 61 6c 6c 2e 20 0d 0a 0d 0a 46 75 6e 63 74 69 6f 6e 3d 33 20 28 73 74 61 72 74 ┆too small. Function=3 (start┆
0x28040…28060 29 0d 0a 0d 0a 16 73 6f 20 73 74 61 72 74 20 28 41 44 41 4d 29 0d 0a 54 68 65 20 70 72 6f 63 65 ┆) so start (ADAM) The proce┆
0x28060…28080 73 73 20 77 69 74 68 20 6e 61 6d 65 20 27 6e 61 6d 65 32 27 20 69 73 20 73 74 61 72 74 65 64 20 ┆ss with name 'name2' is started ┆
0x28080…280a0 77 69 74 68 20 70 72 69 6f 72 69 74 79 20 27 61 75 78 27 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 ┆with priority 'aux'. Results┆
0x280a0…280c0 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 6f 6b 20 20 20 20 0d 0a ┆ Meaning 0 ok ┆
0x280c0…280e0 20 20 20 20 39 20 20 20 20 55 6e 6b 6e 6f 77 6e 20 70 72 6f 63 65 73 73 2e 20 0d 0a 0d 0a 46 75 ┆ 9 Unknown process. Fu┆
0x280e0…28100 6e 63 74 69 6f 6e 3d 34 20 28 73 74 6f 70 29 20 0d 0a 0d 0a 16 73 6f 20 73 74 6f 70 20 28 41 44 ┆nction=4 (stop) so stop (AD┆
0x28100…28120 41 4d 29 0d 0a 54 68 65 20 70 72 6f 63 65 73 73 20 77 69 74 68 20 6e 61 6d 65 20 27 6e 61 6d 65 ┆AM) The process with name 'name┆
0x28120…28140 32 27 20 69 73 20 73 74 6f 70 70 65 64 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e ┆2' is stopped. Results Mean┆
0x28140…28160 69 6e 67 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 6f 6b 20 20 20 20 0d 0a 20 20 20 31 30 20 ┆ing 0 ok 10 ┆
0x28160…28180 20 20 20 55 6e 6b 6e 6f 77 6e 20 70 72 6f 63 65 73 73 2e 20 0d 0a 0d 0a 46 75 6e 63 74 69 6f 6e ┆ Unknown process. Function┆
0x28180…281a0 3d 35 20 28 72 65 6d 6f 76 65 29 20 0d 0a 0d 0a 16 73 6f 20 72 65 6d 6f 76 65 20 28 41 44 41 4d ┆=5 (remove) so remove (ADAM┆
0x281a0…281c0 29 0d 0a 54 68 65 20 70 72 6f 63 65 73 73 20 77 69 74 68 20 6e 61 6d 65 20 27 6e 61 6d 65 32 27 ┆) The process with name 'name2'┆
0x281c0…281e0 20 69 73 20 72 65 6d 6f 76 65 64 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e ┆ is removed. Results Meanin┆
0x281e0…28200 67 20 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 6f 6b 20 20 20 0d 0a 20 20 20 31 31 20 20 20 20 ┆g 0 ok 11 ┆
0x28200…28220 55 6e 6b 6e 6f 77 6e 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 2e 20 0d 0a 0d 0a 46 75 6e 63 74 69 ┆Unknown process name. Functi┆
0x28220…28240 6f 6e 3d 36 20 28 75 6e 6c 69 6e 6b 29 20 0d 0a 16 73 6f 20 75 6e 6c 69 6e 6b 20 28 41 44 41 4d ┆on=6 (unlink) so unlink (ADAM┆
0x28240…28260 29 0d 0a 0d 0a 54 68 65 20 6c 69 6e 6b 20 74 6f 20 74 68 65 20 70 72 6f 67 72 61 6d 20 77 69 74 ┆) The link to the program wit┆
0x28260…28280 68 20 65 78 74 65 72 6e 61 6c 20 6e 61 6d 65 20 27 6e 61 6d 65 31 27 20 69 73 20 64 65 6c 65 74 ┆h external name 'name1' is delet┆
0x28280…282a0 65 64 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a 20 20 ┆ed. Results Meaning ┆
0x282a0…282c0 20 20 30 20 20 20 20 6f 6b 20 20 20 0d 0a 20 20 20 31 32 20 20 20 20 84 4e 6f 20 70 72 6f 67 72 ┆ 0 ok 12 ёNo progr┆
0x282c0…282e0 61 6d 20 77 69 74 68 20 65 78 74 65 72 6e 61 6c 20 6e 61 6d 65 20 27 6e 61 6d 65 31 27 20 69 73 ┆am with external name 'name1' is┆
0x282e0…28300 20 6c 69 6e 6b 65 64 20 74 6f 20 61 20 70 72 6f 80 0a 19 89 80 80 67 72 61 6d 20 64 65 63 6c 61 ┆ linked to a proђ Ѕђђgram decla┆
0x28300…28320 72 61 74 69 6f 6e 20 69 6e 20 41 44 41 4d 2e 20 20 20 0d 0a 20 20 20 31 33 20 20 20 20 84 41 44 ┆ration in ADAM. 13 ёAD┆
0x28320…28340 41 4d 20 73 74 69 6c 6c 20 63 6f 6e 74 72 6f 6c 73 20 61 6e 20 69 6e 63 61 72 6e 61 74 69 6f 6e ┆AM still controls an incarnation┆
0x28340…28360 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 20 27 6e 61 6d 65 31 27 2e 20 0d 0a 0d 0a 46 75 6e ┆ of the program 'name1'. Fun┆
0x28360…28380 63 74 69 6f 6e 3d 37 20 28 62 72 65 61 6b 29 0d 0a 16 73 6f 20 62 72 65 61 6b 20 28 41 44 41 4d ┆ction=7 (break) so break (ADAM┆
0x28380…283a0 29 0d 0a 0d 0a 41 20 62 72 65 61 6b 20 6f 70 65 72 61 74 69 6f 6e 20 69 73 20 70 65 72 66 6f 72 ┆) A break operation is perfor┆
0x283a0…283c0 6d 65 64 20 75 70 6f 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 69 74 68 20 6e 61 6d 65 20 27 ┆med upon the process with name '┆
0x283c0…283e0 6e 61 80 6d 65 32 27 20 0a 77 69 74 68 20 65 78 63 65 70 74 69 6f 6e 20 63 6f 64 65 20 27 61 75 ┆naђme2' with exception code 'au┆
0x283e0…28400 78 27 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a 20 20 ┆x'. Results Meaning ┆
0x28400…28420 20 20 30 20 20 20 20 6f 6b 20 20 20 0d 0a 20 20 20 31 34 20 20 20 20 55 6e 6b 6e 6f 77 6e 20 70 ┆ 0 ok 14 Unknown p┆
0x28420…28440 72 6f 63 65 73 73 2e 20 0d 0a 0d 0a 8c 8c e0 0a 46 75 6e 63 74 69 6f 6e 3d 38 20 28 6e 61 6d 65 ┆rocess. їїЯ Function=8 (name┆
0x28440…28460 20 6d 61 69 6c 62 6f 78 29 20 0d 0a 0d 0a 16 73 6f 20 6e 61 6d 65 20 6d 61 69 6c 62 6f 78 20 28 ┆ mailbox) so name mailbox (┆
0x28460…28480 41 44 41 4d 29 0d 0a 41 20 6d 61 69 6c 62 6f 78 20 69 73 20 63 72 65 61 74 65 64 20 61 6e 64 20 ┆ADAM) A mailbox is created and ┆
0x28480…284a0 63 61 74 61 6c 6f 67 75 65 64 20 75 6e 64 65 72 20 74 68 65 20 6e 61 6d 65 20 27 6e 61 6d 65 31 ┆catalogued under the name 'name1┆
0x284a0…284c0 27 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d 0a 20 20 20 ┆'. Results Meaning ┆
0x284c0…284e0 20 30 20 20 20 20 6f 6b 20 20 20 0d 0a 20 20 20 31 36 20 20 20 20 4f 76 65 72 6c 61 70 2e 20 20 ┆ 0 ok 16 Overlap. ┆
0x284e0…28500 20 0d 0a 20 20 20 31 37 20 20 20 20 4e 6f 20 72 65 73 6f 75 72 63 65 73 2e 27 20 0d 0a 0d 0a 46 ┆ 17 No resources.' F┆
0x28500…28520 75 6e 63 74 69 6f 6e 3d 39 20 28 64 65 6c 65 74 65 20 6d 61 69 6c 62 6f 78 29 0d 0a 16 73 6f 20 ┆unction=9 (delete mailbox) so ┆
0x28520…28540 64 65 6c 65 74 65 20 6d 61 69 6c 62 6f 78 20 28 41 44 41 4d 29 0d 0a 0d 0a 54 68 65 20 6d 61 69 ┆delete mailbox (ADAM) The mai┆
0x28540…28560 6c 62 6f 78 20 63 61 74 61 6c 6f 67 75 65 64 20 75 6e 64 65 72 20 74 68 65 20 6e 61 6d 65 20 27 ┆lbox catalogued under the name '┆
0x28560…28580 6e 61 6d 65 31 27 20 69 73 20 6d 61 64 65 20 69 6e 76 69 73 69 62 6c 65 2c 20 69 2e 65 2e 20 0a ┆name1' is made invisible, i.e. ┆
0x28580…285a0 66 75 72 74 68 65 72 20 63 61 6c 6c 73 20 6f 66 20 73 65 61 72 63 68 20 6d 61 69 6c 62 6f 78 20 ┆further calls of search mailbox ┆
0x285a0…285c0 77 69 6c 6c 20 66 61 69 6c 2e 20 0d 0a 0d 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 ┆will fail. Results Meaning ┆
0x285c0…285e0 20 20 20 0d 0a 20 20 20 20 30 20 20 20 20 4f 4b 20 20 20 20 0d 0a 20 20 20 31 38 20 20 20 20 55 ┆ 0 OK 18 U┆
0x285e0…28600 6e 6b 6e 6f 77 6e 20 6d 61 69 6c 62 6f 78 20 0d 0a 0d 0a 46 75 6e 63 74 69 6f 6e 3d 31 30 20 28 ┆nknown mailbox Function=10 (┆
0x28600…28620 72 65 6e 61 6d 65 20 6d 61 69 6c 62 6f 78 29 20 0d 0a 16 73 6f 20 72 65 6e 61 6d 65 20 6d 61 69 ┆rename mailbox) so rename mai┆
0x28620…28640 6c 62 6f 78 20 28 41 44 41 4d 29 0d 0a 0d 0a 54 68 65 20 6d 61 69 6c 62 6f 78 20 63 61 74 61 6c ┆lbox (ADAM) The mailbox catal┆
0x28640…28660 6f 67 75 65 64 20 75 6e 64 65 72 20 74 68 65 20 6e 61 6d 65 20 27 6e 61 6d 65 31 27 20 69 73 20 ┆ogued under the name 'name1' is ┆
0x28660…28680 63 61 74 61 6c 6f 67 75 65 64 20 75 6e 64 65 72 20 0a 74 68 65 20 6e 61 6d 65 20 27 6e 61 6d 65 ┆catalogued under the name 'name┆
0x28680…286a0 32 27 2e 20 54 68 65 20 6e 61 6d 65 20 27 6e 61 6d 65 31 27 20 69 73 20 64 65 6c 65 74 65 64 20 ┆2'. The name 'name1' is deleted ┆
0x286a0…286c0 66 72 6f 6d 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 0a 63 61 74 61 6c 6f 67 75 65 20 6f 66 20 41 ┆from the mailbox catalogue of A┆
0x286c0…286e0 44 41 4d 2e 20 0d 0a 0d 0a 0e 0a 52 65 73 75 6c 74 73 20 20 4d 65 61 6e 69 6e 67 20 20 20 20 0d ┆DAM. Results Meaning ┆
0x286e0…28700 0a 20 20 20 20 30 20 20 20 20 4f 4b 20 20 20 0d 0a 20 20 20 31 39 20 20 20 20 84 4f 76 65 72 6c ┆ 0 OK 19 ёOverl┆
0x28700…28720 61 70 2c 20 61 20 6d 61 69 6c 62 6f 78 20 69 73 20 61 6c 72 65 61 64 79 20 63 61 74 61 6c 6f 67 ┆ap, a mailbox is already catalog┆
0x28720…28740 75 65 64 20 75 6e 64 65 72 20 74 68 65 20 6e 61 6d 65 20 0a 19 89 80 80 27 6e 61 6d 65 32 27 2e ┆ued under the name Ѕђђ'name2'.┆
0x28740…28760 20 20 20 0d 0a 20 20 20 32 30 20 20 20 20 84 4e 6f 20 63 61 74 61 6c 6f 67 75 65 64 20 6d 61 69 ┆ 20 ёNo catalogued mai┆
0x28760…28780 6c 62 6f 78 20 77 69 74 68 20 74 68 65 20 6e 61 6d 65 20 27 6e 61 6d 65 31 27 20 69 73 20 66 6f ┆lbox with the name 'name1' is fo┆
0x28780…287a0 75 6e 64 2e 20 0d 0a 0f 0a 16 53 42 0d 0a 4f 70 65 72 61 74 6f 72 20 50 72 6f 63 65 73 73 0d 0a ┆und. SB Operator Process ┆
0x287a0…287c0 16 73 6f 20 6f 70 65 72 61 74 6f 72 20 70 72 6f 63 65 73 73 0d 0a 52 65 61 64 20 61 6e 64 20 77 ┆ so operator process Read and w┆
0x287c0…287e0 72 69 74 65 20 6d 65 73 73 61 67 65 73 20 73 69 67 6e 61 6c 6c 65 64 20 74 6f 20 74 68 65 20 4f ┆rite messages signalled to the O┆
0x287e0…28800 50 45 52 41 54 4f 52 20 6d 61 69 6c 62 6f 78 20 73 76 28 6f 80 70 65 80 0a 72 61 74 6f 72 6d 62 ┆PERATOR mailbox sv(oђpeђ ratormb┆
0x28800…28820 78 29 20 73 68 6f 75 6c 64 20 61 74 20 6c 65 61 73 74 20 63 6f 6e 74 61 69 6e 20 61 20 6d 65 73 ┆x) should at least contain a mes┆
0x28820…28840 73 61 67 65 20 62 75 66 66 65 72 20 6f 66 20 74 79 70 65 3a 20 0d 0a 0d 0a 62 75 66 66 65 72 74 ┆sage buffer of type: buffert┆
0x28840…28860 79 70 65 3d 20 52 45 43 4f 52 44 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 73 ┆ype= RECORD firs┆
0x28860…28880 74 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 ┆t: integer; last┆
0x28880…288a0 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 3a ┆: integer; next:┆
0x288a0…288c0 20 69 6e 74 65 67 65 72 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 3a 20 ┆ integer; name: ┆
0x288c0…288e0 61 6c 66 61 3b 20 28 2a 20 31 32 20 63 68 61 72 73 20 2a 29 20 0d 0a 20 20 20 20 20 20 20 20 20 ┆alfa; (* 12 chars *) ┆
0x288e0…28900 20 20 20 20 20 64 61 74 61 62 75 66 3a 20 41 52 52 41 59 20 28 31 38 2e 2e 6d 61 78 29 20 6f 66 ┆ databuf: ARRAY (18..max) of┆
0x28900…28920 20 63 68 61 72 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 0d 0a 0d 0a 54 68 65 20 ┆ char END; The ┆
0x28920…28940 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 64 72 69 76 65 ┆message buffer follows the drive┆
0x28940…28960 72 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 2f 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 2e 20 49 74 ┆r conventions /Driver Conv./. It┆
0x28960…28980 20 0a 69 73 20 63 68 65 63 6b 65 64 20 74 68 61 74 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 ┆ is checked that the following ┆
0x28980…289a0 61 73 73 65 72 74 69 6f 6e 73 20 68 6f 6c 64 3a 20 0d 0a 0d 0a 20 20 31 2e 20 31 38 3c 3d 66 69 ┆assertions hold: 1. 18<=fi┆
0x289a0…289c0 72 73 74 20 0d 0a 20 20 32 2e 20 66 69 72 73 74 2d 31 3c 3d 6c 61 73 74 20 0d 0a 20 20 33 2e 20 ┆rst 2. first-1<=last 3. ┆
0x289c0…289e0 64 61 74 61 62 75 66 28 6c 61 73 74 29 20 69 73 20 61 63 63 65 73 73 69 62 6c 65 20 69 6e 20 74 ┆databuf(last) is accessible in t┆
0x289e0…28a00 68 65 20 62 75 66 66 65 72 20 0d 0a 0d 0a 4f 50 45 52 41 54 4f 52 20 69 64 65 6e 74 69 66 69 65 ┆he buffer OPERATOR identifie┆
0x28a00…28a20 73 20 74 68 65 20 bf dc d8 69 6e 70 75 74 be 20 61 6e 64 20 bf dc d8 6f 75 74 70 75 74 be 20 6d ┆s the ┐▄пinputЙ and ┐▄пoutputЙ m┆
0x28a20…28a40 65 73 73 61 67 65 73 20 62 79 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 0a 27 6e 61 6d 65 27 ┆essages by the parameter 'name'┆
0x28a40…28a60 2e 20 0d 0a 0d 0a 53 65 63 74 69 6f 6e 20 33 2e 37 20 64 65 73 63 72 69 62 65 73 20 61 20 73 65 ┆. Section 3.7 describes a se┆
0x28a60…28a80 74 20 6f 66 20 72 6f 75 74 69 6e 65 73 20 66 6f 72 20 4f 50 45 52 41 54 4f 52 20 63 6f 6d 6d 75 ┆t of routines for OPERATOR commu┆
0x28a80…28aa0 6e 69 80 63 61 74 69 6f 6e 2e 20 0d 0a 0d 0a 4d 65 73 73 61 67 65 73 20 74 6f 20 4f 50 45 52 41 ┆niђcation. Messages to OPERA┆
0x28aa0…28ac0 54 4f 52 20 0d 0a 0d 0a 20 20 2d 20 63 6f 6e 74 72 6f 6c 3a 20 09 75 31 3d 30 20 0d 0a 20 20 2d ┆TOR - control: u1=0 -┆
0x28ac0…28ae0 20 72 65 61 64 3a 20 09 09 75 31 3d 31 20 0d 0a 0d 0a 54 68 65 20 6d 65 73 73 61 67 65 20 69 73 ┆ read: u1=1 The message is┆
0x28ae0…28b00 20 71 75 65 75 65 64 20 75 6e 74 69 6c 20 69 74 20 69 73 20 22 61 63 74 69 76 61 74 65 64 22 20 ┆ queued until it is "activated" ┆
0x28b00…28b20 62 79 20 74 68 65 20 68 75 6d 61 6e 20 6f 70 65 72 61 74 6f 72 2e 20 0d 0a 0d 0a 8c 8b a0 0a 20 ┆by the human operator. їІа ┆
0x28b20…28b40 20 2d 20 77 72 69 74 65 3a 20 09 09 75 31 3d 32 20 0d 0a 0d 0a 54 68 65 20 6d 65 73 73 61 67 65 ┆ - write: u1=2 The message┆
0x28b40…28b60 20 69 73 20 70 72 69 6e 74 65 64 20 61 73 20 73 6f 6f 6e 20 61 73 20 70 6f 73 73 69 62 6c 65 2e ┆ is printed as soon as possible.┆
0x28b60…28b80 20 0d 0a 0d 0a 41 6e 73 77 65 72 73 20 66 72 6f 6d 20 4f 50 45 52 41 54 4f 52 20 0d 0a 0d 0a 41 ┆ Answers from OPERATOR A┆
0x28b80…28ba0 6c 6c 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 2c 20 77 68 65 6e 20 74 ┆ll messages are returned, when t┆
0x28ba0…28bc0 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 61 63 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 70 ┆he appropriate action has been p┆
0x28bc0…28be0 65 72 80 0a 66 6f 72 6d 65 64 2e 20 0d 0a 0d 0a 20 20 20 20 75 31 2c 20 75 33 2c 20 75 34 20 61 ┆erђ formed. u1, u3, u4 a┆
0x28be0…28c00 72 65 20 75 6e 63 68 61 6e 67 65 64 20 0d 0a 20 20 20 20 75 32 20 3d 20 72 65 73 75 6c 74 3a 09 ┆re unchanged u2 = result: ┆
0x28c00…28c20 30 3d 6f 6b 20 0d 0a 09 09 31 3d 6e 6f 74 20 70 72 6f 63 65 73 73 65 64 20 0d 0a 09 09 34 3d 75 ┆0=ok 1=not processed 4=u┆
0x28c20…28c40 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 20 0d 0a 0d 0a 22 6e 65 78 74 22 20 69 73 20 75 6e 64 65 ┆nintelligible "next" is unde┆
0x28c40…28c60 66 69 6e 65 64 2c 20 75 6e 6c 65 73 73 20 72 65 73 75 6c 74 3d 6f 6b 2e 20 0d 0a 16 61 70 0d 0a ┆fined, unless result=ok. ap ┆
0x28c60…28c80 16 53 61 0d 0a 52 65 66 65 72 65 6e 63 65 73 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 ┆ Sa References -L ┆
0x28c80…28ca0 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 1e 2d ff ff ┆A1@ - ┆
0x28ca0…28cc0 ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 ┆ -L A1@ ┆
0x28cc0…28ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 14 1e 2d ff ff ff ff ff ff ff ff ┆ - ┆
0x28ce0…28d00 ff ff ff ff 04 0a 2f 41 4c 47 4f 4c 2f 09 50 2e 20 4e 61 75 72 20 28 45 64 2e 29 0d 0a 09 84 52 ┆ /ALGOL/ P. Naur (Ed.) ёR┆
0x28d00…28d20 65 76 69 73 65 64 20 52 65 70 6f 72 74 20 6f 6e 20 74 68 65 20 41 6c 67 6f 72 69 74 68 6d 69 63 ┆evised Report on the Algorithmic┆
0x28d20…28d40 20 4c 61 6e 67 75 61 67 65 20 0a 19 93 80 80 41 4c 47 4f 4c 20 36 30 0d 0a 09 52 65 67 6e 65 63 ┆ Language ЊђђALGOL 60 Regnec┆
0x28d40…28d60 65 6e 74 72 61 6c 65 6e 0d 0a 09 43 6f 70 65 6e 68 61 67 65 6e 2c 20 31 39 36 32 0d 0a 0d 0a 2f ┆entralen Copenhagen, 1962 /┆
0x28d60…28d80 44 72 69 76 65 72 20 43 6f 6e 76 2e 2f 09 52 43 53 4c 20 4e 6f 2e 20 33 31 2d 44 36 35 32 3a 20 ┆Driver Conv./ RCSL No. 31-D652: ┆
0x28d80…28da0 0d 0a 09 50 41 53 43 41 4c 38 30 2c 20 44 72 69 76 65 72 20 43 6f 6e 76 65 6e 74 69 6f 6e 73 20 ┆ PASCAL80, Driver Conventions ┆
0x28da0…28dc0 0d 0a 0d 0a 2f 44 53 41 2d 49 4d 43 2f 09 52 43 53 4c 20 4e 6f 2e 20 34 32 2d 49 31 39 38 33 0d ┆ /DSA-IMC/ RCSL No. 42-I1983 ┆
0x28dc0…28de0 0a 09 44 53 41 20 49 6e 74 65 72 20 4d 6f 64 75 6c 65 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e ┆ DSA Inter Module Communication┆
0x28de0…28e00 0d 0a 09 46 75 6e 63 74 69 6f 6e 61 6c 20 44 65 73 63 72 69 70 74 69 6f 6e 0d 0a 0d 0a 2f 4d 45 ┆ Functional Description /ME┆
0x28e00…28e20 4d 32 30 35 2f 09 52 43 53 4c 20 4e 6f 2e 20 35 32 2d 41 41 31 31 38 32 3a 0d 0a 09 4d 45 4d 32 ┆M205/ RCSL No. 52-AA1182: MEM2┆
0x28e20…28e40 30 35 2c 20 47 65 6e 65 72 61 6c 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 0d 0a 0d 0a 2f 4d 55 53 ┆05, General Information /MUS┆
0x28e40…28e60 49 4c 2f 09 52 43 53 4c 20 4e 6f 2e 20 34 34 2d 52 54 37 34 30 0d 0a 09 4d 55 53 49 4c 0d 0a 0d ┆IL/ RCSL No. 44-RT740 MUSIL ┆
0x28e60…28e80 0a 2f 4f 70 65 72 61 74 69 6e 67 20 47 75 69 64 65 2f 20 20 50 4e 3a 20 39 39 30 30 30 37 37 31 ┆ /Operating Guide/ PN: 99000771┆
0x28e80…28ea0 0d 0a 09 84 52 43 33 35 30 32 2f 32 2c 20 4f 70 65 72 61 74 69 6e 67 20 47 75 69 64 65 20 0d 0a ┆ ёRC3502/2, Operating Guide ┆
0x28ea0…28ec0 0d 0a 2f 52 43 33 35 30 32 20 4c 6f 61 64 65 72 2f 09 52 43 53 4c 20 4e 6f 2e 20 35 32 2d 41 41 ┆ /RC3502 Loader/ RCSL No. 52-AA┆
0x28ec0…28ee0 31 31 33 37 3a 0d 0a 09 52 43 33 35 30 32 20 4c 4f 41 44 45 52 2c 20 52 65 66 65 72 65 6e 63 65 ┆1137: RC3502 LOADER, Reference┆
0x28ee0…28f00 20 4d 61 6e 75 61 6c 20 0d 0a 0d 0a 2f 52 43 33 35 30 32 20 52 65 66 2e 20 4d 61 6e 2f 09 52 43 ┆ Manual /RC3502 Ref. Man/ RC┆
0x28f00…28f20 53 4c 20 4e 6f 2e 20 35 32 2d 41 41 31 31 39 32 3a 20 0d 0a 09 52 43 33 35 30 32 2f 32 2c 20 52 ┆SL No. 52-AA1192: RC3502/2, R┆
0x28f20…28f40 65 66 65 72 65 6e 63 65 20 4d 61 6e 75 61 6c 20 0d 0a 0d 0a 2f 52 54 50 2f 09 50 4e 3a 20 39 39 ┆eference Manual /RTP/ PN: 99┆
0x28f40…28f60 31 31 30 31 34 31 3a 20 20 0d 0a 09 84 52 65 66 65 72 65 6e 63 65 20 4d 61 6e 75 61 6c 20 66 6f ┆110141: ёReference Manual fo┆
0x28f60…28f80 72 20 74 68 65 20 50 72 6f 67 72 61 6d 6d 69 6e 67 20 4c 61 6e 67 75 61 67 65 20 0a 19 93 80 80 ┆r the Programming Language Њђђ┆
0x28f80…28fa0 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 0d 0a 0c 89 80 0a 20 20 20 0d 0a 16 53 61 0d 0a ┆Real-Time Pascal Ѕђ Sa ┆
0x28fa0…28fc0 55 73 65 20 6f 66 20 74 68 65 20 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 20 43 6f 6d 70 ┆Use of the Real-Time Pascal Comp┆
0x28fc0…28fe0 69 6c 65 72 0d 0a 0d 0a 0d 0a 16 53 42 0d 0a 43 61 6c 6c 20 6f 66 20 74 68 65 20 43 6f 6d 70 69 ┆iler SB Call of the Compi┆
0x28fe0…29000 6c 65 72 0d 0a 16 73 6f 20 63 61 6c 6c 20 6f 66 20 63 6f 6d 70 69 6c 65 72 0d 0a 0d 0a 54 68 65 ┆ler so call of compiler The┆
0x29000…29020 20 52 43 38 30 30 30 20 63 61 6c 6c 69 6e 67 20 73 79 6e 74 61 78 20 69 73 3a 0d 0a 0d 0a 7b 3c ┆ RC8000 calling syntax is: {<┆
0x29020…29040 62 69 6e 20 66 69 6c 65 3e 3d 7d 20 20 52 54 50 33 35 30 32 20 7b 7b 3c 73 3e 3c 6f 70 74 69 6f ┆bin file>=} RTP3502 {{<s><optio┆
0x29040…29060 6e 3e 7d 20 7b 3c 73 3e 3c 63 6f 6e 74 65 78 74 3e 7d 7d 2a 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆n>} {<s><context>}}* ┆
0x29060…29080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 3c 73 3e 3c 6f 70 74 69 6f 6e 3e 7d 2a 20 20 7b 3c ┆ {<s><option>}* {<┆
0x29080…290a0 73 3e 3c 73 6f 75 72 63 65 3e 7d 0d 0a 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 3c 73 6f 75 72 63 65 ┆s><source>} - ё<source┆
0x290a0…290c0 3e 20 69 73 20 61 20 74 65 78 74 20 66 69 6c 65 20 64 65 66 69 6e 69 6e 67 20 61 20 70 72 6f 67 ┆> is a text file defining a prog┆
0x290c0…290e0 72 61 6d 2c 20 61 20 72 6f 75 74 69 6e 65 20 6f 72 20 61 20 6c 69 62 72 61 72 79 20 0a 19 85 80 ┆ram, a routine or a library Ёђ┆
0x290e0…29100 80 6f 66 20 72 6f 75 74 69 6e 65 73 2f 70 72 6f 67 72 61 6d 73 20 28 63 66 2e 20 41 70 70 65 6e ┆ђof routines/programs (cf. Appen┆
0x29100…29120 64 69 78 20 42 2e 32 29 2e 20 49 66 20 6e 6f 20 73 6f 75 72 63 65 20 69 73 20 73 70 65 63 69 80 ┆dix B.2). If no source is speciђ┆
0x29120…29140 0a 19 85 80 80 66 69 65 64 2c 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 72 65 61 64 73 20 74 68 ┆ Ёђђfied, the compiler reads th┆
0x29140…29160 65 20 73 6f 75 72 63 65 20 66 72 6f 6d 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 2e 20 0d 0a 0d ┆e source from current input. ┆
0x29160…29180 0a 0d 0a 20 20 20 2d 20 84 3c 63 6f 6e 74 65 78 74 3e 20 69 73 20 61 20 74 65 78 74 20 66 69 6c ┆ - ё<context> is a text fil┆
0x29180…291a0 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 6f 66 20 74 79 70 ┆e containing declarations of typ┆
0x291a0…291c0 65 73 2c 20 0a 19 85 80 80 63 6f 6e 73 74 61 6e 74 73 2c 20 61 6e 64 20 65 78 74 65 72 6e 61 6c ┆es, Ёђђconstants, and external┆
0x291c0…291e0 20 72 6f 75 74 69 6e 65 73 2e 20 43 6f 6e 74 65 78 74 73 20 63 61 6e 20 62 65 20 75 73 65 64 20 ┆ routines. Contexts can be used ┆
0x291e0…29200 66 6f 72 20 64 65 80 0a 19 85 80 80 66 69 6e 69 74 69 6f 6e 20 6f 66 20 6c 69 62 72 61 72 69 65 ┆for deђ Ёђђfinition of librarie┆
0x29200…29220 73 2e 20 54 68 65 20 73 79 6e 74 61 78 20 69 73 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 61 70 ┆s. The syntax is described in ap┆
0x29220…29240 70 65 6e 64 69 78 20 42 2e 32 2e 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 3c 62 69 6e 20 66 69 6c ┆pendix B.2. - ё<bin fil┆
0x29240…29260 65 3e 20 69 73 20 61 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 64 65 73 63 72 69 62 69 ┆e> is a file descriptor describi┆
0x29260…29280 6e 67 20 74 68 65 20 62 61 63 6b 69 6e 67 20 73 74 6f 72 61 67 65 20 0a 19 85 80 80 61 72 65 61 ┆ng the backing storage Ёђђarea┆
0x29280…292a0 20 77 68 65 72 65 20 74 68 65 20 6f 62 6a 65 63 74 20 63 6f 64 65 20 69 73 20 73 74 6f 72 65 64 ┆ where the object code is stored┆
0x292a0…292c0 2e 20 0d 0a 0d 0a 49 66 20 22 3c 62 69 6e 20 66 69 6c 65 3e 3d 22 20 69 73 20 6f 6d 69 74 74 65 ┆. If "<bin file>=" is omitte┆
0x292c0…292e0 64 2c 20 22 70 61 73 73 36 63 6f 64 65 3d 22 20 69 73 20 61 73 73 75 6d 65 64 2e 20 0d 0a 0d 0a ┆d, "pass6code=" is assumed. ┆
0x292e0…29300 0d 0a 16 73 6f 20 6f 70 74 69 6f 6e 73 2c 20 63 6f 6d 70 69 6c 65 72 20 63 61 6c 6c 0d 0a 20 20 ┆ so options, compiler call ┆
0x29300…29320 20 2d 20 84 3c 6f 70 74 69 6f 6e 3e 3a 3a 3d 09 20 20 bf dc d8 63 6f 64 65 6c 69 73 74 be 2e 3c ┆ - ё<option>::= ┐▄пcodelistЙ.<┆
0x29320…29340 79 65 73 20 6f 72 20 6e 6f 3e 20 0d 0a 09 7c 20 bf dc d8 63 6f 64 65 73 69 7a 65 be 2e 3c 73 69 ┆yes or no> | ┐▄пcodesizeЙ.<si┆
0x29340…29360 7a 65 3e 0d 0a 09 7c 20 bf dc d8 65 78 63 65 70 74 69 6f 6e be 2e 3c 61 70 70 65 74 69 74 65 3e ┆ze> | ┐▄пexceptionЙ.<appetite>┆
0x29360…29380 20 0d 0a 09 7c 20 bf dc d8 6c 69 73 74 be 2e 3c 79 65 73 20 6f 72 20 6e 6f 20 6f 72 20 6e 61 6d ┆ | ┐▄пlistЙ.<yes or no or nam┆
0x29380…293a0 65 3e 20 0d 0a 09 7c 20 bf dc d8 6d 65 61 73 75 72 65 be 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 20 ┆e> | ┐▄пmeasureЙ.<yes or no> ┆
0x293a0…293c0 0d 0a 09 7c 20 bf dc d8 70 61 67 65 6c 65 6e 67 74 68 be 2e 3c 6c 65 6e 67 74 68 3e 0d 0a 09 7c ┆ | ┐▄пpagelengthЙ.<length> |┆
0x293c0…293e0 20 bf dc d8 70 61 67 65 77 69 64 74 68 be 2e 3c 77 69 64 74 68 3e 0d 0a 19 85 80 80 09 7c 20 bf ┆ ┐▄пpagewidthЙ.<width> Ёђђ | ┐┆
0x293e0…29400 dc d8 70 72 65 73 65 72 76 65 be 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 20 0d 0a 19 85 80 80 09 7c ┆▄пpreserveЙ.<yes or no> Ёђђ |┆
0x29400…29420 20 bf dc d8 73 65 74 be 2e 73 77 69 74 63 68 6e 61 6d 65 2e 73 77 69 74 63 68 76 61 6c 75 65 20 ┆ ┐▄пsetЙ.switchname.switchvalue ┆
0x29420…29440 0d 0a 09 7c 20 bf dc d8 73 68 6f 72 74 be 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 20 0d 0a 09 7c 20 ┆ | ┐▄пshortЙ.<yes or no> | ┆
0x29440…29460 bf dc d8 73 70 61 63 69 6e 67 be 2e 3c 69 6e 74 65 72 76 61 6c 3e 20 0d 0a 09 7c 20 bf dc d8 73 ┆┐▄пspacingЙ.<interval> | ┐▄пs┆
0x29460…29480 74 61 63 6b be 2e 3c 61 70 70 65 74 69 74 65 3e 20 0d 0a 20 20 20 20 20 20 20 09 7c 20 bf dc d8 ┆tackЙ.<appetite> | ┐▄п┆
0x29480…294a0 73 74 6f 70 be 2e 3c 70 61 73 73 20 6e 72 3e 20 0d 0a 09 7c 20 bf dc d8 73 75 72 76 65 79 be 2e ┆stopЙ.<pass nr> | ┐▄пsurveyЙ.┆
0x294a0…294c0 3c 79 65 73 20 6f 72 20 6e 6f 20 6f 72 20 70 61 73 73 3e 20 0d 0a 09 7c 20 bf dc d8 74 69 74 6c ┆<yes or no or pass> | ┐▄пtitl┆
0x294c0…294e0 65 be 2e 3c 74 69 74 6c 65 5f 6e 61 6d 65 3e 0d 0a 09 7c 20 bf dc d8 76 65 72 73 69 6f 6e be 2e ┆eЙ.<title_name> | ┐▄пversionЙ.┆
0x294e0…29500 3c 76 65 72 73 69 6f 6e 3e 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 3c 73 69 7a 65 3e 20 69 73 20 61 ┆<version> - ё<size> is a┆
0x29500…29520 6e 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 65 67 65 72 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 ┆n unsigned integer in the range ┆
0x29520…29540 30 2d 36 35 35 33 35 2e 20 54 68 65 20 73 69 7a 65 20 0a 19 85 80 80 64 65 6e 6f 74 65 73 20 74 ┆0-65535. The size Ёђђdenotes t┆
0x29540…29560 68 65 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 74 6f 20 62 65 ┆he maximum number of bytes to be┆
0x29560…29580 20 67 65 6e 65 72 61 74 65 64 20 6f 6e 20 6f 6e 65 20 0a 19 85 80 80 22 70 72 6f 67 72 61 6d 20 ┆ generated on one Ёђђ"program ┆
0x29580…295a0 63 6f 64 65 20 70 61 67 65 22 2e 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 3c 79 65 73 20 6f 72 20 ┆code page". - ё<yes or ┆
0x295a0…295c0 6e 6f 3e 3a 3a 3d 20 79 65 73 20 7c 20 6e 6f 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 3c 79 65 73 20 ┆no>::= yes | no - <yes ┆
0x295c0…295e0 6f 72 20 6e 6f 20 6f 72 20 6e 61 6d 65 3e 3a 3a 3d 20 79 65 73 20 7c 20 6e 6f 20 7c 20 3c 6e 61 ┆or no or name>::= yes | no | <na┆
0x295e0…29600 6d 65 3e 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 6c 69 73 74 2e 79 65 73 20 6d 65 61 6e 73 20 74 75 ┆me> - ёlist.yes means tu┆
0x29600…29620 72 6e 20 6f 6e 20 6c 69 73 74 69 6e 67 20 6f 66 20 69 6e 70 75 74 20 6f 6e 20 63 75 72 72 65 6e ┆rn on listing of input on curren┆
0x29620…29640 74 20 6f 75 74 70 75 74 2e 20 0d 0a 20 20 20 2d 20 6c 69 73 74 2e 6e 6f 20 6d 65 61 6e 73 20 74 ┆t output. - list.no means t┆
0x29640…29660 75 72 6e 20 6f 66 66 20 6c 69 73 74 69 6e 67 20 6f 66 20 69 6e 70 75 74 20 28 64 65 66 61 75 6c ┆urn off listing of input (defaul┆
0x29660…29680 74 29 0d 0a 20 20 20 2d 20 84 6c 69 73 74 2e 3c 6e 61 6d 65 3e 20 6d 65 61 6e 73 20 74 75 72 6e ┆t) - ёlist.<name> means turn┆
0x29680…296a0 20 6f 6e 20 6c 69 73 74 69 6e 67 20 6f 66 20 69 6e 70 75 74 20 6f 6e 20 66 69 6c 65 20 77 69 74 ┆ on listing of input on file wit┆
0x296a0…296c0 68 20 6e 61 6d 65 20 0a 19 85 80 80 3c 6e 61 6d 65 3e 0d 0a 0d 0a 20 20 20 20 20 84 4c 69 73 74 ┆h name Ёђђ<name> ёList┆
0x296c0…296e0 69 6e 67 20 6f 66 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 ┆ing of the standard environments┆
0x296e0…29700 20 69 73 20 61 6c 77 61 79 73 20 73 75 70 70 72 65 73 73 65 64 2c 20 65 76 65 6e 20 0a 19 85 80 ┆ is always suppressed, even Ёђ┆
0x29700…29720 80 69 66 20 6c 69 73 74 2e 79 65 73 20 69 73 20 73 70 65 63 69 66 69 65 64 2e 0d 0a 0d 0a 0d 0a ┆ђif list.yes is specified. ┆
0x29720…29740 20 20 20 2d 20 84 3c 74 69 74 6c 65 5f 6e 61 6d 65 3e 20 77 69 6c 6c 20 61 70 70 65 61 72 20 69 ┆ - ё<title_name> will appear i┆
0x29740…29760 6e 20 74 68 65 20 70 61 67 65 20 68 65 61 64 69 6e 67 73 2c 20 69 66 20 6c 69 73 74 69 6e 67 20 ┆n the page headings, if listing ┆
0x29760…29780 69 73 20 0a 19 85 80 80 74 75 72 6e 65 64 20 6f 6e 2e 20 43 66 2e 20 74 68 65 20 bf dc d8 24 54 ┆is Ёђђturned on. Cf. the ┐▄п$T┆
0x29780…297a0 49 54 4c 45 be 20 64 69 72 65 63 74 69 76 65 2e 0d 0a 16 73 6f 20 54 49 54 4c 45 0d 0a 0d 0a 0d ┆ITLEЙ directive. so TITLE ┆
0x297a0…297c0 0a 20 20 20 2d 20 84 3c 6c 65 6e 67 74 68 3e 20 61 6e 64 20 3c 77 69 64 74 68 3e 20 69 6e 64 69 ┆ - ё<length> and <width> indi┆
0x297c0…297e0 63 61 74 65 20 74 68 65 20 6c 65 6e 67 74 68 2c 20 69 6e 20 6c 69 6e 65 73 2c 20 61 6e 64 20 74 ┆cate the length, in lines, and t┆
0x297e0…29800 68 65 20 0a 19 85 80 80 77 69 64 74 68 2c 20 69 6e 20 63 68 61 72 61 63 74 65 72 73 2c 20 6f 66 ┆he Ёђђwidth, in characters, of┆
0x29800…29820 20 74 68 65 20 70 61 67 65 73 20 6f 66 20 74 68 65 20 6c 69 73 74 20 66 69 6c 65 2c 20 69 66 20 ┆ the pages of the list file, if ┆
0x29820…29840 6c 69 73 74 69 6e 67 20 69 73 20 0a 19 85 80 80 74 75 72 6e 65 64 20 6f 6e 2e 20 43 66 2e 20 74 ┆listing is Ёђђturned on. Cf. t┆
0x29840…29860 68 65 20 24 50 41 47 45 4c 45 4e 47 54 48 20 61 6e 64 20 74 68 65 20 24 50 41 47 45 57 49 44 54 ┆he $PAGELENGTH and the $PAGEWIDT┆
0x29860…29880 48 20 64 69 80 72 65 63 80 74 69 80 0a 19 85 80 80 76 65 73 2e 0d 0a 16 73 6f 20 24 50 41 47 45 ┆H diђrecђtiђ Ёђђves. so $PAGE┆
0x29880…298a0 4c 45 4e 47 54 48 0d 0a 16 53 4f 20 50 41 47 45 4c 45 4e 47 54 48 0d 0a 16 53 4f 20 24 50 41 47 ┆LENGTH SO PAGELENGTH SO $PAG┆
0x298a0…298c0 45 57 49 44 54 48 0d 0a 16 53 4f 20 50 41 47 45 57 49 44 54 48 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 ┆EWIDTH SO PAGEWIDTH - ┆
0x298c0…298e0 84 6d 65 61 73 75 72 65 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 3a 20 63 6f 6e 73 75 6c 74 20 61 70 ┆ёmeasure.<yes or no>: consult ap┆
0x298e0…29900 70 65 6e 64 69 78 20 43 3a 20 50 65 72 66 6f 72 6d 61 6e 63 65 20 4d 65 80 61 73 75 72 65 80 0a ┆pendix C: Performance Meђasureђ ┆
0x29900…29920 19 85 80 80 6d 65 6e 74 2e 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 73 68 6f 72 74 2e 79 65 73 20 ┆ Ёђђment. - ёshort.yes ┆
0x29920…29940 63 6f 6e 74 72 6f 6c 73 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 74 6f 20 75 73 65 20 73 68 6f ┆controls the compiler to use sho┆
0x29940…29960 72 74 20 65 6e 63 6f 64 65 64 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 20 0a 19 85 80 80 69 6e 20 ┆rt encoded instructions Ёђђin ┆
0x29960…29980 74 68 65 20 67 65 6e 65 72 61 74 69 6f 6e 20 6f 66 20 63 6f 64 65 20 77 68 65 6e 65 76 65 72 20 ┆the generation of code whenever ┆
0x29980…299a0 70 6f 73 73 69 62 6c 65 2e 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 73 74 61 63 6b 2e 3c 61 70 70 ┆possible. - ёstack.<app┆
0x299a0…299c0 65 74 69 74 65 3e 20 28 69 6e 20 77 6f 72 64 73 29 0d 0a 20 20 20 20 20 84 54 68 69 73 20 6f 70 ┆etite> (in words) ёThis op┆
0x299c0…299e0 74 69 6f 6e 20 6f 76 65 72 72 69 64 65 73 20 74 68 65 20 64 65 66 61 75 6c 74 20 73 74 61 63 6b ┆tion overrides the default stack┆
0x299e0…29a00 20 73 69 7a 65 2c 20 77 68 69 63 68 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 0a 19 85 80 80 65 ┆ size, which the compiler Ёђђe┆
0x29a00…29a20 73 74 69 6d 61 74 65 73 20 61 6e 64 20 6f 75 74 70 75 74 73 20 69 6e 20 74 68 65 20 67 65 80 6e ┆stimates and outputs in the geђn┆
0x29a20…29a40 65 72 61 74 65 64 20 63 6f 64 65 20 28 61 6c 73 6f 20 6b 6e 6f 77 6e 20 61 73 20 64 65 80 0a 19 ┆erated code (also known as deђ ┆
0x29a40…29a60 85 80 80 66 61 75 6c 74 20 63 72 65 61 74 65 20 73 69 7a 65 29 2e 20 54 68 65 20 64 65 66 61 75 ┆Ёђђfault create size). The defau┆
0x29a60…29a80 6c 74 20 73 74 61 63 6b 20 73 69 7a 65 20 69 73 20 75 73 65 64 20 77 68 65 6e 20 74 68 65 20 63 ┆lt stack size is used when the c┆
0x29a80…29aa0 72 65 61 80 0a 19 85 80 80 74 65 20 72 6f 75 74 69 6e 65 20 69 73 20 63 61 6c 6c 65 64 20 77 69 ┆reaђ Ёђђte routine is called wi┆
0x29aa0…29ac0 74 68 20 73 69 7a 65 3d 30 2e 20 0d 0a 16 73 6f 20 63 72 65 61 74 65 20 73 69 7a 65 2c 20 64 65 ┆th size=0. so create size, de┆
0x29ac0…29ae0 66 61 75 6c 74 0d 0a 0d 0a 20 20 20 20 20 84 54 68 65 20 22 73 69 7a 65 22 20 6f 66 20 61 20 70 ┆fault ёThe "size" of a p┆
0x29ae0…29b00 72 6f 67 72 61 6d 20 69 6e 63 61 72 6e 61 74 69 6f 6e 20 6d 61 79 20 62 65 20 63 61 6c 63 75 6c ┆rogram incarnation may be calcul┆
0x29b00…29b20 61 74 65 64 20 69 6e 20 74 68 65 20 0a 19 85 80 80 66 6f 6c 6c 6f 77 69 6e 67 20 77 61 79 3a 20 ┆ated in the Ёђђfollowing way: ┆
0x29b20…29b40 0d 0a 0d 0a 20 20 20 20 20 73 69 7a 65 3a 3d 20 64 79 6e 61 6d 69 63 20 61 70 70 65 74 69 74 65 ┆ size:= dynamic appetite┆
0x29b40…29b60 20 0d 0a 20 20 20 20 20 20 20 20 20 20 2b 20 65 78 63 65 70 74 69 6f 6e 20 63 6f 64 65 20 61 70 ┆ + exception code ap┆
0x29b60…29b80 70 65 74 69 74 65 20 0d 0a 20 20 20 20 20 20 20 20 20 20 2b 20 31 30 20 28 66 6f 72 20 64 75 6d ┆petite + 10 (for dum┆
0x29b80…29ba0 70 20 6f 66 20 74 68 65 20 72 65 67 69 73 74 65 72 20 73 74 61 63 6b 29 20 0d 0a 0d 0a 8c 92 b0 ┆p of the register stack) їњ░┆
0x29ba0…29bc0 0a 20 20 20 20 20 84 54 68 65 20 64 79 6e 61 6d 69 63 20 61 70 70 65 74 69 74 65 20 69 73 20 74 ┆ ёThe dynamic appetite is t┆
0x29bc0…29be0 68 65 20 73 74 61 74 69 63 20 61 70 70 65 74 69 74 65 20 61 73 20 6d 65 6e 74 69 6f 6e 65 64 20 ┆he static appetite as mentioned ┆
0x29be0…29c00 66 6f 72 20 74 68 65 20 0a 19 85 80 80 70 72 6f 67 72 61 6d 20 69 6e 20 74 68 65 20 63 6f 6d 70 ┆for the Ёђђprogram in the comp┆
0x29c00…29c20 69 6c 61 74 69 6f 6e 20 73 75 72 76 65 79 20 70 6c 75 73 20 74 68 65 20 64 79 6e 61 6d 69 63 20 ┆ilation survey plus the dynamic ┆
0x29c20…29c40 61 70 70 65 74 69 74 65 20 66 6f 72 20 0a 19 85 80 80 74 68 65 20 6d 6f 73 74 20 68 75 6e 67 72 ┆appetite for Ёђђthe most hungr┆
0x29c40…29c60 79 20 6f 66 20 74 68 65 20 63 61 6c 6c 65 64 20 72 6f 75 74 69 6e 65 73 2e 20 54 68 65 20 64 79 ┆y of the called routines. The dy┆
0x29c60…29c80 6e 61 6d 69 63 20 61 70 70 65 74 69 74 65 20 6f 66 20 0a 19 85 80 80 61 20 72 6f 75 74 69 6e 65 ┆namic appetite of Ёђђa routine┆
0x29c80…29ca0 20 69 73 20 74 68 65 20 73 74 61 74 69 63 20 61 70 70 65 74 69 74 65 20 70 6c 75 73 20 74 68 65 ┆ is the static appetite plus the┆
0x29ca0…29cc0 20 64 79 6e 61 6d 69 63 20 61 70 70 65 74 69 74 65 20 66 6f 72 20 0a 19 85 80 80 74 68 65 20 6d ┆ dynamic appetite for Ёђђthe m┆
0x29cc0…29ce0 6f 73 74 20 68 75 6e 67 72 79 20 6f 66 20 74 68 65 20 63 61 6c 6c 65 64 20 72 6f 75 74 69 6e 65 ┆ost hungry of the called routine┆
0x29ce0…29d00 73 20 65 74 63 2e 20 49 6e 20 74 68 69 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 0a 19 85 80 80 70 ┆s etc. In this connection Ёђђp┆
0x29d00…29d20 6c 65 61 73 65 20 6e 6f 74 65 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 72 6f 75 74 69 6e 65 73 ┆lease note the standard routines┆
0x29d20…29d40 2c 20 74 68 65 20 61 70 70 65 74 69 74 65 20 6f 66 20 77 68 69 63 68 20 69 73 20 73 70 65 80 0a ┆, the appetite of which is speђ ┆
0x29d40…29d60 19 85 80 80 63 69 66 69 65 64 20 69 6e 20 74 68 65 20 70 61 63 6b 61 67 65 20 64 65 73 63 72 69 ┆ Ёђђcified in the package descri┆
0x29d60…29d80 70 74 69 6f 6e 2e 20 0d 0a 0d 0a 20 20 20 20 20 84 46 6f 72 20 72 65 63 75 72 73 69 76 65 20 70 ┆ption. ёFor recursive p┆
0x29d80…29da0 72 6f 63 65 64 75 72 65 73 20 74 68 65 20 61 70 70 65 74 69 74 65 20 68 61 73 20 74 6f 20 62 65 ┆rocedures the appetite has to be┆
0x29da0…29dc0 20 6d 75 6c 74 69 70 6c 69 65 64 20 62 79 20 0a 19 85 80 80 74 68 65 20 6d 61 78 69 6d 75 6d 20 ┆ multiplied by Ёђђthe maximum ┆
0x29dc0…29de0 64 65 70 74 68 20 6f 66 20 74 68 65 20 72 65 63 75 72 73 69 6f 6e 2e 20 0d 0a 0d 0a 20 20 20 20 ┆depth of the recursion. ┆
0x29de0…29e00 20 84 54 68 65 20 65 78 63 65 70 74 69 6f 6e 20 61 70 70 65 74 69 74 65 20 61 6d 6f 75 6e 74 73 ┆ ёThe exception appetite amounts┆
0x29e00…29e20 20 74 6f 20 61 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 2c 20 77 68 69 63 68 20 69 73 20 0a 19 ┆ to a default value, which is ┆
0x29e20…29e40 85 80 80 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65 20 70 61 63 6b 61 67 65 20 64 65 73 63 ┆Ёђђspecified in the package desc┆
0x29e40…29e60 72 69 70 74 69 6f 6e 2e 20 54 68 65 20 61 70 70 65 74 69 74 65 20 6d 61 79 20 62 65 20 6f 76 65 ┆ription. The appetite may be ove┆
0x29e60…29e80 72 80 0a 19 85 80 80 72 75 6c 65 64 20 62 79 20 74 68 65 20 27 65 78 63 65 70 74 69 6f 6e 27 20 ┆rђ Ёђђruled by the 'exception' ┆
0x29e80…29ea0 6f 70 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 61 6c 6c 20 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c ┆option in the call of the compil┆
0x29ea0…29ec0 65 72 2e 20 0d 0a 0d 0a 20 20 20 20 20 84 4e 4f 54 45 53 3a 20 0d 0a 20 20 20 20 20 84 49 66 20 ┆er. ёNOTES: ёIf ┆
0x29ec0…29ee0 64 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20 73 68 69 65 6c 64 65 64 20 6f 62 6a 65 63 74 73 20 ┆declaration of shielded objects ┆
0x29ee0…29f00 6f 63 63 75 72 2c 20 73 6f 6d 65 20 73 74 61 6e 64 61 72 64 20 69 6e 69 74 69 61 6c 69 7a 61 80 ┆occur, some standard initializaђ┆
0x29f00…29f20 0a 19 85 80 80 74 69 6f 6e 20 70 72 6f 63 65 64 75 72 65 73 20 61 72 65 20 63 61 6c 6c 65 64 2e ┆ Ёђђtion procedures are called.┆
0x29f20…29f40 20 0d 0a 0d 0a 20 20 20 20 20 4d 65 6d 6f 72 79 20 66 6f 72 20 74 68 65 20 bf dc d8 68 65 61 70 ┆ Memory for the ┐▄пheap┆
0x29f40…29f60 be 20 20 69 73 20 a0 6e 6f 74 e0 20 70 61 72 74 20 6f 66 20 74 68 65 20 73 74 61 63 6b 20 73 70 ┆Й is аnotЯ part of the stack sp┆
0x29f60…29f80 61 63 65 2e 0d 0a 0d 0a 20 20 20 20 20 84 54 68 65 20 73 74 61 63 6b 20 73 70 61 63 65 20 6f 66 ┆ace. ёThe stack space of┆
0x29f80…29fa0 20 74 68 65 20 63 68 69 6c 64 72 65 6e 20 69 73 20 a0 6e 6f 74 e0 20 74 61 6b 65 6e 20 66 72 6f ┆ the children is аnotЯ taken fro┆
0x29fa0…29fc0 6d 20 74 68 65 20 73 74 61 63 6b 20 6f 66 20 0a 19 85 80 80 74 68 65 20 70 61 72 65 6e 74 20 70 ┆m the stack of Ёђђthe parent p┆
0x29fc0…29fe0 72 6f 63 65 73 73 2c 20 62 75 74 20 66 72 6f 6d 20 74 68 65 20 6d 61 63 68 69 6e 65 27 73 20 70 ┆rocess, but from the machine's p┆
0x29fe0…2a000 6f 6f 6c 20 6f 66 20 66 72 65 65 20 6d 65 6d 6f 72 79 2e 20 0a 19 85 80 80 43 72 65 61 74 65 20 ┆ool of free memory. ЁђђCreate ┆
0x2a000…2a020 63 68 65 63 6b 73 20 74 68 61 74 20 74 68 65 72 65 20 69 73 20 6d 65 6d 6f 72 79 20 66 6f 72 20 ┆checks that there is memory for ┆
0x2a020…2a040 74 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 6f 72 2c 20 0a 19 85 80 80 74 68 65 ┆the process descriptor, Ёђђthe┆
0x2a040…2a060 20 61 63 74 75 61 6c 20 70 72 6f 67 72 61 6d 20 70 61 72 61 6d 65 74 65 72 73 2c 20 61 6e 64 20 ┆ actual program parameters, and ┆
0x2a060…2a080 66 6f 72 20 64 75 6d 70 20 6f 66 20 74 68 65 20 72 65 67 69 73 74 65 72 20 0a 19 85 80 80 73 74 ┆for dump of the register Ёђђst┆
0x2a080…2a0a0 61 63 6b 2c 20 62 65 66 6f 72 65 20 74 68 65 20 63 68 69 6c 64 20 69 73 20 63 72 65 61 74 65 64 ┆ack, before the child is created┆
0x2a0a0…2a0c0 2e 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 65 78 63 65 70 74 69 6f 6e 2e 3c 61 70 70 65 74 69 74 ┆. - ёexception.<appetit┆
0x2a0c0…2a0e0 65 3e 20 28 69 6e 20 77 6f 72 64 73 29 0d 0a 20 20 20 20 20 84 54 68 69 73 20 6f 70 74 69 6f 6e ┆e> (in words) ёThis option┆
0x2a0e0…2a100 20 69 73 20 75 73 65 64 20 66 6f 72 20 73 70 65 63 69 66 79 69 6e 67 20 74 68 65 20 61 6d 6f 75 ┆ is used for specifying the amou┆
0x2a100…2a120 6e 74 20 6f 66 20 73 74 61 63 6b 20 73 70 61 63 65 20 61 20 0a 19 85 80 80 70 72 6f 63 65 73 73 ┆nt of stack space a Ёђђprocess┆
0x2a120…2a140 20 77 69 6c 6c 20 72 65 73 65 72 76 65 20 66 6f 72 20 65 78 63 65 70 74 69 6f 6e 20 68 61 6e 64 ┆ will reserve for exception hand┆
0x2a140…2a160 6c 69 6e 67 2e 20 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 69 73 20 0a 19 85 80 80 ┆ling. The default value is Ёђђ┆
0x2a160…2a180 74 68 65 20 72 6f 6f 6d 20 6e 65 63 65 73 73 61 72 79 20 66 6f 72 20 61 20 63 61 6c 6c 20 6f 66 ┆the room necessary for a call of┆
0x2a180…2a1a0 20 74 68 65 20 73 74 61 6e 80 64 61 72 64 20 65 78 63 65 70 74 69 6f 6e 20 70 72 6f 63 65 80 0a ┆ the stanђdard exception proceђ ┆
0x2a1a0…2a1c0 19 85 80 80 64 75 72 65 2e 20 46 6f 72 20 61 20 75 73 65 72 20 64 65 66 69 6e 65 64 20 65 78 63 ┆ Ёђђdure. For a user defined exc┆
0x2a1c0…2a1e0 65 70 74 69 6f 6e 20 70 72 6f 63 65 80 64 75 72 65 20 74 68 65 20 6f 70 74 69 6f 6e 20 76 61 6c ┆eption proceђdure the option val┆
0x2a1e0…2a200 75 65 20 0a 19 85 80 80 6d 61 79 20 62 65 20 74 68 65 20 61 70 70 65 74 69 74 65 20 73 65 65 6e ┆ue Ёђђmay be the appetite seen┆
0x2a200…2a220 20 69 6e 20 74 68 65 20 69 6e 66 6f 72 6d 61 80 74 69 6f 6e 20 6c 69 73 74 20 66 72 6f 6d 20 74 ┆ in the informaђtion list from t┆
0x2a220…2a240 68 65 20 63 6f 6d 70 69 80 0a 19 85 80 80 6c 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 6f 75 74 ┆he compiђ Ёђђlation of the rout┆
0x2a240…2a260 69 6e 65 2c 28 73 65 65 20 66 75 72 74 68 65 72 20 75 6e 64 65 72 20 74 68 65 20 27 73 74 61 63 ┆ine,(see further under the 'stac┆
0x2a260…2a280 6b 27 20 6f 70 74 69 6f 6e 29 2e 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 63 6f 64 65 6c 69 73 74 ┆k' option). - ёcodelist┆
0x2a280…2a2a0 2e 79 65 73 20 6d 65 61 6e 73 2c 20 6c 69 73 74 20 74 68 65 20 67 65 6e 65 72 61 74 65 64 20 63 ┆.yes means, list the generated c┆
0x2a2a0…2a2c0 6f 64 65 20 28 6f 6e 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 29 20 0a 19 85 80 80 69 6e 20 ┆ode (on current output) Ёђђin ┆
0x2a2c0…2a2e0 73 79 6d 62 6f 6c 69 63 20 66 6f 72 6d 20 77 69 74 68 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 ┆symbolic form with information a┆
0x2a2e0…2a300 62 6f 75 74 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 65 78 65 63 75 74 69 6f 6e 20 0a 19 85 80 80 ┆bout instruction execution Ёђђ┆
0x2a300…2a320 74 69 6d 65 73 2c 20 6c 6f 67 69 63 61 6c 20 61 64 64 72 65 73 73 65 73 2c 20 61 6e 64 20 73 6f ┆times, logical addresses, and so┆
0x2a320…2a340 6d 65 20 63 6f 6d 6d 65 6e 74 73 2e 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 70 72 65 73 65 72 76 ┆me comments. - ёpreserv┆
0x2a340…2a360 65 2e 79 65 73 20 6d 65 61 6e 73 2c 20 64 6f 20 6e 6f 74 20 72 65 6d 6f 76 65 20 69 6e 74 65 72 ┆e.yes means, do not remove inter┆
0x2a360…2a380 6d 65 64 69 61 74 65 20 77 6f 72 6b 20 66 69 6c 65 73 20 61 66 74 65 72 20 0a 19 85 80 80 75 73 ┆mediate work files after Ёђђus┆
0x2a380…2a3a0 65 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 3c 79 65 73 20 6f 72 20 6e 6f 20 6f 72 20 70 61 73 73 3e ┆e - <yes or no or pass>┆
0x2a3a0…2a3c0 3a 3a 3d 20 79 65 73 20 7c 20 6e 6f 20 7c 20 70 61 73 73 20 6e 75 6d 62 65 72 0d 0a 0d 0a 0d 0a ┆::= yes | no | pass number ┆
0x2a3c0…2a3e0 20 20 20 2d 20 84 73 75 72 76 65 79 2e 79 65 73 20 69 6d 70 6c 69 65 73 20 6c 69 73 74 69 6e 67 ┆ - ёsurvey.yes implies listing┆
0x2a3e0…2a400 20 6f 66 20 73 6f 6d 65 20 73 74 61 74 69 73 74 69 63 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e ┆ of some statistical information┆
0x2a400…2a420 2e 20 63 66 2e 20 74 68 65 20 0a 19 85 80 80 66 6f 6c 6c 6f 77 69 6e 67 20 66 69 67 75 72 65 2e ┆. cf. the Ёђђfollowing figure.┆
0x2a420…2a440 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 73 75 72 76 65 79 2e 70 61 73 73 5f 6e 75 6d 62 65 72 20 ┆ - ёsurvey.pass_number ┆
0x2a440…2a460 69 6d 70 6c 69 65 73 20 6c 69 73 74 69 6e 67 20 6f 66 20 73 6f 6d 65 20 73 74 61 74 69 73 74 69 ┆implies listing of some statisti┆
0x2a460…2a480 63 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 0a 19 85 80 80 66 72 6f 6d 20 74 68 65 20 69 6e ┆cal information Ёђђfrom the in┆
0x2a480…2a4a0 64 69 63 61 74 65 64 20 70 61 73 73 20 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 2e 0d 0a 0d ┆dicated pass of the compiler. ┆
0x2a4a0…2a4c0 0a 0e 0a 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -M A1@ ┆
0x2a4c0…2a4e0 00 00 00 00 00 00 00 00 00 00 00 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c ┆ - -L┆
0x2a4e0…2a500 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x2a500…2a520 00 00 00 00 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 38 39 2e 30 37 2e 31 39 2e 20 ┆ - 89.07.19. ┆
0x2a520…2a540 20 20 20 20 20 31 34 2e 30 35 2e 20 20 20 20 20 20 52 45 41 4c 2d 54 49 4d 45 20 50 41 53 43 41 ┆ 14.05. REAL-TIME PASCA┆
0x2a540…2a560 4c 20 66 6f 72 20 52 43 33 35 30 32 2f 32 20 20 20 76 65 72 73 69 6f 6e 20 38 39 2e 30 37 2e 30 ┆L for RC3502/2 version 89.07.0┆
0x2a560…2a580 31 0d 0a 0d 0a 20 20 20 20 31 20 70 72 6f 67 72 61 6d 20 73 75 72 76 65 79 5f 74 65 73 74 3b 20 ┆1 1 program survey_test; ┆
0x2a580…2a5a0 0d 0a 20 20 20 20 32 20 62 65 67 69 6e 20 0d 0a 20 20 20 20 33 20 65 6e 64 2e 20 0d 0a 0d 0a 49 ┆ 2 begin 3 end. I┆
0x2a5a0…2a5c0 6e 66 6f 72 6d 61 74 69 6f 6e 20 73 75 72 76 65 79 20 66 72 6f 6d 20 52 45 41 4c 2d 54 49 4d 45 ┆nformation survey from REAL-TIME┆
0x2a5c0…2a5e0 20 50 41 53 43 41 4c 2c 20 70 61 73 73 33 2c 20 76 65 72 73 69 6f 6e 20 38 39 2e 30 37 2e 30 31 ┆ PASCAL, pass3, version 89.07.01┆
0x2a5e0…2a600 0d 0a 4d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 61 63 74 69 76 65 20 6e 61 6d 65 73 3a 20 20 20 ┆ Max number of active names: ┆
0x2a600…2a620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 34 39 0d 0a 44 65 65 70 65 73 74 ┆ 849 Deepest┆
0x2a620…2a640 20 6e 65 73 74 69 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ nesting: ┆
0x2a640…2a660 20 20 20 20 20 20 20 20 20 20 20 20 20 36 0d 0a 44 65 65 70 65 73 74 20 73 74 61 63 6b 20 6f 66 ┆ 6 Deepest stack of┆
0x2a660…2a680 20 6e 61 6d 65 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ names: ┆
0x2a680…2a6a0 20 20 20 20 35 0d 0a 4d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 61 63 74 69 76 65 20 74 79 70 65 ┆ 5 Max number of active type┆
0x2a6a0…2a6c0 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 38 0d 0a 4d 61 ┆s: 108 Ma┆
0x2a6c0…2a6e0 78 20 6e 75 6d 62 65 72 20 6f 66 20 61 63 74 69 76 65 20 73 74 72 69 6e 67 73 3a 20 20 20 20 20 ┆x number of active strings: ┆
0x2a6e0…2a700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 32 0d 0a 4d 61 78 20 6e 75 6d 62 65 72 20 ┆ 52 Max number ┆
0x2a700…2a720 6f 66 20 61 63 74 69 76 65 20 6f 70 65 72 61 6e 64 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆of active operands: ┆
0x2a720…2a740 20 20 20 20 20 20 20 20 35 30 0d 0a 50 61 67 65 20 66 61 75 6c 74 73 3a 20 20 20 20 20 20 20 20 ┆ 50 Page faults: ┆
0x2a740…2a760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 ┆ 8┆
0x2a760…2a780 37 0d 0a 0d 0a 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 73 75 72 76 65 79 20 66 72 6f 6d 20 52 45 41 ┆7 Information survey from REA┆
0x2a780…2a7a0 4c 2d 54 49 4d 45 20 50 41 53 43 41 4c 2c 20 70 61 73 73 34 2c 20 76 65 72 73 69 6f 6e 20 38 39 ┆L-TIME PASCAL, pass4, version 89┆
0x2a7a0…2a7c0 2e 30 37 2e 30 31 0d 0a 44 65 65 70 65 73 74 20 6e 61 6d 65 20 73 74 61 63 6b 3a 20 20 20 20 20 ┆.07.01 Deepest name stack: ┆
0x2a7c0…2a7e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 35 37 0d 0a 44 ┆ 257 D┆
0x2a7e0…2a800 65 65 70 65 73 74 20 6f 70 65 72 61 6e 64 20 73 74 61 63 6b 3a 20 20 20 20 20 20 20 20 20 20 20 ┆eepest operand stack: ┆
0x2a800…2a820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 0d 0a 43 6f 6e 73 74 61 6e 74 20 61 ┆ 2 Constant a┆
0x2a820…2a840 72 65 61 20 73 69 7a 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rea size: ┆
0x2a840…2a860 20 20 20 20 20 20 20 20 20 20 31 0d 0a 44 65 65 70 65 73 74 20 73 74 72 75 63 74 75 72 65 20 6e ┆ 1 Deepest structure n┆
0x2a860…2a880 65 73 74 69 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆esting: ┆
0x2a880…2a8a0 20 30 0d 0a 50 61 67 65 20 66 61 75 6c 74 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0 Page faults: ┆
0x2a8a0…2a8c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 37 0d 0a 0d 0a 0d 0a 49 ┆ 77 I┆
0x2a8c0…2a8e0 6e 66 6f 72 6d 61 74 69 6f 6e 20 73 75 72 76 65 79 20 66 72 6f 6d 20 52 45 41 4c 2d 54 49 4d 45 ┆nformation survey from REAL-TIME┆
0x2a8e0…2a900 20 50 41 53 43 41 4c 2c 20 70 61 73 73 35 2c 20 76 65 72 73 69 6f 6e 20 38 39 2e 30 37 2e 30 31 ┆ PASCAL, pass5, version 89.07.01┆
0x2a900…2a920 0d 0a 0d 0a 20 20 20 6e 61 6d 65 20 20 20 20 20 20 20 20 68 65 61 64 6c 69 6e 65 20 62 65 67 69 ┆ name headline begi┆
0x2a920…2a940 6e 6c 69 6e 65 20 65 6e 64 6c 69 6e 65 20 20 61 70 70 65 74 69 74 65 28 77 6f 72 64 73 29 20 64 ┆nline endline appetite(words) d┆
0x2a940…2a960 65 66 61 75 6c 74 20 63 72 65 61 74 65 2d 73 69 7a 65 0d 0a 0d 0a 20 20 20 73 75 72 76 65 79 5f ┆efault create-size survey_┆
0x2a960…2a980 74 65 73 74 20 20 20 20 20 20 32 20 20 20 20 20 20 20 20 20 33 20 20 20 20 20 20 20 33 20 20 3a ┆test 2 3 3 :┆
0x2a980…2a9a0 20 20 20 20 20 20 34 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 35 ┆ 45 45┆
0x2a9a0…2a9c0 0d 0a 20 20 20 65 78 63 65 70 74 69 6f 6e 20 20 20 20 20 20 65 78 74 65 72 6e 61 6c 2c 20 63 61 ┆ exception external, ca┆
0x2a9c0…2a9e0 6c 6c 65 64 20 20 31 20 74 69 6d 65 28 73 29 20 0d 0a 0d 0a 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 ┆lled 1 time(s) Information ┆
0x2a9e0…2aa00 73 75 72 76 65 79 20 66 72 6f 6d 20 52 45 41 4c 2d 54 49 4d 45 20 50 41 53 43 41 4c 2c 20 70 61 ┆survey from REAL-TIME PASCAL, pa┆
0x2aa00…2aa20 73 73 36 2c 20 76 65 72 73 69 6f 6e 20 38 39 2e 30 37 2e 30 31 0d 0a 4d 61 78 20 6e 75 6d 62 65 ┆ss6, version 89.07.01 Max numbe┆
0x2aa20…2aa40 72 20 6f 66 20 61 63 74 69 76 65 20 6c 61 62 65 6c 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r of active labels: ┆
0x2aa40…2aa60 20 20 20 20 20 20 20 20 20 20 37 32 0d 0a 4d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 6c 61 62 65 ┆ 72 Max number of labe┆
0x2aa60…2aa80 6c 73 20 61 74 20 6f 6e 65 20 69 6e 73 74 72 75 63 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 ┆ls at one instruction: ┆
0x2aa80…2aaa0 20 20 33 0d 0a 4d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 75 6e 73 6f 6c 76 65 64 20 69 6e 74 65 ┆ 3 Max number of unsolved inte┆
0x2aaa0…2aac0 72 64 65 70 65 6e 64 65 6e 63 69 65 73 3a 20 20 20 20 20 20 20 20 20 20 20 31 0d 0a 44 65 65 70 ┆rdependencies: 1 Deep┆
0x2aac0…2aae0 65 73 74 20 62 6c 6f 63 6b 20 6e 65 73 74 69 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆est block nesting: ┆
0x2aae0…2ab00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 0d 0a 4d 61 78 20 6e 75 6d 62 65 72 20 6f 66 ┆ 4 Max number of┆
0x2ab00…2ab20 20 75 6e 73 6f 6c 76 65 64 20 6a 75 6d 70 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ unsolved jumps: ┆
0x2ab20…2ab40 20 20 20 20 20 20 20 30 0d 0a 4d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 75 6e 73 6f 6c 76 65 64 ┆ 0 Max number of unsolved┆
0x2ab40…2ab60 20 72 65 66 65 72 65 6e 63 65 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 0d ┆ references: 10 ┆
0x2ab60…2ab80 0a 47 72 65 61 74 65 73 74 20 63 61 73 65 20 74 61 62 6c 65 20 6f 72 20 73 74 72 75 63 74 75 72 ┆ Greatest case table or structur┆
0x2ab80…2aba0 65 64 20 63 6f 6e 73 74 61 6e 74 3a 20 20 20 20 20 20 20 20 20 38 0d 0a 45 6c 61 70 73 65 64 20 ┆ed constant: 8 Elapsed ┆
0x2aba0…2abc0 74 69 6d 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆time: ┆
0x2abc0…2abe0 20 20 20 20 20 20 30 2e 30 30 2e 34 38 0d 0a 43 50 55 20 74 69 6d 65 20 69 6e 20 73 65 63 6f 6e ┆ 0.00.48 CPU time in secon┆
0x2abe0…2ac00 64 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ds: ┆
0x2ac00…2ac20 20 20 32 32 0d 0a 0d 0a 0d 0a 20 63 6f 64 65 3a 20 30 20 2e 20 31 33 30 20 20 3d 20 31 33 30 20 ┆ 22 code: 0 . 130 = 130 ┆
0x2ac20…2ac40 62 79 74 65 73 0d 0a 0d 0a 0d 0a 65 6e 64 20 6f 66 20 52 45 41 4c 2d 54 49 4d 45 20 50 41 53 43 ┆bytes end of REAL-TIME PASC┆
0x2ac40…2ac60 41 4c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 66 6f 72 20 52 43 33 35 30 32 2f 32 0d 0a 0d 0a 65 ┆AL compilation for RC3502/2 e┆
0x2ac60…2ac80 6e 64 0d 0a 62 6c 6f 63 6b 73 72 65 61 64 20 3d 20 36 32 0d 0a 0d 0a 0d 0a 04 00 2d 4c 00 00 06 ┆nd blocksread = 62 -L ┆
0x2ac80…2aca0 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x2aca0…2acc0 00 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 ┆ - -M A┆
0x2acc0…2ace0 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 1e 2d ff ff ff ┆1@ - ┆
0x2ace0…2ad00 ff ff ff ff ff ff ff ff ff ff 04 0a 16 73 66 20 32 0d 0a 53 75 72 76 65 79 20 49 6e 66 6f 72 6d ┆ sf 2 Survey Inform┆
0x2ad00…2ad20 61 74 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 43 6f 6d 70 69 6c 65 72 0d 0a 0f 0a 0d 0a 0d 0a 0e ┆ation from the Compiler ┆
0x2ad20…2ad40 0a 20 20 20 2d 20 84 73 65 74 2e 73 77 69 74 63 68 6e 61 6d 65 2e 73 77 69 74 63 68 76 61 6c 75 ┆ - ёset.switchname.switchvalu┆
0x2ad40…2ad60 65 20 69 6d 70 6c 69 65 73 20 73 65 74 74 69 6e 67 2f 64 65 66 69 6e 69 6e 67 20 61 20 73 77 69 ┆e implies setting/defining a swi┆
0x2ad60…2ad80 74 63 68 2e 20 54 68 65 20 0a 19 85 80 80 73 6f 20 64 65 66 69 6e 65 64 20 73 77 69 74 63 68 65 ┆tch. The Ёђђso defined switche┆
0x2ad80…2ada0 73 20 6d 61 79 20 62 65 20 75 73 65 64 20 69 6e 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 73 ┆s may be used in the expressions┆
0x2ada0…2adc0 20 6f 66 20 49 46 20 61 6e 64 20 0a 19 85 80 80 45 4c 53 45 49 46 20 64 69 72 65 63 74 69 76 65 ┆ of IF and ЁђђELSEIF directive┆
0x2adc0…2ade0 73 20 28 63 66 2e 20 32 2e 31 38 20 43 6f 6d 70 69 6c 65 72 20 44 69 72 65 63 74 69 76 65 73 29 ┆s (cf. 2.18 Compiler Directives)┆
0x2ade0…2ae00 2e 20 0d 0a 0f 0a 0d 0a 0d 0a 20 20 20 2d 20 84 76 65 72 73 69 6f 6e 2e 3c 76 65 72 73 69 6f 6e ┆. - ёversion.<version┆
0x2ae00…2ae20 3e 20 69 6d 70 6c 69 65 73 20 73 65 74 74 69 6e 67 20 6f 66 20 74 68 65 20 76 65 72 73 69 6f 6e ┆> implies setting of the version┆
0x2ae20…2ae40 20 64 69 72 65 63 74 69 76 65 20 28 63 66 2e 20 0a 19 85 80 80 32 2e 31 38 20 43 6f 6d 70 69 6c ┆ directive (cf. Ёђђ2.18 Compil┆
0x2ae40…2ae60 65 72 20 44 69 72 65 63 74 69 76 65 73 29 2e 20 0d 0a 0d 0a 8c 93 de 0a 20 20 20 20 20 84 3c 76 ┆er Directives). їЊя ё<v┆
0x2ae60…2ae80 65 72 73 69 6f 6e 3e 3a 3a 3d 09 20 20 3c 69 6e 74 65 67 65 72 3e 20 0d 0a 09 7c 20 3c 62 79 74 ┆ersion>::= <integer> | <byt┆
0x2ae80…2aea0 65 3e 2e 3c 62 79 74 65 3e 20 0d 0a 09 7c 20 3c 72 65 6c 65 61 73 65 3e 2e 3c 65 64 69 74 69 6f ┆e>.<byte> | <release>.<editio┆
0x2aea0…2aec0 6e 3e 2e 3c 76 61 72 69 61 6e 74 3e 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 3c 69 6e 74 65 72 76 ┆n>.<variant> - ё<interv┆
0x2aec0…2aee0 61 6c 3e 20 69 73 20 74 68 65 20 64 69 73 74 61 6e 63 65 20 62 65 74 77 65 65 6e 20 74 77 6f 20 ┆al> is the distance between two ┆
0x2aee0…2af00 73 6f 75 72 63 65 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 72 65 80 0a 19 85 80 80 63 6f 72 64 73 ┆source line number reђ Ёђђcords┆
0x2af00…2af20 2e 20 54 68 65 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 72 65 63 6f 72 64 73 20 61 72 65 20 75 73 ┆. The line number records are us┆
0x2af20…2af40 65 64 20 62 79 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 65 78 63 65 70 80 0a 19 85 80 80 74 69 ┆ed by the standard excepђ Ёђђti┆
0x2af40…2af60 6f 6e 20 70 72 6f 63 65 80 64 75 72 65 20 74 6f 20 72 65 6c 61 74 65 20 74 68 65 20 61 64 64 72 ┆on proceђdure to relate the addr┆
0x2af60…2af80 65 73 73 20 6f 66 20 61 20 72 75 6e 20 74 69 6d 65 20 65 72 72 6f 72 20 74 6f 20 61 20 6c 69 80 ┆ess of a run time error to a liђ┆
0x2af80…2afa0 0a 19 85 80 80 6e 65 20 69 6e 74 65 72 76 61 6c 20 6f 66 20 74 68 65 20 73 6f 75 72 63 65 20 70 ┆ Ёђђne interval of the source p┆
0x2afa0…2afc0 72 6f 67 72 61 6d 2e 20 20 20 20 0d 0a 20 20 20 20 20 0d 0a 20 20 20 20 20 3c 70 61 73 73 20 6e ┆rogram. <pass n┆
0x2afc0…2afe0 72 3e 3a 3a 3d 20 20 31 20 7c 20 33 20 7c 20 34 20 7c 20 35 20 7c 20 36 20 0d 0a 0d 0a 0d 0a 20 ┆r>::= 1 | 3 | 4 | 5 | 6 ┆
0x2afe0…2b000 20 20 2d 20 84 73 74 6f 70 2e 3c 70 61 73 73 20 6e 72 3e 20 74 65 72 6d 69 6e 61 74 65 73 20 74 ┆ - ёstop.<pass nr> terminates t┆
0x2b000…2b020 68 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 61 66 74 65 72 20 74 68 65 20 70 61 73 73 20 73 70 ┆he translation after the pass sp┆
0x2b020…2b040 65 63 69 80 0a 19 85 80 80 66 69 65 64 2e 20 0d 0a 0d 0a 20 20 20 20 20 41 20 73 68 6f 72 74 20 ┆eciђ Ёђђfied. A short ┆
0x2b040…2b060 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 61 73 73 65 73 3a 20 0d 0a 0d 0a 20 ┆description of the passes: ┆
0x2b060…2b080 20 20 20 20 70 61 73 73 20 31 20 70 65 72 66 6f 72 6d 73 20 73 79 6e 74 61 78 20 61 6e 61 6c 79 ┆ pass 1 performs syntax analy┆
0x2b080…2b0a0 73 69 73 20 20 20 20 20 0d 0a 20 20 20 20 20 70 61 73 73 20 33 20 84 70 65 72 66 6f 72 6d 73 20 ┆sis pass 3 ёperforms ┆
0x2b0a0…2b0c0 6d 61 63 68 69 6e 65 20 69 6e 64 65 70 65 6e 64 65 6e 74 20 73 65 6d 61 6e 74 69 63 20 61 6e 61 ┆machine independent semantic ana┆
0x2b0c0…2b0e0 6c 79 73 69 73 20 20 20 20 20 0d 0a 20 20 20 20 20 70 61 73 73 20 34 20 70 65 72 66 6f 72 6d 73 ┆lysis pass 4 performs┆
0x2b0e0…2b100 20 84 73 74 6f 72 61 67 65 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 61 6e 64 20 6d 61 63 68 69 6e 65 ┆ ёstorage allocation and machine┆
0x2b100…2b120 20 64 65 70 65 6e 64 65 6e 74 20 73 65 80 0a 19 95 80 80 6d 61 6e 74 69 63 20 61 6e 61 6c 79 73 ┆ dependent seђ Ћђђmantic analys┆
0x2b120…2b140 69 73 20 20 20 20 20 0d 0a 20 20 20 20 20 70 61 73 73 20 35 20 70 65 72 66 6f 72 6d 73 20 73 79 ┆is pass 5 performs sy┆
0x2b140…2b160 6d 62 6f 6c 69 63 20 63 6f 64 65 20 67 65 6e 65 72 61 74 69 6f 6e 20 20 20 20 20 0d 0a 20 20 20 ┆mbolic code generation ┆
0x2b160…2b180 20 20 70 61 73 73 20 36 20 70 65 72 66 6f 72 6d 73 20 84 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f ┆ pass 6 performs ёtransformatio┆
0x2b180…2b1a0 6e 20 6f 66 20 73 79 6d 62 6f 6c 69 63 20 63 6f 64 65 20 74 6f 20 62 69 6e 61 72 79 20 66 6f 72 ┆n of symbolic code to binary for┆
0x2b1a0…2b1c0 80 0a 19 95 80 80 6d 61 74 20 0d 0a 0d 0a 0d 0a 20 20 20 2d 20 84 64 65 66 61 75 6c 74 20 76 61 ┆ђ Ћђђmat - ёdefault va┆
0x2b1c0…2b1e0 6c 75 65 73 3a 20 0d 0a 0d 0a 20 20 20 20 20 74 68 65 20 63 61 6c 6c 3a 20 0d 0a 0d 0a 20 20 20 ┆lues: the call: ┆
0x2b1e0…2b200 20 20 52 54 50 33 35 30 32 20 69 6e 70 75 74 66 69 6c 65 20 0d 0a 0d 0a 20 20 20 20 20 69 73 20 ┆ RTP3502 inputfile is ┆
0x2b200…2b220 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 3a 20 0d 0a 0d 0a 20 20 20 20 20 70 61 73 73 36 63 6f 64 ┆equivalent to: pass6cod┆
0x2b220…2b240 65 3d 84 52 54 50 33 35 30 32 20 6c 69 73 74 2e 6e 6f 20 63 6f 64 65 73 69 7a 65 2e 35 31 32 20 ┆e=ёRTP3502 list.no codesize.512 ┆
0x2b240…2b260 73 70 61 63 69 6e 67 2e 35 32 20 73 74 6f 70 2e 36 20 2c 0d 0a 20 20 20 20 20 20 20 6d 65 61 73 ┆spacing.52 stop.6 , meas┆
0x2b260…2b280 75 72 65 2e 6e 6f 20 65 78 63 65 70 74 69 6f 6e 2e 31 31 20 73 68 6f 72 74 2e 79 65 73 20 73 75 ┆ure.no exception.11 short.yes su┆
0x2b280…2b2a0 72 76 65 79 2e 6e 6f 20 63 6f 64 65 6c 69 73 74 2e 6e 6f 2c 20 0d 0a 20 20 20 20 20 20 20 73 74 ┆rvey.no codelist.no, st┆
0x2b2a0…2b2c0 61 63 6b 2e 2a 2a 2a 20 70 72 65 73 65 72 76 65 2e 6e 6f 20 69 6e 70 75 74 66 69 6c 65 20 0d 0a ┆ack.*** preserve.no inputfile ┆
0x2b2c0…2b2e0 0d 0a 20 20 20 20 20 84 2a 2a 2a 3a 20 84 74 68 65 20 64 65 66 61 75 6c 74 20 73 74 61 63 6b 20 ┆ ё***: ёthe default stack ┆
0x2b2e0…2b300 61 70 70 65 74 69 74 65 20 69 73 20 73 65 74 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 61 20 63 ┆appetite is set according to a c┆
0x2b300…2b320 6f 6d 70 69 6c 65 72 20 0a 19 8a 80 80 67 65 80 6e 65 72 61 74 65 64 20 76 61 6c 75 65 2c 20 63 ┆ompiler іђђgeђnerated value, c┆
0x2b320…2b340 6f 6d 70 75 74 65 64 20 61 73 20 74 68 65 20 73 75 6d 20 6f 66 20 73 74 61 74 69 63 20 61 70 70 ┆omputed as the sum of static app┆
0x2b340…2b360 65 74 69 74 65 73 20 0a 19 8a 80 80 6f 66 20 74 68 65 20 72 6f 75 74 69 6e 65 73 20 6f 66 20 61 ┆etites іђђof the routines of a┆
0x2b360…2b380 6e 64 20 6d 61 69 6e 20 62 6f 64 79 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 20 0d 0a 0d ┆nd main body of the program. ┆
0x2b380…2b3a0 0a 52 65 73 6f 75 72 63 65 20 72 65 71 75 69 72 65 6d 65 6e 74 73 20 0d 0a 0d 0a 41 74 20 6c 65 ┆ Resource requirements At le┆
0x2b3a0…2b3c0 61 73 74 20 34 35 2c 30 30 30 20 68 57 20 6d 65 6d 6f 72 79 20 28 73 69 7a 65 20 34 35 30 30 30 ┆ast 45,000 hW memory (size 45000┆
0x2b3c0…2b3e0 29 20 61 72 65 61 20 38 20 74 65 6d 70 20 64 69 73 63 20 61 74 20 6c 65 61 73 74 20 36 20 0a 73 ┆) area 8 temp disc at least 6 s┆
0x2b3e0…2b400 6c 69 63 65 73 20 61 6e 64 20 36 20 65 6e 74 72 69 65 73 2e 20 0d 0a 0c 88 e8 0a 20 20 20 20 0d ┆lices and 6 entries. ѕУ ┆
0x2b400…2b420 0a 16 53 61 0d 0a 50 65 72 66 6f 72 6d 61 6e 63 65 20 4d 65 61 73 75 72 65 6d 65 6e 74 0d 0a 16 ┆ Sa Performance Measurement ┆
0x2b420…2b440 73 6f 20 70 65 72 66 6f 72 6d 61 6e 63 65 20 6d 65 61 73 75 72 65 6d 65 6e 74 0d 0a 0d 0a 49 74 ┆so performance measurement It┆
0x2b440…2b460 20 69 73 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 6d 61 6b 65 20 73 6f 6d 65 20 70 65 72 66 6f 72 ┆ is possible to make some perfor┆
0x2b460…2b480 6d 61 6e 63 65 20 6d 65 61 73 75 72 65 6d 65 6e 74 73 20 6f 6e 20 72 75 6e 6e 69 6e 67 20 52 65 ┆mance measurements on running Re┆
0x2b480…2b4a0 80 0a 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 20 70 72 6f 67 72 61 6d 73 2e 20 54 68 65 20 72 ┆ђ al-Time Pascal programs. The r┆
0x2b4a0…2b4c0 65 73 75 6c 74 20 6f 66 20 6d 65 61 73 75 72 69 6e 67 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 ┆esult of measuring includes the ┆
0x2b4c0…2b4e0 6e 75 6d 62 65 72 20 0a 6f 66 20 72 6f 75 74 69 6e 65 20 61 63 74 69 76 61 74 69 6f 6e 73 20 61 ┆number of routine activations a┆
0x2b4e0…2b500 6e 64 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 74 69 6d 65 20 73 70 65 6e 74 20 69 6e 20 74 ┆nd the amount of time spent in t┆
0x2b500…2b520 68 65 20 72 6f 75 74 69 6e 65 73 2e 20 0a 54 68 65 20 74 69 6d 65 20 69 6e 64 69 63 61 74 69 6f ┆he routines. The time indicatio┆
0x2b520…2b540 6e 73 20 61 72 65 20 72 65 61 6c 2d 74 69 6d 65 2c 20 69 2e 65 2e 20 73 79 73 74 65 6d 20 6f 76 ┆ns are real-time, i.e. system ov┆
0x2b540…2b560 65 72 68 65 61 64 2c 20 74 69 6d 65 20 73 6c 69 63 69 6e 67 20 0a 61 6e 64 20 74 69 6d 65 20 66 ┆erhead, time slicing and time f┆
0x2b560…2b580 6f 72 20 77 61 69 74 20 61 72 65 20 69 6e 63 6c 75 64 65 64 2e 20 0d 0a 0d 0a 4d 65 61 73 75 72 ┆or wait are included. Measur┆
0x2b580…2b5a0 65 6d 65 6e 74 20 69 73 20 69 6e 69 74 69 61 74 65 64 20 62 79 20 61 20 63 61 6c 6c 20 6f 66 20 ┆ement is initiated by a call of ┆
0x2b5a0…2b5c0 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 27 73 74 61 72 74 5f 6d 65 61 73 75 72 65 27 20 0a 77 ┆the procedure 'start_measure' w┆
0x2b5c0…2b5e0 69 74 68 20 61 20 6d 61 69 6c 62 6f 78 20 61 73 20 70 61 72 61 6d 65 74 65 72 2e 20 41 6c 6c 20 ┆ith a mailbox as parameter. All ┆
0x2b5e0…2b600 73 75 63 63 65 65 64 69 6e 67 20 72 6f 75 74 69 6e 65 20 63 61 6c 6c 73 20 61 6e 64 20 72 65 74 ┆succeeding routine calls and ret┆
0x2b600…2b620 75 72 6e 73 20 0a 74 72 69 67 67 65 72 20 75 70 64 61 74 65 20 6f 66 20 61 20 74 61 62 6c 65 2e ┆urns trigger update of a table.┆
0x2b620…2b640 20 54 68 65 20 74 61 62 6c 65 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 61 6e 64 20 69 6e 69 74 ┆ The table is allocated and init┆
0x2b640…2b660 69 61 6c 69 7a 65 64 20 62 79 20 0a 27 73 74 61 72 74 5f 6d 65 61 73 75 72 65 27 2e 20 0d 0a 0d ┆ialized by 'start_measure'. ┆
0x2b660…2b680 0a 8c 82 d0 0a 54 68 65 20 6d 65 61 73 75 72 65 6d 65 6e 74 20 69 73 20 74 65 72 6d 69 6e 61 74 ┆ їѓл The measurement is terminat┆
0x2b680…2b6a0 65 64 20 62 79 20 61 20 63 61 6c 6c 20 6f 66 20 27 73 74 6f 70 5f 6d 65 61 73 75 72 65 27 20 77 ┆ed by a call of 'stop_measure' w┆
0x2b6a0…2b6c0 69 74 68 20 74 68 65 20 0a 73 61 6d 65 20 6d 61 69 6c 62 6f 78 20 70 61 72 61 6d 65 74 65 72 20 ┆ith the same mailbox parameter ┆
0x2b6c0…2b6e0 61 73 20 27 73 74 61 72 74 5f 6d 65 61 73 75 72 65 27 2e 20 27 53 74 6f 70 5f 6d 65 61 73 75 72 ┆as 'start_measure'. 'Stop_measur┆
0x2b6e0…2b700 65 27 20 73 69 67 6e 61 6c 73 20 74 68 65 20 0a 74 61 62 6c 65 20 74 6f 20 61 20 73 79 73 74 65 ┆e' signals the table to a syste┆
0x2b700…2b720 6d 20 6d 61 69 6c 62 6f 78 20 61 6e 64 20 61 20 6e 65 77 20 63 61 6c 6c 20 6f 66 20 27 73 74 61 ┆m mailbox and a new call of 'sta┆
0x2b720…2b740 72 74 5f 6d 65 61 73 75 72 65 27 20 69 73 20 70 6f 73 80 0a 73 69 62 6c 65 2e 20 4d 65 61 73 75 ┆rt_measure' is posђ sible. Measu┆
0x2b740…2b760 72 65 6d 65 6e 74 73 20 6d 61 79 20 62 65 20 73 74 61 72 74 65 64 20 61 6e 64 20 73 74 6f 70 70 ┆rements may be started and stopp┆
0x2b760…2b780 65 64 20 61 73 20 6c 6f 6e 67 20 61 73 20 69 74 20 69 73 20 70 6f 73 80 0a 73 69 62 6c 65 20 74 ┆ed as long as it is posђ sible t┆
0x2b780…2b7a0 6f 20 61 6c 6c 6f 63 61 74 65 20 61 6e 20 61 72 65 61 20 6f 66 20 32 35 37 34 20 62 79 74 65 73 ┆o allocate an area of 2574 bytes┆
0x2b7a0…2b7c0 20 74 6f 20 62 65 20 75 73 65 64 20 61 73 20 6d 65 61 73 75 72 65 6d 65 6e 74 20 0a 61 72 65 61 ┆ to be used as measurement area┆
0x2b7c0…2b7e0 2e 20 0d 0a 0d 0a 54 68 65 20 6d 65 61 73 75 72 65 6d 65 6e 74 20 72 65 73 75 6c 74 73 20 6d 61 ┆. The measurement results ma┆
0x2b7e0…2b800 79 20 62 65 20 70 72 69 6e 74 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 73 6f 6c 65 20 62 79 20 6d ┆y be printed on the console by m┆
0x2b800…2b820 65 61 6e 73 20 6f 66 20 0a 74 68 65 20 70 72 6f 67 72 61 6d 20 27 70 72 69 6e 74 5f 73 74 61 74 ┆eans of the program 'print_stat┆
0x2b820…2b840 69 73 28 74 69 63 61 6c 5f 69 6e 66 6f 72 6d 61 74 69 6f 6e 29 27 2e 20 54 68 65 20 6f 72 64 65 ┆is(tical_information)'. The orde┆
0x2b840…2b860 72 20 6f 66 20 72 65 73 75 6c 74 73 20 69 73 20 0a 46 49 46 4f 2e 20 54 68 65 20 6f 75 74 70 75 ┆r of results is FIFO. The outpu┆
0x2b860…2b880 74 20 70 72 6f 67 72 61 6d 20 64 65 61 6c 6c 6f 63 61 74 65 73 20 74 68 65 20 6d 65 61 73 75 72 ┆t program deallocates the measur┆
0x2b880…2b8a0 65 6d 65 6e 74 20 61 72 65 61 73 20 61 66 74 65 72 20 0a 70 72 69 6e 74 69 6e 67 20 6f 66 20 74 ┆ement areas after printing of t┆
0x2b8a0…2b8c0 68 65 20 72 65 73 75 6c 74 73 2e 20 0d 0a 0d 0a 54 68 65 72 65 20 69 73 20 61 6e 20 75 70 70 65 ┆he results. There is an uppe┆
0x2b8c0…2b8e0 72 20 6c 69 6d 69 74 20 6f 66 20 32 35 35 20 64 69 66 66 65 72 65 6e 74 20 72 6f 75 74 69 6e 65 ┆r limit of 255 different routine┆
0x2b8e0…2b900 73 20 70 65 72 20 70 72 6f 67 72 61 6d 2c 20 69 2e 65 2e 20 70 65 72 20 0a 70 72 6f 67 72 61 6d ┆s per program, i.e. per program┆
0x2b900…2b920 20 69 6e 63 6c 75 64 69 6e 67 20 69 6e 74 65 72 6e 61 6c 20 73 75 62 2d 70 72 6f 67 72 61 6d 73 ┆ including internal sub-programs┆
0x2b920…2b940 2e 20 49 66 20 6d 6f 72 65 20 74 68 61 6e 20 32 35 35 20 64 69 66 66 65 72 65 6e 74 20 0a 69 6e ┆. If more than 255 different in┆
0x2b940…2b960 74 65 72 80 6e 61 6c 20 61 6e 64 20 65 78 74 65 72 6e 61 6c 20 72 6f 75 74 69 6e 65 73 20 61 72 ┆terђnal and external routines ar┆
0x2b960…2b980 65 20 63 61 6c 6c 65 64 20 74 68 65 20 28 73 74 61 74 69 63 61 6c 6c 79 29 20 6c 61 73 74 20 72 ┆e called the (statically) last r┆
0x2b980…2b9a0 6f 75 74 69 6e 65 73 20 0a 77 69 6c 6c 20 75 73 65 20 6f 6e 65 20 63 6f 6d 6d 6f 6e 20 74 61 62 ┆outines will use one common tab┆
0x2b9a0…2b9c0 6c 65 20 65 6e 74 72 79 2c 20 61 6e 64 20 74 68 65 20 6f 75 74 70 75 74 20 70 72 6f 67 72 61 6d ┆le entry, and the output program┆
0x2b9c0…2b9e0 20 77 69 6c 6c 20 70 75 74 20 0a 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 20 69 6e 73 74 65 61 ┆ will put '************' instea┆
0x2b9e0…2ba00 64 20 6f 66 20 6e 61 6d 65 2e 20 0d 0a 0d 0a 54 68 65 20 6f 75 74 70 75 74 20 66 6f 72 6d 61 74 ┆d of name. The output format┆
0x2ba00…2ba20 20 6d 61 79 20 62 65 20 73 65 65 6e 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 78 ┆ may be seen in the following ex┆
0x2ba20…2ba40 61 6d 70 6c 65 2e 20 54 68 65 20 6e 75 6d 62 65 72 20 0a 6f 66 20 63 61 6c 6c 73 20 69 73 20 6d ┆ample. The number of calls is m┆
0x2ba40…2ba60 6f 64 75 6c 6f 20 36 34 4b 20 61 6e 64 20 74 68 65 20 74 69 6d 65 20 61 6d 6f 75 6e 74 73 20 61 ┆odulo 64K and the time amounts a┆
0x2ba60…2ba80 72 65 20 67 69 76 65 6e 20 61 73 3a 20 0d 0a 0d 0a 20 20 20 20 20 68 6f 75 72 73 2e 6d 69 6e 75 ┆re given as: hours.minu┆
0x2ba80…2baa0 74 65 73 2e 73 65 63 6f 6e 64 73 2e 68 75 6e 64 72 65 64 74 68 73 20 6f 66 20 61 20 73 65 63 6f ┆tes.seconds.hundredths of a seco┆
0x2baa0…2bac0 6e 64 20 0d 0a 0d 0a 53 69 6e 63 65 20 74 68 65 20 6e 61 6d 65 73 20 61 72 65 20 66 6f 75 6e 64 ┆nd Since the names are found┆
0x2bac0…2bae0 20 69 6e 20 74 68 65 20 63 6f 64 65 20 6f 66 20 74 68 65 20 72 6f 75 74 69 6e 65 73 2c 20 74 68 ┆ in the code of the routines, th┆
0x2bae0…2bb00 65 20 6f 75 74 70 75 74 20 0a 70 72 6f 67 72 61 6d 20 6d 75 73 74 20 62 65 20 72 75 6e 20 62 65 ┆e output program must be run be┆
0x2bb00…2bb20 66 6f 72 65 20 74 68 65 20 72 6f 75 74 69 6e 65 73 20 61 6e 64 20 70 72 6f 67 72 61 6d 73 20 61 ┆fore the routines and programs a┆
0x2bb20…2bb40 72 65 20 75 6e 6c 6f 61 64 65 64 2e 20 0d 0a 0d 0a 55 73 65 20 6f 66 20 74 68 65 20 6d 65 61 73 ┆re unloaded. Use of the meas┆
0x2bb40…2bb60 75 72 65 6d 65 6e 74 20 74 6f 6f 6c 73 3a 20 0d 0a 0d 0a 54 68 65 20 70 72 6f 67 72 61 6d 73 20 ┆urement tools: The programs ┆
0x2bb60…2bb80 74 6f 20 62 65 20 6d 65 61 73 75 72 65 64 20 6d 75 73 74 20 62 65 20 63 6f 6d 70 69 6c 65 64 20 ┆to be measured must be compiled ┆
0x2bb80…2bba0 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 27 6d 65 80 61 73 75 80 0a 72 65 65 6e 76 27 20 61 6e ┆together with 'meђasuђ reenv' an┆
0x2bba0…2bbc0 64 20 77 69 74 68 20 27 6d 65 61 73 75 72 65 2e 79 65 73 27 20 69 6e 20 74 68 65 20 63 61 6c 6c ┆d with 'measure.yes' in the call┆
0x2bbc0…2bbe0 20 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 2e 20 27 4d 65 80 61 73 75 72 65 80 0a 65 6e 76 ┆ of the compiler. 'Meђasureђ env┆
0x2bbe0…2bc00 27 20 69 6e 63 6c 75 64 65 73 20 65 78 74 65 72 6e 61 6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 ┆' includes external declarations┆
0x2bc00…2bc20 20 6f 66 20 27 73 74 61 72 74 5f 6d 65 61 73 75 72 65 27 20 61 6e 64 20 27 73 74 6f 70 5f 6d 65 ┆ of 'start_measure' and 'stop_me┆
0x2bc20…2bc40 61 80 0a 73 75 72 65 27 2c 20 63 66 2e 20 4b 2e 34 2e 20 0d 0a 0d 0a 54 68 65 20 6e 65 63 65 73 ┆aђ sure', cf. K.4. The neces┆
0x2bc40…2bc60 73 61 72 79 20 72 6f 75 74 69 6e 65 73 20 66 6f 72 20 6d 65 61 73 75 72 69 6e 67 20 61 72 65 20 ┆sary routines for measuring are ┆
0x2bc60…2bc80 73 75 70 70 6c 69 65 64 20 69 6e 20 27 6d 65 61 73 75 72 65 70 6c 69 62 27 2c 20 0a 77 68 69 63 ┆supplied in 'measureplib', whic┆
0x2bc80…2bca0 68 20 69 73 20 72 65 71 75 69 72 65 64 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 6c 6f 61 64 2f 6c ┆h is required in order to load/l┆
0x2bca0…2bcc0 69 6e 6b 20 70 72 6f 63 65 73 73 65 73 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 20 6d 65 80 0a ┆ink processes compiled with meђ ┆
0x2bcc0…2bce0 61 73 75 72 65 2e 79 65 73 2e 20 0d 0a 0d 0a 54 68 65 20 6f 75 74 70 75 74 20 70 72 6f 67 72 61 ┆asure.yes. The output progra┆
0x2bce0…2bd00 6d 20 69 73 20 73 75 70 70 6c 69 65 64 20 61 73 20 27 62 70 72 69 6e 74 73 74 61 74 27 2e 20 0d ┆m is supplied as 'bprintstat'. ┆
0x2bd00…2bd20 0a 0d 0a 0e 0a a1 45 78 61 6d 70 6c 65 20 20 39 2e 20 20 54 72 61 70 74 65 73 74 20 e1 20 0d 0a ┆ АExample 9. Traptest р ┆
0x2bd20…2bd40 0d 0a 0e 0a 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x2bd40…2bd60 00 00 00 00 00 00 00 00 00 00 00 00 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d ┆ - -┆
0x2bd60…2bd80 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆L A1@ ┆
0x2bd80…2bda0 00 00 00 00 00 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 0d 0a 20 20 50 52 4f 47 52 ┆ - PROGR┆
0x2bda0…2bdc0 41 4d 20 74 72 61 70 74 65 73 74 3b 20 20 20 20 20 0d 0a 0d 0a 20 20 56 41 52 20 20 20 20 20 0d ┆AM traptest; VAR ┆
0x2bdc0…2bde0 0a 20 20 20 20 6d 65 61 73 75 72 65 5f 6d 62 78 3a 20 6d 61 69 6c 62 6f 78 3b 20 20 0d 0a 0d 0a ┆ measure_mbx: mailbox; ┆
0x2bde0…2be00 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 65 6d 70 74 79 5f 31 3b 20 20 20 20 20 0d 0a 20 20 20 ┆ PROCEDURE empty_1; ┆
0x2be00…2be20 20 42 45 47 49 4e 20 45 4e 44 3b 20 20 20 20 20 20 20 0d 0a 20 20 20 20 0d 0a 20 20 20 20 50 52 ┆ BEGIN END; PR┆
0x2be20…2be40 4f 43 45 44 55 52 45 20 65 6d 70 74 79 5f 32 3b 0d 0a 20 20 20 20 42 45 47 49 4e 20 45 4e 44 3b ┆OCEDURE empty_2; BEGIN END;┆
0x2be40…2be60 20 20 20 20 20 0d 0a 0d 0a 20 20 20 20 42 45 47 49 4e 20 20 20 20 20 0d 0a 20 20 20 20 20 20 73 ┆ BEGIN s┆
0x2be60…2be80 74 61 72 74 5f 6d 65 61 73 75 72 65 28 6d 65 61 73 75 72 65 5f 6d 62 78 29 3b 20 20 20 20 20 0d ┆tart_measure(measure_mbx); ┆
0x2be80…2bea0 0a 20 20 20 20 20 20 46 4f 52 20 73 74 65 70 31 3a 3d 20 31 20 54 4f 20 33 32 20 44 4f 20 20 20 ┆ FOR step1:= 1 TO 32 DO ┆
0x2bea0…2bec0 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 73 74 65 70 32 3a 3d 20 31 20 54 4f 20 31 ┆ FOR step2:= 1 TO 1┆
0x2bec0…2bee0 30 30 30 20 44 4f 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 0d 0a 20 20 20 20 ┆000 DO BEGIN ┆
0x2bee0…2bf00 20 20 20 20 20 20 20 20 65 6d 70 74 79 5f 31 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ empty_1; e┆
0x2bf00…2bf20 6d 70 74 79 5f 32 3b 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b ┆mpty_2; END;┆
0x2bf20…2bf40 20 20 20 20 20 0d 0a 20 20 20 20 20 20 73 74 6f 70 5f 6d 65 61 73 75 72 65 28 6d 65 61 73 75 72 ┆ stop_measure(measur┆
0x2bf40…2bf60 65 5f 6d 62 78 29 3b 20 0d 0a 20 20 20 20 20 20 73 74 61 72 74 5f 6d 65 61 73 75 72 65 28 6d 65 ┆e_mbx); start_measure(me┆
0x2bf60…2bf80 61 73 75 72 65 5f 6d 62 78 29 3b 20 20 20 20 20 0d 0a 20 20 20 20 20 20 46 4f 52 20 73 74 65 70 ┆asure_mbx); FOR step┆
0x2bf80…2bfa0 31 3a 3d 20 31 20 54 4f 20 33 33 20 44 4f 20 20 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 73 74 ┆1:= 1 TO 33 DO FOR st┆
0x2bfa0…2bfc0 65 70 32 3a 3d 20 31 20 54 4f 20 31 30 30 30 20 44 4f 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 ┆ep2:= 1 TO 1000 DO ┆
0x2bfc0…2bfe0 20 20 20 20 20 20 20 42 45 47 49 4e 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6d 70 74 79 ┆ BEGIN empty┆
0x2bfe0…2c000 5f 32 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6d 70 74 79 5f 31 3b 20 20 20 20 20 20 ┆_2; empty_1; ┆
0x2c000…2c020 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 0d 0a 20 20 20 20 20 20 ┆ END; ┆
0x2c020…2c040 73 74 6f 70 5f 6d 65 61 73 75 72 65 28 6d 65 61 73 75 72 65 5f 6d 62 78 29 3b 20 0d 0a 20 20 20 ┆stop_measure(measure_mbx); ┆
0x2c040…2c060 20 45 4e 44 2e 20 0d 0a 0d 0a 0d 0a 72 75 6e 20 74 72 61 70 74 65 73 74 0d 0a 72 75 6e 20 70 72 ┆ END. run traptest run pr┆
0x2c060…2c080 69 6e 74 5f 73 74 61 74 69 73 0d 0a 0d 0a 3e 70 72 69 6e 74 5f 73 74 61 74 69 73 0d 0a 50 65 72 ┆int_statis >print_statis Per┆
0x2c080…2c0a0 66 6f 72 6d 61 6e 63 65 20 6d 65 61 73 75 72 65 6d 65 6e 74 20 66 6f 72 20 74 72 61 70 74 65 73 ┆formance measurement for traptes┆
0x2c0a0…2c0c0 74 20 20 20 20 0d 0a 0d 0a 20 6e 61 6d 65 20 20 20 20 20 20 20 63 61 6c 6c 65 64 20 20 20 20 20 ┆t name called ┆
0x2c0c0…2c0e0 20 20 74 69 6d 65 20 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ time -----------------------┆
0x2c0e0…2c100 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 74 72 61 70 74 65 73 74 20 20 20 20 20 20 20 20 30 31 20 20 20 ┆------- traptest 01 ┆
0x2c100…2c120 20 20 30 2e 30 30 2e 33 34 2e 36 30 0d 0a 73 74 61 72 74 5f 6d 65 61 73 75 72 20 20 20 20 30 31 ┆ 0.00.34.60 start_measur 01┆
0x2c120…2c140 20 20 20 20 20 30 2e 30 30 2e 30 30 2e 30 30 0d 0a 65 6d 70 74 79 5f 31 20 20 20 20 20 20 33 32 ┆ 0.00.00.00 empty_1 32┆
0x2c140…2c160 30 30 30 20 20 20 20 20 30 2e 30 30 2e 31 35 2e 35 35 0d 0a 65 6d 70 74 79 5f 32 20 20 20 20 20 ┆000 0.00.15.55 empty_2 ┆
0x2c160…2c180 20 33 32 30 30 30 20 20 20 20 20 30 2e 30 30 2e 31 35 2e 33 30 0d 0a 65 6e 64 20 20 20 20 20 20 ┆ 32000 0.00.15.30 end ┆
0x2c180…2c1a0 20 20 20 0d 0a 50 65 72 66 6f 72 6d 61 6e 63 65 20 6d 65 61 73 75 72 65 6d 65 6e 74 20 66 6f 72 ┆ Performance measurement for┆
0x2c1a0…2c1c0 20 74 72 61 70 74 65 73 74 20 20 20 20 0d 0a 0d 0a 20 6e 61 6d 65 20 20 20 20 20 20 20 63 61 6c ┆ traptest name cal┆
0x2c1c0…2c1e0 6c 65 64 20 20 20 20 20 20 20 74 69 6d 65 20 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆led time ---------------┆
0x2c1e0…2c200 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 74 72 61 70 74 65 73 74 20 20 20 20 20 ┆--------------- traptest ┆
0x2c200…2c220 20 20 20 30 31 20 20 20 20 20 30 2e 30 30 2e 33 34 2e 37 35 0d 0a 73 74 61 72 74 5f 6d 65 61 73 ┆ 01 0.00.34.75 start_meas┆
0x2c220…2c240 75 72 20 20 20 20 30 31 20 20 20 20 20 30 2e 30 30 2e 30 30 2e 30 35 0d 0a 65 6d 70 74 79 5f 31 ┆ur 01 0.00.00.05 empty_1┆
0x2c240…2c260 20 20 20 20 20 20 33 33 30 30 30 20 20 20 20 20 30 2e 30 30 2e 31 36 2e 37 35 0d 0a 65 6d 70 74 ┆ 33000 0.00.16.75 empt┆
0x2c260…2c280 79 5f 32 20 20 20 20 20 20 33 33 30 30 30 20 20 20 20 20 30 2e 30 30 2e 31 36 2e 32 30 0d 0a 65 ┆y_2 33000 0.00.16.20 e┆
0x2c280…2c2a0 6e 64 20 20 20 20 20 20 20 20 20 0d 0a 0d 0a 0f 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 ┆nd -L A1┆
0x2c2a0…2c2c0 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 1e 2d ff ff ff ff ┆@ - ┆
0x2c2c0…2c2e0 ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 ┆ -L A1@ ┆
0x2c2e0…2c300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff ┆ - ┆
0x2c300…2c320 ff ff 04 0a 16 73 66 20 32 0d 0a 50 65 72 66 6f 72 6d 61 6e 63 65 20 4d 65 61 73 75 72 69 6e 67 ┆ sf 2 Performance Measuring┆
0x2c320…2c340 2e 0d 0a 16 53 61 0d 0a 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 20 4d 65 73 73 61 67 65 ┆. Sa Real-Time Pascal Message┆
0x2c340…2c360 73 0d 0a 16 73 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2c 20 63 6f 6d 70 69 6c 65 72 0d ┆s so error messages, compiler ┆
0x2c360…2c380 0a 0d 0a 49 66 20 65 72 72 6f 72 73 20 61 72 65 20 64 65 74 65 63 74 65 64 20 64 75 72 69 6e 67 ┆ If errors are detected during┆
0x2c380…2c3a0 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2c 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 69 6e 69 74 69 ┆ compilation, the compiler initi┆
0x2c3a0…2c3c0 61 6c 69 7a 65 73 20 74 68 65 20 0a 6f 6b 2d 62 69 74 20 74 6f 20 6f 6b 2e 6e 6f 2e 20 0d 0a 0d ┆alizes the ok-bit to ok.no. ┆
0x2c3c0…2c3e0 0a 57 68 65 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 73 20 61 6e 64 20 74 68 65 20 73 6f 75 72 63 ┆ When the contexts and the sourc┆
0x2c3e0…2c400 65 20 69 73 20 73 70 72 65 61 64 20 6f 76 65 72 20 6d 6f 72 65 20 66 69 6c 65 73 2c 20 74 68 65 ┆e is spread over more files, the┆
0x2c400…2c420 20 6c 69 6e 65 20 0a 6e 75 6d 62 65 72 20 69 73 20 73 65 74 20 74 6f 20 30 2c 20 77 68 65 6e 20 ┆ line number is set to 0, when ┆
0x2c420…2c440 61 20 6e 65 77 20 66 69 6c 65 20 66 72 6f 6d 20 74 68 65 20 63 61 6c 6c 20 6c 69 6e 65 20 69 73 ┆a new file from the call line is┆
0x2c440…2c460 20 74 6f 20 62 65 20 63 6f 6d 80 0a 70 69 6c 65 64 2c 20 66 69 6c 65 73 20 69 6e 63 6c 75 64 65 ┆ to be comђ piled, files include┆
0x2c460…2c480 64 20 61 73 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 6e 20 49 4e 43 4c 55 44 45 20 64 69 ┆d as the result of an INCLUDE di┆
0x2c480…2c4a0 72 65 63 74 69 76 65 20 6c 65 61 64 20 6e 6f 74 20 0a 74 6f 20 72 65 73 65 74 74 69 6e 67 20 74 ┆rective lead not to resetting t┆
0x2c4a0…2c4c0 68 65 20 6c 69 6e 65 20 6e 75 6d 62 65 72 2e 20 0d 0a 0d 0a 0d 0a 16 53 42 0d 0a 4d 65 73 73 61 ┆he line number. SB Messa┆
0x2c4c0…2c4e0 67 65 73 20 66 72 6f 6d 20 50 61 73 73 20 31 0d 0a 0d 0a 4d 65 73 73 61 67 65 73 20 66 72 6f 6d ┆ges from Pass 1 Messages from┆
0x2c4e0…2c500 20 70 61 73 73 20 31 20 61 72 65 20 77 61 72 6e 69 6e 67 73 2c 20 65 72 72 6f 72 73 20 61 6e 64 ┆ pass 1 are warnings, errors and┆
0x2c500…2c520 20 66 61 74 61 6c 20 65 72 72 6f 72 73 2e 20 41 6c 6c 20 74 68 72 65 65 20 0a 6b 69 6e 64 73 20 ┆ fatal errors. All three kinds ┆
0x2c520…2c540 61 72 65 20 6d 61 72 6b 65 64 20 77 69 74 68 20 61 6e 20 61 72 72 6f 77 20 62 65 6c 6f 77 20 74 ┆are marked with an arrow below t┆
0x2c540…2c560 68 65 20 74 65 78 74 20 6c 69 6e 65 20 77 68 65 72 65 20 74 68 65 20 65 72 72 6f 72 20 0a 77 61 ┆he text line where the error wa┆
0x2c560…2c580 73 20 64 69 73 63 6f 76 65 72 65 64 2e 20 57 61 72 6e 69 6e 67 73 20 61 72 65 20 67 69 76 65 6e ┆s discovered. Warnings are given┆
0x2c580…2c5a0 20 77 68 65 6e 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 69 73 20 61 62 6c 65 20 74 6f 20 72 65 ┆ when the compiler is able to re┆
0x2c5a0…2c5c0 80 0a 70 61 69 72 20 74 68 65 20 70 72 6f 62 6c 65 6d 2c 20 61 6e 64 20 63 6f 6d 70 69 6c 61 74 ┆ђ pair the problem, and compilat┆
0x2c5c0…2c5e0 69 6f 6e 20 67 6f 65 73 20 6f 6e 2e 20 45 72 72 6f 72 73 20 61 72 65 20 77 6f 72 73 65 20 61 6e ┆ion goes on. Errors are worse an┆
0x2c5e0…2c600 64 20 74 68 65 20 0a 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 73 74 6f 70 73 20 61 66 74 65 72 20 70 ┆d the compilation stops after p┆
0x2c600…2c620 61 73 73 20 31 2e 20 54 68 65 20 66 61 74 61 6c 20 65 72 72 6f 72 73 20 61 72 65 20 77 6f 72 73 ┆ass 1. The fatal errors are wors┆
0x2c620…2c640 74 20 61 6e 64 20 63 6f 6d 80 0a 70 69 6c 61 74 69 6f 6e 20 73 74 6f 70 73 20 69 6d 6d 65 64 69 ┆t and comђ pilation stops immedi┆
0x2c640…2c660 61 74 65 6c 79 2e 0d 0a 0d 0a 54 68 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 3a 0d 0a 20 20 30 ┆ately. The messages are: 0┆
0x2c660…2c680 20 49 6c 6c 65 67 61 6c 20 63 68 61 72 61 63 74 65 72 20 6f 72 20 66 61 74 61 6c 20 65 72 72 6f ┆ Illegal character or fatal erro┆
0x2c680…2c6a0 72 0d 0a 20 20 31 20 49 64 65 6e 74 69 66 69 65 72 20 65 78 70 65 63 74 65 64 0d 0a 20 20 32 20 ┆r 1 Identifier expected 2 ┆
0x2c6a0…2c6c0 27 2e 27 20 65 78 70 65 63 74 65 64 20 28 65 6e 64 20 6f 66 20 70 72 6f 63 65 73 73 2c 20 70 72 ┆'.' expected (end of process, pr┆
0x2c6c0…2c6e0 65 66 69 78 20 6f 72 20 63 6f 6e 74 65 78 74 29 0d 0a 20 20 33 20 27 3b 27 20 65 78 70 65 63 74 ┆efix or context) 3 ';' expect┆
0x2c6e0…2c700 65 64 0d 0a 20 20 34 20 49 64 65 6e 74 69 66 69 65 72 20 65 78 70 65 63 74 65 64 0d 0a 20 20 35 ┆ed 4 Identifier expected 5┆
0x2c700…2c720 20 27 3d 27 20 65 78 70 65 63 74 65 64 0d 0a 20 20 36 20 27 2c 27 20 6f 72 20 27 3a 27 20 65 78 ┆ '=' expected 6 ',' or ':' ex┆
0x2c720…2c740 70 65 63 74 65 64 0d 0a 20 20 37 20 45 72 72 6f 72 20 69 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e ┆pected 7 Error in declaration┆
0x2c740…2c760 0d 0a 20 20 38 20 53 65 74 20 65 6c 65 6d 65 6e 74 20 6f 72 20 27 2e 29 27 20 65 78 70 65 63 74 ┆ 8 Set element or '.)' expect┆
0x2c760…2c780 65 64 0d 0a 20 20 39 20 28 73 74 72 75 63 74 75 72 65 64 29 20 63 6f 6e 73 74 61 6e 74 20 6f 72 ┆ed 9 (structured) constant or┆
0x2c780…2c7a0 20 27 3a 29 27 20 65 78 70 65 63 74 65 64 0d 0a 20 31 30 20 27 28 27 20 65 78 70 65 63 74 65 64 ┆ ':)' expected 10 '(' expected┆
0x2c7a0…2c7c0 0d 0a 20 31 31 20 27 29 27 20 65 78 70 65 63 74 65 64 0d 0a 20 31 32 20 45 72 72 6f 72 20 61 66 ┆ 11 ')' expected 12 Error af┆
0x2c7c0…2c7e0 74 65 72 20 27 26 27 2c 20 73 74 72 69 6e 67 20 6f 72 20 63 68 61 72 61 63 74 65 72 20 63 6f 6e ┆ter '&', string or character con┆
0x2c7e0…2c800 73 74 61 6e 74 20 6e 61 6d 65 20 65 78 70 65 63 74 65 64 0d 0a 20 31 33 20 43 6f 6e 73 74 61 6e ┆stant name expected 13 Constan┆
0x2c800…2c820 74 2c 20 76 61 72 69 61 62 6c 65 20 6f 72 20 27 28 20 3c 65 78 70 72 65 73 73 69 6f 6e 3e 20 29 ┆t, variable or '( <expression> )┆
0x2c820…2c840 27 20 65 78 70 65 63 74 65 64 0d 0a 20 31 34 20 45 78 70 72 65 73 73 69 6f 6e 20 65 78 70 65 63 ┆' expected 14 Expression expec┆
0x2c840…2c860 74 65 64 0d 0a 20 31 35 20 45 78 70 72 65 73 73 69 6f 6e 20 65 78 70 65 63 74 65 64 0d 0a 20 31 ┆ted 15 Expression expected 1┆
0x2c860…2c880 36 20 27 29 27 20 6f 72 20 27 2c 27 20 65 78 70 65 63 74 65 64 0d 0a 20 31 37 20 41 63 74 75 61 ┆6 ')' or ',' expected 17 Actua┆
0x2c880…2c8a0 6c 20 70 61 72 61 6d 65 74 65 72 20 65 78 70 65 63 74 65 64 0d 0a 20 31 38 20 27 3a 29 27 20 6f ┆l parameter expected 18 ':)' o┆
0x2c8a0…2c8c0 72 20 27 2c 27 20 65 78 70 65 63 74 65 64 0d 0a 20 31 39 20 27 2e 29 27 20 6f 72 20 27 2c 27 20 ┆r ',' expected 19 '.)' or ',' ┆
0x2c8c0…2c8e0 65 78 70 65 63 74 65 64 0d 0a 20 32 30 20 49 64 65 6e 74 69 66 69 65 72 20 6f 72 20 27 3f 27 20 ┆expected 20 Identifier or '?' ┆
0x2c8e0…2c900 65 78 70 65 63 74 65 64 0d 0a 20 32 31 20 27 4f 46 27 20 65 78 70 65 63 74 65 64 0d 0a 20 32 32 ┆expected 21 'OF' expected 22┆
0x2c900…2c920 20 27 50 52 4f 47 52 41 4d 27 20 65 78 70 65 63 74 65 64 0d 0a 20 32 33 20 45 78 70 72 65 73 73 ┆ 'PROGRAM' expected 23 Express┆
0x2c920…2c940 69 6f 6e 20 65 78 70 65 63 74 65 64 0d 0a 20 32 34 20 27 2c 27 20 65 78 70 65 63 74 65 64 0d 0a ┆ion expected 24 ',' expected ┆
0x2c940…2c960 20 32 35 20 27 41 52 52 41 59 27 20 6f 72 20 27 52 45 43 4f 52 44 27 20 65 78 70 65 63 74 65 64 ┆ 25 'ARRAY' or 'RECORD' expected┆
0x2c960…2c980 20 61 66 74 65 72 20 27 50 41 43 4b 45 44 27 0d 0a 20 32 36 20 27 2e 2e 27 20 65 78 70 65 63 74 ┆ after 'PACKED' 26 '..' expect┆
0x2c980…2c9a0 65 64 0d 0a 20 32 37 20 27 45 4e 44 27 20 6f 72 20 27 3b 27 20 65 78 70 65 63 74 65 64 0d 0a 20 ┆ed 27 'END' or ';' expected ┆
0x2c9a0…2c9c0 32 38 20 27 3b 27 20 6f 72 20 27 29 27 20 65 78 70 65 63 74 65 64 0d 0a 20 32 39 20 27 3a 27 20 ┆28 ';' or ')' expected 29 ':' ┆
0x2c9c0…2c9e0 65 78 70 65 63 74 65 64 0d 0a 20 33 30 20 27 2e 3c 66 69 65 6c 64 20 6e 61 6d 65 3e 27 20 6f 72 ┆expected 30 '.<field name>' or┆
0x2c9e0…2ca00 20 27 3b 27 20 65 78 70 65 63 74 65 64 0d 0a 20 33 31 20 55 6e 73 69 67 6e 65 64 20 69 6e 74 65 ┆ ';' expected 31 Unsigned inte┆
0x2ca00…2ca20 67 65 72 20 65 78 70 65 63 74 65 64 0d 0a 20 33 32 20 27 42 45 47 49 4e 27 20 65 78 70 65 63 74 ┆ger expected 32 'BEGIN' expect┆
0x2ca20…2ca40 65 64 0d 0a 20 33 33 20 45 72 72 6f 72 20 69 6e 20 46 4f 52 2d 76 61 72 69 61 62 6c 65 20 73 70 ┆ed 33 Error in FOR-variable sp┆
0x2ca40…2ca60 65 63 69 66 69 63 61 74 69 6f 6e 0d 0a 20 33 34 20 27 54 4f 27 20 6f 72 20 27 44 4f 57 4e 54 4f ┆ecification 34 'TO' or 'DOWNTO┆
0x2ca60…2ca80 27 20 65 78 70 65 63 74 65 64 0d 0a 20 33 35 20 45 72 72 6f 72 20 69 6e 20 43 48 41 4e 4e 45 4c ┆' expected 35 Error in CHANNEL┆
0x2ca80…2caa0 2d 20 6f 72 20 52 45 47 49 4f 4e 2d 76 61 72 69 61 62 6c 65 20 73 70 65 63 69 66 69 63 61 74 69 ┆- or REGION-variable specificati┆
0x2caa0…2cac0 6f 6e 0d 0a 20 33 36 20 76 61 72 69 61 62 6c 65 20 64 65 6e 6f 74 61 74 69 6f 6e 20 6f 72 20 27 ┆on 36 variable denotation or '┆
0x2cac0…2cae0 54 4f 27 20 65 78 70 65 63 74 65 64 0d 0a 20 33 37 20 27 44 4f 27 20 65 78 70 65 63 74 65 64 0d ┆TO' expected 37 'DO' expected ┆
0x2cae0…2cb00 0a 20 33 38 20 27 44 4f 27 20 6f 72 20 27 2c 27 20 65 78 70 65 63 74 65 64 0d 0a 20 33 39 20 27 ┆ 38 'DO' or ',' expected 39 '┆
0x2cb00…2cb20 74 68 65 6e 27 20 65 78 70 65 63 74 65 64 0d 0a 20 34 30 20 4c 61 62 65 6c 20 65 78 70 65 63 74 ┆then' expected 40 Label expect┆
0x2cb20…2cb40 65 64 20 28 20 6e 61 6d 65 20 6f 72 20 69 6e 74 65 67 65 72 20 29 0d 0a 20 34 31 20 27 65 6c 73 ┆ed ( name or integer ) 41 'els┆
0x2cb40…2cb60 65 27 20 65 78 70 65 63 74 65 64 0d 0a 20 34 32 20 27 3b 27 2c 20 27 65 6e 64 27 2c 20 6f 72 20 ┆e' expected 42 ';', 'end', or ┆
0x2cb60…2cb80 27 6f 74 68 65 72 77 69 73 65 27 20 65 78 70 65 63 74 65 64 0d 0a 20 34 33 20 27 65 6e 64 27 20 ┆'otherwise' expected 43 'end' ┆
0x2cb80…2cba0 6f 72 20 27 3b 27 20 65 78 70 65 63 74 65 64 0d 0a 20 34 34 20 27 75 6e 74 69 6c 27 20 65 78 70 ┆or ';' expected 44 'until' exp┆
0x2cba0…2cbc0 65 63 74 65 64 0d 0a 20 34 35 20 27 65 6e 64 6c 6f 6f 70 27 20 6f 72 20 27 3b 27 20 65 78 70 65 ┆ected 45 'endloop' or ';' expe┆
0x2cbc0…2cbe0 63 74 65 64 0d 0a 20 34 36 20 45 72 72 6f 72 20 69 6e 20 6c 61 62 65 6c 20 64 65 63 6c 61 72 61 ┆cted 46 Error in label declara┆
0x2cbe0…2cc00 74 69 6f 6e 20 6c 69 73 74 20 20 28 20 27 2c 27 20 6f 72 20 27 3b 27 20 65 78 70 65 63 74 65 64 ┆tion list ( ',' or ';' expected┆
0x2cc00…2cc20 20 29 0d 0a 20 34 37 20 27 3d 27 20 65 78 70 65 63 74 65 64 0d 0a 20 34 38 20 27 3d 27 20 65 78 ┆ ) 47 '=' expected 48 '=' ex┆
0x2cc20…2cc40 70 65 63 74 65 64 0d 0a 20 34 39 20 4f 6e 6c 79 20 70 72 6f 63 65 64 75 72 65 20 6f 72 20 66 75 ┆pected 49 Only procedure or fu┆
0x2cc40…2cc60 6e 63 74 69 6f 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 61 6c 6c 6f 77 65 64 20 69 6e 20 61 20 ┆nction declaration allowed in a ┆
0x2cc60…2cc80 70 72 65 66 69 78 0d 0a 20 35 30 20 45 6e 64 20 6f 66 20 70 72 6f 67 72 61 6d 20 65 78 70 65 63 ┆prefix 50 End of program expec┆
0x2cc80…2cca0 74 65 64 0d 0a 31 30 30 20 45 72 72 6f 72 20 69 6e 20 72 65 61 6c 20 63 6f 6e 73 74 61 6e 74 3a ┆ted 100 Error in real constant:┆
0x2cca0…2ccc0 20 64 69 67 69 74 20 65 78 70 65 63 74 65 64 0d 0a 31 30 31 20 53 74 72 69 6e 67 20 64 69 64 20 ┆ digit expected 101 String did ┆
0x2ccc0…2cce0 6e 6f 74 20 74 65 72 6d 69 6e 61 74 65 20 77 69 74 68 69 6e 20 6c 69 6e 65 0d 0a 31 30 32 20 4c ┆not terminate within line 102 L┆
0x2cce0…2cd00 69 6e 65 20 74 6f 6f 20 6c 6f 6e 67 2c 20 6d 6f 72 65 20 74 68 61 6e 20 31 35 30 20 63 68 61 72 ┆ine too long, more than 150 char┆
0x2cd00…2cd20 61 63 74 65 72 73 2e 0d 0a 31 30 33 20 43 6f 6d 6d 65 6e 74 20 6e 6f 74 20 74 65 72 6d 69 6e 61 ┆acters. 103 Comment not termina┆
0x2cd20…2cd40 74 65 64 0d 0a 31 30 34 20 65 78 70 6f 72 74 20 6b 69 6e 64 20 65 78 70 65 63 74 65 64 20 28 76 ┆ted 104 export kind expected (v┆
0x2cd40…2cd60 61 6c 75 65 2c 20 73 69 7a 65 2c 20 61 64 64 72 65 73 73 2c 20 64 69 73 70 2c 20 6f 72 20 6f 66 ┆alue, size, address, disp, or of┆
0x2cd60…2cd80 66 73 65 74 29 0d 0a 31 30 35 20 6c 6f 63 6b 20 74 79 70 65 20 65 78 70 65 63 74 65 64 0d 0a 31 ┆fset) 105 lock type expected 1┆
0x2cd80…2cda0 30 36 20 27 3a 27 20 6d 65 74 2c 20 63 68 61 6e 67 65 64 20 74 6f 20 27 3d 27 0d 0a 31 30 37 20 ┆06 ':' met, changed to '=' 107 ┆
0x2cda0…2cdc0 53 74 72 69 6e 67 20 74 6f 6f 20 6c 6f 6e 67 2c 20 72 65 6d 61 69 6e 69 6e 67 20 70 61 72 74 20 ┆String too long, remaining part ┆
0x2cdc0…2cde0 6f 66 20 73 74 72 69 6e 67 20 73 6b 69 70 70 65 64 0d 0a 31 30 38 20 84 4e 61 6d 65 20 61 66 74 ┆of string skipped 108 ёName aft┆
0x2cde0…2ce00 65 72 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 28 27 26 27 29 20 69 73 ┆er concatenation symbol ('&') is┆
0x2ce00…2ce20 20 6e 6f 74 20 6e 61 6d 65 20 6f 66 20 63 68 61 72 20 0a 19 84 80 80 63 6f 6e 73 74 61 6e 74 0d ┆ not name of char ёђђconstant ┆
0x2ce20…2ce40 0a 31 30 39 20 45 78 69 74 6c 6f 6f 70 20 6f 72 20 63 6f 6e 74 69 6e 75 65 6c 6f 6f 70 20 73 74 ┆ 109 Exitloop or continueloop st┆
0x2ce40…2ce60 61 74 65 6d 65 6e 74 20 6e 6f 74 20 69 6e 73 69 64 65 20 72 65 70 65 74 69 74 69 76 65 20 73 74 ┆atement not inside repetitive st┆
0x2ce60…2ce80 61 74 65 6d 65 6e 74 0d 0a 31 31 30 20 52 6f 75 74 69 6e 65 73 20 69 6e 20 65 6e 76 69 72 6f 6e ┆atement 110 Routines in environ┆
0x2ce80…2cea0 6d 65 6e 74 20 6d 75 73 74 20 62 65 20 45 58 54 45 52 4e 41 4c 20 64 65 63 6c 61 72 61 74 69 6f ┆ment must be EXTERNAL declaratio┆
0x2cea0…2cec0 6e 73 0d 0a 31 31 31 20 56 41 52 2d 73 65 63 74 69 6f 6e 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 ┆ns 111 VAR-section not allowed ┆
0x2cec0…2cee0 69 6e 20 63 6f 6e 74 65 78 74 73 0d 0a 0d 0a 57 61 72 6e 69 6e 67 73 20 69 6e 20 63 6f 6e 6a 75 ┆in contexts Warnings in conju┆
0x2cee0…2cf00 6e 63 74 69 6f 6e 20 77 69 74 68 20 63 6f 6d 70 69 6c 65 72 20 64 69 72 65 63 74 69 76 65 73 3a ┆nction with compiler directives:┆
0x2cf00…2cf20 0d 0a 2a 2a 2a 20 65 78 70 72 65 73 73 69 6f 6e 20 65 78 70 65 63 74 65 64 0d 0a 2a 2a 2a 20 28 ┆ *** expression expected *** (┆
0x2cf20…2cf40 58 29 4f 52 20 65 78 70 65 63 74 65 64 0d 0a 2a 2a 2a 20 41 4e 44 20 65 78 70 65 63 74 65 64 0d ┆X)OR expected *** AND expected ┆
0x2cf40…2cf60 0a 2a 2a 2a 20 22 29 22 20 65 78 70 65 63 74 65 64 0d 0a 2a 2a 2a 20 22 3d 22 20 65 78 70 65 63 ┆ *** ")" expected *** "=" expec┆
0x2cf60…2cf80 74 65 64 0d 0a 2a 2a 2a 20 73 77 69 74 63 68 20 6e 6f 74 20 64 65 66 69 6e 65 64 2c 20 76 61 6c ┆ted *** switch not defined, val┆
0x2cf80…2cfa0 75 65 20 30 20 61 73 73 75 6d 65 64 0d 0a 2a 2a 2a 20 75 6e 6b 6e 6f 77 6e 20 64 69 72 65 63 74 ┆ue 0 assumed *** unknown direct┆
0x2cfa0…2cfc0 69 76 65 0d 0a 2a 2a 2a 20 76 61 6c 75 65 20 6f 75 74 73 69 64 65 20 72 61 6e 67 65 0d 0a 2a 2a ┆ive *** value outside range **┆
0x2cfc0…2cfe0 2a 20 45 4e 44 49 46 20 77 69 74 68 6f 75 74 20 6d 61 74 63 68 69 6e 67 20 49 46 0d 0a 2a 2a 2a ┆* ENDIF without matching IF ***┆
0x2cfe0…2d000 20 45 4c 53 45 49 46 20 77 69 74 68 6f 75 74 20 6d 61 74 63 68 69 6e 67 20 49 46 0d 0a 2a 2a 2a ┆ ELSEIF without matching IF ***┆
0x2d000…2d020 20 45 4c 53 45 20 77 69 74 68 6f 75 74 20 6d 61 74 63 68 69 6e 67 20 49 46 20 6f 72 20 45 4c 53 ┆ ELSE without matching IF or ELS┆
0x2d020…2d040 45 49 46 0d 0a 0d 0a 45 78 63 65 70 74 20 66 6f 72 20 74 68 65 20 27 6e 6f 74 20 64 65 66 69 6e ┆EIF Except for the 'not defin┆
0x2d040…2d060 65 64 27 20 6d 65 73 73 61 67 65 20 61 6c 6c 20 74 68 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 ┆ed' message all the messages are┆
0x2d060…2d080 20 66 6f 6c 6c 6f 77 65 64 20 0a 62 79 20 74 68 65 20 6c 69 6e 65 3a 0d 0a 2a 2a 2a 20 64 69 72 ┆ followed by the line: *** dir┆
0x2d080…2d0a0 65 63 74 69 76 65 20 6c 69 6e 65 20 73 6b 69 70 70 65 64 0d 0a 0d 0a 0d 0a 54 68 65 20 66 6f 6c ┆ective line skipped The fol┆
0x2d0a0…2d0c0 6c 6f 77 69 6e 67 20 6d 65 73 73 61 67 65 73 20 69 6e 64 69 63 61 74 69 6e 67 20 66 61 74 61 6c ┆lowing messages indicating fatal┆
0x2d0c0…2d0e0 20 65 72 72 6f 72 73 20 6d 61 79 20 61 70 70 65 61 72 20 66 72 6f 6d 20 70 61 73 73 31 20 0a 6f ┆ errors may appear from pass1 o┆
0x2d0e0…2d100 66 20 74 68 65 20 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 20 63 6f 6d 70 69 6c 65 72 2e ┆f the Real-Time Pascal compiler.┆
0x2d100…2d120 20 54 68 65 20 6d 65 73 73 61 67 65 20 77 69 6c 6c 20 62 65 20 70 72 65 63 65 64 65 64 20 62 79 ┆ The message will be preceded by┆
0x2d120…2d140 20 0a 74 68 65 20 6c 69 6e 65 20 6a 75 73 74 20 62 65 69 6e 67 20 70 61 72 73 65 64 20 77 69 74 ┆ the line just being parsed wit┆
0x2d140…2d160 68 20 61 6e 20 69 6e 64 69 63 61 74 69 6f 6e 20 6f 66 20 65 72 72 6f 72 20 6e 75 6d 62 65 72 20 ┆h an indication of error number ┆
0x2d160…2d180 30 20 64 69 73 80 0a 63 6f 76 65 72 65 64 2e 20 0d 0a 0d 0a 45 2e 67 2e 3a 20 0d 0a 0d 0a 39 31 ┆0 disђ covered. E.g.: 91┆
0x2d180…2d1a0 37 20 20 69 66 20 70 72 6f 64 20 3d 20 31 33 30 35 20 20 20 74 68 65 6e 20 20 20 20 20 20 20 0d ┆7 if prod = 1305 then ┆
0x2d1a0…2d1c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5e 88 7c 20 30 20 0d 0a 2a 2a 2a 20 20 ┆ ^ѕ| 0 *** ┆
0x2d1c0…2d1e0 63 6f 6e 73 74 20 27 63 68 62 75 66 6d 61 78 27 20 74 6f 6f 20 73 6d 61 6c 6c 2e 20 0d 0a 0d 0a ┆const 'chbufmax' too small. ┆
0x2d1e0…2d200 8c a5 ba 0a 49 6e 20 63 61 73 65 20 6e 6f 20 6f 74 68 65 72 20 65 72 72 6f 72 73 20 61 72 65 20 ┆їЦ║ In case no other errors are ┆
0x2d200…2d220 64 69 73 63 6f 76 65 72 65 64 20 61 20 66 61 74 61 6c 20 65 72 72 6f 72 20 6d 61 79 20 69 6e 64 ┆discovered a fatal error may ind┆
0x2d220…2d240 69 63 61 74 65 20 74 68 61 74 20 0a 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 6f 66 20 74 68 65 20 63 ┆icate that one or more of the c┆
0x2d240…2d260 6f 6d 70 69 6c 65 72 20 74 61 62 6c 65 73 20 61 72 65 20 69 6e 73 75 66 66 69 63 69 65 6e 74 20 ┆ompiler tables are insufficient ┆
0x2d260…2d280 69 6e 20 73 69 7a 65 2e 20 42 75 74 20 6d 6f 73 74 20 0a 6f 66 74 65 6e 20 74 68 69 73 20 6b 69 ┆in size. But most often this ki┆
0x2d280…2d2a0 6e 64 20 6f 66 20 66 61 74 61 6c 20 65 72 72 6f 72 73 20 61 70 70 65 61 72 20 69 6e 20 63 6f 6e ┆nd of fatal errors appear in con┆
0x2d2a0…2d2c0 73 65 71 75 65 6e 63 65 20 6f 66 20 73 79 6e 74 61 63 74 69 63 61 6c 20 0a 65 72 72 6f 72 73 2c ┆sequence of syntactical errors,┆
0x2d2c0…2d2e0 20 61 6e 64 20 61 66 74 65 72 20 63 6f 72 72 65 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 6d 61 72 ┆ and after correction of the mar┆
0x2d2e0…2d300 6b 65 64 20 65 72 72 6f 72 73 20 74 68 65 20 66 61 74 61 6c 20 65 72 72 6f 72 20 6d 61 79 20 0a ┆ked errors the fatal error may ┆
0x2d300…2d320 64 69 73 61 70 70 65 61 72 2e 20 0d 0a 0d 0a 54 68 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 3a ┆disappear. The messages are:┆
0x2d320…2d340 20 0d 0a 0d 0a 2a 2a 2a 20 70 61 72 73 65 20 73 74 61 63 6b 20 6f 76 65 72 66 6c 6f 77 2e 20 63 ┆ *** parse stack overflow. c┆
0x2d340…2d360 6f 6e 73 74 20 27 73 74 61 63 6b 6d 61 78 27 20 74 6f 6f 20 73 6d 61 6c 6c 20 20 20 20 20 0d 0a ┆onst 'stackmax' too small ┆
0x2d360…2d380 20 20 20 20 50 61 72 73 69 6e 67 20 6f 66 20 61 20 74 6f 6f 20 63 6f 6d 70 6c 69 63 61 74 65 64 ┆ Parsing of a too complicated┆
0x2d380…2d3a0 20 73 79 6e 74 61 63 74 69 63 61 6c 20 63 6f 6e 73 74 72 75 63 74 69 6f 6e 2e 20 0d 0a 0d 0a 2a ┆ syntactical construction. *┆
0x2d3a0…2d3c0 2a 2a 20 65 6e 64 20 6f 66 20 66 69 6c 65 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 20 20 20 20 0d ┆** end of file encountered ┆
0x2d3c0…2d3e0 0a 20 20 20 20 84 49 6e 70 75 74 20 65 78 68 61 75 73 74 65 64 20 62 65 66 6f 72 65 20 74 68 65 ┆ ёInput exhausted before the┆
0x2d3e0…2d400 20 70 61 72 73 69 6e 67 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 2f 70 72 65 66 69 78 20 68 ┆ parsing of the program/prefix h┆
0x2d400…2d420 61 73 20 62 65 80 0a 19 84 80 80 65 6e 20 73 75 63 63 65 73 73 66 75 6c 2e 20 0d 0a 0d 0a 2a 2a ┆as beђ ёђђen successful. **┆
0x2d420…2d440 2a 20 72 65 63 6f 76 65 72 79 20 61 62 61 6e 64 6f 6e 65 64 20 20 20 20 20 0d 0a 20 20 20 20 54 ┆* recovery abandoned T┆
0x2d440…2d460 68 65 20 65 72 72 6f 72 20 72 65 63 6f 76 65 72 79 20 77 61 73 20 75 6e 73 75 63 63 65 73 73 66 ┆he error recovery was unsuccessf┆
0x2d460…2d480 75 6c 2e 20 0d 0a 0d 0a 2a 2a 2a 20 72 65 64 75 63 74 69 6f 6e 20 62 75 66 66 65 72 20 6f 76 65 ┆ul. *** reduction buffer ove┆
0x2d480…2d4a0 72 66 6c 6f 77 2e 20 63 6f 6e 73 74 20 27 72 65 64 75 6d 61 78 27 20 74 6f 6f 20 73 6d 61 6c 6c ┆rflow. const 'redumax' too small┆
0x2d4a0…2d4c0 20 20 20 20 20 0d 0a 20 20 20 20 50 61 72 73 69 6e 67 20 6f 66 20 61 20 74 6f 6f 20 63 6f 6d 70 ┆ Parsing of a too comp┆
0x2d4c0…2d4e0 6c 69 63 61 74 65 64 20 73 79 6e 74 61 63 74 69 63 61 6c 20 63 6f 6e 73 74 72 75 63 74 69 6f 6e ┆licated syntactical construction┆
0x2d4e0…2d500 2e 20 0d 0a 0d 0a 2a 2a 2a 20 63 6f 6e 73 74 20 27 73 74 72 69 6e 67 6d 61 78 27 20 74 6f 6f 20 ┆. *** const 'stringmax' too ┆
0x2d500…2d520 73 6d 61 6c 6c 20 20 20 20 20 0d 0a 20 20 20 20 4c 69 74 65 72 61 6c 20 74 65 78 74 20 73 74 72 ┆small Literal text str┆
0x2d520…2d540 69 6e 67 20 74 6f 6f 20 6c 6f 6e 67 2e 20 0d 0a 0d 0a 2a 2a 2a 20 63 6f 6e 73 74 20 27 63 68 62 ┆ing too long. *** const 'chb┆
0x2d540…2d560 75 66 6d 61 78 27 20 74 6f 6f 20 73 6d 61 6c 6c 20 20 20 20 20 0d 0a 20 20 20 20 50 61 72 73 69 ┆ufmax' too small Parsi┆
0x2d560…2d580 6e 67 20 6f 66 20 61 20 74 6f 6f 20 63 6f 6d 70 6c 69 63 61 74 65 64 20 73 79 6e 74 61 63 74 69 ┆ng of a too complicated syntacti┆
0x2d580…2d5a0 63 61 6c 20 63 6f 6e 73 74 72 75 63 74 69 6f 6e 2e 20 0d 0a 0d 0a 2a 2a 2a 20 63 6f 6e 73 74 20 ┆cal construction. *** const ┆
0x2d5a0…2d5c0 27 74 79 70 65 62 75 66 66 65 72 73 69 7a 65 27 20 74 6f 6f 20 73 6d 61 6c 6c 20 20 20 20 20 0d ┆'typebuffersize' too small ┆
0x2d5c0…2d5e0 0a 20 20 20 20 54 6f 6f 20 63 6f 6d 70 6c 69 63 61 74 65 64 20 74 79 70 65 20 64 65 66 69 6e 69 ┆ Too complicated type defini┆
0x2d5e0…2d600 74 69 6f 6e 2e 20 0d 0a 0d 0a 0d 0a 16 53 42 0d 0a 4d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 50 ┆tion. SB Messages from P┆
0x2d600…2d620 61 73 73 20 33 0d 0a 0d 0a 45 72 72 6f 72 20 6d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 70 61 73 ┆ass 3 Error messages from pas┆
0x2d620…2d640 73 20 33 20 68 61 76 65 20 74 68 65 20 66 6f 72 6d 61 74 3a 20 0d 0a 0d 0a 2a 2a 2a 20 70 61 73 ┆s 3 have the format: *** pas┆
0x2d640…2d660 73 20 33 20 6c 69 6e 65 20 3c 6c 69 6e 65 6e 6f 3e 2e 3c 6f 70 65 72 61 6e 64 20 6e 6f 3e 20 3c ┆s 3 line <lineno>.<operand no> <┆
0x2d660…2d680 6b 69 6e 64 3e 20 3c 65 72 72 6f 72 20 6e 6f 3e 20 28 2c 20 69 6e 20 65 6e 80 0a 76 69 72 6f 6e ┆kind> <error no> (, in enђ viron┆
0x2d680…2d6a0 6d 65 6e 74 20 27 3c 65 6e 76 2e 20 6e 61 6d 65 3e 27 29 20 28 3a 20 27 3c 6e 61 6d 65 3e 27 29 ┆ment '<env. name>') (: '<name>')┆
0x2d6a0…2d6c0 0d 0a 0d 0a 77 68 65 72 65 3a 20 0d 0a 0d 0a 3c 6c 69 6e 65 6e 6f 3e 20 69 73 20 74 68 65 20 6c ┆ where: <lineno> is the l┆
0x2d6c0…2d6e0 69 6e 65 20 6e 75 6d 62 65 72 20 77 68 65 72 65 20 74 68 65 20 65 72 72 6f 72 20 69 73 20 64 65 ┆ine number where the error is de┆
0x2d6e0…2d700 74 65 63 74 65 64 2c 20 0d 0a 0d 0a 3c 6f 70 65 72 61 6e 64 20 6e 6f 3e 20 67 69 76 65 73 20 61 ┆tected, <operand no> gives a┆
0x2d700…2d720 20 68 69 6e 74 20 6f 66 20 77 68 65 72 65 20 69 6e 20 74 68 65 20 6c 69 6e 65 20 74 68 65 20 65 ┆ hint of where in the line the e┆
0x2d720…2d740 72 72 6f 72 20 77 61 73 2e 20 0d 0a 0d 0a 4f 70 65 72 61 6e 64 73 20 61 72 65 3a 20 69 64 65 6e ┆rror was. Operands are: iden┆
0x2d740…2d760 74 69 66 69 65 72 73 20 61 6e 64 20 6e 75 6d 62 65 72 73 2e 20 28 4e 6f 74 65 3a 20 54 68 65 20 ┆tifiers and numbers. (Note: The ┆
0x2d760…2d780 65 6d 70 74 79 20 73 65 74 20 64 6f 65 73 20 6e 6f 74 20 0a 63 6f 75 6e 74 29 2e 20 0d 0a 0d 0a ┆empty set does not count). ┆
0x2d780…2d7a0 46 69 72 73 74 20 6f 70 65 72 61 6e 64 20 69 6e 20 61 20 6c 69 6e 65 20 68 61 73 20 6e 75 6d 62 ┆First operand in a line has numb┆
0x2d7a0…2d7c0 65 72 20 31 2e 20 28 4e 6f 74 65 3a 20 49 66 20 3c 6f 70 65 72 61 6e 64 20 6e 6f 3e 20 69 73 20 ┆er 1. (Note: If <operand no> is ┆
0x2d7c0…2d7e0 30 2c 20 0a 74 68 65 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 62 65 66 6f 72 65 20 74 68 ┆0, the error occurred before th┆
0x2d7e0…2d800 65 20 66 69 72 73 74 20 6f 70 65 72 61 6e 64 20 69 6e 20 74 68 65 20 6c 69 6e 65 2c 20 6d 61 79 ┆e first operand in the line, may┆
0x2d800…2d820 62 65 20 65 76 65 6e 20 69 6e 20 0a 74 68 65 20 6c 61 73 74 20 70 61 72 74 20 6f 66 20 74 68 65 ┆be even in the last part of the┆
0x2d820…2d840 20 70 72 65 76 69 6f 75 73 20 6c 69 6e 65 29 2e 20 0d 0a 0d 0a 3c 6b 69 6e 64 3e 20 69 6e 64 69 ┆ previous line). <kind> indi┆
0x2d840…2d860 63 61 74 65 73 20 77 68 65 74 68 65 72 20 69 74 20 69 73 20 61 20 77 61 72 6e 69 6e 67 20 6f 72 ┆cates whether it is a warning or┆
0x2d860…2d880 20 61 6e 20 65 72 72 6f 72 2e 0d 0a 0d 0a 3c 65 72 72 6f 72 20 6e 6f 3e 20 69 6e 64 69 63 61 74 ┆ an error. <error no> indicat┆
0x2d880…2d8a0 65 73 20 77 68 69 63 68 20 65 72 72 6f 72 20 77 61 73 20 64 69 73 63 6f 76 65 72 65 64 2e 20 41 ┆es which error was discovered. A┆
0x2d8a0…2d8c0 20 6c 69 73 74 20 6f 66 20 65 72 72 6f 72 20 0a 64 65 73 63 72 69 70 74 69 6f 6e 73 20 66 6f 6c ┆ list of error descriptions fol┆
0x2d8c0…2d8e0 6c 6f 77 73 20 74 68 65 20 65 72 72 6f 72 20 69 6e 64 69 63 61 74 69 6f 6e 73 2e 20 0d 0a 0d 0a ┆lows the error indications. ┆
0x2d8e0…2d900 3c 65 6e 76 2e 20 6e 61 6d 65 3e 20 69 73 2c 20 69 66 20 70 72 65 73 65 6e 74 2c 20 74 68 65 20 ┆<env. name> is, if present, the ┆
0x2d900…2d920 6e 61 6d 65 20 6f 66 20 74 68 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 77 68 65 72 65 20 74 68 ┆name of the environment where th┆
0x2d920…2d940 65 20 0a 65 72 72 6f 72 20 69 73 20 66 6f 75 6e 64 2e 0d 0a 0d 0a 3c 6e 61 6d 65 3e 20 69 73 2c ┆e error is found. <name> is,┆
0x2d940…2d960 20 69 66 20 70 72 65 73 65 6e 74 2c 20 74 68 65 20 6e 61 6d 65 20 28 6f 72 20 74 68 65 20 74 79 ┆ if present, the name (or the ty┆
0x2d960…2d980 70 65 20 6e 61 6d 65 29 20 6f 66 20 74 68 65 20 69 64 65 6e 74 69 66 69 65 72 20 0a 77 68 69 63 ┆pe name) of the identifier whic┆
0x2d980…2d9a0 68 20 63 61 75 73 65 64 20 74 68 65 20 65 72 72 6f 72 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 20 ┆h caused the error. For example ┆
0x2d9a0…2d9c0 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 6e 20 75 6e 64 65 63 6c 61 72 65 64 20 69 64 65 6e 80 0a ┆the name of an undeclared idenђ ┆
0x2d9c0…2d9e0 74 69 66 69 65 72 2e 20 0d 0a 0d 0a 8c 8b e8 0a 54 68 65 20 65 72 72 6f 72 20 64 65 73 63 72 69 ┆tifier. їІУ The error descri┆
0x2d9e0…2da00 70 74 69 6f 6e 73 20 61 72 65 3a 20 0d 0a 0d 0a 20 20 20 31 20 3d 20 20 20 69 64 65 6e 74 69 66 ┆ptions are: 1 = identif┆
0x2da00…2da20 69 65 72 20 6e 6f 74 20 64 65 63 6c 61 72 65 64 20 0d 0a 20 20 20 32 20 3d 20 20 20 69 64 65 6e ┆ier not declared 2 = iden┆
0x2da20…2da40 74 69 66 69 65 72 20 75 73 65 64 20 62 65 66 6f 72 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 0d ┆tifier used before declaration ┆
0x2da40…2da60 0a 20 20 20 33 20 3d 20 20 20 69 64 65 6e 74 69 66 69 65 72 20 61 6c 72 65 61 64 79 20 64 65 63 ┆ 3 = identifier already dec┆
0x2da60…2da80 6c 61 72 65 64 20 61 74 20 74 68 69 73 20 6c 65 76 65 6c 20 0d 0a 20 20 20 34 20 3d 20 20 20 6c ┆lared at this level 4 = l┆
0x2da80…2daa0 61 62 65 6c 2d 69 64 65 6e 74 69 66 69 65 72 20 6e 6f 74 20 64 65 63 6c 61 72 65 64 20 61 74 20 ┆abel-identifier not declared at ┆
0x2daa0…2dac0 61 6c 6c 20 0d 0a 20 20 20 35 20 3d 20 20 20 6f 74 68 65 72 20 69 64 65 6e 74 69 66 69 65 72 20 ┆all 5 = other identifier ┆
0x2dac0…2dae0 75 73 65 64 20 61 73 20 6c 61 62 65 6c 2d 6e 61 6d 65 20 0d 0a 20 20 20 36 20 3d 20 20 20 6c 61 ┆used as label-name 6 = la┆
0x2dae0…2db00 62 65 6c 20 64 65 66 69 6e 65 64 20 73 65 76 65 72 61 6c 20 74 69 6d 65 73 20 61 74 20 74 68 69 ┆bel defined several times at thi┆
0x2db00…2db20 73 20 6c 65 76 65 6c 20 0d 0a 20 20 20 37 20 3d 20 20 20 6c 61 62 65 6c 2d 69 64 65 6e 74 69 66 ┆s level 7 = label-identif┆
0x2db20…2db40 69 65 72 20 64 65 63 6c 61 72 65 64 20 61 74 20 73 75 72 72 6f 75 6e 64 69 6e 67 20 6c 65 76 65 ┆ier declared at surrounding leve┆
0x2db40…2db60 6c 20 0d 0a 20 20 20 38 20 3d 20 20 20 75 73 65 20 6f 66 20 61 20 6d 75 6c 74 69 70 6c 65 20 64 ┆l 8 = use of a multiple d┆
0x2db60…2db80 65 66 69 6e 65 64 20 6c 61 62 65 6c 20 0d 0a 20 20 20 39 20 3d 20 20 20 61 20 6c 61 62 65 6c 2d ┆efined label 9 = a label-┆
0x2db80…2dba0 69 64 65 6e 74 20 68 61 73 20 62 65 65 6e 20 75 73 65 64 20 69 6e 20 69 6e 6e 65 72 20 72 6f 75 ┆ident has been used in inner rou┆
0x2dba0…2dbc0 74 69 6e 65 20 0d 0a 20 20 31 30 20 3d 20 20 20 67 6f 74 6f 20 6c 65 61 64 69 6e 67 20 69 6e 74 ┆tine 10 = goto leading int┆
0x2dbc0…2dbe0 6f 20 63 6f 6e 74 72 6f 6c 2d 73 74 72 75 63 74 75 72 65 20 0d 0a 20 20 31 31 20 3d 20 20 20 67 ┆o control-structure 11 = g┆
0x2dbe0…2dc00 6f 74 6f 20 6f 75 74 20 6f 66 20 6c 6f 63 6b 2d 20 6f 72 20 63 68 61 6e 6e 65 6c 20 73 74 61 74 ┆oto out of lock- or channel stat┆
0x2dc00…2dc20 65 6d 65 6e 74 73 20 0d 0a 20 20 31 32 20 3d 20 20 20 6c 61 62 65 6c 20 69 73 20 6e 6f 74 20 64 ┆ements 12 = label is not d┆
0x2dc20…2dc40 65 66 69 6e 65 64 20 0d 0a 20 20 31 33 20 3d 20 20 20 69 64 65 6e 74 69 66 69 65 72 20 69 73 20 ┆efined 13 = identifier is ┆
0x2dc40…2dc60 6e 6f 74 20 61 20 74 79 70 65 2d 69 64 65 6e 74 69 66 69 65 72 20 0d 0a 20 20 31 34 20 3d 20 20 ┆not a type-identifier 14 = ┆
0x2dc60…2dc80 20 6f 62 6a 65 63 74 20 69 73 20 6e 6f 74 20 6f 66 20 70 61 72 61 6d 65 74 65 72 69 7a 65 64 20 ┆ object is not of parameterized ┆
0x2dc80…2dca0 74 79 70 65 20 0d 0a 20 20 31 35 20 3d 20 20 20 6e 6f 74 20 70 61 72 61 6d 65 74 65 72 20 6e 61 ┆type 15 = not parameter na┆
0x2dca0…2dcc0 6d 65 20 6f 66 20 6f 62 6a 65 63 74 73 20 74 79 70 65 20 0d 0a 20 20 31 36 20 3d 20 20 20 75 6e ┆me of objects type 16 = un┆
0x2dcc0…2dce0 62 6f 75 6e 64 20 70 61 72 61 6d 65 74 65 72 69 7a 65 64 20 74 79 70 65 20 6e 6f 74 20 69 6d 70 ┆bound parameterized type not imp┆
0x2dce0…2dd00 6c 65 6d 65 6e 74 65 64 20 0d 0a 20 20 31 37 20 3d 20 20 20 84 75 6e 62 6f 75 6e 64 20 70 61 72 ┆lemented 17 = ёunbound par┆
0x2dd00…2dd20 61 6d 65 74 65 72 69 7a 65 64 20 74 79 70 65 20 6f 6e 6c 79 20 61 6c 6c 6f 77 65 64 20 61 73 20 ┆ameterized type only allowed as ┆
0x2dd20…2dd40 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 80 0a 19 89 80 80 74 65 72 20 74 79 70 65 20 0d 0a 20 20 ┆formal parameђ Ѕђђter type ┆
0x2dd40…2dd60 31 38 20 3d 20 20 20 3a 3d 20 61 73 73 75 6d 65 64 20 62 65 74 77 65 65 6e 20 74 79 70 65 20 61 ┆18 = := assumed between type a┆
0x2dd60…2dd80 6e 64 20 28 3a 20 0d 0a 20 20 31 39 20 3d 20 20 20 74 79 70 65 20 6f 66 20 73 74 72 75 63 74 75 ┆nd (: 19 = type of structu┆
0x2dd80…2dda0 72 65 64 20 63 6f 6e 73 74 61 6e 74 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 20 0d 0a 20 20 32 ┆red constant not specified 2┆
0x2dda0…2ddc0 30 20 3d 20 20 20 28 3a 20 65 78 70 65 63 74 65 64 20 61 66 74 65 72 20 74 79 70 65 20 6e 61 6d ┆0 = (: expected after type nam┆
0x2ddc0…2dde0 65 20 0d 0a 20 20 32 31 20 3d 20 20 20 65 72 72 6f 72 20 69 6e 20 72 65 63 6f 72 64 20 6f 72 20 ┆e 21 = error in record or ┆
0x2dde0…2de00 61 72 72 61 79 20 65 74 63 2e 20 0d 0a 20 20 32 32 20 3d 20 20 20 63 6f 6e 73 74 61 6e 74 20 69 ┆array etc. 22 = constant i┆
0x2de00…2de20 73 20 75 73 65 64 20 69 6e 20 69 74 73 20 6f 77 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 65 78 70 ┆s used in its own definition-exp┆
0x2de20…2de40 72 65 73 73 69 6f 6e 20 0d 0a 20 20 32 33 20 3d 20 20 20 70 6f 6f 6c 20 2e 2e 2e 20 6f 66 20 3c ┆ression 23 = pool ... of <┆
0x2de40…2de60 69 6c 6c 65 67 61 6c 20 74 79 70 65 3e 2c 20 73 68 69 65 6c 64 65 64 20 63 6f 6d 70 6f 6e 65 6e ┆illegal type>, shielded componen┆
0x2de60…2de80 74 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 0d 0a 20 20 32 34 20 3d 20 20 20 69 6c 6c 65 67 61 ┆ts not allowed 24 = illega┆
0x2de80…2dea0 6c 20 73 69 7a 65 27 69 6e 67 20 6f 66 20 70 6f 6f 6c 20 74 79 70 65 20 0d 0a 20 20 32 35 20 3d ┆l size'ing of pool type 25 =┆
0x2dea0…2dec0 20 20 20 69 6c 6c 65 67 61 6c 20 6c 69 6d 69 74 2d 74 79 70 65 73 20 69 6e 20 73 75 62 72 61 6e ┆ illegal limit-types in subran┆
0x2dec0…2dee0 67 65 20 64 65 66 20 0d 0a 20 20 32 36 20 3d 20 20 20 72 65 64 65 66 69 6e 69 74 69 6f 6e 20 6f ┆ge def 26 = redefinition o┆
0x2dee0…2df00 66 20 6f 62 6a 65 63 74 20 0d 0a 20 20 32 37 20 3d 20 20 20 84 6d 61 69 6c 62 6f 78 2c 20 63 68 ┆f object 27 = ёmailbox, ch┆
0x2df00…2df20 61 69 6e 2c 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 67 72 61 6d 20 61 6e 64 20 70 6f 6f 6c 20 6d ┆ain, external program and pool m┆
0x2df20…2df40 61 79 20 6f 6e 6c 79 20 62 65 20 64 65 80 0a 19 89 80 80 63 6c 61 72 65 64 20 61 74 20 70 72 6f ┆ay only be deђ Ѕђђclared at pro┆
0x2df40…2df60 67 72 61 6d 20 6c 65 76 65 6c 20 0d 0a 20 20 32 38 20 3d 20 20 20 70 72 6f 67 72 61 6d 73 20 69 ┆gram level 28 = programs i┆
0x2df60…2df80 6e 73 69 64 65 20 66 75 6e 63 74 69 6f 6e 73 2f 70 72 6f 63 65 64 75 72 65 73 20 66 6f 72 62 69 ┆nside functions/procedures forbi┆
0x2df80…2dfa0 64 64 65 6e 20 0d 0a 20 20 32 39 20 3d 20 20 20 66 6f 72 6d 61 6c 20 74 79 70 65 20 6d 61 79 20 ┆dden 29 = formal type may ┆
0x2dfa0…2dfc0 6e 6f 74 20 62 65 20 75 73 65 64 20 69 6e 20 74 68 69 73 20 63 6f 6e 74 65 78 74 20 0d 0a 20 20 ┆not be used in this context ┆
0x2dfc0…2dfe0 33 30 20 3d 20 20 20 66 75 6e 63 74 69 6f 6e 74 79 70 65 20 6d 61 79 20 6e 6f 74 20 63 6f 6e 74 ┆30 = functiontype may not cont┆
0x2dfe0…2e000 61 69 6e 20 73 68 69 65 6c 64 65 64 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 0d 0a 20 20 33 31 20 3d ┆ain shielded components 31 =┆
0x2e000…2e020 20 20 20 6f 6e 6c 79 20 76 61 72 69 61 62 6c 65 73 20 6f 66 20 73 75 72 72 6f 75 6e 64 69 6e 67 ┆ only variables of surrounding┆
0x2e020…2e040 20 73 63 6f 70 65 20 61 6c 6c 6f 77 65 64 20 0d 0a 20 20 33 32 20 3d 20 20 20 63 61 6c 6c 20 6f ┆ scope allowed 32 = call o┆
0x2e040…2e060 66 20 66 75 6e 63 74 69 6f 6e 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 69 6e 20 65 6e 76 69 72 6f ┆f function not allowed in enviro┆
0x2e060…2e080 6e 6d 65 6e 74 20 0d 0a 20 20 33 33 20 3d 20 20 20 27 6e 65 77 27 20 70 61 72 61 6d 6c 69 73 74 ┆nment 33 = 'new' paramlist┆
0x2e080…2e0a0 20 6d 61 79 20 62 65 20 65 6d 70 74 79 20 6f 72 20 65 78 61 63 74 20 74 68 65 20 73 61 6d 65 20 ┆ may be empty or exact the same ┆
0x2e0a0…2e0c0 0d 0a 20 20 33 34 20 3d 20 20 20 66 6f 72 77 61 72 64 2d 64 65 63 6c 61 72 65 64 20 74 79 70 65 ┆ 34 = forward-declared type┆
0x2e0c0…2e0e0 2f 72 6f 75 74 69 6e 65 20 6e 6f 74 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 20 72 65 61 ┆/routine not followed by the rea┆
0x2e0e0…2e100 6c 20 62 6f 64 79 20 0d 0a 20 20 33 35 20 3d 20 20 20 66 75 6e 63 74 69 6f 6e 2d 76 61 6c 75 65 ┆l body 35 = function-value┆
0x2e100…2e120 20 68 61 73 20 6e 6f 74 20 62 65 65 6e 20 64 65 66 69 6e 65 64 20 61 74 20 61 6c 6c 20 0d 0a 20 ┆ has not been defined at all ┆
0x2e120…2e140 20 33 36 20 3d 20 20 20 6c 6f 63 6b 74 79 70 65 20 63 6f 6e 74 61 69 6e 73 20 70 6f 69 6e 74 65 ┆ 36 = locktype contains pointe┆
0x2e140…2e160 72 2d 74 79 70 65 73 20 0d 0a 20 20 33 37 20 3d 20 20 20 6c 6f 63 6b 2d 2f 77 69 74 68 2d 74 79 ┆r-types 37 = lock-/with-ty┆
0x2e160…2e180 70 65 20 63 6f 6e 74 61 69 6e 73 20 73 68 69 65 6c 64 65 64 20 63 6f 6d 70 6f 6e 65 6e 74 28 73 ┆pe contains shielded component(s┆
0x2e180…2e1a0 29 20 0d 0a 20 20 33 38 20 3d 20 20 20 6f 70 65 72 61 6e 64 73 20 6e 6f 74 20 6f 66 20 73 61 6d ┆) 38 = operands not of sam┆
0x2e1a0…2e1c0 65 20 74 79 70 65 6e 61 6d 65 20 0d 0a 20 20 33 39 20 3d 20 20 20 66 6f 72 2d 76 61 72 69 61 62 ┆e typename 39 = for-variab┆
0x2e1c0…2e1e0 6c 65 2f 73 74 61 72 74 76 61 6c 75 65 2f 65 6e 64 76 61 6c 75 65 20 6e 6f 74 20 6f 66 20 63 6f ┆le/startvalue/endvalue not of co┆
0x2e1e0…2e200 6d 70 61 74 69 62 6c 65 20 74 79 70 65 73 20 0d 0a 20 20 34 30 20 3d 20 20 20 63 61 73 65 2d 65 ┆mpatible types 40 = case-e┆
0x2e200…2e220 78 70 72 65 73 73 69 6f 6e 2f 63 61 73 65 6c 61 62 65 6c 73 20 6e 6f 74 20 6f 66 20 63 6f 6d 70 ┆xpression/caselabels not of comp┆
0x2e220…2e240 61 74 69 62 6c 65 20 74 79 70 65 73 20 0d 0a 20 20 34 31 20 3d 20 20 20 69 66 2d 65 78 70 72 65 ┆atible types 41 = if-expre┆
0x2e240…2e260 73 73 69 6f 6e 20 6d 75 73 74 20 62 65 20 62 6f 6f 6c 65 61 6e 20 74 79 70 65 20 0d 0a 20 20 34 ┆ssion must be boolean type 4┆
0x2e260…2e280 32 20 3d 20 20 20 75 6e 74 69 6c 2d 65 78 70 72 65 73 73 69 6f 6e 20 6d 75 73 74 20 62 65 20 62 ┆2 = until-expression must be b┆
0x2e280…2e2a0 6f 6f 6c 65 61 6e 20 74 79 70 65 20 0d 0a 20 20 34 33 20 3d 20 20 20 77 68 69 6c 65 2d 65 78 70 ┆oolean type 43 = while-exp┆
0x2e2a0…2e2c0 72 65 73 73 69 6f 6e 20 6d 75 73 74 20 62 65 20 62 6f 6f 6c 65 61 6e 20 74 79 70 65 20 0d 0a 20 ┆ression must be boolean type ┆
0x2e2c0…2e2e0 20 34 34 20 3d 20 20 20 73 68 6f 72 74 20 66 6f 72 6d 20 6f 66 20 6d 75 6c 74 69 70 6c 65 20 6c ┆ 44 = short form of multiple l┆
0x2e2e0…2e300 6f 63 6b 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 0d 0a 20 20 34 35 20 3d 20 20 20 62 75 66 66 ┆ocks not allowed 45 = buff┆
0x2e300…2e320 65 72 20 6e 61 6d 65 20 6d 69 73 73 69 6e 67 20 69 6e 20 6c 6f 63 6b 20 73 74 61 74 65 6d 65 6e ┆er name missing in lock statemen┆
0x2e320…2e340 74 20 0d 0a 20 20 34 36 20 3d 20 20 20 62 75 66 66 65 72 20 74 79 70 65 20 73 70 65 63 69 66 69 ┆t 46 = buffer type specifi┆
0x2e340…2e360 63 61 74 69 6f 6e 20 69 73 20 6d 69 73 73 69 6e 67 20 0d 0a 20 20 34 37 20 3d 20 20 20 6c 6f 63 ┆cation is missing 47 = loc┆
0x2e360…2e380 6b 2d 76 61 72 69 61 62 6c 65 20 6d 75 73 74 20 62 65 20 72 65 66 65 72 65 6e 63 65 20 74 79 70 ┆k-variable must be reference typ┆
0x2e380…2e3a0 65 20 0d 0a 20 20 34 38 20 3d 20 20 20 63 68 61 6e 6e 65 6c 2d 76 61 72 69 61 62 6c 65 20 6d 75 ┆e 48 = channel-variable mu┆
0x2e3a0…2e3c0 73 74 20 62 65 20 72 65 66 65 72 65 6e 63 65 20 74 79 70 65 20 0d 0a 20 20 34 39 20 3d 20 20 20 ┆st be reference type 49 = ┆
0x2e3c0…2e3e0 74 79 70 65 20 6f 66 20 6f 70 65 72 61 6e 64 20 6d 75 73 74 20 62 65 20 65 6e 75 6d 65 72 61 74 ┆type of operand must be enumerat┆
0x2e3e0…2e400 69 6f 6e 2d 74 79 70 65 20 0d 0a 20 20 35 30 20 3d 20 20 20 76 61 72 73 69 7a 65 63 61 6c 6c 3a ┆ion-type 50 = varsizecall:┆
0x2e400…2e420 20 69 64 65 6e 74 69 66 69 65 72 20 69 73 20 6e 6f 74 20 6e 61 6d 65 20 6f 66 20 61 20 76 61 72 ┆ identifier is not name of a var┆
0x2e420…2e440 69 61 62 6c 65 20 0d 0a 20 20 35 31 20 3d 20 20 20 6f 70 65 72 61 6e 64 20 63 61 6e 6e 6f 74 20 ┆iable 51 = operand cannot ┆
0x2e440…2e460 62 65 20 75 73 65 64 20 61 73 20 76 61 72 69 61 62 6c 65 20 0d 0a 20 20 35 32 20 3d 20 20 20 3c ┆be used as variable 52 = <┆
0x2e460…2e480 76 61 72 69 61 62 6c 65 3e 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 3c 2e 3e 20 69 73 20 6e 6f 74 ┆variable> in front of <.> is not┆
0x2e480…2e4a0 20 61 20 72 65 63 6f 72 64 20 0d 0a 20 20 35 33 20 3d 20 20 20 3c 6e 61 6d 65 3e 20 61 66 74 65 ┆ a record 53 = <name> afte┆
0x2e4a0…2e4c0 72 20 3c 2e 3e 20 69 73 20 6e 6f 74 20 61 20 66 69 65 6c 64 6e 61 6d 65 20 6f 66 20 3c 76 61 72 ┆r <.> is not a fieldname of <var┆
0x2e4c0…2e4e0 69 61 62 6c 65 3e 20 0d 0a 20 20 35 34 20 3d 20 20 20 6f 70 65 72 61 6e 64 20 69 73 20 6e 6f 74 ┆iable> 54 = operand is not┆
0x2e4e0…2e500 20 61 20 53 48 41 52 45 44 20 6f 62 6a 65 63 74 20 6e 61 6d 65 20 0d 0a 20 20 35 35 20 3d 20 20 ┆ a SHARED object name 55 = ┆
0x2e500…2e520 20 3c 76 61 72 69 61 62 6c 65 3e 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 3c 75 70 61 72 72 6f 77 ┆ <variable> in front of <uparrow┆
0x2e520…2e540 3e 20 69 73 20 6e 6f 74 20 61 20 70 6f 69 6e 74 65 72 20 0d 0a 20 20 35 36 20 3d 20 20 20 65 6c ┆> is not a pointer 56 = el┆
0x2e540…2e560 65 6d 65 6e 74 73 20 69 6e 20 73 65 74 2d 76 61 6c 75 65 20 6d 61 79 20 6e 6f 74 20 62 65 20 6f ┆ements in set-value may not be o┆
0x2e560…2e580 66 20 6d 69 78 65 64 20 74 79 70 65 73 20 0d 0a 20 20 35 37 20 3d 20 20 20 69 6c 6c 65 67 61 6c ┆f mixed types 57 = illegal┆
0x2e580…2e5a0 20 6d 69 78 74 75 72 65 20 6f 66 20 74 79 70 65 73 20 69 6e 20 72 65 6c 61 74 69 6f 6e 20 0d 0a ┆ mixture of types in relation ┆
0x2e5a0…2e5c0 20 20 35 38 20 3d 20 20 20 69 6c 6c 65 67 61 6c 20 6d 69 78 74 75 72 65 20 6f 66 20 74 79 70 65 ┆ 58 = illegal mixture of type┆
0x2e5c0…2e5e0 73 20 69 6e 20 74 65 72 6d 20 6f 72 20 66 61 63 74 6f 72 20 0d 0a 20 20 35 39 20 3d 20 20 20 69 ┆s in term or factor 59 = i┆
0x2e5e0…2e600 6c 6c 65 67 61 6c 20 74 79 70 65 20 66 6f 72 20 6d 6f 6e 61 64 69 63 20 6f 70 65 72 61 74 6f 72 ┆llegal type for monadic operator┆
0x2e600…2e620 20 0d 0a 20 20 36 30 20 3d 20 20 20 72 65 61 6c 20 6f 63 63 75 72 72 69 6e 67 20 69 6e 20 65 78 ┆ 60 = real occurring in ex┆
0x2e620…2e640 70 72 65 73 73 69 6f 6e 20 0d 0a 20 20 36 31 20 3d 20 20 20 72 65 61 6c 2d 64 69 76 69 73 69 6f ┆pression 61 = real-divisio┆
0x2e640…2e660 6e 20 6f 66 20 69 6e 74 65 67 65 72 73 20 6e 6f 74 20 69 6d 70 6c 20 0d 0a 20 20 36 32 20 3d 20 ┆n of integers not impl 62 = ┆
0x2e660…2e680 20 20 69 6c 6c 65 67 61 6c 20 6f 70 65 72 61 6e 64 20 6b 69 6e 64 20 69 6e 20 65 78 70 72 65 73 ┆ illegal operand kind in expres┆
0x2e680…2e6a0 73 69 6f 6e 20 0d 0a 20 20 36 33 20 3d 20 20 20 74 6f 6f 20 66 65 77 20 61 63 74 75 61 6c 20 70 ┆sion 63 = too few actual p┆
0x2e6a0…2e6c0 61 72 61 6d 65 74 65 72 73 20 74 6f 20 72 6f 75 74 69 6e 65 63 61 6c 6c 20 28 6f 72 20 73 74 72 ┆arameters to routinecall (or str┆
0x2e6c0…2e6e0 75 63 72 65 63 6f 72 64 20 0d 0a 20 20 36 34 20 3d 20 20 20 65 72 72 6f 72 20 69 6e 20 72 6f 75 ┆ucrecord 64 = error in rou┆
0x2e6e0…2e700 74 69 6e 65 63 61 6c 6c 20 0d 0a 20 20 36 35 20 3d 20 20 20 65 72 72 6f 72 20 69 6e 20 73 74 72 ┆tinecall 65 = error in str┆
0x2e700…2e720 75 63 74 75 72 65 64 2d 72 65 63 6f 72 64 20 63 6f 6e 73 74 61 6e 74 20 0d 0a 20 20 36 36 20 3d ┆uctured-record constant 66 =┆
0x2e720…2e740 20 20 20 84 74 79 70 65 6e 61 6d 65 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 73 74 72 75 63 74 75 ┆ ёtypename in front of structu┆
0x2e740…2e760 72 65 64 20 63 6f 6e 73 74 61 6e 74 20 6d 75 73 74 20 62 65 20 72 65 63 6f 72 64 20 6f 72 20 0a ┆red constant must be record or ┆
0x2e760…2e780 19 89 80 80 61 72 72 61 79 20 0d 0a 20 20 36 37 20 3d 20 20 20 84 74 68 65 20 27 2a 2a 2a 27 20 ┆ Ѕђђarray 67 = ёthe '***' ┆
0x2e780…2e7a0 6f 70 65 72 61 74 6f 72 20 6d 75 73 74 20 6f 6e 6c 79 20 6f 63 63 75 72 20 69 6e 20 73 74 72 75 ┆operator must only occur in stru┆
0x2e7a0…2e7c0 63 74 75 72 65 64 2d 61 72 72 61 79 20 0a 19 89 80 80 63 6f 6e 73 74 61 6e 74 20 0d 0a 20 20 36 ┆ctured-array Ѕђђconstant 6┆
0x2e7c0…2e7e0 38 20 3d 20 20 20 6e 61 6d 65 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 61 72 67 6c 69 73 74 20 69 ┆8 = name in front of arglist i┆
0x2e7e0…2e800 73 20 6e 6f 74 20 6f 66 20 61 72 72 61 79 2d 74 79 70 65 20 0d 0a 20 20 36 39 20 3d 20 20 20 69 ┆s not of array-type 69 = i┆
0x2e800…2e820 6e 64 65 78 2d 65 78 70 72 65 73 73 69 6f 6e 20 64 6f 65 73 6e 27 74 20 6d 61 74 63 68 20 61 72 ┆ndex-expression doesn't match ar┆
0x2e820…2e840 72 61 79 2d 64 65 63 6c 61 72 61 74 69 6f 6e 20 0d 0a 20 20 37 30 20 3d 20 20 20 69 6e 63 6f 6d ┆ray-declaration 70 = incom┆
0x2e840…2e860 70 61 74 69 62 6c 65 20 74 79 70 65 73 20 69 6e 20 61 73 73 69 67 6e 6d 65 6e 74 20 0d 0a 20 20 ┆patible types in assignment ┆
0x2e860…2e880 37 31 20 3d 20 20 20 69 6e 63 6f 6d 70 61 74 69 62 6c 65 20 74 79 70 65 73 20 69 6e 20 65 78 63 ┆71 = incompatible types in exc┆
0x2e880…2e8a0 68 61 6e 67 65 20 0d 0a 20 20 37 32 20 3d 20 20 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 20 69 ┆hange 72 = the statement i┆
0x2e8a0…2e8c0 73 20 6e 6f 74 20 61 20 70 72 6f 63 65 64 75 72 65 2d 63 61 6c 6c 20 0d 0a 20 20 37 33 20 3d 20 ┆s not a procedure-call 73 = ┆
0x2e8c0…2e8e0 20 20 66 6f 72 2d 76 61 72 69 61 62 6c 65 2c 20 77 69 74 68 2d 76 61 72 69 61 62 6c 65 20 6f 72 ┆ for-variable, with-variable or┆
0x2e8e0…2e900 20 61 63 74 75 61 6c 20 76 61 72 2d 70 61 72 61 6d 20 69 73 20 70 61 63 6b 65 64 20 0d 0a 20 20 ┆ actual var-param is packed ┆
0x2e900…2e920 37 34 20 3d 20 20 20 6f 70 65 72 61 6e 64 20 6d 61 79 20 6e 6f 74 20 62 65 20 61 73 73 69 67 6e ┆74 = operand may not be assign┆
0x2e920…2e940 65 64 20 74 6f 2c 20 74 79 70 65 20 69 73 20 73 68 69 65 6c 64 65 64 20 6f 72 20 66 72 6f 7a 65 ┆ed to, type is shielded or froze┆
0x2e940…2e960 6e 20 0d 0a 20 20 37 35 20 3d 20 20 20 84 6f 70 65 72 61 6e 64 20 6d 61 79 20 6e 6f 74 20 62 65 ┆n 75 = ёoperand may not be┆
0x2e960…2e980 20 65 78 63 68 61 6e 67 65 64 2c 20 74 79 70 65 20 69 73 20 6d 61 69 6c 62 6f 78 2c 20 65 78 74 ┆ exchanged, type is mailbox, ext┆
0x2e980…2e9a0 65 72 6e 61 6c 20 0a 19 89 80 80 70 72 6f 67 72 61 6d 2c 20 70 6f 6f 6c 20 6f 72 20 66 72 6f 7a ┆ernal Ѕђђprogram, pool or froz┆
0x2e9a0…2e9c0 65 6e 20 0d 0a 20 20 37 36 20 3d 20 20 20 74 79 70 65 20 6d 75 73 74 20 62 65 3a 20 72 65 66 65 ┆en 76 = type must be: refe┆
0x2e9c0…2e9e0 72 65 6e 63 65 20 6f 72 20 70 72 6f 63 65 73 73 20 0d 0a 20 20 37 37 20 3d 20 20 20 66 6f 72 6d ┆rence or process 77 = form┆
0x2e9e0…2ea00 61 6c 20 61 6e 64 20 61 63 74 75 61 6c 20 74 79 70 65 20 6d 75 73 74 20 6d 61 74 63 68 20 65 78 ┆al and actual type must match ex┆
0x2ea00…2ea20 61 63 74 6c 79 20 0d 0a 20 20 37 38 20 3d 20 20 20 61 63 74 75 61 6c 20 61 6e 64 20 66 6f 72 6d ┆actly 78 = actual and form┆
0x2ea20…2ea40 61 6c 20 74 79 70 65 73 20 61 72 65 20 6e 6f 74 20 63 6f 6d 70 61 74 69 62 6c 65 20 0d 0a 20 20 ┆al types are not compatible ┆
0x2ea40…2ea60 37 39 20 3d 20 20 20 66 6f 72 6d 61 6c 20 69 73 20 6e 6f 74 20 66 72 6f 7a 65 6e 2c 20 74 68 65 ┆79 = formal is not frozen, the┆
0x2ea60…2ea80 72 65 66 6f 72 65 20 61 63 74 75 61 6c 20 6d 61 79 20 6e 6f 74 20 62 65 20 66 72 6f 7a 65 6e 20 ┆refore actual may not be frozen ┆
0x2ea80…2eaa0 0d 0a 20 20 38 30 20 3d 20 20 20 74 68 65 20 27 3f 27 20 6d 61 79 20 6f 6e 6c 79 20 6f 63 63 75 ┆ 80 = the '?' may only occu┆
0x2eaa0…2eac0 72 20 69 6e 20 73 74 72 75 63 74 75 72 65 64 20 63 6f 6e 73 74 61 6e 74 73 20 0d 0a 20 20 38 31 ┆r in structured constants 81┆
0x2eac0…2eae0 20 3d 20 20 20 69 6e 63 6f 6d 70 2e 20 74 79 70 65 73 20 69 6e 20 73 74 72 75 63 74 75 72 65 64 ┆ = incomp. types in structured┆
0x2eae0…2eb00 20 61 72 72 61 79 2d 63 6f 6e 73 74 61 6e 74 20 0d 0a 20 20 38 32 20 3d 20 20 20 69 6e 63 6f 6d ┆ array-constant 82 = incom┆
0x2eb00…2eb20 70 2e 20 74 79 70 65 73 20 69 6e 20 73 74 72 75 63 74 75 72 65 64 20 72 65 63 6f 72 64 2d 63 6f ┆p. types in structured record-co┆
0x2eb20…2eb40 6e 73 74 61 6e 74 20 0d 0a 20 20 38 33 20 3d 20 20 20 69 6e 63 6f 6d 70 2e 20 74 79 70 65 73 20 ┆nstant 83 = incomp. types ┆
0x2eb40…2eb60 69 6e 20 76 61 72 2d 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 0d 0a 20 20 38 34 20 3d 20 20 ┆in var-initialization 84 = ┆
0x2eb60…2eb80 20 72 65 70 65 74 69 74 69 6f 6e 20 6d 75 73 74 20 62 65 20 69 6e 74 65 67 65 72 20 0d 0a 20 20 ┆ repetition must be integer ┆
0x2eb80…2eba0 38 35 20 3d 20 20 20 76 61 6c 75 65 2d 65 78 70 6f 72 74 20 64 65 6d 61 6e 64 73 20 63 6f 6e 73 ┆85 = value-export demands cons┆
0x2eba0…2ebc0 74 61 6e 74 20 0d 0a 20 20 38 36 20 3d 20 20 20 6f 66 66 73 65 74 2d 65 78 70 6f 72 74 20 64 65 ┆tant 86 = offset-export de┆
0x2ebc0…2ebe0 6d 61 6e 64 73 20 76 61 72 69 61 62 6c 65 20 0d 0a 20 20 38 37 20 3d 20 20 20 73 69 7a 65 2d 2c ┆mands variable 87 = size-,┆
0x2ebe0…2ec00 64 69 73 70 2d 2c 61 64 64 72 2d 65 78 70 6f 72 74 20 64 65 6d 61 6e 64 73 20 63 6f 6e 73 74 61 ┆disp-,addr-export demands consta┆
0x2ec00…2ec20 6e 74 20 6f 72 20 76 61 72 69 61 62 6c 65 20 0d 0a 20 20 38 38 20 3d 20 20 20 64 69 73 70 2d 65 ┆nt or variable 88 = disp-e┆
0x2ec20…2ec40 78 70 6f 72 74 20 64 65 6d 61 6e 64 73 20 27 66 69 65 6c 64 69 6e 67 27 20 0d 0a 20 20 38 39 20 ┆xport demands 'fielding' 89 ┆
0x2ec40…2ec60 3d 20 20 20 78 6f 72 2c 20 69 6e 74 65 67 65 72 2d 61 6e 64 2c 20 61 6e 64 20 69 6e 74 65 67 65 ┆= xor, integer-and, and intege┆
0x2ec60…2ec80 72 2d 6f 72 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 6f 6e 20 7a 38 30 20 0d 0a 20 20 ┆r-or not implemented on z80 ┆
0x2ec80…2eca0 39 30 20 3d 20 20 20 61 20 70 72 6f 67 72 61 6d 20 6d 61 79 20 6e 6f 74 20 62 65 20 46 4f 52 57 ┆90 = a program may not be FORW┆
0x2eca0…2ecc0 41 52 44 20 64 65 63 6c 61 72 65 64 20 0d 0a 20 20 39 31 20 3d 20 20 20 46 4f 52 57 41 52 44 20 ┆ARD declared 91 = FORWARD ┆
0x2ecc0…2ece0 73 70 65 63 69 66 69 65 64 20 74 79 70 65 20 6d 75 73 74 20 62 65 20 70 6f 69 6e 74 65 72 20 0d ┆specified type must be pointer ┆
0x2ece0…2ed00 0a 20 20 39 32 20 3d 20 20 20 84 70 72 6f 63 65 73 73 2c 20 63 68 61 69 6e 2c 20 65 78 74 65 72 ┆ 92 = ёprocess, chain, exter┆
0x2ed00…2ed20 6e 61 6c 20 70 72 6f 67 72 61 6d 2c 20 61 6e 64 20 72 65 66 65 72 65 6e 63 65 20 6e 6f 74 20 61 ┆nal program, and reference not a┆
0x2ed20…2ed40 6c 6c 6f 77 65 64 20 0a 19 89 80 80 69 6e 20 53 48 41 52 45 44 20 0d 0a 20 20 39 33 20 3d 20 20 ┆llowed Ѕђђin SHARED 93 = ┆
0x2ed40…2ed60 20 61 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 20 74 79 70 65 20 6d 75 73 74 20 62 65 20 72 ┆ actual parameter type must be r┆
0x2ed60…2ed80 65 66 65 72 65 6e 63 65 20 6f 72 20 63 68 61 69 6e 20 0d 0a 0d 0a 0d 0a a1 46 61 74 61 6c 20 45 ┆eference or chain АFatal E┆
0x2ed80…2eda0 72 72 6f 72 73 20 66 72 6f 6d 20 50 61 73 73 20 33 20 0d 0a 0d 0a e1 54 68 65 20 66 6f 6c 6c 6f ┆rrors from Pass 3 рThe follo┆
0x2eda0…2edc0 77 69 6e 67 20 6d 65 73 73 61 67 65 20 69 6e 64 69 63 61 74 65 73 20 61 20 6d 6f 72 65 20 63 6f ┆wing message indicates a more co┆
0x2edc0…2ede0 6d 70 6c 69 63 61 74 65 64 20 73 6f 75 72 63 65 20 70 72 6f 67 72 61 6d 20 0a 73 74 72 75 63 74 ┆mplicated source program struct┆
0x2ede0…2ee00 75 72 65 20 74 68 61 6e 20 74 68 65 20 64 69 6d 65 6e 73 69 6f 6e 69 6e 67 20 6f 66 20 70 61 73 ┆ure than the dimensioning of pas┆
0x2ee00…2ee20 73 20 33 20 69 73 20 70 72 65 70 61 72 65 64 20 66 6f 72 2e 0d 0a 54 68 65 20 6d 65 73 73 61 67 ┆s 3 is prepared for. The messag┆
0x2ee20…2ee40 65 20 77 69 6c 6c 20 62 65 20 70 72 65 63 65 64 65 64 20 62 79 3a 20 0d 0a 0d 0a 2a 2a 2a 20 65 ┆e will be preceded by: *** e┆
0x2ee40…2ee60 72 72 6f 72 20 66 6f 75 6e 64 20 69 6e 20 70 61 73 73 33 2c 20 61 74 20 73 6f 75 72 63 65 6c 69 ┆rror found in pass3, at sourceli┆
0x2ee60…2ee80 6e 65 3a 20 3c 6c 69 6e 65 20 6e 6f 3e 20 0d 0a 0d 0a 54 68 65 20 6d 65 73 73 61 67 65 20 69 73 ┆ne: <line no> The message is┆
0x2ee80…2eea0 3a 20 0d 0a 6d 61 78 5f 6e 65 73 74 65 64 5f 63 61 6c 6c 73 20 65 78 63 65 65 64 65 64 20 3c 6c ┆: max_nested_calls exceeded <l┆
0x2eea0…2eec0 69 6d 69 74 3e 20 0d 0a 0d 0a 4d 6f 72 65 20 74 68 61 6e 20 3c 6c 69 6d 69 74 3e 20 6e 65 73 74 ┆imit> More than <limit> nest┆
0x2eec0…2eee0 65 64 20 72 6f 75 74 69 6e 65 20 63 61 6c 6c 73 20 61 6e 64 2f 6f 72 20 69 6e 64 65 78 20 73 70 ┆ed routine calls and/or index sp┆
0x2eee0…2ef00 65 63 69 66 69 63 61 74 69 6f 6e 73 2e 20 0d 0a 0d 0a a1 43 6f 6d 70 69 6c 65 72 20 45 72 72 6f ┆ecifications. АCompiler Erro┆
0x2ef00…2ef20 72 73 20 66 72 6f 6d 20 50 61 73 73 20 33 2e 0d 0a 0d 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 ┆rs from Pass 3. The following┆
0x2ef20…2ef40 20 6d 65 73 73 61 67 65 73 20 69 6e 64 69 63 61 74 65 20 65 72 72 6f 72 73 20 69 6e 20 74 68 65 ┆ messages indicate errors in the┆
0x2ef40…2ef60 20 63 6f 6d 70 69 6c 65 72 2c 20 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20 0a 72 65 70 6f 72 74 ┆ compiler, and should be report┆
0x2ef60…2ef80 65 64 20 74 6f 20 74 68 65 20 6d 61 69 6e 74 65 6e 61 6e 63 65 20 73 74 61 66 66 2e 20 54 68 65 ┆ed to the maintenance staff. The┆
0x2ef80…2efa0 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 70 72 65 63 65 64 65 64 20 62 79 3a 0d 0a 0d 0a 2a 2a ┆ messages are preceded by: **┆
0x2efa0…2efc0 2a 20 70 72 6f 67 72 61 6d 20 69 6e 63 6f 6e 73 69 73 74 65 6e 63 79 20 69 6e 20 70 61 73 73 33 ┆* program inconsistency in pass3┆
0x2efc0…2efe0 2c 20 61 74 20 73 6f 75 72 63 65 6c 69 6e 65 20 3c 6c 69 6e 65 20 6e 6f 3e 0d 0a 20 20 20 20 63 ┆, at sourceline <line no> c┆
0x2efe0…2f000 61 75 73 65 20 69 73 3a 0d 0a 0d 0a 54 68 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 3a 0d 0a 0d ┆ause is: The messages are: ┆
0x2f000…2f020 0a 75 6e 6b 6e 6f 77 6e 2d 6e 61 6d 65 6b 69 6e 64 0d 0a 75 6e 6b 6e 6f 77 6e 2d 61 72 67 6b 69 ┆ unknown-namekind unknown-argki┆
0x2f020…2f040 6e 64 0d 0a 75 6e 6b 6e 6f 77 6e 2d 6f 70 63 6f 64 65 0d 0a 75 6e 6b 6e 6f 77 6e 2d 72 6f 75 74 ┆nd unknown-opcode unknown-rout┆
0x2f040…2f060 69 6e 65 6b 69 6e 64 0d 0a 75 6e 6b 6e 6f 77 6e 2d 70 61 72 61 6d 6b 69 6e 64 0d 0a 75 6e 6b 6e ┆inekind unknown-paramkind unkn┆
0x2f060…2f080 6f 77 6e 2d 73 70 69 78 0d 0a 75 6e 6b 6e 6f 77 6e 2d 73 74 64 74 79 70 65 2d 6e 61 6d 65 0d 0a ┆own-spix unknown-stdtype-name ┆
0x2f080…2f0a0 75 6e 6b 6e 6f 77 6e 2d 74 79 70 65 6b 69 6e 64 0d 0a 75 6e 6b 6e 6f 77 6e 2d 72 65 63 74 79 70 ┆unknown-typekind unknown-rectyp┆
0x2f0a0…2f0c0 65 0d 0a 77 72 6f 6e 67 20 70 61 73 73 31 2f 70 61 73 73 33 20 63 6f 6d 62 69 6e 61 74 69 6f 6e ┆e wrong pass1/pass3 combination┆
0x2f0c0…2f0e0 0d 0a 75 6e 73 74 61 63 6b 2d 6e 6f 6e 74 79 70 65 0d 0a 69 6e 63 6f 6e 73 69 73 74 65 6e 74 20 ┆ unstack-nontype inconsistent ┆
0x2f0e0…2f100 61 6c 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 79 70 65 20 6e 6f 64 65 0d 0a 0d 0a 74 68 65 20 6d ┆allocation of type node the m┆
0x2f100…2f120 65 73 73 61 67 65 20 69 73 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 74 72 61 63 65 20 6f 66 ┆essage is followed by a trace of┆
0x2f120…2f140 20 61 63 74 69 76 65 20 72 6f 75 74 69 6e 65 73 20 6f 66 20 70 61 73 73 33 20 61 6e 64 20 61 6e ┆ active routines of pass3 and an┆
0x2f140…2f160 20 0a 52 43 38 30 30 30 20 66 70 20 62 72 65 61 6b 20 30 2e 20 0d 0a 0d 0a 0d 0a 16 53 42 0d 0a ┆ RC8000 fp break 0. SB ┆
0x2f160…2f180 4d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 50 61 73 73 20 34 0d 0a 0d 0a 41 6c 6c 20 65 72 72 6f ┆Messages from Pass 4 All erro┆
0x2f180…2f1a0 72 20 6d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 70 61 73 73 20 34 20 68 61 76 65 20 74 68 65 20 ┆r messages from pass 4 have the ┆
0x2f1a0…2f1c0 66 6f 72 6d 61 74 3a 20 0d 0a 0d 0a 2a 2a 2a 20 70 61 73 73 20 34 20 6c 69 6e 65 20 3c 6e 6f 3e ┆format: *** pass 4 line <no>┆
0x2f1c0…2f1e0 2c 20 3c 74 65 78 74 3e 20 0d 0a 0d 0a 77 68 65 72 65 20 3c 6e 6f 3e 20 69 73 20 74 68 65 20 6c ┆, <text> where <no> is the l┆
0x2f1e0…2f200 69 6e 65 20 6e 75 6d 62 65 72 20 77 68 65 72 65 20 74 68 65 20 65 72 72 6f 72 20 69 73 20 64 65 ┆ine number where the error is de┆
0x2f200…2f220 74 65 63 74 65 64 2e 20 0d 0a 0d 0a 3c 74 65 78 74 3e 20 69 73 20 6f 6e 65 20 61 6d 6f 6e 67 20 ┆tected. <text> is one among ┆
0x2f220…2f240 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 3a 20 0d 0a 0d 0a 73 75 62 72 61 6e 67 65 20 64 65 66 2e ┆the following: subrange def.┆
0x2f240…2f260 09 84 45 72 72 6f 72 20 69 6e 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 73 75 62 ┆ ёError in the definition of sub┆
0x2f260…2f280 72 61 6e 67 65 20 74 79 70 65 20 2d 20 6c 6f 77 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆range type - lower ┆
0x2f280…2f2a0 20 20 20 20 20 20 20 0a 19 93 80 80 62 6f 75 6e 64 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 75 ┆ Њђђbound greater than u┆
0x2f2a0…2f2c0 70 70 65 72 20 62 6f 75 6e 64 2e 20 0d 0a 0d 0a 73 65 74 20 64 65 66 2e 09 84 45 72 72 6f 72 20 ┆pper bound. set def. ёError ┆
0x2f2c0…2f2e0 69 6e 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 73 65 74 20 74 79 70 65 20 2d 20 ┆in the definition of set type - ┆
0x2f2e0…2f300 6c 6f 77 65 72 20 62 6f 75 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆lower bound ┆
0x2f300…2f320 0a 19 93 80 80 6f 66 20 74 68 65 20 62 61 73 69 73 20 73 75 62 72 61 6e 67 65 20 74 79 70 65 20 ┆ Њђђof the basis subrange type ┆
0x2f320…2f340 69 73 20 6e 65 67 61 74 69 76 65 2e 20 0d 0a 0d 0a 70 6f 6f 6c 20 64 65 66 2e 09 84 45 72 72 6f ┆is negative. pool def. ёErro┆
0x2f340…2f360 72 20 69 6e 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 70 6f 6f 6c 20 74 79 70 65 ┆r in the definition of pool type┆
0x2f360…2f380 20 2d 20 6e 75 6d 62 65 72 20 6f 66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ - number of ┆
0x2f380…2f3a0 20 0a 19 93 80 80 65 6c 65 6d 65 6e 74 73 20 69 73 20 6e 65 67 61 74 69 76 65 2e 20 0d 0a 0d 0a ┆ Њђђelements is negative. ┆
0x2f3a0…2f3c0 72 65 63 6f 72 64 20 73 69 7a 65 09 53 69 7a 65 20 6f 66 20 72 65 63 6f 72 64 20 74 79 70 65 20 ┆record size Size of record type ┆
0x2f3c0…2f3e0 67 72 65 61 74 65 72 20 74 68 61 6e 20 36 35 35 33 36 20 62 79 74 65 73 2e 20 0d 0a 0d 0a 61 72 ┆greater than 65536 bytes. ar┆
0x2f3e0…2f400 72 61 79 20 73 69 7a 65 09 84 53 69 7a 65 20 6f 66 20 61 72 72 61 79 20 74 79 70 65 20 67 72 65 ┆ray size ёSize of array type gre┆
0x2f400…2f420 61 74 65 72 20 74 68 61 6e 20 36 35 35 33 36 20 62 79 74 65 73 2e 20 0d 0a 0d 0a 6e 6f 20 69 6e ┆ater than 65536 bytes. no in┆
0x2f420…2f440 69 74 2e 20 6f 72 20 70 72 6f 67 72 61 6d 20 0d 0a 69 6e 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 09 ┆it. or program in environment ┆
0x2f440…2f460 84 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 20 76 61 72 69 61 62 6c 65 73 20 61 6e 64 ┆ёInitialization of variables and┆
0x2f460…2f480 20 70 72 6f 67 72 61 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ program ┆
0x2f480…2f4a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 19 93 80 80 64 65 63 6c 61 72 61 74 69 6f ┆ Њђђdeclaratio┆
0x2f4a0…2f4c0 6e 73 20 69 6e 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 2e 20 0d ┆ns in environment not allowed. ┆
0x2f4c0…2f4e0 0a 0d 0a 63 6f 6e 73 74 61 6e 74 20 76 61 6c 75 65 09 56 61 6c 75 65 20 6f 66 20 63 6f 6e 73 74 ┆ constant value Value of const┆
0x2f4e0…2f500 61 6e 74 20 6f 75 74 73 69 64 65 20 69 6e 74 65 72 76 61 6c 20 62 6f 75 6e 64 73 2e 20 0d 0a 0d ┆ant outside interval bounds. ┆
0x2f500…2f520 0a 63 61 73 65 20 6c 61 62 65 6c 20 72 61 6e 67 65 09 84 56 61 6c 75 65 20 6f 66 20 66 69 72 73 ┆ case label range ёValue of firs┆
0x2f520…2f540 74 20 6c 61 62 65 6c 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 76 61 6c 75 65 20 6f 66 20 6c 61 ┆t label greater than value of la┆
0x2f540…2f560 73 74 20 6c 61 80 0a 19 93 80 80 62 65 6c 20 69 6e 20 61 20 63 61 73 65 20 6c 61 62 65 6c 20 69 ┆st laђ Њђђbel in a case label i┆
0x2f560…2f580 6e 74 65 72 76 61 6c 2e 20 0d 0a 0d 0a 63 6f 6e 73 74 61 6e 74 09 53 79 6e 74 61 78 20 65 72 72 ┆nterval. constant Syntax err┆
0x2f580…2f5a0 6f 72 20 69 6e 20 6e 75 6d 62 65 72 2e 20 0d 0a 0d 0a 8c a1 98 0a 73 65 74 20 63 6f 6e 73 74 61 ┆or in number. їАў set consta┆
0x2f5a0…2f5c0 6e 74 09 84 45 72 72 6f 72 20 69 6e 20 73 65 74 20 63 6f 6e 73 74 61 6e 74 2c 20 2d 20 6e 65 67 ┆nt ёError in set constant, - neg┆
0x2f5c0…2f5e0 61 74 69 76 65 20 63 6f 6e 73 74 61 6e 74 2c 20 6f 72 20 0a 19 93 80 80 76 61 6c 75 65 20 6f 66 ┆ative constant, or Њђђvalue of┆
0x2f5e0…2f600 20 63 6f 6e 73 74 61 6e 74 20 65 6c 65 6d 65 6e 74 2c 20 6f 72 20 69 6e 74 65 72 76 61 6c 20 77 ┆ constant element, or interval w┆
0x2f600…2f620 69 74 68 20 65 6c 65 80 0a 19 93 80 80 6d 65 6e 74 28 73 29 20 77 69 74 68 20 76 61 6c 75 65 20 ┆ith eleђ Њђђment(s) with value ┆
0x2f620…2f640 67 72 65 61 74 65 72 20 74 68 61 6e 20 31 30 32 33 2e 20 0d 0a 0d 0a 74 69 6d 65 73 09 84 57 72 ┆greater than 1023. times ёWr┆
0x2f640…2f660 6f 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20 76 61 6c 75 65 73 20 69 6e 20 63 6f 6e 73 74 61 6e 74 ┆ong number of values in constant┆
0x2f660…2f680 20 6f 66 20 61 72 72 61 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 19 ┆ of array ┆
0x2f680…2f6a0 93 80 80 74 79 70 65 2e 20 0d 0a 0d 0a 6e 6f 74 20 63 6f 6e 73 74 61 6e 74 09 84 56 61 72 69 61 ┆Њђђtype. not constant ёVaria┆
0x2f6a0…2f6c0 62 6c 65 2c 20 6f 72 20 53 45 54 20 63 6f 6e 73 74 61 6e 74 20 75 73 65 64 20 69 6e 20 65 78 70 ┆ble, or SET constant used in exp┆
0x2f6c0…2f6e0 72 65 73 73 69 6f 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ression, ┆
0x2f6e0…2f700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 19 93 80 80 6f 75 74 73 69 64 65 20 74 68 ┆ Њђђoutside th┆
0x2f700…2f720 65 20 73 74 61 74 65 6d 65 6e 74 20 70 61 72 74 20 6f 66 20 61 20 70 72 6f 63 65 64 75 72 65 20 ┆e statement part of a procedure ┆
0x2f720…2f740 6f 72 20 0a 19 93 80 80 70 72 6f 67 72 61 6d 2e 20 0d 0a 0d 0a 73 74 61 63 6b 09 84 56 61 72 69 ┆or Њђђprogram. stack ёVari┆
0x2f740…2f760 61 62 6c 65 28 73 29 20 69 6e 20 61 20 62 6c 6f 63 6b 20 6f 63 63 75 70 69 65 73 20 6d 6f 72 65 ┆able(s) in a block occupies more┆
0x2f760…2f780 20 74 68 61 6e 20 36 35 35 33 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ than 65536 ┆
0x2f780…2f7a0 0a 19 93 80 80 62 79 74 65 73 2e 20 0d 0a 0d 0a 6f 76 65 72 66 6c 6f 77 09 84 56 61 6c 75 65 20 ┆ Њђђbytes. overflow ёValue ┆
0x2f7a0…2f7c0 6f 66 20 63 6f 6e 73 74 61 6e 74 20 6f 72 20 63 6f 6e 73 74 61 6e 74 20 65 78 70 72 65 73 73 69 ┆of constant or constant expressi┆
0x2f7c0…2f7e0 6f 6e 20 6f 75 74 73 69 64 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a ┆on outside ┆
0x2f7e0…2f800 19 93 80 80 74 68 65 20 69 6e 74 65 72 76 61 6c 20 2d 33 32 37 36 38 2e 2e 33 32 37 36 37 2e 20 ┆ Њђђthe interval -32768..32767. ┆
0x2f800…2f820 0d 0a 0d 0a 64 79 6e 61 6d 69 63 20 76 61 72 69 61 62 6c 65 20 0d 0a 6e 6f 74 20 61 6c 6c 6f 77 ┆ dynamic variable not allow┆
0x2f820…2f840 65 64 09 84 49 6c 6c 65 67 61 6c 20 75 73 65 20 6f 66 20 64 79 6e 61 6d 69 63 20 73 74 72 69 6e ┆ed ёIllegal use of dynamic strin┆
0x2f840…2f860 67 20 76 61 72 69 61 62 6c 65 2e 20 0d 0a 0d 0a 0e 0a 69 6e 69 74 69 61 6c 69 7a 65 20 64 79 6e ┆g variable. initialize dyn┆
0x2f860…2f880 61 6d 69 63 20 0d 0a 74 79 70 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 09 84 56 61 72 69 61 62 6c ┆amic type not allowed ёVariabl┆
0x2f880…2f8a0 65 73 20 6f 66 20 64 79 6e 61 6d 69 63 20 74 79 70 65 73 20 63 61 6e 6e 6f 74 20 62 65 20 69 6e ┆es of dynamic types cannot be in┆
0x2f8a0…2f8c0 69 74 69 61 6c 69 7a 65 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 19 ┆itialized ┆
0x2f8c0…2f8e0 93 80 80 69 6e 20 74 68 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 70 61 72 74 2e 20 0d 0a 0f 0a ┆Њђђin the declaration part. ┆
0x2f8e0…2f900 0d 0a 0e 0a 64 79 6e 61 6d 69 63 20 74 79 70 65 20 0d 0a 6e 6f 74 20 61 6c 6c 6f 77 65 64 09 84 ┆ dynamic type not allowed ё┆
0x2f900…2f920 44 79 6e 61 6d 69 63 20 74 79 70 65 73 20 61 72 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 66 6f ┆Dynamic types are not allowed fo┆
0x2f920…2f940 72 3a 20 73 65 74 2c 20 70 6f 6f 6c 2c 20 0a 19 93 80 80 70 72 6f 67 72 61 6d 20 70 61 72 61 6d ┆r: set, pool, Њђђprogram param┆
0x2f940…2f960 65 74 65 72 2c 20 56 41 4c 55 45 20 72 6f 75 74 69 6e 65 20 70 61 72 61 6d 65 74 65 72 2c 20 0a ┆eter, VALUE routine parameter, ┆
0x2f960…2f980 19 93 80 80 66 75 6e 63 74 69 6f 6e 20 72 65 73 75 6c 74 2c 20 61 6e 64 20 73 74 72 75 63 74 75 ┆ Њђђfunction result, and structu┆
0x2f980…2f9a0 72 65 64 20 63 6f 6e 73 74 61 6e 74 2e 20 0d 0a 0f 0a 0d 0a 61 63 63 65 73 73 20 74 6f 20 7a 65 ┆red constant. access to ze┆
0x2f9a0…2f9c0 72 6f 20 73 69 7a 65 64 20 6f 62 6a 65 63 74 0d 0a 0d 0a 57 49 54 48 2d 41 53 3a 20 73 69 7a 65 ┆ro sized object WITH-AS: size┆
0x2f9c0…2f9e0 20 6f 66 20 6e 65 77 20 74 79 70 65 20 65 78 63 65 65 64 73 20 74 68 61 74 20 6f 66 20 6f 6c 64 ┆ of new type exceeds that of old┆
0x2f9e0…2fa00 20 0d 0a 0d 0a 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 20 0d 0a 3c 74 65 78 74 3e 09 84 45 72 ┆ compiler error <text> ёEr┆
0x2fa00…2fa20 72 6f 72 20 69 6e 20 70 61 73 73 20 34 2e 20 53 68 6f 75 6c 64 20 62 65 20 72 65 70 6f 72 74 65 ┆ror in pass 4. Should be reporte┆
0x2fa20…2fa40 64 20 74 6f 20 74 68 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 19 93 ┆d to the Њ┆
0x2fa40…2fa60 80 80 6d 61 69 6e 74 65 6e 61 6e 63 65 20 73 74 61 66 66 2e 20 3c 74 65 78 74 3e 20 6d 61 79 20 ┆ђђmaintenance staff. <text> may ┆
0x2fa60…2fa80 62 65 20 6f 6e 65 20 6f 66 20 74 68 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆be one of the ┆
0x2fa80…2faa0 20 20 0a 19 93 80 80 66 6f 6c 6c 6f 77 69 6e 67 3a 20 0d 0a 09 61 64 64 72 65 73 73 69 6e 67 20 ┆ Њђђfollowing: addressing ┆
0x2faa0…2fac0 0d 0a 09 62 69 74 20 63 6f 75 6e 74 20 0d 0a 09 66 6f 72 20 65 72 72 6f 72 20 0d 0a 09 73 63 61 ┆ bit count for error sca┆
0x2fac0…2fae0 6c 61 72 20 65 72 72 6f 72 20 0d 0a 09 77 72 6f 6e 67 20 69 6e 70 75 74 3a 20 3c 6e 6f 3e 0d 0a ┆lar error wrong input: <no> ┆
0x2fae0…2fb00 09 69 6c 6c 65 67 61 6c 20 74 79 70 65 0d 0a 09 65 72 72 6f 72 20 63 6f 64 65 20 3d 20 3c 6e 6f ┆ illegal type error code = <no┆
0x2fb00…2fb20 3e 20 0d 0a 0d 0a 0d 0a 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 74 65 72 6d 69 6e 61 74 65 64 20 62 ┆> Compilation terminated b┆
0x2fb20…2fb40 79 20 3c 65 72 72 6f 72 3e 20 77 68 65 72 65 20 3c 65 72 72 6f 72 3e 20 69 73 3a 20 0d 0a 0d 0a ┆y <error> where <error> is: ┆
0x2fb40…2fb60 73 74 61 63 6b 20 65 72 72 6f 72 09 84 69 6e 74 65 72 6e 61 6c 20 63 6f 6d 70 69 6c 65 72 20 69 ┆stack error ёinternal compiler i┆
0x2fb60…2fb80 6e 63 6f 6e 73 69 73 74 65 6e 63 79 3b 20 73 68 6f 75 6c 64 20 62 65 20 20 20 20 20 20 20 20 20 ┆nconsistency; should be ┆
0x2fb80…2fba0 20 20 20 20 20 20 20 20 20 20 20 20 0a 19 93 80 80 72 65 70 6f 72 74 65 64 2e 20 0d 0a 0d 0a 6e ┆ Њђђreported. n┆
0x2fba0…2fbc0 61 6d 65 20 74 61 62 6c 65 20 6f 76 65 72 66 6c 6f 77 0d 0a 09 69 6e 63 6f 6e 73 69 73 74 65 6e ┆ame table overflow inconsisten┆
0x2fbc0…2fbe0 63 79 20 62 65 74 77 65 65 6e 20 70 61 73 73 33 20 61 6e 64 20 70 61 73 73 34 0d 0a 0d 0a 77 72 ┆cy between pass3 and pass4 wr┆
0x2fbe0…2fc00 6f 6e 67 20 70 61 73 73 20 34 09 77 72 6f 6e 67 20 76 65 72 73 69 6f 6e 20 6f 66 20 70 61 73 73 ┆ong pass 4 wrong version of pass┆
0x2fc00…2fc20 20 34 2e 20 0d 0a 0d 0a 50 61 73 73 20 34 20 6d 61 79 20 67 69 76 65 20 61 20 77 61 72 6e 69 6e ┆ 4. Pass 4 may give a warnin┆
0x2fc20…2fc40 67 3a 0d 0a 57 41 52 4e 49 4e 47 2c 20 74 72 6f 75 62 6c 65 20 77 69 74 68 20 63 6f 64 65 20 66 ┆g: WARNING, trouble with code f┆
0x2fc40…2fc60 69 6c 65 3a 20 3c 66 69 6c 65 20 6e 61 6d 65 3e 0d 0a 41 66 74 65 72 20 74 68 69 73 20 77 61 72 ┆ile: <file name> After this war┆
0x2fc60…2fc80 6e 69 6e 67 20 74 68 65 20 6e 65 78 74 20 70 61 73 73 20 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c ┆ning the next pass of the compil┆
0x2fc80…2fca0 65 72 20 6d 61 79 20 6e 6f 74 20 62 65 20 61 62 6c 65 20 74 6f 20 0a 72 65 61 64 20 74 68 65 20 ┆er may not be able to read the ┆
0x2fca0…2fcc0 6f 75 74 70 75 74 20 66 72 6f 6d 20 70 61 73 73 34 2e 20 50 6f 73 73 69 62 6c 79 20 62 65 63 61 ┆output from pass4. Possibly beca┆
0x2fcc0…2fce0 75 73 65 20 6f 66 20 64 69 73 63 20 74 72 6f 75 62 6c 65 73 2e 0d 0a 0d 0a 0d 0a 16 53 42 0d 0a ┆use of disc troubles. SB ┆
0x2fce0…2fd00 4d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 50 61 73 73 20 35 0d 0a 0d 0a 45 72 72 6f 72 73 20 64 ┆Messages from Pass 5 Errors d┆
0x2fd00…2fd20 65 74 65 63 74 65 64 20 62 79 20 70 61 73 73 20 35 20 61 72 65 20 69 6e 64 69 63 61 74 65 64 20 ┆etected by pass 5 are indicated ┆
0x2fd20…2fd40 62 79 20 74 68 65 20 74 65 78 74 3a 20 0d 0a 0d 0a 2a 2a 2a 20 70 61 73 73 20 35 20 6c 69 6e 65 ┆by the text: *** pass 5 line┆
0x2fd40…2fd60 20 3c 6c 69 6e 65 20 6e 6f 3e 2c 20 3c 74 65 78 74 3e 20 0d 0a 0d 0a 77 68 65 72 65 20 3c 74 65 ┆ <line no>, <text> where <te┆
0x2fd60…2fd80 78 74 3e 20 69 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 3a 20 0d 0a 0d ┆xt> is one of the following: ┆
0x2fd80…2fda0 0a 8c 8d 90 0a 0d 0a 2b 64 65 63 6c 20 63 61 73 65 6c 61 62 65 6c 20 0d 0a 20 20 20 20 20 43 61 ┆ їЇљ +decl caselabel Ca┆
0x2fda0…2fdc0 73 65 20 6c 61 62 65 6c 73 20 61 72 65 20 6e 6f 74 20 64 69 73 74 69 6e 63 74 2e 20 0d 0a 0d 0a ┆se labels are not distinct. ┆
0x2fdc0…2fde0 0e 0a 74 6f 6f 20 6d 61 6e 79 20 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 73 20 0d 0a 20 ┆ too many formal parameters ┆
0x2fde0…2fe00 20 20 20 20 54 6f 6f 20 6d 61 6e 79 20 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 73 20 6f ┆ Too many formal parameters o┆
0x2fe00…2fe20 66 20 70 72 6f 67 72 61 6d 20 6f 72 20 72 6f 75 74 69 6e 65 2e 20 0d 0a 0f 0a 0d 0a 0e 0a 52 54 ┆f program or routine. RT┆
0x2fe20…2fe40 50 33 35 30 32 6c 69 62 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20 0d 0a 20 20 20 20 20 84 ┆P3502lib does not exist ё┆
0x2fe40…2fe60 54 68 65 20 6c 69 62 72 61 72 79 20 6f 66 20 73 74 61 6e 64 61 72 64 20 72 6f 75 74 69 6e 65 73 ┆The library of standard routines┆
0x2fe60…2fe80 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 74 68 69 73 20 65 72 72 6f 72 20 6d 61 79 20 20 20 ┆ is not found, this error may ┆
0x2fe80…2fea0 20 20 20 0a 19 85 80 80 61 6c 73 6f 20 62 65 20 69 6e 64 69 63 61 74 65 64 20 62 79 20 74 68 65 ┆ Ёђђalso be indicated by the┆
0x2fea0…2fec0 20 50 61 73 63 61 6c 20 73 79 73 74 65 6d 20 6d 65 73 73 61 67 65 3a 20 22 66 69 6c 65 20 64 6f ┆ Pascal system message: "file do┆
0x2fec0…2fee0 65 73 20 6e 6f 74 20 0a 19 85 80 80 65 78 69 73 74 3a 20 20 20 20 20 20 20 52 54 50 33 35 30 32 ┆es not Ёђђexist: RTP3502┆
0x2fee0…2ff00 6c 69 62 22 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 74 72 61 63 65 2e 20 54 68 69 73 20 ┆lib", followed by a trace. This ┆
0x2ff00…2ff20 65 72 72 6f 72 20 73 68 6f 75 6c 64 20 0a 19 85 80 80 62 65 20 72 65 70 6f 72 74 65 64 20 74 6f ┆error should Ёђђbe reported to┆
0x2ff20…2ff40 20 74 68 65 20 6f 70 65 72 61 74 6f 72 20 6f 66 20 74 68 65 20 52 43 38 30 30 30 2e 0d 0a 0f 0a ┆ the operator of the RC8000. ┆
0x2ff40…2ff60 0d 0a 0e 0a 75 73 65 72 20 69 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 74 6f 20 63 61 6c 6c 20 ┆ user is not allowed to call ┆
0x2ff60…2ff80 73 79 73 74 65 6d 2d 72 6f 75 74 69 6e 65 73 20 0d 0a 20 20 20 20 20 84 53 6f 6d 65 20 73 79 73 ┆system-routines ёSome sys┆
0x2ff80…2ffa0 74 65 6d 2d 72 6f 75 74 69 6e 65 73 20 61 72 65 20 70 72 6f 74 65 63 74 65 64 20 61 67 61 69 6e ┆tem-routines are protected again┆
0x2ffa0…2ffc0 73 74 20 75 73 65 72 20 63 61 6c 6c 2e 20 0d 0a 0f 0a 0d 0a 0d 0a 46 61 74 61 6c 20 65 72 72 6f ┆st user call. Fatal erro┆
0x2ffc0…2ffe0 72 73 20 61 72 65 20 69 6e 64 69 63 61 74 65 64 20 62 79 3a 20 0d 0a 0d 0a 2a 2a 2a 20 70 61 73 ┆rs are indicated by: *** pas┆
0x2ffe0…30000 73 20 35 20 6c 69 6e 65 20 3c 6c 69 6e 65 20 6e 6f 3e 2c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 ┆s 5 line <line no>, compilation ┆
0x30000…30020 74 65 72 6d 69 6e 61 74 65 64 20 62 79 20 3c 74 65 78 74 3e 20 0d 0a 0d 0a 77 68 65 72 65 20 3c ┆terminated by <text> where <┆
0x30020…30040 74 65 78 74 3e 20 69 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 3a 20 0d ┆text> is one of the following: ┆
0x30040…30060 0a 0d 0a 65 78 74 65 72 6e 61 6c 20 72 6f 75 74 69 6e 65 20 74 61 62 6c 65 20 6f 76 65 72 66 6c ┆ external routine table overfl┆
0x30060…30080 6f 77 20 0d 0a 20 20 20 20 20 55 73 65 20 6f 66 20 74 6f 6f 20 6d 61 6e 79 20 65 78 74 65 72 6e ┆ow Use of too many extern┆
0x30080…300a0 61 6c 20 64 65 63 6c 61 72 65 64 20 72 6f 75 74 69 6e 65 73 2e 20 0d 0a 0d 0a 74 6f 6f 20 6d 61 ┆al declared routines. too ma┆
0x300a0…300c0 6e 79 20 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 73 20 0d 0a 20 20 20 20 20 54 6f 6f 20 ┆ny formal parameters Too ┆
0x300c0…300e0 6d 61 6e 79 20 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 73 20 6f 66 20 70 72 6f 67 72 61 ┆many formal parameters of progra┆
0x300e0…30100 6d 20 6f 72 20 72 6f 75 74 69 6e 65 2e 20 0d 0a 0d 0a 0d 0a 6f 70 65 72 61 6e 64 20 73 74 61 63 ┆m or routine. operand stac┆
0x30100…30120 6b 20 6f 76 65 72 66 6c 6f 77 20 0d 0a 0d 0a 70 61 73 73 20 34 20 63 6f 64 65 20 65 72 72 6f 72 ┆k overflow pass 4 code error┆
0x30120…30140 20 0d 0a 20 20 20 20 20 49 6e 74 65 72 6e 61 6c 20 69 6e 63 6f 6e 73 69 73 74 65 6e 63 79 2c 20 ┆ Internal inconsistency, ┆
0x30140…30160 73 68 6f 75 6c 64 20 62 65 20 72 65 70 6f 72 74 65 64 2e 20 0d 0a 0d 0a 69 6e 63 6f 6e 73 69 73 ┆should be reported. inconsis┆
0x30160…30180 74 65 6e 63 79 20 69 6e 20 70 61 73 73 20 35 20 0d 0a 20 20 20 20 20 53 68 6f 75 6c 64 20 62 65 ┆tency in pass 5 Should be┆
0x30180…301a0 20 72 65 70 6f 72 74 65 64 2e 20 0d 0a 0d 0a 77 72 6f 6e 67 20 70 61 73 73 20 34 2f 70 61 73 73 ┆ reported. wrong pass 4/pass┆
0x301a0…301c0 20 35 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 0d 0a 0d 0a 68 61 72 64 77 61 72 65 20 73 74 61 63 ┆ 5 combination hardware stac┆
0x301c0…301e0 6b 20 6f 76 65 72 66 6c 6f 77 2c 20 73 68 6f 75 6c 64 20 62 65 20 72 65 70 6f 72 74 65 64 2e 20 ┆k overflow, should be reported. ┆
0x301e0…30200 0d 0a 0d 0a 54 68 65 20 66 61 74 61 6c 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 20 61 72 65 ┆ The fatal error messages are┆
0x30200…30220 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 73 6f 6d 65 20 69 6e 74 65 72 6e 61 6c 20 70 61 73 73 20 ┆ followed by some internal pass ┆
0x30220…30240 35 20 73 74 61 74 75 73 20 0a 69 6e 66 6f 72 6d 61 74 69 6f 6e 3a 20 0d 0a 0d 0a 20 20 20 20 74 ┆5 status information: t┆
0x30240…30260 6f 6b 65 6e 20 20 20 20 20 20 3d 20 3c 63 75 72 72 65 6e 74 20 63 6f 64 65 3e 20 20 20 20 20 20 ┆oken = <current code> ┆
0x30260…30280 0d 0a 20 20 20 20 6e 6f 20 6f 66 20 69 74 65 6d 73 3d 20 3c 6e 6f 20 6f 66 20 72 65 61 64 20 69 ┆ no of items= <no of read i┆
0x30280…302a0 74 65 6d 73 3e 20 20 20 20 20 20 0d 0a 20 20 20 20 73 74 61 63 6b 20 20 20 20 20 20 3d 20 73 74 ┆tems> stack = st┆
0x302a0…302c0 61 63 6b 20 73 69 7a 65 20 20 20 20 20 20 0d 0a 20 20 20 20 68 77 20 73 74 61 63 6b 20 73 69 7a ┆ack size hw stack siz┆
0x302c0…302e0 65 3d 3c 73 69 7a 65 20 6f 66 20 77 6f 72 6b 20 61 72 65 61 3e 20 0d 0a 0d 0a 54 68 69 73 20 73 ┆e=<size of work area> This s┆
0x302e0…30300 74 61 74 75 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 66 6f 6c 6c 6f 77 65 64 20 62 79 ┆tatus information is followed by┆
0x30300…30320 20 74 68 65 20 70 61 73 63 61 6c 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 3a 20 0a 42 72 65 61 ┆ the pascal error message: Brea┆
0x30320…30340 6b 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 74 72 61 63 65 20 6f 66 20 74 68 65 20 61 63 ┆k, followed by a trace of the ac┆
0x30340…30360 74 69 76 65 20 70 61 73 73 35 20 72 6f 75 74 69 6e 65 73 2e 20 0d 0a 0d 0a 49 6e 74 65 72 6e 61 ┆tive pass5 routines. Interna┆
0x30360…30380 6c 20 65 72 72 6f 72 73 20 69 6e 20 70 61 73 73 35 20 64 75 72 69 6e 67 20 63 6f 64 65 20 67 65 ┆l errors in pass5 during code ge┆
0x30380…303a0 6e 65 72 61 74 69 6f 6e 20 28 73 68 6f 75 6c 64 20 62 65 20 72 65 70 6f 72 74 65 64 29 3a 20 0d ┆neration (should be reported): ┆
0x303a0…303c0 0a 0d 0a 65 72 72 6f 72 20 69 6e 20 68 77 20 73 74 61 63 6b 20 65 76 61 6c 75 61 74 69 6f 6e 2e ┆ error in hw stack evaluation.┆
0x303c0…303e0 20 0d 0a 0d 0a 8c 8a d8 0a 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 6c 69 6e 65 20 77 69 74 68 ┆ їіп followed by a line with┆
0x303e0…30400 20 6f 6e 65 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 73 2e 20 0d 0a 20 20 20 2d 20 84 6f 63 ┆ one of the messages. - ёoc┆
0x30400…30420 63 75 72 72 65 64 20 69 6e 20 67 65 6e 65 72 61 74 69 6e 67 20 63 6f 64 65 20 66 6f 72 20 73 69 ┆curred in generating code for si┆
0x30420…30440 6d 70 6c 65 20 6f 70 65 6e 20 66 75 6e 63 74 69 6f 6e 2e 20 20 0d 0a 20 20 20 2d 20 84 6f 63 63 ┆mple open function. - ёocc┆
0x30440…30460 75 72 72 65 64 20 77 68 65 6e 20 67 65 6e 65 72 61 74 69 6e 67 20 63 6f 64 65 20 66 6f 72 20 61 ┆urred when generating code for a┆
0x30460…30480 72 72 61 79 20 77 69 74 68 20 73 79 73 74 65 6d 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 0d 0a 20 20 ┆rray with system components ┆
0x30480…304a0 20 2d 20 84 6f 63 63 75 72 72 65 64 20 77 68 65 6e 20 67 65 6e 65 72 61 74 69 6e 67 20 63 6f 64 ┆ - ёoccurred when generating cod┆
0x304a0…304c0 65 20 66 6f 72 20 72 65 66 20 72 65 6d 6f 76 61 6c 20 0d 0a 20 20 20 2d 20 84 6f 63 63 75 72 72 ┆e for ref removal - ёoccurr┆
0x304c0…304e0 65 64 20 77 68 65 6e 20 67 65 6e 65 72 61 74 69 6e 67 20 63 6f 64 65 20 66 6f 72 20 70 72 6f 63 ┆ed when generating code for proc┆
0x304e0…30500 65 73 73 20 72 65 6d 6f 76 61 6c 20 0d 0a 0d 0a 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 20 ┆ess removal followed by the ┆
0x30500…30520 6c 69 6e 65 3a 20 20 0d 0a 20 68 77 5f 73 74 61 63 6b 5f 73 69 7a 65 20 69 73 3a 20 3c 73 69 7a ┆line: hw_stack_size is: <siz┆
0x30520…30540 65 3e 20 0d 0a 0d 0a 0d 0a 16 53 42 0d 0a 4d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 50 61 73 73 ┆e> SB Messages from Pass┆
0x30540…30560 20 36 0d 0a 0d 0a 54 68 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 3a 0d 0a 63 6f 6e 73 74 61 6e ┆ 6 The messages are: constan┆
0x30560…30580 74 20 3c 6e 61 6d 65 3e 20 74 6f 6f 20 73 6d 61 6c 6c 2e 20 53 6f 75 72 63 65 20 6c 69 6e 65 20 ┆t <name> too small. Source line ┆
0x30580…305a0 6e 75 6d 62 65 72 20 3d 20 3c 6c 69 6e 65 20 6e 6f 3e 2e 20 0d 0a 0d 0a 20 20 20 20 20 84 49 66 ┆number = <line no>. ёIf┆
0x305a0…305c0 20 3c 6e 61 6d 65 3e 20 69 73 20 22 62 75 66 66 65 72 73 69 7a 65 22 20 74 68 65 20 70 72 6f 67 ┆ <name> is "buffersize" the prog┆
0x305c0…305e0 72 61 6d 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 74 72 75 63 74 75 72 65 20 6f 63 63 75 80 0a 19 ┆ram contains a structure occuђ ┆
0x305e0…30600 85 80 80 70 79 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 36 34 6b 20 62 79 74 65 73 2e 20 0d 0a ┆Ёђђpying more than 64k bytes. ┆
0x30600…30620 0d 0a 20 20 20 20 20 84 49 66 20 3c 6e 61 6d 65 3e 20 69 73 20 22 64 65 73 63 72 31 5f 73 69 7a ┆ ёIf <name> is "descr1_siz┆
0x30620…30640 65 22 20 74 68 65 72 65 20 61 72 65 20 74 6f 6f 20 6d 61 6e 79 20 66 6f 72 6d 61 6c 20 70 61 72 ┆e" there are too many formal par┆
0x30640…30660 61 6d 65 74 65 72 73 20 0a 19 85 80 80 69 6e 20 74 68 65 20 70 72 6f 67 72 61 6d 20 6f 72 20 72 ┆ameters Ёђђin the program or r┆
0x30660…30680 6f 75 74 69 6e 65 2e 20 54 68 65 20 69 6e 64 69 63 61 74 65 64 20 73 6f 75 72 63 65 20 6c 69 6e ┆outine. The indicated source lin┆
0x30680…306a0 65 20 69 73 20 74 68 65 20 6c 61 73 74 20 0a 19 85 80 80 6c 69 6e 65 20 6f 66 20 74 68 65 20 70 ┆e is the last Ёђђline of the p┆
0x306a0…306c0 72 6f 67 72 61 6d 2e 20 0d 0a 0d 0a 0d 0a 43 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 20 64 65 74 ┆rogram. Compiler error det┆
0x306c0…306e0 65 63 74 65 64 2e 20 50 6c 65 61 73 65 20 69 6e 66 6f 72 6d 20 74 68 65 20 63 6f 6d 70 69 6c 65 ┆ected. Please inform the compile┆
0x306e0…30700 72 20 67 72 6f 75 70 2e 20 0d 0a 0d 0a 20 20 20 20 20 4d 65 61 6e 69 6e 67 3a 20 69 6e 74 65 72 ┆r group. Meaning: inter┆
0x30700…30720 6e 61 6c 20 63 6f 6d 70 69 6c 65 72 20 69 6e 63 6f 6e 73 69 73 74 65 6e 63 79 2e 20 0d 0a 0d 0a ┆nal compiler inconsistency. ┆
0x30720…30740 45 72 72 6f 72 20 69 6e 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 0d 0a 55 73 65 20 6f 70 74 69 ┆Error in compilation. Use opti┆
0x30740…30760 6f 6e 20 63 6f 64 65 73 69 7a 65 2c 20 77 69 74 68 20 61 74 20 6c 65 61 73 74 20 3c 6e 75 6d 62 ┆on codesize, with at least <numb┆
0x30760…30780 65 72 3e 20 61 73 20 70 61 67 65 20 73 69 7a 65 2e 20 0d 0a 0d 0a 20 20 20 20 20 84 4d 65 61 6e ┆er> as page size. ёMean┆
0x30780…307a0 69 6e 67 3a 20 74 68 65 20 70 72 6f 67 72 61 6d 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 74 72 75 ┆ing: the program contains a stru┆
0x307a0…307c0 63 74 75 72 65 20 77 68 69 63 68 20 6e 65 65 64 73 20 3c 6e 75 6d 62 65 72 3e 20 0a 19 85 80 80 ┆cture which needs <number> Ёђђ┆
0x307c0…307e0 63 6f 6e 73 65 63 75 74 69 76 65 20 62 79 74 65 73 20 6f 6e 20 74 68 65 20 73 61 6d 65 20 63 6f ┆consecutive bytes on the same co┆
0x307e0…30800 64 65 20 70 61 67 65 2e 20 0d 0a 16 53 61 0d 0a 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c ┆de page. Sa Real-Time Pascal┆
0x30800…30820 20 53 6f 75 72 63 65 20 50 72 6f 67 72 61 6d 20 55 74 69 6c 69 74 69 65 73 0d 0a 0d 0a 01 73 7b ┆ Source Program Utilities s{┆
0x30820…30840 74 20 6b 61 70 69 74 65 6c 6e 61 76 6e 20 3d 20 22 52 54 50 20 53 6f 75 72 63 65 20 50 72 6f 67 ┆t kapitelnavn = "RTP Source Prog┆
0x30840…30860 72 61 6d 20 55 74 69 6c 69 74 69 65 73 22 0d 0a 0d 0a 16 53 42 0d 0a 49 6e 64 65 6e 74 2c 20 54 ┆ram Utilities" SB Indent, T┆
0x30860…30880 65 78 74 20 46 6f 72 6d 61 74 74 69 6e 67 20 55 74 69 6c 69 74 79 0d 0a 16 73 6f 20 69 6e 64 65 ┆ext Formatting Utility so inde┆
0x30880…308a0 6e 74 0d 0a 0d 0a 54 68 65 20 70 72 6f 67 72 61 6d 20 70 65 72 66 6f 72 6d 73 20 69 6e 64 65 6e ┆nt The program performs inden┆
0x308a0…308c0 74 69 6f 6e 20 6f 66 20 73 6f 75 72 63 65 20 70 72 6f 67 72 61 6d 73 20 64 65 70 65 6e 64 69 6e ┆tion of source programs dependin┆
0x308c0…308e0 67 20 6f 6e 20 74 68 65 20 0a 6f 70 74 69 6f 6e 73 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 ┆g on the options specified in t┆
0x308e0…30900 68 65 20 63 61 6c 6c 20 61 6e 64 20 6f 6e 20 74 68 65 20 6b 65 79 77 6f 72 64 73 28 72 65 73 65 ┆he call and on the keywords(rese┆
0x30900…30920 72 76 65 64 20 77 6f 72 64 73 29 20 6f 66 20 0a 50 61 73 63 61 6c 2f 52 65 61 6c 2d 54 69 6d 65 ┆rved words) of Pascal/Real-Time┆
0x30920…30940 20 50 61 73 63 61 6c 2e 20 0d 0a 0d 0a 63 61 6c 6c 20 3a 20 0d 0a 20 7b 6f 75 74 70 75 74 5f 66 ┆ Pascal. call : {output_f┆
0x30940…30960 69 6c 65 20 3d 7d 20 20 69 6e 64 65 6e 74 20 69 6e 70 75 74 5f 66 69 6c 65 20 7b 6f 70 74 69 6f ┆ile =} indent input_file {optio┆
0x30960…30980 6e 7d 2a 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 ┆n}* -L A1@ ┆
0x30980…309a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 ┆ - ┆
0x309a0…309c0 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x309c0…309e0 00 00 00 00 00 00 00 00 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 20 41 76 61 69 6c ┆ - Avail┆
0x309e0…30a00 61 62 6c 65 20 6f 70 74 69 6f 6e 73 20 61 72 65 3a 20 0d 0a 20 6e 6f 69 6e 64 09 6e 6f 20 69 6e ┆able options are: noind no in┆
0x30a00…30a20 64 65 6e 74 69 6f 6e 2c 20 74 68 65 20 74 65 78 74 20 69 73 20 6c 65 66 74 20 6a 75 73 74 69 66 ┆dention, the text is left justif┆
0x30a20…30a40 69 65 64 0d 0a 20 6d 79 69 6e 64 09 69 6e 64 65 6e 74 69 6f 6e 20 69 73 20 6e 6f 74 20 63 68 61 ┆ied myind indention is not cha┆
0x30a40…30a60 6e 67 65 64 0d 0a 20 6c 69 6e 65 73 09 6c 69 6e 65 20 6e 75 6d 62 65 72 73 20 61 72 65 20 67 65 ┆nged lines line numbers are ge┆
0x30a60…30a80 6e 65 72 61 74 65 64 0d 0a 20 6c 63 09 6c 6f 77 65 72 20 63 61 73 65 20 69 64 65 6e 74 69 66 69 ┆nerated lc lower case identifi┆
0x30a80…30aa0 65 72 73 2c 20 75 70 70 65 72 20 63 61 73 65 20 6b 65 79 20 77 6f 72 64 73 0d 0a 20 75 63 09 74 ┆ers, upper case key words uc t┆
0x30aa0…30ac0 68 65 20 74 65 78 74 20 69 73 20 63 6f 6e 76 65 72 74 65 64 20 74 6f 20 75 70 70 65 72 20 63 61 ┆he text is converted to upper ca┆
0x30ac0…30ae0 73 65 0d 0a 20 6d 61 72 6b 28 2e 63 6f 75 6e 74 29 09 84 6d 61 72 6b 20 62 65 67 69 6e 2f 63 61 ┆se mark(.count) ёmark begin/ca┆
0x30ae0…30b00 73 65 2f 72 65 63 6f 72 64 20 2d 20 65 6e 64 20 6d 61 74 63 68 69 6e 67 2e 20 49 66 20 63 6f 75 ┆se/record - end matching. If cou┆
0x30b00…30b20 6e 74 20 0a 19 91 80 80 73 70 65 63 69 66 69 65 64 20 74 68 65 6e 20 6d 61 72 6b 20 77 69 74 68 ┆nt Љђђspecified then mark with┆
0x30b20…30b40 20 64 69 67 69 74 73 2c 20 65 6c 73 65 20 77 69 74 68 20 21 0d 0a 20 62 6c 6f 63 6b 63 6f 75 6e ┆ digits, else with ! blockcoun┆
0x30b40…30b60 74 09 84 73 68 6f 77 20 63 75 72 72 65 6e 74 20 62 6c 6f 63 6b 20 6e 75 6d 62 65 72 20 61 74 20 ┆t ёshow current block number at ┆
0x30b60…30b80 74 68 65 20 6c 65 66 74 20 6f 66 20 74 68 65 20 74 65 78 74 0d 0a 20 6c 69 73 74 09 65 71 75 69 ┆the left of the text list equi┆
0x30b80…30ba0 76 61 6c 65 6e 74 20 74 6f 3a 20 6c 69 6e 65 73 20 6d 61 72 6b 0d 0a 20 70 61 73 63 61 6c 09 52 ┆valent to: lines mark pascal R┆
0x30ba0…30bc0 43 38 30 30 30 20 70 61 73 63 61 6c 20 69 6e 64 65 6e 74 69 6f 6e 20 6d 6f 64 65 0d 0a 20 72 74 ┆C8000 pascal indention mode rt┆
0x30bc0…30be0 70 09 52 54 50 33 35 30 32 20 69 6e 64 65 6e 74 69 6f 6e 20 6d 6f 64 65 20 0d 0a 20 52 54 50 33 ┆p RTP3502 indention mode RTP3┆
0x30be0…30c00 35 30 32 32 09 52 54 50 33 35 30 32 32 20 69 6e 64 65 6e 74 69 6f 6e 20 6d 6f 64 65 20 0d 0a 20 ┆5022 RTP35022 indention mode ┆
0x30c00…30c20 69 6e 63 6c 75 64 65 09 65 78 70 61 6e 64 20 24 49 4e 43 4c 55 44 45 20 64 69 72 65 63 74 69 76 ┆include expand $INCLUDE directiv┆
0x30c20…30c40 65 73 20 0d 0a 20 73 65 74 2e 73 77 69 74 63 68 2e 76 61 6c 09 61 73 73 69 67 6e 20 74 68 65 20 ┆es set.switch.val assign the ┆
0x30c40…30c60 76 61 6c 75 65 20 6f 66 20 76 61 6c 20 74 6f 20 73 77 69 74 63 68 20 0d 0a 20 68 65 6c 70 09 70 ┆value of val to switch help p┆
0x30c60…30c80 72 6f 64 75 63 65 20 74 68 69 73 20 6c 69 73 74 20 6f 66 20 68 65 6c 70 20 69 6e 66 6f 72 6d 61 ┆roduce this list of help informa┆
0x30c80…30ca0 74 69 6f 6e 0d 0a 0d 0a 53 74 6f 72 61 67 65 20 72 65 71 75 69 72 65 6d 65 6e 74 73 3a 20 0d 0a ┆tion Storage requirements: ┆
0x30ca0…30cc0 54 68 65 20 63 6f 72 65 20 73 74 6f 72 65 20 72 65 71 75 69 72 65 64 20 66 6f 72 20 69 6e 64 65 ┆The core store required for inde┆
0x30cc0…30ce0 6e 74 20 69 73 20 31 36 30 30 30 20 68 57 20 28 73 69 7a 65 20 31 36 30 30 30 29 2e 20 0d 0a 0d ┆nt is 16000 hW (size 16000). ┆
0x30ce0…30d00 0a 45 72 72 6f 72 20 6d 65 73 73 61 67 65 73 3a 20 0d 0a 0d 0a 49 66 20 65 72 72 6f 72 73 20 61 ┆ Error messages: If errors a┆
0x30d00…30d20 72 65 20 64 65 74 65 63 74 65 64 2c 20 74 68 65 20 6f 6b 2d 62 69 74 20 69 73 20 69 6e 69 74 69 ┆re detected, the ok-bit is initi┆
0x30d20…30d40 61 6c 69 7a 65 64 20 74 6f 20 6f 6b 2e 6e 6f 2e 20 0d 0a 0d 0a 54 68 65 20 6d 65 73 73 61 67 65 ┆alized to ok.no. The message┆
0x30d40…30d60 73 20 61 72 65 3a 0d 0a 3f 3f 3f 20 20 20 69 6c 6c 65 67 61 6c 20 69 6e 70 75 74 2f 66 69 6c 65 ┆s are: ??? illegal input/file┆
0x30d60…30d80 6e 61 6d 65 20 0d 0a 20 20 20 20 20 20 49 6e 70 75 74 20 66 69 6c 65 20 6d 75 73 74 20 62 65 20 ┆name Input file must be ┆
0x30d80…30da0 73 70 65 63 69 66 69 65 64 2e 20 0d 0a 0d 0a 2a 2a 20 20 20 20 20 77 61 72 6e 69 6e 67 2c 20 65 ┆specified. ** warning, e┆
0x30da0…30dc0 6e 64 28 73 29 20 6d 69 73 73 69 6e 67 20 0d 0a 20 20 20 20 20 20 20 84 41 6e 20 65 72 72 6f 72 ┆nd(s) missing ёAn error┆
0x30dc0…30de0 20 69 6e 20 74 68 65 20 62 65 67 69 6e 2d 65 6e 64 20 73 74 72 75 63 74 75 72 65 20 68 61 73 20 ┆ in the begin-end structure has ┆
0x30de0…30e00 62 65 65 6e 20 64 65 74 65 63 74 65 64 2e 20 0d 0a 0d 0a 2a 2a 20 20 20 20 20 70 72 65 6d 61 74 ┆been detected. ** premat┆
0x30e00…30e20 75 72 65 20 65 6e 64 20 6f 66 20 66 69 6c 65 2e 20 0d 0a 20 20 20 20 20 20 20 43 6f 6d 6d 65 6e ┆ure end of file. Commen┆
0x30e20…30e40 74 20 6f 72 20 73 74 72 69 6e 67 20 6e 6f 74 20 74 65 72 6d 69 6e 61 74 65 64 2e 20 0d 0a 0d 0a ┆t or string not terminated. ┆
0x30e40…30e60 54 68 65 20 64 65 66 61 75 6c 74 20 6c 61 6e 67 75 61 67 65 2c 20 69 2e 65 2e 20 73 65 74 20 6f ┆The default language, i.e. set o┆
0x30e60…30e80 66 20 6b 65 79 20 77 6f 72 64 73 2c 20 61 72 65 20 64 65 74 65 63 74 65 64 20 66 72 6f 6d 20 74 ┆f key words, are detected from t┆
0x30e80…30ea0 68 65 20 0a 63 61 74 61 6c 6f 67 75 65 20 65 6e 74 72 79 20 74 61 69 6c 20 6f 66 20 69 6e 64 65 ┆he catalogue entry tail of inde┆
0x30ea0…30ec0 6e 74 2e 20 54 68 65 20 77 6f 72 64 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 64 61 74 65 20 ┆nt. The word following the date ┆
0x30ec0…30ee0 61 6e 64 20 74 69 6d 65 20 0a 69 73 20 63 6f 64 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 20 0d ┆and time is coded as follows: ┆
0x30ee0…30f00 0a 20 20 31 20 20 20 66 6f 72 20 50 61 73 63 61 6c 0d 0a 20 20 32 20 20 20 66 6f 72 20 52 54 50 ┆ 1 for Pascal 2 for RTP┆
0x30f00…30f20 0d 0a 20 32 32 20 20 20 66 6f 72 20 52 54 50 33 35 30 32 32 0d 0a 0d 0a 0d 0a 16 53 42 0d 0a 43 ┆ 22 for RTP35022 SB C┆
0x30f20…30f40 72 6f 73 73 20 52 65 66 65 72 65 6e 63 65 20 50 72 6f 67 72 61 6d 0d 0a 16 73 6f 20 63 72 6f 73 ┆ross Reference Program so cros┆
0x30f40…30f60 73 20 72 65 66 65 72 65 6e 63 65 0d 0a 0d 0a 50 72 6f 64 75 63 65 73 20 61 20 63 72 6f 73 73 20 ┆s reference Produces a cross ┆
0x30f60…30f80 72 65 66 65 72 65 6e 63 65 20 6c 69 73 74 69 6e 67 20 6f 66 20 74 68 65 20 69 64 65 6e 74 69 66 ┆reference listing of the identif┆
0x30f80…30fa0 69 65 72 73 20 61 6e 64 20 6e 75 6d 62 65 72 73 20 61 6e 64 20 0a 61 20 75 73 65 20 63 6f 75 6e ┆iers and numbers and a use coun┆
0x30fa0…30fc0 74 20 6f 66 20 74 68 65 20 50 41 53 43 41 4c 2f 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c ┆t of the PASCAL/Real-Time Pascal┆
0x30fc0…30fe0 20 6b 65 79 77 6f 72 64 73 20 75 73 65 64 20 69 6e 20 74 68 65 20 0a 69 6e 70 75 74 20 74 65 78 ┆ keywords used in the input tex┆
0x30fe0…31000 74 2e 20 0d 0a 0d 0a 54 68 65 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e 63 65 20 6c 69 73 74 20 ┆t. The cross reference list ┆
0x31000…31020 69 73 20 6d 61 64 65 20 77 69 74 68 20 6e 6f 20 72 65 67 61 72 64 20 74 6f 20 74 68 65 20 62 6c ┆is made with no regard to the bl┆
0x31020…31040 6f 63 6b 20 73 74 72 75 63 80 0a 74 75 72 65 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 20 ┆ock strucђ ture of the program. ┆
0x31040…31060 54 68 65 20 6c 69 73 74 20 69 73 20 73 6f 72 74 65 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 ┆The list is sorted according to ┆
0x31060…31080 74 68 65 20 49 53 4f 2d 61 6c 70 68 61 62 65 74 2c 20 0a 69 2e 65 2e 20 6e 75 6d 62 65 72 73 20 ┆the ISO-alphabet, i.e. numbers ┆
0x31080…310a0 62 65 66 6f 72 65 20 6c 65 74 74 65 72 73 2c 20 62 75 74 20 77 69 74 68 20 6e 6f 20 64 69 73 63 ┆before letters, but with no disc┆
0x310a0…310c0 72 69 6d 69 6e 61 74 69 6f 6e 20 62 65 74 77 65 65 6e 20 75 70 70 65 72 20 0a 61 6e 64 20 6c 6f ┆rimination between upper and lo┆
0x310c0…310e0 77 65 72 20 63 61 73 65 20 6c 65 74 74 65 72 73 2e 20 0d 0a 0d 0a 8c 92 98 0a 54 68 65 20 6f 63 ┆wer case letters. їњў The oc┆
0x310e0…31100 63 75 72 72 65 6e 63 65 20 6c 69 73 74 20 66 6f 72 20 61 6e 20 69 64 65 6e 74 69 66 69 65 72 20 ┆currence list for an identifier ┆
0x31100…31120 63 6f 6e 73 69 73 74 73 20 6f 66 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 0a 50 61 73 63 61 ┆consists of a sequence of Pasca┆
0x31120…31140 6c 2f 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 63 61 6c 20 6c 69 6e 65 20 6e 75 6d 62 65 72 73 2e ┆l/Real-Time Pascal line numbers.┆
0x31140…31160 20 54 68 65 20 6f 63 63 75 72 72 65 6e 63 65 20 6b 69 6e 64 20 69 73 20 73 70 65 63 69 80 0a 66 ┆ The occurrence kind is speciђ f┆
0x31160…31180 69 65 64 20 62 79 20 6d 65 61 6e 73 20 6f 66 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 66 6f ┆ied by means of the character fo┆
0x31180…311a0 6c 6c 6f 77 69 6e 67 20 74 68 65 20 6c 69 6e 65 20 6e 75 6d 62 65 72 3a 20 0d 0a 0d 0a 2a 20 20 ┆llowing the line number: * ┆
0x311a0…311c0 20 20 20 6d 65 61 6e 69 6e 67 20 74 68 65 20 69 64 65 6e 74 69 66 69 65 72 20 6f 72 20 6e 75 6d ┆ meaning the identifier or num┆
0x311c0…311e0 62 65 72 20 69 73 20 66 6f 75 6e 64 20 69 6e 20 61 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 70 61 ┆ber is found in a declaration pa┆
0x311e0…31200 72 74 2e 20 0d 0a 0d 0a 3d 20 20 20 20 20 6d 65 61 6e 69 6e 67 20 74 68 65 20 69 64 65 6e 74 69 ┆rt. = meaning the identi┆
0x31200…31220 66 69 65 72 20 69 73 20 61 73 73 69 67 6e 65 64 20 74 6f 20 69 6e 20 74 68 65 20 6c 69 6e 65 20 ┆fier is assigned to in the line ┆
0x31220…31240 73 70 65 63 69 66 69 65 64 2e 20 0d 0a 0d 0a 3a 20 20 20 20 20 6d 65 61 6e 69 6e 67 20 74 68 65 ┆specified. : meaning the┆
0x31240…31260 20 69 64 65 6e 74 69 66 69 65 72 20 6f 72 20 6e 75 6d 62 65 72 20 6f 63 63 75 72 72 65 64 20 61 ┆ identifier or number occurred a┆
0x31260…31280 73 20 61 20 6c 61 62 65 6c 2e 20 0d 0a 0d 0a 62 6c 61 6e 6b 20 61 6c 6c 20 6f 74 68 65 72 20 75 ┆s a label. blank all other u┆
0x31280…312a0 73 65 73 2e 20 0d 0a 0d 0a 3c 3c 3c 3c 3c 3c 3c 3c 3c 3c 3c 3c 3c 3c 20 69 6e 20 74 68 65 20 6c ┆ses. <<<<<<<<<<<<<< in the l┆
0x312a0…312c0 69 73 74 20 69 73 20 61 20 77 61 72 6e 69 6e 67 20 64 65 6e 6f 74 69 6e 67 20 74 68 61 74 20 74 ┆ist is a warning denoting that t┆
0x312c0…312e0 68 65 20 6e 61 6d 65 20 0a 63 6f 6e 73 69 73 74 73 20 6f 66 20 6d 6f 72 65 20 74 68 61 6e 20 31 ┆he name consists of more than 1┆
0x312e0…31300 32 20 63 68 61 72 61 63 74 65 72 73 2c 20 77 68 69 63 68 20 69 73 20 74 68 65 20 6e 75 6d 62 65 ┆2 characters, which is the numbe┆
0x31300…31320 72 20 6f 66 20 73 69 67 6e 69 66 69 80 0a 63 61 6e 74 20 63 68 61 72 61 63 74 65 72 73 20 66 6f ┆r of signifiђ cant characters fo┆
0x31320…31340 72 20 50 61 73 63 61 6c 2d 69 64 65 6e 74 69 66 69 65 72 73 2e 20 4f 6e 6c 79 20 70 72 6f 64 75 ┆r Pascal-identifiers. Only produ┆
0x31340…31360 63 65 64 20 69 66 20 74 68 65 20 6c 61 6e 67 75 61 67 65 20 0a 69 73 20 50 61 73 63 61 6c 2e 0d ┆ced if the language is Pascal. ┆
0x31360…31380 0a 0d 0a 53 79 6e 74 61 78 20 6f 66 20 63 61 6c 6c 3a 0d 0a 20 6f 75 74 70 75 74 5f 66 69 6c 65 ┆ Syntax of call: output_file┆
0x31380…313a0 20 3d 20 63 72 6f 73 73 20 69 6e 70 75 74 5f 66 69 6c 65 20 7b 6f 70 74 69 6f 6e 7d 2a 0d 0a 04 ┆ = cross input_file {option}* ┆
0x313a0…313c0 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x313c0…313e0 00 00 00 00 00 00 00 12 19 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 ┆ - -L ┆
0x313e0…31400 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x31400…31420 12 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 0d 0a 41 76 61 69 6c 61 62 6c 65 20 6f 70 ┆ - Available op┆
0x31420…31440 74 69 6f 6e 73 3a 0d 0a 62 6f 73 73 6c 69 6e 65 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 09 84 64 65 ┆tions: bossline.<yes or no> ёde┆
0x31440…31460 66 61 75 6c 74 20 69 73 20 6e 6f 2c 20 69 2e 65 2e 20 64 6f 20 6e 6f 74 20 61 64 64 20 62 6f 73 ┆fault is no, i.e. do not add bos┆
0x31460…31480 73 20 6c 69 6e 65 20 0a 19 98 80 80 6e 75 6d 62 65 72 73 0d 0a 73 75 72 76 65 79 2e 3c 79 65 73 ┆s line ўђђnumbers survey.<yes┆
0x31480…314a0 20 6f 72 20 6e 6f 3e 09 84 64 65 66 61 75 6c 74 20 69 73 20 6e 6f 2c 20 69 2e 65 2e 20 6e 6f 20 ┆ or no> ёdefault is no, i.e. no ┆
0x314a0…314c0 70 72 69 6e 74 20 6f 66 20 73 75 72 76 65 79 20 0a 19 98 80 80 69 6e 66 6f 72 6d 61 74 69 6f 6e ┆print of survey ўђђinformation┆
0x314c0…314e0 0d 0a 70 61 73 63 61 6c 6c 69 6e 65 73 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 09 84 79 65 73 20 69 ┆ pascallines.<yes or no> ёyes i┆
0x314e0…31500 73 20 64 65 66 61 75 6c 74 20 66 6f 72 20 50 61 73 63 61 6c 20 70 72 6f 67 72 61 6d 73 2c 20 6e ┆s default for Pascal programs, n┆
0x31500…31520 6f 20 69 73 20 0a 19 98 80 80 64 65 66 61 75 6c 74 20 66 6f 72 20 52 54 50 20 70 72 6f 67 72 61 ┆o is ўђђdefault for RTP progra┆
0x31520…31540 6d 73 2e 0d 0a 74 69 74 6c 65 2e 3c 6e 61 6d 65 3e 09 09 84 64 65 66 61 75 6c 74 20 6e 61 6d 65 ┆ms. title.<name> ёdefault name┆
0x31540…31560 20 69 73 20 69 6e 70 75 74 5f 66 69 6c 65 20 6e 61 6d 65 20 74 68 65 20 6e 61 6d 65 20 0a 19 98 ┆ is input_file name the name ў┆
0x31560…31580 80 80 77 69 6c 6c 20 61 70 70 65 61 72 20 69 6e 20 74 68 65 20 70 61 67 65 20 68 65 61 64 69 6e ┆ђђwill appear in the page headin┆
0x31580…315a0 67 73 0d 0a 6b 65 79 77 6f 72 64 73 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 09 84 84 64 65 66 61 75 ┆gs keywords.<yes or no> ёёdefau┆
0x315a0…315c0 6c 74 20 69 73 20 79 65 73 2c 20 69 2e 65 2e 20 74 68 65 20 6b 65 79 77 6f 72 64 73 20 61 72 65 ┆lt is yes, i.e. the keywords are┆
0x315c0…315e0 20 6c 69 73 74 65 64 20 0a 19 98 80 80 73 65 70 61 72 61 74 65 20 77 69 74 68 20 6f 63 63 75 72 ┆ listed ўђђseparate with occur┆
0x315e0…31600 72 65 6e 63 65 20 63 6f 75 6e 74 73 0d 0a 6c 70 70 2e 3c 6e 75 6d 62 65 72 3e 09 09 84 6e 75 6d ┆rence counts lpp.<number> ёnum┆
0x31600…31620 62 65 72 20 6f 66 20 70 72 6f 67 72 61 6d 2f 63 72 6f 73 73 20 72 65 66 20 4c 69 6e 65 73 20 50 ┆ber of program/cross ref Lines P┆
0x31620…31640 65 72 20 50 61 67 65 0d 0a 63 70 70 2e 3c 6e 75 6d 62 65 72 3e 09 09 84 6e 75 6d 62 65 72 20 6f ┆er Page cpp.<number> ёnumber o┆
0x31640…31660 66 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e 63 65 20 43 6f 6c 75 6d 6e 73 20 50 65 72 20 50 61 ┆f cross reference Columns Per Pa┆
0x31660…31680 67 65 0d 0a 6c 61 6e 67 75 61 67 65 2e 3c 6c 61 6e 67 75 61 67 65 3e 09 84 66 6f 72 20 73 65 6c ┆ge language.<language> ёfor sel┆
0x31680…316a0 65 63 74 69 6f 6e 20 6f 66 20 6c 61 6e 67 75 61 67 65 20 73 70 65 63 69 66 69 63 20 6b 65 79 80 ┆ection of language specific keyђ┆
0x316a0…316c0 77 6f 72 64 73 0d 0a 0d 0a 3c 6c 61 6e 67 75 61 67 65 3e 3d 20 70 61 73 63 61 6c 20 7c 20 72 74 ┆words <language>= pascal | rt┆
0x316c0…316e0 70 20 28 66 6f 72 20 52 54 50 33 35 30 32 29 20 7c 20 52 54 50 33 35 30 32 32 0d 0a 0d 0a 54 68 ┆p (for RTP3502) | RTP35022 Th┆
0x316e0…31700 65 20 64 65 66 61 75 6c 74 20 6c 61 6e 67 75 61 67 65 20 61 6e 64 20 70 61 67 65 20 66 6f 72 6d ┆e default language and page form┆
0x31700…31720 61 74 20 6f 66 20 43 52 4f 53 53 20 69 73 20 6f 62 74 61 69 6e 65 64 20 66 72 6f 6d 20 74 68 65 ┆at of CROSS is obtained from the┆
0x31720…31740 20 0a 63 61 74 61 6c 6f 67 75 65 20 65 6e 74 72 79 20 74 61 69 6c 2e 20 54 68 65 20 77 6f 72 64 ┆ catalogue entry tail. The word┆
0x31740…31760 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 64 61 74 65 20 61 6e 64 20 74 69 6d 65 20 68 6f 6c ┆ following the date and time hol┆
0x31760…31780 64 73 20 74 68 65 20 0a 69 6e 80 66 6f 72 6d 61 74 69 6f 6e 2e 20 42 79 20 6d 65 61 6e 73 20 6f ┆ds the inђformation. By means o┆
0x31780…317a0 66 20 74 68 65 20 75 74 69 6c 69 74 79 20 63 72 6f 73 73 69 6e 73 74 20 69 73 20 69 74 20 70 6f ┆f the utility crossinst is it po┆
0x317a0…317c0 73 73 69 62 6c 65 20 74 6f 20 0a 63 68 65 63 6b 2f 63 68 61 6e 67 65 20 74 68 65 20 64 65 66 61 ┆ssible to check/change the defa┆
0x317c0…317e0 75 6c 74 20 73 65 74 74 69 6e 67 73 2c 20 73 65 65 20 62 65 6c 6f 77 2e 0d 0a 0d 0a 53 74 6f 72 ┆ult settings, see below. Stor┆
0x317e0…31800 61 67 65 20 72 65 71 75 69 72 65 6d 65 6e 74 73 3a 20 0d 0a 0d 0a 54 68 65 20 63 6f 72 65 20 73 ┆age requirements: The core s┆
0x31800…31820 74 6f 72 65 20 72 65 71 75 69 72 65 64 20 66 6f 72 20 63 72 6f 73 73 20 69 73 20 61 74 20 6c 65 ┆tore required for cross is at le┆
0x31820…31840 61 73 74 20 34 30 30 30 30 20 68 57 20 28 73 69 7a 65 20 34 30 30 30 30 29 2c 20 0a 62 75 74 20 ┆ast 40000 hW (size 40000), but ┆
0x31840…31860 74 68 65 20 72 65 71 75 69 72 65 6d 65 6e 74 73 20 64 65 70 65 6e 64 20 6f 6e 20 74 68 65 20 73 ┆the requirements depend on the s┆
0x31860…31880 69 7a 65 20 6f 66 20 74 68 65 20 69 6e 70 75 74 20 74 65 78 74 2e 20 0d 0a 0d 0a 8c 88 e8 0a 0d ┆ize of the input text. їѕУ ┆
0x31880…318a0 0a 49 66 20 65 72 72 6f 72 73 20 61 72 65 20 64 65 74 65 63 74 65 64 2c 20 74 68 65 20 6f 6b 2d ┆ If errors are detected, the ok-┆
0x318a0…318c0 62 69 74 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 74 6f 20 6f 6b 2e 6e 6f 2e 20 0d 0a 0d ┆bit is initialized to ok.no. ┆
0x318c0…318e0 0a 54 68 65 20 6d 65 73 73 61 67 65 73 20 61 72 65 3a 0d 0a 3f 3f 3f 20 20 20 69 6c 6c 65 67 61 ┆ The messages are: ??? illega┆
0x318e0…31900 6c 20 6f 75 74 70 75 74 2d 66 69 6c 65 6e 61 6d 65 20 0d 0a 20 20 20 20 20 20 4c 65 66 74 20 68 ┆l output-filename Left h┆
0x31900…31920 61 6e 64 20 73 69 64 65 20 6f 66 20 74 68 65 20 63 61 6c 6c 20 6d 75 73 74 20 62 65 20 61 20 6e ┆and side of the call must be a n┆
0x31920…31940 61 6d 65 2e 20 0d 0a 0d 0a 3f 3f 3f 20 20 20 6f 75 74 70 75 74 20 66 69 6c 65 20 6d 75 73 74 20 ┆ame. ??? output file must ┆
0x31940…31960 62 65 20 73 70 65 63 69 66 69 65 64 20 0d 0a 0d 0a 3f 3f 3f 20 20 20 69 6c 6c 65 67 61 6c 20 69 ┆be specified ??? illegal i┆
0x31960…31980 6e 70 75 74 2d 66 69 6c 65 6e 61 6d 65 20 0d 0a 20 20 20 20 20 20 49 6e 70 75 74 20 66 69 6c 65 ┆nput-filename Input file┆
0x31980…319a0 20 6d 75 73 74 20 62 65 20 73 70 65 63 69 66 69 65 64 2e 20 0d 0a 0d 0a 3f 3f 3f 20 20 20 79 65 ┆ must be specified. ??? ye┆
0x319a0…319c0 73 20 6f 72 20 6e 6f 20 65 78 70 65 63 74 65 64 20 0d 0a 0d 0a 3f 3f 3f 20 20 20 65 72 72 6f 72 ┆s or no expected ??? error┆
0x319c0…319e0 20 69 6e 20 62 72 61 63 6b 65 74 20 73 74 72 75 63 74 75 72 65 2c 20 64 65 74 65 63 74 65 64 20 ┆ in bracket structure, detected ┆
0x319e0…31a00 61 74 20 6c 69 6e 65 3a 20 78 78 20 0d 0a 20 20 20 20 20 20 4d 69 73 73 69 6e 67 20 22 29 22 28 ┆at line: xx Missing ")"(┆
0x31a00…31a20 27 73 29 20 0d 0a 0d 0a 3f 3f 3f 20 20 20 65 72 72 6f 72 20 69 6e 20 62 6c 6f 63 6b 73 74 72 75 ┆'s) ??? error in blockstru┆
0x31a20…31a40 63 74 75 72 65 2c 20 64 65 74 65 63 74 65 64 20 61 74 20 6c 69 6e 65 3a 20 78 78 20 0d 0a 20 20 ┆cture, detected at line: xx ┆
0x31a40…31a60 20 20 20 20 55 6e 6d 61 74 63 68 65 64 20 65 6e 64 2e 20 0d 0a 0d 0a 2a 2a 2a 2a 2a 20 84 77 61 ┆ Unmatched end. ***** ёwa┆
0x31a60…31a80 72 6e 69 6e 67 3a 20 65 6c 65 6d 65 6e 74 20 71 75 65 75 65 20 72 61 6e 20 66 75 6c 6c 2e 20 53 ┆rning: element queue ran full. S┆
0x31a80…31aa0 6f 6d 65 20 6f 66 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 61 20 6c 69 73 74 20 20 20 20 20 20 ┆ome of the names of a list ┆
0x31aa0…31ac0 20 0a 19 86 80 80 61 72 65 20 6e 6f 74 20 6d 61 72 6b 65 64 20 77 69 74 68 20 74 68 65 20 63 6f ┆ єђђare not marked with the co┆
0x31ac0…31ae0 72 72 65 63 74 20 61 74 74 72 69 62 75 74 65 20 28 20 3a 2c 20 3d 2c 20 2a 20 29 2e 20 0d 0a 0d ┆rrect attribute ( :, =, * ). ┆
0x31ae0…31b00 0a 0d 0a 16 73 63 0d 0a 43 72 6f 73 73 69 6e 73 74 0d 0a 0d 0a 54 68 65 20 64 65 66 61 75 6c 74 ┆ sc Crossinst The default┆
0x31b00…31b20 20 73 65 74 74 69 6e 67 73 20 6f 66 20 6c 61 6e 67 75 61 67 65 20 61 6e 64 20 70 61 67 65 20 66 ┆ settings of language and page f┆
0x31b20…31b40 6f 72 6d 61 74 20 6f 66 20 74 68 65 20 63 72 6f 73 73 20 72 65 80 0a 66 65 72 65 6e 63 65 20 70 ┆ormat of the cross reђ ference p┆
0x31b40…31b60 72 6f 67 72 61 6d 20 6d 61 79 20 62 65 20 63 68 65 63 6b 65 64 2f 63 68 61 6e 67 65 64 20 62 79 ┆rogram may be checked/changed by┆
0x31b60…31b80 20 6d 65 61 6e 73 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 20 0a 63 72 6f 73 73 69 6e 73 74 ┆ means of the program crossinst┆
0x31b80…31ba0 2e 20 42 65 6c 6f 77 20 69 73 20 61 6e 20 65 78 61 6d 70 6c 65 20 6f 66 20 61 20 72 75 6e 20 6f ┆. Below is an example of a run o┆
0x31ba0…31bc0 66 20 63 72 6f 73 73 69 6e 73 74 20 66 6f 6c 6c 6f 77 65 64 20 62 79 0d 0a 74 68 65 20 72 65 73 ┆f crossinst followed by the res┆
0x31bc0…31be0 75 6c 74 20 6f 66 20 61 20 6c 6f 6f 6b 75 70 20 6f 66 20 74 68 65 20 63 61 74 61 6c 6f 67 75 65 ┆ult of a lookup of the catalogue┆
0x31be0…31c00 20 65 6e 74 72 79 20 74 61 69 6c 20 6f 66 20 63 72 6f 73 73 2e 20 54 68 65 20 77 6f 72 64 20 0a ┆ entry tail of cross. The word ┆
0x31c00…31c20 61 66 74 65 72 20 74 68 65 20 64 61 74 65 20 61 6e 64 20 74 69 6d 65 20 69 73 20 63 6f 64 65 64 ┆after the date and time is coded┆
0x31c20…31c40 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0d 0a 4c 65 66 74 20 68 61 6c 66 20 77 6f 72 64 20 28 69 6e ┆ as follows: Left half word (in┆
0x31c40…31c60 20 66 72 6f 6e 74 20 6f 66 20 74 68 65 20 70 65 72 69 6f 64 29 20 63 6f 6e 74 61 69 6e 20 6c 61 ┆ front of the period) contain la┆
0x31c60…31c80 6e 67 75 61 67 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 3a 20 0d 0a 20 31 20 20 66 6f 72 20 50 61 ┆nguage information: 1 for Pa┆
0x31c80…31ca0 73 63 61 6c 0d 0a 20 32 20 20 66 6f 72 20 52 54 50 0d 0a 32 32 20 20 66 6f 72 20 52 54 50 33 35 ┆scal 2 for RTP 22 for RTP35┆
0x31ca0…31cc0 30 32 32 0d 0a 0d 0a 52 69 67 68 74 20 68 61 6c 66 20 77 6f 72 64 20 28 66 6f 6c 6c 6f 77 69 6e ┆022 Right half word (followin┆
0x31cc0…31ce0 67 20 74 68 65 20 70 65 72 69 6f 64 29 20 63 6f 6e 74 61 69 6e 20 70 61 67 65 20 66 6f 72 6d 61 ┆g the period) contain page forma┆
0x31ce0…31d00 74 20 69 6e 66 6f 72 6d 61 80 0a 74 69 6f 6e 2c 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 63 6f ┆t informaђ tion, the value is co┆
0x31d00…31d20 64 65 64 20 61 73 3a 0d 0a 20 20 20 20 20 20 4c 69 6e 65 73 20 50 65 72 20 50 61 67 65 2a 31 36 ┆ded as: Lines Per Page*16┆
0x31d20…31d40 2b 43 6f 6c 75 6d 6e 73 20 50 65 72 20 50 61 67 65 2e 0d 0a 0d 0a 0e 0a 45 78 61 6d 70 6c 65 20 ┆+Columns Per Page. Example ┆
0x31d40…31d60 6f 6e 20 75 73 65 20 6f 66 20 63 72 6f 73 73 69 6e 73 74 3a 0d 0a 0d 0a 04 00 2d 4c 0f 00 08 00 ┆on use of crossinst: -L ┆
0x31d60…31d80 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x31d80…31da0 12 19 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 ┆ - -L A1┆
0x31da0…31dc0 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12 19 2d ff ff ff ff ┆@ - ┆
0x31dc0…31de0 ff ff ff ff ff ff ff ff ff 04 0a a3 20 2a 63 72 6f 73 73 69 6e 73 74 0d 0a a3 20 43 75 72 72 65 ┆ Б *crossinst Б Curre┆
0x31de0…31e00 6e 74 20 73 65 74 74 69 6e 67 73 20 61 72 65 20 73 68 6f 77 6e 20 69 6e 20 62 72 61 63 6b 65 74 ┆nt settings are shown in bracket┆
0x31e00…31e20 73 0d 0a 0d 0a a3 0d 0a a3 20 4c 61 6e 67 75 61 67 65 3a 20 31 3a 20 70 61 73 63 61 6c 20 2f 20 ┆s Б Б Language: 1: pascal / ┆
0x31e20…31e40 32 3a 20 52 54 50 33 35 30 32 20 2f 20 33 3a 20 52 54 50 33 35 30 32 32 20 20 28 31 29 0d 0a a3 ┆2: RTP3502 / 3: RTP35022 (1) Б┆
0x31e40…31e60 20 31 0d 0a 0d 0a a3 20 0d 0a a3 20 50 61 67 65 20 66 6f 72 6d 61 74 3a 0d 0a a3 20 50 72 6f 67 ┆ 1 Б Б Page format: Б Prog┆
0x31e60…31e80 72 61 6d 2f 63 72 6f 73 73 20 72 65 66 65 72 65 6e 63 65 20 6c 69 6e 65 73 20 70 65 72 20 70 61 ┆ram/cross reference lines per pa┆
0x31e80…31ea0 67 65 2c 20 35 2d 32 35 35 2c 20 28 34 36 29 0d 0a a3 20 34 36 0d 0a 0d 0a a3 20 0d 0a a3 20 4e ┆ge, 5-255, (46) Б 46 Б Б N┆
0x31ea0…31ec0 75 6d 62 65 72 20 6f 66 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e 63 65 20 63 6f 6c 75 6d 6e 73 ┆umber of cross reference columns┆
0x31ec0…31ee0 20 69 6e 20 74 68 65 20 74 61 62 6c 65 2c 20 31 2d 31 35 2c 20 28 31 35 29 0d 0a a3 20 31 35 0d ┆ in the table, 1-15, (15) Б 15 ┆
0x31ee0…31f00 0a 0d 0a a3 a3 20 65 6e 64 0d 0a a3 20 62 6c 6f 63 6b 73 72 65 61 64 20 3d 20 37 0d 0a a3 20 2a ┆ ББ end Б blocksread = 7 Б *┆
0x31f00…31f20 6c 6f 6f 6b 75 70 20 63 72 6f 73 73 0d 0a a3 20 63 72 6f 73 73 20 20 20 20 20 20 3d 73 65 74 20 ┆lookup cross Б cross =set ┆
0x31f20…31f40 34 31 20 64 69 73 63 31 20 64 2e 38 39 30 34 31 31 2e 31 33 30 31 20 31 2e 37 35 31 20 30 20 32 ┆41 disc1 d.890411.1301 1.751 0 2┆
0x31f40…31f60 2e 30 20 36 38 20 20 3b 20 70 72 6f 6a 65 63 74 0d 0a a3 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆.0 68 ; project Б ;┆
0x31f60…31f80 20 20 31 39 33 20 37 36 20 33 20 2d 38 33 38 38 36 30 37 20 38 33 38 38 36 30 35 0d 0a 0f 0a 04 ┆ 193 76 3 -8388607 8388605 ┆
0x31f80…31fa0 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x31fa0…31fc0 00 00 00 00 00 00 00 12 19 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 0f 00 08 00 ┆ - -L ┆
0x31fc0…31fe0 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x31fe0…32000 12 19 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a a3 0d 0a 0d 0a 16 53 42 0d 0a 52 54 50 2d ┆ - Б SB RTP-┆
0x32000…32020 43 6f 6d 70 72 65 73 73 0d 0a 16 73 6f 20 63 6f 6d 70 72 65 73 73 2c 20 72 74 70 0d 0a 0d 0a 53 ┆Compress so compress, rtp S┆
0x32020…32040 6f 6d 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 74 69 6d 65 20 6d 61 79 20 62 65 20 73 61 76 65 ┆ome compilation time may be save┆
0x32040…32060 64 20 69 66 20 63 6f 6d 6d 6f 6e 20 63 6f 6e 74 65 78 74 73 20 61 72 65 20 63 6f 6d 70 72 65 73 ┆d if common contexts are compres┆
0x32060…32080 80 0a 73 65 64 2e 20 54 79 70 69 63 61 6c 6c 79 2c 20 63 6f 6e 74 65 78 74 73 20 61 72 65 20 63 ┆ђ sed. Typically, contexts are c┆
0x32080…320a0 6f 6d 70 69 6c 65 64 20 6f 76 65 72 20 61 6e 64 20 6f 76 65 72 2c 20 62 75 74 20 6f 6e 6c 79 20 ┆ompiled over and over, but only ┆
0x320a0…320c0 63 68 61 6e 67 65 64 20 0a 6e 6f 77 20 61 6e 64 20 74 68 65 6e 2e 20 48 65 6e 63 65 2c 20 63 6f ┆changed now and then. Hence, co┆
0x320c0…320e0 6d 70 69 6c 61 74 69 6f 6e 20 74 69 6d 65 20 69 73 20 73 70 65 6e 74 20 6f 6e 20 63 6f 6d 6d 65 ┆mpilation time is spent on comme┆
0x320e0…32100 6e 74 73 20 61 6e 64 20 73 75 80 0a 70 65 72 66 6c 75 6f 73 20 62 6c 61 6e 6b 73 20 66 72 6f 6d ┆nts and suђ perfluos blanks from┆
0x32100…32120 20 63 6f 6e 74 65 78 74 73 20 77 68 69 63 68 20 61 72 65 20 6f 66 20 6d 69 6e 69 6d 61 6c 20 69 ┆ contexts which are of minimal i┆
0x32120…32140 6e 74 65 72 65 73 74 20 66 6f 72 20 74 68 65 20 0a 6d 61 69 6e 20 70 72 6f 67 72 61 6d 2e 20 53 ┆nterest for the main program. S┆
0x32140…32160 75 70 70 6c 69 65 64 20 77 69 74 68 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 69 73 20 61 20 75 ┆upplied with the compiler is a u┆
0x32160…32180 74 69 6c 69 74 79 20 70 72 6f 67 72 61 6d 20 63 61 6c 6c 65 64 20 0a 72 74 70 63 6f 6d 70 72 65 ┆tility program called rtpcompre┆
0x32180…321a0 73 73 2e 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 6d 61 79 20 63 6f 6d 70 61 63 74 20 74 68 65 ┆ss. This program may compact the┆
0x321a0…321c0 20 74 65 78 74 20 62 79 20 72 65 6d 6f 76 69 6e 67 20 63 6f 6d 80 0a 6d 65 6e 74 73 20 61 6e 64 ┆ text by removing comђ ments and┆
0x321c0…321e0 20 62 6c 61 6e 6b 73 2e 20 54 68 65 20 73 79 6e 74 61 78 20 6f 66 20 63 61 6c 6c 20 6f 66 20 74 ┆ blanks. The syntax of call of t┆
0x321e0…32200 68 65 20 70 72 6f 67 72 61 6d 20 69 73 3a 20 0d 0a 0d 0a 7b 6f 75 74 66 69 6c 65 3d 7d 20 20 72 ┆he program is: {outfile=} r┆
0x32200…32220 74 70 63 6f 6d 70 72 65 73 73 20 69 6e 70 75 74 66 69 6c 65 20 20 0d 0a 0d 0a 49 66 20 3c 6f 75 ┆tpcompress inputfile If <ou┆
0x32220…32240 74 66 69 6c 65 3e 20 69 73 20 6f 6d 69 74 74 65 64 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 ┆tfile> is omitted current output┆
0x32240…32260 20 69 73 20 63 68 6f 73 65 6e 2e 20 0d 0a 16 53 61 0d 0a 52 65 61 6c 2d 54 69 6d 65 20 50 61 73 ┆ is chosen. Sa Real-Time Pas┆
0x32260…32280 63 61 6c 20 4f 62 6a 65 63 74 20 50 72 6f 67 72 61 6d 20 55 74 69 6c 69 74 69 65 73 0d 0a 0d 0a ┆cal Object Program Utilities ┆
0x32280…322a0 01 73 7b 74 20 6b 61 70 69 74 65 6c 6e 61 76 6e 20 3d 20 22 52 54 50 20 4f 62 6a 65 63 74 20 50 ┆ s{t kapitelnavn = "RTP Object P┆
0x322a0…322c0 72 6f 67 72 61 6d 20 55 74 69 6c 69 74 69 65 73 22 0d 0a 0d 0a 16 53 42 0d 0a 50 4c 49 42 49 4e ┆rogram Utilities" SB PLIBIN┆
0x322c0…322e0 53 45 52 54 0d 0a 16 73 6f 20 70 6c 69 62 69 6e 73 65 72 74 0d 0a 0d 0a 50 72 6f 67 72 61 6d 20 ┆SERT so plibinsert Program ┆
0x322e0…32300 6f 72 20 72 6f 75 74 69 6e 65 20 6c 69 62 72 61 72 69 65 73 20 66 6f 72 20 52 43 33 35 30 32 20 ┆or routine libraries for RC3502 ┆
0x32300…32320 6d 61 79 20 62 65 20 63 6f 6e 73 74 72 75 63 74 65 64 20 62 79 20 6d 65 61 6e 73 20 0a 6f 66 20 ┆may be constructed by means of ┆
0x32320…32340 74 68 65 20 70 72 6f 67 72 61 6d 20 70 6c 69 62 69 6e 73 65 72 74 2e 20 0d 0a 0d 0a 50 6c 69 62 ┆the program plibinsert. Plib┆
0x32340…32360 69 6e 73 65 72 74 20 6d 61 79 20 63 6f 6c 6c 65 63 74 20 61 20 67 72 6f 75 70 20 6f 66 20 6f 62 ┆insert may collect a group of ob┆
0x32360…32380 6a 65 63 74 20 70 72 6f 67 72 61 6d 73 20 69 6e 74 6f 20 6f 6e 65 20 6f 62 6a 65 63 74 20 66 69 ┆ject programs into one object fi┆
0x32380…323a0 6c 65 2e 20 0a 54 68 65 20 63 72 6f 73 73 20 6c 69 6e 6b 65 72 20 6d 61 79 20 74 68 65 6e 20 69 ┆le. The cross linker may then i┆
0x323a0…323c0 6e 63 6c 75 64 65 20 61 6c 6c 20 74 68 65 20 70 72 6f 67 72 61 6d 73 20 69 66 20 73 70 65 63 69 ┆nclude all the programs if speci┆
0x323c0…323e0 66 69 65 64 20 61 73 20 0a 3c 6f 62 6a 20 66 69 6c 65 3e 20 69 6e 20 74 68 65 20 63 61 6c 6c 2c ┆fied as <obj file> in the call,┆
0x323e0…32400 20 6f 72 20 6a 75 73 74 20 69 6e 63 6c 75 64 65 20 74 68 65 20 70 72 6f 67 72 61 6d 73 20 72 65 ┆ or just include the programs re┆
0x32400…32420 66 65 72 65 6e 63 65 64 20 66 72 6f 6d 20 61 6e 20 0a 69 6e 63 6c 75 64 65 64 20 6f 62 6a 65 63 ┆ferenced from an included objec┆
0x32420…32440 74 20 70 72 6f 67 72 61 6d 20 69 66 20 73 70 65 63 69 66 69 65 64 20 61 73 20 3c 6c 69 62 20 66 ┆t program if specified as <lib f┆
0x32440…32460 69 6c 65 3e 2e 20 0d 0a 0d 0a 50 6c 69 62 69 6e 73 65 72 74 20 6d 61 79 20 61 6c 73 6f 20 62 65 ┆ile>. Plibinsert may also be┆
0x32460…32480 20 75 73 65 64 20 66 6f 72 20 75 70 64 61 74 69 6e 67 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6c ┆ used for updating an existing l┆
0x32480…324a0 69 62 72 61 72 79 2e 20 49 66 20 74 68 65 20 0a 70 72 6f 67 72 61 6d 20 74 6f 20 69 6e 73 65 72 ┆ibrary. If the program to inser┆
0x324a0…324c0 74 20 61 6c 72 65 61 64 79 20 69 73 20 69 6e 20 74 68 65 20 6c 69 62 72 61 72 79 20 74 68 65 20 ┆t already is in the library the ┆
0x324c0…324e0 6f 6c 64 20 6f 6e 65 20 77 69 6c 6c 20 62 65 20 72 65 70 6c 61 80 0a 63 65 64 20 62 79 20 74 68 ┆old one will be replaђ ced by th┆
0x324e0…32500 65 20 6e 65 77 20 6f 6e 65 2e 20 0d 0a 0d 0a 8c 90 ea 0a 54 68 65 20 63 61 6c 6c 20 69 73 3a 20 ┆e new one. їљЖ The call is: ┆
0x32500…32520 0d 0a 0d 0a 20 7b 3c 6e 65 77 20 6c 69 62 3e 3d 7d 20 70 6c 69 62 69 6e 73 65 72 74 20 7b 3c 6e ┆ {<new lib>=} plibinsert {<n┆
0x32520…32540 65 77 20 6f 62 6a 65 63 74 3e 7d 2a 20 7b 6c 69 62 2e 3c 6f 6c 64 20 6c 69 62 3e 7d 20 0d 0a 0d ┆ew object>}* {lib.<old lib>} ┆
0x32540…32560 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x32560…32580 00 00 00 00 00 00 00 00 00 00 00 0e 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c ┆ - -L┆
0x32580…325a0 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x325a0…325c0 00 00 00 00 12 19 2d ff ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 3c 6e 65 77 20 6c 69 62 3e 09 ┆ - <new lib> ┆
0x325c0…325e0 69 73 20 74 68 65 20 75 70 64 61 74 65 64 20 6c 69 62 72 61 72 79 3b 20 64 65 66 61 75 6c 74 20 ┆is the updated library; default ┆
0x325e0…32600 6e 61 6d 65 20 69 73 20 22 6c 69 62 22 2e 20 0d 0a 0d 0a 3c 6f 6c 64 20 6c 69 62 3e 09 84 69 73 ┆name is "lib". <old lib> ёis┆
0x32600…32620 20 74 68 65 20 6f 6c 64 20 6c 69 62 72 61 72 79 2c 20 70 6f 73 73 69 62 6c 79 20 65 6d 70 74 79 ┆ the old library, possibly empty┆
0x32620…32640 3b 20 64 65 66 61 75 6c 74 20 6e 61 6d 65 20 69 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a ┆; default name is ┆
0x32640…32660 19 8d 80 80 22 6f 6c 64 6c 69 62 22 2e 20 0d 0a 0d 0a 3c 6e 65 77 20 6f 62 6a 65 63 74 3e 09 84 ┆ Їђђ"oldlib". <new object> ё┆
0x32660…32680 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67 ┆is the name of a file containing┆
0x32680…326a0 20 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 73 20 74 6f 20 62 65 20 20 20 20 20 20 20 20 20 20 ┆ object programs to be ┆
0x326a0…326c0 20 20 20 20 0a 19 8d 80 80 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 3c 6f 6c 64 20 6c 69 62 3e ┆ Їђђinserted into <old lib>┆
0x326c0…326e0 2c 20 70 6f 73 73 69 62 6c 79 20 72 65 70 6c 61 63 69 6e 67 20 65 78 69 73 74 69 6e 67 20 0a 19 ┆, possibly replacing existing ┆
0x326e0…32700 8d 80 80 65 6e 74 72 69 65 73 3b 20 64 65 66 61 75 6c 74 20 6e 61 6d 65 20 69 73 20 22 70 61 73 ┆Їђђentries; default name is "pas┆
0x32700…32720 73 36 63 6f 64 65 22 2e 20 0d 0a 0d 0a 0d 0a 16 53 42 0d 0a 50 4c 49 42 4c 4f 4f 4b 55 50 0d 0a ┆s6code". SB PLIBLOOKUP ┆
0x32720…32740 16 73 6f 20 70 6c 69 62 6c 6f 6f 6b 75 70 0d 0a 0d 0a 50 6c 69 62 6c 6f 6f 6b 75 70 20 70 72 6f ┆ so pliblookup Pliblookup pro┆
0x32740…32760 64 75 63 65 73 20 61 20 63 61 74 61 6c 6f 67 75 65 20 6c 69 73 74 69 6e 67 20 6f 66 20 74 68 65 ┆duces a catalogue listing of the┆
0x32760…32780 20 70 72 6f 67 72 61 6d 73 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 61 20 0a 6c 69 62 72 61 72 79 ┆ programs included in a library┆
0x32780…327a0 2e 20 50 72 6f 67 72 61 6d 73 20 6f 66 20 69 6d 61 67 65 66 69 6c 65 73 20 6d 61 79 20 61 6c 73 ┆. Programs of imagefiles may als┆
0x327a0…327c0 6f 20 62 65 20 6c 69 73 74 65 64 2e 20 54 68 65 20 63 61 6c 6c 20 69 73 3a 20 0d 0a 0d 0a 20 70 ┆o be listed. The call is: p┆
0x327c0…327e0 6c 69 62 6c 6f 6f 6b 75 70 20 20 7b 3c 6c 69 62 72 61 72 79 3e 7d 0d 0a 0d 0a 3c 6c 69 62 72 61 ┆liblookup {<library>} <libra┆
0x327e0…32800 72 79 3e 09 69 73 20 74 68 65 20 6c 69 62 72 61 72 79 20 74 6f 20 62 65 20 73 63 61 6e 6e 65 64 ┆ry> is the library to be scanned┆
0x32800…32820 3b 20 64 65 66 61 75 6c 74 20 6e 61 6d 65 20 69 73 20 22 6c 69 62 22 2e 20 0d 0a 0d 0a 0d 0a 16 ┆; default name is "lib". ┆
0x32820…32840 53 42 0d 0a 50 4c 49 42 41 4c 4c 0d 0a 16 73 6f 20 70 6c 69 62 61 6c 6c 0d 0a 0d 0a 50 6c 69 62 ┆SB PLIBALL so pliball Plib┆
0x32840…32860 61 6c 6c 20 70 72 6f 64 75 63 65 73 20 61 20 63 61 74 61 6c 6f 67 75 65 20 6c 69 73 74 69 6e 67 ┆all produces a catalogue listing┆
0x32860…32880 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 73 20 69 6e 20 61 20 6c 69 62 72 61 72 79 2e 20 41 ┆ of the programs in a library. A┆
0x32880…328a0 20 0a 6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 72 6f 75 74 69 ┆ list of all the external routi┆
0x328a0…328c0 6e 65 73 20 63 61 6c 6c 65 64 20 62 79 20 74 68 65 20 70 72 6f 67 72 61 6d 73 20 69 73 20 70 72 ┆nes called by the programs is pr┆
0x328c0…328e0 6f 64 75 63 65 64 20 0a 66 6f 72 20 65 61 63 68 20 70 72 6f 67 72 61 6d 20 69 6e 20 74 68 65 20 ┆oduced for each program in the ┆
0x328e0…32900 6c 69 62 72 61 72 79 2e 20 54 68 65 20 63 61 6c 6c 20 69 73 20 69 64 65 6e 74 69 63 61 6c 20 74 ┆library. The call is identical t┆
0x32900…32920 6f 20 74 68 65 20 63 61 6c 6c 20 6f 66 20 0a 50 4c 49 42 4c 4f 4f 4b 55 50 2e 20 0d 0a 0d 0a 0d ┆o the call of PLIBLOOKUP. ┆
0x32920…32940 0a 16 53 42 0d 0a 50 4c 49 42 44 45 4c 45 54 45 0d 0a 16 73 6f 20 70 6c 69 62 64 65 6c 65 74 65 ┆ SB PLIBDELETE so plibdelete┆
0x32940…32960 0d 0a 0d 0a 50 6c 69 62 64 65 6c 65 74 65 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 72 65 ┆ Plibdelete may be used to re┆
0x32960…32980 6d 6f 76 65 20 70 72 6f 67 72 61 6d 73 20 66 72 6f 6d 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6c ┆move programs from an existing l┆
0x32980…329a0 69 62 72 61 72 79 2e 20 0d 0a 0d 0a 54 68 65 20 63 61 6c 6c 20 69 73 3a 20 0d 0a 0d 0a 20 7b 3c ┆ibrary. The call is: {<┆
0x329a0…329c0 6e 65 77 20 6c 69 62 3e 3d 7d 20 70 6c 69 62 64 65 6c 65 74 65 20 7b 3c 65 6e 74 72 79 3e 7d 2a ┆new lib>=} plibdelete {<entry>}*┆
0x329c0…329e0 20 7b 6c 69 62 2e 3c 6f 6c 64 20 6c 69 62 3e 7d 0d 0a 0d 0a 0d 0a 3c 6e 65 77 20 6c 69 62 3e 09 ┆ {lib.<old lib>} <new lib> ┆
0x329e0…32a00 69 73 20 74 68 65 20 75 70 64 61 74 65 64 20 6c 69 62 72 61 72 79 3b 20 64 65 66 61 75 6c 74 20 ┆is the updated library; default ┆
0x32a00…32a20 6e 61 6d 65 20 69 73 20 22 6c 69 62 22 2e 20 0d 0a 0d 0a 3c 6f 6c 64 20 6c 69 62 3e 09 69 73 20 ┆name is "lib". <old lib> is ┆
0x32a20…32a40 74 68 65 20 6f 6c 64 20 6c 69 62 72 61 72 79 3b 20 64 65 66 61 75 6c 74 20 6e 61 6d 65 20 69 73 ┆the old library; default name is┆
0x32a40…32a60 20 22 6f 6c 64 6c 69 62 22 2e 20 0d 0a 0d 0a 8c 88 d0 0a 3c 65 6e 74 72 79 3e 3a 3a 3d 20 65 6e ┆ "oldlib". їѕл <entry>::= en┆
0x32a60…32a80 74 72 79 2e 3c 6e 75 6d 62 65 72 3e 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 3c 70 72 6f 67 ┆try.<number> <prog┆
0x32a80…32aa0 72 61 6d 20 6e 61 6d 65 3e 20 0d 0a 0d 0a 09 84 50 72 6f 67 72 61 6d 20 6e 61 6d 65 73 20 63 6f ┆ram name> ёProgram names co┆
0x32aa0…32ac0 6e 73 69 73 74 69 6e 67 20 6f 66 20 6d 6f 72 65 20 74 68 61 6e 20 31 31 20 63 68 61 72 61 63 74 ┆nsisting of more than 11 charact┆
0x32ac0…32ae0 65 72 73 20 0a 19 8d 80 80 61 6e 64 20 6e 61 6d 65 73 20 69 6e 63 6c 75 64 69 6e 67 20 75 6e 64 ┆ers Їђђand names including und┆
0x32ae0…32b00 65 72 73 63 6f 72 65 20 6d 61 79 20 6f 6e 6c 79 20 62 65 20 73 70 65 63 69 66 69 65 64 20 61 73 ┆erscore may only be specified as┆
0x32b00…32b20 20 0a 19 8d 80 80 22 65 6e 74 72 79 2e 3c 6e 75 6d 62 65 72 3e 22 3b 20 74 68 65 20 65 6e 74 72 ┆ Їђђ"entry.<number>"; the entr┆
0x32b20…32b40 79 20 6e 75 6d 62 65 72 20 6d 61 79 20 62 65 20 66 6f 75 6e 64 20 62 79 20 0a 19 8d 80 80 6d 65 ┆y number may be found by Їђђme┆
0x32b40…32b60 61 6e 73 20 6f 66 20 61 20 63 61 6c 6c 20 6f 66 20 70 6c 69 62 6c 6f 6f 6b 75 70 2e 20 0d 0a 0d ┆ans of a call of pliblookup. ┆
0x32b60…32b80 0a 0d 0a 16 53 42 0d 0a 50 4c 49 42 45 58 54 52 41 43 54 0d 0a 16 73 6f 20 70 6c 69 62 65 78 74 ┆ SB PLIBEXTRACT so plibext┆
0x32b80…32ba0 72 61 63 74 0d 0a 0d 0a 50 6c 69 62 65 78 74 72 61 63 74 20 6d 61 79 20 62 65 20 75 73 65 64 20 ┆ract Plibextract may be used ┆
0x32ba0…32bc0 74 6f 20 65 78 74 72 61 63 74 20 70 72 6f 67 72 61 6d 73 20 66 72 6f 6d 20 61 6e 20 65 78 69 73 ┆to extract programs from an exis┆
0x32bc0…32be0 74 69 6e 67 20 6c 69 62 72 61 72 79 2e 20 0d 0a 0d 0a 54 68 65 20 63 61 6c 6c 20 69 73 3a 20 0d ┆ting library. The call is: ┆
0x32be0…32c00 0a 0d 0a 20 7b 3c 6e 65 77 20 6c 69 62 3e 3d 7d 20 70 6c 69 62 65 78 74 72 61 63 74 20 7b 3c 65 ┆ {<new lib>=} plibextract {<e┆
0x32c00…32c20 6e 74 72 79 3e 7d 2a 20 7b 6c 69 62 2e 3c 6f 6c 64 20 6c 69 62 3e 7d 0d 0a 0d 0a 3c 6e 65 77 20 ┆ntry>}* {lib.<old lib>} <new ┆
0x32c20…32c40 6c 69 62 3e 09 84 69 73 20 74 68 65 20 72 65 73 75 6c 74 20 6c 69 62 72 61 72 79 20 63 6f 6e 74 ┆lib> ёis the result library cont┆
0x32c40…32c60 61 69 6e 69 6e 67 20 74 68 65 20 65 78 74 72 61 63 74 65 64 20 65 6e 74 72 69 65 73 3b 20 20 20 ┆aining the extracted entries; ┆
0x32c60…32c80 20 20 20 20 20 20 20 20 20 20 20 0a 19 8d 80 80 64 65 66 61 75 6c 74 20 6e 61 6d 65 20 69 73 20 ┆ Їђђdefault name is ┆
0x32c80…32ca0 22 6c 69 62 22 2e 20 0d 0a 0d 0a 3c 6f 6c 64 20 6c 69 62 3e 09 69 73 20 74 68 65 20 6f 6c 64 20 ┆"lib". <old lib> is the old ┆
0x32ca0…32cc0 6c 69 62 72 61 72 79 3b 20 64 65 66 61 75 6c 74 20 6e 61 6d 65 20 69 73 20 22 6f 6c 64 6c 69 62 ┆library; default name is "oldlib┆
0x32cc0…32ce0 22 2e 20 0d 0a 0d 0a 3c 65 6e 74 72 79 3e 3a 3a 3d 20 65 6e 74 72 79 2e 3c 6e 75 6d 62 65 72 3e ┆". <entry>::= entry.<number>┆
0x32ce0…32d00 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 70 72 6f 67 72 61 6d 20 6e 61 6d 65 ┆ <program name┆
0x32d00…32d20 3e 20 0d 0a 0d 0a 09 84 50 72 6f 67 72 61 6d 20 6e 61 6d 65 73 20 63 6f 6e 73 69 73 74 69 6e 67 ┆> ёProgram names consisting┆
0x32d20…32d40 20 6f 66 20 6d 6f 72 65 20 74 68 61 6e 20 31 31 20 63 68 61 72 61 63 74 65 72 73 20 0a 19 8d 80 ┆ of more than 11 characters Їђ┆
0x32d40…32d60 80 61 6e 64 20 6e 61 6d 65 73 20 69 6e 63 6c 75 64 69 6e 67 20 75 6e 64 65 72 73 63 6f 72 65 20 ┆ђand names including underscore ┆
0x32d60…32d80 6d 61 79 20 6f 6e 6c 79 20 62 65 20 73 70 65 63 69 66 69 65 64 20 61 73 20 20 20 20 20 20 20 20 ┆may only be specified as ┆
0x32d80…32da0 20 20 20 20 20 20 0a 19 8d 80 80 22 65 6e 74 72 79 2e 3c 6e 75 6d 62 65 72 3e 22 3b 20 74 68 65 ┆ Їђђ"entry.<number>"; the┆
0x32da0…32dc0 20 65 6e 74 72 79 20 6e 75 6d 62 65 72 20 6d 61 79 20 62 65 20 66 6f 75 6e 64 20 62 79 20 0a 19 ┆ entry number may be found by ┆
0x32dc0…32de0 8d 80 80 6d 65 61 6e 73 20 6f 66 20 61 20 63 61 6c 6c 20 6f 66 20 70 6c 69 62 6c 6f 6f 6b 75 70 ┆Їђђmeans of a call of pliblookup┆
0x32de0…32e00 2e 20 0d 0a 0d 0a 0d 0a 16 53 42 0d 0a 50 4c 49 42 43 4f 4e 56 45 52 54 0d 0a 16 73 6f 20 70 6c ┆. SB PLIBCONVERT so pl┆
0x32e00…32e20 69 62 63 6f 6e 76 65 72 74 0d 0a 0d 0a 50 6c 69 62 63 6f 6e 76 65 72 74 20 70 72 6f 64 75 63 65 ┆ibconvert Plibconvert produce┆
0x32e20…32e40 73 20 61 6e 20 52 54 50 33 35 30 32 20 6c 69 62 72 61 72 79 20 6f 62 6a 65 63 74 20 66 69 6c 65 ┆s an RTP3502 library object file┆
0x32e40…32e60 20 66 72 6f 6d 20 61 20 6c 69 73 74 20 6f 66 20 69 6e 80 0a 70 75 74 20 66 69 6c 65 73 20 6f 66 ┆ from a list of inђ put files of┆
0x32e60…32e80 20 61 72 62 69 74 72 61 72 79 20 63 6f 6e 74 65 6e 74 73 2e 20 54 68 65 20 69 6e 64 69 76 69 64 ┆ arbitrary contents. The individ┆
0x32e80…32ea0 75 61 6c 20 70 72 6f 67 72 61 6d 73 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 20 0a 66 69 6c 65 ┆ual programs in the result file┆
0x32ea0…32ec0 20 68 61 76 65 20 74 68 65 20 6e 65 77 20 6b 69 6e 64 20 44 41 54 41 20 61 6e 64 20 74 68 65 20 ┆ have the new kind DATA and the ┆
0x32ec0…32ee0 73 61 6d 65 20 6e 61 6d 65 20 61 73 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 0a ┆same name as the corresponding ┆
0x32ee0…32f00 69 6e 70 75 74 20 66 69 6c 65 2e 20 54 68 65 20 72 65 73 75 6c 74 20 66 69 6c 65 20 6d 61 79 20 ┆input file. The result file may ┆
0x32f00…32f20 62 65 20 69 6e 73 70 65 63 74 65 64 20 62 79 20 50 4c 49 42 4c 4f 4f 4b 55 50 2e 20 0d 0a 0d 0a ┆be inspected by PLIBLOOKUP. ┆
0x32f20…32f40 0d 0a 3c 6f 75 74 66 69 6c 65 3e 20 3d 20 70 6c 69 62 63 6f 6e 76 65 72 74 20 7b 64 65 73 63 72 ┆ <outfile> = plibconvert {descr┆
0x32f40…32f60 69 70 74 6f 72 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 7d 20 3c 69 6e 66 69 6c 65 3e 20 20 20 20 20 ┆iptor.<yes or no>} <infile> ┆
0x32f60…32f80 20 20 0d 0a 0d 0a 3c 6f 75 74 66 69 6c 65 3e 09 69 73 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 ┆ <outfile> is the resulting┆
0x32f80…32fa0 20 6c 69 62 72 61 72 79 20 6f 62 6a 65 63 74 20 66 69 6c 65 2e 20 0d 0a 0d 0a 3c 69 6e 66 69 6c ┆ library object file. <infil┆
0x32fa0…32fc0 65 3e 09 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 66 69 6c 65 20 6f 66 20 61 72 62 69 ┆e> is the name of a file of arbi┆
0x32fc0…32fe0 74 72 61 72 79 20 63 6f 6e 74 65 6e 74 73 2e 20 0d 0a 0d 0a 64 65 73 63 72 69 70 74 6f 72 09 84 ┆trary contents. descriptor ё┆
0x32fe0…33000 64 65 66 69 6e 65 73 20 77 68 65 74 68 65 72 20 74 68 65 20 64 65 73 63 72 69 70 74 6f 72 20 73 ┆defines whether the descriptor s┆
0x33000…33020 65 67 6d 65 6e 74 73 20 61 72 65 20 67 65 6e 65 72 61 74 65 64 20 0a 19 8d 80 80 66 6f 72 20 74 ┆egments are generated Їђђfor t┆
0x33020…33040 68 65 20 69 6e 70 75 74 20 66 69 6c 65 73 20 64 75 72 69 6e 67 20 63 6f 6e 76 65 72 74 69 6e 67 ┆he input files during converting┆
0x33040…33060 2e 20 27 64 65 73 63 72 69 70 74 6f 72 2e 79 65 73 27 20 69 73 20 0a 19 8d 80 80 6d 61 6e 64 61 ┆. 'descriptor.yes' is Їђђmanda┆
0x33060…33080 74 6f 72 79 2c 20 77 68 65 6e 20 74 68 65 20 66 69 6e 61 6c 20 72 65 63 65 69 76 65 72 20 6f 66 ┆tory, when the final receiver of┆
0x33080…330a0 20 74 68 65 20 72 65 73 75 6c 74 20 66 69 6c 65 20 69 73 20 0a 19 8d 80 80 74 68 65 20 52 43 33 ┆ the result file is Їђђthe RC3┆
0x330a0…330c0 35 30 32 20 4c 4f 41 44 45 52 2e 20 27 64 65 73 63 72 69 70 74 6f 72 2e 6e 6f 27 20 6d 61 79 20 ┆502 LOADER. 'descriptor.no' may ┆
0x330c0…330e0 62 65 20 73 70 65 63 69 66 69 65 64 2c 20 0a 19 8d 80 80 69 66 20 79 6f 75 20 77 61 6e 74 20 61 ┆be specified, Їђђif you want a┆
0x330e0…33100 20 74 72 61 6e 73 70 61 72 65 6e 74 20 66 69 6c 65 20 74 72 61 6e 73 66 65 72 20 74 6f 20 74 68 ┆ transparent file transfer to th┆
0x33100…33120 65 20 72 65 63 65 69 76 65 72 20 0a 19 8d 80 80 28 4e 4f 54 20 74 68 65 20 52 43 33 35 30 32 20 ┆e receiver Їђђ(NOT the RC3502 ┆
0x33120…33140 4c 4f 41 44 45 52 29 2e 20 0d 0a 0d 0a 44 65 66 61 75 6c 74 3a 09 64 65 73 63 72 69 70 74 6f 72 ┆LOADER). Default: descriptor┆
0x33140…33160 2e 79 65 73 2e 20 0d 0a 0c 89 f8 0a 20 20 20 20 20 0d 0a 16 53 61 0d 0a 4c 6f 61 64 20 6f 72 20 ┆.yes. ЅЭ Sa Load or ┆
0x33160…33180 41 75 74 6f 6c 6f 61 64 20 46 69 6c 65 20 47 65 6e 65 72 61 74 69 6f 6e 20 6f 6e 20 52 43 38 30 ┆Autoload File Generation on RC80┆
0x33180…331a0 30 30 0d 0a 01 73 7b 74 20 6b 61 70 69 74 65 6c 6e 61 76 6e 20 3d 20 22 4c 6f 61 64 20 46 69 6c ┆00 s{t kapitelnavn = "Load Fil┆
0x331a0…331c0 65 20 47 65 6e 65 72 61 74 69 6f 6e 22 0d 0a 0d 0a 54 68 65 20 52 65 61 6c 2d 54 69 6d 65 20 50 ┆e Generation" The Real-Time P┆
0x331c0…331e0 61 73 63 61 6c 20 63 6f 6d 70 69 6c 65 72 20 67 65 6e 65 72 61 74 65 73 20 62 69 6e 61 72 79 20 ┆ascal compiler generates binary ┆
0x331e0…33200 72 65 6c 6f 63 61 74 61 62 6c 65 20 6f 62 6a 65 63 74 20 0a 70 72 6f 67 72 61 6d 73 2e 20 54 68 ┆relocatable object programs. Th┆
0x33200…33220 65 20 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 73 20 6d 61 79 20 62 65 20 6c 6f 61 64 65 64 20 ┆e object programs may be loaded ┆
0x33220…33240 62 79 20 74 68 65 20 52 43 33 35 30 32 20 4c 4f 41 44 45 52 20 0a 28 63 66 2e 20 2f 52 43 33 35 ┆by the RC3502 LOADER (cf. /RC35┆
0x33240…33260 30 32 20 4c 6f 61 64 65 72 2f 20 61 6e 64 20 2f 4f 70 65 72 61 74 69 6e 67 20 47 75 69 64 65 2f ┆02 Loader/ and /Operating Guide/┆
0x33260…33280 29 20 76 69 61 20 61 6e 20 46 50 41 2c 20 6f 72 20 66 72 6f 6d 20 0a 61 6e 20 61 70 70 6c 69 63 ┆) via an FPA, or from an applic┆
0x33280…332a0 61 74 69 6f 6e 20 70 72 6f 67 72 61 6d 2c 20 73 69 6d 75 6c 61 74 69 6e 67 20 61 6e 20 65 78 74 ┆ation program, simulating an ext┆
0x332a0…332c0 65 72 6e 61 6c 20 64 65 76 69 63 65 2e 20 53 75 62 73 65 63 74 69 6f 6e 20 0a 47 2e 31 20 64 65 ┆ernal device. Subsection G.1 de┆
0x332c0…332e0 73 63 72 69 62 65 73 20 74 68 69 73 20 77 61 79 20 6f 66 20 70 72 6f 67 72 61 6d 20 6c 6f 61 64 ┆scribes this way of program load┆
0x332e0…33300 2e 20 54 68 65 20 52 43 33 35 30 32 20 4c 4f 41 44 45 52 20 70 65 72 80 80 0a 66 6f 72 6d 73 20 ┆. The RC3502 LOADER perђђ forms ┆
0x33300…33320 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 6c 69 6e 6b 61 67 65 20 65 64 69 74 69 6e 67 20 61 6e ┆the necessary linkage editing an┆
0x33320…33340 64 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 6d 65 6d 6f 72 79 20 66 6f 72 20 74 68 65 20 0a ┆d allocation of memory for the ┆
0x33340…33360 70 72 6f 67 72 61 6d 73 2e 20 0d 0a 0d 0a 41 6e 6f 74 68 65 72 20 77 61 79 20 74 6f 20 6c 6f 61 ┆programs. Another way to loa┆
0x33360…33380 64 20 70 72 6f 67 72 61 6d 73 20 69 6e 20 74 68 65 20 52 43 33 35 30 32 20 69 73 20 61 75 74 6f ┆d programs in the RC3502 is auto┆
0x33380…333a0 6c 6f 61 64 69 6e 67 20 62 79 20 6d 65 61 6e 73 20 0a 6f 66 20 74 68 65 20 52 43 33 35 30 32 20 ┆loading by means of the RC3502 ┆
0x333a0…333c0 42 4f 4f 54 20 70 72 6f 67 72 61 6d 2e 20 49 6e 20 74 68 61 74 20 63 61 73 65 20 74 68 65 20 6e ┆BOOT program. In that case the n┆
0x333c0…333e0 65 63 65 73 73 61 72 79 20 6c 69 6e 6b 61 67 65 20 65 64 69 80 0a 74 69 6e 67 20 6f 66 20 74 68 ┆ecessary linkage ediђ ting of th┆
0x333e0…33400 65 20 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 73 20 6d 75 73 74 20 62 65 20 70 65 72 66 6f 72 ┆e object programs must be perfor┆
0x33400…33420 6d 65 64 20 62 79 20 74 68 65 20 43 52 4f 53 53 4c 49 4e 4b 20 0a 70 72 6f 67 72 61 6d 20 6f 6e ┆med by the CROSSLINK program on┆
0x33420…33440 20 52 43 38 30 30 30 2c 20 62 65 66 6f 72 65 20 61 6e 20 61 75 74 6f 6c 6f 61 64 20 66 69 6c 65 ┆ RC8000, before an autoload file┆
0x33440…33460 20 69 73 20 70 72 6f 64 75 63 65 64 2e 20 54 68 69 73 20 69 73 20 64 65 80 0a 73 63 72 69 62 65 ┆ is produced. This is deђ scribe┆
0x33460…33480 64 20 69 6e 20 73 75 62 73 65 63 74 69 6f 6e 20 47 2e 32 2e 20 0d 0a 0d 0a 0d 0a 16 53 42 0d 0a ┆d in subsection G.2. SB ┆
0x33480…334a0 48 6f 77 20 74 6f 20 47 65 6e 65 72 61 74 65 20 61 20 4c 6f 61 64 20 46 69 6c 65 0d 0a 16 73 6f ┆How to Generate a Load File so┆
0x334a0…334c0 20 6c 6f 61 64 20 66 69 6c 65 0d 0a 0d 0a 0d 0a 16 73 63 0d 0a 47 65 6e 65 72 61 74 69 6e 67 20 ┆ load file sc Generating ┆
0x334c0…334e0 61 6e 20 46 54 53 20 4c 6f 61 64 20 46 69 6c 65 0d 0a 0d 0a 49 66 20 27 78 78 78 70 6c 69 62 20 ┆an FTS Load File If 'xxxplib ┆
0x334e0…33500 69 73 20 61 20 62 69 6e 61 72 79 20 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 2c 20 70 72 6f 64 ┆is a binary object program, prod┆
0x33500…33520 75 63 65 64 20 62 79 20 74 68 65 20 52 65 61 6c 2d 54 69 6d 65 20 0a 50 61 73 63 61 6c 20 63 6f ┆uced by the Real-Time Pascal co┆
0x33520…33540 6d 70 69 6c 65 72 2c 20 61 20 6c 6f 61 64 20 66 69 6c 65 20 66 6f 72 20 6c 61 74 65 72 20 6c 6f ┆mpiler, a load file for later lo┆
0x33540…33560 61 64 20 76 69 61 20 52 63 4c 41 4e 20 66 72 6f 6d 20 61 6e 20 46 54 53 20 0a 73 65 72 76 65 72 ┆ad via RcLAN from an FTS server┆
0x33560…33580 20 69 73 20 67 65 6e 65 72 61 74 65 64 20 6f 6e 20 52 43 38 30 30 30 20 62 79 20 74 68 65 20 63 ┆ is generated on RC8000 by the c┆
0x33580…335a0 61 6c 6c 3a 0d 0a 20 20 20 20 20 3c 6f 75 74 20 66 69 6c 65 3e 3d bf dc d8 63 6f 6e 76 65 72 74 ┆all: <out file>=┐▄пconvert┆
0x335a0…335c0 70 6c 69 62 be 20 78 78 78 70 6c 69 62 0d 0a 0d 0a 0d 0a 16 53 43 0d 0a 47 65 6e 65 72 61 74 69 ┆plibЙ xxxplib SC Generati┆
0x335c0…335e0 6e 67 20 61 6e 20 46 50 41 20 4c 6f 61 64 20 46 69 6c 65 0d 0a 0d 0a 49 66 20 27 78 78 78 70 6c ┆ng an FPA Load File If 'xxxpl┆
0x335e0…33600 69 62 27 20 69 73 20 61 20 62 69 6e 61 72 79 20 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 2c 20 ┆ib' is a binary object program, ┆
0x33600…33620 70 72 6f 64 75 63 65 64 20 62 79 20 74 68 65 20 52 65 61 6c 2d 54 69 6d 65 20 0a 50 61 73 63 61 ┆produced by the Real-Time Pasca┆
0x33620…33640 6c 20 63 6f 6d 70 69 6c 65 72 2c 20 61 20 6c 6f 61 64 66 69 6c 65 20 66 6f 72 20 6c 61 74 65 72 ┆l compiler, a loadfile for later┆
0x33640…33660 20 6c 6f 61 64 20 66 72 6f 6d 20 46 50 41 20 69 73 20 67 65 6e 65 72 61 74 65 64 20 6f 6e 20 0a ┆ load from FPA is generated on ┆
0x33660…33680 52 43 38 30 30 30 20 62 79 20 74 68 65 20 63 61 6c 6c 3a 20 0d 0a 20 20 20 20 20 3c 6f 75 74 20 ┆RC8000 by the call: <out ┆
0x33680…336a0 66 69 6c 65 3e 3d 63 72 63 31 36 20 78 78 78 70 6c 69 62 20 0d 0a 0d 0a 49 66 20 74 68 65 20 6e ┆file>=crc16 xxxplib If the n┆
0x336a0…336c0 61 6d 65 20 6f 66 20 74 68 65 20 6f 75 74 66 69 6c 65 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f ┆ame of the outfile is the name o┆
0x336c0…336e0 66 20 61 6e 20 52 43 38 30 30 30 20 6d 61 69 6e 20 70 72 6f 63 65 73 73 2c 20 0a 74 68 65 20 43 ┆f an RC8000 main process, the C┆
0x336e0…33700 52 43 31 36 20 70 72 6f 67 72 61 6d 20 6f 75 74 70 75 74 73 20 64 69 72 65 63 74 6c 79 20 74 6f ┆RC16 program outputs directly to┆
0x33700…33720 20 74 68 65 20 64 65 76 69 63 65 20 64 65 6e 6f 74 65 64 20 62 79 20 74 68 65 20 0a 6d 61 69 6e ┆ the device denoted by the main┆
0x33720…33740 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 63 63 6f 72 64 69 6e 67 20 74 ┆ process description according t┆
0x33740…33760 6f 20 74 68 65 20 61 75 74 6f 6c 6f 61 64 20 70 72 6f 74 6f 63 6f 6c 2e 20 0d 0a 0d 0a 0d 0a 16 ┆o the autoload protocol. ┆
0x33760…33780 53 42 0d 0a 48 6f 77 20 74 6f 20 47 65 6e 65 72 61 74 65 20 61 6e 20 41 75 74 6f 6c 6f 61 64 20 ┆SB How to Generate an Autoload ┆
0x33780…337a0 46 69 6c 65 0d 0a 01 73 7b 74 20 6b 61 70 69 74 65 6c 6e 61 76 6e 20 3d 20 22 41 75 74 6f 6c 6f ┆File s{t kapitelnavn = "Autolo┆
0x337a0…337c0 61 64 20 46 69 6c 65 20 47 65 6e 65 72 61 74 69 6f 6e 22 0d 0a 16 73 6f 20 61 75 74 6f 6c 6f 61 ┆ad File Generation" so autoloa┆
0x337c0…337e0 64 20 66 69 6c 65 0d 0a 0d 0a 0d 0a 16 53 43 0d 0a 43 52 4f 53 53 4c 49 4e 4b 0d 0a 16 73 6f 20 ┆d file SC CROSSLINK so ┆
0x337e0…33800 63 72 6f 73 73 6c 69 6e 6b 0d 0a 0d 0a 54 68 65 20 43 52 4f 53 53 4c 49 4e 4b 20 70 72 6f 67 72 ┆crosslink The CROSSLINK progr┆
0x33800…33820 61 6d 20 77 69 6c 6c 20 67 65 6e 65 72 61 74 65 20 61 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 ┆am will generate a file containi┆
0x33820…33840 6e 67 20 61 6c 6c 20 74 68 65 20 73 70 65 63 69 80 0a 66 69 65 64 20 6f 62 6a 65 63 74 20 70 72 ┆ng all the speciђ fied object pr┆
0x33840…33860 6f 67 72 61 6d 73 20 61 6e 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 6c 69 62 72 61 72 79 ┆ograms and the necessary library┆
0x33860…33880 20 72 6f 75 74 69 6e 65 73 2e 20 54 68 65 20 66 69 6c 65 20 77 69 6c 6c 20 0a 62 65 20 61 20 63 ┆ routines. The file will be a c┆
0x33880…338a0 6f 72 65 20 69 6d 61 67 65 2c 20 69 2e 65 2e 20 72 65 66 65 72 65 6e 63 65 73 20 62 65 74 77 65 ┆ore image, i.e. references betwe┆
0x338a0…338c0 65 6e 20 74 68 65 20 70 72 6f 67 72 61 6d 73 20 61 72 65 20 73 6f 6c 76 65 64 2e 20 0d 0a 0d 0a ┆en the programs are solved. ┆
0x338c0…338e0 43 61 6c 6c 3a 20 0d 0a 0d 0a 3c 6f 75 74 66 69 6c 65 3e 3d 63 72 6f 73 73 6c 69 6e 6b 20 7b 3c ┆Call: <outfile>=crosslink {<┆
0x338e0…33900 6c 69 62 20 66 69 6c 65 3e 20 7c 20 3c 6f 62 6a 20 66 69 6c 65 3e 20 7c 20 3c 70 61 72 61 6d 73 ┆lib file> | <obj file> | <params┆
0x33900…33920 3e 7d 20 20 20 20 20 20 0d 0a 0d 0a 3c 6f 75 74 66 69 6c 65 3e 09 63 6f 6e 74 61 69 6e 73 20 74 ┆>} <outfile> contains t┆
0x33920…33940 68 65 20 67 65 6e 65 72 61 74 65 64 20 63 6f 72 65 69 6d 61 67 65 2e 20 0d 0a 0d 0a 8c 8a c0 0a ┆he generated coreimage. їі└ ┆
0x33940…33960 3c 6f 62 6a 20 66 69 6c 65 3e 3a 3a 3d 20 3c 66 69 6c 65 20 6e 61 6d 65 3e 20 0d 0a 3c 66 69 6c ┆<obj file>::= <file name> <fil┆
0x33960…33980 65 20 6e 61 6d 65 3e 09 0d 0a 84 20 20 20 20 84 63 6f 6e 74 61 69 6e 73 20 6f 6e 65 20 6f 72 20 ┆e name> ё ёcontains one or ┆
0x33980…339a0 6d 6f 72 65 20 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 73 20 77 68 69 63 68 20 28 61 6c 6c 29 ┆more object programs which (all)┆
0x339a0…339c0 20 6d 75 73 74 20 62 65 20 69 6e 63 6c 75 80 0a 19 84 80 80 64 65 64 20 69 6e 20 74 68 65 20 63 ┆ must be incluђ ёђђded in the c┆
0x339c0…339e0 6f 72 65 20 69 6d 61 67 65 2e 20 0d 0a 0d 0a 3c 6c 69 62 20 66 69 6c 65 3e 3a 3a 3d 20 6c 69 62 ┆ore image. <lib file>::= lib┆
0x339e0…33a00 2e 3c 66 69 6c 65 20 6e 61 6d 65 3e 20 0d 0a 3c 66 69 6c 65 20 6e 61 6d 65 3e 09 0d 0a 84 20 20 ┆.<file name> <file name> ё ┆
0x33a00…33a20 20 20 84 63 6f 6e 74 61 69 6e 73 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 6f 62 6a 65 63 74 20 70 ┆ ёcontains one or more object p┆
0x33a20…33a40 72 6f 67 72 61 6d 73 20 28 72 6f 75 74 69 6e 65 73 29 20 77 68 69 63 68 20 6d 61 79 20 62 65 20 ┆rograms (routines) which may be ┆
0x33a40…33a60 0a 19 84 80 80 69 6e 63 6c 75 64 65 64 20 62 79 20 43 52 4f 53 53 4c 49 4e 4b 2c 20 69 66 20 74 ┆ ёђђincluded by CROSSLINK, if t┆
0x33a60…33a80 68 65 79 20 61 72 65 20 72 65 66 65 72 65 6e 63 65 64 20 66 72 6f 6d 20 61 6e 20 69 6e 63 6c 75 ┆hey are referenced from an inclu┆
0x33a80…33aa0 64 65 64 20 0a 19 84 80 80 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 2e 20 0d 0a 0d 0a 3c 6f 62 ┆ded ёђђobject program. <ob┆
0x33aa0…33ac0 6a 20 66 69 6c 65 3e 20 61 6e 64 20 3c 6c 69 62 20 66 69 6c 65 3e 20 63 61 6e 20 62 65 20 6f 75 ┆j file> and <lib file> can be ou┆
0x33ac0…33ae0 74 70 75 74 20 66 69 6c 65 28 73 29 20 66 72 6f 6d 20 74 68 65 20 52 65 61 6c 2d 54 69 6d 65 20 ┆tput file(s) from the Real-Time ┆
0x33ae0…33b00 50 61 80 0a 73 63 61 6c 20 63 6f 6d 70 69 6c 65 72 20 6f 72 20 6d 61 79 20 62 65 20 67 65 6e 65 ┆Paђ scal compiler or may be gene┆
0x33b00…33b20 72 61 74 65 64 20 62 79 20 74 68 65 20 75 74 69 6c 69 74 79 20 70 72 6f 67 72 61 6d 20 50 4c 49 ┆rated by the utility program PLI┆
0x33b20…33b40 80 42 49 4e 53 45 52 54 20 0a 28 73 65 65 20 61 70 70 65 6e 64 69 78 20 46 29 2e 20 0d 0a 0d 0a ┆ђBINSERT (see appendix F). ┆
0x33b40…33b60 3c 70 61 72 61 6d 73 3e 3a 3a 3d 09 73 74 61 72 74 2e 3c 62 61 73 65 3e 2e 3c 64 69 73 70 6c 61 ┆<params>::= start.<base>.<displa┆
0x33b60…33b80 63 65 6d 65 6e 74 3e 20 20 20 0d 0a 09 7c 20 64 65 73 63 72 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e ┆cement> | descr.<yes or no>┆
0x33b80…33ba0 0d 0a 09 7c 20 6d 61 70 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 0d 0a 20 20 09 7c 20 70 72 69 6e 74 ┆ | map.<yes or no> | print┆
0x33ba0…33bc0 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 2e 3c 77 6f 72 64 73 20 70 65 72 20 6c 69 6e 65 3e 0d 0a 20 ┆.<yes or no>.<words per line> ┆
0x33bc0…33be0 20 20 20 20 20 20 20 09 7c 20 62 69 6e 64 2e 3c 79 65 73 20 6f 72 20 6e 6f 3e 0d 0a 0d 0a 73 74 ┆ | bind.<yes or no> st┆
0x33be0…33c00 61 72 74 20 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 ┆art -L A1@ ┆
0x33c00…33c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff 04 04 ┆ - ┆
0x33c20…33c40 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x33c40…33c60 00 00 00 00 00 00 00 0e 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff ff 04 0a 09 84 3c 62 61 73 65 ┆ - ё<base┆
0x33c60…33c80 3e 20 61 6e 64 20 3c 64 69 73 70 6c 61 63 65 6d 65 6e 74 3e 20 73 70 65 63 69 66 79 20 77 68 65 ┆> and <displacement> specify whe┆
0x33c80…33ca0 72 65 20 74 68 65 20 66 69 72 73 74 20 77 6f 72 64 20 6f 66 20 74 68 65 20 0a 19 86 80 80 63 6f ┆re the first word of the єђђco┆
0x33ca0…33cc0 72 65 69 6d 61 67 65 20 69 73 20 73 75 70 70 6f 73 65 64 20 74 6f 20 62 65 20 61 75 74 6f 6c 6f ┆reimage is supposed to be autolo┆
0x33cc0…33ce0 61 64 65 64 2e 20 54 68 65 20 73 74 61 72 74 2d 70 61 72 61 6d 20 6d 61 79 20 0a 19 86 80 80 6f ┆aded. The start-param may єђђo┆
0x33ce0…33d00 6e 6c 79 20 6f 63 63 75 72 20 62 65 66 6f 72 65 20 74 68 65 20 66 69 72 73 74 20 66 69 6c 65 6e ┆nly occur before the first filen┆
0x33d00…33d20 61 6d 65 2e 20 0d 0a 0d 0a 09 3c 62 61 73 65 3e 3a 3a 3d 20 3c 69 6e 74 65 67 65 72 3e 20 7c 20 ┆ame. <base>::= <integer> | ┆
0x33d20…33d40 68 3c 68 65 78 61 64 65 63 69 6d 61 6c 20 64 69 67 69 74 73 3e 0d 0a 09 3c 64 69 73 70 6c 3e 3a ┆h<hexadecimal digits> <displ>:┆
0x33d40…33d60 3a 3d 20 3c 69 6e 74 65 67 65 72 3e 20 7c 20 68 3c 68 65 78 61 64 65 63 69 6d 61 6c 20 64 69 67 ┆:= <integer> | h<hexadecimal dig┆
0x33d60…33d80 69 74 73 3e 20 0d 0a 0d 0a 09 44 65 66 61 75 6c 74 20 69 73 3a 20 68 63 30 2e 68 30 31 30 30 2e ┆its> Default is: hc0.h0100.┆
0x33d80…33da0 20 0d 0a 0d 0a 09 84 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 63 6f 72 65 69 6d 61 67 65 20 69 73 ┆ ёNOTE: If the coreimage is┆
0x33da0…33dc0 20 74 6f 20 62 65 20 61 75 74 6f 6c 6f 61 64 65 64 20 62 79 20 74 68 65 20 42 4f 4f 54 20 70 72 ┆ to be autoloaded by the BOOT pr┆
0x33dc0…33de0 6f 80 0a 19 86 80 80 67 72 61 6d 2c 20 73 74 61 72 74 20 6d 75 73 74 20 62 65 3a 20 73 74 61 72 ┆oђ єђђgram, start must be: star┆
0x33de0…33e00 74 2e 68 63 30 2e 68 30 31 30 30 2e 20 0d 0a 0d 0a 64 65 73 63 72 20 0d 0a 09 84 64 65 66 69 6e ┆t.hc0.h0100. descr ёdefin┆
0x33e00…33e20 65 73 20 77 68 65 74 68 65 72 20 74 68 65 20 64 65 73 63 72 69 70 74 6f 72 20 73 65 67 6d 65 6e ┆es whether the descriptor segmen┆
0x33e20…33e40 74 73 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 72 6f 80 0a 19 86 80 80 67 72 61 ┆ts of the following proђ єђђgra┆
0x33e40…33e60 6d 73 20 61 72 65 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 74 68 65 20 63 6f 72 65 69 6d 61 67 65 ┆ms are included in the coreimage┆
0x33e60…33e80 20 6f 72 20 6e 6f 74 2e 20 0d 0a 0d 0a 09 84 4e 4f 54 45 3a 20 54 68 69 73 20 6f 70 74 69 6f 6e ┆ or not. ёNOTE: This option┆
0x33e80…33ea0 20 73 68 6f 75 6c 64 20 a0 6e 6f 74 e0 20 62 65 20 75 73 65 64 2e 20 44 65 73 63 72 2e 6e 6f 20 ┆ should аnotЯ be used. Descr.no ┆
0x33ea0…33ec0 77 69 6c 6c 20 67 65 6e 65 72 61 74 65 20 61 20 0a 19 86 80 80 66 61 74 61 6c 20 65 72 72 6f 72 ┆will generate a єђђfatal error┆
0x33ec0…33ee0 20 66 72 6f 6d 20 43 52 4f 53 53 4c 49 4e 4b 2e 20 0d 0a 0d 0a 09 44 65 66 61 75 6c 74 3a 20 64 ┆ from CROSSLINK. Default: d┆
0x33ee0…33f00 65 73 63 72 2e 79 65 73 2e 20 0d 0a 0d 0a 6d 61 70 20 0d 0a 09 84 63 6f 6e 74 72 6f 6c 73 20 6c ┆escr.yes. map ёcontrols l┆
0x33f00…33f20 69 73 74 69 6e 67 20 6f 66 20 74 68 65 20 69 6e 63 6c 75 64 65 64 20 70 72 6f 67 72 61 6d 73 2e ┆isting of the included programs.┆
0x33f20…33f40 20 45 61 63 68 20 69 6e 63 6c 75 64 65 64 20 70 72 6f 67 72 61 6d 20 0a 19 86 80 80 69 73 20 6c ┆ Each included program єђђis l┆
0x33f40…33f60 69 73 74 65 64 20 77 69 74 68 3a 20 0d 0a 0d 0a 09 84 3c 70 72 6f 67 72 61 6d 6b 69 6e 64 3e 20 ┆isted with: ё<programkind> ┆
0x33f60…33f80 3c 70 72 6f 67 72 61 6d 6e 61 6d 65 3e 20 3c 64 61 74 65 20 74 69 6d 65 3e 20 3c 73 74 61 72 74 ┆<programname> <date time> <start┆
0x33f80…33fa0 20 6f 66 20 64 65 73 63 72 69 70 74 6f 72 20 0a 19 86 80 80 73 65 67 6d 65 6e 74 3e 20 3c 73 74 ┆ of descriptor єђђsegment> <st┆
0x33fa0…33fc0 61 72 74 20 6f 66 20 63 6f 64 65 20 73 65 67 6d 65 6e 74 3e 20 3c 6c 65 6e 67 74 68 3e 20 0d 0a ┆art of code segment> <length> ┆
0x33fc0…33fe0 0d 0a 09 44 65 66 61 75 6c 74 3a 20 6d 61 70 2e 79 65 73 2e 20 0d 0a 0d 0a 09 3c 64 61 74 65 20 ┆ Default: map.yes. <date ┆
0x33fe0…34000 74 69 6d 65 3e 20 69 73 20 64 61 74 65 20 61 6e 64 20 74 69 6d 65 20 6f 66 20 63 6f 6d 70 69 6c ┆time> is date and time of compil┆
0x34000…34020 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 20 0d 0a 0d 0a 8c 8a 90 0a 70 72 ┆ation of the program. їіљ pr┆
0x34020…34040 69 6e 74 20 0d 0a 09 84 63 6f 6e 74 72 6f 6c 73 20 70 72 69 6e 74 69 6e 67 20 6f 66 20 74 68 65 ┆int ёcontrols printing of the┆
0x34040…34060 20 63 6f 72 65 20 69 6d 61 67 65 2e 20 45 61 63 68 20 6c 69 6e 65 20 63 6f 6e 73 69 73 74 73 20 ┆ core image. Each line consists ┆
0x34060…34080 6f 66 3a 20 0d 0a 0d 0a 09 3c 41 3e 2e 3c 42 3e 20 3c 43 3e 2e 3c 44 3e 20 3c 68 65 78 61 64 65 ┆of: <A>.<B> <C>.<D> <hexade┆
0x34080…340a0 63 69 6d 61 6c 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 63 6f 72 65 20 69 6d 61 67 65 20 77 6f 72 ┆cimal contents of core image wor┆
0x340a0…340c0 64 73 3e 20 0d 0a 0d 0a 09 84 3c 41 3e 20 61 6e 64 20 3c 42 3e 20 69 73 20 74 68 65 20 61 62 73 ┆ds> ё<A> and <B> is the abs┆
0x340c0…340e0 6f 6c 75 74 65 20 61 64 64 72 65 73 73 28 69 2e 65 2e 20 62 61 73 65 20 61 6e 64 20 64 69 73 70 ┆olute address(i.e. base and disp┆
0x340e0…34100 6c 61 63 65 6d 65 6e 74 29 20 0a 19 86 80 80 6f 66 20 74 68 65 20 66 69 72 73 74 20 77 6f 72 64 ┆lacement) єђђof the first word┆
0x34100…34120 20 69 6e 20 74 68 65 20 6c 69 6e 65 2e 20 0d 0a 0d 0a 09 84 3c 43 3e 20 61 6e 64 20 3c 44 3e 20 ┆ in the line. ё<C> and <D> ┆
0x34120…34140 69 73 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 72 65 6c 61 74 69 76 65 20 61 64 ┆is the corresponding relative ad┆
0x34140…34160 64 72 65 73 73 28 77 69 74 68 69 6e 20 74 68 65 20 0a 19 86 80 80 70 72 6f 67 72 61 6d 29 2e 20 ┆dress(within the єђђprogram). ┆
0x34160…34180 0d 0a 0d 0a 62 69 6e 64 20 0d 0a 09 84 62 69 6e 64 2e 79 65 73 20 73 65 63 75 72 65 73 20 74 68 ┆ bind ёbind.yes secures th┆
0x34180…341a0 61 74 20 61 20 6e 65 77 20 6d 65 6d 6f 72 79 20 6d 6f 64 75 6c 65 20 61 6c 77 61 79 73 20 73 74 ┆at a new memory module always st┆
0x341a0…341c0 61 72 74 73 20 77 69 74 68 20 0a 19 86 80 80 61 20 64 65 73 63 72 69 70 74 6f 72 20 73 65 67 6d ┆arts with єђђa descriptor segm┆
0x341c0…341e0 65 6e 74 2e 20 0d 0a 0d 0a 09 44 65 66 61 75 6c 74 3a 20 62 69 6e 64 2e 79 65 73 2e 20 0d 0a 0d ┆ent. Default: bind.yes. ┆
0x341e0…34200 0a 09 84 42 69 6e 64 2e 6e 6f 20 77 69 6c 6c 20 67 65 6e 65 72 61 74 65 20 61 6e 20 65 72 72 6f ┆ ёBind.no will generate an erro┆
0x34200…34220 72 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 43 52 4f 53 53 4c 49 4e 4b 20 69 66 20 74 68 65 20 ┆r message from CROSSLINK if the ┆
0x34220…34240 0a 19 86 80 80 70 72 6f 67 72 61 6d 73 20 61 72 65 20 6e 6f 74 20 66 6f 72 20 52 43 33 35 30 32 ┆ єђђprograms are not for RC3502┆
0x34240…34260 2f 32 2e 20 0d 0a 0d 0a 0d 0a 45 78 61 6d 70 6c 65 3a 0d 0a 0d 0a 63 6f 72 65 69 6d 61 67 65 3d ┆/2. Example: coreimage=┆
0x34260…34280 09 63 72 6f 73 73 6c 69 6e 6b 20 73 74 61 72 74 2e 68 63 30 2e 68 30 31 30 30 2c 20 20 20 0d 0a ┆ crosslink start.hc0.h0100, ┆
0x34280…342a0 09 09 62 6c 69 6e 6b 65 72 2c 20 20 20 2a 0d 0a 09 09 62 6d 6f 6e 69 74 6f 72 2c 20 20 20 2a 0d ┆ blinker, * bmonitor, * ┆
0x342a0…342c0 0a 09 09 62 61 6c 6c 6f 63 61 74 6f 72 2c 20 20 2a 20 0d 0a 09 09 62 65 78 63 65 70 74 69 6f 6e ┆ ballocator, * bexception┆
0x342c0…342e0 2c 20 2a 20 20 28 6f 72 20 62 6d 69 6e 69 65 78 63 65 70 74 29 2c 20 0d 0a 09 09 62 74 69 6d 65 ┆, * (or bminiexcept), btime┆
0x342e0…34300 72 2c 20 20 20 2a 0d 0a 09 09 62 6f 70 65 72 61 74 6f 72 2c 20 2a 20 20 0d 0a 09 09 62 6f 70 73 ┆r, * boperator, * bops┆
0x34300…34320 79 73 2c 20 20 20 20 20 20 2a 09 84 6d 61 79 20 62 65 20 73 75 62 73 74 69 74 75 74 65 64 20 62 ┆ys, * ёmay be substituted b┆
0x34320…34340 79 20 79 6f 75 72 20 6f 77 6e 20 0d 0a 09 09 2c 09 09 6f 70 65 72 61 74 69 6e 67 20 73 79 73 74 ┆y your own , operating syst┆
0x34340…34360 65 6d 0d 0a 09 09 62 6c 6f 61 64 65 72 2c 20 20 20 20 2a 0d 0a 09 09 75 73 65 72 70 72 6f 63 65 ┆em bloader, * userproce┆
0x34360…34380 73 73 20 31 2c 0d 0a 09 09 20 2e 2e 2e 2c 20 0d 0a 09 09 75 73 65 72 70 72 6f 63 65 73 73 20 6e ┆ss 1, ..., userprocess n┆
0x34380…343a0 2c 20 20 20 0d 0a 09 09 6c 69 62 2e 73 74 64 70 6c 69 62 20 0d 0a 0d 0a 77 69 6c 6c 20 67 65 6e ┆, lib.stdplib will gen┆
0x343a0…343c0 65 72 61 74 65 20 61 20 63 6f 72 65 20 69 6d 61 67 65 20 69 6e 20 61 20 66 69 6c 65 20 77 69 74 ┆erate a core image in a file wit┆
0x343c0…343e0 68 20 74 68 65 20 6e 61 6d 65 20 63 6f 72 65 69 6d 61 67 65 20 63 6f 6e 74 61 69 80 0a 6e 69 6e ┆h the name coreimage contaiђ nin┆
0x343e0…34400 67 20 28 61 6c 6c 29 20 74 68 65 20 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 28 73 29 20 69 6e ┆g (all) the object program(s) in┆
0x34400…34420 20 74 68 65 20 66 69 6c 65 73 20 65 78 70 6c 69 63 69 74 6c 79 20 6d 65 6e 74 69 6f 6e 65 64 2c ┆ the files explicitly mentioned,┆
0x34420…34440 20 65 78 80 0a 74 65 6e 64 65 64 20 62 79 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 6f 62 6a ┆ exђ tended by the necessary obj┆
0x34440…34460 65 63 74 20 70 72 6f 67 72 61 6d 73 20 66 72 6f 6d 20 74 68 65 20 6c 69 62 72 61 72 79 20 66 69 ┆ect programs from the library fi┆
0x34460…34480 6c 65 20 73 74 64 70 6c 69 62 2c 20 0a 77 68 69 63 68 20 63 6f 6e 74 61 69 6e 73 20 61 6c 6c 20 ┆le stdplib, which contains all ┆
0x34480…344a0 73 74 61 6e 64 61 72 64 20 72 75 6e 74 69 6d 65 20 72 6f 75 74 69 6e 65 73 20 28 6c 69 6e 6b 2c ┆standard runtime routines (link,┆
0x344a0…344c0 20 63 72 65 61 74 65 2c 20 2e 2e 2e 2e 29 2e 20 0d 0a 0d 0a 54 68 65 20 63 6f 72 65 20 69 6d 61 ┆ create, ....). The core ima┆
0x344c0…344e0 67 65 20 77 69 6c 6c 20 73 74 61 72 74 20 69 6e 20 6d 65 6d 6f 72 79 20 6d 6f 64 75 6c 65 20 63 ┆ge will start in memory module c┆
0x344e0…34500 30 2c 20 64 69 73 70 6c 61 63 65 6d 65 6e 74 20 32 35 36 2c 20 61 73 20 0a 64 65 6d 61 6e 64 65 ┆0, displacement 256, as demande┆
0x34500…34520 64 20 62 79 20 74 68 65 20 42 4f 4f 54 20 70 72 6f 67 72 61 6d 2e 20 0d 0a 0d 0a 54 68 65 20 6d ┆d by the BOOT program. The m┆
0x34520…34540 6f 64 75 6c 65 73 20 6d 61 72 6b 65 64 20 77 69 74 68 20 61 6e 20 2a 20 63 6f 6e 73 74 69 74 75 ┆odules marked with an * constitu┆
0x34540…34560 74 65 73 20 74 68 65 20 6c 69 62 72 61 72 79 20 27 73 79 73 74 65 6d 33 35 30 32 27 2c 20 0a 74 ┆tes the library 'system3502', t┆
0x34560…34580 68 69 73 20 6e 61 6d 65 20 6d 69 67 68 74 20 68 61 76 65 20 62 65 65 6e 20 73 70 65 63 69 66 69 ┆his name might have been specifi┆
0x34580…345a0 65 64 20 69 6e 73 74 65 61 64 20 6f 66 20 61 6c 6c 20 74 68 65 20 6d 6f 64 75 6c 65 20 6e 61 6d ┆ed instead of all the module nam┆
0x345a0…345c0 65 73 2e 0d 0a 0d 0a 41 20 73 75 70 70 6c 65 6d 65 6e 74 61 72 79 20 bf dc d8 6c 6f 61 64 65 72 ┆es. A supplementary ┐▄пloader┆
0x345c0…345e0 20 6d 61 70 be 20 69 73 20 70 72 69 6e 74 65 64 20 28 73 65 65 20 74 68 65 20 65 78 61 6d 70 6c ┆ mapЙ is printed (see the exampl┆
0x345e0…34600 65 20 62 65 6c 6f 77 29 2e 20 0d 0a 0d 0a 8c 89 c8 0a 0e 0a 04 00 2d 4d 0f 00 08 00 00 00 00 02 ┆e below). їЅ╚ -M ┆
0x34600…34620 01 4b 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 1e ┆ K1@ ┆
0x34620…34640 2d ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 ┆- -L A1@ ┆
0x34640…34660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 1e 2d ff ff ff ff ff ff ┆ - ┆
0x34660…34680 ff ff ff ff ff 04 0a a3 2a 63 6f 72 65 69 6d 61 67 65 3d 63 72 6f 73 73 6c 69 6e 6b 20 73 79 73 ┆ Б*coreimage=crosslink sys┆
0x34680…346a0 74 65 6d 33 35 30 32 20 6c 69 62 2e 73 74 64 70 6c 69 62 0d 0a a3 0d 0a a3 20 20 20 63 72 6f 73 ┆tem3502 lib.stdplib Б Б cros┆
0x346a0…346c0 73 20 6c 69 6e 6b 65 72 2c 20 76 65 72 73 69 6f 6e 20 38 38 2e 31 30 2e 32 39 0d 0a a3 20 20 20 ┆s linker, version 88.10.29 Б ┆
0x346c0…346e0 20 6c 69 6e 6b 69 6e 67 20 73 6f 6c 76 65 64 20 69 6e 3a 20 34 20 73 63 61 6e 73 0d 0a a3 0d 0a ┆ linking solved in: 4 scans Б ┆
0x346e0…34700 a3 20 20 6b 69 6e 64 20 20 20 20 20 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 64 61 74 65 ┆Б kind name date┆
0x34700…34720 20 20 20 20 74 69 6d 65 20 20 20 20 64 65 73 63 72 20 20 20 20 63 6f 64 65 20 20 20 6c 65 6e 67 ┆ time descr code leng┆
0x34720…34740 74 68 28 68 65 78 29 0d 0a a3 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆th(hex) Б----------------------┆
0x34740…34760 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x34760…34780 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a a3 50 52 4f 47 52 41 4d 20 20 20 6c 69 6e ┆---------------- БPROGRAM lin┆
0x34780…347a0 6b 65 72 20 20 20 20 20 20 20 20 31 39 38 39 2e 30 36 2e 31 39 20 31 32 2e 31 39 20 20 20 63 30 ┆ker 1989.06.19 12.19 c0┆
0x347a0…347c0 2e 30 31 30 30 20 20 63 30 2e 30 31 32 63 20 20 30 66 62 34 0d 0a a3 50 52 4f 47 52 41 4d 20 20 ┆.0100 c0.012c 0fb4 БPROGRAM ┆
0x347c0…347e0 20 6d 6f 6e 69 74 6f 72 20 20 20 20 20 20 20 31 39 38 39 2e 30 36 2e 31 39 20 31 32 2e 31 39 20 ┆ monitor 1989.06.19 12.19 ┆
0x347e0…34800 20 20 63 30 2e 31 30 62 34 20 20 63 30 2e 31 30 65 30 20 20 31 32 31 38 0d 0a a3 50 52 4f 47 52 ┆ c0.10b4 c0.10e0 1218 БPROGR┆
0x34800…34820 41 4d 20 20 20 74 69 6d 65 72 20 20 20 20 20 20 20 20 20 31 39 38 39 2e 30 36 2e 31 39 20 31 32 ┆AM timer 1989.06.19 12┆
0x34820…34840 2e 31 39 20 20 20 63 30 2e 32 32 63 63 20 20 63 30 2e 32 32 66 38 20 20 30 63 62 30 0d 0a a3 50 ┆.19 c0.22cc c0.22f8 0cb0 БP┆
0x34840…34860 52 4f 47 52 41 4d 20 20 20 61 6c 6c 6f 63 61 74 6f 72 20 20 20 20 20 31 39 38 39 2e 30 36 2e 31 ┆ROGRAM allocator 1989.06.1┆
0x34860…34880 39 20 31 32 2e 31 39 20 20 20 63 30 2e 32 66 37 63 20 20 63 30 2e 32 66 61 38 20 20 31 31 33 65 ┆9 12.19 c0.2f7c c0.2fa8 113e┆
0x34880…348a0 0d 0a a3 50 52 4f 47 52 41 4d 20 20 20 70 72 69 6e 74 65 78 63 65 70 74 20 20 20 31 39 38 39 2e ┆ БPROGRAM printexcept 1989.┆
0x348a0…348c0 30 36 2e 31 39 20 31 32 2e 31 39 20 20 20 63 30 2e 34 30 62 61 20 20 63 30 2e 34 30 65 36 20 20 ┆06.19 12.19 c0.40ba c0.40e6 ┆
0x348c0…348e0 31 34 63 34 0d 0a a3 50 52 4f 47 52 41 4d 20 20 20 61 64 61 6d 20 20 20 20 20 20 20 20 20 20 31 ┆14c4 БPROGRAM adam 1┆
0x348e0…34900 39 38 39 2e 30 36 2e 31 39 20 31 32 2e 31 39 20 20 20 63 30 2e 35 35 37 65 20 20 63 30 2e 35 35 ┆989.06.19 12.19 c0.557e c0.55┆
0x34900…34920 61 61 20 20 32 30 31 30 0d 0a a3 50 52 4f 47 52 41 4d 20 20 20 6f 70 73 79 73 20 20 20 20 20 20 ┆aa 2010 БPROGRAM opsys ┆
0x34920…34940 20 20 20 31 39 38 39 2e 30 36 2e 31 39 20 31 32 2e 31 39 20 20 20 63 30 2e 37 35 38 65 20 20 63 ┆ 1989.06.19 12.19 c0.758e c┆
0x34940…34960 30 2e 37 35 62 65 20 20 32 32 63 61 0d 0a a3 50 52 4f 47 52 41 4d 20 20 20 6c 6f 61 64 65 72 20 ┆0.75be 22ca БPROGRAM loader ┆
0x34960…34980 20 20 20 20 20 20 20 31 39 38 39 2e 30 36 2e 31 39 20 31 32 2e 31 39 20 20 20 63 30 2e 39 38 35 ┆ 1989.06.19 12.19 c0.985┆
0x34980…349a0 38 20 20 63 30 2e 39 38 38 38 20 20 32 31 38 30 0d 0a a3 50 52 4f 47 52 41 4d 20 20 20 6c 6f 61 ┆8 c0.9888 2180 БPROGRAM loa┆
0x349a0…349c0 64 64 72 69 76 65 72 20 20 20 20 31 39 38 39 2e 30 36 2e 31 39 20 31 32 2e 31 39 20 20 20 63 30 ┆ddriver 1989.06.19 12.19 c0┆
0x349c0…349e0 2e 62 39 64 38 20 20 63 30 2e 62 61 31 30 20 20 30 32 31 63 0d 0a a3 50 52 4f 43 45 44 55 52 45 ┆.b9d8 c0.ba10 021c БPROCEDURE┆
0x349e0…34a00 20 62 72 65 61 6b 20 20 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 ┆ break 1989.05.30 14.06 ┆
0x34a00…34a20 20 20 63 30 2e 62 62 66 34 20 20 63 30 2e 62 63 32 38 20 20 30 30 66 36 0d 0a a3 46 55 4e 43 54 ┆ c0.bbf4 c0.bc28 00f6 БFUNCT┆
0x34a20…34a40 49 4f 4e 20 20 63 72 65 61 74 65 20 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 ┆ION create 1989.05.30 14┆
0x34a40…34a60 2e 30 36 20 20 20 63 30 2e 62 63 65 61 20 20 63 30 2e 62 64 32 61 20 20 30 33 33 65 0d 0a a3 50 ┆.06 c0.bcea c0.bd2a 033e БP┆
0x34a60…34a80 52 4f 43 45 44 55 52 45 20 64 65 66 69 6e 65 74 69 6d 65 72 20 20 20 31 39 38 39 2e 30 35 2e 33 ┆ROCEDURE definetimer 1989.05.3┆
0x34a80…34aa0 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 30 32 38 20 20 63 30 2e 63 30 35 38 20 20 30 30 61 63 ┆0 14.06 c0.c028 c0.c058 00ac┆
0x34aa0…34ac0 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 64 65 6c 65 74 65 6d 61 69 6c 62 6f 20 20 31 39 38 39 2e ┆ БFUNCTION deletemailbo 1989.┆
0x34ac0…34ae0 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 30 64 34 20 20 63 30 2e 63 31 30 38 20 20 ┆05.30 14.06 c0.c0d4 c0.c108 ┆
0x34ae0…34b00 30 30 64 63 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 64 65 6c 65 74 65 5f 73 65 6d 61 70 20 20 31 ┆00dc БFUNCTION delete_semap 1┆
0x34b00…34b20 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 31 62 30 20 20 63 30 2e 63 31 ┆989.05.30 14.06 c0.c1b0 c0.c1┆
0x34b20…34b40 65 34 20 20 30 30 37 36 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 65 6d 70 74 79 20 20 20 20 20 20 ┆e4 0076 БFUNCTION empty ┆
0x34b40…34b60 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 32 32 36 20 20 63 ┆ 1989.05.30 14.06 c0.c226 c┆
0x34b60…34b80 30 2e 63 32 35 61 20 20 30 30 37 63 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 65 78 63 65 70 74 69 ┆0.c25a 007c БPROCEDURE excepti┆
0x34b80…34ba0 6f 6e 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 32 61 ┆on 1989.05.30 14.06 c0.c2a┆
0x34ba0…34bc0 32 20 20 63 30 2e 63 32 64 32 20 20 30 30 65 30 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 67 65 74 ┆2 c0.c2d2 00e0 БPROCEDURE get┆
0x34bc0…34be0 73 77 69 74 63 68 65 73 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 ┆switches 1989.05.30 14.06 c0┆
0x34be0…34c00 2e 63 33 38 32 20 20 63 30 2e 63 33 62 36 20 20 30 30 38 36 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 ┆.c382 c0.c3b6 0086 БFUNCTION ┆
0x34c00…34c20 20 68 6f 6d 65 74 65 73 74 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 ┆ hometest 1989.05.30 14.06 ┆
0x34c20…34c40 20 20 63 30 2e 63 34 30 38 20 20 63 30 2e 63 34 34 30 20 20 30 30 37 36 0d 0a a3 46 55 4e 43 54 ┆ c0.c408 c0.c440 0076 БFUNCT┆
0x34c40…34c60 49 4f 4e 20 20 69 6e 69 74 70 6f 6f 6c 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 ┆ION initpool 1989.05.30 14┆
0x34c60…34c80 2e 30 36 20 20 20 63 30 2e 63 34 37 65 20 20 63 30 2e 63 34 62 61 20 20 30 31 35 32 0d 0a a3 46 ┆.06 c0.c47e c0.c4ba 0152 БF┆
0x34c80…34ca0 55 4e 43 54 49 4f 4e 20 20 69 6e 69 74 73 65 6d 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 ┆UNCTION initsem 1989.05.3┆
0x34ca0…34cc0 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 35 64 30 20 20 63 30 2e 63 36 30 63 20 20 30 31 33 65 ┆0 14.06 c0.c5d0 c0.c60c 013e┆
0x34cc0…34ce0 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 31 39 38 39 2e ┆ БFUNCTION link 1989.┆
0x34ce0…34d00 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 37 30 65 20 20 63 30 2e 63 37 34 36 20 20 ┆05.30 14.06 c0.c70e c0.c746 ┆
0x34d00…34d20 30 30 65 32 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 31 ┆00e2 БFUNCTION link 1┆
0x34d20…34d40 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 37 66 30 20 20 63 30 2e 63 38 ┆989.05.30 14.06 c0.c7f0 c0.c8┆
0x34d40…34d60 32 38 20 20 30 30 37 38 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 6d 65 6d 65 72 72 6f 72 6c 6f 67 ┆28 0078 БFUNCTION memerrorlog┆
0x34d60…34d80 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 38 36 38 20 20 63 ┆ 1989.05.30 14.06 c0.c868 c┆
0x34d80…34da0 30 2e 63 38 39 63 20 20 30 30 39 32 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 6e 61 6d 65 6d 61 69 ┆0.c89c 0092 БFUNCTION namemai┆
0x34da0…34dc0 6c 62 6f 78 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 38 66 ┆lbox 1989.05.30 14.06 c0.c8f┆
0x34dc0…34de0 61 20 20 63 30 2e 63 39 33 32 20 20 30 31 31 36 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 6e 61 6d ┆a c0.c932 0116 БFUNCTION nam┆
0x34de0…34e00 65 5f 73 65 6d 61 70 68 6f 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 ┆e_semapho 1989.05.30 14.06 c0┆
0x34e00…34e20 2e 63 61 31 30 20 20 63 30 2e 63 61 34 38 20 20 30 30 37 63 0d 0a a3 50 52 4f 43 45 44 55 52 45 ┆.ca10 c0.ca48 007c БPROCEDURE┆
0x34e20…34e40 20 72 65 6d 6f 76 65 20 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 ┆ remove 1989.05.30 14.06 ┆
0x34e40…34e60 20 20 63 30 2e 63 61 38 63 20 20 63 30 2e 63 61 62 63 20 20 30 34 37 30 0d 0a a3 46 55 4e 43 54 ┆ c0.ca8c c0.cabc 0470 БFUNCT┆
0x34e60…34e80 49 4f 4e 20 20 72 65 73 65 72 76 65 63 68 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 ┆ION reservech 1989.05.30 14┆
0x34e80…34ea0 2e 30 36 20 20 20 63 30 2e 63 65 66 63 20 20 63 30 2e 63 66 33 38 20 20 30 30 65 34 0d 0a a3 50 ┆.06 c0.cefc c0.cf38 00e4 БP┆
0x34ea0…34ec0 52 4f 43 45 44 55 52 45 20 72 65 73 74 61 72 74 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 ┆ROCEDURE restart 1989.05.3┆
0x34ec0…34ee0 30 20 31 34 2e 30 36 20 20 20 63 30 2e 63 66 65 30 20 20 63 30 2e 64 30 30 63 20 20 30 30 37 38 ┆0 14.06 c0.cfe0 c0.d00c 0078┆
0x34ee0…34f00 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 73 65 61 72 63 68 6d 61 69 6c 62 6f 20 20 31 39 38 39 2e ┆ БFUNCTION searchmailbo 1989.┆
0x34f00…34f20 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 30 35 38 20 20 63 30 2e 64 30 38 63 20 20 ┆05.30 14.06 c0.d058 c0.d08c ┆
0x34f20…34f40 30 30 64 38 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 73 65 61 72 63 68 5f 73 65 6d 61 70 20 20 31 ┆00d8 БFUNCTION search_semap 1┆
0x34f40…34f60 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 31 33 30 20 20 63 30 2e 64 31 ┆989.05.30 14.06 c0.d130 c0.d1┆
0x34f60…34f80 36 34 20 20 30 30 37 38 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 5f 73 65 6e 64 61 6c 6c 6f 63 72 ┆64 0078 БPROCEDURE _sendallocr┆
0x34f80…34fa0 63 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 31 61 38 20 20 63 ┆c 1989.05.30 14.06 c0.d1a8 c┆
0x34fa0…34fc0 30 2e 64 31 64 38 20 20 30 30 36 65 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 73 65 6e 64 6c 69 6e ┆0.d1d8 006e БPROCEDURE sendlin┆
0x34fc0…34fe0 6b 65 72 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 32 31 ┆ker 1989.05.30 14.06 c0.d21┆
0x34fe0…35000 36 20 20 63 30 2e 64 32 34 36 20 20 30 30 36 65 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 73 65 6e ┆6 c0.d246 006e БPROCEDURE sen┆
0x35000…35020 64 74 69 6d 65 72 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 ┆dtimer 1989.05.30 14.06 c0┆
0x35020…35040 2e 64 32 38 34 20 20 63 30 2e 64 32 62 34 20 20 30 30 36 65 0d 0a a3 50 52 4f 43 45 44 55 52 45 ┆.d284 c0.d2b4 006e БPROCEDURE┆
0x35040…35060 20 73 65 74 66 69 72 73 74 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 ┆ setfirst 1989.05.30 14.06 ┆
0x35060…35080 20 20 63 30 2e 64 32 66 32 20 20 63 30 2e 64 33 32 36 20 20 30 30 37 30 0d 0a a3 50 52 4f 43 45 ┆ c0.d2f2 c0.d326 0070 БPROCE┆
0x35080…350a0 44 55 52 45 20 73 65 74 6c 61 73 74 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 ┆DURE setlast 1989.05.30 14┆
0x350a0…350c0 2e 30 36 20 20 20 63 30 2e 64 33 36 32 20 20 63 30 2e 64 33 39 36 20 20 30 30 37 30 0d 0a a3 50 ┆.06 c0.d362 c0.d396 0070 БP┆
0x350c0…350e0 52 4f 43 45 44 55 52 45 20 73 65 74 73 77 69 74 63 68 65 73 20 20 20 31 39 38 39 2e 30 35 2e 33 ┆ROCEDURE setswitches 1989.05.3┆
0x350e0…35100 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 33 64 32 20 20 63 30 2e 64 34 30 36 20 20 30 30 36 65 ┆0 14.06 c0.d3d2 c0.d406 006e┆
0x35100…35120 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 73 65 74 75 31 20 20 20 20 20 20 20 20 20 31 39 38 39 2e ┆ БPROCEDURE setu1 1989.┆
0x35120…35140 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 34 34 30 20 20 63 30 2e 64 34 37 34 20 20 ┆05.30 14.06 c0.d440 c0.d474 ┆
0x35140…35160 30 30 36 63 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 73 65 74 75 32 20 20 20 20 20 20 20 20 20 31 ┆006c БPROCEDURE setu2 1┆
0x35160…35180 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 34 61 63 20 20 63 30 2e 64 34 ┆989.05.30 14.06 c0.d4ac c0.d4┆
0x35180…351a0 65 30 20 20 30 30 36 63 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 73 65 74 77 61 74 63 68 64 6f 67 ┆e0 006c БPROCEDURE setwatchdog┆
0x351a0…351c0 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 35 31 38 20 20 63 ┆ 1989.05.30 14.06 c0.d518 c┆
0x351c0…351e0 30 2e 64 35 34 38 20 20 30 30 61 38 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 73 74 61 72 74 20 20 ┆0.d548 00a8 БPROCEDURE start ┆
0x351e0…35200 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 35 63 ┆ 1989.05.30 14.06 c0.d5c┆
0x35200…35220 30 20 20 63 30 2e 64 35 66 34 20 20 30 30 66 30 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 73 74 6f ┆0 c0.d5f4 00f0 БPROCEDURE sto┆
0x35220…35240 70 20 20 20 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 ┆p 1989.05.30 14.06 c0┆
0x35240…35260 2e 64 36 62 30 20 20 63 30 2e 64 36 65 30 20 20 30 30 62 38 0d 0a a3 50 52 4f 43 45 44 55 52 45 ┆.d6b0 c0.d6e0 00b8 БPROCEDURE┆
0x35260…35280 20 74 6f 66 72 6f 6d 20 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 ┆ tofrom 1989.05.30 14.06 ┆
0x35280…352a0 20 20 63 30 2e 64 37 36 38 20 20 63 30 2e 64 37 61 38 20 20 30 30 61 36 0d 0a a3 46 55 4e 43 54 ┆ c0.d768 c0.d7a8 00a6 БFUNCT┆
0x352a0…352c0 49 4f 4e 20 20 75 6e 6c 69 6e 6b 20 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 ┆ION unlink 1989.05.30 14┆
0x352c0…352e0 2e 30 36 20 20 20 63 30 2e 64 38 30 65 20 20 63 30 2e 64 38 34 32 20 20 30 30 66 65 0d 0a a3 46 ┆.06 c0.d80e c0.d842 00fe БF┆
0x352e0…35300 55 4e 43 54 49 4f 4e 20 20 77 69 6c 64 5f 63 6f 6d 70 61 72 65 20 20 31 39 38 39 2e 30 35 2e 33 ┆UNCTION wild_compare 1989.05.3┆
0x35300…35320 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 39 30 63 20 20 63 30 2e 64 39 34 34 20 20 30 31 36 65 ┆0 14.06 c0.d90c c0.d944 016e┆
0x35320…35340 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 63 68 65 63 6b 73 74 61 63 6b 20 20 20 20 31 39 38 39 2e ┆ БPROCEDURE checkstack 1989.┆
0x35340…35360 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 61 37 61 20 20 63 30 2e 64 61 61 61 20 20 ┆05.30 14.06 c0.da7a c0.daaa ┆
0x35360…35380 30 30 36 65 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 6f 70 65 6e 6f 70 7a 6f 6e 65 20 20 20 20 31 ┆006e БPROCEDURE openopzone 1┆
0x35380…353a0 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 61 65 38 20 20 63 30 2e 64 62 ┆989.05.30 14.06 c0.dae8 c0.db┆
0x353a0…353c0 33 38 20 20 30 31 37 38 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 6f 70 69 6e 20 20 20 20 20 20 20 ┆38 0178 БPROCEDURE opin ┆
0x353c0…353e0 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 63 36 30 20 20 63 ┆ 1989.05.30 14.06 c0.dc60 c┆
0x353e0…35400 30 2e 64 63 39 30 20 20 30 30 61 38 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 6f 70 77 61 69 74 20 ┆0.dc90 00a8 БPROCEDURE opwait ┆
0x35400…35420 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 2e 64 64 30 ┆ 1989.05.30 14.06 c0.dd0┆
0x35420…35440 38 20 20 63 30 2e 64 64 33 63 20 20 30 31 33 63 0d 0a a3 50 52 4f 43 45 44 55 52 45 20 61 6c 6c ┆8 c0.dd3c 013c БPROCEDURE all┆
0x35440…35460 6f 63 20 20 20 20 20 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 20 20 63 30 ┆oc 1989.05.30 14.06 c0┆
0x35460…35480 2e 64 65 34 34 20 20 63 30 2e 64 65 37 63 20 20 30 30 61 61 0d 0a a3 50 52 4f 43 45 44 55 52 45 ┆.de44 c0.de7c 00aa БPROCEDURE┆
0x35480…354a0 20 70 72 69 6e 74 5f 64 65 73 63 72 69 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 30 36 20 ┆ print_descri 1989.05.30 14.06 ┆
0x354a0…354c0 20 20 63 30 2e 64 65 65 65 20 20 63 30 2e 64 66 32 32 20 20 30 31 64 32 0d 0a a3 a3 20 2e 0d 0a ┆ c0.deee c0.df22 01d2 ББ . ┆
0x354c0…354e0 a3 20 2e 0d 0a a3 20 2e 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 64 6f 75 62 6c 65 5f 6d 75 6c 20 ┆Б . Б . БFUNCTION double_mul ┆
0x354e0…35500 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 31 36 20 20 20 63 32 2e 30 33 33 30 20 20 63 ┆ 1989.05.30 14.16 c2.0330 c┆
0x35500…35520 32 2e 30 33 36 38 20 20 30 32 32 32 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 64 6f 75 62 6c 65 5f ┆2.0368 0222 БFUNCTION double_┆
0x35520…35540 64 69 76 6d 6f 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 31 36 20 20 20 63 32 2e 30 35 35 ┆divmo 1989.05.30 14.16 c2.055┆
0x35540…35560 32 20 20 63 32 2e 30 35 38 65 20 20 30 33 32 65 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 20 64 6f 75 ┆2 c2.058e 032e БFUNCTION dou┆
0x35560…35580 62 6c 65 5f 64 69 76 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 31 36 20 20 20 63 32 ┆ble_div 1989.05.30 14.16 c2┆
0x35580…355a0 2e 30 38 38 30 20 20 63 32 2e 30 38 62 38 20 20 30 30 38 32 0d 0a a3 46 55 4e 43 54 49 4f 4e 20 ┆.0880 c2.08b8 0082 БFUNCTION ┆
0x355a0…355c0 20 64 6f 75 62 6c 65 5f 6d 6f 64 20 20 20 20 31 39 38 39 2e 30 35 2e 33 30 20 31 34 2e 31 36 20 ┆ double_mod 1989.05.30 14.16 ┆
0x355c0…355e0 20 20 63 32 2e 30 39 30 32 20 20 63 32 2e 30 39 33 61 20 20 30 30 38 32 0d 0a a3 20 20 20 74 72 ┆ c2.0902 c2.093a 0082 Б tr┆
0x355e0…35600 65 65 20 68 65 69 67 68 74 20 3a 20 38 0d 0a a3 20 20 20 65 78 74 65 72 6e 61 6c 73 20 20 20 3a ┆ee height : 8 Б externals :┆
0x35600…35620 20 39 31 0d 0a a3 20 20 20 65 6e 64 2c 20 63 72 6f 73 73 20 6c 69 6e 6b 65 72 2e 20 0d 0a a3 0d ┆ 91 Б end, cross linker. Б ┆
0x35620…35640 0a a3 65 6e 64 0d 0a a3 62 6c 6f 63 6b 73 72 65 61 64 20 3d 20 39 32 0d 0a a3 2a 6f 20 63 0d 0a ┆ Бend Бblocksread = 92 Б*o c ┆
0x35640…35660 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x35660…35680 00 00 00 00 00 00 00 00 07 0e 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4d 0f 00 08 ┆ - -M ┆
0x35680…356a0 00 00 00 00 02 01 4b 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ K1@ ┆
0x356a0…356c0 00 07 0e 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff 04 0a 16 73 66 20 32 0d 0a 45 78 61 6d 70 6c ┆ - sf 2 Exampl┆
0x356c0…356e0 65 20 6f 6e 20 4c 6f 61 64 65 72 20 4d 61 70 20 66 72 6f 6d 20 43 52 4f 53 53 4c 49 4e 4b 0d 0a ┆e on Loader Map from CROSSLINK ┆
0x356e0…35700 0f 0a 0d 0a 0d 0a 16 73 64 0d 0a 45 72 72 6f 72 20 6d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 43 ┆ sd Error messages from C┆
0x35700…35720 52 4f 53 53 4c 49 4e 4b 0d 0a 0d 0a 8c 8a f6 0a 54 68 65 20 70 6f 73 73 69 62 6c 65 20 65 72 72 ┆ROSSLINK їіШ The possible err┆
0x35720…35740 6f 72 2f 77 61 72 6e 69 6e 67 20 6d 65 73 73 61 67 65 73 20 61 72 65 3a 20 0d 0a 0d 0a 4e 6f 20 ┆or/warning messages are: No ┆
0x35740…35760 6f 75 74 66 69 6c 65 20 73 70 65 63 69 66 69 65 64 20 0d 0a 45 72 72 6f 72 20 69 6e 20 63 72 6f ┆outfile specified Error in cro┆
0x35760…35780 73 73 6c 69 6e 6b 20 0d 0a 45 72 72 6f 72 20 69 6e 20 63 61 6c 6c 20 6f 66 20 63 72 6f 73 73 6c ┆sslink Error in call of crossl┆
0x35780…357a0 69 6e 6b 3b 20 70 61 72 61 6d 65 74 65 72 20 6e 75 6d 62 65 72 20 4e 4e 20 0d 0a 49 6c 6c 65 67 ┆ink; parameter number NN Illeg┆
0x357a0…357c0 61 6c 20 68 65 78 61 64 65 63 69 6d 61 6c 20 6e 75 6d 62 65 72 20 69 6e 20 63 61 6c 6c 3b 20 70 ┆al hexadecimal number in call; p┆
0x357c0…357e0 61 72 61 6d 65 74 65 72 20 6e 75 6d 62 65 72 20 4e 4e 20 0d 0a 42 61 64 20 76 65 72 73 69 6f 6e ┆arameter number NN Bad version┆
0x357e0…35800 2c 20 72 65 63 6f 6d 70 69 6c 65 20 4e 4e 4e 4e 4e 20 0d 0a 79 65 73 20 6f 72 20 6e 6f 20 65 78 ┆, recompile NNNNN yes or no ex┆
0x35800…35820 70 65 63 74 65 64 20 61 66 74 65 72 20 22 64 65 73 63 72 2e 22 20 0d 0a 49 6c 6c 65 67 61 6c 20 ┆pected after "descr." Illegal ┆
0x35820…35840 63 6f 6e 74 65 6e 74 73 20 6f 66 20 6f 62 6a 65 63 74 20 6f 72 20 6c 69 62 72 61 72 79 20 66 69 ┆contents of object or library fi┆
0x35840…35860 6c 65 20 0d 0a 54 6f 6f 20 6d 61 6e 79 20 6d 6f 64 75 6c 65 73 2c 20 28 6d 6f 72 65 20 74 68 61 ┆le Too many modules, (more tha┆
0x35860…35880 6e 20 32 30 30 29 20 0d 0a 49 6c 6c 65 67 61 6c 20 76 61 6c 75 65 20 6f 66 20 22 73 74 61 72 74 ┆n 200) Illegal value of "start┆
0x35880…358a0 22 2d 70 61 72 61 6d 65 74 65 72 3b 20 70 61 72 61 6d 65 74 65 72 20 6e 75 6d 62 65 72 20 4e 4e ┆"-parameter; parameter number NN┆
0x358a0…358c0 20 0d 0a 54 6f 6f 20 6d 61 6e 79 20 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 73 2c 20 6d ┆ Too many formal parameters, m┆
0x358c0…358e0 6f 64 75 6c 65 3a 20 4e 4e 4e 4e 4e 20 0d 0a 79 65 73 2c 20 6e 6f 20 6f 72 20 79 65 73 2e 3c 6e ┆odule: NNNNN yes, no or yes.<n┆
0x358e0…35900 75 6d 62 65 72 3e 20 65 78 70 65 63 74 65 64 20 61 66 74 65 72 20 22 70 72 69 6e 74 2e 22 20 0d ┆umber> expected after "print." ┆
0x35900…35920 0a 55 6e 6b 6e 6f 77 6e 20 6f 70 74 69 6f 6e 3b 20 70 61 72 61 6d 65 74 65 72 20 6e 75 6d 62 65 ┆ Unknown option; parameter numbe┆
0x35920…35940 72 20 4e 4e 20 0d 0a 4e 61 6d 65 20 65 78 70 65 63 74 65 64 20 61 66 74 65 72 20 22 6c 69 62 2e ┆r NN Name expected after "lib.┆
0x35940…35960 22 3b 20 70 61 72 61 6d 65 74 65 72 20 6e 75 6d 62 65 72 20 4e 4e 20 0d 0a 49 6e 63 6f 6e 73 69 ┆"; parameter number NN Inconsi┆
0x35960…35980 73 74 65 6e 63 79 20 69 6e 20 6c 6f 61 64 65 72 20 6d 61 70 20 0d 0a 79 65 73 20 6f 72 20 6e 6f ┆stency in loader map yes or no┆
0x35980…359a0 20 65 78 70 65 63 74 65 64 20 61 66 74 65 72 20 22 6d 61 70 2e 22 20 0d 0a 79 65 73 20 6f 72 20 ┆ expected after "map." yes or ┆
0x359a0…359c0 6e 6f 20 65 78 70 65 63 74 65 64 20 61 66 74 65 72 20 22 62 69 6e 64 2e 22 20 0d 0a 22 62 69 6e ┆no expected after "bind." "bin┆
0x359c0…359e0 64 2e 79 65 73 22 20 72 65 71 75 69 72 65 64 20 62 79 20 52 43 33 35 30 32 2f 32 20 0d 0a 0d 0a ┆d.yes" required by RC3502/2 ┆
0x359e0…35a00 0d 0a 16 73 63 0d 0a 47 65 6e 65 72 61 74 69 6e 67 20 61 6e 20 46 54 53 20 41 75 74 6f 6c 6f 61 ┆ sc Generating an FTS Autoloa┆
0x35a00…35a20 64 20 46 69 6c 65 0d 0a 0d 0a 41 73 73 75 6d 65 20 63 6f 72 65 69 6d 61 67 65 20 68 61 73 20 62 ┆d File Assume coreimage has b┆
0x35a20…35a40 65 65 6e 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 43 52 4f 53 53 4c 49 4e 4b 2e 0d 0a 54 68 65 ┆een generated by CROSSLINK. The┆
0x35a40…35a60 20 63 61 6c 6c 3a 0d 0a 20 20 20 20 3c 6f 75 74 20 66 69 6c 65 3e 3d 63 6f 6e 76 65 72 74 70 6c ┆ call: <out file>=convertpl┆
0x35a60…35a80 69 62 20 63 6f 72 65 69 6d 61 67 65 0d 0a 77 69 6c 6c 20 67 65 6e 65 72 61 74 65 20 61 20 66 69 ┆ib coreimage will generate a fi┆
0x35a80…35aa0 6c 65 20 77 69 74 68 20 74 68 65 20 63 6f 72 72 65 63 74 20 66 6f 72 6d 61 74 20 66 6f 72 20 61 ┆le with the correct format for a┆
0x35aa0…35ac0 75 74 6f 6c 6f 61 64 20 76 69 61 20 52 63 4c 41 4e 20 0a 66 72 6f 6d 20 61 6e 20 46 54 53 20 73 ┆utoload via RcLAN from an FTS s┆
0x35ac0…35ae0 65 72 76 65 72 2e 0d 0a 0d 0a 0d 0a 16 53 43 0d 0a 47 65 6e 65 72 61 74 69 6e 67 20 61 6e 20 46 ┆erver. SC Generating an F┆
0x35ae0…35b00 50 41 20 41 75 74 6f 6c 6f 61 64 20 46 69 6c 65 0d 0a 0d 0a 41 73 73 75 6d 65 20 63 6f 72 65 69 ┆PA Autoload File Assume corei┆
0x35b00…35b20 6d 61 67 65 20 68 61 73 20 62 65 65 6e 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 43 52 4f 53 53 ┆mage has been generated by CROSS┆
0x35b20…35b40 4c 49 4e 4b 2e 20 0d 0a 0d 0a 54 68 65 20 63 61 6c 6c 3a 20 0d 0a 20 20 20 20 3c 6f 75 74 20 66 ┆LINK. The call: <out f┆
0x35b40…35b60 69 6c 65 3e 3d 63 72 63 31 36 20 63 6f 72 65 69 6d 61 67 65 20 0d 0a 77 69 6c 6c 20 67 65 6e 65 ┆ile>=crc16 coreimage will gene┆
0x35b60…35b80 72 61 74 65 20 61 20 66 69 6c 65 20 77 69 74 68 20 74 68 65 20 63 6f 72 72 65 63 74 20 66 6f 72 ┆rate a file with the correct for┆
0x35b80…35ba0 6d 61 74 20 66 6f 72 20 74 68 65 20 52 43 38 30 30 30 20 41 55 54 4f 80 0a 4c 4f 41 44 2d 70 72 ┆mat for the RC8000 AUTOђ LOAD-pr┆
0x35ba0…35bc0 6f 67 72 61 6d 2e 20 0d 0a 0d 0a 49 66 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 6f 75 ┆ogram. If the name of the ou┆
0x35bc0…35be0 74 66 69 6c 65 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 6e 20 52 43 38 30 30 30 20 6d ┆tfile is the name of an RC8000 m┆
0x35be0…35c00 61 69 6e 20 70 72 6f 63 65 73 73 2c 20 0a 74 68 65 20 43 52 43 31 36 20 70 72 6f 67 72 61 6d 20 ┆ain process, the CRC16 program ┆
0x35c00…35c20 6f 75 74 70 75 74 73 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 68 65 20 64 65 76 69 63 65 20 64 ┆outputs directly to the device d┆
0x35c20…35c40 65 6e 6f 74 65 64 20 62 79 20 74 68 65 20 0a 6d 61 69 6e 20 70 72 6f 63 65 73 73 20 64 65 73 63 ┆enoted by the main process desc┆
0x35c40…35c60 72 69 70 74 69 6f 6e 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 61 75 74 6f 6c 6f 61 ┆ription according to the autoloa┆
0x35c60…35c80 64 20 70 72 6f 74 6f 63 6f 6c 2e 20 0d 0a 0c 87 f0 0a 20 20 20 20 20 20 0d 0a 16 53 61 0d 0a 43 ┆d protocol. Є Sa C┆
0x35c80…35ca0 6f 6d 70 6c 65 74 65 20 4c 69 73 74 20 6f 66 20 4c 61 6e 67 75 61 67 65 20 53 79 6d 62 6f 6c 73 ┆omplete List of Language Symbols┆
0x35ca0…35cc0 0d 0a 16 73 6f 20 6c 61 6e 67 75 61 67 65 20 73 79 6d 62 6f 6c 73 0d 0a 16 73 6f 20 6b 65 79 77 ┆ so language symbols so keyw┆
0x35cc0…35ce0 6f 72 64 73 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 ┆ords -L A1@ ┆
0x35ce0…35d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 22 31 ff ff ff ff ff ff ff ff ff ff ff ┆ "1 ┆
0x35d00…35d20 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x35d20…35d40 00 00 00 00 00 00 00 00 00 07 0e 14 1e 2d ff ff ff ff ff ff ff ff ff ff ff 04 0a 0d 0a 41 4e 44 ┆ - AND┆
0x35d40…35d60 20 09 09 09 45 4e 44 4c 4f 4f 50 09 4c 4f 43 4b 42 55 46 20 20 20 09 52 45 47 49 4f 4e 20 20 20 ┆ ENDLOOP LOCKBUF REGION ┆
0x35d60…35d80 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 41 52 52 41 59 20 09 09 45 58 49 54 20 20 20 20 20 ┆ ARRAY EXIT ┆
0x35d80…35da0 20 20 09 4c 4f 43 4b 44 41 54 41 20 20 09 52 45 50 45 41 54 20 20 20 20 20 20 20 20 20 20 20 20 ┆ LOCKDATA REPEAT ┆
0x35da0…35dc0 20 20 20 20 0d 0a 41 53 20 20 20 20 09 09 45 58 49 54 4c 4f 4f 50 20 20 20 09 4c 4f 4f 50 20 20 ┆ AS EXITLOOP LOOP ┆
0x35dc0…35de0 20 20 20 20 09 53 45 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 42 45 47 49 4e 20 ┆ SET BEGIN ┆
0x35de0…35e00 20 20 09 09 45 58 50 4f 52 54 20 2a 2a 29 09 4d 4f 44 20 20 20 20 20 20 20 09 53 48 41 52 45 44 ┆ EXPORT **) MOD SHARED┆
0x35e00…35e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 42 45 47 49 4e 42 4f 44 59 20 2a 29 20 09 ┆ BEGINBODY *) ┆
0x35e20…35e40 45 58 54 45 52 4e 41 4c 09 4e 4f 54 20 20 20 20 20 20 20 09 53 48 49 46 54 20 20 20 20 20 20 20 ┆EXTERNAL NOT SHIFT ┆
0x35e40…35e60 20 20 20 20 20 20 20 20 20 20 0d 0a 43 41 53 45 20 20 20 20 09 09 46 4f 52 20 20 09 4f 46 20 20 ┆ CASE FOR OF ┆
0x35e60…35e80 20 20 20 20 20 20 09 54 48 45 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 43 ┆ THEN C┆
0x35e80…35ea0 48 41 4e 4e 45 4c 20 20 09 09 46 4f 52 57 41 52 44 09 4f 52 20 20 20 20 20 20 20 20 09 54 4f 20 ┆HANNEL FORWARD OR TO ┆
0x35ea0…35ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 43 4f 4e 53 54 20 20 20 09 09 46 ┆ CONST F┆
0x35ec0…35ee0 55 4e 43 54 49 4f 4e 09 4f 54 48 45 52 57 49 53 45 20 09 54 59 50 45 20 20 20 20 20 20 20 20 20 ┆UNCTION OTHERWISE TYPE ┆
0x35ee0…35f00 20 20 20 20 20 20 20 20 20 0d 0a 43 4f 4e 54 49 4e 55 45 4c 4f 4f 50 09 09 67 65 74 73 77 69 74 ┆ CONTINUELOOP getswit┆
0x35f00…35f20 63 68 09 50 41 43 4b 45 44 20 20 20 20 09 74 79 70 65 73 69 7a 65 20 20 20 20 20 20 20 20 20 20 ┆ch PACKED typesize ┆
0x35f20…35f40 20 20 20 20 0d 0a 44 49 56 20 20 09 09 09 47 4f 54 4f 20 09 50 4f 4f 4c 20 20 20 20 20 20 09 55 ┆ DIV GOTO POOL U┆
0x35f40…35f60 4e 54 49 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 44 4f 20 20 09 09 09 49 46 ┆NTIL DO IF┆
0x35f60…35f80 20 20 09 50 52 45 46 49 58 20 20 20 20 09 56 41 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PREFIX VAR ┆
0x35f80…35fa0 20 20 20 20 0d 0a 44 4f 57 4e 54 4f 20 09 09 49 4e 09 50 52 4f 43 45 44 55 52 45 20 09 76 61 72 ┆ DOWNTO IN PROCEDURE var┆
0x35fa0…35fc0 73 69 7a 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 45 4c 53 45 20 09 09 09 49 4e 53 ┆size ELSE INS┆
0x35fc0…35fe0 50 45 43 54 09 50 52 4f 47 52 41 4d 20 20 20 09 57 48 49 4c 45 20 20 20 20 20 20 20 20 20 20 20 ┆PECT PROGRAM WHILE ┆
0x35fe0…36000 20 20 20 20 20 20 0d 0a 45 4e 44 20 09 09 09 4c 41 42 45 4c 09 52 45 43 4f 52 44 20 20 20 20 09 ┆ END LABEL RECORD ┆
0x36000…36020 57 49 54 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 09 09 09 09 09 58 4f 52 ┆WITH XOR┆
0x36020…36040 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 0d 0a 8c 83 e0 0a 20 2a 29 20 72 65 73 65 72 76 65 ┆ їЃЯ *) reserve┆
0x36040…36060 64 20 66 6f 72 20 69 6e 74 65 72 6e 61 6c 20 75 73 65 2e 20 0d 0a 2a 2a 29 20 72 65 73 65 72 76 ┆d for internal use. **) reserv┆
0x36060…36080 65 64 20 66 6f 72 20 5a 38 30 20 76 65 72 73 69 6f 6e 2e 20 0d 0a 0d 0a 04 00 2d 4c 0a 00 06 00 ┆ed for Z80 version. -L ┆
0x36080…360a0 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x360a0…360c0 07 0e 14 22 31 ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 ┆ "1 -L A1┆
0x360c0…360e0 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 22 31 ff ff ┆@ "1 ┆
0x360e0…36100 ff ff ff ff ff ff ff ff ff 04 0a 0d 0a 2b 20 20 20 20 20 20 2d 20 20 20 20 20 20 2a 20 20 20 20 ┆ + - * ┆
0x36100…36120 20 22 20 20 20 20 20 20 27 20 20 20 20 20 3c 20 20 20 20 20 20 3e 20 0d 0a 3c 3e 20 20 20 20 20 ┆ " ' < > <> ┆
0x36120…36140 3c 3d 20 20 20 20 20 3e 3d 20 20 20 20 28 20 20 20 20 20 20 29 20 20 20 20 20 28 2e 20 20 20 20 ┆<= >= ( ) (. ┆
0x36140…36160 20 2e 29 20 20 20 20 28 3a 20 0d 0a 3a 29 20 20 20 20 20 3d 20 20 20 20 20 20 3a 3d 20 20 20 20 ┆ .) (: :) = := ┆
0x36160…36180 3a 3d 3a 20 20 20 20 2e 20 20 20 20 20 2c 20 20 20 20 20 20 3a 20 20 20 20 20 3b 20 20 20 20 20 ┆:=: . , : ; ┆
0x36180…361a0 0d 0a 2a 2a 2a 20 20 20 20 28 2a 20 20 20 20 20 2a 29 20 20 20 20 3c 2a 20 20 20 20 20 2a 3e 20 ┆ *** (* *) <* *> ┆
0x361a0…361c0 20 20 20 2d 2d 20 20 20 20 20 21 20 20 20 20 20 3f 20 0d 0a 2e 2e 20 20 20 20 20 24 20 20 20 20 ┆ -- ! ? .. $ ┆
0x361c0…361e0 20 20 26 20 20 20 20 20 23 20 20 20 20 20 20 5e 88 7c 20 20 0d 0a 04 00 2d 4c 00 00 06 00 00 00 ┆ & # ^ѕ| -L ┆
0x361e0…36200 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e ┆ A1@ ┆
0x36200…36220 14 22 31 ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 0a 00 06 00 00 00 00 02 01 41 31 40 00 ┆ "1 -L A1@ ┆
0x36220…36240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 22 31 ff ff ff ff ┆ "1 ┆
0x36240…36260 ff ff ff ff ff ff ff 04 0a 0c 81 d8 0a 20 20 20 20 20 0d 0a 16 53 61 0d 0a 50 72 65 64 65 66 69 ┆ Ђп Sa Predefi┆
0x36260…36280 6e 65 64 20 43 6f 6e 73 74 61 6e 74 73 2c 20 61 6e 64 20 54 79 70 65 73 0d 0a 0d 0a 54 68 65 20 ┆ned Constants, and Types The ┆
0x36280…362a0 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 73 74 61 6e 74 73 20 61 6e 64 20 74 79 70 65 73 20 61 72 ┆following constants and types ar┆
0x362a0…362c0 65 20 70 72 65 64 65 66 69 6e 65 64 3a 20 0d 0a 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 40 ┆e predefined: -M A1@┆
0x362c0…362e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 22 31 ff ff ff ┆ "1 ┆
0x362e0…36300 ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x36300…36320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 22 31 ff ff ff ff ff ff ff ff ff ff ┆ "1 ┆
0x36320…36340 ff 04 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 bf dc d8 61 6c 66 61 6c 65 6e 67 74 68 3d be 20 31 32 ┆ CONST ┐▄пalfalength=Й 12┆
0x36340…36360 3b 0d 0a 20 20 bf dc d8 6d 61 78 69 6e 74 3d be 20 33 32 37 36 37 3b 0d 0a 20 20 bf dc d8 6d 69 ┆; ┐▄пmaxint=Й 32767; ┐▄пmi┆
0x36360…36380 6e 69 6e 74 3d be 20 2d 33 32 37 36 38 3b 0d 0a 20 20 bf dc d8 6d 61 78 70 72 69 6f 72 69 74 79 ┆nint=Й -32768; ┐▄пmaxpriority┆
0x36380…363a0 3d be 20 30 3b 0d 0a 20 20 bf dc d8 6d 69 6e 70 72 69 6f 72 69 74 79 3d be 20 2d 32 3b 0d 0a 20 ┆=Й 0; ┐▄пminpriority=Й -2; ┆
0x363a0…363c0 20 bf dc d8 73 74 64 70 72 69 6f 72 69 74 79 3d be 20 6d 69 6e 70 72 69 6f 72 69 74 79 3b 0d 0a ┆ ┐▄пstdpriority=Й minpriority; ┆
0x363c0…363e0 0d 0a 54 59 50 45 0d 0a 20 20 bf dc d8 70 72 69 6f 74 79 70 65 3d be 20 6d 69 6e 70 72 69 6f 72 ┆ TYPE ┐▄пpriotype=Й minprior┆
0x363e0…36400 69 74 79 2e 2e 6d 61 78 70 72 69 6f 72 69 74 79 3b 0d 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 bf dc ┆ity..maxpriority; CONST ┐▄┆
0x36400…36420 d8 63 72 65 61 74 65 5f 6f 6b 3d be 20 30 3b 0d 0a 20 20 bf dc d8 63 72 65 61 74 65 5f 70 72 6f ┆пcreate_ok=Й 0; ┐▄пcreate_pro┆
0x36420…36440 63 65 73 73 5f 6e 6f 74 5f 6e 69 6c 3d be 20 31 3b 0d 0a 20 20 bf dc d8 63 72 65 61 74 65 5f 70 ┆cess_not_nil=Й 1; ┐▄пcreate_p┆
0x36440…36460 72 6f 67 72 61 6d 5f 6e 6f 74 5f 6c 69 6e 6b 65 64 3d be 20 32 3b 0d 0a 20 20 bf dc d8 63 72 65 ┆rogram_not_linked=Й 2; ┐▄пcre┆
0x36460…36480 61 74 65 5f 6e 6f 5f 6d 65 6d 6f 72 79 3d be 20 33 3b 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 bf dc ┆ate_no_memory=Й 3; TYPE ┐▄┆
0x36480…364a0 d8 63 72 65 61 74 65 5f 72 65 73 75 6c 74 3d be 20 63 72 65 61 74 65 5f 6f 6b 2e 2e 63 72 65 61 ┆пcreate_result=Й create_ok..crea┆
0x364a0…364c0 74 65 5f 6e 6f 5f 6d 65 6d 6f 72 79 3b 0d 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 bf dc d8 6c 69 6e ┆te_no_memory; CONST ┐▄пlin┆
0x364c0…364e0 6b 5f 6f 6b 3d be 20 30 3b 0d 0a 20 20 bf dc d8 6c 69 6e 6b 5f 6e 6f 74 5f 66 6f 75 6e 64 3d be ┆k_ok=Й 0; ┐▄пlink_not_found=Й┆
0x364e0…36500 20 31 3b 0d 0a 20 20 bf dc d8 6c 69 6e 6b 5f 6e 6f 5f 70 61 72 61 6d 65 74 65 72 5f 6d 61 74 63 ┆ 1; ┐▄пlink_no_parameter_matc┆
0x36500…36520 68 3d be 20 33 3b 0d 0a 20 20 bf dc d8 6c 69 6e 6b 5f 61 6c 72 65 61 64 79 5f 6c 69 6e 6b 65 64 ┆h=Й 3; ┐▄пlink_already_linked┆
0x36520…36540 3d be 20 36 3b 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 bf dc d8 6c 69 6e 6b 5f 72 65 73 75 6c 74 3d ┆=Й 6; TYPE ┐▄пlink_result=┆
0x36540…36560 be 20 6c 69 6e 6b 5f 6f 6b 2e 2e 6c 69 6e 6b 5f 61 6c 72 65 61 64 79 5f 6c 69 6e 6b 65 64 3b 0d ┆Й link_ok..link_already_linked; ┆
0x36560…36580 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 bf dc d8 75 6e 6c 69 6e 6b 5f 6f 6b 3d be 20 30 3b 0d 0a 20 ┆ CONST ┐▄пunlink_ok=Й 0; ┆
0x36580…365a0 20 bf dc d8 75 6e 6c 69 6e 6b 5f 6e 6f 5f 70 72 6f 67 72 61 6d 5f 6c 69 6e 6b 65 64 3d be 20 31 ┆ ┐▄пunlink_no_program_linked=Й 1┆
0x365a0…365c0 3b 0d 0a 20 20 bf dc d8 75 6e 6c 69 6e 6b 5f 70 72 6f 67 72 61 6d 5f 62 75 73 79 3d be 20 32 3b ┆; ┐▄пunlink_program_busy=Й 2;┆
0x365c0…365e0 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 bf dc d8 75 6e 6c 69 6e 6b 5f 72 65 73 75 6c 74 3d be 20 75 ┆ TYPE ┐▄пunlink_result=Й u┆
0x365e0…36600 6e 6c 69 6e 6b 5f 6f 6b 2e 2e 75 6e 6c 69 6e 6b 5f 70 72 6f 67 72 61 6d 5f 62 75 73 79 3b 0d 0a ┆nlink_ok..unlink_program_busy; ┆
0x36600…36620 0d 0a 20 20 bf dc d8 62 69 74 3d be 20 30 2e 2e 31 3b 0d 0a 20 20 bf dc d8 62 79 74 65 3d be 20 ┆ ┐▄пbit=Й 0..1; ┐▄пbyte=Й ┆
0x36620…36640 30 2e 2e 32 35 35 3b 0d 0a 0d 0a 8c 86 c2 0a 20 20 bf dc d8 62 61 73 65 5f 74 79 70 65 3d be 20 ┆0..255; їє┬ ┐▄пbase_type=Й ┆
0x36640…36660 50 41 43 4b 45 44 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 6f 6e 65 62 69 74 3a 20 62 69 ┆PACKED RECORD onebit: bi┆
0x36660…36680 74 3b 0d 0a 20 20 20 20 6d 65 6d 5f 6e 6f 3a 20 30 2e 2e 36 33 3b 0d 0a 20 20 20 20 6e 69 6c 62 ┆t; mem_no: 0..63; nilb┆
0x36680…366a0 69 74 3a 20 62 69 74 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 bf dc d8 61 64 72 3d be 20 0d 0a ┆it: bit END; ┐▄пadr=Й ┆
0x366a0…366c0 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 62 61 73 65 3a 20 62 61 73 65 5f 74 79 70 65 3b 0d 0a ┆ RECORD base: base_type; ┆
0x366c0…366e0 20 20 20 20 64 69 73 70 3a 20 69 6e 74 65 67 65 72 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 bf ┆ disp: integer END; ┐┆
0x366e0…36700 dc d8 61 64 64 72 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 6e 75 6c 62 79 74 65 ┆▄пaddr=Й RECORD nulbyte┆
0x36700…36720 3a 20 62 79 74 65 3b 0d 0a 20 20 20 20 62 61 73 65 3a 20 62 61 73 65 5f 74 79 70 65 3b 0d 0a 20 ┆: byte; base: base_type; ┆
0x36720…36740 20 20 20 64 69 73 70 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 20 20 bf dc d8 ┆ disp: integer; END; ┐▄п┆
0x36740…36760 61 63 74 69 76 61 74 69 6f 6e 3d be 20 28 61 5f 69 6e 74 65 72 72 75 70 74 2c 20 61 5f 6d 61 69 ┆activation=Й (a_interrupt, a_mai┆
0x36760…36780 6c 62 6f 78 2c 20 61 5f 64 65 6c 61 79 29 3b 0d 0a 20 20 bf dc d8 62 6f 6f 6c 65 61 6e 3d be 20 ┆lbox, a_delay); ┐▄пboolean=Й ┆
0x36780…367a0 28 66 61 6c 73 65 2c 20 74 72 75 65 29 3b 0d 0a 0d 0a 0e 0a 20 20 bf dc d8 63 68 61 72 3d be 20 ┆(false, true); ┐▄пchar=Й ┆
0x367a0…367c0 0d 0a 20 20 20 28 0d 0a 28 2a 20 20 20 30 20 2a 29 20 20 20 20 20 6e 75 6c 2c 20 73 6f 68 2c 20 ┆ ( (* 0 *) nul, soh, ┆
0x367c0…367e0 73 74 78 2c 20 65 74 78 2c 20 65 6f 74 2c 20 65 6e 71 2c 20 61 63 6b 2c 20 62 65 6c 2c 20 62 73 ┆stx, etx, eot, enq, ack, bel, bs┆
0x367e0…36800 2c 20 68 74 2c 20 0d 0a 28 2a 20 20 31 30 20 2a 29 20 20 20 20 20 6e 6c 2c 20 76 74 2c 20 66 66 ┆, ht, (* 10 *) nl, vt, ff┆
0x36800…36820 2c 20 63 72 2c 20 73 6f 2c 20 73 69 2c 20 64 6c 65 2c 20 64 63 31 2c 20 64 63 32 2c 20 64 63 33 ┆, cr, so, si, dle, dc1, dc2, dc3┆
0x36820…36840 2c 20 0d 0a 28 2a 20 20 32 30 20 2a 29 20 20 20 20 20 64 63 34 2c 20 6e 61 6b 2c 20 73 79 6e 2c ┆, (* 20 *) dc4, nak, syn,┆
0x36840…36860 20 65 74 62 2c 20 63 61 6e 2c 20 65 6d 2c 20 73 75 62 2c 20 65 73 63 2c 20 66 73 2c 20 67 73 2c ┆ etb, can, em, sub, esc, fs, gs,┆
0x36860…36880 20 0d 0a 28 2a 20 20 33 30 20 2a 29 20 20 20 20 20 72 73 2c 20 75 73 2c 20 73 70 2c 20 3f 2c 20 ┆ (* 30 *) rs, us, sp, ?, ┆
0x36880…368a0 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 20 34 30 20 2a 29 20 20 20 ┆?, ?, ?, ?, ?, ?, (* 40 *) ┆
0x368a0…368c0 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 ┆ ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ┆
0x368c0…368e0 0d 0a 28 2a 20 20 35 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f ┆ (* 50 *) ?, ?, ?, ?, ?, ?┆
0x368e0…36900 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 20 36 30 20 2a 29 20 20 20 20 20 3f 2c ┆, ?, ?, ?, ?, (* 60 *) ?,┆
0x36900…36920 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a ┆ ?, ?, ?, ?, ?, ?, ?, ?, ?, (*┆
0x36920…36940 20 20 37 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c ┆ 70 *) ?, ?, ?, ?, ?, ?, ?,┆
0x36940…36960 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 20 38 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 ┆ ?, ?, ?, (* 80 *) ?, ?, ┆
0x36960…36980 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 20 39 30 ┆?, ?, ?, ?, ?, ?, ?, ?, (* 90┆
0x36980…369a0 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 ┆ *) ?, ?, ?, ?, ?, ?, ?, ?, ┆
0x369a0…369c0 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 31 30 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f ┆?, ?, (* 100 *) ?, ?, ?, ?┆
0x369c0…369e0 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 31 31 30 20 2a 29 20 ┆, ?, ?, ?, ?, ?, ?, (* 110 *) ┆
0x369e0…36a00 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f ┆ ?, ?, ?, ?, ?, ?, ?, ?, ?, ?┆
0x36a00…36a20 2c 20 0d 0a 28 2a 20 31 32 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c ┆, (* 120 *) ?, ?, ?, ?, ?,┆
0x36a20…36a40 20 3f 2c 20 3f 2c 20 64 65 6c 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 31 33 30 20 2a 29 20 20 20 ┆ ?, ?, del, ?, ?, (* 130 *) ┆
0x36a40…36a60 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 ┆ ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ┆
0x36a60…36a80 0d 0a 28 2a 20 31 34 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f ┆ (* 140 *) ?, ?, ?, ?, ?, ?┆
0x36a80…36aa0 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 31 35 30 20 2a 29 20 20 20 20 20 3f 2c ┆, ?, ?, ?, ?, (* 150 *) ?,┆
0x36aa0…36ac0 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a ┆ ?, ?, ?, ?, ?, ?, ?, ?, ?, (*┆
0x36ac0…36ae0 20 31 36 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c ┆ 160 *) ?, ?, ?, ?, ?, ?, ?,┆
0x36ae0…36b00 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 31 37 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 ┆ ?, ?, ?, (* 170 *) ?, ?, ┆
0x36b00…36b20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 31 38 30 ┆?, ?, ?, ?, ?, ?, ?, ?, (* 180┆
0x36b20…36b40 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 ┆ *) ?, ?, ?, ?, ?, ?, ?, ?, ┆
0x36b40…36b60 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 31 39 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f ┆?, ?, (* 190 *) ?, ?, ?, ?┆
0x36b60…36b80 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 32 30 30 20 2a 29 20 ┆, ?, ?, ?, ?, ?, ?, (* 200 *) ┆
0x36b80…36ba0 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f ┆ ?, ?, ?, ?, ?, ?, ?, ?, ?, ?┆
0x36ba0…36bc0 2c 20 0d 0a 28 2a 20 32 31 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c ┆, (* 210 *) ?, ?, ?, ?, ?,┆
0x36bc0…36be0 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 32 32 30 20 2a 29 20 20 20 20 20 ┆ ?, ?, ?, ?, ?, (* 220 *) ┆
0x36be0…36c00 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a ┆?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ┆
0x36c00…36c20 28 2a 20 32 33 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 ┆(* 230 *) ?, ?, ?, ?, ?, ?, ┆
0x36c20…36c40 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 28 2a 20 32 34 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f ┆?, ?, ?, ?, (* 240 *) ?, ?┆
0x36c40…36c60 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 8c 86 f2 0a ┆, ?, ?, ?, ?, ?, ?, ?, ?, їєЫ ┆
0x36c60…36c80 28 2a 20 32 35 30 20 2a 29 20 20 20 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 29 3b ┆(* 250 *) ?, ?, ?, ?, ?, ?);┆
0x36c80…36ca0 0d 0a 0f 0a 0d 0a 20 20 bf dc d8 61 6c 66 61 3d be 20 41 52 52 41 59 20 28 31 2e 2e 61 6c 66 61 ┆ ┐▄пalfa=Й ARRAY (1..alfa┆
0x36ca0…36cc0 6c 65 6e 67 74 68 29 20 4f 46 20 63 68 61 72 3b 0d 0a 0d 0a 20 20 bf dc d8 6d 61 69 6c 62 6f 78 ┆length) OF char; ┐▄пmailbox┆
0x36cc0…36ce0 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 3f 3a 20 61 64 64 72 3b 0d 0a 20 20 20 ┆=Й RECORD ?: addr; ┆
0x36ce0…36d00 20 3f 3a 20 5e 88 7c 6d 61 69 6c 62 6f 78 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 bf dc d8 ┆ ?: ^ѕ|mailbox; END; ┐▄п┆
0x36d00…36d20 6d 65 73 73 61 67 65 5f 68 65 61 64 65 72 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 ┆message_header=Й RECORD ┆
0x36d20…36d40 20 3f 3a 20 62 79 74 65 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 6d 65 73 73 61 67 65 5f 68 65 61 ┆ ?: byte; ?: ^ѕ|message_hea┆
0x36d40…36d60 64 65 72 3b 0d 0a 20 20 20 20 75 31 2c 20 75 32 2c 20 75 33 2c 20 75 34 3a 20 62 79 74 65 3b 0d ┆der; u1, u2, u3, u4: byte; ┆
0x36d60…36d80 0a 20 20 20 20 6d 65 73 73 61 67 65 6b 69 6e 64 3a 20 21 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 ┆ messagekind: !integer; ┆
0x36d80…36da0 20 73 69 7a 65 3a 20 21 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 3f 3a 20 61 64 64 72 3b 0d 0a ┆ size: !integer; ?: addr; ┆
0x36da0…36dc0 20 20 20 20 3f 3a 20 5e 88 7c 6d 61 69 6c 62 6f 78 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 6d 61 ┆ ?: ^ѕ|mailbox; ?: ^ѕ|ma┆
0x36dc0…36de0 69 6c 62 6f 78 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 6d 65 73 73 61 67 65 5f 68 65 61 64 65 72 ┆ilbox; ?: ^ѕ|message_header┆
0x36de0…36e00 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 6d 65 73 73 61 67 65 5f 68 65 61 64 65 72 3b 0d 0a 20 20 ┆; ?: ^ѕ|message_header; ┆
0x36e00…36e20 20 20 3f 3a 20 62 79 74 65 3b 0d 0a 20 20 20 20 3f 3a 20 62 79 74 65 3b 0d 0a 20 20 20 20 3f 3a ┆ ?: byte; ?: byte; ?:┆
0x36e20…36e40 20 62 79 74 65 3b 0d 0a 20 20 20 20 3f 3a 20 62 79 74 65 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a ┆ byte; ?: byte; END; ┆
0x36e40…36e60 20 20 bf dc d8 70 72 6f 63 65 73 73 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 3f ┆ ┐▄пprocess=Й RECORD ?┆
0x36e60…36e80 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 70 72 6f 63 65 73 73 ┆: ^ѕ|niltype; ?: ^ѕ|process┆
0x36e80…36ea0 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 bf dc d8 72 65 66 65 72 65 6e 63 65 3d be 20 5e 88 ┆; END; ┐▄пreference=Й ^ѕ┆
0x36ea0…36ec0 7c 6d 65 73 73 61 67 65 5f 68 65 61 64 65 72 3b 0d 0a 0d 0a 20 20 bf dc d8 63 68 61 69 6e 5f 65 ┆|message_header; ┐▄пchain_e┆
0x36ec0…36ee0 6c 65 6d 65 6e 74 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 3f 3a 20 72 65 66 65 ┆lement=Й RECORD ?: refe┆
0x36ee0…36f00 72 65 6e 63 65 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 63 68 61 69 6e 5f 65 6c 65 6d 65 6e 74 3b ┆rence; ?: ^ѕ|chain_element;┆
0x36f00…36f20 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 63 68 61 69 6e 5f 65 6c 65 6d 65 6e 74 3b 0d 0a 20 20 45 4e ┆ ?: ^ѕ|chain_element; EN┆
0x36f20…36f40 44 3b 0d 0a 0d 0a 0e 0a 20 20 bf dc d8 63 68 61 69 6e 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d ┆D; ┐▄пchain=Й RECORD ┆
0x36f40…36f60 0a 20 20 20 20 3f 3a 20 5e 88 7c 63 68 61 69 6e 5f 65 6c 65 6d 65 6e 74 3b 0d 0a 20 20 20 20 3f ┆ ?: ^ѕ|chain_element; ?┆
0x36f60…36f80 3a 20 5e 88 7c 63 68 61 69 6e 5f 65 6c 65 6d 65 6e 74 3b 0d 0a 20 20 20 20 3f 3a 20 30 2e 2e 6d ┆: ^ѕ|chain_element; ?: 0..m┆
0x36f80…36fa0 61 78 69 6e 74 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0f 0a 0d 0a 20 20 bf dc d8 73 68 61 72 65 64 5f ┆axint; END; ┐▄пshared_┆
0x36fa0…36fc0 64 65 73 63 72 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 3f 3a 20 72 65 66 65 72 ┆descr=Й RECORD ?: refer┆
0x36fc0…36fe0 65 6e 63 65 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 6d 61 69 6c 62 6f 78 3b 0d 0a 8c 87 cc 0a 20 ┆ence; ?: ^ѕ|mailbox; їЄ╠ ┆
0x36fe0…37000 20 45 4e 44 3b 0d 0a 0d 0a 20 20 bf dc d8 70 72 6f 67 72 61 6d 5f 64 65 73 63 72 69 70 74 6f 72 ┆ END; ┐▄пprogram_descriptor┆
0x37000…37020 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 3f 3a 20 69 6e 74 65 67 65 72 3b 0d 0a ┆=Й RECORD ?: integer; ┆
0x37020…37040 20 20 20 20 3f 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 3b 0d 0a 20 20 20 20 3f 3a 20 69 6e 74 65 67 ┆ ?: ^ѕ|niltype; ?: integ┆
0x37040…37060 65 72 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 3b 0d 0a 20 20 20 20 3f 3a 20 ┆er; ?: ^ѕ|niltype; ?: ┆
0x37060…37080 61 6c 66 61 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 70 72 6f 67 72 61 6d 5f 64 65 73 63 72 69 70 ┆alfa; ?: ^ѕ|program_descrip┆
0x37080…370a0 74 6f 72 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 bf dc d8 70 72 6f 67 72 61 6d 72 65 63 3d ┆tor; END; ┐▄пprogramrec=┆
0x370a0…370c0 be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 70 72 6f 67 72 61 6d 72 65 66 3a 20 5e 88 ┆Й RECORD programref: ^ѕ┆
0x370c0…370e0 7c 70 72 6f 67 72 61 6d 5f 64 65 73 63 72 69 70 74 6f 72 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c ┆|program_descriptor; ?: ^ѕ|┆
0x370e0…37100 6e 69 6c 74 79 70 65 3b 0d 0a 20 20 20 20 3f 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 45 4e 44 ┆niltype; ?: integer; END┆
0x37100…37120 3b 0d 0a 0d 0a 20 20 bf dc d8 61 64 61 6d 6d 62 78 74 79 70 65 3d be 20 84 28 61 64 61 6d 6d 62 ┆; ┐▄пadammbxtype=Й ё(adammb┆
0x37120…37140 78 2c 20 6f 70 65 72 61 74 6f 72 6d 62 78 2c 20 6c 6f 61 64 65 72 6d 62 78 2c 20 67 6c 6f 62 61 ┆x, operatormbx, loadermbx, globa┆
0x37140…37160 6c 6d 62 78 2c 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 61 64 64 72 69 76 ┆lmbx, loaddriv┆
0x37160…37180 65 72 6d 62 78 2c 20 70 61 78 6d 62 78 2c 20 72 65 73 74 61 72 74 6d 62 78 2c 20 3f 2c 20 3f 2c ┆ermbx, paxmbx, restartmbx, ?, ?,┆
0x37180…371a0 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ?, ?, ?, ?, ?, ┆
0x371a0…371c0 20 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 ┆ ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ┆
0x371c0…371e0 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 2c 20 3f 29 3b 0d 0a 0d 0a 20 20 bf dc ┆?, ?, ?, ?, ?, ?, ?, ?); ┐▄┆
0x371e0…37200 d8 61 64 61 6d 76 65 63 74 6f 72 3d be 20 41 52 52 41 59 20 28 61 64 61 6d 6d 62 78 74 79 70 65 ┆пadamvector=Й ARRAY (adammbxtype┆
0x37200…37220 29 20 4f 46 20 5e 88 7c 6d 61 69 6c 62 6f 78 3b 0d 0a 0d 0a 20 20 bf dc d8 73 79 73 74 65 6d 5f ┆) OF ^ѕ|mailbox; ┐▄пsystem_┆
0x37220…37240 76 65 63 74 6f 72 3d be 20 21 61 64 61 6d 76 65 63 74 6f 72 3b 0d 0a 0d 0a 20 20 bf dc d8 70 72 ┆vector=Й !adamvector; ┐▄пpr┆
0x37240…37260 6f 63 65 73 73 5f 64 65 73 63 72 69 70 74 6f 72 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 ┆ocess_descriptor=Й RECORD ┆
0x37260…37280 20 20 20 74 69 6d 65 72 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 3f 3a 20 62 79 74 65 3b ┆ timer: integer; ?: byte;┆
0x37280…372a0 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 70 72 6f 63 65 73 73 5f 64 65 73 63 72 69 70 74 6f 72 3b 0d ┆ ?: ^ѕ|process_descriptor; ┆
0x372a0…372c0 0a 20 20 20 20 3f 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 3f 3a 20 61 64 64 72 3b 0d 0a ┆ ?: integer; ?: addr; ┆
0x372c0…372e0 20 20 20 20 3f 3a 20 61 64 64 72 3b 0d 0a 20 20 20 20 3f 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 ┆ ?: addr; ?: integer; ┆
0x372e0…37300 20 20 20 3f 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 3f 3a 20 69 6e 74 65 67 65 72 3b 0d ┆ ?: integer; ?: integer; ┆
0x37300…37320 0a 20 20 20 20 3f 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 70 72 6f 67 ┆ ?: integer; ?: ^ѕ|prog┆
0x37320…37340 72 61 6d 5f 64 65 73 63 72 69 70 74 6f 72 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 6d 61 69 6c 62 ┆ram_descriptor; ?: ^ѕ|mailb┆
0x37340…37360 6f 78 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 72 65 66 65 72 65 6e 63 65 3b 0d 0a 20 20 20 20 3f ┆ox; ?: ^ѕ|reference; ?┆
0x37360…37380 3a 20 5e 88 7c 70 72 6f 63 65 73 73 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 6d 65 73 73 61 67 65 ┆: ^ѕ|process; ?: ^ѕ|message┆
0x37380…373a0 5f 68 65 61 64 65 72 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 70 72 6f 67 72 61 6d 5f 64 65 73 63 ┆_header; ?: ^ѕ|program_desc┆
0x373a0…373c0 72 69 70 74 6f 72 3b 0d 0a 20 20 20 20 3f 3a 20 6d 61 69 6c 62 6f 78 3b 0d 0a 20 20 20 20 3f 3a ┆riptor; ?: mailbox; ?:┆
0x373c0…373e0 20 5e 88 7c 6e 69 6c 74 79 70 65 3b 0d 0a 20 20 20 20 3f 3a 20 72 65 66 65 72 65 6e 63 65 3b 0d ┆ ^ѕ|niltype; ?: reference; ┆
0x373e0…37400 0a 20 20 20 20 3f 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 3b 0d 0a 20 20 20 20 3f 3a 20 61 6c 66 61 ┆ ?: ^ѕ|niltype; ?: alfa┆
0x37400…37420 3b 20 28 2a 20 bf dc d8 70 72 6f 63 6e 61 6d 65 be 20 2a 29 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c ┆; (* ┐▄пprocnameЙ *) ?: ^ѕ|┆
0x37420…37440 70 72 6f 63 65 73 73 5f 64 65 73 63 72 69 70 74 6f 72 3b 0d 0a 20 20 20 20 3f 3a 20 5e 88 7c 70 ┆process_descriptor; ?: ^ѕ|p┆
0x37440…37460 72 6f 63 65 73 73 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 8c 87 cc 0a 56 41 52 0d 0a 20 20 6f 77 ┆rocess; END; їЄ╠ VAR ow┆
0x37460…37480 6e 3a 20 70 72 6f 63 65 73 73 5f 64 65 73 63 72 69 70 74 6f 72 3b 0d 0a 04 00 2d 4c 00 00 06 00 ┆n: process_descriptor; -L ┆
0x37480…374a0 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x374a0…374c0 07 0e 14 22 31 ff ff ff ff ff ff ff ff ff ff ff 04 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 ┆ "1 -M A1┆
0x374c0…374e0 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 22 31 ff ff ┆@ "1 ┆
0x374e0…37500 ff ff ff ff ff ff ff ff ff 04 0a 0d 0a 0d 0a 54 68 65 20 70 72 6f 63 6e 61 6d 65 20 66 69 65 6c ┆ The procname fiel┆
0x37500…37520 64 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 79 20 74 68 65 20 63 72 65 61 74 65 20 72 ┆d is initialized by the create r┆
0x37520…37540 6f 75 74 69 6e 65 2c 20 61 6e 64 20 6d 61 79 20 62 65 20 0a 63 68 61 6e 67 65 64 20 62 79 20 74 ┆outine, and may be changed by t┆
0x37540…37560 68 65 20 73 65 74 6f 77 6e 6e 61 6d 65 20 72 6f 75 74 69 6e 65 2e 20 0d 0a 0d 0a 54 68 65 20 76 ┆he setownname routine. The v┆
0x37560…37580 61 6c 75 65 73 20 6f 66 20 74 68 65 20 70 72 65 64 65 66 69 6e 65 64 20 74 79 70 65 20 69 6e 74 ┆alues of the predefined type int┆
0x37580…375a0 65 67 65 72 20 63 6f 6e 73 74 69 74 75 74 65 73 20 74 68 65 20 73 75 62 72 61 6e 67 65 20 0a 6d ┆eger constitutes the subrange m┆
0x375a0…375c0 69 6e 69 6e 74 2e 2e 6d 61 78 69 6e 74 2e 20 0d 0a 0d 0a 0d 0a 16 73 62 0d 0a 49 6d 70 6c 65 6d ┆inint..maxint. sb Implem┆
0x375c0…375e0 65 6e 74 61 74 69 6f 6e 20 44 65 70 65 6e 64 65 6e 74 20 44 65 66 69 6e 69 74 69 6f 6e 73 0d 0a ┆entation Dependent Definitions ┆
0x375e0…37600 0d 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 73 74 61 6e 74 73 20 61 6e 64 20 74 79 ┆ The following constants and ty┆
0x37600…37620 70 65 73 20 61 72 65 20 64 65 66 69 6e 65 64 20 69 6e 20 bf dc d8 72 63 33 35 30 32 65 6e 76 be ┆pes are defined in ┐▄пrc3502envЙ┆
0x37620…37640 3a 0d 0a 0d 0a 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 ┆: -M A1@ ┆
0x37640…37660 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 22 31 ff ff ff ff ff ff ff ff ff ff ff 04 04 00 ┆ "1 ┆
0x37660…37680 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆-L A1@ ┆
0x37680…376a0 00 00 00 00 00 00 07 0e 14 22 31 ff ff ff ff ff ff ff ff ff ff ff 04 0a 43 4f 4e 53 54 0d 0a 20 ┆ "1 CONST ┆
0x376a0…376c0 20 bf dc d8 62 72 65 61 6b 5f 62 79 5f 66 61 74 68 65 72 3d be 20 34 37 3b 0d 0a 0d 0a 54 59 50 ┆ ┐▄пbreak_by_father=Й 47; TYP┆
0x376c0…376e0 45 0d 0a 20 20 bf dc d8 64 6f 75 62 6c 65 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 ┆E ┐▄пdouble=Й RECORD ┆
0x376e0…37700 20 6d 73 70 2c 20 6c 73 70 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 20 ┆ msp, lsp: integer; END; ┆
0x37700…37720 20 bf dc d8 63 6f 64 65 64 5f 64 61 74 65 3d be 20 50 41 43 4b 45 44 0d 0a 20 20 52 45 43 4f 52 ┆ ┐▄пcoded_date=Й PACKED RECOR┆
0x37720…37740 44 0d 0a 20 20 20 20 79 65 61 72 5f 61 66 74 65 72 5f 31 39 30 30 3a 20 30 2e 2e 31 32 37 3b 0d ┆D year_after_1900: 0..127; ┆
0x37740…37760 0a 20 20 20 20 6d 6f 6e 74 68 3a 20 30 2e 2e 31 32 3b 0d 0a 20 20 20 20 64 61 79 3a 20 30 2e 2e ┆ month: 0..12; day: 0..┆
0x37760…37780 33 31 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 bf dc d8 63 6f 64 65 64 5f 74 69 6d 65 3d be ┆31; END; ┐▄пcoded_time=Й┆
0x37780…377a0 20 50 41 43 4b 45 44 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 3f 3a 20 30 2e 2e 33 31 3b ┆ PACKED RECORD ?: 0..31;┆
0x377a0…377c0 0d 0a 20 20 20 20 68 6f 75 72 3a 20 30 2e 2e 32 33 3b 0d 0a 20 20 20 20 6d 69 6e 75 74 65 3a 20 ┆ hour: 0..23; minute: ┆
0x377c0…377e0 30 2e 2e 35 39 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 bf dc d8 63 6f 64 65 64 5f 73 65 63 ┆0..59; END; ┐▄пcoded_sec┆
0x377e0…37800 73 3d be 20 50 41 43 4b 45 44 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 73 65 63 3a 20 30 ┆s=Й PACKED RECORD sec: 0┆
0x37800…37820 2e 2e 35 39 3b 0d 0a 20 20 20 20 6d 73 65 63 3a 20 30 2e 2e 39 39 39 3b 0d 0a 20 20 45 4e 44 3b ┆..59; msec: 0..999; END;┆
0x37820…37840 0d 0a 0d 0a 20 20 bf dc d8 63 6f 64 65 64 5f 69 6e 63 3d be 20 50 41 43 4b 45 44 0d 0a 20 20 52 ┆ ┐▄пcoded_inc=Й PACKED R┆
0x37840…37860 45 43 4f 52 44 0d 0a 20 20 20 20 64 61 79 73 3a 20 30 2e 2e 33 31 3b 0d 0a 20 20 20 20 68 6f 75 ┆ECORD days: 0..31; hou┆
0x37860…37880 72 73 3a 20 30 2e 2e 32 33 3b 0d 0a 20 20 20 20 6d 69 6e 73 3a 20 30 2e 2e 35 39 3b 0d 0a 20 20 ┆rs: 0..23; mins: 0..59; ┆
0x37880…378a0 20 20 73 65 63 73 3a 20 30 2e 2e 35 39 3b 0d 0a 20 20 20 20 6d 73 65 63 73 3a 20 30 2e 2e 39 39 ┆ secs: 0..59; msecs: 0..99┆
0x378a0…378c0 39 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 bf dc d8 64 65 6c 61 79 74 79 70 65 3d be 20 0d ┆9; END; ┐▄пdelaytype=Й ┆
0x378c0…378e0 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 70 72 65 76 5f 64 61 74 65 3a 20 63 6f 64 65 64 5f ┆ RECORD prev_date: coded_┆
0x378e0…37900 64 61 74 65 3b 0d 0a 20 20 20 20 70 72 65 76 5f 74 69 6d 65 3a 20 63 6f 64 65 64 5f 74 69 6d 65 ┆date; prev_time: coded_time┆
0x37900…37920 3b 0d 0a 20 20 20 20 70 72 65 76 5f 73 65 63 73 3a 20 63 6f 64 65 64 5f 73 65 63 73 3b 0d 0a 20 ┆; prev_secs: coded_secs; ┆
0x37920…37940 20 20 20 69 6e 63 3a 20 63 6f 64 65 64 5f 69 6e 63 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 8c 89 ┆ inc: coded_inc; END; їЅ┆
0x37940…37960 98 0a 20 20 bf dc d8 63 6c 6f 63 6b 74 79 70 65 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 ┆ў ┐▄пclocktype=Й RECORD ┆
0x37960…37980 20 20 20 64 61 74 65 3a 20 63 6f 64 65 64 5f 64 61 74 65 3b 0d 0a 20 20 20 20 74 69 6d 65 3a 20 ┆ date: coded_date; time: ┆
0x37980…379a0 63 6f 64 65 64 5f 74 69 6d 65 3b 0d 0a 20 20 20 20 73 65 63 73 3a 20 63 6f 64 65 64 5f 73 65 63 ┆coded_time; secs: coded_sec┆
0x379a0…379c0 73 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 0e 0a 20 20 bf dc d8 6c 6f 6f 6b 75 70 5f 64 65 73 63 ┆s; END; ┐▄пlookup_desc┆
0x379c0…379e0 72 69 70 74 6f 72 5f 73 65 67 6d 65 6e 74 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 ┆riptor_segment=Й RECORD ┆
0x379e0…37a00 20 6e 61 6d 65 3a 20 61 6c 66 61 3b 0d 0a 20 20 20 20 64 65 73 63 72 69 70 74 6f 72 5f 6c 65 6e ┆ name: alfa; descriptor_len┆
0x37a00…37a20 67 74 68 2c 0d 0a 20 20 20 20 6e 6f 5f 6f 66 5f 70 61 67 65 73 2c 0d 0a 20 20 20 20 70 61 67 65 ┆gth, no_of_pages, page┆
0x37a20…37a40 73 69 7a 65 2c 0d 0a 20 20 20 20 6c 61 73 74 5f 70 61 67 65 5f 6c 65 6e 67 74 68 2c 0d 0a 20 20 ┆size, last_page_length, ┆
0x37a40…37a60 20 20 6b 69 6e 64 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 64 65 66 61 75 6c 74 5f 61 70 ┆ kind: integer; default_ap┆
0x37a60…37a80 70 65 74 69 74 65 2c 0d 0a 20 20 20 20 6c 61 73 74 5f 70 61 72 61 6d 5f 6f 66 66 73 65 74 2c 0d ┆petite, last_param_offset, ┆
0x37a80…37aa0 0a 20 20 20 20 6e 6f 5f 6f 66 5f 70 61 72 61 6d 73 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 ┆ no_of_params: integer; ┆
0x37aa0…37ac0 20 64 61 74 65 3a 20 63 6f 64 65 64 5f 64 61 74 65 3b 0d 0a 20 20 20 20 74 69 6d 65 3a 20 63 6f ┆ date: coded_date; time: co┆
0x37ac0…37ae0 64 65 64 5f 74 69 6d 65 3b 0d 0a 20 20 20 20 73 6f 75 72 63 65 5f 64 61 74 65 3a 20 63 6f 64 65 ┆ded_time; source_date: code┆
0x37ae0…37b00 64 5f 64 61 74 65 3b 0d 0a 20 20 20 20 73 6f 75 72 63 65 5f 74 69 6d 65 3a 20 63 6f 64 65 64 5f ┆d_date; source_time: coded_┆
0x37b00…37b20 74 69 6d 65 3b 0d 0a 20 20 20 20 76 65 72 73 69 6f 6e 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 ┆time; version: integer; ┆
0x37b20…37b40 45 4e 44 3b 0d 0a 0f 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 ┆END; -L A1@ ┆
0x37b40…37b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 0e 14 22 31 ff ff ff ff ff ff ff ff ff ff ff ┆ "1 ┆
0x37b60…37b80 04 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -M A1@ ┆
0x37b80…37ba0 00 00 00 00 00 00 00 00 00 07 0e 14 22 31 ff ff ff ff ff ff ff ff ff ff ff 04 0a 0c 83 b0 0a 20 ┆ "1 Ѓ░ ┆
0x37ba0…37bc0 20 20 20 20 0d 0a 16 53 61 0d 0a 50 72 65 64 65 66 69 6e 65 64 20 52 6f 75 74 69 6e 65 73 0d 0a ┆ Sa Predefined Routines ┆
0x37bc0…37be0 0d 0a 8c 80 c8 0a 52 6f 75 74 69 6e 65 20 6e 61 6d 65 73 20 73 74 61 72 74 69 6e 67 20 77 69 74 ┆ їђ╚ Routine names starting wit┆
0x37be0…37c00 68 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 5f 20 63 68 61 72 61 63 74 65 72 73 20 61 72 65 20 72 ┆h one or more _ characters are r┆
0x37c00…37c20 6f 75 74 69 6e 65 73 20 0a 75 73 65 64 20 62 79 20 74 68 65 20 73 79 73 74 65 6d 2c 20 61 6e 64 ┆outines used by the system, and┆
0x37c20…37c40 20 63 61 6e 6e 6f 74 20 62 65 20 63 61 6c 6c 65 64 20 61 73 20 75 73 65 72 20 72 6f 75 74 69 6e ┆ cannot be called as user routin┆
0x37c40…37c60 65 73 2e 20 54 68 65 20 66 6f 72 6d 61 6c 20 0a 74 79 70 65 20 72 65 66 6f 72 63 68 61 69 6e 20 ┆es. The formal type reforchain ┆
0x37c60…37c80 69 6e 64 69 63 61 74 65 73 20 74 68 61 74 20 74 68 65 20 72 6f 75 74 69 6e 65 20 69 6e 20 71 75 ┆indicates that the routine in qu┆
0x37c80…37ca0 65 73 74 69 6f 6e 20 6d 61 79 20 62 65 20 63 61 6c 6c 65 64 20 0a 77 69 74 68 20 61 63 74 75 61 ┆estion may be called with actua┆
0x37ca0…37cc0 6c 20 70 61 72 61 6d 65 74 65 72 73 20 6f 66 20 74 79 70 65 20 72 65 66 65 72 65 6e 63 65 20 6f ┆l parameters of type reference o┆
0x37cc0…37ce0 72 20 63 68 61 69 6e 2e 20 54 68 65 20 74 79 70 65 20 6e 69 6c 74 79 70 65 20 0a 69 6e 64 69 63 ┆r chain. The type niltype indic┆
0x37ce0…37d00 61 74 65 73 20 74 68 61 74 20 74 68 65 20 74 79 70 65 20 63 68 65 63 6b 69 6e 67 20 69 73 20 73 ┆ates that the type checking is s┆
0x37d00…37d20 70 65 63 69 61 6c 20 61 6e 64 20 6b 6e 6f 77 6e 20 62 79 20 74 68 65 20 63 6f 6d 80 0a 70 69 6c ┆pecial and known by the comђ pil┆
0x37d20…37d40 65 72 2e 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 ┆er. -L A1@ ┆
0x37d40…37d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 ┆ (08 ┆
0x37d60…37d80 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x37d80…37da0 00 00 00 00 00 00 00 00 07 0e 14 22 31 ff ff ff ff ff ff ff ff ff ff ff 04 0a 0d 0a 16 73 62 0d ┆ "1 sb ┆
0x37da0…37dc0 0a 4c 61 6e 67 75 61 67 65 20 49 6e 74 72 69 6e 73 69 63 20 52 6f 75 74 69 6e 65 73 0d 0a 0d 0a ┆ Language Intrinsic Routines ┆
0x37dc0…37de0 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -M A1@ ┆
0x37de0…37e00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 ┆ (08 -L ┆
0x37e00…37e20 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x37e20…37e40 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 61 ┆ (08 FUNCTION ┐▄пa┆
0x37e40…37e60 62 73 be 28 6e 3a 20 6e 69 6c 74 79 70 65 29 3a 20 6e 69 6c 74 79 70 65 3b 0d 0a 0d 0a 50 52 4f ┆bsЙ(n: niltype): niltype; PRO┆
0x37e60…37e80 43 45 44 55 52 45 09 bf dc d8 61 6c 6c 6f 63 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 ┆CEDURE ┐▄пallocЙ(VAR r: referenc┆
0x37e80…37ea0 65 3b 20 56 41 52 20 70 3a 20 70 6f 6f 6c 3b 20 0d 0a 09 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f ┆e; VAR p: pool; VAR m: mailbo┆
0x37ea0…37ec0 78 29 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 61 6c 6c 6f 63 64 65 6c 61 79 be 28 ┆x); FUNCTION ┐▄пallocdelayЙ(┆
0x37ec0…37ee0 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 70 3a 20 70 6f 6f 6c 3b 20 0d ┆VAR r: reference; VAR p: pool; ┆
0x37ee0…37f00 0a 09 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 3b 20 6d 73 65 63 73 3a 20 69 6e 74 65 67 65 72 ┆ VAR m: mailbox; msecs: integer┆
0x37f00…37f20 29 3a 20 61 63 74 69 76 61 74 69 6f 6e 3b 20 0d 0a 20 20 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc ┆): activation; FUNCTION ┐▄┆
0x37f20…37f40 d8 61 6c 6c 6f 63 70 6f 6f 6c be 28 56 41 52 20 70 3a 20 70 6f 6f 6c 3b 20 0d 0a 09 6e 75 6d 62 ┆пallocpoolЙ(VAR p: pool; numb┆
0x37f40…37f60 65 72 2c 20 62 79 74 65 73 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a ┆er, bytes: integer): integer; ┆
0x37f60…37f80 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 62 75 66 63 6f 75 6e 74 be 28 56 41 52 20 72 3a 20 72 ┆ FUNCTION ┐▄пbufcountЙ(VAR r: r┆
0x37f80…37fa0 65 66 65 72 65 6e 63 65 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e ┆eference): integer; FUNCTION┆
0x37fa0…37fc0 09 bf dc d8 62 75 66 73 69 7a 65 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 29 3a ┆ ┐▄пbufsizeЙ(VAR r: reforchain):┆
0x37fc0…37fe0 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 62 79 74 65 63 6f ┆ integer; FUNCTION ┐▄пbyteco┆
0x37fe0…38000 75 6e 74 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 29 3a 20 69 6e 74 65 67 65 72 ┆untЙ(VAR r: reforchain): integer┆
0x38000…38020 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 63 68 61 69 6e 64 65 71 75 65 75 65 be ┆; PROCEDURE ┐▄пchaindequeueЙ┆
0x38020…38040 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 63 68 3a 20 63 68 61 69 6e ┆(VAR r: reference; VAR ch: chain┆
0x38040…38060 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 63 68 61 69 6e 64 6f 77 6e be 28 56 ┆); PROCEDURE ┐▄пchaindownЙ(V┆
0x38060…38080 41 52 20 63 68 3a 20 63 68 61 69 6e 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 ┆AR ch: chain); PROCEDURE ┐▄п┆
0x38080…380a0 63 68 61 69 6e 65 6e 71 75 65 75 65 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 ┆chainenqueueЙ(VAR r: reference; ┆
0x380a0…380c0 56 41 52 20 63 68 3a 20 63 68 61 69 6e 29 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 ┆VAR ch: chain); FUNCTION ┐▄п┆
0x380c0…380e0 63 68 61 69 6e 6c 65 6e 67 74 68 be 28 56 41 52 20 63 68 3a 20 63 68 61 69 6e 29 3a 20 69 6e 74 ┆chainlengthЙ(VAR ch: chain): int┆
0x380e0…38100 65 67 65 72 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 63 68 61 69 6e 72 65 73 65 ┆eger; PROCEDURE ┐▄пchainrese┆
0x38100…38120 74 be 28 56 41 52 20 63 68 3a 20 63 68 61 69 6e 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 ┆tЙ(VAR ch: chain); PROCEDURE┆
0x38120…38140 09 bf dc d8 63 68 61 69 6e 73 74 61 72 74 be 28 56 41 52 20 63 68 3a 20 63 68 61 69 6e 29 3b 20 ┆ ┐▄пchainstartЙ(VAR ch: chain); ┆
0x38140…38160 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 63 68 61 69 6e 75 70 be 28 56 41 52 20 63 68 ┆ PROCEDURE ┐▄пchainupЙ(VAR ch┆
0x38160…38180 3a 20 63 68 61 69 6e 29 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 63 68 72 be 28 69 ┆: chain); FUNCTION ┐▄пchrЙ(i┆
0x38180…381a0 6e 74 3a 20 30 2e 2e 32 35 35 29 3a 20 63 68 61 72 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 ┆nt: 0..255): char; FUNCTION ┆
0x381a0…381c0 bf dc d8 63 72 65 61 74 65 be 28 49 4e 53 50 45 43 54 20 70 72 6f 63 65 73 73 6e 61 6d 65 3a 20 ┆┐▄пcreateЙ(INSPECT processname: ┆
0x381c0…381e0 61 6c 66 61 3b 20 70 72 6f 67 3a 20 70 72 6f 67 72 61 6d 72 65 63 3b 20 0d 0a 09 56 41 52 20 70 ┆alfa; prog: programrec; VAR p┆
0x381e0…38200 72 6f 63 3a 20 70 72 6f 63 65 73 73 3b 20 62 79 74 65 73 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a ┆roc: process; bytes: integer; ┆
0x38200…38220 09 70 72 69 6f 72 69 74 79 3a 20 70 72 69 6f 74 79 70 65 29 3a 20 63 72 65 61 74 65 5f 72 65 73 ┆ priority: priotype): create_res┆
0x38220…38240 75 6c 74 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 64 65 63 be 28 56 41 52 20 69 ┆ult; PROCEDURE ┐▄пdecЙ(VAR i┆
0x38240…38260 3a 20 69 6e 74 65 67 65 72 29 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 64 65 63 ┆: integer); PROCEDURE ┐▄п_dec┆
0x38260…38280 5f 62 79 74 65 5f 72 63 be 28 56 41 52 20 62 3a 20 62 79 74 65 29 3b 0d 0a 20 20 0d 0a 50 52 4f ┆_byte_rcЙ(VAR b: byte); PRO┆
0x38280…382a0 43 45 44 55 52 45 09 bf dc d8 64 65 6c 61 79 be 28 6d 73 65 63 73 3a 20 69 6e 74 65 67 65 72 29 ┆CEDURE ┐▄пdelayЙ(msecs: integer)┆
0x382a0…382c0 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 65 78 63 65 70 74 69 6f 6e be 28 65 78 ┆; PROCEDURE ┐▄пexceptionЙ(ex┆
0x382c0…382e0 63 6f 64 65 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 8c 88 9a 0a 46 55 4e 43 54 49 4f 4e ┆code: integer); їѕџ FUNCTION┆
0x382e0…38300 09 bf dc d8 68 6f 6d 65 74 65 73 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 ┆ ┐▄пhometestЙ(VAR r: reference; ┆
0x38300…38320 56 41 52 20 70 3a 20 70 6f 6f 6c 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 50 52 4f 43 45 ┆VAR p: pool): boolean; PROCE┆
0x38320…38340 44 55 52 45 09 bf dc d8 69 6e 63 be 28 56 41 52 20 69 3a 20 69 6e 74 65 67 65 72 29 3b 0d 0a 0d ┆DURE ┐▄пincЙ(VAR i: integer); ┆
0x38340…38360 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 69 6e 63 5f 62 79 74 65 5f 72 63 be 28 56 41 52 20 ┆ PROCEDURE ┐▄п_inc_byte_rcЙ(VAR ┆
0x38360…38380 62 3a 20 62 79 74 65 29 3b 0d 0a 20 20 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6c 69 6e 6b be ┆b: byte); FUNCTION ┐▄пlinkЙ┆
0x38380…383a0 28 49 4e 53 50 45 43 54 20 65 78 74 65 72 6e 61 6c 5f 6e 61 6d 65 3a 20 61 6c 66 61 3b 20 0d 0a ┆(INSPECT external_name: alfa; ┆
0x383a0…383c0 09 56 41 52 20 70 72 6f 67 3a 20 70 72 6f 67 72 61 6d 5f 64 65 73 63 72 69 70 74 6f 72 29 3a 20 ┆ VAR prog: program_descriptor): ┆
0x383c0…383e0 6c 69 6e 6b 5f 72 65 73 75 6c 74 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6c 6f 63 ┆link_result; FUNCTION ┐▄пloc┆
0x383e0…38400 6b 65 64 be 28 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d ┆kedЙ(VAR m: mailbox): boolean; ┆
0x38400…38420 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6e 65 77 be 28 56 41 52 20 70 3a 20 5e 88 7c 6e ┆ PROCEDURE ┐▄пnewЙ(VAR p: ^ѕ|n┆
0x38420…38440 69 6c 74 79 70 65 29 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6e 69 6c be 28 56 41 ┆iltype); FUNCTION ┐▄пnilЙ(VA┆
0x38440…38460 52 20 72 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 46 ┆R r: ^ѕ|niltype): boolean; F┆
0x38460…38480 55 4e 43 54 49 4f 4e 09 bf dc d8 5f 6e 69 6c 72 65 66 5f 5f 5f 72 63 be 28 56 41 52 20 72 3a 20 ┆UNCTION ┐▄п_nilref___rcЙ(VAR r: ┆
0x38480…384a0 72 65 66 65 72 65 6e 63 65 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f ┆reference): boolean; FUNCTIO┆
0x384a0…384c0 4e 09 bf dc d8 6f 66 66 73 65 74 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 29 3a ┆N ┐▄пoffsetЙ(VAR r: reforchain):┆
0x384c0…384e0 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6f 70 65 6e be 28 ┆ integer; FUNCTION ┐▄пopenЙ(┆
0x384e0…38500 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 46 55 ┆VAR m: mailbox): boolean; FU┆
0x38500…38520 4e 43 54 49 4f 4e 09 bf dc d8 6f 70 65 6e 70 6f 6f 6c be 28 56 41 52 20 70 3a 20 70 6f 6f 6c 29 ┆NCTION ┐▄пopenpoolЙ(VAR p: pool)┆
0x38520…38540 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6f 72 64 be 28 ┆: boolean; FUNCTION ┐▄пordЙ(┆
0x38540…38560 78 3a 20 6e 69 6c 74 79 70 65 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 ┆x: niltype): integer; FUNCTI┆
0x38560…38580 4f 4e 09 bf dc d8 70 61 73 73 69 76 65 be 28 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 29 3a 20 ┆ON ┐▄пpassiveЙ(VAR m: mailbox): ┆
0x38580…385a0 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 70 6f 70 be 28 56 ┆boolean; PROCEDURE ┐▄пpopЙ(V┆
0x385a0…385c0 41 52 20 72 31 2c 20 72 32 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 46 55 4e 43 54 ┆AR r1, r2: reference); FUNCT┆
0x385c0…385e0 49 4f 4e 09 bf dc d8 70 72 65 64 be 28 78 3a 20 6e 69 6c 74 79 70 65 29 3a 20 6e 69 6c 74 79 70 ┆ION ┐▄пpredЙ(x: niltype): niltyp┆
0x385e0…38600 65 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 70 75 73 68 be 28 56 41 52 20 72 31 ┆e; PROCEDURE ┐▄пpushЙ(VAR r1┆
0x38600…38620 2c 20 72 32 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 ┆, r2: reference); PROCEDURE ┆
0x38620…38640 bf dc d8 72 65 6c 65 61 73 65 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d ┆┐▄пreleaseЙ(VAR r: reference); ┆
0x38640…38660 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 72 65 6c 65 61 73 65 70 6f 6f 6c be 28 56 41 52 20 ┆ FUNCTION ┐▄пreleasepoolЙ(VAR ┆
0x38660…38680 70 3a 20 70 6f 6f 6c 3b 20 6e 6f 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 ┆p: pool; no: integer): integer; ┆
0x38680…386a0 0d 0a 20 20 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 72 65 6d 6f 76 65 be 28 56 41 52 20 70 ┆ PROCEDURE ┐▄пremoveЙ(VAR p┆
0x386a0…386c0 72 6f 63 3a 20 70 72 6f 63 65 73 73 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 ┆roc: process); PROCEDURE ┐▄п┆
0x386c0…386e0 72 65 73 75 6d 65 be 28 56 41 52 20 70 72 6f 63 3a 20 70 72 6f 63 65 73 73 29 3b 20 0d 0a 0d 0a ┆resumeЙ(VAR proc: process); ┆
0x386e0…38700 50 52 4f 43 45 44 55 52 45 09 bf dc d8 72 65 74 75 72 6e be 28 56 41 52 20 72 3a 20 72 65 66 65 ┆PROCEDURE ┐▄пreturnЙ(VAR r: refe┆
0x38700…38720 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 65 74 62 79 74 65 ┆rence); PROCEDURE ┐▄пsetbyte┆
0x38720…38740 63 6f 75 6e 74 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 3b 20 76 61 6c 3a 20 69 ┆countЙ(VAR r: reforchain; val: i┆
0x38740…38760 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 65 74 6f 66 66 ┆nteger); PROCEDURE ┐▄пsetoff┆
0x38760…38780 73 65 74 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 3b 20 76 61 6c 3a 20 69 6e 74 ┆setЙ(VAR r: reforchain; val: int┆
0x38780…387a0 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 65 74 74 6f 70 be 28 ┆eger); PROCEDURE ┐▄пsettopЙ(┆
0x387a0…387c0 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 3b 20 76 61 6c 3a 20 69 6e 74 65 67 65 72 29 ┆VAR r: reforchain; val: integer)┆
0x387c0…387e0 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 65 74 75 31 be 28 56 41 52 20 72 3a ┆; PROCEDURE ┐▄пsetu1Й(VAR r:┆
0x387e0…38800 20 72 65 66 6f 72 63 68 61 69 6e 3b 20 76 61 6c 3a 20 62 79 74 65 29 3b 20 0d 0a 0d 0a 50 52 4f ┆ reforchain; val: byte); PRO┆
0x38800…38820 43 45 44 55 52 45 09 bf dc d8 73 65 74 75 32 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 ┆CEDURE ┐▄пsetu2Й(VAR r: reforcha┆
0x38820…38840 69 6e 3b 20 76 61 6c 3a 20 62 79 74 65 29 3b 20 0d 0a 0d 0a 8c 87 ba 0a 50 52 4f 43 45 44 55 52 ┆in; val: byte); їЄ║ PROCEDUR┆
0x38840…38860 45 09 bf dc d8 73 65 74 75 33 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 3b 20 76 ┆E ┐▄пsetu3Й(VAR r: reforchain; v┆
0x38860…38880 61 6c 3a 20 62 79 74 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 65 74 75 ┆al: byte); PROCEDURE ┐▄пsetu┆
0x38880…388a0 34 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 3b 20 76 61 6c 3a 20 62 79 74 65 29 ┆4Й(VAR r: reforchain; val: byte)┆
0x388a0…388c0 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 69 67 6e 61 6c be 28 56 41 52 20 72 ┆; PROCEDURE ┐▄пsignalЙ(VAR r┆
0x388c0…388e0 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 29 3b 20 0d 0a ┆: reference; VAR m: mailbox); ┆
0x388e0…38900 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 73 74 61 63 6b 64 65 70 74 68 be 28 56 41 52 20 72 3a ┆ FUNCTION ┐▄пstackdepthЙ(VAR r:┆
0x38900…38920 20 72 65 66 65 72 65 6e 63 65 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 ┆ reference): integer; PROCED┆
0x38920…38940 55 52 45 09 bf dc d8 73 74 61 72 74 be 28 56 41 52 20 70 72 6f 63 3a 20 70 72 6f 63 65 73 73 3b ┆URE ┐▄пstartЙ(VAR proc: process;┆
0x38940…38960 20 70 72 69 6f 72 69 74 79 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 ┆ priority: integer); PROCEDU┆
0x38960…38980 52 45 09 bf dc d8 73 74 6f 70 be 28 56 41 52 20 70 72 6f 63 3a 20 70 72 6f 63 65 73 73 29 3b 20 ┆RE ┐▄пstopЙ(VAR proc: process); ┆
0x38980…389a0 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 73 75 63 63 be 28 78 3a 20 6e 69 6c 74 79 70 65 ┆ FUNCTION ┐▄пsuccЙ(x: niltype┆
0x389a0…389c0 29 3a 20 6e 69 6c 74 79 70 65 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 73 77 61 70 ┆): niltype; FUNCTION ┐▄пswap┆
0x389c0…389e0 be 28 69 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 46 55 4e 43 ┆Й(i: integer): integer; FUNC┆
0x389e0…38a00 54 49 4f 4e 09 bf dc d8 74 6f 70 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 29 3a ┆TION ┐▄пtopЙ(VAR r: reforchain):┆
0x38a00…38a20 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 74 72 61 63 65 ┆ integer; PROCEDURE ┐▄пtrace┆
0x38a20…38a40 be 3d 65 78 63 65 70 74 69 6f 6e 28 63 6f 64 65 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a ┆Й=exception(code: integer); ┆
0x38a40…38a60 46 55 4e 43 54 49 4f 4e 09 bf dc d8 75 6e 6c 69 6e 6b be 28 56 41 52 20 70 72 6f 67 3a 20 70 72 ┆FUNCTION ┐▄пunlinkЙ(VAR prog: pr┆
0x38a60…38a80 6f 67 72 61 6d 5f 64 65 73 63 72 69 70 74 6f 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a ┆ogram_descriptor): integer; ┆
0x38a80…38aa0 46 55 4e 43 54 49 4f 4e 09 bf dc d8 75 31 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 ┆FUNCTION ┐▄пu1Й(VAR r: reforchai┆
0x38aa0…38ac0 6e 29 3a 20 62 79 74 65 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 75 32 be 28 56 41 ┆n): byte; FUNCTION ┐▄пu2Й(VA┆
0x38ac0…38ae0 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 29 3a 20 62 79 74 65 3b 20 0d 0a 0d 0a 46 55 4e 43 ┆R r: reforchain): byte; FUNC┆
0x38ae0…38b00 54 49 4f 4e 09 bf dc d8 75 33 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 29 3a 20 ┆TION ┐▄пu3Й(VAR r: reforchain): ┆
0x38b00…38b20 62 79 74 65 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 75 34 be 28 56 41 52 20 72 3a ┆byte; FUNCTION ┐▄пu4Й(VAR r:┆
0x38b20…38b40 20 72 65 66 6f 72 63 68 61 69 6e 29 3a 20 62 79 74 65 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 ┆ reforchain): byte; PROCEDUR┆
0x38b40…38b60 45 09 bf dc d8 77 61 69 74 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 ┆E ┐▄пwaitЙ(VAR r: reference; VAR┆
0x38b60…38b80 20 6d 3a 20 6d 61 69 6c 62 6f 78 29 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 77 61 ┆ m: mailbox); FUNCTION ┐▄пwa┆
0x38b80…38ba0 69 74 64 65 6c 61 79 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 6d ┆itdelayЙ(VAR r: reference; VAR m┆
0x38ba0…38bc0 3a 20 6d 61 69 6c 62 6f 78 3b 20 0d 0a 09 6d 73 65 63 73 3a 20 69 6e 74 65 67 65 72 29 3a 20 61 ┆: mailbox; msecs: integer): a┆
0x38bc0…38be0 63 74 69 76 61 74 69 6f 6e 3b 20 0d 0a 20 20 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 5f 62 75 ┆ctivation; FUNCTION ┐▄п_bu┆
0x38be0…38c00 66 73 69 7a 65 5f 5f 72 63 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 69 6e ┆fsize__rcЙ(VAR r: reference): in┆
0x38c00…38c20 74 65 67 65 72 3b 20 0d 0a 20 20 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 65 78 63 68 61 ┆teger; PROCEDURE ┐▄п_excha┆
0x38c20…38c40 6e 67 65 5f 72 63 be 28 56 41 52 20 70 72 6f 63 31 2c 20 70 72 6f 63 32 3a 20 70 72 6f 63 65 73 ┆nge_rcЙ(VAR proc1, proc2: proces┆
0x38c40…38c60 73 29 3b 20 0d 0a 20 20 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 65 78 69 74 5f 5f 5f 5f ┆s); PROCEDURE ┐▄п_exit____┆
0x38c60…38c80 5f 72 63 be 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 5f 66 69 72 73 74 5f 5f 5f 5f ┆_rcЙ; FUNCTION ┐▄п_first____┆
0x38c80…38ca0 72 63 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 69 6e 74 65 67 65 72 3b 20 ┆rcЙ(VAR r: reference): integer; ┆
0x38ca0…38cc0 0d 0a 20 20 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 68 65 61 70 70 72 6f 63 5f 72 63 be ┆ PROCEDURE ┐▄п_heapproc_rcЙ┆
0x38cc0…38ce0 28 70 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf ┆(p: ^ѕ|niltype); PROCEDURE ┐┆
0x38ce0…38d00 dc d8 5f 68 65 61 70 72 65 66 5f 5f 72 63 be 28 70 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 29 3b 20 ┆▄п_heapref__rcЙ(p: ^ѕ|niltype); ┆
0x38d00…38d20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 69 6e 69 74 63 68 61 69 6e 72 63 be 28 70 ┆ PROCEDURE ┐▄п_initchainrcЙ(p┆
0x38d20…38d40 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 ┆: ^ѕ|niltype); PROCEDURE ┐▄п┆
0x38d40…38d60 5f 69 6e 69 74 6d 62 78 5f 5f 72 63 be 28 70 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 29 3b 20 0d 0a ┆_initmbx__rcЙ(p: ^ѕ|niltype); ┆
0x38d60…38d80 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 69 6e 69 74 70 6f 6f 6c 5f 72 63 be 28 56 41 52 ┆ PROCEDURE ┐▄п_initpool_rcЙ(VAR┆
0x38d80…38da0 20 6d 3a 20 6d 61 69 6c 62 6f 78 3b 20 0d 0a 09 6e 75 6d 62 65 72 2c 20 73 69 7a 65 3a 20 69 6e ┆ m: mailbox; number, size: in┆
0x38da0…38dc0 74 65 67 65 72 29 3b 20 0d 0a 20 20 0d 0a 8c 87 cc 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 5f ┆teger); їЄ╠ PROCEDURE ┐▄п_┆
0x38dc0…38de0 69 6e 69 74 70 72 6f 63 5f 72 63 be 28 70 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 29 3b 20 0d 0a 0d ┆initproc_rcЙ(p: ^ѕ|niltype); ┆
0x38de0…38e00 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 69 6e 69 74 70 72 6f 67 5f 72 63 be 28 70 3a 20 5e ┆ PROCEDURE ┐▄п_initprog_rcЙ(p: ^┆
0x38e00…38e20 88 7c 6e 69 6c 74 79 70 65 3b 20 71 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 29 3b 20 0d 0a 0d 0a 50 ┆ѕ|niltype; q: ^ѕ|niltype); P┆
0x38e20…38e40 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 69 6e 69 74 72 65 66 5f 5f 72 63 be 28 70 3a 20 5e 88 7c ┆ROCEDURE ┐▄п_initref__rcЙ(p: ^ѕ|┆
0x38e40…38e60 6e 69 6c 74 79 70 65 29 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 5f 6c 61 73 74 5f ┆niltype); FUNCTION ┐▄п_last_┆
0x38e60…38e80 5f 5f 5f 5f 72 63 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 69 6e 74 65 67 ┆____rcЙ(VAR r: reference): integ┆
0x38e80…38ea0 65 72 3b 20 0d 0a 20 20 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 5f 6e 65 77 5f 5f 5f 5f 5f 5f ┆er; FUNCTION ┐▄п_new______┆
0x38ea0…38ec0 72 63 be 28 62 79 74 65 73 3a 20 69 6e 74 65 67 65 72 3b 20 77 6f 72 64 61 6c 69 67 6e 6d 65 6e ┆rcЙ(bytes: integer; wordalignmen┆
0x38ec0…38ee0 74 3a 20 62 6f 6f 6c 65 61 6e 29 3a 20 5e 88 7c 6e 69 6c 74 79 70 65 3b 20 0d 0a 20 20 0d 0a 50 ┆t: boolean): ^ѕ|niltype; P┆
0x38ee0…38f00 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 72 65 67 69 6f 6e 5f 5f 5f 72 63 be 28 56 41 52 20 73 68 ┆ROCEDURE ┐▄п_region___rcЙ(VAR sh┆
0x38f00…38f20 3a 20 73 68 61 72 65 64 5f 64 65 73 63 72 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf ┆: shared_descr); PROCEDURE ┐┆
0x38f20…38f40 dc d8 5f 72 65 67 5f 65 78 69 74 5f 72 63 be 28 56 41 52 20 73 68 3a 20 73 68 61 72 65 64 5f 64 ┆▄п_reg_exit_rcЙ(VAR sh: shared_d┆
0x38f40…38f60 65 73 63 72 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 5f 73 68 69 66 74 5f 5f ┆escr); PROCEDURE ┐▄п_shift__┆
0x38f60…38f80 5f 5f 72 63 be 28 61 2c 20 62 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 04 00 2d 4c 00 00 06 00 ┆__rcЙ(a, b: integer); -L ┆
0x38f80…38fa0 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x38fa0…38fc0 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 ┆ (08 -M A1┆
0x38fc0…38fe0 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ┆@ (08┆
0x38fe0…39000 ff ff ff ff ff ff ff ff ff 04 0a 20 0d 0a 20 0d 0a 16 73 62 0d 0a 49 6d 70 6c 65 6d 65 6e 74 61 ┆ sb Implementa┆
0x39000…39020 74 69 6f 6e 20 44 65 70 65 6e 64 65 6e 74 20 53 74 61 6e 64 61 72 64 20 52 6f 75 74 69 6e 65 73 ┆tion Dependent Standard Routines┆
0x39020…39040 0d 0a 0d 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 6f 75 74 69 6e 65 73 20 61 72 65 20 64 ┆ The following routines are d┆
0x39040…39060 65 66 69 6e 65 64 20 69 6e 20 bf dc d8 72 63 33 35 30 32 65 6e 76 be 3a 0d 0a 0d 0a 04 00 2d 4d ┆efined in ┐▄пrc3502envЙ: -M┆
0x39060…39080 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x39080…390a0 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 ┆ (08 -L ┆
0x390a0…390c0 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 ┆ A1@ ┆
0x390c0…390e0 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 62 72 65 61 ┆ (08 PROCEDURE ┐▄пbrea┆
0x390e0…39100 6b be 28 56 41 52 20 70 72 6f 63 3a 20 70 72 6f 63 65 73 73 3b 20 65 78 63 6f 64 65 3a 20 69 6e ┆kЙ(VAR proc: process; excode: in┆
0x39100…39120 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 63 61 6c 6c 72 65 6d ┆teger); PROCEDURE ┐▄пcallrem┆
0x39120…39140 6f 74 65 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 49 4e 53 50 45 43 54 20 6d ┆oteЙ(VAR r: reference; INSPECT m┆
0x39140…39160 5f 6e 61 6d 65 3a 20 61 6c 66 61 29 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 46 55 4e 43 54 49 ┆_name: alfa): integer; FUNCTI┆
0x39160…39180 4f 4e 09 bf dc d8 63 6c 6f 63 6b 5f 64 69 66 66 65 72 65 6e 63 65 be 28 74 31 2c 20 74 32 3a 20 ┆ON ┐▄пclock_differenceЙ(t1, t2: ┆
0x39180…391a0 63 6c 6f 63 6b 74 79 70 65 29 3a 20 63 6f 64 65 64 5f 69 6e 63 3b 20 0d 0a 20 20 0d 0a 46 55 4e ┆clocktype): coded_inc; FUN┆
0x391a0…391c0 43 54 49 4f 4e 09 bf dc d8 63 6c 6f 63 6b 5f 69 6e 63 72 65 6d 65 6e 74 be 28 74 3a 20 63 6c 6f ┆CTION ┐▄пclock_incrementЙ(t: clo┆
0x391c0…391e0 63 6b 74 79 70 65 3b 20 69 6e 63 3a 20 63 6f 64 65 64 5f 69 6e 63 29 3a 20 0a 63 6c 6f 63 6b 74 ┆cktype; inc: coded_inc): clockt┆
0x391e0…39200 79 70 65 3b 20 0d 0a 20 20 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 63 6c 6f 63 6b 5f 6c 65 73 ┆ype; FUNCTION ┐▄пclock_les┆
0x39200…39220 73 5f 74 68 61 6e be 28 74 31 2c 20 74 32 3a 20 63 6c 6f 63 6b 74 79 70 65 29 3a 20 62 6f 6f 6c ┆s_thanЙ(t1, t2: clocktype): bool┆
0x39220…39240 65 61 6e 3b 20 0d 0a 20 20 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 63 72 63 31 36 be 28 6f 70 ┆ean; FUNCTION ┐▄пcrc16Й(op┆
0x39240…39260 31 2c 20 6f 70 32 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 46 ┆1, op2: integer): integer; F┆
0x39260…39280 55 4e 43 54 49 4f 4e 09 bf dc d8 63 72 63 31 36 62 75 66 be 28 56 41 52 20 72 3a 20 72 65 66 65 ┆UNCTION ┐▄пcrc16bufЙ(VAR r: refe┆
0x39280…392a0 72 65 6e 63 65 3b 20 66 72 6f 6d 62 79 74 65 2c 20 74 6f 62 79 74 65 3a 20 69 6e 74 65 67 65 72 ┆rence; frombyte, tobyte: integer┆
0x392a0…392c0 3b 0d 0a 09 71 75 6f 74 69 65 6e 74 2c 20 73 74 61 72 74 76 61 6c 75 65 3a 20 69 6e 74 65 67 65 ┆; quotient, startvalue: intege┆
0x392c0…392e0 72 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 64 65 ┆r): integer; PROCEDURE ┐▄пde┆
0x392e0…39300 66 69 6e 65 74 69 6d 65 72 be 28 6f 6e 6f 66 66 3a 20 62 6f 6f 6c 65 61 6e 29 3b 20 0d 0a 0d 0a ┆finetimerЙ(onoff: boolean); ┆
0x39300…39320 46 55 4e 43 54 49 4f 4e 09 bf dc d8 64 65 6c 65 74 65 6d 61 69 6c 62 6f 78 be 28 49 4e 53 50 45 ┆FUNCTION ┐▄пdeletemailboxЙ(INSPE┆
0x39320…39340 43 54 20 6d 62 78 5f 6e 61 6d 65 3a 20 61 6c 66 61 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d ┆CT mbx_name: alfa): integer; ┆
0x39340…39360 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 65 6f 69 be 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a ┆ FUNCTION ┐▄пeoiЙ: boolean; ┆
0x39360…39380 46 55 4e 43 54 49 4f 4e 09 bf dc d8 66 69 72 73 74 be 3d 6f 66 66 73 65 74 28 56 41 52 20 72 3a ┆FUNCTION ┐▄пfirstЙ=offset(VAR r:┆
0x39380…393a0 20 72 65 66 6f 72 63 68 61 69 6e 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 46 55 4e 43 54 ┆ reforchain): integer; FUNCT┆
0x393a0…393c0 49 4f 4e 09 bf dc d8 67 65 74 63 6c 6f 63 6b be 3a 20 63 6c 6f 63 6b 74 79 70 65 3b 20 0d 0a 0d ┆ION ┐▄пgetclockЙ: clocktype; ┆
0x393c0…393e0 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 69 6e 62 79 74 65 62 6c 6f 63 6b be 28 56 41 52 20 6e ┆ PROCEDURE ┐▄пinbyteblockЙ(VAR n┆
0x393e0…39400 65 78 74 3a 20 69 6e 74 65 67 65 72 3b 20 66 69 72 73 74 2c 20 6c 61 73 74 3a 20 69 6e 74 65 67 ┆ext: integer; first, last: integ┆
0x39400…39420 65 72 3b 20 0d 0a 09 56 41 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 20 20 ┆er; VAR msg: reference); ┆
0x39420…39440 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 69 6e 77 6f 72 64 62 6c 6f 63 6b be 28 56 41 52 20 ┆ PROCEDURE ┐▄пinwordblockЙ(VAR ┆
0x39440…39460 6e 65 78 74 3a 20 69 6e 74 65 67 65 72 3b 20 66 69 72 73 74 2c 20 6c 61 73 74 3a 20 69 6e 74 65 ┆next: integer; first, last: inte┆
0x39460…39480 67 65 72 3b 20 0d 0a 09 56 41 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 20 ┆ger; VAR msg: reference); ┆
0x39480…394a0 20 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6c 61 73 74 be 28 56 41 52 20 72 3a 20 72 65 66 6f ┆ FUNCTION ┐▄пlastЙ(VAR r: refo┆
0x394a0…394c0 72 63 68 61 69 6e 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf ┆rchain): integer; FUNCTION ┐┆
0x394c0…394e0 dc d8 6d 65 73 73 61 67 65 6b 69 6e 64 be 28 56 41 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 ┆▄пmessagekindЙ(VAR msg: referenc┆
0x394e0…39500 65 29 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6e 61 6d 65 ┆e): integer; FUNCTION ┐▄пname┆
0x39500…39520 6d 61 69 6c 62 6f 78 be 28 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 3b 20 49 4e 53 50 45 43 54 ┆mailboxЙ(VAR m: mailbox; INSPECT┆
0x39520…39540 20 6d 62 78 5f 6e 61 6d 65 3a 20 61 6c 66 61 29 3a 20 0d 0a 09 69 6e 74 65 67 65 72 3b 20 0d 0a ┆ mbx_name: alfa): integer; ┆
0x39540…39560 20 20 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6e 65 78 74 be 28 56 41 52 20 72 3a 20 72 65 66 ┆ FUNCTION ┐▄пnextЙ(VAR r: ref┆
0x39560…39580 6f 72 63 68 61 69 6e 29 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 ┆orchain): integer; PROCEDURE┆
0x39580…395a0 09 bf dc d8 6f 75 74 62 79 74 65 62 6c 6f 63 6b be 28 56 41 52 20 6e 65 78 74 3a 20 69 6e 74 65 ┆ ┐▄пoutbyteblockЙ(VAR next: inte┆
0x395a0…395c0 67 65 72 3b 20 66 69 72 73 74 2c 20 6c 61 73 74 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 09 56 41 ┆ger; first, last: integer; VA┆
0x395c0…395e0 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 20 20 0d 0a 50 52 4f 43 45 44 55 ┆R msg: reference); PROCEDU┆
0x395e0…39600 52 45 09 bf dc d8 6f 75 74 77 6f 72 64 62 6c 6f 63 6b be 28 56 41 52 20 6e 65 78 74 3a 20 69 6e ┆RE ┐▄пoutwordblockЙ(VAR next: in┆
0x39600…39620 74 65 67 65 72 3b 20 66 69 72 73 74 2c 20 6c 61 73 74 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a 09 ┆teger; first, last: integer; ┆
0x39620…39640 56 41 52 20 6d 73 67 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f ┆VAR msg: reference); FUNCTIO┆
0x39640…39660 4e 09 bf dc d8 6f 77 6e 6e 61 6d 65 be 28 56 41 52 20 6e 61 6d 65 3a 20 61 6c 66 61 29 3a 20 62 ┆N ┐▄пownnameЙ(VAR name: alfa): b┆
0x39660…39680 79 74 65 3b 0d 0a 20 20 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6f 77 6e 70 72 6f 67 72 61 6d ┆yte; FUNCTION ┐▄пownprogram┆
0x39680…396a0 6e 61 6d 65 be 28 56 41 52 20 6e 61 6d 65 3a 20 61 6c 66 61 29 3a 20 62 79 74 65 3b 0d 0a 20 20 ┆nameЙ(VAR name: alfa): byte; ┆
0x396a0…396c0 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 72 65 66 be 28 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f ┆ FUNCTION ┐▄пrefЙ(VAR m: mailbo┆
0x396c0…396e0 78 29 3a 20 5e 88 7c 6d 61 69 6c 62 6f 78 3b 20 0d 0a 0d 0a 8c 8a d8 0a 46 55 4e 43 54 49 4f 4e ┆x): ^ѕ|mailbox; їіп FUNCTION┆
0x396e0…39700 09 bf dc d8 72 65 73 65 72 76 65 63 68 be 28 56 41 52 20 63 68 5f 6d 73 67 3a 20 72 65 66 65 72 ┆ ┐▄пreservechЙ(VAR ch_msg: refer┆
0x39700…39720 65 6e 63 65 3b 20 0d 0a 09 6c 65 76 65 6c 2c 20 6d 61 73 6b 3a 20 69 6e 74 65 67 65 72 29 3a 20 ┆ence; level, mask: integer): ┆
0x39720…39740 69 6e 74 65 67 65 72 3b 20 0d 0a 20 20 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 73 65 61 72 63 ┆integer; FUNCTION ┐▄пsearc┆
0x39740…39760 68 6d 61 69 6c 62 6f 78 be 28 49 4e 53 50 45 43 54 20 6d 62 78 5f 6e 61 6d 65 3a 20 61 6c 66 61 ┆hmailboxЙ(INSPECT mbx_name: alfa┆
0x39760…39780 29 3a 20 5e 88 7c 6d 61 69 6c 62 6f 78 3b 20 0d 0a 20 20 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf ┆): ^ѕ|mailbox; PROCEDURE ┐┆
0x39780…397a0 dc d8 73 65 6e 64 6c 69 6e 6b 65 72 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3b ┆▄пsendlinkerЙ(VAR r: reference);┆
0x397a0…397c0 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 65 6e 64 74 69 6d 65 72 be 28 56 41 52 ┆ PROCEDURE ┐▄пsendtimerЙ(VAR┆
0x397c0…397e0 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc ┆ r: reference); PROCEDURE ┐▄┆
0x397e0…39800 d8 73 65 74 66 69 72 73 74 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 3b 20 76 61 ┆пsetfirstЙ(VAR r: reforchain; va┆
0x39800…39820 6c 3a 20 69 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 65 ┆l: integer); PROCEDURE ┐▄пse┆
0x39820…39840 74 6c 61 73 74 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 3b 20 76 61 6c 3a 20 69 ┆tlastЙ(VAR r: reforchain; val: i┆
0x39840…39860 6e 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 65 74 6e 65 78 ┆nteger); PROCEDURE ┐▄пsetnex┆
0x39860…39880 74 be 28 56 41 52 20 72 3a 20 72 65 66 6f 72 63 68 61 69 6e 3b 20 76 61 6c 3a 20 69 6e 74 65 67 ┆tЙ(VAR r: reforchain; val: integ┆
0x39880…398a0 65 72 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 65 74 6f 77 6e 6e 61 6d 65 ┆er); PROCEDURE ┐▄пsetownname┆
0x398a0…398c0 be 28 49 4e 53 50 45 43 54 20 6e 61 6d 65 3a 20 61 6c 66 61 29 3b 0d 0a 0d 0a 50 52 4f 43 45 44 ┆Й(INSPECT name: alfa); PROCED┆
0x398c0…398e0 55 52 45 09 bf dc d8 73 65 74 70 72 69 6f 72 69 74 79 be 28 70 72 69 6f 72 69 74 79 3a 20 69 6e ┆URE ┐▄пsetpriorityЙ(priority: in┆
0x398e0…39900 74 65 67 65 72 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 74 6f 66 72 6f 6d be ┆teger); PROCEDURE ┐▄пtofromЙ┆
0x39900…39920 28 56 41 52 20 74 6f 72 65 66 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 74 6f 69 6e 64 65 78 3a 20 ┆(VAR toref: reference; toindex: ┆
0x39920…39940 69 6e 74 65 67 65 72 3b 0d 0a 09 56 41 52 20 66 72 6f 6d 72 65 66 3a 20 72 65 66 65 72 65 6e 63 ┆integer; VAR fromref: referenc┆
0x39940…39960 65 3b 20 66 72 6f 6d 69 6e 64 65 78 3a 20 69 6e 74 65 67 65 72 3b 20 62 79 74 65 73 3a 20 69 6e ┆e; fromindex: integer; bytes: in┆
0x39960…39980 74 65 67 65 72 29 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 77 61 69 74 69 be 3b 0d ┆teger); PROCEDURE ┐▄пwaitiЙ; ┆
0x39980…399a0 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 77 61 69 74 69 64 be 28 6d 73 65 63 73 3a 20 69 6e ┆ FUNCTION ┐▄пwaitidЙ(msecs: in┆
0x399a0…399c0 74 65 67 65 72 29 3a 20 61 63 74 69 76 61 74 69 6f 6e 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e ┆teger): activation; FUNCTION┆
0x399c0…399e0 09 bf dc d8 77 61 69 74 69 6d be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 ┆ ┐▄пwaitimЙ(VAR r: reference; VA┆
0x399e0…39a00 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 29 3a 20 61 63 74 69 76 61 74 69 6f 6e 3b 20 0d 0a 20 20 0d ┆R m: mailbox): activation; ┆
0x39a00…39a20 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 77 61 69 74 69 6d 64 be 28 56 41 52 20 72 3a 20 72 65 66 ┆ FUNCTION ┐▄пwaitimdЙ(VAR r: ref┆
0x39a20…39a40 65 72 65 6e 63 65 3b 20 56 41 52 20 6d 3a 20 6d 61 69 6c 62 6f 78 3b 20 0d 0a 09 6d 73 65 63 73 ┆erence; VAR m: mailbox; msecs┆
0x39a40…39a60 3a 20 69 6e 74 65 67 65 72 29 3a 20 61 63 74 69 76 61 74 69 6f 6e 3b 20 0d 0a 04 00 2d 4c 00 00 ┆: integer): activation; -L ┆
0x39a60…39a80 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x39a80…39aa0 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 ┆ (08 -M ┆
0x39aa0…39ac0 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 ┆A1@ (┆
0x39ac0…39ae0 30 38 ff ff ff ff ff ff ff ff ff 04 0a 20 20 0d 0a 16 73 61 0d 0a 52 43 33 35 30 32 20 53 79 73 ┆08 sa RC3502 Sys┆
0x39ae0…39b00 74 65 6d 20 53 75 70 70 6f 72 74 65 64 20 45 6e 74 69 74 69 65 73 0d 0a 0d 0a 54 68 65 20 66 6f ┆tem Supported Entities The fo┆
0x39b00…39b20 6c 6c 6f 77 69 6e 67 20 73 75 62 73 65 63 74 69 6f 6e 73 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 ┆llowing subsections contain the ┆
0x39b20…39b40 64 65 66 69 6e 69 74 69 6f 6e 73 20 6f 66 20 63 6f 6e 73 74 61 6e 74 73 2c 20 74 79 70 65 73 2c ┆definitions of constants, types,┆
0x39b40…39b60 20 0a 61 6e 64 20 72 6f 75 74 69 6e 65 73 20 77 68 69 63 68 20 61 72 65 20 73 75 70 70 6f 72 74 ┆ and routines which are support┆
0x39b60…39b80 65 64 20 62 79 20 74 68 65 20 52 54 50 33 35 30 32 20 73 79 73 74 65 6d 20 66 6f 72 20 74 68 65 ┆ed by the RTP3502 system for the┆
0x39b80…39ba0 20 0a 52 43 33 35 30 32 20 6d 61 63 68 69 6e 65 2e 0d 0a 0d 0a 0d 0a 16 73 62 0d 0a 44 6f 75 62 ┆ RC3502 machine. sb Doub┆
0x39ba0…39bc0 6c 65 65 6e 76 0d 0a 16 73 6f 20 64 6f 75 62 6c 65 65 6e 76 0d 0a 0d 0a 04 00 2d 4d 0f 00 08 00 ┆leenv so doubleenv -M ┆
0x39bc0…39be0 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x39be0…39c00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 ┆ (08 -L A1┆
0x39c00…39c20 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ┆@ (08┆
0x39c20…39c40 ff ff ff ff ff ff ff ff ff 04 0a 43 4f 4e 53 54 0d 0a 20 20 bf dc d8 64 6f 75 62 6c 65 5f 6d 69 ┆ CONST ┐▄пdouble_mi┆
0x39c40…39c60 6e 3d be 20 64 6f 75 62 6c 65 28 3a 6d 69 6e 69 6e 74 2c 20 30 3a 29 3b 0d 0a 20 20 bf dc d8 64 ┆n=Й double(:minint, 0:); ┐▄пd┆
0x39c60…39c80 6f 75 62 6c 65 5f 7a 65 72 6f 3d be 20 64 6f 75 62 6c 65 28 3a 30 2c 20 30 3a 29 3b 0d 0a 20 20 ┆ouble_zero=Й double(:0, 0:); ┆
0x39c80…39ca0 bf dc d8 64 6f 75 62 6c 65 5f 6f 6e 65 3d be 20 64 6f 75 62 6c 65 28 3a 30 2c 20 31 3a 29 3b 0d ┆┐▄пdouble_one=Й double(:0, 1:); ┆
0x39ca0…39cc0 0a 20 20 bf dc d8 64 6f 75 62 6c 65 5f 74 77 6f 3d be 20 64 6f 75 62 6c 65 28 3a 30 2c 20 32 3a ┆ ┐▄пdouble_two=Й double(:0, 2:┆
0x39cc0…39ce0 29 3b 0d 0a 20 20 bf dc d8 64 6f 75 62 6c 65 5f 6d 61 78 3d be 20 64 6f 75 62 6c 65 28 3a 6d 61 ┆); ┐▄пdouble_max=Й double(:ma┆
0x39ce0…39d00 78 69 6e 74 2c 20 2d 31 3a 29 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c ┆xint, -1:); FUNCTION ┐▄пdoubl┆
0x39d00…39d20 65 5f 61 64 64 be 28 64 31 2c 20 64 32 3a 20 64 6f 75 62 6c 65 29 3a 20 64 6f 75 62 6c 65 3b 0d ┆e_addЙ(d1, d2: double): double; ┆
0x39d20…39d40 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 64 6f 75 62 6c 65 5f 64 65 63 be 28 56 41 52 20 ┆ PROCEDURE ┐▄пdouble_decЙ(VAR ┆
0x39d40…39d60 64 3a 20 64 6f 75 62 6c 65 29 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c ┆d: double); FUNCTION ┐▄пdoubl┆
0x39d60…39d80 65 5f 64 69 76 be 28 64 31 2c 20 64 32 3a 20 64 6f 75 62 6c 65 29 3a 20 64 6f 75 62 6c 65 3b 0d ┆e_divЙ(d1, d2: double): double; ┆
0x39d80…39da0 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 64 6f 75 62 6c 65 5f 69 6e 63 be 28 56 41 52 20 ┆ PROCEDURE ┐▄пdouble_incЙ(VAR ┆
0x39da0…39dc0 64 3a 20 64 6f 75 62 6c 65 29 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c ┆d: double); FUNCTION ┐▄пdoubl┆
0x39dc0…39de0 65 5f 69 6e 74 be 28 69 3a 20 69 6e 74 65 67 65 72 29 3a 20 64 6f 75 62 6c 65 3b 0d 0a 0d 0a 46 ┆e_intЙ(i: integer): double; F┆
0x39de0…39e00 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c 65 5f 6c 74 be 28 64 31 2c 20 64 32 3a 20 64 6f ┆UNCTION ┐▄пdouble_ltЙ(d1, d2: do┆
0x39e00…39e20 75 62 6c 65 29 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 ┆uble): boolean; FUNCTION ┐▄пd┆
0x39e20…39e40 6f 75 62 6c 65 5f 6d 61 64 64 be 28 64 31 2c 20 64 32 3a 20 64 6f 75 62 6c 65 29 3a 20 64 6f 75 ┆ouble_maddЙ(d1, d2: double): dou┆
0x39e40…39e60 62 6c 65 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c 65 5f 6d 6f 64 be 28 ┆ble; FUNCTION ┐▄пdouble_modЙ(┆
0x39e60…39e80 64 31 2c 20 64 32 3a 20 64 6f 75 62 6c 65 29 3a 20 64 6f 75 62 6c 65 3b 0d 0a 0d 0a 46 55 4e 43 ┆d1, d2: double): double; FUNC┆
0x39e80…39ea0 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c 65 5f 6d 73 75 62 be 28 64 31 2c 20 64 32 3a 20 64 6f 75 ┆TION ┐▄пdouble_msubЙ(d1, d2: dou┆
0x39ea0…39ec0 62 6c 65 29 3a 20 64 6f 75 62 6c 65 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 ┆ble): double; FUNCTION ┐▄пdou┆
0x39ec0…39ee0 62 6c 65 5f 6d 75 6c be 28 64 31 2c 20 64 32 3a 20 64 6f 75 62 6c 65 29 3a 20 64 6f 75 62 6c 65 ┆ble_mulЙ(d1, d2: double): double┆
0x39ee0…39f00 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 64 6f 75 62 6c 65 5f 73 75 62 be 28 64 31 2c ┆; FUNCTION ┐▄пdouble_subЙ(d1,┆
0x39f00…39f20 20 64 32 3a 20 64 6f 75 62 6c 65 29 3a 20 64 6f 75 62 6c 65 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f ┆ d2: double): double; FUNCTIO┆
0x39f20…39f40 4e 20 bf dc d8 64 6f 75 62 6c 65 5f 75 69 6e 74 be 28 69 3a 20 69 6e 74 65 67 65 72 29 3a 20 64 ┆N ┐▄пdouble_uintЙ(i: integer): d┆
0x39f40…39f60 6f 75 62 6c 65 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 bf dc d8 69 6e 74 5f 64 6f 75 62 6c 65 ┆ouble; FUNCTION ┐▄пint_double┆
0x39f60…39f80 be 28 69 3a 20 64 6f 75 62 6c 65 29 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 46 55 4e 43 54 49 ┆Й(i: double): integer; FUNCTI┆
0x39f80…39fa0 4f 4e 20 bf dc d8 75 69 6e 74 5f 64 6f 75 62 6c 65 be 28 69 3a 20 64 6f 75 62 6c 65 29 3a 20 69 ┆ON ┐▄пuint_doubleЙ(i: double): i┆
0x39fa0…39fc0 6e 74 65 67 65 72 3b 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 ┆nteger; -L A1@ ┆
0x39fc0…39fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ┆ (08 ┆
0x39fe0…3a000 ff 04 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -M A1@ ┆
0x3a000…3a020 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 0a 0d 0a 0d 0a ┆ (08 ┆
0x3a020…3a040 16 73 62 0d 0a 49 6d 63 33 35 30 32 65 6e 76 0d 0a 16 73 6f 20 69 6d 63 33 35 30 32 65 6e 76 0d ┆ sb Imc3502env so imc3502env ┆
0x3a040…3a060 0a 0d 0a 45 6e 74 69 74 69 65 73 20 66 6f 72 20 69 6e 74 65 72 20 6d 6f 64 75 6c 65 20 63 6f 6d ┆ Entities for inter module com┆
0x3a060…3a080 6d 75 6e 69 63 61 74 69 6f 6e 20 28 49 4d 43 29 0d 0a 20 20 0d 0a 04 00 2d 4d 0f 00 08 00 00 00 ┆munication (IMC) -M ┆
0x3a080…3a0a0 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 ┆ A1@ ┆
0x3a0a0…3a0c0 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 ┆ (08 -L A1@ ┆
0x3a0c0…3a0e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ┆ (08 ┆
0x3a0e0…3a100 ff ff ff ff ff ff ff 04 0a 43 4f 4e 53 54 0d 0a 20 20 bf dc d8 6d 61 78 5f 69 6d 63 5f 69 64 3d ┆ CONST ┐▄пmax_imc_id=┆
0x3a100…3a120 be 20 31 30 3b 20 20 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 bf dc d8 73 63 6f 70 65 5f 74 79 70 65 ┆Й 10; TYPE ┐▄пscope_type┆
0x3a120…3a140 3d be 20 28 61 6e 6f 6e 79 6d 6f 75 73 2c 20 6c 6f 63 61 6c 2c 20 72 65 67 69 6f 6e 61 6c 2c 20 ┆=Й (anonymous, local, regional, ┆
0x3a140…3a160 67 6c 6f 62 61 6c 2c 20 3f 29 3b 20 0d 0a 0d 0a 20 20 bf dc d8 70 6f 72 74 6d 65 73 73 61 67 65 ┆global, ?); ┐▄пportmessage┆
0x3a160…3a180 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 3f 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b ┆=Й RECORD ?: 1..maxint;┆
0x3a180…3a1a0 20 0d 0a 20 20 20 20 6e 61 6d 65 3a 20 61 6c 66 61 3b 20 0d 0a 20 20 20 20 73 63 6f 70 65 3a 20 ┆ name: alfa; scope: ┆
0x3a1a0…3a1c0 73 63 6f 70 65 5f 74 79 70 65 3b 20 0d 0a 20 20 20 20 6e 6f 5f 6f 66 5f 63 6f 6e 6e 73 3a 20 30 ┆scope_type; no_of_conns: 0┆
0x3a1c0…3a1e0 2e 2e 6d 61 78 69 6e 74 3b 20 0d 0a 20 20 20 20 72 63 76 5f 61 6c 6c 3a 20 62 6f 6f 6c 65 61 6e ┆..maxint; rcv_all: boolean┆
0x3a1e0…3a200 3b 20 0d 0a 20 20 20 20 3f 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 20 0d 0a 20 20 45 4e 44 3b 20 0d ┆; ?: 1..maxint; END; ┆
0x3a200…3a220 0a 0d 0a 0e 0a 20 20 bf dc d8 70 6f 72 74 3d be 20 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 ┆ ┐▄пport=Й RECORD ┆
0x3a220…3a240 20 3f 3a 20 5e 88 7c 20 6d 61 69 6c 62 6f 78 3b 20 0d 0a 20 20 20 20 3f 3a 20 70 6f 6f 6c 20 31 ┆ ?: ^ѕ| mailbox; ?: pool 1┆
0x3a240…3a260 20 4f 46 20 70 6f 72 74 6d 65 73 73 61 67 65 3b 20 0d 0a 20 20 20 20 3f 3a 20 6d 61 69 6c 62 6f ┆ OF portmessage; ?: mailbo┆
0x3a260…3a280 78 3b 20 0d 0a 20 20 20 20 3f 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 0d 0a 20 20 20 20 3f 3a 20 ┆x; ?: reference; ?: ┆
0x3a280…3a2a0 72 65 66 65 72 65 6e 63 65 3b 20 0d 0a 20 20 20 20 70 6f 72 74 5f 70 61 72 61 6d 73 3a 20 21 70 ┆reference; port_params: !p┆
0x3a2a0…3a2c0 6f 72 74 6d 65 73 73 61 67 65 3b 20 0d 0a 20 20 45 4e 44 3b 20 0d 0a 0f 0a 0d 0a 20 20 bf dc d8 ┆ortmessage; END; ┐▄п┆
0x3a2c0…3a2e0 65 76 65 6e 74 5f 74 79 70 65 3d be 20 0d 0a 20 20 20 28 6e 6f 74 5f 65 76 65 6e 74 2c 20 6d 65 ┆event_type=Й (not_event, me┆
0x3a2e0…3a300 73 73 61 67 65 5f 65 76 65 6e 74 2c 20 61 6e 73 77 65 72 5f 65 76 65 6e 74 2c 20 70 72 6f 63 65 ┆ssage_event, answer_event, proce┆
0x3a300…3a320 73 73 5f 72 65 6d 6f 76 65 64 2c 20 70 6f 72 74 5f 63 6c 6f 73 65 64 2c 20 0d 0a 20 20 20 64 69 ┆ss_removed, port_closed, di┆
0x3a320…3a340 73 63 6f 6e 6e 65 63 74 65 64 2c 20 3f 2c 20 3f 2c 20 6c 6f 63 61 6c 5f 63 6f 6e 6e 65 63 74 2c ┆sconnected, ?, ?, local_connect,┆
0x3a340…3a360 20 72 65 6d 6f 74 65 5f 63 6f 6e 6e 65 63 74 2c 20 0d 0a 20 20 20 72 65 73 65 74 5f 69 6e 64 69 ┆ remote_connect, reset_indi┆
0x3a360…3a380 63 61 74 69 6f 6e 2c 20 72 65 73 65 74 5f 63 6f 6d 70 6c 65 74 69 6f 6e 2c 20 63 72 65 64 69 74 ┆cation, reset_completion, credit┆
0x3a380…3a3a0 2c 20 0d 0a 20 20 20 64 61 74 61 5f 73 65 6e 74 2c 20 64 61 74 61 5f 61 72 72 69 76 65 64 2c 20 ┆, data_sent, data_arrived, ┆
0x3a3a0…3a3c0 64 61 74 61 5f 6f 76 65 72 72 75 6e 2c 20 3f 2c 20 0d 0a 20 20 20 64 75 6d 6d 79 5f 6c 63 6e 63 ┆data_overrun, ?, dummy_lcnc┆
0x3a3c0…3a3e0 74 2c 20 64 75 6d 6d 79 5f 72 63 6e 63 74 2c 20 64 75 6d 6d 79 5f 72 69 6e 64 69 63 2c 20 0d 0a ┆t, dummy_rcnct, dummy_rindic, ┆
0x3a3e0…3a400 20 20 20 64 75 6d 6d 79 5f 72 63 6d 70 6c 2c 20 64 75 6d 6d 79 5f 63 72 65 64 69 74 2c 20 64 75 ┆ dummy_rcmpl, dummy_credit, du┆
0x3a400…3a420 6d 6d 79 5f 73 65 6e 74 2c 20 64 75 6d 6d 79 5f 61 72 72 69 76 65 64 2c 20 3f 2c 20 3f 29 3b 20 ┆mmy_sent, dummy_arrived, ?, ?); ┆
0x3a420…3a440 0d 0a 0d 0a 20 20 bf dc d8 72 65 61 73 6f 6e 5f 74 79 70 65 3d be 20 0d 0a 20 20 20 28 72 65 61 ┆ ┐▄пreason_type=Й (rea┆
0x3a440…3a460 73 6f 6e 5f 6f 6b 2c 20 72 65 61 73 6f 6e 5f 6e 61 6d 65 2c 20 72 65 61 73 6f 6e 5f 72 65 73 6f ┆son_ok, reason_name, reason_reso┆
0x3a460…3a480 75 72 63 65 2c 20 0d 0a 20 20 20 72 65 61 73 6f 6e 5f 63 6c 6f 73 65 64 2c 20 72 65 61 73 6f 6e ┆urce, reason_closed, reason┆
0x3a480…3a4a0 5f 6e 65 74 77 6f 72 6b 29 3b 20 0d 0a 0d 0a 20 20 bf dc d8 63 6f 6e 6e 5f 73 65 72 76 69 63 65 ┆_network); ┐▄пconn_service┆
0x3a4a0…3a4c0 3d be 20 0d 0a 20 20 20 28 63 73 5f 6e 6f 72 6d 61 6c 2c 20 63 73 5f 68 69 67 68 29 3b 20 0d 0a ┆=Й (cs_normal, cs_high); ┆
0x3a4c0…3a4e0 0d 0a 20 20 bf dc d8 61 6c 66 61 33 3d be 20 41 52 52 41 59 28 31 2e 2e 33 29 4f 46 20 63 68 61 ┆ ┐▄пalfa3=Й ARRAY(1..3)OF cha┆
0x3a4e0…3a500 72 3b 20 0d 0a 0d 0a 20 20 bf dc d8 61 6c 66 61 39 3d be 20 41 52 52 41 59 28 31 2e 2e 39 29 4f ┆r; ┐▄пalfa9=Й ARRAY(1..9)O┆
0x3a500…3a520 46 20 63 68 61 72 3b 20 0d 0a 0d 0a 20 20 bf dc d8 6d 61 73 6b 6e 61 6d 65 73 5f 74 3d be 20 0d ┆F char; ┐▄пmasknames_t=Й ┆
0x3a520…3a540 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 6c 69 6e 6b 6e 6f 3a 20 69 6e 74 65 67 65 72 3b 20 ┆ RECORD linkno: integer; ┆
0x3a540…3a560 0d 0a 20 20 20 20 6c 65 6e 67 74 68 3a 20 62 79 74 65 3b 20 0d 0a 20 20 20 20 6e 61 6d 65 3a 20 ┆ length: byte; name: ┆
0x3a560…3a580 61 6c 66 61 39 3b 20 0d 0a 20 20 45 4e 44 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc ┆alfa9; END; PROCEDURE ┐▄┆
0x3a580…3a5a0 d8 63 6c 6f 73 65 70 6f 72 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 29 3b 20 0d 0a 0d 0a 50 52 ┆пcloseportЙ(VAR p: port); PR┆
0x3a5a0…3a5c0 4f 43 45 44 55 52 45 09 bf dc d8 63 6f 6e 6e 65 63 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b ┆OCEDURE ┐▄пconnectЙ(VAR p: port;┆
0x3a5c0…3a5e0 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 20 0d 0a 09 56 41 52 20 63 6f 6d 70 6c 2c ┆ index: 1..maxint; VAR compl,┆
0x3a5e0…3a600 20 64 69 73 63 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 72 65 6d 6f 74 65 5f 6e 61 6d 65 3a 20 61 ┆ disc: reference; remote_name: a┆
0x3a600…3a620 6c 66 61 3b 20 0d 0a 09 73 65 72 76 69 63 65 3a 20 63 6f 6e 6e 5f 73 65 72 76 69 63 65 29 3b 20 ┆lfa; service: conn_service); ┆
0x3a620…3a640 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 63 72 65 64 69 74 63 6f 75 6e 74 be 28 56 41 52 ┆ FUNCTION ┐▄пcreditcountЙ(VAR┆
0x3a640…3a660 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 30 2e 2e 6d 61 78 69 6e 74 3b 20 0d 0a 0d 0a 50 ┆ r: reference): 0..maxint; P┆
0x3a660…3a680 52 4f 43 45 44 55 52 45 09 bf dc d8 64 69 73 63 6f 6e 6e 65 63 74 be 28 56 41 52 20 70 3a 20 70 ┆ROCEDURE ┐▄пdisconnectЙ(VAR p: p┆
0x3a680…3a6a0 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 29 3b 20 0d 0a 0d 0a 46 55 4e 43 ┆ort; index: 1..maxint); FUNC┆
0x3a6a0…3a6c0 54 49 4f 4e 09 bf dc d8 65 76 65 6e 74 6b 69 6e 64 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 ┆TION ┐▄пeventkindЙ(VAR r: refere┆
0x3a6c0…3a6e0 6e 63 65 29 3a 20 65 76 65 6e 74 5f 74 79 70 65 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 ┆nce): event_type; PROCEDURE ┆
0x3a6e0…3a700 bf dc d8 67 65 74 63 6f 6e 6e 65 63 74 69 6f 6e be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 ┆┐▄пgetconnectionЙ(VAR p: port; i┆
0x3a700…3a720 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 20 0d 0a 09 56 41 52 20 63 6f 6d 70 6c 2c 20 64 ┆ndex: 1..maxint; VAR compl, d┆
0x3a720…3a740 69 73 63 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf ┆isc: reference); PROCEDURE ┐┆
0x3a740…3a760 dc d8 67 65 74 63 72 65 64 69 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a ┆▄пgetcreditЙ(VAR p: port; index:┆
0x3a760…3a780 20 31 2e 2e 6d 61 78 69 6e 74 3b 20 0d 0a 09 56 41 52 20 63 72 65 64 62 75 66 3a 20 72 65 66 65 ┆ 1..maxint; VAR credbuf: refe┆
0x3a780…3a7a0 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 67 65 74 72 65 73 65 ┆rence); PROCEDURE ┐▄пgetrese┆
0x3a7a0…3a7c0 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 ┆tЙ(VAR p: port; index: 1..maxint┆
0x3a7c0…3a7e0 3b 20 0d 0a 09 56 41 52 20 69 6e 64 69 63 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a ┆; VAR indic: reference); ┆
0x3a7e0…3a800 46 55 4e 43 54 49 4f 4e 09 bf dc d8 69 6d 63 65 78 69 73 74 73 be 28 69 6d 63 5f 69 64 3a 20 30 ┆FUNCTION ┐▄пimcexistsЙ(imc_id: 0┆
0x3a800…3a820 2e 2e 6d 61 78 69 6e 74 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e ┆..maxint): boolean; FUNCTION┆
0x3a820…3a840 09 bf dc d8 69 6e 64 65 78 be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 29 3a 20 30 2e ┆ ┐▄пindexЙ(VAR r: reference): 0.┆
0x3a840…3a860 2e 6d 61 78 69 6e 74 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 69 6e 69 74 70 6f ┆.maxint; PROCEDURE ┐▄пinitpo┆
0x3a860…3a880 72 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 6d 63 5f 69 64 3a 20 30 2e 2e 6d 61 78 69 ┆rtЙ(VAR p: port; imc_id: 0..maxi┆
0x3a880…3a8a0 6e 74 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6d 61 73 6b 6e 61 6d 65 73 be ┆nt); PROCEDURE ┐▄пmasknamesЙ┆
0x3a8a0…3a8c0 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 6d 61 73 6b 3a 20 21 61 6c ┆(VAR r: reference; VAR mask: !al┆
0x3a8c0…3a8e0 66 61 33 3b 20 0d 0a 09 69 6d 63 5f 69 64 3a 20 30 2e 2e 6d 61 78 69 6e 74 29 3b 20 0d 0a 0d 0a ┆fa3; imc_id: 0..maxint); ┆
0x3a8e0…3a900 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6d 61 78 63 6f 6e 6e 65 63 74 69 6f 6e 73 be 3a 20 30 2e 2e ┆FUNCTION ┐▄пmaxconnectionsЙ: 0..┆
0x3a900…3a920 6d 61 78 69 6e 74 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 70 65 6e 70 6f 72 ┆maxint; PROCEDURE ┐▄пopenpor┆
0x3a920…3a940 74 be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 56 41 52 20 63 6c 6f 73 65 62 75 66 3a 20 72 65 ┆tЙ(VAR p: port; VAR closebuf: re┆
0x3a940…3a960 66 65 72 65 6e 63 65 3b 20 0d 0a 09 6e 61 6d 65 3a 20 61 6c 66 61 3b 20 73 63 6f 70 65 3a 20 73 ┆ference; name: alfa; scope: s┆
0x3a960…3a980 63 6f 70 65 5f 74 79 70 65 3b 20 0d 0a 09 6e 6f 5f 6f 66 5f 63 6f 6e 6e 73 3a 20 30 2e 2e 6d 61 ┆cope_type; no_of_conns: 0..ma┆
0x3a980…3a9a0 78 69 6e 74 3b 20 72 63 76 5f 61 6c 6c 3a 20 62 6f 6f 6c 65 61 6e 29 3b 20 0d 0a 0d 0a 46 55 4e ┆xint; rcv_all: boolean); FUN┆
0x3a9a0…3a9c0 43 54 49 4f 4e 09 bf dc d8 72 65 61 73 6f 6e be 28 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 ┆CTION ┐▄пreasonЙ(VAR r: referenc┆
0x3a9c0…3a9e0 65 29 3a 20 72 65 61 73 6f 6e 5f 74 79 70 65 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf ┆e): reason_type; PROCEDURE ┐┆
0x3a9e0…3aa00 dc d8 72 65 63 65 69 76 65 be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 ┆▄пreceiveЙ(VAR p: port; index: 1┆
0x3aa00…3aa20 2e 2e 6d 61 78 69 6e 74 3b 20 0d 0a 09 56 41 52 20 64 61 74 61 62 75 66 3a 20 72 65 66 65 72 65 ┆..maxint; VAR databuf: refere┆
0x3aa20…3aa40 6e 63 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 72 65 63 65 69 76 65 61 6c ┆nce); PROCEDURE ┐▄пreceiveal┆
0x3aa40…3aa60 6c be 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 56 41 52 20 64 61 74 61 62 75 66 3a 20 72 65 66 ┆lЙ(VAR p: port; VAR databuf: ref┆
0x3aa60…3aa80 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 72 65 73 65 74 be ┆erence); PROCEDURE ┐▄пresetЙ┆
0x3aa80…3aaa0 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 20 ┆(VAR p: port; index: 1..maxint; ┆
0x3aaa0…3aac0 0d 0a 09 56 41 52 20 63 6f 6d 70 6c 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 50 52 ┆ VAR compl: reference); PR┆
0x3aac0…3aae0 4f 43 45 44 55 52 45 09 bf dc d8 72 65 73 65 74 65 76 65 6e 74 be 28 56 41 52 20 72 3a 20 72 65 ┆OCEDURE ┐▄пreseteventЙ(VAR r: re┆
0x3aae0…3ab00 66 65 72 65 6e 63 65 29 3b 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 73 65 6e 64 be ┆ference); PROCEDURE ┐▄пsendЙ┆
0x3ab00…3ab20 28 56 41 52 20 70 3a 20 70 6f 72 74 3b 20 69 6e 64 65 78 3a 20 31 2e 2e 6d 61 78 69 6e 74 3b 20 ┆(VAR p: port; index: 1..maxint; ┆
0x3ab20…3ab40 0d 0a 09 56 41 52 20 64 61 74 61 62 75 66 3a 20 72 65 66 65 72 65 6e 63 65 29 3b 20 0d 0a 04 00 ┆ VAR databuf: reference); ┆
0x3ab40…3ab60 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆-L A1@ ┆
0x3ab60…3ab80 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 04 00 2d 4d 0f 00 08 00 00 ┆ (08 -M ┆
0x3ab80…3aba0 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b ┆ A1@ ┆
0x3aba0…3abc0 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 0a 0d 0a 0d 0a 16 73 62 0d 0a 49 6f 65 6e 76 0d ┆ (08 sb Ioenv ┆
0x3abc0…3abe0 0a 16 73 6f 20 69 6f 65 6e 76 0d 0a 0d 0a 45 6e 74 69 74 69 65 73 20 66 6f 72 20 74 65 78 74 20 ┆ so ioenv Entities for text ┆
0x3abe0…3ac00 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 62 79 20 6d 65 61 6e 73 20 6f 66 20 73 6f 2d 63 61 6c 6c ┆input/output by means of so-call┆
0x3ac00…3ac20 65 64 20 7a 6f 6e 65 73 2e 0d 0a 0d 0a 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 ┆ed zones. -M A1@ ┆
0x3ac20…3ac40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ┆ (08 ┆
0x3ac40…3ac60 ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x3ac60…3ac80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 0a ┆ (08 ┆
0x3ac80…3aca0 20 43 4f 4e 53 54 0d 0a 20 20 20 bf dc d8 6c 69 6e 65 6c 65 6e 67 74 68 3d be 20 38 30 3b 0d 0a ┆ CONST ┐▄пlinelength=Й 80; ┆
0x3aca0…3acc0 20 20 20 bf dc d8 66 69 72 73 74 69 6e 64 65 78 3d be 20 36 2b 61 6c 66 61 6c 65 6e 67 74 68 3b ┆ ┐▄пfirstindex=Й 6+alfalength;┆
0x3acc0…3ace0 0d 0a 20 20 20 bf dc d8 6c 61 73 74 69 6e 64 65 78 3d be 20 66 69 72 73 74 69 6e 64 65 78 2b 6c ┆ ┐▄пlastindex=Й firstindex+l┆
0x3ace0…3ad00 69 6e 65 6c 65 6e 67 74 68 2d 31 3b 20 20 0d 0a 20 54 59 50 45 0d 0a 20 20 20 bf dc d8 6f 70 62 ┆inelength-1; TYPE ┐▄пopb┆
0x3ad00…3ad20 75 66 66 65 72 3d be 0d 0a 20 20 20 52 45 43 4f 52 44 20 20 20 0d 0a 20 20 20 20 20 66 69 72 73 ┆uffer=Й RECORD firs┆
0x3ad20…3ad40 74 2c 0d 0a 20 20 20 20 20 6c 61 73 74 2c 0d 0a 20 20 20 20 20 6e 65 78 74 3a 20 69 6e 74 65 67 ┆t, last, next: integ┆
0x3ad40…3ad60 65 72 3b 0d 0a 20 20 20 20 20 6e 61 6d 65 3a 20 61 6c 66 61 3b 0d 0a 20 20 20 20 20 63 68 61 72 ┆er; name: alfa; char┆
0x3ad60…3ad80 73 3a 20 41 52 52 41 59 20 28 66 69 72 73 74 69 6e 64 65 78 2e 2e 6c 61 73 74 69 6e 64 65 78 29 ┆s: ARRAY (firstindex..lastindex)┆
0x3ad80…3ada0 20 4f 46 20 63 68 61 72 0d 0a 20 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 bf dc d8 7a 6f 6e 65 3d ┆ OF char END; ┐▄пzone=┆
0x3ada0…3adc0 be 0d 0a 20 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 64 72 69 76 65 72 3a 20 5e 88 7c 6d 61 ┆Й RECORD driver: ^ѕ|ma┆
0x3adc0…3ade0 69 6c 62 6f 78 3b 20 28 2a 20 6f 70 65 72 61 74 6f 72 20 70 72 6f 67 72 61 6d 20 2a 29 0d 0a 20 ┆ilbox; (* operator program *) ┆
0x3ade0…3ae00 20 20 20 20 61 6e 73 77 65 72 3a 20 5e 88 7c 6d 61 69 6c 62 6f 78 3b 20 28 2a 20 61 6e 73 77 65 ┆ answer: ^ѕ|mailbox; (* answe┆
0x3ae00…3ae20 72 73 20 72 65 74 75 72 6e 73 20 68 65 72 65 20 2a 29 0d 0a 20 20 20 20 20 64 61 74 61 72 65 61 ┆rs returns here *) datarea┆
0x3ae20…3ae40 64 79 3a 20 6d 61 69 6c 62 6f 78 3b 20 28 2a 20 62 75 66 66 65 72 73 20 77 69 74 68 20 64 61 74 ┆dy: mailbox; (* buffers with dat┆
0x3ae40…3ae60 61 20 2a 29 0d 0a 20 20 20 20 20 66 72 65 65 3a 20 6d 61 69 6c 62 6f 78 3b 20 28 2a 20 66 72 65 ┆a *) free: mailbox; (* fre┆
0x3ae60…3ae80 65 20 62 75 66 66 65 72 73 20 2a 29 0d 0a 20 20 20 20 20 63 75 72 3a 20 72 65 66 65 72 65 6e 63 ┆e buffers *) cur: referenc┆
0x3ae80…3aea0 65 3b 20 28 2a 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 2a 29 0d 0a 8c 9e b6 0a 20 20 20 ┆e; (* current buffer *) їъХ ┆
0x3aea0…3aec0 20 20 75 32 76 61 6c 3a 20 62 79 74 65 3b 20 28 2a 20 75 32 20 74 6f 20 64 72 69 76 65 72 20 2a ┆ u2val: byte; (* u2 to driver *┆
0x3aec0…3aee0 29 0d 0a 20 20 20 20 20 73 74 61 74 65 3a 20 62 79 74 65 3b 20 28 2a 20 72 65 73 75 6c 74 63 6f ┆) state: byte; (* resultco┆
0x3aee0…3af00 64 65 20 66 72 6f 6d 20 61 6e 73 77 65 72 20 2a 29 0d 0a 20 20 20 20 20 72 65 61 64 73 74 61 74 ┆de from answer *) readstat┆
0x3af00…3af20 65 3a 20 69 6e 74 65 67 65 72 3b 20 28 2a 20 30 3a 20 6f 6b 2c 20 3e 30 3a 20 65 72 72 6f 72 2c ┆e: integer; (* 0: ok, >0: error,┆
0x3af20…3af40 20 2d 31 3a 20 63 75 72 3d 6e 69 6c 20 2a 29 0d 0a 20 20 20 20 20 6e 65 78 74 70 3a 20 69 6e 74 ┆ -1: cur=nil *) nextp: int┆
0x3af40…3af60 65 67 65 72 3b 20 28 2a 20 70 6f 69 6e 74 65 72 20 69 6e 74 6f 20 64 61 74 61 62 75 66 20 20 2a ┆eger; (* pointer into databuf *┆
0x3af60…3af80 29 0d 0a 20 20 20 20 20 6c 61 73 74 70 6f 73 3a 20 69 6e 74 65 67 65 72 3b 20 28 2a 20 6c 61 73 ┆) lastpos: integer; (* las┆
0x3af80…3afa0 74 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 62 75 66 66 65 72 2a 29 0d 0a 20 20 20 45 4e 44 3b 0d ┆t position in buffer*) END; ┆
0x3afa0…3afc0 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 69 6e 63 68 61 72 be 28 56 41 52 20 7a 3a 20 7a ┆ PROCEDURE ┐▄пincharЙ(VAR z: z┆
0x3afc0…3afe0 6f 6e 65 3b 20 56 41 52 20 74 3a 20 63 68 61 72 29 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 ┆one; VAR t: char); PROCEDU┆
0x3afe0…3b000 52 45 09 bf dc d8 69 6e 64 6f 75 62 6c 65 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 ┆RE ┐▄пindoubleЙ(VAR z: zone; VAR┆
0x3b000…3b020 20 64 3a 20 64 6f 75 62 6c 65 29 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 ┆ d: double); PROCEDURE ┐▄п┆
0x3b020…3b040 69 6e 68 65 78 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 6e 75 6d 3a 20 69 6e 74 ┆inhexЙ(VAR z: zone; VAR num: int┆
0x3b040…3b060 65 67 65 72 29 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 69 6e 69 6e 74 65 ┆eger); PROCEDURE ┐▄пininte┆
0x3b060…3b080 67 65 72 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 6e 75 6d 3a 20 69 6e 74 65 67 ┆gerЙ(VAR z: zone; VAR num: integ┆
0x3b080…3b0a0 65 72 29 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 69 6e 6e 61 6d 65 be 28 ┆er); PROCEDURE ┐▄пinnameЙ(┆
0x3b0a0…3b0c0 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 6e 61 6d 65 3a 20 61 6c 66 61 29 3b 20 20 20 ┆VAR z: zone; VAR name: alfa); ┆
0x3b0c0…3b0e0 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 70 61 6e 73 77 65 72 be 28 56 41 52 20 6d ┆ PROCEDURE ┐▄пopanswerЙ(VAR m┆
0x3b0e0…3b100 73 67 3a 20 72 65 66 65 72 65 6e 63 65 3b 20 56 41 52 20 7a 3a 20 7a 6f 6e 65 29 3b 20 20 20 0d ┆sg: reference; VAR z: zone); ┆
0x3b100…3b120 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 70 65 6e 7a 6f 6e 65 be 28 56 41 52 20 7a 3a ┆ PROCEDURE ┐▄пopenzoneЙ(VAR z:┆
0x3b120…3b140 20 7a 6f 6e 65 3b 20 64 72 69 76 2c 20 61 6e 73 77 3a 20 5e 88 7c 6d 61 69 6c 62 6f 78 3b 0d 0a ┆ zone; driv, answ: ^ѕ|mailbox; ┆
0x3b140…3b160 09 62 75 66 73 3a 20 69 6e 74 65 67 65 72 3b 20 56 41 52 20 68 6f 6d 65 3a 20 70 6f 6f 6c 20 31 ┆ bufs: integer; VAR home: pool 1┆
0x3b160…3b180 3b 20 76 31 2c 20 76 32 2c 20 76 33 2c 20 76 34 3a 20 62 79 74 65 29 3b 20 20 20 0d 0a 0d 0a 50 ┆; v1, v2, v3, v4: byte); P┆
0x3b180…3b1a0 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 70 65 6e 6f 70 7a 6f 6e 65 be 28 56 41 52 20 7a 3a 20 7a ┆ROCEDURE ┐▄пopenopzoneЙ(VAR z: z┆
0x3b1a0…3b1c0 6f 6e 65 3b 20 64 72 69 76 2c 20 61 6e 73 77 3a 20 5e 88 7c 6d 61 69 6c 62 6f 78 3b 20 20 20 0d ┆one; driv, answ: ^ѕ|mailbox; ┆
0x3b1c0…3b1e0 0a 09 62 75 66 73 3a 20 69 6e 74 65 67 65 72 3b 20 56 41 52 20 68 6f 6d 65 3a 20 70 6f 6f 6c 20 ┆ bufs: integer; VAR home: pool ┆
0x3b1e0…3b200 31 3b 20 76 31 2c 20 76 32 2c 20 76 33 2c 20 76 34 3a 20 62 79 74 65 29 3b 20 20 20 0d 0a 0d 0a ┆1; v1, v2, v3, v4: byte); ┆
0x3b200…3b220 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 70 69 6e be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 29 3b ┆PROCEDURE ┐▄пopinЙ(VAR z: zone);┆
0x3b220…3b240 20 20 20 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 09 bf dc d8 6f 70 74 65 73 74 be 28 56 41 52 20 7a ┆ FUNCTION ┐▄пoptestЙ(VAR z┆
0x3b240…3b260 3a 20 7a 6f 6e 65 29 3a 20 62 6f 6f 6c 65 61 6e 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 ┆: zone): boolean; PROCEDUR┆
0x3b260…3b280 45 09 bf dc d8 6f 70 77 61 69 74 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 69 6e ┆E ┐▄пopwaitЙ(VAR z: zone; VAR in┆
0x3b280…3b2a0 70 75 74 70 6f 6f 6c 3a 20 70 6f 6f 6c 29 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 ┆putpool: pool); PROCEDURE ┆
0x3b2a0…3b2c0 bf dc d8 6f 75 74 61 64 64 72 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 61 3a 20 61 64 64 72 ┆┐▄пoutaddrЙ(VAR z: zone; a: addr┆
0x3b2c0…3b2e0 29 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 75 74 61 6c 66 61 be 28 56 ┆); PROCEDURE ┐▄пoutalfaЙ(V┆
0x3b2e0…3b300 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 74 65 78 74 3a 20 21 61 6c 66 61 29 3b 20 20 20 ┆AR z: zone; VAR text: !alfa); ┆
0x3b300…3b320 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 75 74 63 68 61 72 be 28 56 41 52 20 7a 3a ┆ PROCEDURE ┐▄пoutcharЙ(VAR z:┆
0x3b320…3b340 20 7a 6f 6e 65 3b 20 74 3a 20 63 68 61 72 29 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 ┆ zone; t: char); PROCEDURE┆
0x3b340…3b360 09 bf dc d8 6f 75 74 64 61 74 65 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 64 61 74 65 3a 20 ┆ ┐▄пoutdateЙ(VAR z: zone; date: ┆
0x3b360…3b380 63 6f 64 65 64 5f 64 61 74 65 29 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 ┆coded_date); PROCEDURE ┐▄п┆
0x3b380…3b3a0 6f 75 74 64 6f 75 62 6c 65 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 64 3a 20 64 6f 75 62 6c ┆outdoubleЙ(VAR z: zone; d: doubl┆
0x3b3a0…3b3c0 65 3b 20 70 6f 73 3a 20 69 6e 74 65 67 65 72 29 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 ┆e; pos: integer); PROCEDUR┆
0x3b3c0…3b3e0 45 09 bf dc d8 6f 75 74 65 6e 64 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 29 3b 20 20 20 0d 0a 0d ┆E ┐▄пoutendЙ(VAR z: zone); ┆
0x3b3e0…3b400 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 75 74 66 69 6c 6c be 28 56 41 52 20 7a 3a 20 7a 6f ┆ PROCEDURE ┐▄пoutfillЙ(VAR z: zo┆
0x3b400…3b420 6e 65 3b 20 66 69 6c 6c 65 72 3a 20 63 68 61 72 3b 20 72 65 70 3a 20 69 6e 74 65 67 65 72 29 3b ┆ne; filler: char; rep: integer);┆
0x3b420…3b440 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 75 74 68 65 78 be 28 56 41 52 20 ┆ PROCEDURE ┐▄пouthexЙ(VAR ┆
0x3b440…3b460 7a 3a 20 7a 6f 6e 65 3b 20 6e 75 6d 2c 20 70 6f 73 3a 20 69 6e 74 65 67 65 72 29 3b 20 20 20 0d ┆z: zone; num, pos: integer); ┆
0x3b460…3b480 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 75 74 69 6e 74 65 67 65 72 be 28 56 41 52 20 ┆ PROCEDURE ┐▄пoutintegerЙ(VAR ┆
0x3b480…3b4a0 7a 3a 20 7a 6f 6e 65 3b 20 6e 75 6d 2c 20 70 6f 73 3a 20 69 6e 74 65 67 65 72 29 3b 20 20 20 0d ┆z: zone; num, pos: integer); ┆
0x3b4a0…3b4c0 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 75 74 6e 6c be 28 56 41 52 20 7a 3a 20 7a 6f ┆ PROCEDURE ┐▄пoutnlЙ(VAR z: zo┆
0x3b4c0…3b4e0 6e 65 29 3b 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 6f 75 74 74 69 6d 65 be ┆ne); PROCEDURE ┐▄пouttimeЙ┆
0x3b4e0…3b500 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 74 69 6d 65 3a 20 63 6f 64 65 64 5f 74 69 6d 65 29 3b ┆(VAR z: zone; time: coded_time);┆
0x3b500…3b520 20 20 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 09 bf dc d8 70 72 69 6e 74 6d 65 73 73 61 67 65 ┆ PROCEDURE ┐▄пprintmessage┆
0x3b520…3b540 be 28 56 41 52 20 7a 3a 20 7a 6f 6e 65 3b 20 56 41 52 20 72 3a 20 72 65 66 65 72 65 6e 63 65 3b ┆Й(VAR z: zone; VAR r: reference;┆
0x3b540…3b560 20 20 20 20 0d 0a 09 66 69 72 73 74 69 6e 64 65 78 2c 20 6c 61 73 74 69 6e 64 65 78 2c 20 77 6f ┆ firstindex, lastindex, wo┆
0x3b560…3b580 72 64 73 5f 70 65 72 5f 6c 69 6e 65 3a 20 69 6e 74 65 67 65 72 29 3b 20 20 20 0d 0a 04 00 2d 4c ┆rds_per_line: integer); -L┆
0x3b580…3b5a0 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A1@ ┆
0x3b5a0…3b5c0 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 04 00 2d 4d 0f 00 08 00 00 00 00 ┆ (08 -M ┆
0x3b5c0…3b5e0 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 ┆ A1@ ┆
0x3b5e0…3b600 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 0a 0d 0a 8c 87 f6 0a 0d 0a 16 73 62 0d 0a 4d 65 61 73 ┆ (08 їЄШ sb Meas┆
0x3b600…3b620 75 72 65 65 6e 76 0d 0a 16 73 6f 20 6d 65 61 73 75 72 65 65 6e 76 0d 0a 0d 0a 45 6e 74 69 74 69 ┆ureenv so measureenv Entiti┆
0x3b620…3b640 65 73 20 66 6f 72 20 70 65 72 66 6f 72 6d 61 6e 63 65 20 6d 65 61 73 75 72 65 6d 65 6e 74 20 6f ┆es for performance measurement o┆
0x3b640…3b660 66 20 61 20 70 72 6f 67 72 61 6d 2e 0d 0a 0d 0a 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 40 ┆f a program. -M A1@┆
0x3b660…3b680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ┆ (08 ┆
0x3b680…3b6a0 ff ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x3b6a0…3b6c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ┆ (08 ┆
0x3b6c0…3b6e0 ff 04 0a 54 59 50 45 0d 0a 20 20 bf dc d8 74 69 6d 65 5f 73 74 61 6d 70 3d be 0d 0a 20 20 52 45 ┆ TYPE ┐▄пtime_stamp=Й RE┆
0x3b6e0…3b700 43 4f 52 44 0d 0a 20 20 20 20 68 6f 75 72 3a 20 63 6f 64 65 64 5f 74 69 6d 65 3b 0d 0a 20 20 20 ┆CORD hour: coded_time; ┆
0x3b700…3b720 20 6d 73 65 63 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 bf dc d8 ┆ msec: integer; END; ┐▄п┆
0x3b720…3b740 6d 65 61 73 75 72 65 5f 72 65 63 3d be 0d 0a 20 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 61 63 63 ┆measure_rec=Й RECORD acc┆
0x3b740…3b760 65 73 73 5f 63 6f 75 6e 74 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 6e 61 6d 65 5f 70 74 ┆ess_count: integer; name_pt┆
0x3b760…3b780 72 3a 20 61 64 64 72 3b 0d 0a 20 20 20 20 68 6f 75 72 73 2c 20 6d 69 6e 75 74 65 73 3a 20 62 79 ┆r: addr; hours, minutes: by┆
0x3b780…3b7a0 74 65 3b 0d 0a 20 20 20 20 68 5f 73 65 63 73 3a 20 69 6e 74 65 67 65 72 0d 0a 20 20 45 4e 44 3b ┆te; h_secs: integer END;┆
0x3b7a0…3b7c0 0d 0a 0d 0a 20 20 bf dc d8 6d 65 61 73 75 72 65 6d 65 6e 74 5f 61 72 65 61 3d be 0d 0a 20 20 52 ┆ ┐▄пmeasurement_area=Й R┆
0x3b7c0…3b7e0 45 43 4f 52 44 0d 0a 20 20 20 20 63 75 72 72 65 6e 74 2c 20 66 6f 72 6d 65 72 3a 20 74 69 6d 65 ┆ECORD current, former: time┆
0x3b7e0…3b800 5f 73 74 61 6d 70 3b 0d 0a 20 20 20 20 64 69 66 5f 6d 73 65 63 2c 20 64 69 66 5f 6d 69 6e 75 74 ┆_stamp; dif_msec, dif_minut┆
0x3b800…3b820 65 2c 20 64 69 66 5f 68 6f 75 72 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 74 61 62 6c 65 ┆e, dif_hour: integer; table┆
0x3b820…3b840 3a 20 41 52 52 41 59 20 28 30 2e 2e 32 35 35 29 20 4f 46 20 6d 65 61 73 75 72 65 5f 72 65 63 3b ┆: ARRAY (0..255) OF measure_rec;┆
0x3b840…3b860 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 74 72 61 70 5f 63 6f ┆ END; PROCEDURE ┐▄пtrap_co┆
0x3b860…3b880 64 65 5f 72 63 be 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 bf dc d8 73 74 61 72 74 5f 6d 65 ┆de_rcЙ; PROCEDURE ┐▄пstart_me┆
0x3b880…3b8a0 61 73 75 72 65 be 28 56 41 52 20 6d 62 78 3a 20 6d 61 69 6c 62 6f 78 29 3b 0d 0a 0d 0a 50 52 4f ┆asureЙ(VAR mbx: mailbox); PRO┆
0x3b8a0…3b8c0 43 45 44 55 52 45 20 bf dc d8 73 74 6f 70 5f 6d 65 61 73 75 72 65 be 28 56 41 52 20 6d 62 78 3a ┆CEDURE ┐▄пstop_measureЙ(VAR mbx:┆
0x3b8c0…3b8e0 20 6d 61 69 6c 62 6f 78 29 3b 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 ┆ mailbox); -L A1@ ┆
0x3b8e0…3b900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ┆ (08 ┆
0x3b900…3b920 ff ff ff ff 04 04 00 2d 4d 0f 00 08 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 ┆ -M A1@ ┆
0x3b920…3b940 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 0a 0d ┆ (08 ┆
0x3b940…3b960 0a 16 53 61 0d 0a 4f 70 65 72 61 74 6f 72 20 49 6e 70 75 74 2f 4f 75 74 70 75 74 20 45 78 61 6d ┆ Sa Operator Input/Output Exam┆
0x3b960…3b980 70 6c 65 0d 0a 0d 0a 04 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 ┆ple -L A1 ┆
0x3b980…3b9a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 07 09 0b 0f 19 23 2d 37 41 4b 55 5f 69 73 ff 04 ┆ #-7AKU_is ┆
0x3b9a0…3b9c0 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x3b9c0…3b9e0 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 0a 0d 0a a3 09 50 52 ┆ (08 Б PR┆
0x3b9e0…3ba00 4f 47 52 41 4d 20 74 65 73 74 69 6f 31 3b 0d 0a a3 09 09 28 2a 20 43 6f 6d 6d 75 6e 69 63 61 74 ┆OGRAM testio1; Б (* Communicat┆
0x3ba00…3ba20 69 6f 6e 20 77 69 74 68 20 6f 70 65 72 61 74 6f 72 20 20 20 20 20 2a 29 0d 0a a3 09 09 28 2a 20 ┆ion with operator *) Б (* ┆
0x3ba20…3ba40 41 6c 6c 20 69 6e 70 75 74 20 69 73 20 74 65 72 6d 69 6e 61 74 65 64 20 62 79 20 3c 4e 4c 3e 20 ┆All input is terminated by <NL> ┆
0x3ba40…3ba60 2a 29 0d 0a a3 09 09 28 2a 20 49 6e 70 75 74 20 69 73 20 65 63 68 6f 65 64 20 6f 6e 20 74 68 65 ┆*) Б (* Input is echoed on the┆
0x3ba60…3ba80 20 63 6f 6e 73 6f 6c 65 20 20 2a 29 0d 0a a3 a3 0d 0a a3 09 43 4f 4e 53 54 0d 0a a3 09 09 72 65 ┆ console *) ББ Б CONST Б re┆
0x3ba80…3baa0 61 64 63 6f 64 65 3d 20 31 3b 0d 0a a3 09 09 77 72 69 74 65 63 6f 64 65 3d 20 32 3b 0d 0a a3 09 ┆adcode= 1; Б writecode= 2; Б ┆
0x3baa0…3bac0 09 6d 65 73 73 61 67 65 3d 20 37 3b 0d 0a a3 09 09 6e 6f 5f 6f 66 5f 6f 70 62 75 66 66 65 72 73 ┆ message= 7; Б no_of_opbuffers┆
0x3bac0…3bae0 3d 20 32 3b 0d 0a a3 09 09 6e 6f 5f 6f 66 5f 69 6e 62 75 66 66 65 72 73 3d 20 31 3b 0d 0a a3 09 ┆= 2; Б no_of_inbuffers= 1; Б ┆
0x3bae0…3bb00 09 6e 6f 5f 6f 66 5f 6f 75 74 62 75 66 66 65 72 73 3d 20 6e 6f 5f 6f 66 5f 6f 70 62 75 66 66 65 ┆ no_of_outbuffers= no_of_opbuffe┆
0x3bb00…3bb20 72 73 2d 6e 6f 5f 6f 66 5f 69 6e 62 75 66 66 65 72 73 3b 0d 0a a3 0d 0a a3 09 56 41 52 0d 0a a3 ┆rs-no_of_inbuffers; Б Б VAR Б┆
0x3bb20…3bb40 09 09 6b 65 79 62 6f 61 72 64 2c 20 64 69 73 70 6c 61 79 3a 20 7a 6f 6e 65 3b 0d 0a a3 09 09 6e ┆ keyboard, display: zone; Б n┆
0x3bb40…3bb60 69 6c 6d 62 78 3a 20 5e 6d 61 69 6c 62 6f 78 3b 20 20 20 20 20 2d 2d 20 70 6f 69 6e 74 65 72 20 ┆ilmbx: ^mailbox; -- pointer ┆
0x3bb60…3bb80 74 6f 20 6d 61 69 6c 62 6f 78 0d 0a a3 09 09 74 3a 20 63 68 61 72 3b 0d 0a a3 09 09 68 6f 6d 65 ┆to mailbox Б t: char; Б home┆
0x3bb80…3bba0 70 6f 6f 6c 3a 20 70 6f 6f 6c 20 32 20 4f 46 20 6f 70 62 75 66 66 65 72 3b 0d 0a a3 0d 0a a3 09 ┆pool: pool 2 OF opbuffer; Б Б ┆
0x3bba0…3bbc0 42 45 47 49 4e 0d 0a a3 09 09 28 2a 20 4f 70 65 6e 20 7a 6f 6e 65 20 64 69 73 70 6c 61 79 20 66 ┆BEGIN Б (* Open zone display f┆
0x3bbc0…3bbe0 6f 72 20 6f 75 74 70 75 74 20 2a 29 0d 0a a3 09 09 6f 70 65 6e 6f 70 7a 6f 6e 65 28 64 69 73 70 ┆or output *) Б openopzone(disp┆
0x3bbe0…3bc00 6c 61 79 2c 0d 0a a3 20 09 09 6e 69 6c 6d 62 78 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆lay, Б nilmbx, ┆
0x3bc00…3bc20 20 2d 2d 20 6e 69 6c 6d 62 78 20 69 73 20 62 79 20 64 65 66 61 75 6c 74 20 74 68 65 20 6f 70 65 ┆ -- nilmbx is by default the ope┆
0x3bc20…3bc40 72 61 74 6f 72 0d 0a a3 09 09 6e 69 6c 6d 62 78 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rator Б nilmbx, ┆
0x3bc40…3bc60 20 2d 2d 20 6e 6f 20 61 63 74 69 6f 6e 20 6f 6e 20 72 65 74 75 72 6e 20 6f 66 20 6d 65 73 73 61 ┆ -- no action on return of messa┆
0x3bc60…3bc80 67 65 73 0d 0a a3 09 09 6e 6f 5f 6f 66 5f 6f 75 74 62 75 66 66 65 72 73 2c 0d 0a a3 09 09 68 6f ┆ges Б no_of_outbuffers, Б ho┆
0x3bc80…3bca0 6d 65 70 6f 6f 6c 2c 0d 0a a3 09 09 77 72 69 74 65 63 6f 64 65 2c 20 0d 0a a3 09 09 6d 65 73 73 ┆mepool, Б writecode, Б mess┆
0x3bca0…3bcc0 61 67 65 2c 20 0d 0a a3 09 09 30 2c 20 30 29 3b 0d 0a a3 09 09 6f 75 74 66 69 6c 6c 28 64 69 73 ┆age, Б 0, 0); Б outfill(dis┆
0x3bcc0…3bce0 70 6c 61 79 2c 20 27 2e 27 2c 20 31 30 29 3b 0d 0a a3 09 09 6f 75 74 61 6c 66 61 28 64 69 73 70 ┆play, '.', 10); Б outalfa(disp┆
0x3bce0…3bd00 6c 61 79 2c 20 27 57 65 6c 63 6f 6d 65 20 27 29 3b 0d 0a a3 09 09 6f 75 74 61 6c 66 61 28 64 69 ┆lay, 'Welcome '); Б outalfa(di┆
0x3bd00…3bd20 73 70 6c 61 79 2c 20 27 74 6f 20 27 29 3b 0d 0a a3 09 09 6f 75 74 61 6c 66 61 28 64 69 73 70 6c ┆splay, 'to '); Б outalfa(displ┆
0x3bd20…3bd40 61 79 2c 20 6f 77 6e 2e 70 72 6f 63 6e 61 6d 65 29 3b 20 20 20 2d 2d 20 49 6e 63 61 72 6e 61 74 ┆ay, own.procname); -- Incarnat┆
0x3bd40…3bd60 69 6f 6e 20 6e 61 6d 65 0d 0a a3 09 09 6f 75 74 66 69 6c 6c 28 64 69 73 70 6c 61 79 2c 20 27 2e ┆ion name Б outfill(display, '.┆
0x3bd60…3bd80 27 2c 20 31 30 29 3b 0d 0a a3 09 09 6f 75 74 6e 6c 28 64 69 73 70 6c 61 79 29 3b 20 20 20 20 20 ┆', 10); Б outnl(display); ┆
0x3bd80…3bda0 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 4e 65 77 20 4c 69 6e 65 0d 0a a3 09 09 0d 0a a3 ┆ -- New Line Б Б┆
0x3bda0…3bdc0 09 09 28 2a 20 4f 70 65 6e 20 7a 6f 6e 65 20 6b 65 79 62 6f 61 72 64 20 66 6f 72 20 69 6e 70 75 ┆ (* Open zone keyboard for inpu┆
0x3bdc0…3bde0 74 20 2a 29 0d 0a a3 09 09 6f 70 65 6e 6f 70 7a 6f 6e 65 28 6b 65 79 62 6f 61 72 64 2c 20 0d 0a ┆t *) Б openopzone(keyboard, ┆
0x3bde0…3be00 a3 09 09 6e 69 6c 6d 62 78 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 6e 69 6c ┆Б nilmbx, -- nil┆
0x3be00…3be20 6d 62 78 20 69 73 20 62 79 20 64 65 66 61 75 6c 74 20 74 68 65 20 6f 70 65 72 61 74 6f 72 0d 0a ┆mbx is by default the operator ┆
0x3be20…3be40 a3 09 09 6e 69 6c 6d 62 78 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 61 63 74 ┆Б nilmbx, -- act┆
0x3be40…3be60 69 76 61 74 65 64 20 6f 6e 20 72 65 74 75 72 6e 20 6f 66 20 6d 65 73 73 61 67 65 73 0d 0a a3 09 ┆ivated on return of messages Б ┆
0x3be60…3be80 09 6e 6f 5f 6f 66 5f 69 6e 62 75 66 66 65 72 73 2c 0d 0a a3 09 09 68 6f 6d 65 70 6f 6f 6c 2c 0d ┆ no_of_inbuffers, Б homepool, ┆
0x3be80…3bea0 0a a3 09 09 72 65 61 64 63 6f 64 65 2c 0d 0a a3 09 09 6d 65 73 73 61 67 65 2c 0d 0a a3 09 09 30 ┆ Б readcode, Б message, Б 0┆
0x3bea0…3bec0 2c 20 30 29 3b 0d 0a a3 0d 0a a3 09 09 4c 4f 4f 50 0d 0a a3 09 09 09 6f 75 74 61 6c 66 61 28 64 ┆, 0); Б Б LOOP Б outalfa(d┆
0x3bec0…3bee0 69 73 70 6c 61 79 2c 20 27 49 6e 70 75 74 20 3c 4e 4c 3e 3a 20 27 29 3b 0d 0a a3 09 09 09 6f 75 ┆isplay, 'Input <NL>: '); Б ou┆
0x3bee0…3bf00 74 65 6e 64 28 64 69 73 70 6c 61 79 29 3b 0d 0a a3 09 09 09 6f 70 69 6e 28 6b 65 79 62 6f 61 72 ┆tend(display); Б opin(keyboar┆
0x3bf00…3bf20 64 29 3b 0d 0a a3 09 09 09 6f 70 77 61 69 74 28 6b 65 79 62 6f 61 72 64 2c 20 68 6f 6d 65 70 6f ┆d); Б opwait(keyboard, homepo┆
0x3bf20…3bf40 6f 6c 29 3b 0d 0a a3 09 09 09 52 45 50 45 41 54 0d 0a a3 09 09 09 09 69 6e 63 68 61 72 28 6b 65 ┆ol); Б REPEAT Б inchar(ke┆
0x3bf40…3bf60 79 62 6f 61 72 64 2c 20 74 29 3b 0d 0a a3 09 09 09 09 6f 75 74 63 68 61 72 28 64 69 73 70 6c 61 ┆yboard, t); Б outchar(displa┆
0x3bf60…3bf80 79 2c 20 74 29 3b 0d 0a a3 09 09 09 09 49 46 20 74 3d 20 4e 4c 20 54 48 45 4e 0d 0a a3 09 09 09 ┆y, t); Б IF t= NL THEN Б ┆
0x3bf80…3bfa0 09 20 20 42 45 47 49 4e 0d 0a a3 09 09 09 09 20 20 20 20 6f 75 74 63 68 61 72 28 64 69 73 70 6c ┆ BEGIN Б outchar(displ┆
0x3bfa0…3bfc0 61 79 2c 20 42 45 4c 29 3b 0d 0a a3 09 09 09 09 09 6f 75 74 65 6e 64 28 64 69 73 70 6c 61 79 29 ┆ay, BEL); Б outend(display)┆
0x3bfc0…3bfe0 3b 0d 0a a3 09 09 09 09 20 20 45 4e 44 0d 0a a3 09 09 09 55 4e 54 49 4c 20 6b 65 79 62 6f 61 72 ┆; Б END Б UNTIL keyboar┆
0x3bfe0…3c000 64 2e 72 65 61 64 73 74 61 74 65 3c 30 3b 0d 0a a3 09 09 45 4e 44 4c 4f 4f 50 0d 0a a3 09 45 4e ┆d.readstate<0; Б ENDLOOP Б EN┆
0x3c000…3c020 44 2e 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 00 00 ┆D. -L A1@ ┆
0x3c020…3c040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff 04 04 ┆ (08 ┆
0x3c040…3c060 00 2d 4c 0f 00 08 00 00 00 00 02 01 41 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -L A1 ┆
0x3c060…3c080 00 00 00 00 00 00 00 05 07 09 0b 0f 19 23 2d 37 41 4b 55 5f 69 73 ff 04 0a 0c 8e a6 0a 20 20 20 ┆ #-7AKU_is јд ┆
0x3c080…3c0a0 20 20 20 0d 0a 16 53 41 0d 0a 45 78 63 65 70 74 69 6f 6e 20 43 6f 64 65 73 0d 0a 16 73 6f 20 65 ┆ SA Exception Codes so e┆
0x3c0a0…3c0c0 78 63 65 70 74 69 6f 6e 20 63 6f 64 65 73 0d 0a 16 73 6f 20 66 61 75 6c 74 20 28 65 78 63 65 70 ┆xception codes so fault (excep┆
0x3c0c0…3c0e0 74 69 6f 6e 20 63 6f 64 65 73 29 0d 0a 0d 0a 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 ┆tion codes) -L A1@ ┆
0x3c0e0…3c100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d ff ff ff ff ff ff ff ff ┆ ┆
0x3c100…3c120 ff ff ff ff ff ff ff 04 04 00 2d 4c 00 00 06 00 00 00 00 02 01 41 31 40 00 00 00 00 00 00 00 00 ┆ -L A1@ ┆
0x3c120…3c140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 10 19 20 28 30 38 ff ff ff ff ff ff ff ff ff ┆ (08 ┆
0x3c140…3c160 04 0a a1 43 6f 64 65 20 28 48 65 78 29 09 45 72 72 6f 72 20 54 65 78 74 20 05 5f 0d 0a 0d 0a 30 ┆ АCode (Hex) Error Text _ 0┆
0x3c160…3c180 31 09 2d 20 70 61 72 69 74 79 20 65 72 72 6f 72 0d 0a 30 32 09 2d 20 72 65 67 69 73 74 65 72 73 ┆1 - parity error 02 - registers┆
0x3c180…3c1a0 74 61 63 6b 20 65 72 72 6f 72 20 0d 0a 30 33 09 2d 20 75 6e 64 65 66 69 6e 65 64 20 6f 70 63 6f ┆tack error 03 - undefined opco┆
0x3c1a0…3c1c0 64 65 20 0d 0a 30 34 09 2d 20 6f 64 64 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 0d 0a ┆de 04 - odd number of bytes ┆
0x3c1c0…3c1e0 30 35 09 2d 20 73 74 61 63 6b 20 6f 76 65 72 66 6c 6f 77 20 0d 0a 30 36 09 2d 20 70 6f 69 6e 74 ┆05 - stack overflow 06 - point┆
0x3c1e0…3c200 65 72 20 3d 20 6e 69 6c 20 0d 0a 30 37 09 2d 20 73 69 67 6e 61 6c 3a 20 72 65 66 65 72 65 6e 63 ┆er = nil 07 - signal: referenc┆
0x3c200…3c220 65 20 3d 20 6e 69 6c 20 0d 0a 30 37 09 2d 20 70 75 73 68 3a 20 66 69 72 73 74 20 70 61 72 61 6d ┆e = nil 07 - push: first param┆
0x3c220…3c240 20 3d 20 6e 69 6c 20 0d 0a 30 37 09 2d 20 70 6f 70 3a 20 73 65 63 6f 6e 64 20 70 61 72 61 6d 20 ┆ = nil 07 - pop: second param ┆
0x3c240…3c260 3d 20 6e 69 6c 20 0d 0a 30 37 09 2d 20 6c 6f 63 6b 3a 20 72 65 66 65 72 65 6e 63 65 20 3d 20 6e ┆= nil 07 - lock: reference = n┆
0x3c260…3c280 69 6c 20 0d 0a 30 37 09 2d 20 72 65 66 65 72 65 6e 63 65 20 3d 20 6e 69 6c 20 0d 0a 30 38 09 2d ┆il 07 - reference = nil 08 -┆
0x3c280…3c2a0 20 77 61 69 74 3a 20 72 65 66 65 72 65 6e 63 65 20 3c 3e 20 6e 69 6c 20 0d 0a 30 38 09 2d 20 70 ┆ wait: reference <> nil 08 - p┆
0x3c2a0…3c2c0 6f 70 3a 20 66 69 72 73 74 20 70 61 72 61 6d 20 3c 3e 20 6e 69 6c 20 0d 0a 30 39 09 2d 20 70 75 ┆op: first param <> nil 09 - pu┆
0x3c2c0…3c2e0 73 68 3a 20 70 61 72 61 6d 20 6c 6f 63 6b 65 64 20 0d 0a 30 39 09 2d 20 70 6f 70 3a 20 73 65 63 ┆sh: param locked 09 - pop: sec┆
0x3c2e0…3c300 6f 6e 64 20 70 61 72 61 6d 20 6c 6f 63 6b 65 64 0d 0a 30 39 09 2d 20 73 69 67 6e 61 6c 3a 20 72 ┆ond param locked 09 - signal: r┆
0x3c300…3c320 65 66 65 72 65 6e 63 65 20 6c 6f 63 6b 65 64 0d 0a 30 39 09 2d 20 72 65 66 65 72 65 6e 63 65 20 ┆eference locked 09 - reference ┆
0x3c320…3c340 6c 6f 63 6b 65 64 20 20 20 20 20 20 20 20 0d 0a 30 41 09 2d 20 6c 6f 63 6b 20 6f 76 65 72 66 6c ┆locked 0A - lock overfl┆
0x3c340…3c360 6f 77 20 0d 0a 30 42 09 2d 20 61 72 69 74 68 6d 65 74 69 63 20 6f 76 65 72 66 6c 6f 77 20 3a 20 ┆ow 0B - arithmetic overflow : ┆
0x3c360…3c380 20 22 6c 6f 70 22 2d 22 72 6f 70 22 0d 0a 30 42 09 2d 20 61 72 69 74 68 6d 65 74 69 63 20 6f 76 ┆ "lop"-"rop" 0B - arithmetic ov┆
0x3c380…3c3a0 65 72 66 6c 6f 77 20 3a 20 20 22 6c 6f 70 22 2b 22 72 6f 70 22 0d 0a 30 42 09 2d 20 61 72 69 74 ┆erflow : "lop"+"rop" 0B - arit┆
0x3c3a0…3c3c0 68 6d 65 74 69 63 20 6f 76 65 72 66 6c 6f 77 20 3a 20 20 22 6c 6f 70 22 2a 22 72 6f 70 22 0d 0a ┆hmetic overflow : "lop"*"rop" ┆
0x3c3c0…3c3e0 30 42 09 2d 20 61 72 69 74 68 6d 65 74 69 63 20 6f 76 65 72 66 6c 6f 77 20 3a 20 20 22 6c 6f 70 ┆0B - arithmetic overflow : "lop┆
0x3c3e0…3c400 22 20 64 69 76 20 22 72 6f 70 22 0d 0a 30 42 09 2d 20 61 72 69 74 68 6d 65 74 69 63 20 6f 76 65 ┆" div "rop" 0B - arithmetic ove┆
0x3c400…3c420 72 66 6c 6f 77 20 3a 20 20 22 6c 6f 70 22 20 6d 6f 64 20 22 72 6f 70 22 0d 0a 30 42 09 2d 20 61 ┆rflow : "lop" mod "rop" 0B - a┆
0x3c420…3c440 72 69 74 68 6d 65 74 69 63 20 6f 76 65 72 66 6c 6f 77 20 3a 20 20 2d 22 6f 70 22 0d 0a 30 42 09 ┆rithmetic overflow : -"op" 0B ┆
0x3c440…3c460 2d 20 61 72 69 74 68 6d 65 74 69 63 20 6f 76 65 72 66 6c 6f 77 20 3a 20 20 61 62 73 20 22 6f 70 ┆- arithmetic overflow : abs "op┆
0x3c460…3c480 22 20 20 20 20 0d 0a 30 43 09 2d 20 69 6e 64 65 78 20 6f 75 74 20 6f 66 20 62 6f 75 6e 64 73 3a ┆" 0C - index out of bounds:┆
0x3c480…3c4a0 20 22 69 6e 64 65 78 20 76 61 6c 75 65 22 20 0d 0a 30 43 09 2d 20 73 75 62 72 61 6e 67 65 20 6f ┆ "index value" 0C - subrange o┆
0x3c4a0…3c4c0 75 74 20 6f 66 20 62 6f 75 6e 64 73 3a 20 22 6f 70 65 72 61 6e 64 20 76 61 6c 75 65 22 20 0d 0a ┆ut of bounds: "operand value" ┆
0x3c4c0…3c4e0 30 44 09 2d 20 69 6c 6c 65 67 61 6c 20 74 65 78 74 73 74 61 74 65 20 0d 0a 30 45 09 2d 20 66 69 ┆0D - illegal textstate 0E - fi┆
0x3c4e0…3c500 65 6c 64 20 6f 76 65 72 66 6c 6f 77 20 3a 20 22 6f 70 65 72 61 6e 64 20 76 61 6c 75 65 22 0d 0a ┆eld overflow : "operand value" ┆
0x3c500…3c520 30 46 09 2d 20 6d 6f 76 65 20 77 72 61 70 61 72 6f 75 6e 64 20 3a 20 0d 0a 31 30 09 2d 20 70 75 ┆0F - move wraparound : 10 - pu┆
0x3c520…3c540 73 68 3a 20 69 64 65 6e 74 69 63 61 6c 20 61 72 67 75 6d 65 6e 74 73 20 0d 0a 31 31 09 2d 20 70 ┆sh: identical arguments 11 - p┆
0x3c540…3c560 75 73 68 3a 20 66 69 72 73 74 20 70 61 72 61 6d 20 6e 6f 74 20 65 6d 70 74 79 20 0d 0a 31 32 09 ┆ush: first param not empty 12 ┆
0x3c560…3c580 2d 20 6c 6f 63 6b 3a 20 73 69 7a 65 20 65 72 72 6f 72 20 3a 20 22 62 75 66 66 65 72 20 73 69 7a ┆- lock: size error : "buffer siz┆
0x3c580…3c5a0 65 22 20 22 6e 65 77 20 73 69 7a 65 22 0d 0a 31 32 09 2d 20 73 69 7a 65 20 74 6f 6f 20 73 6d 61 ┆e" "new size" 12 - size too sma┆
0x3c5a0…3c5c0 6c 6c 20 0d 0a 31 33 09 2d 20 74 6f 70 20 3c 3d 20 6f 66 66 73 65 74 20 0d 0a 31 34 09 2d 20 6c ┆ll 13 - top <= offset 14 - l┆
0x3c5c0…3c5e0 6f 63 6b 3a 20 6e 6f 74 20 64 61 74 61 20 6d 65 73 73 61 67 65 20 0d 0a 31 34 09 2d 20 6e 6f 74 ┆ock: not data message 14 - not┆
0x3c5e0…3c600 20 64 61 74 61 20 6d 65 73 73 61 67 65 20 0d 0a 31 35 09 2d 20 6e 6f 74 20 63 68 61 6e 6e 65 6c ┆ data message 15 - not channel┆
0x3c600…3c620 20 6d 65 73 73 61 67 65 20 0d 0a 31 36 09 2d 20 77 6f 72 64 20 62 6c 6f 63 6b 20 69 2f 6f 20 3a ┆ message 16 - word block i/o :┆
0x3c620…3c640 20 6f 64 64 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 0d 0a 31 37 09 2d 20 62 6c 6f 63 ┆ odd number of bytes 17 - bloc┆
0x3c640…3c660 6b 20 69 2f 6f 20 61 74 20 6c 65 76 65 6c 20 30 20 0d 0a 31 38 09 2d 20 73 65 74 63 72 3a 20 66 ┆k i/o at level 0 18 - setcr: f┆
0x3c660…3c680 69 72 73 74 20 6c 69 6d 69 74 20 6e 65 67 61 74 69 76 65 20 0d 0a 31 39 09 2d 20 73 65 74 61 64 ┆irst limit negative 19 - setad┆
0x3c680…3c6a0 3a 20 74 72 75 6e 63 61 74 69 6f 6e 20 65 72 72 6f 72 20 0d 0a 31 41 09 2d 20 6e 6f 20 72 65 73 ┆: truncation error 1A - no res┆
0x3c6a0…3c6c0 6f 75 72 63 65 73 20 0d 0a 31 42 09 2d 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 ┆ources 1B - file does not exis┆
0x3c6c0…3c6e0 74 20 3a 20 22 66 69 6c 65 20 6e 61 6d 65 22 0d 0a 31 43 09 2d 20 70 6f 73 69 74 69 6f 6e 20 6f ┆t : "file name" 1C - position o┆
0x3c6e0…3c700 75 74 73 69 64 65 20 66 69 6c 65 20 0d 0a 31 44 09 2d 20 77 72 6f 6e 67 20 61 6e 73 77 65 72 20 ┆utside file 1D - wrong answer ┆
0x3c700…3c720 0d 0a 31 45 09 2d 20 73 65 74 70 72 69 6f 72 69 74 79 3a 20 69 6c 6c 65 67 61 6c 20 70 72 69 6f ┆ 1E - setpriority: illegal prio┆
0x3c720…3c740 72 69 74 79 20 0d 0a 31 46 09 2d 20 70 6f 6f 6c 20 3a 20 6e 6f 20 63 6f 72 65 20 0d 0a 32 30 09 ┆rity 1F - pool : no core 20 ┆
0x3c740…3c760 2d 20 70 72 6f 63 65 73 73 20 3d 20 6e 69 6c 20 0d 0a 32 31 09 2d 20 61 72 69 74 68 6d 65 74 69 ┆- process = nil 21 - arithmeti┆
0x3c760…3c780 63 20 6f 76 65 72 66 6c 6f 77 20 3a 20 22 6c 64 6f 70 22 20 2a 20 22 72 64 6f 70 22 0d 0a 32 32 ┆c overflow : "ldop" * "rdop" 22┆
0x3c780…3c7a0 09 2d 20 73 79 73 74 65 6d 20 65 72 72 6f 72 0d 0a 32 33 09 2d 20 73 79 73 74 65 6d 20 65 72 72 ┆ - system error 23 - system err┆
0x3c7a0…3c7c0 6f 72 0d 0a 32 34 09 2d 20 69 6c 6c 65 67 61 6c 20 73 77 69 74 63 68 20 69 6e 20 63 61 73 65 20 ┆or 24 - illegal switch in case ┆
0x3c7c0…3c7e0 63 6f 6e 73 74 72 75 63 74 69 6f 6e 20 0d 0a 32 35 09 2d 20 75 70 70 65 72 20 6c 69 6d 69 74 20 ┆construction 25 - upper limit ┆
0x3c7e0…3c800 69 6e 20 63 61 6c 6c 20 6f 66 20 73 75 63 63 20 20 20 20 20 20 20 20 0d 0a 32 36 09 2d 20 6c 6f ┆in call of succ 26 - lo┆
0x3c800…3c820 77 65 72 20 6c 69 6d 69 74 20 69 6e 20 63 61 6c 6c 20 6f 66 20 70 72 65 64 20 20 20 20 20 20 20 ┆wer limit in call of pred ┆
0x3c820…3c840 20 0d 0a 32 37 09 2d 20 77 69 74 68 3a 20 72 65 74 79 70 65 20 6f 76 65 72 66 6c 6f 77 20 3a 20 ┆ 27 - with: retype overflow : ┆
0x3c840…3c860 22 73 69 7a 65 20 6f 66 20 6f 6c 64 22 20 3c 20 22 73 69 7a 65 20 6f 66 20 6e 65 77 22 0d 0a 32 ┆"size of old" < "size of new" 2┆
0x3c860…3c880 38 09 2d 20 6c 6f 63 6b 64 61 74 61 3a 20 74 6f 70 20 3c 20 63 6f 6d 70 75 74 65 64 0d 0a 32 39 ┆8 - lockdata: top < computed 29┆
0x3c880…3c8a0 09 2d 20 6c 6f 63 61 6c 20 72 65 66 65 72 65 6e 63 65 20 76 61 72 69 61 62 6c 65 20 6e 6f 74 20 ┆ - local reference variable not ┆
0x3c8a0…3c8c0 6e 69 6c 20 61 74 20 72 6f 75 74 69 6e 65 20 65 78 69 74 0d 0a 32 41 09 2d 20 6c 6f 63 61 6c 20 ┆nil at routine exit 2A - local ┆
0x3c8c0…3c8e0 70 72 6f 63 65 73 73 20 76 61 72 69 61 62 6c 65 20 6e 6f 74 20 6e 69 6c 20 61 74 20 72 6f 75 74 ┆process variable not nil at rout┆
0x3c8e0…3c900 69 6e 65 20 65 78 69 74 0d 0a 32 42 09 2d 20 73 79 73 74 65 6d 20 65 72 72 6f 72 0d 0a 32 43 09 ┆ine exit 2B - system error 2C ┆
0x3c900…3c920 2d 20 73 79 73 74 65 6d 20 65 72 72 6f 72 0d 0a 32 44 09 2d 20 73 79 73 74 65 6d 20 65 72 72 6f ┆- system error 2D - system erro┆
0x3c920…3c940 72 0d 0a 32 45 09 2d 20 73 79 73 74 65 6d 20 65 72 72 6f 72 0d 0a 32 46 09 2d 20 62 72 65 61 6b ┆r 2E - system error 2F - break┆
0x3c940…3c960 20 62 79 20 66 61 74 68 65 72 20 20 20 20 20 20 20 20 20 0d 0a 1a 1a 1a 1a 20 62 79 20 66 61 74 ┆ by father by fat┆
0x3c960…3c980 68 65 72 20 20 20 20 20 20 20 20 20 0d 0a 0a 1a 74 65 73 3a 20 69 6e 74 65 67 65 72 3b 20 0d 0a ┆her tes: integer; ┆