unit Boots;

interface

Var
/// Important commands
ChkPhMode: array[0..11] of Byte =
//($1B, $00, $10, $15, $00, $06, $00, $06, $00, $02, $00, $00);
($38, $46, $1D, $B7, $92, $B8, $BD, $51, $00, $02, $00, $00);
GETRoot : array[0..11] of Byte =
//($1B, $00, $10, $6F, $00, $06, $00, $13, $1B, $01, $00, $00);
($09, $55, $5C, $97, $ED, $9D, $96, $0B, $1B, $01, $00, $00);
APEtestrunsrv :array[0..11] of Byte =
//($1B, $00, $10, $58, $00, $06, $00, $11, $01, $F0, $02, $00);
($CD, $9F, $08, $BF, $1E, $95, $A8, $F0, $01, $F0, $02, $00);
ReadS40cycle : array [0..27] of Byte =
//($1B, $00, $10, $6D, $00, $16, $00, $12, $00, $5E, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);
($6C, $3B, $21, $C9, $84, $48, $55, $58, $00, $5E, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);
s60readcycle   : array [0..23] of Byte =
//($1B, $00, $10, $58, $00, $12, $00, $11, $00, $0D, $00, $01, $F0, $0C, $20, $00, $00, $00, $00, $00, $00, $00, $00, $00);
($E3, $27, $0E, $21, $79, $02, $E3, $18, $00, $0D, $00, $01, $F0, $0C, $20, $00, $00, $00, $00, $00, $00, $00, $00, $00);
s40preformat              : array [0..11] of Byte =
//($1B, $00, $10, $1B, $00, $06, $00, $0E, $32, $15, $0A, $00);
($2A, $60, $D5, $6F, $38, $0E, $F0, $1B, $32, $15, $0A, $00);
GetS40PhbCouC : array[0..15] of byte =
//($1B, $00, $10, $03, $00, $0A, $00, $01, $00, $03, $02, $05, $00, $00, $00, $00);
($66, $E4, $01, $A0, $22, $38, $4A, $51, $00, $03, $02, $05, $00, $00, $00, $00);
GetS40PhbRecC : array[0..23] of byte =
//($1B, $00, $10, $03, $00, $12, $00, $01, $00, $07, $01, $01, $00, $01, $FE, $05, $00, $00, $00, $00, $00, $01, $00, $00);
($CF, $F7, $6A, $BC, $F8, $EE, $F8, $8A, $00, $07, $01, $01, $00, $01, $FE, $05, $00, $00, $00, $00, $00, $01, $00, $00);
S40PhbRecWr : array[0..25] of byte =
//($1B, $00, $10, $03, $00, $5A, $00, $01, $00, $0B, $00, $01, $01, $00, $00, $10, $02, $05, $FF, $FF, $00, $00, $00, $00, $00, $00);
($CB, $8F, $CE, $45, $5A, $1C, $F0, $1A, $00, $0B, $00, $01, $01, $00, $00, $10, $02, $05, $FF, $FF, $00, $00, $00, $00, $00, $00);
WriteData: array[0..35] of Byte =
//($1B, $00, $10, $6F, $00, $1E, $00, $15, $B2, $4C, $00, $00, $00, $00, $02, $40, $00, $00, $04, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);
($08, $B0, $9E, $AC, $74, $50, $E0, $81, $B2, $4C, $00, $00, $00, $00, $02, $40, $00, $00, $04, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);

///Important values end

uSx4chst   : array [0..11] of Byte =
($1B, $00, $10, $08, $00, $06, $00, $08, $05, $31, $00, $00);

uSx41st   : array [0..11] of Byte =
($1B, $00, $10, $08, $00, $06, $00, $08, $02, $1F, $00, $00);

uSx42st   : array [0..11] of Byte =
($1B, $00, $10, $08, $00, $1E, $00, $08, $03, $21, $00, $00);

uSx43st   : array [0..11] of Byte =
($1B, $00, $10, $08, $00, $1E, $00, $08, $04, $23, $00, $00);

rapuchkadl  : array[0..17] of byte =
($00, $00, $00, $12, $00, $10, $00, $DD, $00, $00, $00, $01, $01, $00, $00, $00, $00, $01);

rapuselAsic : array[0..10] of byte =
($00, $00, $00, $0B, $01, $10, $00, $E3, $67, $00, $FF);

rapugetroot : array[0..13] of byte =
($00, $00, $00, $0E, $01, $10, $00, $E0, $60, $01, $29, $01, $00, $D4);

rapucrtchkreq : array[0..70] of byte =
($00, $00, $00, $47, $01, $10, $00, $A7, $61, $04, $2B, $0D, $4E, $50, $43, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $2B, $0D, $43, $43, $43, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $2B, $0D, $48, $57, $43, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $2B, $0D, $52, $26, $44, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $D3);

rapucloseASIC : array[0..10] of byte =
($00, $00, $00, $0B, $01, $10, $00, $E3, $52, $00, $FF);

rapureboot : array[0..13] of byte =
($00, $00, $00, $0E, $01, $F0, $00, $00, $53, $01, $33, $01, $02, $C8);

rapurebootlocal : array[0..13] of byte =
($00, $00, $00, $0E, $01, $F0, $00, $00, $53, $01, $33, $01, $01, $C8);

VenCHeckUpl : array [0..12] of byte =
($40, $60, $00, $00, $00, $00, $05, $00, $59, $01, $3E, $00, $C0);

