File SET.SV (save files (Executable program)

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

?=2CBQPIHDLX 	B"B"BBZ	?H	>2C	=	>2I"X	<	;2C	::2C	=K9Z)"X	8	7	6	52C/42C	:[^2C	:
32C	:
2"$.X:K1	0BQ^*;J)8AZ42I2B	/FHZ*7.$2C/.2C/-O]<(+IC,>(K+O]2A
\2IS\S]S[*;2AK*
\S\K)
\2C/(2I2B	/"H\/	/Q?=8YQ^HNS0K6<(+WIWP98WN .H ?8K8>GBAQ Q
9&TSWQQR=Q^6IV7R6^VR?	?
>J78!Z7O*Z8R8N8J7>(*PR:*H/=W<<H/;O*8!J8R9*2Z;N5J;Z8N8C:Z6J69F8F8FK9
8W7*-O*Z8K6Z:Z7*HK6Z:K5
>*AZ<^8.
???2	4	3O*J;Z8J7^8K2J;Z8O+^8N5J;Z8S+O+J6^8K1J;Z8^8	0.=2I2B	/FHZK/.O*	-N5	-2B	/$H^L/,/W^P9T[P7>GT)>	?0T4UKH?2ZQWM^UOUTUBW]V2A;&O?2I>(K>ZNJNZX2B	=BHZ6/<K;[XK:"[2B	="HZ/9.[YKYK8KX[WOY
WSYSV*]K7[V.[SU.)W8<H.)K6
5O4
3/2KU> *<8AO8> +R	18AO5
0
5.4ST<H/KO/> +MSU8/./K2C/-/K2C/,2C/+???1[%J2\MK%\LR
+W2A/EX/	;LI9!HP9R8>8*R4R7S+VR?R;R<W]H?1ZP9?0BP7>G6>JK]K?[^K^8A[]O^O]
>O]>(.O>8D9X
>.2AO=[
O
K<> .RS
O
K;> .R2C	:	9	82C/7<(.%[[OZ[\SZK[OZ>(	6SZSZS\*,K5[Z.%O4Z>2B	3BHZ/2O1K0> .7O/K.<(+LK-> .7K,K+[WOYC*KW>(.7SYSX+N/)<ZZ8A\OHX\O: K9[9; HZUM?8HPH;MHQ
-(Q^P7>GQWZXYDJYAX:<4=QSR7ZCO?[	O	[	O		>S	S&*E.8AO=[$K%[(S%K%C<K;
(O$
%S%/:O=[)O)K9> *KK*K8> *KH^8!K	[)H
K)[)O)C79F8F8FK6Z62B	5BH"/4N5C3K2>(.YR5S**8*KS%K1
%K02A
/2I	J/AYI?1<[02G3?2?D]2J+HP?8P7>GM^D4JV4&A?WZV%S*?0K8\K6\X]3\0\3]H]1] LE
,J8!T
0^WB^UI?^*C/^?K6
TWA G8 UTB *TA ?8!	>D	=\FHN8!	>D	=W	?O<B>(K;$[HY/:HZ< 8 >(*WP]+MXIHZH
PI= *=<(+E8 H
[\HI8![VHZ8 XZXKPKHK8!XJK\[[KVXI/9[[&.J/S/8K[/V F]ILES IN  B]LOCKS - ";"7"3"0"?"-"*"		TEPOL>$!X]K!B2B	?      RXNS                 RXA0,RXA1R.2B	?      RX78C                RXA2,RXA3RX.X2B	?      RL0                  RL0A,RL0BR0.02B	?      RL1             
    RL1A,RL1BSH/H2B	?      RLC                  RL0C,RL1CS /  ;JF%MB/
%]DQ2B	?      LPT                  LPTR.2B	?      SLU2                 SLU2RU.U2B	?      BAT                  BATR*.*2B	?      LQP                  LQPR?.?2B	?      RX28C                RXA2,RXA3ST/T2B	?      RK05S,/,XV+	DUM?<C$.DDQ2B	?      SLU3         
       SLU3R.2B	?      VXA0                 VXA0RU.U2B	?      VLU2                 VLU2R*.*2B	?      VLU3                 VLU3R?.?2B	?      RX8                  RXB0,RXB1ST/T FOR OUTPUT FILE%2<?%]BJBMAC^B		DQ2Z(AB1I6X[%8?EHD?;OG=GBA
PPCJECDNNCC*C FCFD\70CB$AC^0+ZGBJBM?%O)$
GT
"1?5B?80TKEMB(CVREB$H C\G?3,88= CEW]EB<,*,Q0T/WCE
>G\.?9>U+C^B )2>EDQB9A??BDDJPYPPHHRYFB<H*FI?%>"\%=I<XS"\: %;"(XP%:HP%9,;
Y);1/7;C^3;E7>(-8-72IO?2AA6X.O>K=>(	<Z%.\"19F8F8FXR"1HR.(E*6A5.1:.1LSA4< I6PS.9: HSXS/%3N+J+LV/ESE/EK;9K:<PSNK9/NK89K7<PSVK6/V%2SET DEV: [NO] ATTRIB [N]%2VERSION%2HELP-6B:?6=PC[?&<?E+?=>J?V:"Q? SYNTAX ERRORH > -1M=> -6-1NQ8J8J8J"
NQ"
RQ*R%0RQ2B.QA5<(*[I/A5I/XTI60\K?<(*2K>>("8HT%>.
I.%>K=%>%--,0ZI.%>K<%>%0: X".8"Q? NUMBER TOO BIG-8"Q? CAN	T - DEVICE DOESN	T EXIST-8"Q? I/O ERROR ON SYS:-8K;
2S-S6+,/+GKGU\$\+?<2K/:P6COCC?4==H*>(8AX*"G.I+%*%)B6-(K?%*%)"6-(%)B6I-(K>%*%)"6I-(	=.G%3>(+FH*> -7%	HS[EK<[D%3>(+HSD*0%2? INITIAL COMMAND TOO BIG-8K;[E%)B6-(H*> K:K9
8%)"6-(H*> .$%)B6I-(: KEXIK7XJK6[DLI\JSD+&%)"6I-(.$CCICNCICT?;5?6?H?;AG0?:Y$6.99.A%&%2A FUNNY THING HAPPENED TO ME ON THE WAY TO THE COMPUTER ROOM.%2A PANHANDLER CAME UP TO ME AND SAID,%2"CAN YOU SPARE ME $25,000 FOR A CUP OF COFFEE?"%2"WHY SO MUCH?", I A
KED IN AMAZEMENT.%2"THINGS HAVE BECOME SO AUTOMATED", HE REPLIED,%2"THAT THE ONLY WAY I CAN ORDER IT%2IS WITH A COMPUTER ORDER FORM"./?	>%%BB$-$K=XPH*> K<K;\P.!	>%%BB? -$8AXPLP8D?H-$PPPPHPK:[3H*>(+HJ;\P.0O3+F	9H/[]K8%-7	9I"9H/>X-!H/K\X/$XB6-(HP>(	7% XY:AX
H+> /J%3> -7HY\/K][3$X"6-(/J9J1Z%"0+C:D ?<VL%
*E:*A:%	.XUXV<HPV%3I^>(*L%	PU<H.HHV> .H-7XQNYRY<(*	HQ>(*$RY*[NYXQ,QHQ.Y2A%2? OLD VERSION OF KBM-8K?";.7K>[.	=H(K<>(/;%%B?/;K:XPLPA]I<> /;K.\PPPLPA]K9> /;K.A\> K8K7\PPPK.\P%%AA2C/;K6XPK.A\> K5K4\P.;88= CEW]61?GB66?FPC"1?>(G8 X"I<XSX %[%9<AR1=1RE==D2=6S0=3S
<CS*<BS*=%S*=+R)>RE=-REXPHSK?>(*EHP%>HP\SPS*EI.%>K>%>%0K=%>*BHSI]<(+(IZXSH.> K<IY%>H.>(+AIX<HLS%>H.>(+HIW%>%[%9<ASY=2SH==D2XPH.> +WIY%>HP*FHSI]<(+IZXSH.>(*<*9H.> +(IY%>%0*.IV%>P \S%0.\SIZXH%0I?%>LH<(-U%>+6$Z<,BCU4AXY:AX+%	%3%T*XK?X[X+HYA]> -!HY9FHY9DH[<X-
XY*E:%	H+< XYHY.%SZ3%SZ4J3J4Z3J4>(*.J39D9XZ3Z4	>2J$
J-RJ5< +KJ3[BK=[D[C2J$
A-RKCX\KDXX+NXXJ4X\H\K<X^2IL^X]H]8J8HA5XW: O;X$H$H\X%L%2AX%H%8F8F8FC:< K9X&.
K8[4S3+.S4+./+?8+3/$?8MO
?/:A6=P	?H(%9??"1?>"1?="1?<"1?;VT?:VT-Q."%%BAM-$K>XPH*>(K=K<\PXY%3>(+DH*> -7%P<(+KXYHY9DHY9FXYH+> +KHYAO> +K%%C?>-$K;XPHY8!\P	:.UHY8!
9	8.U%2? BAD VALUE FOR PAUSE DURATION-8XY:AX+%3K79IW<P+3X[X+HYA]> -!HY9F8DH[XY+!:%	HY/]=H]	6A]UE>H ?=(*H*> -7%3>(*+%P<(*+XYH+> -7HYAN> *+K?%M+XK>ZZ	=B6-(JZZ(O<=H*7K;ZZHY^Z	="6-(.%2? BAD COLUMN COUNT-8:%2? WRONG VERSION OF CCL-8[S%-[HH"> /FKS0&0!+O:/FCCLSV
2? CCL.SV NOT FOUND-8%)B67-(O<K:?H/9K8	7%)"67-(/$//\>["X7<9"6>GBYTCECSCCAPE	?%3>(/>H*> -7%P<(/>XYH+> />%%C?>-$K=XPHY8!\PLPPP\P	<.GHY8!
;	:.G9KBHH89LKKPP9NKT: 9O$SXP9RKKL 8T=-<C8UJGKB8V=/<B8WJGKB7]BHIB7^K]PT7 K&: 7!$6XT7$K]LP6[=-<C6\*G+Q6]=/<B6^*G+Q6DTB6EERA6F-)+36G.0CACRCRCOCW?+4<^X\]	6]UC
&V	?B6I-(K>">	?"6I-(	?B6+-(K=">	?"6+-(H*>(8AX.2IK<".2A	?B6-(K;".	?"6-(.Z=N=C:XPHPK9> /8H*>(I6HP^=..[OOO<(.>[PSOH*> SOOO
PH*>(SOSO+BASICSVK7	6/USUK5[
%)B6-(K
[+O4>(/U/3%)"6-(/	K=XCIDXD1	6BG5B]QP)C>=?7V?V[FZ*>GH*> -7% <(-7X-H-AL> -!%&K?X,"0-K8!XR"0-K8!XTHT8!HR<(*S?* HTXRK?X,"0.HR> :AH-9F8DXTL,C>HT\,*"P,H,K=>(.0L,A]I:> *1L,8J8HA5K<9H<(*18DK;R0.0%2% OPERATION NOT YET IMPLEMENTED-8%;X(%J%3%9=F =  =S ?-7%2? BAD HEI
HT SPECIFIED-8%&-I/4^AZQ] P?0B8G:: %;%3<(-7K?>(*?%	: H\>(*<[][^K>XHLH= +(HW>(*ZHHK=*PLH[]LH[^[0LHXX*HSX)%SK<>(!H)XSL<(+IP%+,LX: H\> 	;$: H\> 	:-8S0K9* %
-HX(H(<(-HAGX(%;*MK0>(+1%2? UNKNOWN ATTRIBUTE FOR DEVICE  -8P*: %;HSX)/!:S0K8* PH)XS**S0K8X**$&	FB"11C"=SH&<(* ZH%)B:-(H%A4JGXXH(> .HXX	L	9IF>X*]L	<(*1X(.: H	*R%2? CAN	T - DEVICE IS RESIDENT-8:%2? CAN	T - OBSOLETE HANDLER-8JH[H%)":-(/B:%2? CAN	T - UNKNOWN
VERSION OF THIS HANDLER-8TTY-O??PTR-E?>PTP-J?=CDR5.?<LPT$L?0MTA$[A$9($?*H%B*	P;	(P7&B2&I2*%+21%"0?%+)Y%1)M%:(>	U5N+$OJCWCICDCTCHCLCCCLCV"8ECCCOCDCECACLCTMODECECCCHCOCPCACGCECTCACBCLCOCCATIONCFCICLCESCRCECACDONLYCVCECRSIONCPCACRITYCDCECNSITYCFCICLCLCFCLCAC
CCCTCRCLCEVENCODDCDCECLCACYCGCACGCPCACUCSCECHCECICGCHCTCSCCCOCPCE	-F$	2F	6FGCDCVCCODECCCOCLUMNCLCAB8CACLCAB7B8CICNCICTCOCSB8COCSB7B8PSQS[W?L=W	?"GHY8 
>.O=?H*ZH(%9??"1?>(Y?=(Y-Q.G%2? CAN	T AFFECT ANNALEX LPT-8H%?H.*%2? CAN	T - NOT KL8E HANDLER-8H*> -7%
+$XYHYC<> +$HYC;\	.>2IL^9F9DH*8H8X8H\^2A/M2IL^9D9DH*8H8X\^2A/Y:%2? BAD VERSION LETTER-8IE	:ID	:/2VERTYF
 :A:/F	?H*9F8FK>
=.	?H*9F8F8D8!
<.H%&H*> K;K:
9.Q	8%%BMA<(-$K7XPH*>(K6K5\P.Y%&%3<(*4K4>(%3K3> -7*9H*>(K2J:	1%%BAG-$XP;$HPXRHPK7XTH*>(+RHPK0X[H[C/K.\RK-\T.(HPK,X[L[\RK+\T.(%2? ILLEGAL WIDTH-8CBCLCOCCCK>H?6> J??<4,(<2=Q:D CV;P< A(:B:AD(G%&%%BAK?-$K?XPH*9DK>HPXRLR\P.%2? CAN	T - MUST REASSEMBLE KL8E SOUR
E-8%&-I.&Z?N?R?<(+8!XP%
*9HP9D>(*,.*%	HP8!?H+.*%:: %;R*.*$9.	%G^%L
4%T*Q$?.O%Y*Y%^*(&Q,&V.&[.&/LA&),&&3VU&9ZG	\	\XZN![/N0NDB??W%%BBB	-$K?XPH*>(K>K=\P.W%%BBC?-$K<XPLP9I6>P-$H*>(IXK;\P.OW-I.FWHYAC> -BHYI,>(-B%%BB>-$8AXPLPA4K:XRHP8AXTHY8!\TLT\R.	H*> -7,%P<(/9XYH+> -7HYA"> -!/F	8H(%9??"1?>"1?=/+?</+?;/+?:/+-Q/W%3K7> /,: %;%3
/,NO=C(*+Z;?>HE:D ?>ZRK?ZQJR8F8FACIA%>JR8F8DZRRQ*D.NTRTK>XHNTRT8!X!NT8!XPRTLHHP>(*(P!*!.TRTHH.TH*> -7% X/H+> -7%3XPHP<(.+K=< K<> -7.+"+H%?HI,I,9H/>X-!H/K;X/HP>(Z% XYH+> .?%3> -7HY\/.?L/"K:%>M=ZS%=I<XSJS]=/Z%2? OLD BASIC-8	9OS/8 SET X3B-6:8DQB/:Q=C9??<H*> 
7"THSX)K?%<H*QH)XSK>%-7K=K<
;.H(%9??"1?>"1?="1?<2)?;2)?:2)-Q.T"TH*> -7-I.*"TH*8!8A
:.1%2? UNKNOWN CARD CODE-8H*> -7	9%PK8<(+TK7> *8X44N/DX44[/DOX[)SXOX[*SXO)<(/XK;[+O*
+S)S*+
0Y+-0^A4I6/,8!?=?&/,:A:BD&%& ADAEAFALAMANATAUAVAWA\A]A^ZC G]B=LE?^
ADJI[<F!;N\HK>?] >G<[LHBCEZDJ;^FK!
NI=\ATECOSV[AK?B.,Z5	>A8-(J5Z>KA
=	>!8-(.,[H:A2J$
B/BKHSB/BH*> -7% <(-7X-H-AL> /<H-K;?H-!H-9F8DX-K:X,	9/NK;?H+$L,C8H-\,+$%G3D*Z*
*8G^0:?(EB8B>G4(LSK?<(.K>>(./="N	<2K.I	;*T:	:.NK9> *ZK8HSXS	:K7\S.N	62K.^-A-D-I-M-Q-V-Z-
--&-+-0-5-:-?.A.C.H.L.P.U.Y.\.!.%.).,.1.6.9.>/C/G/L/Q/V/[/
/!/&/+///3/6/;/?0D0I0M0Q0V0Y0^00&0*0.0205090<1APHB C=RCCEB(BK?&= %0%2I/O READ ERROR-8%0%2 I/O WRITE ERROR-8%0%2         --  NOT FOUND ON SYS: -8%0%2OLD HANDLER NOT FOUND IN MONITOR-8%0%2CAN	T - HANDLER ALREADY RESIDENT-8%0%2CAN	T - TOO MANY LOGICAL DEVICE
-8%0%2DONE -8>"2-=RHA(.\1M>G-,00R3]/"6
=D/2H04>N7%>R7R<*A%2    HANDLER NAME       LOGICAL DEVICE NAMES%2    











       



















%02K.:8B[CHB[CJ?<K.[$2IO$<(+ C9K8[&O&C-	;<(+QK,> +[O:?H/+O:9H>X/+K*	)	19E	(+ ;VK$[$S%*?<B.5P4!BG9B?8G8>O?7E0=R9(6I?>?0?/O04>>2C*V

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