; ; EXTRACTS FROM THE RT11 SYSTEM MACRO LIBRARY ; COPIED FROM THE LISTING IN APPENDIX B ; OF THE RT11 ADVANCED PROGRAMMER'S GUIDE ; ; .MACRO ..V1.. .MCALL ...CM0,...CM1,...CM2,...CM3,...CM4,...CM5,...CM6 ...V1=1. .ENDM .MACRO ..V2.. .MCALL ...CM0,...CM1,...CM2,...CM3,...CM4,...CM5,...CM6 ...V1=2. .ENDM .MACRO .MACS .MCALL ...CM0,...CM1,...CM2,...CM3,...CM4,...CM5,...CM6 ...V1=3. .ENDM .MACRO ...CM0 STARG .IF B CLR -(6.) .IFF .IF IDN ,#0 CLR -(6.) .IFF MOV STARG,-(6.) .ENDC .ENDC .ENDM .MACRO ...CM1 AREA,IC,CHAN,FLAG ...CM5 ...V2=0 .IF B .IIF B , ...V2=1 .IFF .IIF DIF ,SET, ...V2=1 .ENDC .IF NE ...V2 .IF IDN ,<#0> CLRB (0) .IFF .IF NB MOVB CHAN,(0) .ENDC .ENDC .IFF .IF B MOVB #IC,1(0) .IFF .NTYPE ...V2,CHAN .IF EQ ...V2-^O27 MOV CHAN+,(0) .IFF MOV #IC*^O400,(0) MOVB CHAN,(0) .ENDC .ENDC .ENDC .ENDM .MACRO ...CM2 ARG,OFFSE,INS,CSET,BB .IF B .IF NB .IF NE ...V1-3. CLR'BB OFFSE(0) .ENDC .ENDC .IFF .IF IDN ,#0 CLR'BB OFFSE(0) .IFF MOV'BB ARG,OFFSE(0) .ENDC .ENDC .IF NB EMT ^O375 .ENDC .ENDM .MACRO ...CM3 CHAN,IC .IF B MOV #IC*^O400,%0 .IFF .NTYPE ...V2,CHAN .IF EQ ...V2-^O27 MOV CHAN+,%0 .IFF MOV #IC*^O400,%0 BISB CHAN,%0 .ENDC .ENDC EMT ^O374 .ENDM .MACRO ...CM4 AREA,CHAN,BUF,WCNT,BLK,CRTN,IC,CODE ...CM1 ,,,


...CM2 ,2.
...CM2 ,4.
...CM2 ,6.
...CM2 ,8.,X
.ENDM
.MACRO ...CM5	SRC,BB
.IF NB 
.IF DIF ,R0
	MOV'BB	SRC,%0
.ENDC
.ENDC
.ENDM
.MACRO ...CM6  AREA,IC,CHAN,FLAG
...CM5 
.IF B 
.IF NB 
	MOV	#IC*^O400+CHAN,(0)
.ENDC
.IFF
.IF IDN ,SET
	MOV	#IC*^O400+CHAN,(0)
.ENDC
.ENDC
.ENDM
.MACRO .CDFN	AREA,ADDR,NUM,CODE
.IF NDF ...V1
.MCALL .MACS
.MACS
.ENDC
...CM6 ,13.,0,
...CM2 ,2.
...CM2 ,4.,X
.ENDM
.MACRO .CHAIN
	MOV	#8.*^O400,%0
	EMT	^O374
.ENDM
.MACRO .CHCOP	AREA,CHAN,OCHAN,CODE
.IF NDF ...V1
.MCALL .MACS
.MACS
.ENDC
...CM1 ,11.,,
...CM2 ,2.,X
.ENDM
.MACRO .CLOSE	CHAN
.IF NDF ...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ ...V1-1
	EMT	^O<160+CHAN>