VenCheckFlic : array [0..10] of Byte =
($40, $60, $00, $00, $00, $00, $03, $00, $66, $00, $FF);

algsend : array [0..30] of Byte =
($40, $60, $00, $00, $00, $00, $17, $00, $53, $01, $3A, $12, $00, $10, $00, $50, $00, $41, $4C, $47, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $7E);

algsend2 : array [0..30] of Byte =
($40, $60, $00, $00, $00, $00, $17, $00, $53, $01, $3A, $12, $00, $10, $00, $50, $00, $41, $4C, $47, $00, $00, $00, $00, $00, $00, $00, $00, $00, $78, $06);

algsend3 : array [0..30] of Byte =
($40, $60, $00, $00, $00, $00, $17, $00, $53, $01, $3A, $12, $00, $80, $00, $50, $00, $41, $4C, $47, $00, $00, $00, $00, $00, $00, $00, $00, $00, $0D, $01);

bootflash : array [0..16] of Byte =
($40, $60, $00, $00, $00, $00, $09, $00, $59, $01, $54, $04, $01, $00, $00, $00, $A5);

S40PhbRecWrEnd : array[0..15] of byte =
($1B, $00, $10, $03, $00, $0A, $00, $01, $00, $03, $02, $05, $00, $00, $00, $00);

CheckCamVer: array[0..15] of byte =
($1B, $00, $10, $61, $00, $0A, $00, $1C, $22, $0B, $01, $01, $2A, $00, $00, $00);

SimLockServer : array [0..15] of byte =
($1B, $00, $10, $53, $00, $0A, $00, $02, $02, $F0, $02, $00, $00, $00, $00, $00);

SetMode: array[0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $07, $01, $01, $00, $00);

IMEI          : array[0..10] of Byte =
($1B, $00, $10, $1B, $00, $05, $00, $00, $00, $00, $41);

MCUSW         : array[0..10] of Byte =
($1B, $00, $10, $D1, $00, $05, $00, $00, $00, $03, $00);

IMEIplain                      : array[0..13] of Byte =
($1B, $00, $10, $1B, $00, $08, $00, $06, $00, $00, $41, $00, $00, $00);

GetBlock                       : array[0..11] of Byte =
($1B, $00, $10, $23, $00, $06, $00, $0D, $00, $0E, $00, $00);

GetBlockXXXFieldXXX            : array[0..15] of Byte =
($1B, $00, $10, $23, $00, $0A, $00, $0D, $00, $0C, $00, $00, $00, $05, $00, $00);

GetBlockXXXFieldXXXData        : array[0..23] of Byte =
($1B, $00, $10, $23, $00, $12, $00, $0D, $00, $04, $00, $41, $00, $02, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);

WritePmFieldRec : array[0..19] of byte =
($1B, $00, $10, $23, $00, $10, $00, $08, $01, $02, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);

keybTesst : array [0..11] of Byte=
($1B, $00, $10, $10, $00, $06, $00, $04, $0F, $10, $01, $15);

keybTest2nd : array [0..11] of Byte =
($1B, $00, $10, $0C, $00, $06, $00, $10, $10, $15, $00, $00);

keybTestend : array [0..11] of Byte =
($1B, $00, $10, $0C, $00, $06, $00, $10, $01, $15, $02, $00);

keybTest2end : array [0..12] of Byte =
($1B, $00, $10, $10, $00, $07, $00, $04, $02, $10, $02, $15, $0C);

checkkeybdata : array [0..11] of Byte =
($1B, $00, $10, $0C, $00, $06, $00, $10, $0F, $15, $01, $00);

s60keybtststart : array [0..11] of byte =
($1B, $00, $10, $58, $00, $06, $00, $10, $03, $5A, $00, $00);

s60keybTst2nd   : array [0..11] of Byte =
($1B, $00, $10, $58, $00, $06, $00, $10, $04, $00, $0F, $00);

s60keybCheck : array [0..11] of Byte =
($1B, $00, $10, $58, $00, $06, $00, $10, $05, $00, $0E, $00);

s60keytestfree : array [0..11] of Byte =
($1B, $00, $10, $58, $00, $06, $00, $10, $06, $00, $10, $00);

verifyadlb : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $0B, $01, $00, $00, $00);

PMBoot : array[0..15] of Byte =
($1b, $00, $10, $23, $00, $0a, $00, $13, $c9, $0a, $01, $40, $00, $0e, $00, $00);

adl80precheck : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $14, $00, $00, $00, $00);

adl80checkst : array [0..11] of byte =
($1B, $00, $10, $6F, $00, $06, $00, $14, $00, $80, $00, $00);

adl80getroot: array [0..15] of Byte =
($1B, $00, $10, $6F, $00, $0A, $00, $14, $00, $84, $04, $00, $00, $02, $04, $06);

adl80preasic : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $14, $00, $01, $00, $00);

adl80selASIC : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $14, $00, $08, $00, $00);

lightoff : array[0..23] of Byte =
($1B, $00, $10, $3A, $00, $12, $00, $11, $B3, $20, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $00, $01, $00, $00);

lighton : array[0..35] of Byte =
($1B, $00, $10, $3A, $00, $1E, $00, $11, $B2, $20, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $01, $02, $00, $02, $12, $04, $27, $10, $19, $08, $FF, $FF, $FF, $00, $00, $00);


S40getdrive : array [0..11] of Byte =
($1B, $00, $10, $6D, $00, $06, $00, $05, $00, $7D, $00, $00);


