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: P8 ) N(Comment: rsx create region) N(Creation Date: 25-SEP-1986 14:49:53.18) N(Description file: ) N() \ [?5l[?7l 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[-347,+210] T" .mcall RDBDF$,WDBDF$,CRAW$S,CRRG$S,MAP$S" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,+180] T" RDBDF$" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,+150] T" WDBDF$" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,+120] T"reg: .word 0,40*10,0,0,0,0,RS.RED!RS.WRT!RS.ATT,^C377" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,+90] T"win: .word <5*400>+0,0,40*4,0,0,40*4,WS.MAP!WS.EXT!WS.WRT!WS.RED,0" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,+60] T"" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,+30] T"st: CRRG$S #reg ; Create a 8KW dynamic region" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347] T" bcs error ; Perhaps no memory available" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,-30] T" mov R.GID+reg,W.NRID+win ; Copy region ID to window descriptor" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,-60] T" CRAW$S #win ; Create address window and implicit map" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,-90] T" bcs error ; Error again, check $DSW for error code" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,-120] T" mov #40*4,W.NOFF+win ; Now map the second 4KW of the region" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,-150] T" MAP$S #win ; Since we specifed APR 5 in the WINDOW" P(E) T[+9,+0](I0)(S[9,30]M[1,3]) P(B) P[-347,-180] T" mov #120000,r0 ; we base all addressing from 120000." P(E) W(P1) @; W(F3,I1,V)P[381,242]@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) \