.IFF
...CM3 ,6.
.ENDC
.ENDM
.MACRO .CNTXS	AREA,ADDR,CODE
.IF NDF ...V1
.MCALL .MACS
.MACS
.ENDC
...CM6 ,27.,0,
...CM2 ,2.,X
.ENDM
.MACRO .CMKT	AREA,ID,TIME,CODE
.IF NDF ...V1
.MCALL .MACS
.MACS
.ENDC
...CM6 ,19.,0.,
...CM2 ,2.
...CM2 ,4.,X,X
.ENDM
.MACRO .CRAW	AREA,ADDR,CODE
.IF NDF ...V1
.MCALL .MACS
.MACS
.ENDC
...CM6 ,30.,2.,
...CM2 ,2.,X
.ENDM
.MACRO .CRRG	AREA,ADDR,CODE
.IF NDF ...V1
.MCALL .MACS
.MACS
.ENDC
...CM6 ,30.,0,
...CM2 ,2.,X
.ENDM
.MACRO .CSIGE	DEVSPC,DEFEXT,CSTRNG,LINBUF
.IF NDF ...V1
.MCALL .MACS
.MACS
.ENDC
.IF NB 
...CM0 
.NTYPE ...V2,DEVSPC
.IF EQ ...V2-^O27
...CM0 
.IFF
...CM0 
	INC	(6.)
.ENDC
.IFF
...CM0 
.ENDC
...CM0 
...CM0 
	EMT	^O344
.ENDM
	.MACRO	.TTYOUT	CHAR
	.IF NB	
	.IF DIF	,R0
		MOV	%0,-(%6)
		MOVB	CHAR,%0
	.ENDC
	.ENDC
		EMT	^O341
		BCS	.-2.
	.IF	NB	
	.IF	DIF	,R0
		MOV	(%6)+,%0
	.ENDC
	.ENDC
	.ENDM
	.MACRO	.TTYIN	CHAR
	.IF	NB	
	.IF	DIF	,R0
		MOV	%0,-(%6)
	.ENDC
	.ENDC
		EMT	^O340
		BCS	.-2.
	.IF NB	
	.IF DIF ,R0
		 MOVB	%0,CHAR
		MOV	(%6)+,%0
	.ENDC
	.ENDC
	.ENDM
	.MACRO	.PRINT	ADDR
	.IF NB	
	.IF DIF ,R0
		MOV	%0,-(%6)
		MOV	ADDR,%0
	.ENDC
	.ENDC
		EMT	^O351
	.IF	NB	
	.IF	DIF	,R0
		MOV	(%6)+,%0
	.ENDC
	.ENDC
	.ENDM
	.MACRO	.EXIT
		 EMT	^O350
	.ENDM
.MACRO .REGDEF
.ENDM
.MACRO .QSET X,Y,Z,A,B,C
.ENDM
.MACRO .CSISP	OUTSP,DEFEXT,CSTRNG,LINBUF
.IF NDF ...V1
.MCALL .MACS
.MACS
.ENDC
.IF NB 
...CM0	
.NTYPE	...V2,OUTSP
.IF EQ	...V2-^O27
...CM0	
.IFF
...CM0	
	INC	(6.)
.ENDC
.IFF
...CM0	
.ENDC
...CM0	
...CM0	
	EMT	^O345
.ENDM
.MACRO	.CSTAT	AREA,CHAN,ADDR,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM1	,23.,,
...CM2	,2.,X
.ENDM
.MACRO	.CTIMI	TBK
	JSR	%5,@$TIMIT
	.WORD	TBK-.
	.WORD	1
.ENDM
.MACRO	.DATE
	MOV	#10.*^O400,%0
	EMT	^O374
.ENDM
.MACRO	.DELET	AREA,CHAN,DBLK,SEQNUM,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
	EMT	^O
.IFF
...CM5	
.IF IDN	,#0
	CLR	(0)
.IFF
...V2=0
.IF B	
.IIF B	,	...V2=1
.IFF
.IIF DIF , SET,	...V2=1
.ENDC
.IF NE	...V2
.IF NB	
	MOVB	CHAN,(0)
.ENDC
.IFF
.IF B	
	CLRB	1(0)
.IFF
.NTYPE	...V2,CHAN
.IF EQ	...V2-^O27
	MOV	CHAN,(0)