InitFS1st   :array [0..11] of Byte =
($1B, $00, $10, $58, $00, $06, $00, $05, $00, $5A, $00, $00);

InitFS2nd   :array [0..11] of Byte =
($1B, $00, $10, $58, $00, $06, $00, $05, $01, $1F, $00, $00);

S40readendst  :array [0..15] of byte =
($1B, $00, $10, $6D, $00, $0A, $00, $12, $00, $66, $00, $00, $00, $00, $00, $00);

sx4st     : array [0..13] of Byte =
($1B, $00, $10, $08, $00, $08, $00, $0D, $49, $1F, $00, $00, $01, $42);

st1      : array [0..11] of Byte =
($1B, $00, $10, $35, $00, $06, $00, $13, $00, $04, $03, $00);

st2     : array [0..11] of Byte =
($1B, $00, $10, $35, $00, $06, $00, $13, $01, $04, $01, $00);

st3      : array [0..11] of Byte =
($1B, $00, $10, $35, $00, $06, $00, $13, $02, $04, $02, $00);

selftestsinit            : array [0..11] of Byte =
($1B, $00, $10, $35, $00, $06, $00, $13, $03, $06, $03, $00);

quicktesting             : array [0..11] of Byte=
($1B, $00, $10, $35, $00, $06, $00, $13, $04, $02, $03, $00);

doselftest         : array [0..19] of byte =
($1B, $00, $10, $35, $00, $0E, $00, $10, $00, $00, $00, $01, $00, $08, $01, $00, $5D, $00, $00, $00);

NCKMasc                   : array [0..53] of Byte =
($1B, $00, $10, $53, $00, $30, $00, $03, $02, $04, $07, $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, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);

NCKput: array[0..63] of byte =
($1b, $00, $10, $53, $00, $3a, $00, $03, $08, $08, $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, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);

S60formatcycle            : array [0..15] of Byte =
($1B, $00, $10, $58, $00, $0A, $00, $0F, $30, $4C, $4A, $43, $00, $00, $00, $00);


S60formatC1st             : array [0..15] of Byte =
($1B, $00, $10, $58, $00, $0A, $00, $0F, $2F, $4C, $0F, $43, $00, $00, $00, $00);


S40format                : array [0..11] of Byte =
($1B, $00, $10, $6D, $00, $06, $00, $0D, $00, $78, $00, $00);

RAWtemp                   : array [0..11] of Byte =
($1B, $00, $10, $17, $00, $06, $00, $0F, $2E, $0F, $05, $01);


RAWcharge                 : array [0..11] of Byte =
($1B, $00, $10, $17, $00, $06, $00, $15, $27, $11, $02, $01);


RAWcurrent                : array [0..11] of Byte =
($1B, $00, $10, $17, $00, $06, $00, $13, $6A, $11, $0E, $01);

s40readframe           : array [0..27] of byte =
($1B, $00, $10, $6D, $00, $16, $00, $12, $09, $5E, $00, $00, $00, $00, $00, $0D, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);

ResetOldBB5User     : array [0..29] of byte =
($1B, $00, $10, $23, $00, $18, $00, $08, $01, $02, $00, $23, $00, $00, $00, $00, $00, $00, $00, $0A, $31, $32, $33, $34, $35, $00, $00, $00, $00, $00);


check3rd            : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $16, $02, $00, $00, $00);

check2nd            : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $16, $02, $00, $00, $00);

check1st            : array [0..11] of Byte =
($1B, $00, $10, $08, $00, $06, $00, $01, $01, $31, $00, $00);


WriteLTframe        : array [0..55] of Byte =
($1B, $00, $10, $23, $00, $32, $00, $08, $01, $02, $00, $58, $00, $00, $00, $00, $00, $00, $00, $24, $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, $00, $00, $00, $00);

readLTFull          : array [0..15] of Byte =
($1B, $00, $10, $01, $00, $0A, $00, $10, $3F, $2B, $04, $00, $01, $01, $00, $00);

Fsscan2             : array [0..11] of Byte =
($1B, $00, $10, $58, $00, $06, $00, $0D, $51, $1F, $00, $00);

initFS              : array [0..11] of Byte =
($1B, $00, $10, $58, $00, $06, $00, $0C, $02, $1F, $00, $00);

initFs40prep        : array [0..11] of Byte =
($1B, $00, $10, $6D, $00, $06, $00, $0D, $C9, $F0, $12, $00);

initFs401st         : array [0..11] of Byte =
($1B, $00, $10, $6D, $00, $06, $00, $0D, $CA, $76, $00, $00);

initFS40              : array [0..11] of Byte =
($1B, $00, $10, $6D, $00, $06, $00, $0D, $CB, $7D, $00, $00);

Fsscan              : array [0..11] of Byte =
($1B, $00, $10, $58, $00, $06, $00, $0D, $50, $5A, $00, $00);

IMEI2net      : array [0..13] of Byte =
($1B, $00, $10, $1B, $00, $08, $00, $04, $31, $00, $42, $00, $00, $00);

IMEISv2Net    : array [0..13] of Byte =
($1B, $00, $10, $1B, $00, $08, $00, $04, $32, $00, $43, $00, $00, $00);

dev1                      : array [0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $0E, $84, $07, $00, $02, $00, $00, $00, $00);

dev2                      : array [0..11] of Byte =
($1B, $00, $10, $08, $00, $06, $00, $01, $00, $31, $00, $00);

