home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
dos
/
prg
/
bas
/
hanlin3
/
qbwiz20
/
redir.asm
< prev
next >
Wrap
Assembly Source File
|
1992-07-14
|
2KB
|
52 lines
comment #
+----------------------------------------------------------------------+
| |
| QBWiz Copyright (c) 1990-1992 Thomas G. Hanlin III |
| |
| QuickBasic Access Library |
| |
+----------------------------------------------------------------------+
#
public REDIRIN, REDIROUT
.model medium
.code
REDIROUT proc ; see if output is redirected
mov al,b$IOFLAG ;
shr ax,1 ;
shr ax,1 ;
mov ax,0 ;
rcl ax,1 ;
neg ax ;
ret ;
REDIROUT endp ; see if output is redirected
REDIRIN proc ; see if input is redirected
mov al,b$IOFLAG ;
shr ax,1 ;
mov ax,0 ;
rcl ax,1 ;
neg ax ;
ret ;
REDIRIN endp ; see if input is redirected
.data
extrn b$IOFLAG: byte
end