.IFF
	CLR	(0)
	MOVB	CHAN,(0)
.ENDC
.ENDC
.ENDC
.ENDC
...CM2	,2.
...CM2	,4.,X,X
.ENDC
.ENDM
.MACRO	.DEVIC	AREA,ADDR,LINK,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF B	LINK
...CM6	,12.,0,
.IFF.
...CM6	,12.,1,
.ENDC
...CM2	,2.,X
.ENDM
.MACRO	.GTLIN	LINBUF,PROMPT
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM0		
...CM0	#1
...CM0	
	CLR	-(6.)
	EMT	^O345
.ENDM
.MACRO .READ	AREA,CHAN,BUF,WCNT,BLK,CRTN=#1,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
...CM0	#1
...CM0	
...CM0	
	EMT	^O<200+AREA>
.IFF
...CM4	,,,,,,8.,
.ENDC
.ENDM
.MACRO	.READC	AREA,CHAN,BUF,WCNT,CRTN,BLK,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
...CM0	
...CM0	
...CM0	
	EMT	^O<200+AREA>
.IFF
...CM4	,,,,,,8.,
.ENDC
.ENDM
.MACRO	.READW	AREA,CHAN,BUF,WCNT,BLK,CRTN=#0,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
...CM0
...CM0	
...CM0	
	EMT	^O<200+AREA>
.IFF
...CM4	,,,,,,8.,
.ENDC
.ENDM
.MACRO 	.RELEA	DNAM
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM5	
...CM0
	EMT	^O343
.ENDM
.MACRO	.RENAM	AREA,CHAN,DBLK,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ ...V1-1
...CM5	
	EMT	^O<100+AREA>
.IFF
...CM1	,4.,,
...CM2	,2.,X
.ENDC
.ENDM
.MACRO	.REOPE	AREA,CHAN,DBLK,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
	EMT	^O<140+AREA>
.IFF
...CM1	,6.,,
...CM2	,2.,X
.ENDC
.ENDM
.MACRO	.SAVES	AREA,CHAN,DBLK,CODE
.IF NDF	...V1
.MCALL	.MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
	EMT	^O<120+AREA>
.IFF
...CM1	,5.,,
...CM2	,2.,X
.ENDC
.ENDM
.MACRO	.WRITE	AREA,CHAN,BUF,WCNT,BLK,CRTN=#1,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
...CM0	#1
...CM0	
...CM0	
	EMT	^O<220+AREA>
.IFF
...CM4	,,,,,,9.,
.ENDC
.ENDM
.MACRO	.WRITC	AREA,CHAN,BUF,WCNT,CRTN,BLK,CODE
.IF NDF	...V1
.MCALL	.MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
...CM0	
...CM0	
...CM0	
	EMT	^O<220+AREA>
.IFF
...CM4	,,,,,,9.,
.ENDC
.ENDM
.MACRO	.WRITW	AREA,CHAN,BUF,WCNT,BLK,CRTN=#0,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
...CM0
...CM0	
...CM0	
	EMT	^O<220+AREA>
.IFF
...CM4	,,,,,,9.,
.ENDC
.ENDM
.MACRO	.WAIT	CHAN
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ	...V1-1
	EMT	^O<240+CHAN>
.IFF
.IF B	
	CLR	%0
.IFF
.NTYPE	...V2,CHAN
.IF EQ	...V2-^O27
.IF IDN	,#0
	CLR	%0
.IFF
	MOV	CHAN,%0
.ENDC
.IFF
	CLR	%0
	BISB	CHAN,%0
.ENDC
.ENDC
	EMT	^O374
.ENDC
.ENDM
.MACRO	.TTINR
	EMT	^O340
.ENDM
.MACRO	.TTOUTR
	EMT	^O341
.ENDM
.MACRO	.TRPSE	AREA,ADDR,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM6	,3.,0,
...CM2	,2.,X
.ENDM
.MACRO	.TWAIT	AREA,TIME,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM6	,20.,0,
...CM2	,2.,X
.ENDM
.MACRO	.UNLOC
	EMT	^O347