firstread                  :  array [0..23] of Byte  =
($1B, $00, $10, $58, $00, $12, $00, $14, $0E, $0D, $00, $01, $F0, $0C, $20, $00, $00, $00, $00, $00, $00, $00, $40, $00);

Readcycle                  : array [0..23] of Byte  =
($1B, $00, $10, $58, $00, $12, $00, $14, $0E, $0D, $00, $01, $F0, $0C, $20, $00, $00, $00, $00, $00, $00, $00, $00, $00);
///00000000  1B 00 10 58 00 12 00 14 0E 0D 00 01 F0 0C 20 00 00 00 00 00 00 00 08 00                                                        ...

{readBooknew1st             : array [0..23] of Byte =

readbooknw2nd              : array [0..23] of Byte = }

ResetLifeTimer            : array[0..55] of byte =
($1B, $00, $10, $23, $00, $32, $00, $08, $04, $02, $00, $58, $00, $00, $00, $00, $00, $00, $00, $24, $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, $00, $00, $00, $00);


ResetCode                  :array[0..29] of byte =
($1B, $00, $10, $23, $00, $18, $00, $08, $01, $02, $01, $34, $00, $05, $00, $00, $00, $00, $00, $0A, $31, $32, $33, $34, $35, $00, $00, 00, $00, $00);


Spcheck                    : array[0..10] of Byte =
($1B, $00, $10, $53, $00, $05, $00, $0F, $03, $12, $0D);

SowtwareInfo               : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $05, $00, $07, $00, $01, $00, $00, $00, $00);

PPMversioninfo             : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $03, $00, $07, $01, $00, $00, $00, $00, $00);

HWversion                  : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $03, $00, $07, $00, $02, $00, $00, $00, $00);

Btversion                  : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $03, $00, $07, $02, $00, $00, $00, $00, $00);

DSPinf                     : array[0..15]  of byte =
($1B, $00, $10, $1B, $00, $0A, $00, $03, $00, $07, $00, $40, $00, $00, $00, $00);

Batvalue                   : array [0..11] of byte =
($1B, $00, $10, $17, $00, $06, $00, $07, $03, $11, $01, $01);

ImeiSPNet                  : array [0..13] of Byte =
($1B, $00, $10, $1B, $00, $08, $00, $06, $01, $00, $42, $00, $00, $00);

Apetest                    : array [0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $06, $00, $07, $00, $00, $00, $00, $00, $08);

ApeBt                      : array [0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $06, $00, $07, $00, $00, $00, $00, $02, $00);

RetuVersion                : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $06, $00, $07, $00, $00, $00, $00, $00, $10);

TahvoVersion               : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $06, $00, $07, $00, $00, $00, $00, $00, $20);

ApeVer                     : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $06, $00, $07, $00, $00, $00, $00, $00, $02);

ApeVarVer                  : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $06, $00, $07, $00, $00, $00, $00, $00, $04);

ApeHw                      : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $06, $00, $07, $00, $00, $00, $00, $00, $40);

APEAdsp                    : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $06, $00, $07, $00, $00, $00, $00, $00, $80);

CamVer                         : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $06, $00, $07, $00, $00, $00, $00, $01, $00);
//1E 00 10 1B 00 0A 00 06 7A 00

ProductCode                : array[0..11] of Byte =
($1B, $00, $10, $1B, $00, $06, $00, $03, $00, $0B, $00, $02);

ProductionSerialnumber         : array[0..11] of Byte =
($1B, $00, $10, $1B, $00, $06, $00, $03, $00, $0B, $00, $01);

ReadProductCode                : array[0..11] of Byte =
($1B, $00, $10, $1B, $00, $06, $00, $03, $00, $0B, $00, $02);

WriteProductCode               : array[0..23] of Byte =
($1B, $00, $10, $1B, $00, $12, $00, $03, $0B, $0D, $00, $01, $4E, $0C, $00, $08, $30, $30, $30, $30, $30, $30, $30, $00);

OkWriteProductCode             : array[0..10] of Byte =
($1B, $10, $00, $1B, $00, $05, $03, $3B, $0B, $0E, $00);

OkWriteProductCodeSmart        : array[0..10] of Byte =
($1B, $10, $00, $1B, $00, $05, $03, $2F, $0B, $0E, $00);

BasicProductionCode            : array[0..11] of Byte =
($1B, $00, $10, $1B, $00, $06, $00, $03, $00, $0B, $00, $08);

GetASK                         : array[0..11] of Byte =
($1B, $00, $10, $08, $00, $06, $00, $01, $05, $1F, $00, $00);

GetChek                        : array[0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $16, $04, $01, $00, $00);

BlockIsNoPresent1              : array[0..11] of Byte =
($1B, $10, $00, $23, $00, $06, $0D, $2A, $20, $00, $04, $00);

//1B 10 00 23 00 0A 0D XX XX 0F 00 01 03 04 00 00
BlockIsNoPresent2              : array[0..15] of Byte =
($1B, $10, $00, $23, $00, $0A, $0D, $00, $00, $0F, $00, $01, $03, $04, $00, $00);

//1B 10 00 23 00 06 0D XX XX XX XX 00
FieldIsNoPresent1              : array[0..11] of Byte =
($1B, $10, $00, $23, $00, $06, $0D, $00, $00, $00, $04, $00);

