File DHDPAC.SV (save files (Executable program)

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

?<2CBFHZ4B8BC(>D5TA?DTHQPD)H;DLP*PBDCL?H+ R$"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BB7W	X/ZF0.2R3.5^6"8692JKA3CWD3FG3I/J3L;M7OGP7RSS7U
V7X+Y.0J1.3V4.6"7"9*M3AOB3D[E3G	H3J3K3M?N7PKQ7SWT7VW/YCZ.1N2.4Z5.7&82MFJ3BSC3E
F3H+I3K7L7NCO7QOR7T[U7W	X/ZF0.2R3.5^6"8692JKA3CWD3FG3I/J3L;M7OGP7RSS7U
V7X+Y.0J1.3V4.6"7"9*M3AOB3D[E3G	H3J3K3M?N7PKQ7SWT7VW?X8B??CCLSVF-?/DIRECTSVUE?9FOTPBB4B=DCFF.HHSH4H=JF\H!CEFSVFT?3BITMAPSVFT?;SRCCOMSVFT?;BOOTSVFT?;RESORCSVFT?6CAMPSVFT?8ABSLDRSVE<?;LPTSPLSV-D?6BATCHSVFT?6TECOSVFT?4BTRXSVW%?>RXCOPYSVUM?:MCPIPSV(U?3GAUSSIN
]?>GAUSSFT?9AB?D:HRC?> *L	>$WC?> .*Z"\*ZR*$]$ZB-J*$\$]	>$WC?> $!R.J+> *$J,8 Z)R+R)*ZZ+R\.\DHDPAC  PASS :$"8HQ?H>LHP.40Y*>0^C=K<XUHU.=;OF[!SFO!C;<(/F=8P8A8J8J8J$
O!C:<(/FK9=K8K7$
S!+K;HRC?> +.8 K[K6
/OSFBN*%?;:*<BB A
 ??BA?FSD
?HRA?> *HO?.0D
>=A
=Z/J1Z0N0<(*XHU>(*%R/R0*OHT> *"HU$
I>$
$]R.RHU.HUI=XUJ2J/Z.N.Z...D3D<===4=1=/=.=-=;=<EDE	E-EJENEYE2F
<
;	:2C0G/9[%XT	8/&	:[%XT$]
;
7
<
62C/XBK%> +
8AJ[&S%$X	8$Y:+YO<8 
<	:	8.	:O78 
7.
;	:	8.B*C"FS:/FMG	I[K\K]K["MJK> *GO?ZLRK$[ZK"S.LK>$
HU$
.M:O=<QO<8D:O;.S;HRC?>(.\$ZF)$X"S$Y.\*]WAITING :HRC?>(..K	> /:S	$ZG)HP$\K9$
PT$^OHUXPK8[($^OHP9F8DHUXPS(+E+$8!K7>(+$HUK6?H+ HUK5?+ HUC4XU/OK3$
$]*/$][	..SR= :!TR :]:!TR B?G=H=PBM?= ERK[K]K\C^D9F8FZQK?ZRJQC>K=$
JQ8F8DZQRR*F.;K<$
J
8 Z K;$
R *[.SD
:0D
9=A
80Y*2HRC7>(*2$X	6$Y8R!	6.!$XPT$Y.4$
XTHU.4[Z2AO52I[YO4CY> .=K[CY> +QKZ0&0!+M0"+WKZ66\61+S62:.=$"8/\BHBIDEJFC)>J J$LXL\.G.A1>&Y/S&DC");FSDK\K]K[BJBMB0G?<0B[[0D[]=A[\; J[ZHRC?>(*+O>> *%$]$ZKF$ZKNKZ$\$ZKQK[$\$ZKTK\$\$ZKWK]$\$]	=$W?H*3$!*3	=$W?H.K<
Z	=/Z	=.<B8[E2AHP
;HU
:HT
9O8[DKE2B/DDHDPAC  FAILED   PC:  AC:  MQ:  FL:????????(HW<B2B"GFHK<B(P2B"GHHW<B/:O
!P<BFSC"D,B?68 H^H;2AD**E*J*O*T*Y*^**(*-*2*8*>+C+H+M"0"	&M	!() ES WK*)+EX 1E	 !YE &=	K	N	W:O:D44H?P?P?Q?R?S?T?U?V?W?X?Y?8C?BBV6A6B6C6D1?22A2B???DP ABDHP ?<?;?8? (TL?0+2/?+$/4-?$3+?$5,K?>M"	;YL$5-%?>M"	;9F8DY $5,P?;	:	7YM	5$5,^?;	:	7YN	6$5,,?;	:	8YOK<XOHCX
IOX]H]\OP]PX*.	=$5-I?>	9$5-B?<	:C0Y]$5-S?>M"	;<(+O8!8A<(+R8A> *>8 Y)+TI-Y)+TK1Y)$5-]?>M"X!H!K2>(+"H!K3> ,7<H; Y*;2THG
/Y,Y+K>>(	.-3I\	LC??<8<:+W$^$0$Y$:&$H$AO%!:E0GY^Y
$.I4$-0C*J$8-9$:*<H0G$*R$8--$:*M<H0G$%*Z$8--$:*U<H0G$&*"$8--$:*]<H0G$+**$8--$:*%<H0G$,*2$8--$:*->H0G$0CRXYHY>(+$9-2/"??$:*5>H0G$/CRXYHYI>>(+O$9-2/^??$:+C+?<P;X$2;/S;OX]WI%]X%GI]]&I]]	%F$(SX/X;O	]TI!]U$	S	/	I"<P:9F8FA52IH\OK+/ HY>(H">(80GXYI/XZX[X\I9XSX^H^
.$0X[$/X\H\8!HZ> *WH[>(*[$9-2/&?<$>*(*IHZI0XZH^I4X^PS*I$:*;$$$.$0XY$/XZHY> *6HZI>>(*:$9-2/3?>$:*(0GXYXZX[X\I9XSX^H^$.$0X[$/X\H\I>> +SH[8!HY>(+W$9-2/&?<$>+$+DHYI0XYH^I1X^PS+D$:*<;$$$.$0XY$/XZHY> +2HZI>>(+6$9-2/3?>$:+$+?%-ILLEGAL SY80GXYI;I/XZI6$-$0X[$/X\H[
 *SH\8!HZ>(*W$9-2/&?<$:*$$$0XY$/XZHY> *$HZI>>(*)$9-2/3?>$:*Y$<0GI/XYK?XZI3$-$;$;$0X[$/X\H[8!HY> +CH\8!HZ>(+G$9-2/&?<$:*+$$$0XY$/XZHY> +THZI>>(+Y$9-2/3?>$:+I+?;I HG[	K3XHK4XIK2XSLH%F\IPS+	8 
5/\?0TP>=?;?C>J\MIAXNLN<(+&$6+:TP0G$$I6$-0C*J$8-9$:*I;$-0C*Q$+*X*U$+*[$8.B$:**^$8.L*U$8.V*U$+*"$8--$:*^0GI6$-$$$+*,$8--$:*$0G$$I;$-$+8I)9H>P+N0C*=$,+D+A$,+G$8.B$:*.+J$8.L+A$8.V+A;I)?+$$I4$-0C+V$,+]+Z$,+ $8.B$:*.+$8.L+Z$8.V+Z$,+	$8--$:++?;IZXX;X$2PX+.;/*HX
/(I580!+90&:H<[88$<0G$???]&I3$-$;$;$0XYHYA5> *U$9-2/"??$:*I=$-$;I<XZI/XY$0X[$/X\HY8!H[> **HZ8!H\>(*0$9-2/&?<$:*;MWXYHY>(*<$9.!0??$:*;I&XYMXXZHY8!HZ>(+L$9.*/:?>$:*0C+^$&+X+W$&+[$8.B$:*+^$8.L+U$8.V+U;$*XZMXXYHY8!HZ>(+.$9.8/:?>$:*$&+2$8--$:+.+?[0/,%SAVE ERRO
O58$=MW>(*F$8.!$:*$<$???I<$-$;$;$0XYHYA5> *[$9-2/"??$:*HK?$-$=$=MW>(*$$8.!$:*H0GX\X[Y^Y
IL8 XUXYXZI[8 XS$<$???%GHY]&%FIZXTXZI^$.;I=$-$;$;$;$/A/> I\<QHZ9H=AXZPT+DHY8!HZ>(+Y$9/J03?=$>+!*3PYPS*33*.;I^I1Y^P[PU*.$:*&;$.Y^Y
I*>(+?/2&=%JA0>(S3/3C?<(K?8A9H/5\$<$???I]]&I=$-%??$0XYHYA3> *S$9/D/"??$:*$)$0XYHYA3>(* $9/D/"??$:*U0GXYI[8 XS$<$??>HY8!I]>(+KI]8H<X*6; ]&*8;]&HY]	I=$-%?>$0XZHZA3>(+H$9/D0D?>$>+P*	PYPS*	$:*"0GXYI[8 XS$<$??>HY8!I]>(+0HY]	I=$-%?>$0XZHZA=>(+-$9/D0D?>$>+5+UPYP
+U$:+P+?8$<$??>I=$-%?>$0XYHYA=8!I=>(*S$9/D/"??$:*$)$0XYHYA=>(* $9/D/"??$:*U0GXYI[8 XS$<$??=HY](I=$-%?=$0XZHZA=8!I=>(*<$9/D0D?>$>+D*	PYPS*	$:*"+?8$<$??>I=$-%?>$-;$	$0XYHYA6> *T$9-2/"??$:*$<%B%C$??>%A??I=$-%?>MTXYHY>(*,$9.!0??$:*VMUXZI"XYHY8!HZ>(*;$9.*/:?>$
*V0C+$%+G+D$%+J$8.B$:*V+N$8.L+D$8.V$:+D;I]XYM"XZHY8!HZ>(+^$9/J/:?>$:*V$0XYHYC38!I=>(+*$9-2/"??$:*V$%+0$8--$:+,+?,RZR!R RZR^R% $ [ [WXBF8%B$<$??=8 ](%A??I=$-%?=MTXYHY>(*U$9.!0??$:*0GX\X[Y^Y
IL8 XU%CXYI[8 XS$<$??=%A?>HY](%H]"]%F;I
$.;I=$-%?=%HMXZ%FHY8!HZ>(+D$9/J03?=$>+L*$PYPS*$	Z* ;I
I4Y
P[PU* $:*W;$.Y^Y
+?O3ASA
AQAUAXAGAM%: *0WEV3WV>U/M-WV3V/V,V*V6V;V/V/V/V.V/V/V*V*V*V*V*V*MY80GX^I[8 XS%C%BI28!8AXTI	XHH^\HPT*M$<$?=?%A>I=$-%=?%D>*!$9/J/:?>$>*)*EP^PS*E$:*+?;I]HY<(*88!8 > *>UPUQURUSUPUQURUS;.*I]>(*8HY>(*8.*;]P]Q]R]S/E6IKP7OKG+ACM3N7AE*M*-6-*-6-*-6-*I6-*-6-*-6-*-6-*
6I*-6-*-6-*-6-"-6-"J*M3D7H3EGA*I6I*0683D7H+E7AA&I3M3U0GX^I[8 XS%C%BI28!8AXTI	XHH^\HPT<H*XH^8 A[\HPT*M$<$?=?%A>I=$-%=?%D>*($9/J/:?>$>*0*EP^PS*E$:*0GIK>(-EIK8!XTIK8!I.IOXZI[8 XSXY%C$<$??=%A?>HY](HYI6\ZI=$-HY8!I]> +WUWUT%?>+Y%?=$-MT8 >(+"$9/P0K?>$>+-+PYPS+PZ
T*<$:*0+?+M7AB&I7ESX3ESN+ECD3M7E7O	R2 C3E80GIK8!XUIK8!I.IOX[I[8 XTXZI[8 XSXY%C$<$??=%A?>HY8!HZ>(*5HZ8!I]>(*8HY](HZI6\[I=$-%?=$-MT>(*2$9/P0R?=$>+*QPYPS*QPZPT*MP[PU*I$:*$<%C$??=%A?>](I=$-%?=0C+P$+W+T$+W$8.B$:++]$8.L+T$8.V+T$+!$8--$:+]+?7LSIY*M2*D3VOTB&I.-"0
-D3VOT"-	B6ISV*5B07TKE3M;I+A80GIK8!XTIK8!I.IOX[I[8 XSXY%C$<$??=%A?>HY](	?HY\[I=$-I]8!HY> *$UWUT%?>*&%?=$2XZ$<H*/$9/V0\?=$>*:*MPYPS*MP[PT*I$:*0GIK8!XUIK8!I.IOX\X[I[8 XTXZI[8 XSXY%C$<$??=%A?>	?HY8!HZ>(+0HZ8!I]>(+3HY](HZ\\I=$-%?=$2X[$+-$9/V0&?<$>+;+LPYPS+LPZ
T+HP\PU+D$:*:-E3EOR3IX*;NXXRI&XHI!XILHXYLIXZHY8!HZ> *UPX*I.R.0GIZXX$;PX*[;$..W;8 I!XH8 I%XII38!XX\H\IPX*,.!;N1XW$;$;$;$=PW*8R1.1B-28R-7ICL3AN-2I2I+E>8/LCP282 3IWN6 KP7ISN+ECR7TOET*M2*	D3LWPB&I.-"02-	D3LWP"-	B6ICL*0>8/LCP252 3IWN6 KP7ISN+ECR7TOET*M*M*J3D3H
SOA;NXORLOX!H!8B"MH!"M*EA-<(.I:=H*VJ*!8A< *[J$*!8A< * J%*!J&$4.MB BMBJC^;N	Z2R	N	X"R	;XW$3I8XXI!XO\OPX*7H"XXI!XO$6K$?H+OH!K%? +OH!$4H!\OPWPX*>	!*/;KXNLN<(*>H!>(+ZPN+RLN["	"HW>(+M.	&0+Q= <!P
0Y+(0^X!%I$YH!/&%I$
<H/00&0!+6;/03H/RA	C.IB-KG=,7KH=H,7.;I!XOHW8!XXX]LO"H]PX<H.H9F8D*OX]H]CK.Y;KOZ*I9XXIMX""(.^H"R*P"PX*).(;KPZ*I9XXINX""(.0X]KLH]?H,7H]KM? ,7H]CN.:=HHLK78BP?8
Q
Y*A*F*K*P*U*Z*
*$*)*.*3*9*?+D+I+N$5,5?>M""YK/!	B2I/R*8CE7DOI3KZ 3O7R7AST+ECR3P?R3GGRM*M6MJJ;M"X]H]O?? ,7H]J&=H,7X]H]J%8!YZH]8!<(*]8A<(*\8A> ,7I2I1I-Y[I[8 9HA[Y\.F=J;J/$4J	K>Z	.	C\;J5$4.0B?;$3&:.6
^%I$V<H/=%JA1> /=$3	G/=
^DP/K;I^8J8HHG[U/N;I
8J8J8JHG[
/W; K!X O!
<S!Y,Y+	;/!3TOI3AWT3DZ 3IWL6 KT7AON7FKE2M(S("C$B%G; JX NZ"RNZ	RNXWR8 Y,"S8 Y+.: [;%JA5> *,I+> *(H "7$3)W$3I,>(*,$3I,>(*,L[;%JA6> *5H %I$!<B;.SX"H"8BA[YH"A[Z.7A-<Q=A9F8DC]=AC]K^/AK
XN$3&:LN"7$3)XPW+Q/L
^      GG00X%JA4> +	Y+S %I$"8/ I+>(+5%JA2>(+5Y+/+S+%JA3>(S+/+"B"B4<HR.4A<H<B.E4B<HRJ.J4C<HRO.O4D<H<B.T4E<H<B.Y4F<H<B.^4G<H<B.4H<HR(.(4I<HR-.-4J<H<B;.24K<H<B;.84L<H<B.>4M<H<B/C4N<HSH/H4O<H<B/M=3&6<A&	;I HG[O?XHO>XIK/XS%FLH\IPS+";I K0[+<H/=/1>2B??;2THG
</;B"B"BD	L:5I3I4
^DP8-EA/EB DIAGNOSTIC
^STACKS-
^DEVICE CODE 1ST IOT SET-
^DEVICE CODE 2ND IOT SET-
^ACCESS ADDRESS-
^CHARACTER RECOGNITION-
^SYNC CODE-
^CHARACTER LENGTH-
^CARRIER-AGC MODE-
^FULL DUPLEX-
^LOADER FIELD-FLAG SETSTATUS ERRORINTERRUPT ACTIVENO INTERRUPT, SKIPINTERRUPT, NO SKIPNO INTERRUPT, NO SKIPWORD COUNT NOT 0CURRENT ADDRESS NOT CORRECTTRANSFERR ADDRESS ERRORSYNC ERRORDATA ERRORSTRIP ERRORDETECT ERROR
^RSR2
^RSR1
^ESR1  ESR2  RSR1  RSR2
^RSR1  RSR2
^EXP   REC
^DATA
^DATA  RSR1
^DATA  TCAD
^DATA  CHAR  TCAD
^DATA  DET   TCAD
^DATA  CHAR  DET   TCAD
^EXP   REC   FIELD*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-6-"J*M3DOEX	C"I&I2IWD7C"/28N 7USS3O	M3ZSE6 E3EOR3IWSN "2*M"I&I*I"I7COU3T7O3IWZ7DZ 7EOR3I;O")*M*M*J3D3I3AOB*I6I*0683D3I+A7BC&I/LOA262//AV32 WT3R	M3N3A2 WTS7T2JR
7ICLA	C.IB-28R-7ICL3AN-2I2I+E>8/LCP282 3IWN6 KP7ISN+ECR7TOET*M2*	D3LWPB&I.-"02-	D3LWP"-	B6ICL*0>8/LCP252 3IWN6 KP7ISN+ECR7TOET*M*M*J3D3H3SOA*I6I*0683D3H+S7AC&I/LS*-CE3L;I7EB 3R;I7TKE2 WTS7T2JD3CGM*I6I*0683DOH+M7AB&I/CM*-CF7CKA7DJ 3ESA+ECR7TOET*M2*D3KGGB&I
-"02-D3KGG"-	B2I
K28V-2 WR3D;U3AON7YR 7ESS*M*J3DSH3POA*I6I*0683DSH+P7AC&I/DP*-CE7A	S3NC3R;O7OOU2 ?M3D7E2 WTS7T2JR*3H/RA	C.IB-28R-/R3AN-6IJI3KV82 	D3S3K7EOS2 ?C7NKT+OCL7TOET*M2*D3RKKF&I.-"02-D3RKK"-	F2I/R*8CE3D	R+VCE3C;O3T?R7LR 7ESS*M*J7DKH3K[C*I6I*0687DKH+K7CF&I/RK3ER 3AG
2 WR3LGI3B3I+TCY3P?R3GGRM*M2*D3RSKB&I.-B82-D3RSK"-	B2I/R*8CE7DOI3KZ 3O7R7AST+ECR3P?R3GGRM*M6MJJ"[*NID9J8J8JA:Z7"	*N%C:J7K?[2IDZ7%F%G-."[%FIDR.;&YLYD"	-A"	.[QL*!R[.[%CK>9K=[E<P.	ID9D9D9DKEYDR	.	"-A1^72A%G--E"[%FEID*:R7/EK=K2[2/E"<H-AK2[TJ7 PE<B-E"%F<(8A8![
%HK2A:9J8HK<%NJ7	;K:%N1N72A	;E	9S0+]-E<B/1     .;/ 5U 0H=H2A%I$W>D.;%I$[/?K>
=Y 
<X
/?Z.NOZ-ROHRC;> *ZJ..ORO2IHP
:HQ
9HR
8H

7H!C6I2
5J-
4J.2J/4O3>(/2K1
0//K.
0/28PCS<CTAO?> +%[$]A99J8J8H[$]C<9F8DK$[$	6:O5K$2A
42A%F%G--E/3	6K2> -ID/]:AZ[ PIQ:X;GO;
;<H+W+,8>C>J5UA?TRQPD);BL*TBC

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