HP-41 Halfnut constrast setting

[Ángel Martin]

with value in X: (between 0 and 15)

Code:

094    "T"    
013    "S"    
012    "R"    
014    "T"    
003    "C"    Michael Katz
0F8    READ 3(X)    
38D    ?NC XQ    
008    ->02E3    [BCDBIN]
0A6    A<>C S&X    
130    LDI S&X    
010    CON: 16    
306    ?A<C S&X    
01F    JC   +03    
085    ?NC GO    
0A2    ->2821    
270    RAM SLCT    
3F0    PRPH SLCT    
0A6    A<>C S&X    
168    WRIT 5(M)    
149    ?NC GO    Select Chip0
026    ->0952    [ENCP00]