GetBlock308                    : array[0..11] of Byte =
($1B, $00, $10, $23, $00, $06, $00, $0D, $01, $0E, $01, $34);

GetBlock308Field5              : array[0..15] of Byte =
($1B, $00, $10, $23, $00, $0A, $00, $0D, $06, $0C, $01, $34, $00, $05, $00, $00);

GetDataCodeBlock308Field5      : array[0..23] of Byte =
($1B, $00, $10, $23, $00, $12, $00, $0D, $07, $04, $01, $34, $00, $05, $00, $00, $00, $00, $00, $00, $00, $00, $00, $02);

TestInfo : array[0..27] of Byte =
($1B, $10, $00, $1B, $00, $16, $03, $36, $07, $08, $00, $01, $64, $10, $00, $20, $18, $09, $31, $37, $32, $31, $31, $37, $32, $31, $00, $00);

ReqPhMode: array[0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $07, $01, $02, $00, $00);

IsNormal : array[0..11] of Byte =
($1B, $10, $00, $15, $00, $06, $07, $3C, $01, $65, $01, $01);

IsNormalSmart : array[0..11] of Byte =
($1B, $10, $00, $15, $00, $06, $07, $3C, $01, $65, $0A, $0A);

IsTest : array[0..11] of Byte =
($1B, $10, $00, $15, $00, $06, $07, $3C, $01, $65, $04, $04);

IsLocal : array[0..11] of Byte =
($1B, $10, $00, $15, $00, $06, $07, $3C, $01, $65, $05, $05);

CNTinfo   : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $06, $0C, $07, $00, $00, $00, $00, $04, $00);

Btinfo     : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $03, $13, $07, $02, $00, $00, $00, $00, $00);

LSN : array[0..11] of Byte =
($1B, $00, $10, $1B, $00, $06, $00, $03, $00, $0B, $00, $80);

Mcode :  array[0..11] of Byte =
($1B, $00, $10, $1B, $00, $06, $00, $03, $00, $0B, $00, $04);

LCDver:  array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $03, $00, $07, $00, $80, $00, $00, $00, $00);

RFic : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $03, $00, $07, $00, $20, $00, $00, $00, $00);

PhoneName : array[0..11] of Byte =
($1B, $00, $10, $1B, $00, $06, $00, $01, $00, $15, $01, $00);

GetBlRecData        : array[0..23] of Byte =
($1B, $00, $10, $23, $00, $12, $00, $0D, $01, $04, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);
GetBlRecLongData        : array[0..23] of Byte =
($1B, $00, $10, $23, $00, $12, $00, $0D, $01, $04, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $04, $00);
RdPPItem: array[0..19] of byte =
($1B, $00, $10, $1B, $00, $0E, $00, $12, $05, $02, $00, $01, $47, $08, $01, $01, $00, $00, $00, $00);
//                        | Len   ||CMD|                                        |Item|
WrPPItem: array[0..19] of byte =
($1B, $00, $10, $1B, $00, $0E, $00, $12, $04, $04, $00, $01, $47, $08, $01, $01, $00, $1F, $00, $00);
//                        | Len   ||CMD|                                       |Item||Data|