.ENDM
.MACRO	.UNPRO	AREA,ADDR,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM6	,25.,1,
...CM2	,2.,X
.ENDM
.MACRO	.PROTE	AREA,ADDR,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM6	,25.,0,
...CM2	,2.,X
.ENDM
.MACRO	.PURGE	CHAN
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM3	,3.
.ENDM
.MACRO	.RCTRL
	EMT	^O355
.ENDM
.MACRO	.SFPA	AREA,ADDR,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM6	,24.,0,
...CM2	,2.,X
.ENDM
.MACRO	.SPFUN	AREA,CHAN,FUNC,BUF,WCNT,BLK,CRTN,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM1	,26.,,
...CM2	,2.
...CM2	,4.
...CM2	,6.
.IF NB	FUNC
.NTYPE	...V2,FUNC
.IF NE	...V2-^O27
.IIF DIF	,NOSET,...CM2	#^O377,8.,,,B
...CM2	,9.,,,B
.IFF
...CMS	,8.
.ENDC
.ENDC
...CM2	,10.,X,X
.ENDM
.MACRO	.SRESE
	EMT	^O352
.ENDM
.MACRO	.SPND
	MOV	#1*^O400,%0
	EMT	^O374
.ENDM
.MACRO	.SERR
	MOV	#4.*^O400,%0
	EMT	^O374
.ENDM
.MACRO	.SETTO	ADDR
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM5	
	EMT	^O354
.ENDM
.MACRO	.SCCA	AREA,ADDR,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM6	,29.,0,
...CM2	,2.,X
.ENDM
.MACRO	.RSUM
	MOV	#2*^O400,%0
	EMT	^O374
.ENDM
.MACRO	.GVAL	AREA,OFFSE,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM6	,28.,0,
...CM2	,2.,X
.ENDM
.MACRO	.HERR
	MOV	#5.*^O400,%0
	EMT	^O374
.ENDM
.MACRO	.HRESE
	EMT	^O357
	.ENDM
.MACRO	.LOOKU	AREA,CHAN,DBLK,SEQNUM,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
	EMT	^O<20+AREA>
.IFF
...CM1	,1,,
...CM2	,2.
...CM2	,4.,X,X
.ENDC
.ENDM
.MACRO	.MAP	AREA,ADDR,CODE
.IF NDF	...V1
.MCALL	.MACS
.MACS
.ENDC
...CM6	,30.,4.,
...CM2	,2.,X
.ENDM
.MACRO	.MFPS	ADDR
	MOV	@#^O54,-(6.)
	ADD	#^O362,(6.)
	JSR	7.,@(6.)+
.IIF NB		MOVB	(6.)+,ADDR
.ENDM
.MACRO	.MTPS	ADDR
.IIF NB		CLR	-(6.)
.IIF NB		MOVB	ADDR,(6.)
	MOV	@#^O54,-(6.)
	ADD	#^O360,(6.)
	JSR	7.,@(6.)+
.ENDM
.MACRO	.ENTER	AREA,CHAN,DBLK,LEN,SEQNUM,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
.IF EQ	...V1-1
...CM5	
...CM0	
	EMT	^O<40+AREA>
.IFF
...CM1	,2.,,
...CM2	,2.
...CM2	,4.,,X
...CM2	,6.,X,X
.ENDC
.ENDM
.MACRO	.FETCH	ADDR,DNAM
.IF NDF	...V1
.MCALL	.MACS
.MACS
.ENDC
...CM5	
...CM0	
	EMT	^O343
.ENDM
.MACRO	.GTIM	AREA,ADDR,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM6	,17.,0,
...CM2	,2.,X
.ENDM
.MACRO	.GTJB	AREA,ADDR,CODE
.IF NDF	...V1
.MCALL .MACS
.MACS
.ENDC
...CM6	,16.,0,
...CM2	,2.,X
.ENDM
.MACRO	.DSTAT	RETSPC,DNAM
.IF NDF  ...V1
.MCALL	.MACS
.MACS
.ENDC
...CM5	
...CM0	
	EMT	^O342
.ENDM