P1p;
N(--------------------------------------------------)
N(The remainder of this file contains graphics code.)
N(--------------------------------------------------)
N()
N(Please $Set Terminal/NOwrap before typing this file.)
N(Source:  DECslide 1.3 EXPORT FILE)
N(Export file:  P7 )
N(Comment:  rsts dyn reg)
N(Creation Date:  25-SEP-1986 14:49:46.37)
N(Description file: )
N()
\

[2J[?5l[?7l[22;1H
P1p;
@.L(A2)"A"AA55AA55AA55AA55AA55"S"FFFFFFFFFFFFFFFFFFFF"B"00"C"88008800880088008800"D"8142241818244281"U"8142241881422418"F"FF818181FF818181FF"G"80402010080402018040"H"11224488112244881122"V"01020408102040800102
"J"81818181818181818181
N(End of terminal initialization.)
;s(A[0,479][767,0])
;S(C1)W(V,I(W),F3,M1,N0,P(M2),S0,P1)T[+9,+0](S1,H2,S[9,20]M[1,2],D0,I0)s(m0(l0)(aH300L20S100)1(l35)(aH180L60S100)2(l65)(aH120L20S100)3(l100)(aH0L100S0))
S(I2,E)
P[384,252]
@:ZW(P1)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-256,+15]
T" Creation of a dynamic region using RSTS/E only directives"
P(E)
W(P1)
@;
W(F3,I3,V)P[392,457]@ZW(S0,R)
@:ZW(P1)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,+195]
T" CLRFQB                          ; Clear the firqb please"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,+165]
T" movb     #UU.RTS,FIRQB+FQFUN    ; .UUO function code"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,+135]
T" movb     #30    ,FIRQB+FQFIL    ; Create a region subfunction"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,+105]
T" mov      #^RCLE ,FIRQB+FQNAM1+0 ; Name of the region."
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,+75]
T" mov      r0     ,FIRQB+FQNAM1+2 ; CLEJnn, for command line editor"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,+45]
T" mov      #1     ,FIRQB+FQSIZ    ; Only 1 KW please"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,+15]
T" mov      #100000,FIRQB+FQMODE   ; Keep region if attachment == 0"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,-15]
T" mov      #1000  ,FIRQB+FQFLAG   ; The region is private"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,-45]
T" decb     FIRQB+FQPFLG           ; Next byte is real protection"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,-75]
T" movb     #60.   ,FIRQB+FQPROT   ; RSTS/E protection code format"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,-105]
T" .UUO                            ; Must have INSTAL priv's for this"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,-135]
T" cmpb     FIRQB  ,#FIEXST        ; If its already there, then just"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-297,-165]
T" beq     20$                     ; attach to the region, else INIT"
P(E)
W(P1)
@;
W(F3,I1,V)P[431,227]@ZW(S0,R)
P[384,252]
s(A[0,0][767,479])s(I(D),S1,T0)T[+9,+0](S1,H2,S[9,20],M[1,2],D0,I0,A0)W(V,I(W),F3,M1,N0,P1,P(M2),S0)


N(		END OF DECslide V1.3 EXPORT FILE)
\