File DILPEB.SV (save files (Executable program)

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

?=2CBPPNH4DH\H!<LJ HL!,	],JL9<GH>((L% KH	T;H:	D;LG<OLC87 JHJ\A;P]OL?H6>:, L5P
OL?H3 >K,9L8H
OL?H1>L; (LA,	L],ELG<G	D;HT;LG8? HJDJ<C0D:HG\?;$ALO</H:L
,.HZ<GH>,( PJLJ0E XJ>,(H-0KD
<+H*$/\.$G):DZ()L*LZH?D<HOT> >HP!HDPLZ<?	?	?*E*H	>%<EBNIG2A]92IMFA.> 	?<K=X[	<K;ZL[AE< I)9Z8J[/L[P[<(*D%<A8A/:L[[DP[: [,[+MDC9>(/8S0/7/6I<0\K5>(0Y<H/4SQS,+QK+> .22B&BH\A>+	SDS/<HS+K3[,KC[-J<[Q*3+Q++
J<[QO-BP9J8JK.8J8JS-+$O-BP[.S-O-C2R2.2?H/:S++F??D??7<C?9?>7==^[ TIHZ:8AW	>OS,[%Y.8 DS\SHQ[,HP9J8J> *8<P+AHQ?H*3;ZHQ?*VW?K>HQ8F8F8DA)K=Z)KP8!J)>(*+H:*+2B%=BHL$/<XGJ)[PHQAWKO[,*:9HQI<>X.HPIJJ?Z<2IHW
,2I.HQK;>P*8ICP\*VS.KP<(/H2B%="HL/<[P/H???????????????????????????????????????????PEHMB?H/:O9C8> /:/,H>X >VH[VWTYV";8!KZ> /?MFB4>(/>[Z
=JC
<
XPI<XQ	;/><(*QI-> *J	;/><(*JI-<(*X=+BI<XY	;/:XZ	;/:I-<(*XX";<P*2XQ
9*5	9PQ HYHZKZ[ZHX*
HY9F8F8FHZ.;K8<(+[K7=H+UXYHYAV> +UHYC6XP	;/:I-< *
:KZ>(*I/:KZ> /:/>XUO5C4<(/
8F8DPU<P+&: HU9F8D/
K%7476O<O<>%8?Z?&YW[P2RQ0PT[FK?XRO>9 AE>(8PO=8 AE>(8A8J
<K<XIIJXUIA[&
;K&IE?8 IXV[/	:>P*%K/I<[/PV*\*?K/I<[	PV<H*0	:>X*2K	*&: XVK/AC\IW;K/AC8!K	9HK&\IK	* K&IJ[&;&HRXRPU*UO;<(/98!
;MF?O8C7O<
<H]AV9F8DI?
6<HI<K0< +$O5:+YHPI?
6O4
3/2PTO1<(/	[0MBX]/	>&XB\BQYW\ADC>%[NZU\\CSTSWS)>?YH\>(*K2B%=C8$/?2B%="HZ
/?O>[TO=[UMDC<>(*.KU8D?H*"2A]92I%<K%<I^RRA*$O;2A
:KT
9*7KU?HK8I-2A
9KF
:: 2I
7O;2A
6KT
5KU
4KM
KSSKSL+2CKV> /3/:?.?9>G	.HHP <B+:^7XWHP9HHP8JK2XSHQA-9F8F8FPSK1=+$[T9P8DST+*	0/W7%R?4SS?/?&?%?$?E?=?:\A \C\B[VC?< *J", FILE 0K>C?K>"O.0&0!*Q:.O;&XW;VHRXTLT8D\T:0HTPW*Z.U
W:2IO=K<9XZHN<(*58J8J8J"N"R**K;"OK:"O/9"I/O ERROR"BAD INPUT" BAD CHECKSUM%8"NO INPUT"SYSTEM I-O ERROR"NO /I!PBK8XUK7XI: \IPU+*X]
6
5X\S%/%YVW0SS?(PBJBMCR[B ???2CBP^H;>H+\EL:$	H;\QD9$;HK\%L8$	;,\L& 	L	,9H
\KH	\8H9H;HK\(L8(	L$<THHD.H	87D!P$H?8HL!XKH
\%H5T/D0IPHE X A0IHEDH LP(CH LA(CH LM(QH LF(LL<?L?<?L?<?M;X5MH<L6 VH3L8L!\DL8P/L\2AA:L0<H=0<D/0,DB,) B"B"B"B"B"B"B"B"B: 
?O>[JO=ZJ2B	JAH\BM/<NI8 CP> /;NI[LOOXQONCQXPONA;<(;X[MKMI-?I-I-[KKMI-[MRJJJZ.XG2B	JBHLBM/:: HQA+K9XHLH	8PQ<SK*5	7
6KM= *^SL<H+P;VKO[O;VKN[N*S8X\E\D? ?K5[OK4[N/3[3
2H?J8> +!IVK1>(/WK0
/	.INCOMPATIBLE2C/->EZZ9.?9[2PT\E\DSPSHYWJZ:[[ QDPQ0"MZQK?XQJQ	>< 	=K<HQ> *NK;	:PQ*D."1	9;:K8	7K6	:JR
5/4	9<JK3*V	9;0*UO2> +C	9</HRK1XRHR	7K0XJPJLJ<(*=XXLXDJ>(*/K/	:LJ	:*0K6	:JR
5PW*&O0>(O.?HOS> +LKS/-	9=PK6	:	9=(>J>$DCV>HCC>$HCOK0> /XHUHV> /X	/0?/XJ
G&J,:YJ
QFS	B/!RES&"1UH[,BM "5
IZ.B.CZ	ZX?8WH
?O>8H>X*KO=C<>(.W;O?	:XYO=C<>(*]K9	88 XY	7K6>(PYK5K4	8K3	8HY> /2.:
1	0; 	0=E	0:,<B*+DHCMABSVDHCMABSV	/O>C.>(/-	,	0>J	7:K3	8C/+QEO*<(+ZK)XXLX?+Z2B$SLH&A/(OO9 O	<PK&>X/%<H;X
1
$XG/C:HZC7SY/Y]W"	?&BQP?/>WH]Z  A\1
I]YY(BMCY?5<	[KZ.B? [,B>$> QV9K?ZIO><(.	=	<BBN?5ZI	;RJI."/:[AK9"/:8!KA> ":O8HOK7XXK6XIK7XQLI\XPXPQ*"O8>(*,O5\X"/W4/3HGC2Z72B$)"HL/:./KA>(.:	1:3/0:AO8=+ZZJHO[!H\8!8A=+^XXP^2AL^2I
!S!R+\"/:/BPX+Q: XX+T/]T=	1/[+L[K0>(L[<B	//: ^
IGY(]Y>6",?<LDD")\1B\[>"-?58MB??ABSLDRSV0M?;CCLSV0M?/DIRECTSV0M?9FOTPSV0M?8DJADACSVU6?0DILPACSVU6?/DILPEBSVU6?0?4RX01TX[^?>DHCMAASVU6?6:8XPLI\HPP+/!BGO):B.&P&W?-[.RV4YH0S>R>Q30O?0>O1Z>A[?C?(O?XTO>XU
=
<
;O>
:.;&	9O88!HW=*[XJO8< 	9\HPJ*W.KXJHW< 	9HIHJXI.K2AO72IK6> /5.	4?	3EHUK2>(PZ.+Z+O1>(/0J+>(	/.5ZK.XX2I	4?+L2B&BHLA/-XGO,K+>(+UJK2> +WK*XX.>ZERO SYS??+!	3B	3K)
(/	2IPXPLZE8?HLA.VG
XS>A9]OT;1 F\A:D3!RMRSRRS*030SRRS*030SRRS*030S030S030S030S030S030S030S030S030S030S030S030S030S030SX\: JZTK?^TO>C=>(.K<	;.OS/8 PIP V10 X[KYK;[\KZ9J8HC:[ZKZ	9[[2A;VKY9J=P*(W8W7C:KYK6KZ[ZKXK5[XOX2IKZ9K4<X*3K<K3[Y2AOY2I[: 	2: 	21": 	2;X	1K[	1: 	27)K\	1	0	/6).
.	-4;O,> /]O+
,/]/$3EB+E"/"M>O>(UKUN)+(N)U7,?92FC2H2G5P
&6MG>$P8N&??BASI03FD>-BCOML!X-M;]<M:\"8D?PM:H>(-	,$E4G:>5HHM5>,?>OF 2B%=BHHM<B,7HI07D<?QIOHSBD?!8>"<>?0>$0ACS?;?8B*GAG7FHG0LC>6C90FF)G*GC?J;FKFRB)"HLBC?<LDLB(LA?/>&G9B	MOFOA?B&>ACQE$B PE3?1? FPBP?X?&?^?B>G?42C\3X-X 2LI?[%K%Z!"PR9I><X*	J$ZPD7J.PB	DAFCHII?B
CFB+CTC!DKFP2K^2K. P/P/P/P/P/P/:2B%=BHL.<B./;X)"PX!2B%=FA)*&J!2C%<Z!J![%)9P.
"PX!2B%=AA</*&H!2C/K:RH 9HJ];J!]::Q2AE92I8H?X-:-89P+UBSZ 2KN 2K/K<[42AM92I8J>X/)2B%=[*&/)2B%=AIHV*&/<:AX,H-< *&%7U<<(-6X*%7<(*QH*8D9XX*I5XOI4X"LO8!H*>(*!P"*UHO?-6I3*RH"I2%1%7U<%0<(L"<(-/8$>PI.I.[AH!X	L!H,> +Z%78H=P-/8DA-[B\[C2B%=A:P-,I4X$H$%08 KB9XKA?\!\8
KC> +XL"A+KB\!P$+GL	-*EPL"9F8F8FA)I(/\EIA)<(-	X*H*I&X"H*I%X!H*I$X(L!/$&Y/S-T P4H4I&D/D T"T3;4;3<4<9"R*KA*PH%8!M%1U<H&8!%1U<-/< *)X%X&H-%0<(-"X)%7X$<P8X8JD(> *PL(?.RRR:A[7H)A+9F8DK78!HG<(*88!HGXG;X0M!84=X+888X+I XO.RLO>(+ : HOXOI
X&H$X	H	%^8!LO> +]P	P&+L*LO<(+!8!X&SA/AH&8A*LOH%X%P++BX%M]< *)/AM 8!HOXO/*I\[52B$)"HLA-[/0>DCFXF\CB<B??%)8 H^H;9 JDJD>PXD2./?*ND"&BJBMBLB CUB*CEJ?> ?6<8?>?/E?<??$A$C$E$G$I$K$M$O$Q$S$U$W$Y$[$]$
$!$$%$	$)$+$-$/$1$3$5$7$9$;$=$?%A%C%E%G%I%K%M%O%Q%S%U%W%Y	>	=	B	 1P1W1Z1
1"1%B0 B>">&G8???0/G <%E 0?=<,/,\B),V,W,X,Y:%-%)%(*K	?*D:IXXA0AH[%+:H%[S*T0B%)%(*\	>*V%,HUXA0AH[%+:H%[S*%	=*\%(>H*.	<*)%-IYXA0AH[%+:H%[S*7%(>H*>	;*90B/:	9	8CG	7/APOWER UP*3P!-3*NHUX[P
-3HV*V0!+V0"2KH*]0H+]/H,. J0[6XRZA B<P+:XP;&X JA9DXSHR8D=H-3XRHSP +,JA		&^(KD,4,+,&,!,X	?:A	>Y	=H	<	=HS	<	=H!	<$TC;> *VHY!H"Y"*ZK:Y!HY"$T?*Z:I<Y
O9Y\:H	Y$M\IY :I I!?H*1I I"Y *(:%*%(	8I %+Q
<H*>Q$*1Q\*"Q:%*%(	7HZ%)%+:%(<H+M%*+G	7$T?/6*]+U8F8F8FLQ\QPY*6HU> P]-3PZI*5B2[+HU>(+6(-[+J&2J%0B+;K,9I"<P:9F8FA5F,<,8H2>H		&^0	N
?
>IK=W?=*CK<K;W>=*HK:
9	8	7H>O?K6
?O?	5O>K6
>O>	5O9K4
9O9	5	7IN	8K3
2O2
1%*>H$+%($+HZ%)%+%(<H*5%**/$+%*>H$,%($,HZ%)%+%(<H+C%**=$,	7H>%*>H$-%($-O?%+%*>H$.%($.O>%+%*>H$/%($/O9%+	7IN%*>H$0%($0HZ%)%+%(<H+*%*+$$0	0//8FA5LZJ	N&;&7%Z0	 /&^		H=J?6A$>\H<H;PRINT SPEED TEST USING MANUAL TIMINGSWITCH 0 UP TO START TIMINGSWITCH 0 DOWN AT 
ND OF 1 MINUTEH3 AO>-A\AK:)PRINT SPEED IS APPROXIMATELY    LINES PER MINUTE.*6HMIC>(+)IBPT$6: XTHMXPLP$6: HM*FPT+IB*?IXPT+2IB$6XTHU$6/-J\MIAXNLN<(+&$6+:B*	?:A	>K,[.K=[-K.ZNJN[Q	<MV	<	<M$	;	:%*>H$1%($1H\%)%+%(<H*!%**[$1:I<Y
%*>H$2%($2K9%+Q
*$%*>H$3%($3H[%)%+%(<H*;%**5$3%*>H$4%($4H\%)%+%(<H+I%*+C$4:K8
7O7
6	<LS	<	<L3%*>H$5%($5H[%)%+%(<H+"%*+\$5	?S.S.S-*G	<L	;	:/5OHX>(/(H=
HXN&;&7%Z-(		&^?50	NRESET TOP OF FORM SWITCH TO 11 INCHES------------------------------------     THIS LINE SHOULD BE    INCHES FROM THE LAST LINE     ------------------------------------SET TOP OF FORM SWITCH TO    INCHES[(A/$V!AF+7K.	>K0[0/,%SAVE ERRORO
9H	?K>	=K<Y$I<Y
J5Z4.4:J5Z4H^Y\%*>H$6%($6I\%+Q
*I:I<Y
%*>H$7%($7HZ%)%+%(<H*)%**$7Q$*O	;*/::J6Z4H
Y\*ON.NJ!!L!]VH&>(%BOK8A  33.5  45.5  6  7  88.5 11 12 14[\S)O)[[	-A8+%K[5K][]S)+M2J	,G<D<?2?>GS2+$/ J*%7HT9J8J8JC?PJ? 0B	N	?K>	=K<Y$$TC;>(*KH*LH"Y!*3:K:Y I<Y
%*>H$8%($8I %+Q :I K9I!> *K:Y Q
*S%*>H$9%($9HZ%)%+%(<H*3%**-$9:I!K88!Y
Y %*>H$:%($:I %+Q
>H+!Q I K9> +KK7Y *9:KZXHK^[ :I C
8!LH<(+S +P*9QZJML?=A?%*>H$;%($;HZ%)%+%(<H+/%*+)$;Q$*N	6*/5I4RJA A??  H?50C	N	?K>	=K<YH&Y$J4Y\:I<Y
-\:J5Y\H Y %*>H$<%($<I %)%+Q
*LQ$<H*6%*>H$=%($=H[%)%+%(<H*-%**	$=*I:J4Y\H]Y *RRMR.%*>H$>%($>HZ%)%+%(<H+D%**>$>:H&Y$I<Y
Q*R	;*/:A1!0I CTCDTA2!0J CTCDTA3!0K C?=TD8ESYS"I0GDK!TD8EDTA0"I(GDK!TD8EDTA1"I(LTJ?(0D	N	?H(	>K=Y:I<Y
:H&Y$I
K<8!Y]Q]<H*Z%*>H$?%($?H]%+*O:H Y %*>H%%(%I %+Q
<H*8Q$*]%*>H%A%(%AH[%)%+%(<H*7%**1%A*H%*>H%B%(%BHZ%)%+%(<H+F%*+%BQ>H+SIC;>(*EK:Y I<Y
Y$*]	9*/8"H IHTD8BDTA3"H MH?=RK8ESYS"YPG J20RK8ERKB0"YHQ J20? LJ\KLL2IVJCMABE?00	N	?K>	=K<Y\:$TC;> K:K9Y$I<Y
I\Y %*>H%C%(%CI %+:I
8AY
I
=<H*P>(+Q Q$*P%*>H%D%(%DHZ%)%+%(<H*2%**,%D:I\8!K8<(+DK7<(+HK6>(+LQ\*E:K5Y *P:K4Y\*E:K8Y\*E	3*/2?>PT8EPTPHP OPT8EPTRPHAJ O??LPSVLPTH C P??VT50LSTQXJ6!DU ?A? H00F	N	?K>	=J,XJK<Z-:I<Y
LJZ.%*>H%E%(%EJ.8!K;%+Q
*L%*>H%F%(%FHZ%)%+%(<H*%%**
%FR.*WR-*G	:*/9X.?=?8?=?9?<?8?;?9?<?:?;??ON LE8/LP08 LINE PRINTER TEST INTERRUPT ERROR;I"YK(Y"I]8FI^Y]I]8FI^8FY^I]A\[(K(/TZ-ZJB/?40G	N	?K>	=$TC<> *LHY!H"Y"*PK;Y!K:Y":K9Y\K;Y:I<Y
:H	Y$I\Y %*>H%G%(%GI %+Q
<H*4Q Q$<H*X:I I!> *]I I"Y *]%*>H%H%(%HHZ%)%+%(<H+B%**<%HQ<H+Q:I\H)Y\I\K8?*UI\K7Y\*U	6*/5K\+Q  J <H+"I <B%%QZ*0:K9<QO8> * P/7UT\JA?  > >H0H	N	?K>	=$TC<>(*IH<HH"YH]Y :I<Y
%*>H%I%(%II %+Q
*P:%*>H%J%(%JHZ%)%+%(<H*(%**"%JQ Q*M	;**.	?K:	=$TC<> *<HY!H"Y"K9Y+BK8Y!HY"K7Y:Y$Q$:Y Q :I IY\I\I!?H+SI"I\Y\%*>H%K%(%KI\%+:I H	> +GI$K6> +D%*>H%L%(%LHZ%)%+%(<H+1%*++%L/5DCB^?8A?>A
JJH0I	N: IYIK?> />	=/<	;K:	9K8Y:IY
H	Y$I
Y I K7=H*[8A*VK68!K5Y\I\Y %*>H%M%(%MI %+: I
Y
I
>(*9Q$<H*3Q *!:I\Y H	Y$*!%*>H%O%(%OHZ%)%+%(<H+G%*+A%O: IYI<(*9?*N	=*I/4/I$SAV>(/3+JZ- AR?.BD0K	N\.J]B?!:AY:K?Y IY$H	Y]I8!K>Y
I
>(*:%*<H%P%(%PH]%+Q]*]:H	Y]: I
Y
I
> *P:%*>H%Q%(%QI %+Q Q]*4:H	Y]H	I Y : I$Y$I$> *%*>H%R%(%RHZ%)%+%(<H+H%*+B%RQ:K=I> *B	<*/; NEXT.OK,	?	> 	=/W	?	> T	> Y	=/]	?	> T	> %	=/%	?	> T	> 1	=/-	?	> <	=/5"J=;BD?	?K>	=K<Y:I<Y
%*>H%S%(%SH %+Q
*H%*>H%T%(%THZ%)%+%(<H*
%**Y%TQ*EJ*	;8/:	?I<Y
%)%+%*>H%U%(%U$TC9%+$TC8> +HQ
*+%*>H%V%(%VHZ%)%+%(<H+G%*+A%V*&<B*&$TC7> /JSJ/JTER FLAG NOT HIGH AFTER CR DURING TEST 1 SEC. 4.%Q9F8FA5LZ\Z2AH IP<(%)X -OBDC?N2?A0L	N[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[0B:K[9HC,Y%H&K[[-O-[-: K-Y		?/-?%(>H/.	>+/
I(=H(PP 8SA,,T(^Z]J]"OZMJ]9J9J9J"OZL.  Z[J[C?Z\J[9F9DC>J\K=.O: N^XILI< *	R^.^Z=J?Z>J=A;< *0KZ>[AJ=8J8J8JA;W%[.>KAW%[*"&9&%[M%*>H%W%(%WKM%+;/B%-0B;K<Z7J7Z;/N[&K&C;>(K:K9K&/W0&0!+";/ :H[ HZ 0";/	)0
]B)=WX>8XBHV	BBA %[00GG;0Z0Y*C	?W>	=80Z.;0&0!*N.K0B0"0Z6267.Q"K	<)L	;.X"K	<(:I&	:	<*
	<(?I%	:	<*
	<)FI		9	<&L	;"Q$T8F<P*4;.^TEST NO. , ERROR NO. , LOCATION LP05 LINE PRINTER TEST+:K+IPYPIPK*=H+MC-+K%-+:HT%2.=H5D?B!PUT DEVICE-SKIPPING-&*F		&^4:J27	?	>	=	<"$/;Z^Z!J^H$=H*OR!*JH!I:Z"J!<(*\I:9F9F9FJ"Z
.FJ*Y   	:	9	8	9%**-	7*)	6	9%*>H*4	5*/	8	9%**:	4*6	3	9%*>H+A	2*<	8	9%*+G	1+C	0	/	9.$<H+Q<B%$OGOUQZ*= %P;0GK>XB%F%B+Z%F P%B+^%C0A80B<B%$OUO*QZ+U:K=<QO<> /%%.,P,L/U,H,D/O,/I(CABD(X		0=6):A.K?.DK>.HK=.LK<.PK;.TK:.X;K9.\;K8.&;K7.&K6.+;K5/4K3.4K2,XK1,X[T	0	/-L
T	.	/*
	-	,/READY ERROR NO.64/T65/W66/Z67/](		*F&^(KONMB.LKJIHGFEDCBOK, SET PRINTER TO READY ON-LINE STATE.READY OK, TRY TORN PAPER SWITCH. TRY DRUM GATE SWITCH. TRY ERROR INTERRUPT.INITIAL MANUAL TEST O.K.	?	>.	=/I	?	>.Y	=/O	?	>.T	>.%	=/U	?	>.T	>.1	=/]	?	>.<	=/
	?	>1(	=/+0V6V>0X.?1Q		&^(KY&I&	?O>C=Z3O>8J8J8JC=Z2H	Z%K<XH%)%+%*>H%N%(%NLH%)%+%(<H*!%**[%NR%*S:.BJBJCTCECSCTB CNCOB.B B BJBJBJ616263646567+LJ7[QJ8[XJ9[[J:[ J;[J<[&.=:K;Z>*?61<HSP	:8/P62/W63<HSZ/Z64/
65/"67/%INTERRUPT O.K.NOT CHANGE CORE CAPA8/.=0%?*
*F:HRC?> *K$TC?> .*T"V*TR$	>2	J$	=	>R.J%> *^J&8 ZR%R*TZ%RV.VDILPEB  PASS :	<8HQ?H>LHP..0Y*80^C;K:
9O9.7;O[[SO[C8<(/=8P8A8J8J8J	7O[C6<(/K5=K4K3	7S[+E;HRC?> +(8 K][]K2
]/]E OVERFLOWBAD N<BB A
 ?:K?:IBA?8/8H8!D
?HRC>> *HO?.0D
==A
<Z/J1Z0N0<(*XO;>(*%R/R0*OO:> *"O;	9K8	9	7R.RO;.O;K6
;J2J/Z.N.Z...434<===4=1=/=.=-=;=<85]55D5H5O5)6[[
:	5/\	4[[
:	7
3/N*K[> +V8AJ[\S[	2	5":+OO18 
1	4	5.	4O08 
0	5.	4	5.BOOT3\: 277"8[6MA8!B?:K:J:I;	;(D;&	?JK> *GO>ZLRK")ZK"M.L:O=<QO<8D:O;.M;HRC:>(.V	96$	8	7"M	>.V*WWAITING :HRC:>(.)K"> /6S"	98EHP	5K4	3W2	1JO0XPK/[	1JHP9F8DO0XPS++
8!K.>(+
O0K-?H+[O0K,?+[O0C+
0/JK*	3	8**	8[".)DECEMBER, B?G=H=PBM?=:I::J:K 8H5L278!3D;&;(;	48[

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