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.