File COMP.SV (System fil)

Directory of image this file is from
This file as a plain text file

3203 !
3584 #'3[![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![![!]$+#G?]	^N$DPC3(O7*C4WDM]L#=K^$DLJ$)WZ$(M#LKK%O[$Z^^(HZ^*VM<*Q(LAT(K7@C4IK'<[GIJ';W#Y7'<';LJ<I'7DH/E(Q:$Y J/$/:!DGC4LF';:"'<:#*S:$Q)C1 #*#W1LE*#MT(D<I'
DH7EY ATB9DG'GQ)C1!#&^FLCLB$07G*$75C4LF'>[G(A7>N9(@7:,VDHQ)F6'*(?7*(>:SY ATB9L=&IDQEQ<G NSC9DQ' O7?70+*[?L<,;<U,V :]?L9,VDH,8<7O@I.C9,V^'LU(Q<6(:<5<4(3<2'6<1L0-OQ)C1'Q(</Q (.71M>,-9MC5  [#&G ,,D+,*W#CH,)<U,(<7,)<;,(<8,*DH'6^VMISSING OPERAND^VSUBSCRIPT ERR
R^REXPRESSION NOT ALLOWED^VUNDEFINED NAME^VWRONG DATA TYPE^WMISSING QUOTE^WILLEGAL STMNT^RNAME PREVIOUSLY DEFINED^QEXPECTED LABEL IS MISSING^QEXTRA CHARS AT STMNT END^SFIELD TOO LARGE OR 0^UILLEGAL OPERATOR^SSUBSCRIPT NOT NUMERIC^VRECORD TOO BIG^USTMNT TO
 COMPLEX^UTOO MANY SYMBOLS!^YNOT LABEL^VBAD RELATIONAL^ULABEL NOT ALLOWED^UBAD DECIMAL VALUE^SMISSING OR BAD OPTION^PDATA INITIALIZATION MISSING^VBAD ALPHA VALUE^VTOO MANY ITEMS^QINITIAL VALUE WRONG SIZE^XNOT A OR D^WCOMMA MISSING^VPROGRAM TOO BIG^WTOO MU
H DATA^TMISSING OR BAD MODE^TMISSING RELATIONAL^TMISSING OPEN PAREN^TMISSING CLOSE PAREN^XBAD PROC #^YCCP ERROR5//?)O3 *  . !, "; #2 $$ %# &8(+.^^:COS DIBOL        UND-7ED          COMPILATION LISTING      V 8.00  PAGE 00STORAGE MAP ^5          DATA DIVIS
ON   ^F#       NAME      TYPE       DIM    SIZE    ORIGIN^[LOADING[![![![![![![![![![![![![![!K![''^^	^^ ^^L<OO5MIG^H,]U]Z^[G^H^H&KROY^#^^]P.W^[]Q P@GK)K7^8U'^U!#!&J%$%I%^6B=;'4!#=C1R4>5	$:^U+^V^^^R**,S^W9$03U"'  ]Q(W ;)(];)(];)Y ;);?Q 'T-VW@>^'<8^.$/F]F	
T7]87*[8#8$8%X98-Y?>Z.YS(V]GIR*B9T)T>X9U>W*E:D*C:"Z7:#*V>UZ5FT#'G^(*S>R*R>Q*P>O*"(7:"Y FTC'O^]*D;HY?*#;G(2]GJ2'TC2Q(E]3DA$Y?DBDBDBDBDB*3DB*NDBD@.M>LNK//O/W?[![![![![!1[)P[@#!)<^V);RW ),'W6*6)^	E%C*C%@(]7"(]7#(]7$B:MAUI^DC*^9SXE9T1B:MAU['I7DZM9])SX'9U1S)][
IEW%W%W%W =UI0-U'D=U1TI0B:MAU['IQDZMYIJ*]X*	[/1U*[MUDCM(&:%*ZC3[GN *Y[G*X*O0&2 N .0:/B:]'Y2/J320N0B N:'D[GJ;*W[GJF*V2:N:DCN:*UDB(3DBNH	.OFTKV[!57;^D^#^""[^C^?%Y?(&8&M.^W?^GIA(5]?IA.]-$]GIG.^W@X (:8:[70;(;)@^IZX77CY C5D^^]Y?>^*^7,-$;,1$M$;,.]]G0(['09Y?.^>^
^*	]GA$MI>]MIF[[5Q(ZG#%"Z[GJ6Q 8)N%Q(ZG#%Q ]GNY()[GI	Q(#%Q ]?N%DEWGDEYW(6X#X#X#(8DB("DBN8DEY(];+(];+NDY(?8&*X7-(D8'DANJDEZFB^(H*$O ^E E)DLDLDNJN'T[?I/()X)]?N^8)*]I=X(V[GI7*	[?I?X(/]GJJ[7I#*[DLI#*Z]?IEADJNYDCDINXDPQ ( 7%(!7&FWDNJD(Q]?JC'&DLB%DNJL(O[GJ?*V]?
LB%FUDM*TDBNY*%DLY ()DL8)W (/DLW 8/ADM'D8/ZC()]?NSDM'D8)DM:%N%DM*RDBNYDC*Q'&DBNYDEW>DEW1DEW(DEW[!'/&B7=C^	&%:@A$.^]0&4CB-;E1+E?-1;F1<-;[GM1;X)W)9J)JW'!;J)J"^;I;H1MRW^VW :>:=*]:<)P:;9J*>	'Q(C3[GJ(A^1JIF0"['08ZC "8"(8?]?MQDE[>*	[GJ%*[B0M^)%B0J%B*M=*ZD^*YD^N
D^2;J62=B*2<N0(V:<M^CB+G7(+ES'W:F[!;(Q C@;EN>/DCQ(*X$ *L< DEX [![![!O!)!,";^"^Q"^8!'"W@:('#W@:Q'$W@:&(!X#(!X#(!'D7)Q(+)[GIL*(]?ID+)*Q]?IE+)*&]?IF')W 8 MW W W ([')7)0!I2W?')7)'";)'#;)'$;);)')8 ;););)')8#;)0%(%*'^'MQ F^Y>Y2X("(X]/N((8W']/N(DA%.]?DB(+DBDA(+W
8+Q((W@(#^'JIF	(+<0J?Q ("(+8"8+086]N(0&DEWXPROCEDURE [![!:,<Q$OC4C^1"M9":IDNM%DZJ+DC8.B6I3A0.I.1%AAA.^7#.]7$2,2,*	(.^*,*I(	7".[DPZG$ Q ]?M%FZDA*IW?([Q(, < 0 W < 0 (.X#W%(8< 0 ("< Q ("(.8"ZE( 8 *I^'FYM%DN#(V2I[GI-*X]GJJDCM%*I]?J@DNN6DZN626N6FWJG(V[GN6(	J>D
WPFY*V:I(	A(	AZ5I-[![![!^Y$ $)Q38&U^ZD D>^DIN]DN$(S]?I=.	DP, X#^?N[(	W'< 0 0 (9(	< 0 ((< Q (&8?FZIJ(?8&(3W@(48/Z9W'(/]/I;(/DB8/2PIO*YDBDNNX(V[G0/)#[?IYY 8/*W]?IOY  /]?IO(?8&8/8)DGFV=DNNUDC()8*8)0/DG(*() 	]?NTDN['NS(* 	]?JLZE(*X#()[?JM',8)ZC,)X)]?JMW#*R<)L
ZE*QDBLK6888&4:4<-^D<5A$H*M&U,R@*F^TA%Y?8RIWDNIC*]]GDNW*	[GI;(	X)[?IT[/I702I&.[>Z'<I>*Y>Z'88^Z7 282I&)K9O0&)O*X]GM%FW9Q(C4]H1OIFDNIVDEX;D@(2]GDW!^FV(&8?DNJ&*UX([FTD@N7Q (483IW*SC2Q(,T]J8(FR'?80FQ*PC]#;"(%W >OZ9:7'$ DW!'D[?*][GI!80(0 V]GI!DE	2[![!&U?)Q$H^Z
?^?9B$ ]R]W)P^Y^*^O<-'"*^]G'#*]]G'$*	]?LUN['"*Z]G'#*Y]G'$*X]?J)D@DY^YNWX("(.]/I@088"DA&(.X%W#(8DB("DB*V7+Y?(.XW9T++DB1TIOM8*UX*T[/I^1U*SMUYDCMUDNJ'(S]GN!DE[-DNJ/(S]GNRDC'"*Q]?I'#*P]?I'$/'D]?IFONN;-0'N>DEY4FMNFL*KDBLK[!@=<-2*B-.;-,?!0)^DC^;/+::/+91!)^<,**'
9Q>^(5]?I(W F]05DW!^(&*	W?8&>[*Z>Y>X'T9=*WFV1=I5*U9=*TC3#*S]G*@W FV1=0&I;'/FVFR*	7%*QD^/%IKW DW*PD^(R([8R(R	Y?8RM'-9W?'-7-W?('8'-M	Z5FO#'GJ8Y?8RNN(2]GDW!^(?8&DY^	FM*LC]$+"*KDBDA[NJYQ .BANH1[[!,,G1%1[)!)!?**^""#)^-*;*<^Q*=^Y*>QO(?8&DY^]DF8)W 8/DGDNI=*^]?I=
II='#V]?N]*	>[*Z7)+)'"]GNY6[I7DE[Q[/J2)M9D*0]?J)DIJ.DP, MDMN7Q7Y7]21AD^20*1W@:7NXAD*W< NX*1*7]G:0Y?*1	'J.:1*0]GNX(]>V(]>UNXDE	9Y*0]GM?J)(S]?JIX5 )]GNTX3 *]GNTW 8)DG*SDBLKDEXUDNLUDC*RNP<7[!I"&4"!" ?2&;;0;V^Y<N^P]G0R['A.-F^X(R.]8R[7A.1M*	8R*[D^1?)?CZQ(>ZQ )
F^)AF^DTM.	[]G(D7CZ5C5" NYZC.X>W(384.V83(3AZ>U()>X(]>V*T8&MB:*:+**X2+*S[7I^*RCZ8)Y?*+CZMZ(*Q840,N,Z5 )W'*PJ>8/X58)DG*ODBLK(/]?FNNM( 7%(!7&FLNK[!(D&%(N-%?($ C];%" """"!6']A!+^)*=)=DIN^'"*]]G'#*	]G'$ D*[]?NZD@DY^Z(#W >Y)O8>DIFXDP, X#]?NWW'(	< Q (,]?IE(=W@:C
V8,818=DNI	(S]?NUDNW*T[GIX*S]GIZDEZ+0,II01II(,]GJ%(+8"*Q8881J&:CX/("W'X ]/J.088"FR("8+(8:Q0 W Q(< 0 ( 8-(8< 0 ("< 0"0"Q LK(=X/(X[/JO8=(=*C]WNDDEY+)Q4^&4'B-*N= 3*3.;;2?Y 7"Q(<[Q 8>MDNN^(S]?N])I9VB;N^*	[GI7*[]?DC9VFZDNIN*Y[GID*XDZIH::*:FWI8)I9VDNINDN?(S]?J8
CY?.V>V*:)VFWAWI'.VW@(<]?J4*U7)Y?.VXW8(+)DB0(J#B,/&MWDEZOX("(<8"[708N,DEZXDEZ7DEZ!DNJ6*T[GNO([[?JIX5XC*S8*N;*R[GJE*Q2;N;D9[!<+)^+ ^@E@B-^Q@3!^Y4'AF^DHDP, X#Q ]?N]F	7%'%W?7&DNN[*Z8)F	8<(<X@8/'%[7NY0/I58X(<"G]?NYFXY (= >]?NW8*FV(,]?IZ(X86()(1[GIZ*J9U-U9UDA!
U(6W@DB(<86()]?NTDNNS(S]?NRFQNS]?NPB3FONP(V[GJ1(	BBJ)FNJ()]GJ=(,(XW@(<]G>MDA&FU:EN3C4 ^2EWNB @H(!E=W$ &V>;1TA ='&8BF<O<DA	^=BYAO*M=W W Q(, < 0 '%< )I880 (<X%W#(8< 0 )J8"("< Q (X8<F^(*[GLK9=DA#'"DB'#DB'$DB)KDB)LDBLK'T:-9NDNJ$DZJ$R'D9M2-I^DEXI)NX%)NX#)MIRZ5
#*-]GW )N[GI	MO(+W@("X#X#X#.]Q(<-Q (,]GJ?*D8"*E88(":D(8:EN-F	()[?*[]?JY(<X%W#(89K("9L("9J(89INFDE[&^	,(<Q>,7#.^W!/7"'"A^'#A^M+D7$'$W!W)R7"'"X#*]99ZCC2Q(]$'$?+^7#'#*	CZ9])]W!/*[Q(>Z)]/W!W >YQ '$X)W'"X7$'$CZQ(>WQ Z5'#FVM*'T[GJ(*U[GJ((S[?J+*T7.J6*S[?J3*R>Q*R
P6OW ]?M^Z782M^Z?(<]?N?DEZX>F[![![![![![![![![![![![![![![!$N/I/;Y$+6^	E$]$>](]'- %EM^]^^ERRORS  X)	/I*2(2)"^'#*]'$7$'"*	7"+"'$X*[[7I4'?X#*Z9?ZCC2Q(])M$SAT SUN MON TUE WED THURFRI -JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC"#!$"% #%[![![![![![![![![!
![![![![![![![![![![![![![![![![![![![![![![![![![![![![!EA^XF'">44443 3444444444444444444444444444444444444444444444444 4$4 4 44444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444
444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444
4444444444444444444444444444444444444444444444444444444444444444

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search