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:  P6 )
N(Comment:  mapping exec)
N(Creation Date:  25-SEP-1986 14:49:38.29)
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[-238,+15]
T" Example of mapping the low 20KW of the RSTS/E monitor"
P(E)
W(P1)
@;
W(F3,I3,V)P[371,452]@ZW(S0,R)
@:ZW(P1)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,+195]
T" CLRFQB                     ; Macro to clear the FIRQB"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,+165]
T" movb    #CRAFQ,FIRQB+4     ; Create address window call"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,+135]
T" incb    FIRQB+7            ; Use APR number 1"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,+105]
T" mov     #40*24,FIRQB+12    ; 20KW, specified in MMU units"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,+75]
T" .PLAS                      ; Go create the address window"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,+45]
T" movb    FIRQB+6,mapid      ; Save the window ID please"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,+15]
T" CLRFQB                     ; Clear firqb, insure no default"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,-15]
T" movb    #MAPFQ,FIRQB+4     ; Next we will explcitly map exec"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,-45]
T" movb    mapid ,FIRQB+6     ; Restore the window ID"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,-75]
T" mov     #-4   ,FIRQB+14    ; Force phsyical map. FIRQB+16 is"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,-105]
T" mov     #40*24,FIRQB+20    ; already zero (starting address)"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,-135]
T" .PLAS                      ; Do it"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-284,-165]
T" mov     @#20000+1032,r0    ; Fetch base address of JCR in MMU's"
P(E)
W(P1)
@;
W(F3,I1,V)P[416,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)
\