home *** CD-ROM | disk | FTP | other *** search
-
- COMMENT $-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- CASTONOF.ASM 10/03/90
- by P. L. Olympia
-
- Program to enable or disable receipt of broadcast messages
- to a Novell workstation. This utility replaces Novell's
- CASTON and CASTOFF commands, and can be used from within
- any Dbase-compatible program
-
- Usage (for LOAD/CALL):
- LOAD castOnOf
- CALL castOnOf WITH "F" && (or 'f', equiv to CASTOFF
- (any other parameter, or no parameter means CASTON)
- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=$
-
- CODESEG SEGMENT PARA 'CODE'
- ASSUME CS:CODESEG
-
- CASTONOF PROC FAR
- Doit:
- JMP begin
-
- TootIt DB 'CastOnOf (c) 1990 by P. L. Olympia',13,10,26
-
- Begin: MOV AH,0DEH ;DEh is Set Broadcast Mode function
- CMP BYTE PTR DS:[BX],'F' ;check for parm of "F"
- JE CastOff ;turn it off
- CMP BYTE PTR DS:[BX],'f' ;check for parm of "f"
- JE CastOff ;turn it off
-
- CastOn: MOV DL,0
- JMP CallDos
-
- CastOff: MOV DL,2
-
- CallDos: INT 21H
- RET
- CASTONOF ENDP
- CODESEG ENDS
- END CASTONOF