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).
