%!PS-Adobe-2.0 EPSF-1.2
%%Title: ZK-0090.PS
%%Creator: RAGS - MOPS v1.6
%%CreationDate: Thu Mar  9 10:23:53 1989
%%Pages: 1
%%BoundingBox: 126.923 265.362 485.077 526.638
%%EndComments
%%BeginProlog
/MopsDict 150 dict def
MopsDict begin
/an /arcn load def
/ar /arc load def
/cl /closepath load def
/ex /exch load def
/fi /eofill load def
/Bxr {arcto pop pop pop pop} bind def
/gs /gsave load def
/gr /grestore load def
/li /lineto load def
/mo /moveto load def
/np /newpath load def
/rl /rlineto load def
/ro /rotate load def
/rgb /setrgbcolor load def
/sh /show load def
/sc /scale load def
/sd /setdash load def
/slc /setlinecap load def
/slj /setlinejoin load def
/slw /setlinewidth load def
/st /stroke load def
/tr /translate load def
% THIS SECTION WILL DEFINE THE ISOLATIN1 VECTOR...
mark					% CREATE ISOLatin1 ENCODING
/ISOLatin1
  8#000 1 8#054 {StandardEncoding exch get} for 
  /minus
  8#056 1 8#217 {StandardEncoding exch get} for 
  /dotlessi 
  8#301 1 8#317 {StandardEncoding exch get} for 
  /space /exclamdown /cent /sterling /currency /yen /brokenbar /section 
  /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen 
  /registered /macron /degree /plusminus /twosuperior /threesuperior /acute
  /mu /paragraph /periodcentered /cedilla /onesuperior /ordmasculine 
  /guillemotright /onequarter /onehalf /threequarters /questiondown /Agrave 
  /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute 
  /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth /Ntilde 
  /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave 
  /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls /agrave /aacute 
  /acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute 
  /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /eth /ntilde
  /ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave 
  /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis 
  /ISOLatin1 where not {256 array astore def} if 
cleartomark
%
% THIS ROUTINE WILL RE-ENCODE THE FILE...
/reencodedict 10 dict def			%Local storage for ReENCODE
/ReENCODE {		% /basefont /newfont encoding ReENCODE
    /newencoding exch def	%ARG: NAME OF ENCODING VECTOR
    /newfontname exch def	%ARG: NEW NAME FOR FONT AFTER RE-ENCODING
    findfont
    /basefontdict exch def	%ARG: NAME OF FONT TO BE RE-ENCODED
    basefontdict maxlength dict begin	%CREATE AND OPEN NEW DICT
	   basefontdict {		%COPY ENTRIES FROM BASE FONT DICT TO NEW ONE
 	    1 index /FID ne {
		def		%IF NOT THE ONE WE'RE ENCODING, JUST COPY PTRS
	    } { %else
		pop pop		%IGNORE FID AND ENCODING FOR ONE WE'RE ENCODING
	    } ifelse
	} forall
	/FontName newfontname def	%DEFINE NEW NAME 
	/Encoding newencoding def	%DEFINE NEW ENCODING VECTOR
	newfontname currentdict definefont	%TURN IT INTO A PS FONT
	pop			%IGNORE MODIFIED DICT RETURNED BY DEFINEFONT
    end
} bind def
/CBdict 5 dict def
/CMdict 3 dict def
/TBdict 5 dict def
/ELPdict 2 dict def
/MOPSpage /showpage load def
/Arc
 { np 1 eq  {ar} {an} ifelse } bind def
/Box
 { np mo li li li cl } bind def
/Circle
 { np 0 360 ar } bind def
/Ellipse
 { ELPdict begin
   /elpscratch matrix def
   np elpscratch currentmatrix pop
   tr
   neg ro
   sc
   0 0 1 0 360 ar
   elpscratch setmatrix
   end
 } bind def
/LF
{ findfont } bind def
/SF
{ makefont setfont } bind def
/Line
 { np mo li } bind def
/Pie
 { np 1 eq  {ar} {an} ifelse li cl } bind def
/TextBox
 { TBdict begin
   /y2 ex def
   /x2 ex def
   /y1 ex def
   /x1 ex def
   np x1 y1 mo
   x2 y1 li
   x2 y2 li
   x1 y2 li cl
   end
 } bind def
/Text
 { np mo dup 4 1 roll
   stringwidth pop ex 72 mul ex sub ex div
   dup dup sub 3 -1 roll ashow } bind def
/OText
 { gs np mo slw false charpath st gr } bind def
