.TITLE MACRO DEFINITION FILE
/
/
/
/	FIRST PRINTING, JANUARY, 1975
/
/ THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
/ CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
/ AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
/ DIGITAL EQUIPMENT CORPORTAION ASSUMES NO RESPON-
/ SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
/ DOCUMENT.
/
/ THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR-
/ NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON
/ A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
/ INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR
/ USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO-
/ VIDED IN WRITING BY DIGITAL.
/
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/ FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT
/ THAT IS NOT SUPPLIED BY DIGITAL.
/
/ COPYRIGHT (C) 1975, BY DIGITAL EQUIPMENT CORPORATION.
/
/
	.EJECT
/
/MACRO DEFINITION FILE FOR DOS-15 MACRO.
/
/ 2-JAN-74	EDIT 1	J.M.WOLFBERG
/		EDIT 2 RCHM	 IMPLEMENT .SYSID MACRO.
/ 16-JUL-75	EDIT 3 JMW	PUT IN .XVMON, .XVMOFF, .MTRAN, AND .SETUP MACROS.
/ 11-SEPT-75	EDIT 4 JMW	CORRECT .TIMER EXPANSION.
/ 02-OCT-75	EDIT 5 JMW	CORRECTIONS TO SEVERAL EXPANSIONS.
/ 11-NOV-75	EDIT 6 GAR	DELETE %DOS=1 FROM .SYSID EXPANSION.
/
/THIS FILE IS READ BY MACRO FROM .DAT -1 AT ASSEMBLY TIME.
/ .DAT -1 IS ASSUMED TO BE ASSIGNED TO 'SYS' (EITHER 'BNK' OR 'PAG') AND THAT
/ MACDEF MAC IS IN THE RELEVANT UIC 'BNK' OR 'PAG'. ITS NAME CANNOT CHANGE WITHOUT
/ AN EDIT TO MACR15. IT IS PROCESSED BY THE ASSEMBLER IN THE SAME WAY THAT A
/ MACRO DEFINITION FILE SPECIFIED ON .DAT -14 IS HANDLED.
/
/THE SYSTEM MACROS CONTAINED IN THIS FILE ARE THOSE DESCRIBED IN THE DOS-15
/ USER'S MANUAL.
/
	.EJECT
/
/CLEAR ALL BIT MAPS AND DIRECTORIES ON THE DEVICE.
/
	.DEFIN .CLEAR,DS
	CAL DS&777
	5
	.ENDM
/
/CLOSE THE .DAT SLOT.
/
	.DEFIN .CLOSE,DS
	CAL DS&777
	6
	.ENDM
/
/DELETE A FILE FROM THE DIRECTORY OF THE DEVICE ASSOCIATED WITH THE 
/NAMED .DAT SLOT.
/
	.DEFIN .DLETE,DS,NAM
	CAL+1000 DS&777
	2
	NAM+0
	.ENDM
/
/INITIALIZE A DIRECTORY FOR A  NEW OUTPUT FILE.
/
	.DEFIN .ENTER,DS,NAM,P
	P+CAL*1000 DS&777
	4
	NAM+0
	.ENDM
/
/EXIT TO THE DOS-15 MONITOR.
/
	.DEFIN .EXIT
	CAL+0
	15
	.ENDM
/
/CLECK THE STATUS OF A FILE IN A DIRECTORY.
/
	.DEFIN .FSTAT,DS,NAM
	CAL+3000 DS&777
	2
	NAM+0
	.ENDM
/
/OVERLAY CORE WITH THE CONTENTS OF THE SPECIFIED FILE.
/
	.DEFIN .GET,F,NAM
	CAL+F&3407
	25
	NAM+0
	.ENDM
/
/REQUEST A BUFFER FROM THE SYSTEM BUFFER POOL.
/
	.DEFIN .GTBUF
	CAL+0
	21
	0
	.ENDM
/
/RETURN A BUFFER TO THE SYSTEM BUFFER POOL.
/
	.DEFIN .GVBUF
	CAL+0
	22
	0
	.ENDM
/
/INITIALIZE A DEVICE AND DEVICE HANDLER.
/
	.DEFIN .INIT,DS,DD,RES
	CAL+DD*1000 DS&777
	1
	RES+0
	0
	.ENDM
/
/PERFORM FUNCTION UNIQUE TO INDUSTRY-STANDARD MAGNETIC TAPE.
/
	.DEFIN .MTAPE,DS,NN
	CAL+NN*1000 DS&777
	7
	.ENDM
/
/REPLACES THE MONITOR .TRAN ROUTINE.
/
	.DEFIN .MTRAN
	CAL
	17
	.ENDM
