1 ;/* BEGIN INCLUDE FILE: xoscall.mac */
 2 
 3 ; HISTORY COMMENTS:
 4 ;  1) change(85-12-30,ASmith), approve(87-07-13,mcr7580),
 5 ;     audit(87-07-13,Leskiw), install(87-08-07,MR12.1-1072):
 6 ;     Created.
 7 ;                                                      END HISTORY COMMENTS
 8 
 9 ;/* : FUNCTION
10 ;
11 ;Provide macros to generate DOS and BIOS calls to the operating system
12 ;*/
13 
14 @bioscall MACRO call_num,parm
15 
16 ;; Generates an 'int call_num', with parm in AH
17 
18         ifnb <parm>             ;True if parm not blank
19         mov AH,parm
20         endif
21         int call_num            ;Generate interrupt call_num
22         ENDM
23 
24 
25 @doscall MACRO function,parm
26 
27 ;; Generates a DOS function call with parm in AL
28 
29         ifnb <parm>             ;True if parm not blank
30         mov AL,parm
31         endif
32         @bioscall 21h,function  ;Generate bios call to DOS
33         ENDM
34 
35 ; /* END INCLUDE FILE: xoscall.mac */
36 ^@