VS$SET	=:	000	(DUP)		;   VS  
					;      SHARED-PRIVATE
					;IMAGE,    ,   ,
					; 
.$EXIT	=:	002	(X)		;   
					;    
.$EXEC	=:	004	(X)		;     RSX-11,
					;  
					;( / @#$UFLOA/$DSW)
					;        
					; IE.UPN  IE.NOD.  I/O (  IOSB)
					;.
					;	XXX -    IE.NOD
					; :
					;	JSR	R5,@.$EXEC(Rx)	; 
					;	.WORD	IOSB		;   QIOW
					;				; 0   
					;	DIR$	...		; 
					;	CALL	@(SP)+		;  
					;	BCS	ERROR		;CS =   
					;				;I/O (  IOSB)
.$CMKT	=:	006	(BSTRAP)	;  $CMKT
.$CRTI	=:	010	(BSTRAP)	;  $CRTI
.$DARL	=:	012	(BSTRAP)	;  $DARLN
.$FNDL	=:	014	(X)		;  $FNDLN (X)   LUN
					;
					; :
					;	MOV	#^RDDN,R0	; RT-11  (R50)
					;	CALL	@.$FNDL(Rx)	; LUN
					;	BCS	ERROR		;CS = NOT FOUND
					;				;R0 = LUN
.$FATA	=:	016	(BSTRAP)	;  $FATAL
.$FORQ	=:	020	(BSTRAP)	;  $FORQ
.$FPST	=:	022	(BSTRAP)	;  $FPST
.$GTIM	=:	024	(X)		;  $GTIM (X)     
					; :
					;	CALL	@.$GTIM(Rx)	; 
					;				;R0,R1	= TIME (RT-11)
					;				;R2	= DATE (RT-11)
.$GETE	=:	026	(BSTRAP)	;  $GETEN
.$GETP	=:	030	(BSTRAP)	;  $GETP
.$GTDA	=:	032	(BSTRAP)	;  $GTDA
.$ALCL	=:	034	(X)		;  $ALCLN (X)
					; :
					;	MOV	#^RDDN,R0	; 
					;	MOV	#^RRTE,R1	; ^RRTE  ,
					;				;  
					;	CALL	@.$ALCL(Rx)	;   
					;				;C=0, R0=LUN
					;				;C=1 - 
.$GTPS	=:	036	(BSTRAP)	;  $GTPSW
.$GTTI	=:	040	(BSTRAP)	;  $GTTI
.$IDLP	=:	042	(BSTRAP)	;  $IDLP
.$INTN	=:	044	(BSTRAP)	;  $INTN
.$IOKI	=:	046	(X)		;  $IOKIL (X)
					; :
					;	MOV	#LUN,R4		;LUN
					;	CALL	@.$IOKI(Rx)	;KILL I/O
					;				;   VS
					;				;...LUN 2-4 -> 2 (SH)
					;				;  FATAL EXIT
.$MRKT	=:	050	(BSTRAP)	;  $MRKT
.$PTPS	=:	052	(BSTRAP)	;  $PTPSW
.$RDKM	=:	054	(BSTRAP)	;  $RDKM
.$DACL	=:	056	(X)		;  $DACLN (X)
					; :
					;	MOV	#LUN,R0		;LUN
					;	MOV	#JOB,R1		;JOB # OR ^RRTE
					;	CALL	$DACLN		;/
.$RQSG	=:	060	(BSTRAP)	;  $RQSG
.$RSCT	=:	062	(BSTRAP)	;  $RSCT
.$RSTT	=:	064	(BSTRAP)	;  $RSTT
.$RTIC	=:	066	(BSTRAP)	;  $RTIC
.$SPL0	=:	070	(BSTRAP)	;  $SPL0
.$SPL7	=:	072	(BSTRAP)	;  $SPL7

.$QIOW	=:	074	(X)		; DPB QIOW$
.$EXST	=:	076	(X)		; DPB EXST$
.$QKIL	=:	100	(X)		; DPB QIOW$ IO.KIL
.$QATA	=:	102	(X)		; DPB QIOW$ IO.ATA
.$FILE	=:	104	(X)		;   $FILES (X)
.$TIMB	=:	106	(X)		;  GTIM$
	=:	110	(X)		; RTEM
					;+00 - 000001 -  
					;      000002 - /RP ( .  VMS)
					;      000004 -   VS
					;+02 - ?
					;+04 - ?
					;+06 - ID :
					;	 1 - RSX-11M
					;	 5 - VAX/VMS
					;	 6 - RSX-11M-PLUS
					;	11 - P/OS
					;-----   
					;+10 -   (LP/Dx)
					;+12 - DIR FILE ID 
					;+14 - ..."...
					;+16 - ..."...
					;+20 - UIC  ASCII  
					;+22 - ..."...
					;+24 - ..."...
					;+26 -  
					;-----    
					;+30 -   LUN
					;+32 -
					;+34 -    
					;+36 -
					;+40 - ? (^RV1.)
					;+42 -
					;+44 -
					;+46 -
	=:	112	(X)		;(  ) USR?
.$LUNT	=:	114	(X)		;  LUN $LUNTB (X)

;
;    RT-11  RTEM'   
; . BSTRAP     RTEM.
;
.EXUSE	=:	140	(BSTRAP)	; EXUSER
.FPPFL	=:	142	(BSTRAP)	; FPPFLG
.INTAC	=:	144	(BSTRAP)	; INTACT
.INTLV	=:	146	(BSTRAP)	; INTLVL
.LKQUE	=:	150	(BSTRAP)	; LKQUE
.PSCLO	=:	152	(BSTRAP)	; PSCLOK
.RMONS	=:	154	(BSTRAP)	; RMONSP
.SAVE3	=:	156	(BSTRAP)	; SAVE30
.SYS	=:	160	(BSTRAP)	; $SYS
.TASKS	=:	162	(BSTRAP)	; TASKSP
.TIKCT	=:	164	(BSTRAP)	; TITCTR
.TTRSE	=:	166	(BSTRAP)	; TTRSET
.$ENSY	=:	170	(BSTRAP)	; $ENSYS
.$FORK	=:	172	(BSTRAP)	; $FORK
.$INTE	=:	174	(BSTRAP)	; $INTEN
.$RMP0	=:	176	(BSTRAP)	; $RMON (?)
.$RMP1	=:	200	(BSTRAP)	; $RMON (?)
.$RMP2	=:	202	(BSTRAP)	; $RMON (?)
.$RMP3	=:	204	(BSTRAP)	; $RMON (?)
;
;TASK SST VECTOR.  , ,    ,
;   RTEM V1.0      SST .  
; DPB  RSX (  ,     ).
;
	=:	206	(X)		;OD -    4
	=:	210	(X)		;MP -    250
	=:	212	(X)		;BE -    14
	=:	214	(X)		;IO -    20
	=:	216	(X)		;IL -    10
	=:	220	(X)		;EM -    30 ( EMT 377)
	=:	222	(X)		;TR -    34 (TRAP 0  
					;     RTEM    GETPSW RT-11)
	=:	224	(X)		;FP -   FP EXCEPTION
;-----------------------------------------------------------------------------------------------
;  RSX-11 LUN  RT-11 ( 114    ).
;  LUN     ( -  ,  -  RT-11   ;RADIX-50).
;    :
	100000	- LUN    
	 40000	- LUN C
	 20000	- ?
	 10000	- ?
	   200	- LUN   RTEM,   

;  ( 104),      23 () .
;  -  :
	100000	-     
	 40000	-  
	 20000	- SHARED? BOOT? (   ,    -  )
	   400	-   -        RT1M
	   200	-    RTEM,   

;     LUN  0-6      RT-11,   2
;( $JOBNU [322]   RMON)  1 ( 0   RTEM' ).
;   :
;+02	   ( SHARED IMAGE     VS0:)
;+04	   RADIX-50 ( )
;+12	  (RADIX-50)
;+14	  
;+16	  (ASCII)
;+20	 
;    

   (     110  RTEM LINK AREA),  
10-26    .  :
10	-  
12-16	- ID          
20-24	- UIC   GGGMMM   ASCII
26	-  

 RSX-11M-PLUS    LP  .
 11M      UIC     
   TT/LP   
(    RT-11    LS).