{Mode Reading....
1B 00 10 15 00 06 00 07 01 02 00 00

5200 - 
Test    //1B 10 00 15 00 06 07 37 01 65 04 04
normal  //1B 10 00 15 00 06 07 37 01 65 01 01
local   //1B 10 00 15 00 06 07 37 01 65 05 05

6500c-
Test    //1B 10 00 15 00 06 07 38 01 65 04 04
normal  //1B 10 00 15 00 06 07 38 01 65 01 01
local   //1B 10 00 15 00 06 07 38 01 65 05 05 }

//Set Local Mode
SetLocalMode: array[0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $07, $01, $01, $05, $00);

//Set Test Mode
SetTestMode: array[0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $07, $01, $01, $04, $00);

//Set Normal Mode
SetNormalMode: array[0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $07, $01, $01, $01, $00);

//Change Mode Success
SuccessMode: array[0..11] of Byte =
($1B, $10, $00, $15, $00, $06, $07, $3C, $01, $64, $00, $00);

{//From Test to Local
to phone -   1B 00 10 15 00 06 00 07 01 01 05 00
from phone - 1B 10 00 15 00 06 07 3C 01 64 00 00

//From Local to Test
to phone -   1B 00 10 15 00 06 00 07 01 01 04 00
from phone - 1B 10 00 15 00 06 07 3C 01 64 00 00

//From Test to Normal
to phone -   1B 00 10 15 00 06 00 07 01 01 01 00
from phone - 1B 10 00 15 00 06 07 3C 01 64 00 00

//From Normal to Test
to phone -   1B 00 10 15 00 06 00 07 01 01 04 00
from phone - 1B 10 00 15 00 06 07 3C 01 64 00 00

//From Normal to Local
to phone -   1B 00 10 15 00 06 00 07 01 01 05 00
from phone - 1B 10 00 15 00 06 07 3C 01 64 00 00

//From Local to Normal
to phone -   1B 00 10 15 00 06 00 07 01 01 01 00
from phone - 1B 10 00 15 00 06 07 3C 01 64 00 00


//1B 10 00 15 00 06 07 3C 01 65 01 01 - Normal
//1B 10 00 15 00 06 07 3C 01 65 04 04 - Test
//1B 10 00 15 00 06 07 3C 01 65 05 05 - Local }

//Display Dump

Display1: array[0..11] of Byte =
($1B, $00, $10, $0E, $00, $06, $00, $0D, $0E, $06, $00, $00);

Display2: array[0..11] of Byte =
($1B, $00, $10, $0E, $00, $06, $00, $0D, $10, $07, $01, $00);

Display3: array[0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $0C, $A4, $0E, $00, $00);


//ULO Server

//Sending UPDAPP, confirm start

SendADLCRC    : array[0..20] of Byte =
($1B, $00, $10, $6F, $00, $0F, $00, $15, $1C, $01, $00, $1E, $00, $03, $B1, $40, $A4, $C9, $FF, $00, $00);

SendADL    : array[0..15] of Byte =
($1B, $00, $10, $6F, $07, $8A, $00, $15, $56, $03, $00, $01, $00, $00, $07, $80);

SendADLEnd : array[0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $0E, $80, $09, $00, $00);

ADLStart   : array[0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $0E, $81, $04, $00, $00);

CheckADLUpload : array[0..11] of Byte =
($1B, $00, $10, $6f, $00, $06, $00, $17, $00, $00, $00, $00);
//1B  00    10   6F   00   06   00   12   B1   00   00   00
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

PreErase : array[0..15] of Byte =
($1B, $00, $10, $6F, $00, $0A, $00, $00, $00, $11, $00, $00, $49, $B0, $00, $00);

Erase    : array[0..23] of Byte =
($1B, $00, $10, $6F, $00, $12, $00, $16, $00, $42, $00, $01, $00, $0C, $00, $00, $00, $00, $00, $C0, $00, $00, $00, $00);


ULO1    : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $05, $01, $07, $00, $01, $00, $00, $00, $00);

ULO2    : array[0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $05, $02, $07, $00, $00, $00, $00, $00, $02);

ULO3    : array[0..11] of Byte =
($1B, $00, $10, $17, $00, $06, $00, $07, $03, $11, $01, $01);

ULO4    : array[0..11] of Byte =
($1B, $00, $10, $08, $00, $06, $00, $01, $04, $31, $00, $00);

ULO5    : array[0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $16, $05, $00, $00, $00);

ULO6    : array[0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $16, $06, $00, $00, $00);

ULO7    : array[0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $16, $07, $01, $00, $00);

ULO8    : array[0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $17, $08, $00, $00, $00);

ULO9    : array[0..19] of Byte =
($1B, $00, $10, $6F, $00, $0E, $00, $0E, $09, $02, $00, $1E, $00, $03, $6E, $C0, $F9, $63, $FF, $00);

ULO10    : array[0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $0E, $80, $09, $00, $00);

ULO11    : array[0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $0E, $81, $04, $00, $00);

Rcom1     : array[0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $07, $01, $01, $05, $00);

Rcom2     : array[0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $07, $01, $01, $04, $00);

FullFactory : array[0..15] of Byte =
($1B, $00, $10, $43, $00, $0A ,$00, $08, $02, $01, $78, $00, $00, $00, $00, $01);

UserDataRes : array[0..15] of Byte =
($1B, $00, $10, $43, $00, $0A ,$00, $08, $02, $01, $78, $00, $00, $00, $00, $02);

Leavefactoryset : array[0..15] of Byte =
($1B, $00, $10, $43, $00, $0A ,$00, $08, $02, $01, $78, $00, $00, $00, $00, $04);

ServiceCentre : array[0..15] of Byte =
($1B, $00, $10, $43, $00, $0A ,$00, $08, $02, $01, $78, $00, $00, $00, $00, $08);

Softupgr : array[0..15] of Byte =
($1B, $00, $10, $43, $00, $0A ,$00, $08, $02, $01, $78, $00, $00, $00, $00, $10);

ProductTune : array[0..15] of Byte =
($1B, $00, $10, $43, $00, $0A ,$00, $08, $02, $01, $78, $00, $00, $00, $00, $20);


LCDpat :  array[0..15] of byte =
($1B, $00, $10, $58, $00, $0A, $00, $0F, $00, $00, $12, $01, $00, $04, $00, $00);

getlockdata : array[0..10] of Byte =
($1B, $00, $10, $53, $00, $05, $00, $0F, $01, $12, $0D);

Get40ListGal: array[0..11] of Byte =
($1B, $00, $10, $6D, $00, $00, $00, $01, $00, $68, $00, $00);

Get40ChDir: array[0..11] of Byte =
($1B, $00, $10, $6D, $00, $00, $00, $01, $00, $6C, $00, $00);

Get60ListGal: array[0..17] of Byte =
($1B, $00, $10, $58, $00, $00, $00, $12, $0B, $0B, $00, $01, $F5, $00, $00, $0C, $80, $00);

Get60File: array[0..17] of Byte =
($1B, $00, $10, $58, $00, $00, $00, $11, $20, $0D, $10, $01, $07, $20, $0E, $0C, $80, $00);

RplWriteSimData : array [0..113] of Byte=
($1B, $00, $10, $53, $03, $8C, $00, $17, $00, $18, $10, $00, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $55, $00, $00);

RplWriteSimlockkeyslX : array [0..257] of Byte =
($1B, $00, $10, $53, $00, $FC, $00, $17, $01, $18, $0F, $01, $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, $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, $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, $00, $00, $00, $00, $00, $90, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,+
 +$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF);

RplWriteSD : array [0..15] of byte =
($1B, $00, $10, $08, $00, $00, $00, $18, $02, $17, $28, $32, $00, $00, $00, $00) ;

GetRootAsic : array [0..11] of byte =
($1B, $00, $10, $6F, $00, $06, $00, $0F, $03, $07, $00, $00);

selectAsicCMT : array [0..11] of byte =
($1B, $00, $10, $6F, $00, $06, $00, $0F, $06, $08, $00, $00);

adlrestersxr15 : array [0..11]of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $0F, $1D, $04, $02, $00);

