Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : STRALEY.ZIP
Filename : LOCKASM.ASM
;-------------------
; Name LOCKASM.asm
; Date August 10, 1986
; Notice Copywright 1986, Stephen J. Straley
; Note Written in part by Fred Ho, this is to be used for
; the IBM only or absolutely 100% compatables.
;
; This routine checks the status of the four keys:
; caps, insert, num lock, and scroll lock. If the values
; are in capital letters, it is set on, otherwise, off.
;
; Call LCKTAB with any 4 character field
;
;-------------------
;
public LCKSTAT
;
datasg segment para 'DATA'
LCKTAB db 'icnS'
db 'icNs'
db 'icNS'
db 'iCns'
db 'iCnS'
db 'iCNs'
db 'iCNS'
db 'Icns'
db 'IcNs'
db 'IcNs'
db 'IcNS'
db 'ICns'
db 'ICnS'
db 'ICNs'
db 'ICNS'
;
NUMB1 db 10h
FOUR db 04h
;
datasg ends
;
;
_prog segment byte ; byte aligned
assume cs:_prog,ds:datasg,es:datasg
;
LCKSTAT proc far
push bp
mov bp,sp
push ds
push es
sub ax,ax
push ax
mov ax,datasg
mov es,ax
mov ds,ax
mov ah,02
int 16h
xor bx,bx
mov bl,al
mov ax,bx
div NUMB1
lea si,LCKTAB
dec al
mul FOUR
add si,ax
cld
les di,[bp + 6]
mov cx,04
rep movsb
stosb
pop ax
pop es
pop ds
pop bp
ret
LCKSTAT endp
;
;
;
_prog ends
end
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/