.NLIST

; CMAC.MAC Version 3b 27-Mar-86
;	Add DEC's JSW definitions
; CMAC.MAC Version 3a 23-Sep-85
;	Add gtlin
; CMAC.MAC Version 3  13-Jun-82

.nlist	toc
.enabl	lc
.dsabl	crf

.sbttl File of useful macros

.sbttl	Homegrown section:

.sbttl		TYPE, for clearer messages

.macro	type	arg
	.save
	.psect	mesage	con
	$$$=.
	.ascii	arg
	.restore
	mov	r0,-(sp)
	mov	#$$$,r0
	emt	^o351
	mov	(sp)+,r0
.endm	type


.sbttl		TX, to extend TYPE

.macro	tx	arg
	.save
	.psect	mesage	con
	$$$=.
	.ascii	arg
	.restore
.endm	tx


.sbttl		MOVS, to obtain a string address

.macro	movs	string,loc
	.save
	.psect	mesage	con
	$$$=.
	.ascii	string
	.restore
	mov	#$$$,loc
.endm	movs


.sbttl		REF, to place an address of a string

.macro	ref	string
	.save
	.psect	mesage	con
	$$$=.
	.ascii	string
	.restore
	.word	$$$
.endm	ref

.sbttl		GTLIN, to use .gtlin effectively

.macro	gtlin	prompt,buffer
	.save
	.psect	mesage	con
	$$$=.
	.ascii	prompt
	.restore
	.gtlin	buffer,#$$$
.endm	gtlin


.sbttl	Some ANU General-purpose Macros

.sbttl	General Stack Handling macros

.sbttl 		PUSH

.macro	push	list
	.irp	....rx,<list>
	mov	....rx,-(sp)
	.endm
.endm	push


.sbttl			POP

.macro	pop	list
	.irp	....rx,<list>
	mov	(sp)+,....rx
	.endm
.endm	pop

.SBTTL	General parameters

jsw=44
;DEC versions
uswap$=100000
ttlc$=40000
rstrt$=20000
ttspc$=10000
chnif$=4000
virt$=2000
ovly$=1000
chain$=400
hlter$=200
tcbit$=100
spxit$=40
edit$=20
gtlin$=10

;Old versions
b.ttlc=40000
b.rent=20000
b.tspm=10000
b.kmon=4000
b.nonp=2000
b.ovl=1000
b.chn=400
b.erh=200
b.tinh=100
b.fesc=40
b.pesc=20
b.gtln=10

;Error bytes

errbyt=52
userrb=53
	succs$=1
	warn$=2
	error$=4
	sever$=10
	ufatal$=20

;Channel Status Word
activ$=100000
b.eof=20000
eof$=20000
dblk$m=17400
dwrit$=200
renam$=100
indx$m=76
b.hderr=1
hderr$=1

;Locations within RMON.  Mentioned for reference but only a few actually
;	defined in this version of CMAC

	sysptr=54
;	l.dat=262
	l.usr=266
;	l.iox=270
	l.sde=272
	l.sys=275
	l.ver=276
	l.rls=277
	l.cfg=300
;		b.sjfb=1
;		b.grph=4
;		b.batc=10
;		b.clok=40
;		b.fp11=100
;		b.fore=200
;		b.scrl=400
;		b.usrr=1000
;		b.1103=4000
;		b.xm=10000
;		b.scsr=20000
;		b.kw11=40000
;		b.lpck=100000
	l.tty=304
	l.ent=314
	l.syn=324
;	l.grph=354
	l.tps=360
	l.fps=362
;	l.ifl=366
;	l.cn2=370
;		b.cch=1
;		b.par=2
;		b.swr=4
;		b.cdr=10
;		b.eis=400
;		b.vs60=1000
;		b.1170=40000
;		b.1160=100000
;	l.syg=372
;		b.erl=1
;		b.mmg=2
;		b.iot=4
;		b.mpo=1000
;		b.sjt=2000
;		b.esc=14000
;		b.mtt=20000
	l.usr=374
;	l.nes=377
;	l.bat=400
;	l.frk=402

	
con.c=3
bel=7
bs=10
tab=11
lf=12
vt=13
ff=14
cr=15
esc=33
rub=177


.mcall	.sreset,.csigen,.rctrlo,.print,.ttyou,.ttyin,.exit,.gtlin,.settop


.enabl	crf
.list	toc
.list
                                                                                                                                                        