home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
CPROG
/
CEXPRESS.ZIP
/
BITS.ASM
/
PEEK.ASM
< prev
next >
Wrap
Assembly Source File
|
1989-05-03
|
562b
|
26 lines
;unsigned short peek(segment,offset);
; unsigned short segment,offset;
EXTRN _memory_model:byte
_TEXT SEGMENT BYTE PUBLIC 'CODE'
ASSUME CS:_TEXT
PUBLIC _peek
_peek proc near
mov bx,sp ;set stack frame
cmp _memory_model,0 ;near or far?
jle begin ;jump if near
inc bx ;else add 2 to BX
inc bx ;
begin: mov ax,ss:[bx+2] ;get segment
mov es,ax ;
mov di,ss:[bx+4] ;get offset
mov ax,es:[di] ;
cmp _memory_model,0 ;quit
jle quit ;
db 0CBh ;RET far
quit: ret ;RET near
_peek endp
_TEXT ENDS
END