;Copyright 2000 - Mark McDonald All rights reserved
; DECLARE: FUNCTION issl() AS INTEGER
; DESC:    Get the status of the scroll lock key.
; EXAMP:   IF issl THEN .....

MCODE Segment Byte
        Assume  CS: MCODE

        Public  issl

issl Proc Far
        push    ES                      ;

        xor     AX,AX                   ; clear AX
        mov     ES,AX                   ; set ES to bios data segment
        test    Byte Ptr ES: [417h],16  ; is scroll lock bit set?
        jz      Exit                    ; no, exit with AX set to zero
        inc     AX                      ; set AX to true (1)
Exit:
        pop     ES                      ;
        retf
issl EndP
MCODE EndS
        End