SoloCodigo
Programación General => Pascal => Mensaje iniciado por: sneider en Lunes 24 de Mayo de 2004, 14:39
-
Buenas,alguien puede decirme ke le hace falta a este programa echo en pascal y ensamblador 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.