;Copyright 2000 - Mark McDonald All rights reserved
; DECLARE: FUNCTION isins() AS INTEGER
; DESC:    Return the status of the Ins bit.
; EXAMP:   IF isins THEN GOTO InsertChar

MCODE Segment Byte
        Assume  CS: MCODE

        Public  isins

isins Proc Far
        push    ES                      ;

        xor     AX,AX                   ;
        mov     ES,AX                   ;
        test    Byte Ptr ES: [417h],128 ; test the Insert Key bit
        jz      Exit                    ; it's not set, exit
        inc     AX                      ; set AX to true (1)
Exit:
        pop     ES                      ;
        retf                            ;
isins EndP
MCODE EndS
        End