BSTRAP.MAC
~~~~~~~~~~
Avoid infinite loop in CIS test under VAX/RSX.

------------------------------------------------------------------------
	MOV	#<2>,PCFIX
	MED6X
	.WORD	100
;	CLR	PCFIX				;OLD
------------------------------------------------------------------------
	CMPN
	NOP					;NEW
	CLR	PCFIX				;NEW
------------------------------------------------------------------------

Fix BR instruction for ERRHOK.

------------------------------------------------------------------------
	.WORD	ERRHOK
;	BR	.+14				;OLD
	BR	.+24				;NEW
------------------------------------------------------------------------

Add support for system device handlers with extended device unit
support.

------------------------------------------------------------------------
.IF NE RTE$M
	MOV	(R0)+,R2
	BNE	10$
	MOV	#<DRINTN+4>,R0
	MOV	SYHTOP-<BUFFB-RELLST>,R1
 .IF NE <OWN$ER & UNI$64>			;NEW
	TST	@#SY64				;NEW
	BEQ	35$				;NEW
	SUB	#<32.>,R1			;NEW
 .ENDC						;NEW
;	MOV	#<$RMON>,R2			;OLD
35$:	MOV	#<$RMON>,R2			;NEW
------------------------------------------------------------------------

Fix address of CLIFLG in RMON.

------------------------------------------------------------------------
.IF NE RTE$M
	TST	@#CNFMOD
	BPL	120$
	BIS	#<BKSP$!HWTAB$>,DLTCB(R4)
	BIC	#<CRLF$>,DLTCB(R4)
120$:	BIS	#<RTEM$>,SYSGEN(R4)
	BIT	#<1>,@#CNFMOD
	BEQ	130$
;	BIS	#<UCF.ON>,CLIFLG-$RMON(R4)	;OLD
	BIS	#<UCF.ON>,CLIFLG(R4)		;NEW
------------------------------------------------------------------------

RMON.MAC
~~~~~~~~

BSTRAP sets UCF.ON according to the flags set by RTEM, so give it a
chanse to do that.

------------------------------------------------------------------------
;CLIFLG::.BYTE	< UCL.ON ! CCL.ON ! DCL.ON ! <UCF.ON*RTE$M> >	;OLD
CLIFLG::.BYTE	< UCL.ON ! CCL.ON ! DCL.ON >			;NEW
------------------------------------------------------------------------

TRMTBL.MAC
~~~~~~~~~~
BSTRAP sets SCOPE mode according to the flags set by RTEM, so give it a
chanse to do that.

------------------------------------------------------------------------
;CTMP	= < PAGE$ + BKSP$ >	;OLD
  .IF EQ RTE$M			;NEW
CTMP	= < PAGE$ + BKSP$ >	;NEW
  .IFF				;NEW
CTMP	= < PAGE$ >		;NEW
  .ENDC				;NEW
------------------------------------------------------------------------

USR.MAC
~~~~~~~
The UPDDAT routine calls $GTTI routine under RTEM.
This routine changes R2-R4 (at least in RTEM V1.0), so save them.

------------------------------------------------------------------------
.IF NE TIME$R
.$UPDA ==: < . + 2>
  .IF NE RTE$M
	MOV	R2,-(SP)
	MOV	R3,-(SP)
	MOV	R4,-(SP)
  .ENDC
	CALL	@#UPDDAT-$RMON
  .IF NE RTE$M
	MOV	(SP)+,R4
	MOV	(SP)+,R3
	MOV	(SP)+,R2
  .ENDC
.ENDC
------------------------------------------------------------------------