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:  P10 )
N(Comment:  ted)
N(Creation Date:  25-SEP-1986 14:50:06.91)
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)(aH0L0S0)1(l35)(aH140L71S100)2(l65)(aH40L42S100)3(l100)(aH0L100S0))
S(I2,E)
P[384,252]
@:ZW(P1)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,+210]
T"      cmp     r0     ,#3777          ; sizeof(tempindex) = 4 thus 4000"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,+180]
T"      blos    40$                    ; entries exist in a 4KW window."
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,+150]
T"      sub     #4000  ,r0             ; Request will not fit in a window"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,+120]
T"      cmp     highmap,#1             ; so correct offset. Already mapped"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,+90]
T"      beq     30$                    ; to the correct offset into region?"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,+60]
T"      mov     #40*4  ,win+W.NLEN     ; No, so set the amount to map (4KW)."
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,+30]
T"      mov     #40*10 ,win+W.NOFF     ; Start this window 8KW from start."
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329]
T"      tst     #idspac                ; Did TKB GBLDEF 'IDSPACE' != 0 ?"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,-30]
T"      beq     25$                    ; No, leave map offset at 8KW."
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,-60]
T"      mov     #40*4  ,win+W.NOFF     ; Yes, map 4KW from start."
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,-90]
T" 25$: MAP$S   #win                   ; Remap to correct 4KW segment now."
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,-120]
T"      mov     #1     ,highmap        ; Save context to avoid needless MAP$"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,-150]
T" 30$: br      100$                   ; return( r0*4 + 120000 )"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-329,-180]
T" 40$: tst     highmap                ; Already mapped to first 4KW area?"
P(E)
W(P1)
@;
W(F3,I1,V)P[364,262]@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)
\