(HP50g) HpPascal and contrast of the screen

[DavidM]

Based on the code samples, the following may do what you need. I would recommend trying this on an emulated system first, of course:

Code:

function GetContrast: byte;
begin
   asm
      LC(5) #101
      D1=C
      A=DAT1 B
      LC(2) #1F
      A=A&C B
      C=R1 A
      D1=C
      DAT1=A B
   end;
end;