sneider
24 de Mayo del 2004

Buenas,alguien puede decirme ke le hace falta a este programa para que me compile en DEV-PASCAL ? no se si eske le falta algo o hay errores ke yo no deduzco. el codigo es el siguiente:
Unit LED;


Interface

Procedure Caps(ONorOFF:boolean);
Procedure NumLock(ONorOFF:boolean);
Procedure ScrLock(ONorOFF:boolean);

Implementation

Procedure Caps(ONorOFF:boolean);Assembler;

asm{
cmp ONorOFF,1
je @BeLight
jmp @BeDarkness
@BeLight:
MOV SI,40h
MOV ES,SI
MOV AL,ES:[0017h]
OR AL,40h
MOV ES,SI
MOV ES:[0017h],AL
jmp @FINISH
@BeDarkness:
MOV SI,40h
MOV ES,SI
MOV AL,ES:[0017h]
AND AL,0BFh
MOV ES,SI
MOV ES:[0017h],AL
@FINISH:
end;
}
Procedure NumLock(ONorOFF:Boolean);Assembler;
asm{
cmp ONorOFF,1
je @BeLight
jmp @BeDarkness
@BeLight:
MOV SI,40h
MOV ES,SI
MOV AL,ES:[0017h]
OR AL,20h
MOV ES,SI
MOV ES:[0017h],AL
jmp @FINISH
@BeDarkness:
MOV SI,40h
MOV ES,SI
MOV AL,ES:[0017h]
AND AL,0DFh
MOV ES,SI
MOV ES:[0017h],AL
@FINISH:
end;
}
Procedure ScrLock(ONorOFF:Boolean);Assembler;
asm {
cmp ONorOFF,1
je @BeLight
jmp @BeDarkness
@BeLight:
MOV SI,40h
MOV ES,SI
MOV AL,ES:[0017h]
OR AL,10h
MOV ES,SI
MOV ES:[0017h],AL
jmp @FINISH
@BeDarkness:
MOV SI,40h
MOV ES,SI
MOV AL,ES:[0017h]
AND AL,0EFh
MOV ES,SI
MOV ES:[0017h],AL
@FINISH:
end;
}
END.