File DIALPS.SV (save files (Executable program)

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

?=2CH)AHPEH
LTA0CIDA?3DAVEPA??PROG1GBN??PROG1GPA???<HIGHBR?;SCOP2PA??SCOP3PA??SCOP4PA??PREFPPA??POSTFPPA?>LOWBR?;MAXSUMBN??SUMMBN??PRINTBA?;F25BBN?9?9LIB12RL0*?+PDP11DAQ\?SRLOADBRQ$?=ELY1BN?=TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT$GPH^ <B,F>>G2IC)JG2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[GE!6AB$BJBM>E?AC^C
BB44H!
T;5B8
U2A2J:A&ZBON?+>HK^2I
V/WLIB12RLGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I
I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?I?OIOERXGHG8F8F8DBJUZRJJ0\J5>(0Y8 [N.VSTP&R*RLP-P1P6RAR=SVSVSVSVSVSVSV0Q*FHG0V:  U0Y*F;Z*F0I*F0N*+==K->(*=S-+ K)*+6:*F69+EK-8 [.*F6Y*?6Z9HK,2I	([.K-8!9HK*ZR2IK.<X+Z8F8F8F<HNR^R: K-[-+EK-K.9HK*2I	(K+*+U	BMAB 
Z8-=Q*TTU&T]D C7
=]$&,\HBYS-S>OC?2ANW>(+V2B2I&X+VB  U2ANY>(+V2BHGB2I&Z+V*JARFFAQF)K?0&660Z0V0L [[2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AP2IPAQRSTUVWXYZC G]BPO3456789:=LE?^
M*]V-./012ADJI[<F!"$%&	();N\HK>=3=6565NPFBJTA???? ERROR AT LOC G>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2IO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  P8DBJJTP/JC<<(*2K;=HK:K9 [U/P [)2C.M0!+  )["O"<X+/8J8J8JC22I/	?A-K>I]Y\H5Y]B A?
?SMBM?<ZAJFZK8NGRGZRNGRGZ)8N)"W  MZ)K?ZC9DZJA9DZA<XJ)JRC*[.WXX$IVZ=*/RB8!ZAJ)Z28N*R*Z9N*R*ZF8NF<(.&=+ARB8!9DRC=+A9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+"9P=H9ZAJ8DZJA9D<P+QJD+R:JB8H:ZBJ<X8!  Y:S-S-REJA=HJD<H9HRE+6  Z$SQ++;+)?4JZD8NARAZKNARAZQ8NQ=H8!  *>DRRRR  + [A
2IV	;(  YZQ2I
?
>
=JQ  [VAZ0J0=H8 ^1;$J3XHJ2Z>8LHC<>(+HLH[[LHZ*8 Z/LH[
LHZ)LHZ+LHZ,J2[LHZ-HH8AZ3R/+
: 8N*< 	38N)K;Z.8J+^-R-J0?HJ.9DJ.J,^-;VJ2[18.3VW0V0Q+6:/4??ARQPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP$GPH^ <B,F>>G2AC)JG2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[GE2J%LI,)X)2LIJYC2C-EB(NP
T;5B8
U2A2J:A&ZBON?+>HK^2I
V/WLIB12RLGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!N2A2I2A2A2A2A2A2A2A2I2A2A2A2I2I2A2I2A2A2A2A2I2A2A2A2I2I2I2A2A2A2A2A2A2A2A2A2A2A2A2A2I2I2IH)R[]""4.KZ5
)^&X X2 [Y]XPVFU[V3TKWCX?\]^MPC^X L"+V)W,X
:F8U<%4N8<6:;4E<S9A9 51=^U!XXQ?X)N-X7L7XGLG

2LH]Z**)X)N.X7L7XG2LH\ZV2ILG8

2L2I*IX)N/X7L7X-L-Z(2LH]Z*P-L-

8P78H),72-7X)2LH\X-OIKH-\7P7H[8A\7*HX)OJKL7K9Z*P7L7X7**A?[ X[L[BKNZ(J(KGZ*2CN([[N*<(+]X7/K2J	HGAX%K!!E2J	HH2J	NA+<[:K,,%\OK&/[HY>(2J	NBP)K-YRK:ZN: YOK YP+7JF!EQO*X%RBJ?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"J)CR3WS3S&*-)C*;+S+PJF8
8FZFJFC<MM]MJF8F8FC<MS]SJ/Z;QS+UISYMQSJF]SP))CK
YTJ2YSJ/Z;/W9?HH>2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)<X -OM9S =BLOCKH IN LENGT=LOCK ING BSTART8 [A [B [BC2AI>2AH9 [AD2I+Q(	WHEN * APPEARS, TYPE NAME OF NEW PS/8 FILE	) [DE2AHD2AH2AHD2AHJ>(*. [BC2AI>2AI) [AD2I+6(	NOW SELECT DIAL FILE	) [AF2AH&+?LN<(+	A8 [
F2AH [AF2AH  [AF2AH] [AG2AK>
= [AF2AHZ [AF2AHW [AF2AHT [AF2AHQ [AG2AK>
< [BH2AH2AHI
;O<8!O:?H*3+N [BC2AK92AJ> [AD2I+M(	FILE WILL NOT FIT ON SYS:	)/8 [BI2AK72AHUT 7UTLG8!K68!>(/52A
42AW4O48!O<?H/3+?HUSHVSHWSHX>(/	H;]L\HJL!SVDH,AHIHHHGHFH8 [EJ2AM>2AHF2AM>2IJ2AM= [CK2AM<2AHH2IJ8AO;
;8A2AO:
:/9 [AL2AHG/8 [EJ2AM>2AHF2AM>2IF2AM=2IO7>(*2+Q [BC2AM>2AL= [AD2I+P(	NO STARTING ADDRESS FOR .SV FILE	)/6K<8!2IO7>(/5 [BC2AM>2AM" [AD2I/4(	.SV FILE MUST START IN 8-MODE	)+?NNFNFH,K
HFHHBDA8 )<H
>2I
=*L8A2IO<
>O;
=K:2I
9O88!
72A
62AW6O68!K5?H*2
42AW4O48!K3?H*1K3 [CI2AHJ2AHK2IBDUT 7UT\G*\*T8A2A
2
62AW6O68!K1?H/0 [BI2AHJ2II0UT 7UTLG>(//K3 [CI2AHL2AO.2IBDUT8A8!O6 [AM2AO- 7UT\GK3 [CI2AHL2AO32IBDUTK, 7UT\G+?BHDAPDPFOHLBHKA>HJBI
BCHFCFABBBA88A2AO>
>8/= [BI2AQ<2II0UT 7UTLG>(*6K; [CI2AHL2AQ:2IBDUTK9 [AM2AQ8 7UT\GK; [CI2AHL2AQ;2IBDUTK7 7UT\G8A2AO>
>8A8!2AO>
6
52AW5O58!K8?H/4 [BI2AHJ2II UT 7UTLG>(/3K; [CI2AHL2AQ:2IBDUT8A8!O5 [AM2AQ9 7UT\GK; [CI2AHL2AQ;2IBDUTK2 7UT\G+?BRDRFHJHMAHODABPN6HL88A2AO>
>8/= [BI2AS<2II UT 7UTLG>(*6K; [CI2AHL2AS:2IBDUTK9 [AM2AS8 7UT\GK; [CI2AHL2AS;2IBDUTK7 7UT\G8A2AO>
>8A8!2AO>8!O68!
58A8!O>8!2IO48!>(+" [BC2AS:2ASR [AD2I+!(	BAD .SV FILE HEADER BLOCK	)/3 [CK2AS;2AHH2IBO6<(/2?H/2+?< ZZT&H,I
HNHMAODABPP<HL8 %<H
?2AW?O?8!O>?H*&O=O<O?
;O?O:
9 [EJ2AU82AHO2AU82IJ2AU7 [CK2AU62AHP2IJ*C2AO=<(/5?H/52A
?2AW?O?8!O=?H+QO?O<
;O>O:O?
9 [EJ2AU82AHO2AU82IJ2AU7 [CK2AU62AHP2IJ*./5 [N,A]6B,B]11B ,B]14B]0CINTIN,C\IBLK1BF,B]17BZ,B]22BW,B]2L\BDAHPHHHOHFHNHMHJ?X=? ? <BODZ
SDODXGSD2A.E;&JOZ^N^R^ZF;VJF[%N^[D"E"^.O<BLGPG2A.^[YKYBBJD< JC[ZKYB9D< 8HKZ.$"O=H*=Z<2J&F [AP2AWAFILE"O"$^A;&ZEJAZO"^"$RO^ORE+L"EJA[Y2J:A&B+	<H[YJ
["KZ8!<B\GKY<B/D: +]HF,B\306GW,B\307G",A^GH$\ICDIFBA$\IADDRBB,B8?>G 
W	V=WZW]V$VOV^VEW%X^V
&JZ[JNZZ:A2J&AD8.M&J&I^N;&[XJN[Y&K&ISY
YSX*)&LJNZ6:A2J&AC.EJ7^GJ6.H&J9=H81BD<XJC9F8F8F[X&L&K[Z&LNOBKX[XHG[Y2B&B.F.M&JBD+G\IWD0I ,B\500LD,B\460KO,B\600L6,B\520LR,C\IFLD0BN,B\700M",B?>E>VBM?^O?<?VZ:ZK 7Z5LGZ^R6N6ZNR62A.R<B^NRN2A.]2IRONOBJC>(*/NOBEJI>( %<H.PNO"].:J6ZL2J&H2J&	E*JD0&0!+D2I: NFZMJBZ
NOBG<(+SJMZRNRZJJAZNNNBG<(+]JMZRNR2A^Q2J&	IJLZ6"RJJ"]"]JHZM"R"RM++"RJK"]"]JHZMJAZO"R"RM+7  EBZ3?-^>G;&J[OSZJOWWZJNJRJZTNJ[-"S.O-S-2A.S\% -BJ"["JYZJ]*F=**ZS8A*88!ZSJZ [TK"=*78!["J[ [T:Z8AJS?H*?;$ZSZT8 -: JTZTJJ< +AJT[K"ZJ:JJ-S+L< +ZJ> +Z9AJT>0+^KX [TRRT+H 
S;UJ\ [UJ\ [U  BXGZJHG<HRJ9P<(/-JS=+2<P+2XGJS8!HG/-\\SB A2A?JC? ?P=S=P<ABEJH=HJDJB [U  T&8!<(*$ZMJB [URM*
  V&=(:AZX[): [*SJYJJ> *6[*SJYJL<(+YJC<(+$JG<(*5JF<(*5JI=H+Y8!JX?(+YK) [AM2A^XJKJY[)*5;Z [UZY/S [B [AF2A
 *,REPEAT:K)S*8!  G&ZYJY8J8J8J6JY6&A+,BE<(+= [T/6  F*Z5*;Z][]Z]YH?]UIT5+5-<B5)*K;M[< <BMZ< <BMY< <B5*;][ID]ZIS]YK6]U5+IT5-<B5)*$;M[< <BMZ8!ID< <BMY8!HY< <B5*;IN][]ZH
]YK7]U5+IT5-<B5)+A;M[< <BMZ8!IN< <BMY< <B5*;][H4]ZIU]YI]U5+IT5-<B5)+\;M[< <BMZ< <BMY< <B5.XTHT8!H%< <BMU8!IA< <B/5<H[IG2J	;/7LR7CC,HBGT2CBPB L 8W*+UK]
+0!+Q/T?/O)[\S)O)[[	-BG$+%K[5K][]S)+M2J	,G<F<?2?>GS2+$/ J*%7HT=!9J8J8JC?<(K?8A9H/5
"G([>B2K*7;JGZQ*T20 8
2B
B:JLZG;&[)2LJO[
JQZQNQBMK"[+NQRQBN<(;X[*NQRQ7$NQ9JG[(<XS+[,K*C]>(K!K,9JK+7&K(77!*:7%9D> +O<H<BK*K]=(+\[*K(8 BP> 9XS(*/*.7"9V7"7!+R7"7%> +U;$S)*Z+^RQ>RQ2B.QDO42CBPH/?=P  ?->G	.L G$<B+:"GC8]<B2C0"/=B2A:H.X($>SYSTEM ERRHL?;O?=?>RZ<GBC+JBPINGSV>GDY??+:A2CO7N DB\H()2KHX>E 
PP8FCFB$BJBMC^C\8A68H?CODCE4O%EWCN9<D><C<B<ANP<EVBG?/?4?2[?1?0?.?=?%N5H?$IJC8HAF-M\SVF	N<HG5NHF]N-F<G1JB=K$C4G?KE>G8A? B.D??:?&<??6?>=RB = Y81!FB0PX\I?X
: X X^LKI><(*JI=<HLKX+H+I<<(*4I;9I:>P*!I9H+9PI8>P*9H^I7?*PH^9HH
XQH+A6<X*08F8F8FLQ\QP^*PP *9P
I5*IH^> R. HYWHZWH[WH\>(.=I4!H\W.=WSO<H:OO< +L0!+T,(X+H+8J8J8J!H+!/WA6<(/!I3=HI2I=$V/!KK80!+-0&:I1[,/+O?LLK<(/7%0BAD,(A/E%1$TI0XK$U-/%.>-D^,?E%-+EJ8;EI.D-,,F0<E;??I);?K7.]K2I-"5I,X!$U*,H]<(*+H\8D:XH]H\-+]*HX%)P&I2[E:A+P[B%($U-	H\[CH][DK4[E2J$RA>G-&KD.5I%]
HX%)X&:A"5Z%(H(2J$RBG"?8-$-EQX(KEXV$U-	H
<(I"X
/ZI!X[M7%)2J	WHKI XKI
[4:A"5Z-^8A%2&2](A/4$Z%2HA0X XQLK< -]M\]6M7A[> -ZM7%)MY]X0!*O$ZM7?H-6I2]WI[]V]UIT]SHW]R-QN02J$RH2I]P2AIOXR.
MNZ.$VAA<G"(AMM%LMK]6MJ]XMK]\MJ]YMI%)HW]R+DHX]6IH]XMM9$IGX!L!]UP!HVIO:DL!A5> -FMU9XL!IE=H+PIH=UDIE["MD8 J.[$$V2-C%B[&P&]RK"8!L!=(UM<H-R\!+D%A% NOT AVAILABLEBACRB CPCICNCG\LPQ*G2IJ?^2RLR2R1*L2AN38D?*^^]M7B)>((](&ORIO0\J(>(0Y,[0Z.&J;K2==D"GC8]<B2C0">"??N
^ R
R R!*W2C.VHN%>6=-UK5?H-TLXZZHXIS[)HZLKK?9H>X"<P+X!!!HQH"XQ+JH AP9F8DK1]6HQ/ FNHQ9DXQH 8DX /!I,XLIUX!2I\LP!+.2C,=2I\!+1J+H<X\	>H;$S/6M&J2=HDDI3$SXPI0XKXO0Y*GIO0\X\0ZW=+J;=3J*<AKG<CKB<BKB=%KB=6K$>JG=1JG==J;"2H\\KHKH:?H*G%1HKH9>(*A\K\K.I:PP*7H8$SXPH\$S.2H7$S
\H6$S%1*AH5X\"2PO*+HKH9>(+H8PP$S: XPHKX L $S: HK*EDROWSW<(/WH\>(+!SW+XOWX , %1\KI3$SI0XOLO<(+T$S+*%A-/H4%)H3[=+:HY>(,2%2BAD-(A,1%2BAD
(AH0XOL1X!H!%LPOLO	>J!Z!P!*KJ!9F8FH(2J$RC\+7H(2J$RD\A+7H0XO$ZM78D8 ?PJY[0,LO[/;XLO[.K/8D?X+WK./> +W: K.9DK/8D?X+FK.H>+VK.X!K/8!H.9X[.,;Z[/K.-8!H!=H,[.,T1*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVE ERRORO59H%TOO FEW ARGSF28 A,>(.HH+X[%BAD CORE IMA
EM78H:HR?X.X2J$RIH?XR.X%A% NOT FOUNDF<]7%(2J$RK2A.-%NO!!L!]VH&>(%BOK8A[]HV]WHV[-LM\NSL+E/J=MF.W*+UK]
+0!+Q/T?/O)[\S)O)[[	-G+%K[5K][]S)+M2J	,G<D<?2?>GS2+$/ J*%7HT9J8J8JC?<(K?8A9H/5
;I?XR
?%EYH:IDYF;K>XQ5+I>5-<B;O?IHYH5/*T;IH8!H^< <B8QF*IW?*F88;I?XR
=%EYH:IDYF;K<XQ5+I>5-<B;O=IHYH5/*7;IH8!H
> <B8QF*,W=*)88;I?XR%EYH;K;XQ5+I>5-<B5/+RQH+K:HX> <B8HY> <B8HZ> <B8H[> <B8H\> <B8H]> <B8H^> <B8H
> <B8/:(8(3R1"1]1^1X1Y;%EYH:I?XR:K?XQI>5-<B5/*LQH<H*
:IH8!HX> <B8K>8!HQ> <B8*F:HX> <B8K=8!HQ> <B88:YHK<YI%E:I?XRK;XQ5+I>5-<B5/<H+AQH*9QI*9<B8:HX> <B8K:8!HQ> <B88:%E:I?XRK9XQ8 XXK8XY5+I>5-<B5/+]:HX8 > <B8K78!HQ> <B88/6I"I!0"/*(T2H>\2B21=?;181;15:%E	?:K>XQ5+I>5-<B5/*J:K=	<<B88:%E	?	;:K:XQK9XS5+I>5-<B5/*
:K=	<<B88:%E	?	;:K8XQI?XR8 X[5+I>5-<B5/*6:K=	<<B8:H[> <B8: H\> <B88:%E	;	?:K7XQ: XY: XZK6XS5+I?XRI>5-<B5/+[:K=	<<B8:HY> <B8HZ> <B88/5IME OUT--FPP DIDV>22\(2U"MJ?=2NZ:%E	?	>:K=XQ: X]: X^K<XX5+I?XRI>5-<B5/*S:K;	:<B88:%E	?	>:K=XQ: X]: X^K9XX9X5+:I?XRI>5-<B5/
0:K8	:<B::	7	?I?XR:K6XQ5+I>5-<B5/+C:HX8!H
> <B8PX*988:	7	?I?XR:K6XQ9X5+:I>5-<B5/+^:HX8!H
> <B8PX+R88/5N OR A STATUS ERROX27"?? J?A?+2(Z"M:	?	>	=:I?XRXY	<:K;XQ5+I>5-<B5/*P	:<B8:QH*B88:	?	>	=:I?XR;AXZ	<:K9XQ5+I>5-<B5/*+	:<B8:QH*\88:	?	>	=:I?XRK8X[	<:K7XQ5+I>5-<B5/+F	:<B8:QH*788/65 IF YOU DO NOT HAVE/;5*;HX][]ZK<]YH:]U5+IT5-<B5)+*;M[< <BMZ8!ID< 
BMYZ3JB3C$2<$^"M"$S

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