ADLReboot : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $14, $09, $04, $00, $00);

ADlCheckSt : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $17, $08, $00, $00, $00);

AdlPreBootReq : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $18, $5B, $09, $02, $00);

ReqAdl80 : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $0F, $02, $80, $00, $00);

ADL80RootReq : array [0..15] of Byte =
($1B, $00, $10, $6F, $00, $0A, $00, $0F, $07, $84, $04, $00, $00, $02, $04, $06);

Flastartreq : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $0F, $09, $01, $00, $00);

Sendomapadl : array [0..15] of byte =
($1B, $00, $10, $6F, $00, $00, $00, $19, $00, $03, $00, $00, $00, $00, $00, $00);

Sendomapcrcadl : array [0..20] of byte =
($1B, $00, $10, $6F, $00, $0F, $00, $19, $00, $02, $00, $1E, $00, $00, $00, $00, $00, $00, $FF, $00, $00);

SendaAPecrcadl : array [0..15] of Byte =
($1B, $00, $10, $21, $00, $0A, $00, $19, $00, $02, $00, $1E, $00, $00, $00, $00);

Aperestartreq1 : array [0..11] of byte =
($1B, $00, $10, $6F, $00, $06, $00, $19, $00, $09, $00, $00);

RestartADl : array [0..11] of Byte =
($1B, $00, $10, $21, $00, $06, $00, $19, $00, $04, $00, $00);

oldsmgetroot : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $17, $02, $07, $00, $00);

adlstartmode : array [0..11] of Byte =
($1B, $00, $10, $23, $00 ,$06, $00, $18, $63, $42, $01, $00);

S81stpreboot : array [0..15] of Byte =
($1B, $00, $10, $1B, $00, $0A, $00, $02, $0B, $07, $00, $00, $00, $00, $00, $08);

S82ndpreboot : array [0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $0A, $62, $01, $01, $00);

S83rdpreboot : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $15, $63, $00, $00, $00);

S8getRootpreboot : array [0..11] of Byte =
($1B, $00, $10, $6F, $00, $06, $00, $15, $64, $01, $00, $00);

S8Seqvential : array [0..11] of byte =
($1B, $00, $10, $23, $00, $06, $00, $15, $65, $42, $01, $00);

adlboot0 : array [0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $0A ,$60, $01, $01, $00);

adlboot2 : array [0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $0E, $A4, $0E, $00, $00);

adlboot3 : array [0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $0A, $61, $02, $00, $00);

CMTfinish : array [0..11] of byte=
($1B, $00, $10, $6F, $00, $06, $00, $12, $B8, $09, $00, $00);

EndOmapFlash : array[0..11] of byte =
($1B, $00, $10, $6F, $00, $06, $00, $12, $BA, $04, $00, $00);

SetNlmode : array [0..11] of Byte =
($1B, $00, $10, $15, $00, $06, $00, $07, $00, $01, $01, $00);

get2420root : array [0..11] of byte =
($1B, $00, $10, $6F, $00, $06, $00, $17, $00, $07, $00, $00);

S40adl80CRTdata : array [0..91] of byte =
($1B, $00, $10, $6F, $00, $56, $00, $10, $00, $86, $04, $00, $14, $14, $00, $00, $44, $53, $50, $30, $00, $00, $00, $00, $00, $00, $00, $00, $99, $99, $99, $99, $14, $14, $00, $00, $4D, $43, $55, $53, $57, $00, $00, $00, $00, $00, $00, $00, $99, $99, $99, $99, $14, $14, $00, $00, $4E, $4F, $4C, $4F, $00, $00, $00, $00, $00, $00, $00, $00, $99, $99, $99, $99, $14, $14, $00, $00, $55, $50, $44, $41, $50, $50, $00, $00, $00, $00, $00, $00, $99, $99, $99, $99);

dccid1 : array [0..15] of Byte =
($1B, $00, $10, $61, $00, $0A, $00, $09, $15, $0B, $01, $01, $2B, $00, $00, $00);

NomandicAPeend : array [0..22] of byte =
($53, $01, $3A, $12, $01, $00, $02, $00, $00, $41, $4C, $47, $00, $00, $00, $00, $00, $00, $00, $00, $00, $03, $D8);

ApeNomUpl : array [0..17] of Byte =
($00, $00, $00, $12, $00, $20, $00, $CD, $00, $00, $00, $01, $02, $00, $00, $00, $01, $01);

ApeNomUpl2 : array [0..17] of Byte =
($00, $00, $00, $12, $00, $20, $00, $CD, $00, $00, $00, $01, $01, $00, $00, $00, $00, $00);

NomSelAPE : array [0..10] of Byte =
($00, $00, $00, $0B, $01, $20, $00, $D3, $68, $00, $FF);

NomSelectFlCmt : array [0..10] of Byte =
($00, $00, $00, $0B, $01, $10, $00, $E3, $66, $00, $FF);

