Var 0001, name iocp_teclas 

Var 0002, name teclado, Link IOCARD_KEYS, Device 13 
{ 
if &teclado = 71 // menu 
{ 
&k = 629 
} 
if &teclado = 79 // perf init 
{ 
&k = 624 
} 
if &teclado = 78 // rte 
{ 
&k = 625 
} 
if &teclado = 75 // des 
{ 
&k = 628 
} 
if &teclado = 70 // legs 
{ 
&k = 630 
} 
if &teclado = 67 // prog 
{ 
&k = 633 
} 
if &teclado = 63 // n1 altn 
{ 
&k = 634 
} 
if &teclado = 62 // fix 
{ 
&k = 635 
} 
if &teclado = 77 // clb 
{ 
&k = 626 
} 
if &teclado = 76 // crz 
{ 
&k = 627 
} 
if &teclado = 69 // dep 
{ 
&k = 631 
} 
if &teclado = 68 // hold 
{ 
&k = 632 
} 
if &teclado = 66 // ENTER 
{ 
&k = 13 
} 
if &teclado = 55 // Prev Pg 
{ 
&k = 33 
} 
if &teclado = 54 // Next Pg 
{ 
&k = 34 
} 
if &teclado = 7 // 0 
{ 
&k = 48 
} 
if &teclado = 32 // 1 
{ 
&k = 49 
} 
if &teclado = 31 // 2 
{ 
&k = 50 
} 
if &teclado = 30 // 3 
{ 
&k = 51 
} 
if &teclado = 24 // 4 
{ 
&k = 52 
} 
if &teclado = 23 // 5 
{ 
&k = 53 
} 
if &teclado = 22 // 6 
{ 
&k = 54 
} 
if &teclado = 16 // 7 
{ 
&k = 55 
} 
if &teclado = 15 // 8 
{ 
&k = 56 
} 
if &teclado = 14 // 9 
{ 
&k = 57 
} 
if &teclado = 8 // . 
{ 
&k = 190 
} 
if &teclado = 2 // barra 
{ 
&k = 191 
} 
if &teclado = 6 // + 
{ 
&k = 107 
} 
if &teclado = 3 // Delete 
{ 
&k = 46 
} 
if &teclado = 1 // Clr 
{ 
&k = 8 
} 
if &teclado = 4 // Clr 
{ 
&k = 32 
} 
if &teclado = 61 // A 
{ 
&k = 65 
} 
if &teclado = 60 // B 
{ 
&k = 66 
} 
if &teclado = 59 // C 
{ 
&k = 67 
} 
if &teclado = 58 // D 
{ 
&k = 68 
} 
if &teclado = 57 // E 
{ 
&k = 69 
} 
if &teclado = 53 // F 
{ 
&k = 70 
} 
if &teclado = 52 // G 
{ 
&k = 71 
} 
if &teclado = 51 // H 
{ 
&k = 72 
} 
if &teclado = 50 // I 
{ 
&k = 73 
} 
if &teclado = 49 // J 
{ 
&k = 74 
} 
if &teclado = 29 // K 
{ 
&k = 75 
} 
if &teclado = 28 // L 
{ 
&k = 76 
} 
if &teclado = 27 // M 
{ 
&k = 77 
} 
if &teclado = 26 // N 
{ 
&k = 78 
} 
if &teclado = 25 // O 
{ 
&k = 79 
} 
if &teclado = 21 // P 
{ 
&k = 80 
} 
if &teclado = 20 // Q 
{ 
&k = 81 
} 
if &teclado = 19 // R 
{ 
&k = 82 
} 
if &teclado = 18 // S 
{ 
&k = 83 
} 
if &teclado = 17 // T 
{ 
&k = 84 
} 
if &teclado = 13 // U 
{ 
&k = 85 
} 
if &teclado = 12 // V 
{ 
&k = 86 
} 
if &teclado = 11 // W 
{ 
&k = 87 
} 
if &teclado = 10 // X 
{ 
&k = 88 
} 
if &teclado = 9 // Y 
{ 
&k = 89 
} 
if &teclado = 5 // Z 
{ 
&k = 90 
} 
if &teclado = 56 // Linea 1L 
{ 
&k = 112 
} 
if &teclado = 64 // Linea 2L 
{ 
&k = 113 
} 
if &teclado = 72 // Linea 3L 
{ 
&k = 114 
} 
if &teclado = 80 // Linea 4L 
{ 
&k = 115 
} 
if &teclado = 88 // Linea 5L 
{ 
&k = 116 
} 
if &teclado = 87 // Linea 6L 
{ 
&k = 117 
} 

if &teclado = 86 // Linea 1R 
{ 
&k = 118 
} 
if &teclado = 85 // Linea 2R 
{ 
&k = 119 
} 
if &teclado = 84 // Linea 3R 
{ 
&k = 120 
} 
if &teclado = 83 // Linea 4R 
{ 
&k = 121 
} 
if &teclado = 82 // Linea 5R 
{ 
&k = 122 
} 
if &teclado = 74 // Linea 6R 
{ 
&k = 123 
} 


} 

var 5, name k, link subrutine 
{ 
if &k <> 0 
{ 
if &k = &tempk 
{ 
&offsetk = &k + &shift 
if &shift = 0 
{ 
&shift = 2048 
} 
else 
{ 
&shift = 0 
} 
} 
else 
{ 
&offsetk = &k 
&tempk = &k 
} 
&k = 0 
} 
} 

var 6, name tempk 

var 8, name shift 

Var 3000, Link FSUIPC_INOUT, name offsetk, Offset $5428, Length 2 // CDU Functions 

Var 3010, name fmcLeds, Link FSUIPC_INOUT, Offset $052C, Length 2 // FMC LEDs 
{ 
V3020 = TESTBIT V3010 ,0  // EXEC LED 
V3030 = TESTBIT V3010 ,1  // MSG LED
V3040 = TESTBIT V3010 ,2  // FAIL
V3050 = TESTBIT V3010 ,3  // OFST
// V3060 = TESTBIT V3010 ,4  // DSPY
} 

Var 3020, Link IOCARD_OUT, name OUTPUT2, device 13, Output 2  // FMC EXEC green led
Var 3030, Link IOCARD_OUT, name OUTPUT1, device 13, Output 1  // FMC MSG amber led
Var 3040, Link IOCARD_OUT, name OUTPUT4, device 13, Output 4  // FMC FAIL red led
Var 3050, Link IOCARD_OUT, name OUTPUT0, device 13, Output 0  // FMC OFST amber led
// Var 3060, Link IOCARD_OUT, name OUTPUT3, device 13, Output 3  // FMC DSPY red led