source: rtems/c/src/lib/libbsp/i386/ts_386ex/tools/dos_sup/ts1325.inc @ 16a384cf

; Some nasm macros to turn on TS-1325 LEDs and wait for button presses.
; This should be '%include'ed in your nasm source file.
;
; Tony Ambardar

P1LTC  equ  0F862h
P1PIN  equ  0F860h

%macro  LED_OFF         0
        mov     dx, P1LTC
        in      al, dx
        or      al, 01000000b           ; turn off red
        and     al, 11011111b           ; turn off green
        out     dx, al
%endmacro

%macro  LED_GRN         0
        mov     dx, P1LTC
        in      al, dx
        or      al, 01100000b           ; turn off red, turn on green
        out     dx, al
%endmacro

%macro  LED_YEL         0
        mov     dx, P1LTC
        in      al, dx
        or      al, 00100000b           ; turn on green
        and     al, 10111111b           ; turn on red
        out     dx, al
%endmacro

%macro  LED_RED         0
        mov     dx, P1LTC
        in      al, dx
        and     al, 10011111b           ; turn on red, turn off green
        out     dx, al
%endmacro

%macro  PSW_WAIT        0
        mov     dx, P1PIN               ; Get PSW state
        mov     ecx, 80000h
%%read  in      al, dx
        test    al, 00000001b           ; is PSW asserted?
        jnz     %%read                  ; if not, we're done
        dec     ecx
        jnz     %%read
%endmacro