File HSRHSP.SV (save files (Executable program)

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

??2CBPRLQ SD(JLY8RD?H*PID	(ML"0/B*L(DLYL*%DVD0D*D
HR\*LQ SHDILY8RD?H*P^H	LML"0/DB,*HHD5LA$4	H,<.HPD=$?,<RL[DNH5D5 [DO,XDW [9,DWLKH<,PDI SH[,WA:K$XL ,$D;LDC$SH+8D5LKL08XL\X???L8BP>LA <D!DX>DD
X9L8 FHFD8H[P	?L0L(ABCH^,BH8H^,AH+?4JDJD>PB8C[D	PX\2]F]O]
]+^ !B!H""[ZFNFH(HJ-J;JJGJLJXII%CTKIKTLLJL]EQEKDVE^DDIIIOH"DIG[;,>B0?D?";28???6>\0B*AUC?P BD00GG?IUB A? =H=?IX> A?Y?3O<H>B>DA?I>= *A>DA?XXHXI=YKMKZ $<EA?>YK$<AKAL?0$=H=<BI<YDI;]:. >B:HPYOG$>8F<P-M$>A?8!IN>(-MIO8A> *%$	M0>B*"$V$>8F>X*"IO8A> *%$>8F?H*"<B*8;
OYNQOIOYKQOIOYMMKYO/G$WA?<(+U8!/T$>?/[IN<B/[<P+6XP;&X JA9DXSHR8D=H-3XRHSP +(JAJAHP+ I.X JA2I/\%-TOO MANY:NYKRN]KR.;HQYP.NDOIFYQQQ*QQP*O.IQV0&:IV> <H* 0!*Z0"YV.V>DAE.:KIJ>> *4KZ>J?9D<X8AZ?J?N>^>KJ8HN>R>[JKJ.	EI5EA5ZHG5,ZQG>,QH>:7$WA<8!XQ/K[]OQ8!K]SQ> +[SQ/
K]/Q:O^[1S^O^[2S^O^[3S^:O1
2S1S2S3+)/^/[HY>(H">(+<PY(2%!%- NOT:NZMR$	FJRM*E.MJA:NN[[BRNO8J8J8J"]O"]S*TA9[AKB> **KA<(*("9.]SB.][BKA8!<(*&8A>(.NI8Z;KA"9I7Z;.]I6=HI5I4$;.9XS8HXT0I+J/I0Q+O%3/N0Y+S0Z-C0!+X0"YV-C$	MA>B;HT8DHS0A,0R-C0J-C%T+ H!> HU>(-3I	HOXZ;VX^K?%Q9F8FA"LZ\Z2AH IP<(%)X -O
9:NZ
RNZ RI2F
9J8J8J"TR I28 F
"T.Z!J!8F8DA1J!A1I0^ .T:N"XQR"."$*XL9$*ANL<N(
H$	L6R(N(<(*:Z9$	$>A/>(<B$>A.> ,U$>A5> R(R(.(L>:OIYRSI/I:OOYSSO/O$>A-> /U$>A,> <H$:HQ< %B/U$9+)S/YY$*I%ND$*AYNI$)  NA//$6/.K\MI?XNLN<(+	$6+;0L0I*B:0J.0V0Q*I.G$=JW>\:0V0Q*RRW*P.L"L%?7$=J&MQ:N&"GR&QS*
.XJ[>R;J)8FJ*Z)J)8FJ*8FZ*J)A+.-;J+8FJ,Z+J+8FJ,8FZ,J+A+.;$6$-YH$-YI$-YJ$5+J/I$=K38$=K4?6$78 AH< +[$78 AI<(+)S3+X>B/T$78 AJ< +0ST/TS4+X+	/	I680!+80&:H:[7/6,4:AZ0$<L0L1?=Z4Z5.:J0Z1J48 Z4J4>(*WJ18 *YJ18!A+Z0J1.J:J2Z3J58 Z5J5>(**J38 *,J38!A+Z2J3.]MJ*P     R   
    AMJG UNEXPECTED INTERRUPT.MA
  
?IIFMJ RDR SPEED AMJ PCH SPEED A CPSMAMJ GINCORRECT RTN SELECTED.MA S/B        WAS     MAMJ8E  SYSTEM. SET TIME DELAY CONSTANT IN SR.MJREFER TO PAGES 2 AND 3 OF PRG LISTING.A]TH&>(%OK8A[]HV]UHV[-LM\NSL+E/J=MF,W*+UK]
+0!+Q/T?/O)[\S)O)[[	-AD+%K[7K][]S)+M2J	,G<D<?2?>GCYCSB+CLCICSCTB B<9J8J8JC?8A9H/7
$=PPH$=AE?O.GB!P^$?<8%A<F0L%B0I*UQR*N,U$)  *R%A?40L%B*[AP4$?A0L0I*0I**QR*%,U$)  *	0L0I*/0I*1*1BQE$?A0J0I+B$)  +B0I*?*?QR*9,UCRK?XRK>Y^0B:Y]Q]+NQ^+NK=Y\0G0L)0I+
0H0C+
PR+I,U$)  +I0B0I+$0I+&+&Q\+*/)BP$4X6%(NS/-%)/-U[V(V^CYVXCZU:VTR0?; DT0B0G0H0P0A0L0*L0C<H*PPR*B,U$)  *O0H%B0P*T?%8%3)?%8X7*UI\XY-!FFI[XUI[XSHSXIH79!%:<(*6>X*7HSXU%8< *&<HR"HS8AXOXP."FTX?HHFK/H6<(+NH=X6HVI>(%).<X8 *>HV> +VI>(8AY*=IH+ESLPP+%HQARX6H6IC>(+KH6K
/X%<XQ8 XPHQ9J8J8J+\? >!2ILU\0H0\UH1< \HHH8AX02A/0/0J*ETX$?8L0L0I*E0J0I*U$)  *U0L0I*O0J0I*N*QQR*D,UFV$?8L0L0I*]0L0I*+$)  *+%B0L0I*(*	QR*],U:H[%)HZIK%)."=	<(H6IN<(*>H?$3.5H?$3H>*<BYIH8!H6<(K*IA<(/-K+X9H9C,K.< K,>(+ZH9AR< ]2A/BIR]+TUXP2+/H1%;X19IS8AHH>P/]%6
C?A XD> %/X18 X2/]W82ILR2A/42KS&2ILO2A/:FPGV
$?8L0L0I*E:0JZ^J^> *PQR*D,U$*V]ND$*V^NI$)  NA*M:0J*ZHWO$=BV,0Z0"0R0J0A80B*1$)A *$*$$?A$=BWK0H0L0I*80A80B$)B +K$=BWJ0L0I+E0A8+G+GQR*:0P,UI??$?<8;%A?-0L0I+W%B0L%B0I+$)A +S+-60I+)QR+S,U$)B +&%A?10L+/%B0L0I+3+1%A<,%B/6%A<F%B/;$=PXH$=AE?O.GB!XZ$?A0R0Q*W$)  *W0
0Q*T*TQR*L,UAX3$?A%AA;0R0T%B0Q*)QR*$,U$)  *&:0R0T0Q*0*0BYM$?8L:0V0Q*90R0Q+J$)  +J:0V0Q+D0R0Q+B+FQR*7,UCZK?XRK>Y^0B:Y]Q]+VQ^+VK=Y\0G0T10Q+	0H0C+	PR+Q,U$)  +Q0B0Q+,0I+.+.Q\+2K<Y\Q\+6Q\+8/1EEA?; DZX0B0G0H0P0A0T0*P0C<H*PPR*B,U$)  *O0H%B0P*TEZ%$?8L: 0V:0V0Q* Q
*\,UFZ1$?8L:I*0V0Q*,QR*),UG\$?8L:I)0V0Q*8QR*5,U=1?M[HDTT !"RETAIN "?M[TDYT "LOG, EXP, ATN 
?M[D^DO 10;IF (RE)2.9,2.4,2.4?M[<D(DO 2.2;T "SINE, COSINE 
";DO 10;IF (RE)2.5;R?M\DD2S XFH??$=B\M0Z0"0J0R0A80B*R$)A *E*E$?A$=B\.:0H0V0Q*Z0A80B$)B *.$=B\-:0V0Q*(0A8****QR*\0P,U$=AED0$4$??;$3YS$7\2$-$1+CQS*:%3*8QR*?*5$0$/$6I(YE$7$.%3+K$6$=AED$7\2$-< +\+U$7\2$-$18+Y$0$/$<J	J)?<I(YE$+$.%3+	$<J	J)?<$=AED$,\2$-< +;+4$,
2$-$18+8$(,\$=AED0$=AD?$6Q[$=BGC$=GN^T$=GI^9"&0A*SQZIZI	?H*[<B*Y"&IW> -CIZI&?H-C0LQW-C$80V:.&:0JYYIZI%YZIZ> *7YW.+0L.+"+IY>(-C$=GI
C$??;<H"+$7\2IY$1<H-CQR-C$=GI
P-C"+IYYH$=GI
W-C"+IYYI$=GI
^-C"+IYYJ$5+L$??;$=GI
C-C=<(/=9J> /<K:J^Z^K:/;J,/4G9/E  O F!
 $=BGC$=GNG!$=GI 8$=H=8I$]:YE"+< <H"+8!I+> *["+> *"*R$* *ND$* <NI*&$* =ND*^$)  NA*OC?%A>50L0A%B0B0I<H*8$	 >*O0JZ<J<.+GGGA>DA+0V0Q+E+A$=AE=: A+$.%3:$.%3+KH>
>	:.68!O1<(.6
2O0XLO/AEH4/WO1//."K^!^$^"N^+^-^,*OU^I^R^ 
9
E^^^:YS>D9D?HII"ZZ*P0L0I*JQR*RQS8JZYR>D?*I$	MZ"/<B*:YS*%0V0Q*
QR*	QS8I!YR>D?*^$	M"/<B*["5AS$	M,./$=Y?<KR[CN5R5[XOX[W[X9KWKS<P+ISX[W+A:KXI $;;SCSY+.5KS0X>\?6??>B>DA<8!XQ>DA
9F8F8F8![	$?0L0I+)QR+(%B+[^  6
E^I!W !^$^"$W^	^&^Q^!

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