File DHCRAA.SV (save files (Executable program)

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

??2CBPQADCDTAADFG ACDJ,AADLM8AXAOBH\FEPCBDP AH"WL/<"H!LGHW<!?DV8 H"
DW\"H H
H
TH"H	H/\ H"	H/<"H H7L7< H H7L7< "D?D\H!LNO\H!LODOX!HDWD^<H!DWD
<H!L%H	<!HD/H	\HD/L7\H!L?L?\!HD7?LBHHJK\ H"GO<"H H6,B<B8 H^H;9 H:H^,BJDJD>PBJBOBTBYB^BB(B,B0B5B:RXRSNP5S2N<NE]F\GPL L1\Z ^]P[P
P!PVXPSNDL"P\B>LDJJTP<ABCG)?AQBGBJBMB B*B0C DHP **6Z6\6^??C?;8>0?A?B?C?M?V?X? ?98 B>">&G8???0/G <%E DHGD,=?=DI?,5<B,4<B,6<B,7<B,8<B6Y<HRJ.J:6Z.O<B:6\.T<B:6^.Y<B69<HR^.^6:<HR.6<.(<B6].,<B;6
.0<B6=<HR5.56?.:<B;IRYI0G$U<H<B	?$Y<H<B	?0B$P<H<B	?$T<H<B	?:IN$W<HC]KWXB0A8<H<B0BQI+B:IM$]V,<B<P+:XP;&X JA9DXSHR8D=H-3XRHSP +,JAJAHP+$I.X JA2I/ H:I$YC0G$U<H*K$]TU$X<BICYBYA$P<H*YQA*NQB*N$]T	$X<B$RICYEYF$T<H*(QE*]QF*]$]UU$X<B	?0G$T<H<B	>$U*.$P*0	=0G$P<H<B	
$R$T*90G:$WKAXB<HEP$U+B$P+D0A80B$R$T+J0A80B<H<B0G:H"XB$U+U$P+W0A80B<B$R$T+^/<[+HU>(+6(-[+J&2J%0B+;K,9I"<P:9F8FA52IH\OK+/ HYFHXHH10G:HXBIM$W$]W?0AICYBI]YAQB*MQA*M0B$U*X$]W[$X<B$]V6$X<B:$XA[>(<B$Y<B$Z$Y<H<BJ*XB<HF/0A80B<H<B$XA[< <B0G:H$XBIM$W$]X!0AICYBI]YAQ
+AQA+A0B$U+L$]V6$X<B$]YC$X<B:	?$Y<B0G$Y<H<BK[XB<HG 0A80B<H<B$XAZ< <B$]WQ<BX^K7%Q9F8FA5LZ\Z2AH IP<(%)X -OM9:%-ILLEGAL SYIJ;$XYHIHAZ< <B;IHA[< <B;IHA\< <B;IHA]< <B.;$XYHIHAZ< <B;IHA[< <B;IHA\< <B;IHA]<(<B:.X$R$XYHIHAZ< <B;IHA[< <B;IHA\<(<B;IHA]< <B:.1;$XYHI
AZ<(<B;IHA[< <B;IHA\< <B;IHA]< <B:/JXPLP$6: HM*FPT+IB*?IXPT+2IB$6XTHU$6/-J\MIAXNLN<(+&$6+:B*;YKI$YCH*X<H<X=I(\/I!
?O?
>QJH-YGI%X;,%;YJQKI$YCH)X<H<X=I*\/I!
?O?
>I%X;H.YG,%EB%+CD=:D\HB> -M%3A8!HC> -M	<%6=SK$=TJ)=CKA.Y%L-QHY>(-%%3DAS<(8A9 OLUOLSLA%> +M,???XPHP8J8J8J
HP
/UA%<(/
H>A%H>7/
HUUHVUHWUHX>(/(H=
HXU/(I580!+90&:H<NOND0G:I$YC:YJYK>D?H*RH	X<I&\/H+YGI
*YH(X<I	\/H,YGI 
?O?
>I%X;H<X=H=X>I%X:$T**$]S9$X<B$U<H*1$]TU$X<BICYBYA$P<H*?QA*4QB*4$]T	$X<B$XA]>(<BH!XB0A80B$]T>$X<B[.,;Z[/K.-8!H!=H,[.,T1*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVE ERRORNOND$P*$Y<BX?$XA]< <B:ICYDQD*MYH?8!I> ,0H?8!L>> ,0P>$9P:** ICYEYF$T<H*.QE*QF*$]
U$X<B$XA\>(<B:H XB0A80B$]U,$X<B$Y<B$V$T+E$]VE$X<B$V$RP;<H/?>D8F8FYDQD+NP=:,%/T?/O)[\S)O)[[	-AH+%K[5K][]S)+M2J	,G<D<?2?>GS2+$/ J*%7HT9J8J8JC?<(K?8A9H/5P:IS$^IW$^>D8D8F=<B;IJ< ,7IK< ,8.RLG>D8D="\>D8F?<B/?$]VWH;IR$[$]V\H:IR$[$]V L>$\$]V$H?$\$]V(I$\$
.\0&0!*70":.5H>8!IG> +DH<X>.<.
"PX!2B%=AA</*&H!2C/K:RH 9HJ];J!]::Q2AE92I8H?X-:-89P+UBSZ 2KN 2K/CDK<[42AM92I8J>X/)2B%=H[*&/)2B%=AIHV*&N ZRJR8F8F"SJR8J8J8J"SJR8J8H"SJR"S.AOIX$^.S=H8 Z7J4Z9J3Z$<HZ79J7J5<XR8<X*!:J8IX$^:Z8R$R9*.XJ5?>?6??8DA-[B\[C2B$U<B:I%X:$P+E$RP:+E$T+J$V+:ONSNXHLH[]K]8J8J
J^K]^+SAQ<(/N8 AQ< +($
/^8 AQI,=+/IY<HIV$^/^:IU$^IT$^/2S9?RCSD FAILED OR CARD DONE FLAG PRESENT AT WRONG TIME?TU?RCSE FAILED OR READER NOT READY?T	?RCSF FAILED OR DATA READY FLAG DIDN	T SET?T>?DATA FLAG DIDN	T CAUSE PROGRAM INTERRUPT?UU?RCSD FAILED OR CARD DONE FLAG DIDN	T SET?
,?CARD DONE FLAG DIDN	T CAUSE PROGRAM INTERRUPT?VERCRD DIDN	T CLEAR CARD DONE FLAG?VW?  CD-V\  CL-V   G-V$  R1-V(  R2-V,?IOTS OK?V2  B-V6?READY\TROUBLE FLAG DIDN	T CAUSE PROGRAM INTERRUPT?WQ?MANUAL TESTS OK?W[?READ STOP(G.D.I.) OR STOP(DOCUMATION) WAS NOT
PRESSED,RESTART TEST.?W??OPERATOR MUST NOW PRESS READ STOP(G.D.I.) OR STOP(DOCUMATION).?X!?OPERATOR MUST NOW PRESS READ START(G.D.I) OR RESET(DOCUMATION).?YC?READ START(G.D.I.) OR RESET(DOCUMATION) WAS NOT PRESSED,RESTART TEST.?I&$U$	$:$;Q6Y
; X ;($W;I1XHLI"I&$U$($:$;U7Y/; ABDHP ABDHP IIRR[[$$--66??HHJJKKLLMMNNOOPPQQSSTTUUVVWWXXYYZZ\\]]^^

  !!""%%&&		(())**++,,..//001122334455778899::;;<<==>>AABBCCDDEEFFGGZHAS>,%7+O;$WX"H!X8$[8!H!>(+^P"+V+!P!+S$:$;!<[I; $WX INI$$V$T+*;$WX"H!X8$[8!H!>(+9P"+1+<P!+.$:$;!=[$; 0123456789:;<=>? !"$%&	()*+,-./PQRSTUVWXYZ[\]^
ABCDEFGHIJKLMNO0123456789:;<=>?; $S;X8H!$Z> +)H!$[> +)H!$X> +)H!$Y> +)$T+$P!+R$:$;ZA]G%8,3;IJX?; X ;GI"$U$($:$;NB]1; X ;VI"$UAAAABACADAEAFAGAHCAJAKALAMANAO !"$%&	(B *+,-./PQRSTUVWXBPZ[\]^
ABCDEFGHBJKLMNOAAAABACADAEAFAGAHCAJAKALAMANAO; X IKX%;V$U$T$&$:$;FJ
P; X IKX%;A$U$T$&$:$;FK
\; X ;GI"$U$T+-$	+4$T+1$:$;NL
(; X ;EI"$U$T+<$	-=BHGFEDCBAP A"W /"?!GW!/?V ^"
 W"W 
"
%"	"/ 	"	 /"/ 7"7 ? 7"7 ?"?ADG!NOG!OO!VW!^
!W!

!%	!//!		/!77!??!77!?BCJ"K G"G O"O 6"O!7O;G$U$T+R8 $Y$.$:$;*R!N; X ;E$U$T+
8 $Y$.$:$;*S![; X ;A$U$T+,8 $Y$.$:$;*T!(; X ;G$V$T+9$Y$T+<$Y$T

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