/
/REQUEST THE SYSTEM LOADER TO BRING INTO CORE AND START THE CORE
/IMAGE SYSTEM PROGRAM WHOSE NAME IS POINTED TO BY "NAMPTR".
/
	.DEFIN .OVRLA,NAM
	CAL+0
	24
	NAM+0
	.ENDM
/
/CREATE A FILE CONTAINING THE CURRENT CORE IMAGE.
/
	.DEFIN .PUT,F,NAM
	CAL+F&3407
	26
	NAM+0
	.ENDM
/
/OPEN A DISK FILE FOR RANDOM ACCESS.
/
	.DEFIN .RAND,DS,NAM
	CAL+5000 DS&777
	2
	NAM+0
	0
	.ENDM
/
/READ THE NEXT LOGICAL RECORD INTO THE USER'S I/O BUFFER.
/
	.DEFIN .READ,DS,M,BUF,WDC
	CAL+M*1000 DS&777
	10
	BUF+0
	.DEC
	-WDC+0
	.ENDM
/
/RENAME A FILE.
/
	.DEFIN .RENAM,DS,NAM
	CAL+2000 DS&777
	2
	NAM+0
	.ENDM
/
/ACCESS A DISK FILE RANDOMALLY.
/
	.DEFIN .RTRAN,DS,D,REL,BUF,BEG,WDC
	CAL+4000 DS&777
	2
	D*400000+REL
	BUF+0
	BEG+0
	.DEC
	-WDC+0
	.ENDM
/
/OPEN A FILE ON A DIRECTORIED DEVICE.
/
	.DEFIN .SEEK,DS,NAM
	CAL DS&777
	3
	NAM+0
	.ENDM
/
/I/O DEVICE HANDLERS SETUP.
/
	.DEFIN .SETUP API,SKP,ADR
	CAL+API
	16
	SKP+0
	ADR+0
	.ENDM
/
/ALLOW PROGRAMS TO SCHEDULE ROUTINES TO BE CALLED AFTER SPECIFIC TIME INTERVALS.
/
	.DEFIN .TIMER,N,ADR
	CAL+0
	14
	ADR+0
	.DEC
	-N+0
	.ENDM
/
/ALLOW DEVICE-DEPENDENT, NON-DIRECTORIED INPUT AND OUTPUT TO ANY MASS
/STORAGE DEVICE.
/
	.DEFIN .TRAN,DS,D,BLK,BUF,WDC
	CAL+D*1000 DS&777
	13
	BLK+0
	BUF+0
	.DEC
	-WDC+0
	.ENDM
/
/ALLOWS USERS TO DYNAMICALLY ASSIGN UIC'S TO DESIRED UFDT SLOTS.
/
	.DEFIN .USER,DS,UIC
	CAL DS&777
	23
	.SIXBT 'UIC'
	.ENDM
/
/OBTAINS AND HOLDS CONTROL UNTIL A USER'S I/O BUFFER IS AVAILABLE AFTER
/AN I/O OPERATION.
/
	.DEFIN .WAIT,DS
	CAL DS&777
	12
	.ENDM
/
/SAME A .WAIT, EXCEPT RETURNS CONTROL TO ADDRESS SPECIFIED AS AN ARGUMENT
/TO THE CAL, IF THE I/O IS NOT COMPLETE.
/
	.DEFIN .WAITR,DS,ADR
	CAL+1000 DS&777
	12
	ADR+0
	.ENDM
/
/TRANSFER A LOGICAL RECORD FROM THE USER'S I/O BUFFER TO THE HANDLER'S BUFFER.
/
	.DEFIN .WRITE,DS,M,BUF,WDC
	CAL+M*1000 DS&777
	11
	BUF+0
	.DEC
	-WDC+0
	.ENDM
/
/TURN OFF XVM MODE.
/
	.DEFIN .XVMOFF
	CAL+0
	20
	.ENDM
/
/TURN XVM ON.
/
	.DEFIN .XVMON
	CAL+1
	20
	.ENDM
/
/+
/ PROVIDE A COMMON SET OF NAMING CONVENTIONS FOR XVM AND A COMMON
/ SET OF SYSTEM DEFINITIONS (%DOS, %XVM, %VERSN, %RELES)
/-
	.DEFIN .SYSID,FNT,BAK
	.IFUND %XVM
%XVM=1
	.ENDC
	.IFUND %VERSN
%VERSN=1
	.ENDC
	.IFUND %RELES
%RELES=1
	.ENDC
	.DEFIN .SYSID,FR,BK
FR@XVM V1A@BK
	.ENDM
/
/
	.SYSID <FNT>,<BAK>
	.ENDM
	.EOT