************
File SYS$SYSDEVICE:[CCTLINSC]KMCDA.MAC;45
  278   	TYPE2	"UN		;PROMPT FOR
  279   	TYPE2	"IB		;---UNIBUS NUMBER
  280   	TYPE2	"US
  281   	TYPE2	<"? >
  282   	CALL	GETNUM		;GET UNIBUS NUMBER
  283   	MOV	#.UBUS0,R0	;ASSUME UNIBUS 0
  284   	TST	R4		;IS IT UNIBUS 0?
  285   	BEQ	4$		;YES
  286   	MOV	#.UBUS1,R0	;NO-TRY UNIBUS 1
  287   	CMP	#1,R4		;IS IT UNIBUS ONE
  288   	BNE	MPKMC		;NO-THATS ALL THERE ARE
  289   4$:	MOV	R0,-(SP)	;SAVE THE UNIBUS STARTING ADDRESS
  290   	NEWLIN
  291   	TYPE2	"CS		;PROMPT FOR
******
File SYS$SYSDEVICE:[CCTLINSC]KMCDA.MAC;44
  278   	TYPE2	"CS		;PROMPT FOR
************
************
File SYS$SYSDEVICE:[CCTLINSC]KMCDA.MAC;45
  294   	BIC	#160000,R4	;---DEFAULT OFFSET
  295   	ADD	(SP)+,R4	;ADD IN START OF COMMON AREA
  296   	MOV	R4,$CSR0	;SAVE ADDRESS
******
File SYS$SYSDEVICE:[CCTLINSC]KMCDA.MAC;44
  281   	BIS	#160000,R4	;---DEFAULT OFFSET
  282   	MOV	R4,$CSR0	;SAVE ADDRESS
************
************
File SYS$SYSDEVICE:[CCTLINSC]KMCDA.MAC;45
 1378   ;
 1379   ;  NOW CREATE THE TWO RESIDENT COMMON AREAS THAT WILL BE MAPPED
 1380   ;  TO THE VAX UNIBUS' ZERO AND ONE.  THIS IS POSSIBLE BECAUSE TWO
 1381   ;  GLOBAL SECTIONS (_UBUS0 AND _UBUS1) WILL ALREADY BE PRESENT
 1382   ;  WHEN THIS PROGRAM IS RUN AND THE VMS SYSTEM WILL MAP THESE
 1383   ;  COMMON AREAS TO THE GLOBAL SECTIONS.
 1384   ;
 1385   	.PSECT UBUS0,RW,D,GBL,REL,OVR
 1386   .UBUS0:	.BLKB 20000
 1387   ;
 1388   	.PSECT UBUS1,RW,D,GBL,REL,OVR
 1389   .UBUS1:	.BLKB 20000
 1390   	.PSECT
 1391   	.END	MPKMC
******
File SYS$SYSDEVICE:[CCTLINSC]KMCDA.MAC;44
 1364   	.END	MPKMC
************

Number of difference sections found: 3
Number of difference records found: 28

DIFFERENCES /MERGED=1/OUTPUT=SYS$SYSDEVICE:[CCTLINSC]KMCDA.DIF;1-
    SYS$SYSDEVICE:[CCTLINSC]KMCDA.MAC;45-
    SYS$SYSDEVICE:[CCTLINSC]KMCDA.MAC;44