Listing: 1 IMPLEMENTATION MODULE CRC; 2 (* 3 * REPERTOIRE 4 * Release 1.6 5 * By Charles Bradford and Cole Brecheen 6 * (c) Copyright 1985-1992 PMI 7 * Green Bay, Wisconsin 8 * All rights reserved 9 * (414) 468-6040 10 * 11 * $Header: D:/logfiles/mods/crc.mov 1.5 10 Mar 1991 15:25:48 coleb $ 12 * 13 * 14 * Written and contributed by David Tingler of 15 * Telepath Systems, Inc., in Norman, Oklahoma. 16 * 17 **** JDM October 3, 1989 fix (I hope) bug in AddCRC 18 **** JDM/MBC March 21, 1990. Add CalcCRCChain to permit multiple buffers 19 **** to be processed with successive calls. 20 *) 21 22 23 IMPORT LowLevel; 24 IMPORT SYSTEM; 25 26 VAR 27 Initialized : BOOLEAN; 28 29 VAR 30 crctab: ARRAY [0..255] OF BITSET; ***** ^ not supported yet ***** ^ undeclared identifier 31 32 (*$S-*) 33 (*$R-*) 34 (*$T-*) 35 36 PROCEDURE CalcCRCChain 37 ( lastCRC : CARDINAL; (* in - 0 first time, last otherwise *) 38 BufAdr: SYSTEM.ADDRESS; ***** ^ not supported yet 39 BufSize: CARDINAL 40 ): CARDINAL; 41 VAR 42 segm, offs, h, i: CARDINAL; 43 BEGIN 44 i := 0; 45 h := BufSize - 1; 46 segm := LowLevel.seg( BufAdr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 47 offs := LowLevel.ofs( BufAdr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 48 FOR i := 0 TO h DO 49 AddCRC(lastCRC, LowLevel.PeekByte(segm, offs + i)); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 50 END; 51 RETURN lastCRC; 52 END CalcCRCChain; ***** ^ not supported yet 53 (**** end of "new" procedure. *) 54 55 56 PROCEDURE CalcCRC( BufAdr: SYSTEM.ADDRESS; BufSize: CARDINAL ): CARDINAL; ***** ^ not supported yet 57 VAR 58 segm, offs, h, i, crc: CARDINAL; 59 BEGIN 60 crc := 0; 61 i := 0; 62 h := BufSize - 1; 63 segm := LowLevel.seg( BufAdr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 64 offs := LowLevel.ofs( BufAdr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 65 FOR i := 0 TO h DO 66 AddCRC(crc, LowLevel.PeekByte(segm, offs + i)); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 67 END; 68 RETURN crc; 69 END CalcCRC; ***** ^ not supported yet 70 71 72 PROCEDURE AddCRC(VAR crc: CARDINAL; ch: SYSTEM.BYTE); ***** ^ not supported yet 73 VAR 74 CRC, c: BITSET; ***** ^ undeclared identifier 75 tab: CARDINAL; 76 BEGIN 77 c := BITSET( ORD(ch) ); ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 78 CRC := BITSET( crc ); ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 79 tab := CARDINAL( (CRC / c) * {0..7} ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 80 (* (crc XOR c) AND 0FFH *) 81 (* CRC := (BITSET(CARDINAL(CRC) * 256) * {0..7}) / crctab[tab]; *) 82 CRC := BITSET(CARDINAL(CRC) DIV 256) / crctab[tab]; ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 83 (* SHIFT(crc, 8) XOR crctab[tab] *) 84 crc := CARDINAL(CRC); ***** ^ not supported yet 85 END AddCRC; ***** ^ not supported yet 86 87 88 VAR i: CARDINAL; 89 90 PROCEDURE InitNum(x: CARDINAL); 91 BEGIN 92 crctab[i] := BITSET(x); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 93 INC(i); ***** ^ undeclared identifier ***** ^ not supported yet 94 END InitNum; ***** ^ not supported yet 95 96 97 PROCEDURE Init(); 98 BEGIN 99 IF Initialized THEN 100 RETURN; 101 ELSE 102 Initialized := TRUE; 103 END; 104 LowLevel.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 105 106 i := 0; 107 InitNum(00000H); InitNum(0C0C1H); InitNum(0C181H); InitNum(00140H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 108 InitNum(0C301H); InitNum(003C0H); InitNum(00280H); InitNum(0C241H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 109 InitNum(0C601H); InitNum(006C0H); InitNum(00780H); InitNum(0C741H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 110 InitNum(00500H); InitNum(0C5C1H); InitNum(0C481H); InitNum(00440H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 111 InitNum(0CC01H); InitNum(00CC0H); InitNum(00D80H); InitNum(0CD41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 112 InitNum(00F00H); InitNum(0CFC1H); InitNum(0CE81H); InitNum(00E40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 113 InitNum(00A00H); InitNum(0CAC1H); InitNum(0CB81H); InitNum(00B40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 114 InitNum(0C901H); InitNum(009C0H); InitNum(00880H); InitNum(0C841H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 115 InitNum(0D801H); InitNum(018C0H); InitNum(01980H); InitNum(0D941H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 116 InitNum(01B00H); InitNum(0DBC1H); InitNum(0DA81H); InitNum(01A40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 117 InitNum(01E00H); InitNum(0DEC1H); InitNum(0DF81H); InitNum(01F40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 118 InitNum(0DD01H); InitNum(01DC0H); InitNum(01C80H); InitNum(0DC41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 119 InitNum(01400H); InitNum(0D4C1H); InitNum(0D581H); InitNum(01540H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 120 InitNum(0D701H); InitNum(017C0H); InitNum(01680H); InitNum(0D641H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 121 InitNum(0D201H); InitNum(012C0H); InitNum(01380H); InitNum(0D341H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 122 InitNum(01100H); InitNum(0D1C1H); InitNum(0D081H); InitNum(01040H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 123 InitNum(0F001H); InitNum(030C0H); InitNum(03180H); InitNum(0F141H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 124 InitNum(03300H); InitNum(0F3C1H); InitNum(0F281H); InitNum(03240H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 125 InitNum(03600H); InitNum(0F6C1H); InitNum(0F781H); InitNum(03740H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 126 InitNum(0F501H); InitNum(035C0H); InitNum(03480H); InitNum(0F441H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 127 InitNum(03C00H); InitNum(0FCC1H); InitNum(0FD81H); InitNum(03D40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 128 InitNum(0FF01H); InitNum(03FC0H); InitNum(03E80H); InitNum(0FE41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 129 InitNum(0FA01H); InitNum(03AC0H); InitNum(03B80H); InitNum(0FB41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 130 InitNum(03900H); InitNum(0F9C1H); InitNum(0F881H); InitNum(03840H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 131 InitNum(02800H); InitNum(0E8C1H); InitNum(0E981H); InitNum(02940H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 132 InitNum(0EB01H); InitNum(02BC0H); InitNum(02A80H); InitNum(0EA41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 133 InitNum(0EE01H); InitNum(02EC0H); InitNum(02F80H); InitNum(0EF41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 134 InitNum(02D00H); InitNum(0EDC1H); InitNum(0EC81H); InitNum(02C40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 135 InitNum(0E401H); InitNum(024C0H); InitNum(02580H); InitNum(0E541H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 136 InitNum(02700H); InitNum(0E7C1H); InitNum(0E681H); InitNum(02640H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 137 InitNum(02200H); InitNum(0E2C1H); InitNum(0E381H); InitNum(02340H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 138 InitNum(0E101H); InitNum(021C0H); InitNum(02080H); InitNum(0E041H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 139 InitNum(0A001H); InitNum(060C0H); InitNum(06180H); InitNum(0A141H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 140 InitNum(06300H); InitNum(0A3C1H); InitNum(0A281H); InitNum(06240H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 141 InitNum(06600H); InitNum(0A6C1H); InitNum(0A781H); InitNum(06740H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 142 InitNum(0A501H); InitNum(065C0H); InitNum(06480H); InitNum(0A441H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 143 InitNum(06C00H); InitNum(0ACC1H); InitNum(0AD81H); InitNum(06D40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 144 InitNum(0AF01H); InitNum(06FC0H); InitNum(06E80H); InitNum(0AE41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 145 InitNum(0AA01H); InitNum(06AC0H); InitNum(06B80H); InitNum(0AB41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 146 InitNum(06900H); InitNum(0A9C1H); InitNum(0A881H); InitNum(06840H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 147 InitNum(07800H); InitNum(0B8C1H); InitNum(0B981H); InitNum(07940H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 148 InitNum(0BB01H); InitNum(07BC0H); InitNum(07A80H); InitNum(0BA41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 149 InitNum(0BE01H); InitNum(07EC0H); InitNum(07F80H); InitNum(0BF41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 150 InitNum(07D00H); InitNum(0BDC1H); InitNum(0BC81H); InitNum(07C40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 151 InitNum(0B401H); InitNum(074C0H); InitNum(07580H); InitNum(0B541H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 152 InitNum(07700H); InitNum(0B7C1H); InitNum(0B681H); InitNum(07640H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 153 InitNum(07200H); InitNum(0B2C1H); InitNum(0B381H); InitNum(07340H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 154 InitNum(0B101H); InitNum(071C0H); InitNum(07080H); InitNum(0B041H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 155 InitNum(05000H); InitNum(090C1H); InitNum(09181H); InitNum(05140H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 156 InitNum(09301H); InitNum(053C0H); InitNum(05280H); InitNum(09241H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 157 InitNum(09601H); InitNum(056C0H); InitNum(05780H); InitNum(09741H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 158 InitNum(05500H); InitNum(095C1H); InitNum(09481H); InitNum(05440H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 159 InitNum(09C01H); InitNum(05CC0H); InitNum(05D80H); InitNum(09D41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 160 InitNum(05F00H); InitNum(09FC1H); InitNum(09E81H); InitNum(05E40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 161 InitNum(05A00H); InitNum(09AC1H); InitNum(09B81H); InitNum(05B40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 162 InitNum(09901H); InitNum(059C0H); InitNum(05880H); InitNum(09841H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 163 InitNum(08801H); InitNum(048C0H); InitNum(04980H); InitNum(08941H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 164 InitNum(04B00H); InitNum(08BC1H); InitNum(08A81H); InitNum(04A40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 165 InitNum(04E00H); InitNum(08EC1H); InitNum(08F81H); InitNum(04F40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 166 InitNum(08D01H); InitNum(04DC0H); InitNum(04C80H); InitNum(08C41H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 167 InitNum(04400H); InitNum(084C1H); InitNum(08581H); InitNum(04540H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 168 InitNum(08701H); InitNum(047C0H); InitNum(04680H); InitNum(08641H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 169 InitNum(08201H); InitNum(042C0H); InitNum(04380H); InitNum(08341H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 170 InitNum(04100H); InitNum(081C1H); InitNum(08081H); InitNum(04040H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 171 END Init; ***** ^ not supported yet 172 173 BEGIN 174 Initialized := FALSE; 175 Init(); ***** ^ not supported yet ***** ^ not supported yet 176 END CRC. ***** ^ not supported yet 573 errors