fincmtbootrapido15 : array [0..30] of byte =
($00, $00, $00, $1F, $01, $20, $00, $BF, $53, $01, $3A, $12, $00, $08, $00, $50, $00, $41, $4C, $47, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $86);

cmtrunnomadic : array [0..17] of byte =
($00, $00, $00, $12, $00, $20, $00, $CD, $00, $00, $00, $01, $01, $00, $00, $00, $00, $01);

nomselcmt : array [0..10] of Byte =
($00, $00, $00, $0B, $01, $10, $00, $E3, $67, $00, $FF);

nomgetcmtpapub : array [0..13] of Byte =
($00, $00, $00, $0E, $01, $10, $00, $E0, $60, $01, $29, $01, $00, $D4);

nomcmreqcert : array [0..70] of Byte =
($00, $00, $00, $47, $01, $10, $00, $A7, $61, $04, $2B, $0D, $4E, $50, $43, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $2B, $0D, $48, $57, $43, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $2B, $0D, $43, $43, $43, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $2B, $0D, $52, $26, $44, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $CF);

nomselcmtfl : array [0..10] of Byte =
($00, $00, $00, $0B, $01, $20, $00, $D3, $67, $00, $FF);

nomgetapepapub : array[0..13] of Byte =
($00, $00, $00, $0E, $01, $20, $00, $D0, $60, $01, $29, $01, $01, $D3);

nomapereqcert : array [0..70] of Byte =
($00, $00, $00, $47, $01, $20, $00, $97, $61, $04, $2B, $0D, $4E, $50, $43, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $2B, $0D, $48, $57, $43, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $2B, $0D, $43, $43, $43, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $2B, $0D, $52, $26, $44, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $CF);

nomclosecmt : array [0..10] of byte =
($00, $00, $00, $0B, $01, $10, $00, $E3, $52, $00, $FF);

nomcloseape : array [0..10] of Byte =
($00, $00, $00, $0B, $01, $20, $00, $D3, $52, $00, $FF);

nomrebootreq : array [0..13] of Byte =
($00, $00, $00, $0E, $01, $F0, $00, $00, $53, $01, $33, $01, $02, $C8);

partitonwrite : array [0..23] of Byte =
($1B, $00, $10, $6F, $00, $12, $00, $00, $00, $88, $03, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);

writenewLt : array [0..63] of Byte =
($1B, $00, $10, $23, $00, $3A, $00, $08, $01, $02, $01, $75, $00, $00, $00, $00, $00, $00, $00, $2C, $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, $00, $00, $00, $00, $00, $00, $00, $00, $01, $FF, $00, $00);

rednpcreq : array [0..25] of Byte =
($00, $00, $00, $1A, $01, $10, $00, $02, $62, $04, $2B, $0D, $4E, $50, $43, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);

CRTwriteBuf : array [0..31] of Byte =
($00, $00, $00, $00, $01, $10, $00, $00, $5D, $01, $27, $2D, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF);

adlrootsend : array [0..31] of Byte =
($1B, $00, $10, $6F, $00, $1A, $00, $15, $41, $06, $00, $00, $12, $00, $CA, $EE, $BB, $65, $D3, $C4, $8E, $6D, $C7, $3B, $49, $DC, $50, $63, $A2, $EE, $2B, $F6);

pcupdatedata : array [0..23] of byte =
($1B, $00, $10, $1B, $00, $12, $00, $09, $D1, $0D, $00, $01, $4E, $0C, $00, $08, $00, $00, $00, $00, $00, $00, $00, $00);

WritePNs     : array[0..25] of Byte =
($1B, $00, $10, $1B, $00, $14, $00, $03, $0B, $0D, $00, $01, $4D, $0C, $00, $0A, $4B, $51, $42, $38, $33, $38, $33, $35, $31, $00);

WriteHWid : array [0..20] of Byte =
($1B, $00, $10, $1B, $00, $0F, $00, $09, $D3, $09, $00, $01, $49, $0C, $00, $05, $31, $30, $30, $30, $00);

GetPBstat : array [0..15] of Byte =
($1B, $00, $10, $03, $00, $0A, $00, $12, $00, $03, $00, $05, $00, $00, $00, $00);

S40GetCamSW :  array [0..15] of Byte =     //&&&& WTF???? O_O
($1B, $00, $10, $61, $00, $0A, $00, $0D, $33, $0B, $01, $01, $2A, $00, $00, $00);
//1B 00 10 58 00 0A 00 10 C3 13 29 01 FA 04 01 00

GetCamSW : array  [0..15] of Byte =
($1B, $00, $10, $58, $00, $0A, $00, $10, $C3, $13, $29, $01, $FA, $04, $01, $00);

GetCamHW : array [0..15] of Byte =
($1B, $00, $10, $58, $00, $0A, $00, $10, $C4, $13, $27, $01, $FA, $04, $01, $00);

uplcamsw : array [0..27] of Byte =
($1B, $00, $10, $58, $00, $00, $00, $10, $C5, $13, $28, $02, $FA, $04, $01, $00, $04, $00, $00, $8E, $00, $00, $00, $00, $00, $00, $00, $00);

s40uplcamsw : array [0..19] of Byte =
($1B, $00, $10, $61, $16, $0E, $00, $11, $CD, $97, $01, $01, $29, $00, $00, $00, $01, $01, $00, $00);

CLMahead : array [0..15] of Byte =
($1B, $00, $10, $08, $00, $00, $00, $18, $03, $17, $2B, $33, $00, $00, $00, $00);

implementation
end.