/Label
 { np mo sh } bind def
/Crop
 { CBdict begin
   /y2 ex def
   /x2 ex def
   /y1 ex def
   /x1 ex def
   np x1 y1 mo
   x2 y1 li
   x2 y2 li
   x1 y2 li cl
   1 eq {gs rgb fi gr} {pop pop pop} ifelse
   clip np
   end
 } bind def
/Cropmark
 { CMdict begin
   /ys ex def
   /xs ex def
   .2 slw
   np xs ys mo
   1 eq {ys add xs ex li st} {xs add ys li st} ifelse
   end
 } bind def
/ImgCropBox
 { mo rl rl rl rl clip np } bind def
end
%%EndProlog
%%BeginSetup
MopsDict begin
%%EndSetup
save
126.923 526.638 tr
1 -1 sc
0.850 0.850 sc
0.923 slw
0 slc
0 slj
0.000 0.000 0.000 0 0.000 0.000 421.358 307.385 Crop
/Helvetica /Helvetica@ISO ISOLatin1 ReENCODE
/Helvetica@ISO LF [10 0 0 -10 0 0] SF
1 0.103 (C) 383.050 216.923 Text
/Helvetica@ISO LF [8 0 0 -8 0 0] SF
10 0.718 (ZK-0090-GE) 356.281 303.692 Text
0.923 slw
0 slc
6.434 6.462 89.511 6.462 89.511 24.000 6.434 24.000 Box st
6.434 24.000 89.511 24.000 89.511 41.538 6.434 41.538 Box st
6.434 41.538 89.511 41.538 89.511 59.077 6.434 59.077 Box st
6.434 122.769 6.434 60.000 Line st
6.434 144.000 6.434 129.231 Line st
89.511 122.769 89.511 60.000 Line st
89.511 144.000 89.511 129.231 Line st
89.511 144.923 6.434 144.923 Line st
/Helvetica@ISO LF [10 0 0 -10 0 0] SF
1 0.090 (A) 104.281 12.000 Text
2 0.154 (31) 149.511 87.692 Text
149.511 91.385 232.588 91.385 232.588 108.923 149.511 108.923 Box st
1 0.077 (0) 188.281 104.308 Text
1 0.077 (0) 227.050 87.692 Text
149.511 108.923 191.050 108.923 191.050 126.462 149.511 126.462 Box st
191.050 108.923 232.588 108.923 232.588 126.462 191.050 126.462 Box st
3 0.295 (PSW) 201.204 121.846 Text
4 0.308 (Mask) 158.742 121.846 Text
149.511 126.462 232.588 126.462 232.588 144.000 149.511 144.000 Box st
2 0.179 (AP) 184.588 139.385 Text
149.511 144.000 232.588 144.000 232.588 161.538 149.511 161.538 Box st
2 0.167 (FP) 184.588 156.923 Text
149.511 161.538 232.588 161.538 232.588 179.077 149.511 179.077 Box st
2 0.192 (PC) 184.588 174.462 Text
149.511 179.077 232.588 179.077 232.588 196.615 149.511 196.615 Box st
2 0.167 (R2) 184.588 192.000 Text
191.050 206.769 0.923 Circle 
gs 0.000 0.000 0.000 rgb fi gr st
191.050 211.385 0.923 Circle 
gs 0.000 0.000 0.000 rgb fi gr st
191.050 216.923 0.923 Circle 
gs 0.000 0.000 0.000 rgb fi gr st
149.511 228.000 232.588 228.000 232.588 245.538 149.511 245.538 Box st
3 0.244 (R11) 184.588 240.923 Text
1 0.090 (B) 241.819 94.154 Text
np 96.896 12.923 mo
108.896 27.692 li
118.127 74.769 li
123.665 118.154 li
148.588 152.308 li
gs 1.000 1.000 1.000 rgb fi gr
49.354 63.811 69.641 -350.946 -46.947 -1 Arc 
gs 1.000 1.000 1.000 rgb cl fi gr st
203.749 85.884 86.341 -230.292 -172.603 1 Arc 
gs 1.000 1.000 1.000 rgb cl fi gr st
0.923 slw
0 slc
97.819 13.846 90.434 6.462 Line st
np 92.281 12.000 mo
95.973 8.308 li
90.434 6.462 li
92.281 12.000 li
gs 0.000 0.000 0.000 rgb fi gr
95.973 8.308 92.281 12.000 Line st
90.434 6.462 95.973 8.308 Line st
92.281 12.000 90.434 6.462 Line st
0.923 slw
0 slc
292.588 210.462 375.665 210.462 375.665 228.000 292.588 228.000 Box st
292.588 228.000 375.665 228.000 375.665 245.538 292.588 245.538 Box st
292.588 245.538 375.665 245.538 375.665 263.077 292.588 263.077 Box st
292.588 283.385 292.588 264.000 Line st
375.665 283.385 375.665 264.000 Line st
148.547 212.861 2.616 -50.110 -132.819 -1 Arc st
151.459 208.366 2.778 -320.173 -243.618 1 Arc st
148.547 216.852 2.619 -50.167 -132.763 -1 Arc st
151.458 212.348 2.782 -320.087 -243.675 1 Arc st
230.701 212.861 2.616 -50.110 -132.819 -1 Arc st
233.613 208.366 2.778 -320.173 -243.618 1 Arc st
230.701 216.852 2.619 -50.167 -132.763 -1 Arc st
233.612 212.348 2.782 -320.087 -243.675 1 Arc st
3.624 126.092 2.616 -50.110 -132.819 -1 Arc st
6.536 121.597 2.778 -320.174 -243.618 1 Arc st
3.624 130.083 2.619 -50.167 -132.763 -1 Arc st
6.535 125.579 2.782 -320.086 -243.676 1 Arc st
86.701 126.092 2.616 -50.110 -132.819 -1 Arc st
89.613 121.597 2.778 -320.175 -243.617 1 Arc st
86.701 130.083 2.619 -50.167 -132.763 -1 Arc st
89.612 125.579 2.782 -320.087 -243.675 1 Arc st
np 239.973 98.769 mo
251.973 113.538 li
261.204 160.615 li
266.742 204.000 li
291.665 238.154 li
gs 1.000 1.000 1.000 rgb fi gr
192.431 149.657 69.641 -350.946 -46.947 -1 Arc 
gs 1.000 1.000 1.000 rgb cl fi gr st
346.826 171.731 86.341 -230.292 -172.603 1 Arc 
gs 1.000 1.000 1.000 rgb cl fi gr st
0.923 slw
0 slc
240.896 99.692 233.511 92.308 Line st
np 235.358 97.846 mo
239.050 94.154 li
233.511 92.308 li
235.358 97.846 li
gs 0.000 0.000 0.000 rgb fi gr
239.050 94.154 235.358 97.846 Line st
233.511 92.308 239.050 94.154 Line st
235.358 97.846 233.511 92.308 Line st
/Helvetica-Oblique /Helvetica-Oblique@ISO ISOLatin1 ReENCODE
/Helvetica-Oblique@ISO LF [10 0 0 -10 0 0] SF
20 1.192 (predefined exception) 311.050 72.000 Text
22 1.372 (hardware\): set to non-) 311.050 24.000 Text
22 1.192 (zero if routine either) 311.050 36.000 Text
21 1.269 (has exception handler) 311.050 48.000 Text
17 1.013 (or can generate a) 311.050 60.000 Text
1 0.077 (0) 281.511 12.000 Text
1 0.090 (-) 299.973 12.000 Text
14 0.833 (for function A) 311.050 102.462 Text
2 0.179 (AP) 281.511 90.462 Text
1 0.090 (-) 299.973 90.462 Text
2 0.167 (FP) 281.511 120.923 Text
1 0.090 (-) 299.973 120.923 Text
19 1.231 (which B was invoked) 310.127 150.462 Text
2 0.192 (PC) 280.588 138.462 Text
1 0.090 (-) 299.050 139.385 Text
24 1.487 (registers R2 through R11) 311.050 180.000 Text
2 0.167 (R2) 281.511 168.000 Text
3 0.244 (R11) 281.511 201.231 Text
0.923 slw
287.973 180.923 0.923 Circle 
gs 0.000 0.000 0.000 rgb fi gr st
287.973 176.308 0.923 Circle 
gs 0.000 0.000 0.000 rgb fi gr st
287.973 185.538 0.923 Circle 
gs 0.000 0.000 0.000 rgb fi gr st
1 0.090 (-) 299.973 168.000 Text
26 1.372 (Initial zero value \(set by) 310.588 12.462 Text
24 1.500 (Copy of argument pointer) 311.511 90.923 Text
25 1.423 (Pointer to A's call frame) 310.588 121.385 Text
23 1.397 (Memory location in A at) 310.588 138.923 Text
23 1.410 (Contents of A's general) 310.588 168.462 Text
MOPSpage
restore
end
%%Trailer