home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
hamradio
/
wattcp.zip
/
SEMAPHOR.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-05-16
|
713b
|
41 lines
PAGE 66,132
;
;
;
;
;
;
;
;
; semaphor
;
; perform semaphor stuff
;
; (c) 1990 University of Waterloo,
; Faculty of Engineering,
; Engineering Microcomputer Network Development Office
;
;
;
include masmdefs.hsm
include model.hsm
codedef semaphor
datadef
;*************************************************************************
; USAGE: int sem_up( UINT far * p)
; 1 on failure
; 0 on success
;*************************************************************************
cstart semaphor
cpublic sem_up
mov AX, 1
les DI, +@AB [BP] ; get pointer
xchg AX, word ptr ES:[DI] ; perform swap
creturn sem_up
cend semaphor
end