$ EDIT/SLP/NOAUDIT/CHECKSUM:044706 KMCDA.MAC
-  277
	TYPE2	"UN		;PROMPT FOR
	TYPE2	"IB		;---UNIBUS NUMBER
	TYPE2	"US
	TYPE2	<"? >
	CALL	GETNUM		;GET UNIBUS NUMBER
	MOV	#.UBUS0,R0	;ASSUME UNIBUS 0
	TST	R4		;IS IT UNIBUS 0?
	BEQ	4$		;YES
	MOV	#.UBUS1,R0	;NO-TRY UNIBUS 1
	CMP	#1,R4		;IS IT UNIBUS ONE
	BNE	MPKMC		;NO-THATS ALL THERE ARE
4$:	MOV	R0,-(SP)	;SAVE THE UNIBUS STARTING ADDRESS
	NEWLIN
-  281,  281
	BIC	#160000,R4	;---DEFAULT OFFSET
	ADD	(SP)+,R4	;ADD IN START OF COMMON AREA
- 1363
;
;  NOW CREATE THE TWO RESIDENT COMMON AREAS THAT WILL BE MAPPED
;  TO THE VAX UNIBUS' ZERO AND ONE.  THIS IS POSSIBLE BECAUSE TWO
;  GLOBAL SECTIONS (_UBUS0 AND _UBUS1) WILL ALREADY BE PRESENT
;  WHEN THIS PROGRAM IS RUN AND THE VMS SYSTEM WILL MAP THESE
;  COMMON AREAS TO THE GLOBAL SECTIONS.
;
	.PSECT UBUS0,RW,D,GBL,REL,OVR
.UBUS0:	.BLKB 20000
;
	.PSECT UBUS1,RW,D,GBL,REL,OVR
.UBUS1:	.BLKB 20000
	.PSECT
/