Category : BASIC Source Code
Archive   : QBWIZ20.ZIP
Filename : REDIR.ASM

 
Output of file : REDIR.ASM contained in archive : QBWIZ20.ZIP

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