File LP8DIA.SV (save files (Executable program)

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

??2CBP^ LH"HSH:0JL9 FFX8DJ(-H78JL9 FFX8DJ(/8.DHZDZ(,H-8ZDK(?04J8R0 =D*X!D+0*R80H0,RDRH0D*0*DK(>D/L.LHX O>D\L$X?J4LN0+ T+DK8=H+,RHR(*L<(.DK8>H+,RDNH+*T+H:8:DK(<H+0HHZ<*LM176,L \6 1DHPDIPNHER>G%)8 H^H89 H7/?/>/=0?\A\P2A.A:ABJBMBLB CB?CACE?=J?> ?6<8?>>0AP?<?
?/E?;D?=?4????NVAVCVEVGVIVKVMVOVQVSVUVWVYV[V]V
V!VV%V	V)V+V-V/V1$4$9TTW^BELNPRZR9(	<	;	::HW%6%Q)-:-"	9%1).)%1E1J1M1R1U1X1[B&.U\YD0^ ? &B,,P,Q,R,S,T:K?	>%7%2%1<H$3:IMXA0AHZ%4:H"Z>R>*W0B%1$5%2%1<H$6%5HKXA0AHY%6:H"Z>R>*)$7%1$8%7INXA0AHZ%6:H"Z>R>*7%1$:0B	=/<	;	:CE	9.?POWER UPP!-3*NHUX[P
HV*U0!+R0"2KH*]0H+]/H,. J/[2XRZA A<P+6XP;&X JA9DXSHR8D=H-3XRHSP +(JAJAHP+ I.X JAX6XX>D^T0A:K?YVH&YUH(YRJ/Z.%3<H$;%1$<..:J/Z.HZ%6QR*I:H	YR%O$=QU*I	>*IH&YUHU%6%P$>	=QV*I/<:J0Z.HY*SD)DOX]XY%)X H I(<(-3I	>(+T%&.)<XI68AX HYI%?*3HY9HHZXQH <X+P8F8F8FLQ\QPY*3HU> 
]-3PZI$*2B1[&HU>(+0(-[&J2J%0B+5K	I=H:9F8FA"2IH\OK&/[HY>(H">(+<PY(2F^TUG?
>DC?>(*JK>YVK6[5H *OK=YVK7[5H
[8:H&YUHXYTK8YSH	YR%3<H$?%1%:IT%6QR*2:H	YR%O%A/5QU*2:H&YUHU%6%P%BQTQS*Y:HU%6%P%B	<:H	YRK8I88!YS%3<H%C%1%D:IT%6QR+Q:H	YR%O-EQS<H+,QT:K$XHK)[+:ITC*8!LH<(+QS++Z+BG$JMLA?<A?:HU%6%P%F	<QV*P/?F)F2H IP<(^T?2?6H:6261<H 3:K?X/K>X0:K=X1:H16661*PP1P/*M:K?X/HU6661*Z:
V6661*
P0*J:K>X0HW6661*(:/<=%+R>*E=1*E=D*9=6+7==*<.II*WIH%MHUIG%MKLN> *B2I: ]F0!+H-EIDXU.IC%M/KIBXU;X2I]12A.*
HMIA>(+*IQPT%M: XTHMXPLP%M: HM*DPT+AIQ+IYPT+3IQ%MXTHU%M/.K\MI?XNLNJB ?N?:KQ[R: [SKU[TKY[W: YVH	YR%3<H%G%1%H/W:HX%6QR*M:H	YR%O%IQV*M:KSYV/TKV[TKX[W:HV%6%O*.:*M	?*	:H[*UKU[TKY[W:HU%6%P%J	>: KS[SKSYVKSH)< *MSR*C:HW%6	=%K:O<[Z/Z?4JJ3J0JS]/S=<(/]H<=HIGH;6/]HUS
VSHWSHX>(/	H:]HXS/	I680!+80&:BE^^T	H:K?	>H	YR>DC=>(*LH <HH
YSH&YUHXYT%3<H$3%1$4:IT%6QR*R:H	YRQU*$	<<H*	%O$5*R:H&YU%O$6%3<H$7%1$9:HU%6%P$8	;*8QTQS*R	;	::*DK09DK18D?X+HK0H<+XK0XSK18!H19X[0.;Z[1K008!HS=H/[0.T4*0%0FHK(A: 2I\=,.S*/%%0HH??[(A/%$]!AF+9K0$&K2[2/.$>UA^TUGH0B:K?	>H	YRH&YUK
[]K"[ >DC=>(*RH <HH
[$HX[KYTK$YS%3<H$3%1$4IT%6:QR<H*0QTQS<H*=/ /]K
[]%O$5*ZH	YRK^[]QU*%	<*%H&YUK![ *%HXYT>DC=>(+EH <HH
YS*)K"[ K
[]%O$6%3<H$7%1$8HU%6%P$9	;SS$*V	:*LNZN+NZN*OHN*2J	,G<D<?2?>GXQ/(LL>(/<%	BAF,9J8JUA^TUGH0C:K?	>HZYTH$[8H$[6H	YRH&YU%3<H$3%1$4IT%6:QR*]:H	YR%O$8S6*N%3<H$5%1$6:HU%6%P$7	=:H	YRS8<H*3K8[6*NH$YVH	YRH&YU%3<H%A%1$9IT%6:QR*9:H	YR%O$:QU*9	<*9H&YU%3<H$;%1$<HU%6%P$=	
QV+^	=	;:*D:H%IV8![7%3<H$>%1$?HX%6:QR+3:H	YR%O%/:S7+*9"+UAUG^T0D%3<H*A%O	?%1*F:HZ%5%7%4%2%6:HV%6%O	?%1*T:HU%6.:K>	=:K<Z8	;:H$YUH\X2H2%1*(6661*+QU*(:HU%1*1%6R8*!	:*^:K9	=:KZXJK8[[:H$YUH\%1+F%6QU+F:LJ[\HU%1+O%6S\+O	;S[+B	;	:*=S\?=?>?6?2?:?=?8?<?;?;?=0 1(203
56H7P8X9 B*B:OO<BK;+0?5FUA^T?B0E&.%3<H ;;JSZVJTZU%1<H*QRU*IRV*G.R.=P?;J	Z*J(Z)%1<H*%R)*]R**[.WRW.W>>+:J=[J>Z?%3*688/?88R?*1S*//?  >DA8> />/A:IL>(+Z+MK=[LH-YRH.YU/GK<[LH	YRH&YUSG/G:K<[L/\\<(+)S/K-%:/!K/> +&/!B08G]G]IOSOTOWC
=PB2"=HPATT+M+T\+!K"3"3"3"3"3"3"3"3"3"3"3"3"3"3"3"3"3"3"3"3"3"3"3"3"30B:O?
>J39HCSYWHJ3[TOTK=YYIYK=> +HO<
>OTCU9J8J8J8HKV[WOWYX	;
NWXAAAAAABCDOT PERFORM AUTOMATIC CARRIAGE RETURN AND LINE FEED.ZFZ)??Z(Z*: NXILI< *IR.Z
J!Z J
O< *RJ"Z ZJ
8J8J8JO"$"-. J"$"-*DX[XGZ5J5C?>(K>K=J5.$0!*.0&0!*1:.-:HV"-HU"-0".6;0&0!+A.>0B0"0Z6267/DPACEPATTERN F  20 LINES OF CODES 340 THROUGH 377PATTERN N  CURSOR ADDRESSINGPATTERN H  OUTPUT BA 	?	>Z=	=.	?	>Z+IX	<	>]S	>Z0IW	<	>]S.(	>Z7IY	;	>"Y	=	:>D8F<X<H*]8H/9/8	>
K*[Z%ZUTEST NO. , ERROR NO. , LOCATION LE8/LP08 LINE PRINTER TEST INTERRUPT ERRORC DISPLAY TERMINAL DIAGNOSTIC DIRECTORY>X/$HQI!>P/$71=>(<B/$S8+%+!\+\3YD"M\:X6XX>	?	>	=	<	;:J8Z7	:	9	;!">H	;	8:	;	?	>:J9Z7J1Z5J2Z/>DZ0K7*!IZ9DYZJ08HZ0>DA8> *3>X*3R5R/*
*P%[?9!".7%[*+\N\5[R[UKRH!=H+CSU*>H^HN[VKU<(+PHN9F8F8FKV[S.:KW+M   +[K4.MGY.IIY/I2Y0L0Y1K2XK4/3S1*NS0*FR:.]	B"PABE ZYDX6X>&F0/;JPZSJQZR%1<H*NRR*FRS*D.R.:H:H>DC?>(*Z.T>DA8> .T>DAZ>(/>*U$.%GZ"$0$0&3Z4:I]Y;J4%:$2."*(UI  BGCPCACTCTCECRCNB CPB B CBCACCCKCSCPCA
CCEB B B B B(CVCTB0B5B CACLCPCHCACNCUCMCECRCICCB CDCICSCPCLCACYB CTCECRCMCICNCACLB CDCICACGCNCOCSCTCICCB)\+ 	?:	>	=	>%3<H+A	<	>%3+C	=	>%3<H+E	;	>%3+G	=	>%3<H+IHLXA	:%2%5	>0A80B%7+K%3+M	9	8	=	>%3>H+O	:	>HMXA0A80B	8	=	>%3>H+S	7	6.%7+QK5+TK4+TK3+TK2+TK1+TK0+
K/+TK.+TK-+TK,[		+	*!
K		)	*]S	(	>*DREADY ERROR NO.X6\:XX>JIHGFEDCBA%5"&YD%-%%%]%W"FB?%1>H.K?/>:0Z0Y*I0Z.FZ*J*"\ZZJ*9J9J9J"\ZY.M  Z(J(C=Z)J(9F9DC<J)K;.\QU<H	:<H/9/8ZCZ"X5XMV3Y%XZYC!V"(CDIQYOI^$!IL$!%ZIR$!QO+CIQYOIL$!%ZI^$!IR$!QO+NK:YOI^$!IL$!%ZIR$!QO+YIXYOI^$!I^$!IR$!QO+$IQYOI
$!%ZI^$!IR$!QO+.	9Q3P9UG00GG!TKOK, 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., TEST 1 SECTION 1 NEXT.OK,	?	>$	=/W	?	>$T	>$Y	=/]	?	>$T	>$%	=/%	?	>$T	>$1	=/-	?	>$<	=
5"$^X6XX>	?	>:Y	=.:K<Z]>DC;> *XYLK:XHK9XILH\IR]*S.F8 YLK8XH*Q>0AP?<?,?/E?;D=<BD?;?(?+F?9F	?	>&4	=..CHARACTER FLAG NOT HIGH, RESET PRINTER.	?	>	N	=/HCHARACTER FLAG NOT HIGH AFTER CR DURING TEST 1 SEC. 4.76+QIJ> IBIUH076$ (A+,H=74$ &%&]D?8X6XX>	?:K>	=	<>DC;
(*UC:< 	9>DC8< 	7>DC6< 	5	4*EIM74HZ\XH4\W	1*X$
*QIL
9IL8 YLIK8!YK>DAQ> +$8 [4LRXP$]IN74H[\XH4\W	2+M74H\\XH4\W$"9=	7	2+M74H[\XH4\W$";>	7*87:AH> +YLW> +YLXK6[X$"9=$
*/IL8 YLIK8!YKS4<H*/>DAS> *-LTH?> *QIL> *Q/0)1*,^T,=H,PR 8UA0G*	?	>*V	=.Q	?	>*"W	>*-W	>+H	=.*R:K<ZQ*FSELECT TEST 7 SUB-TEST.SW. 6 --- SCOPE LOOP.SW. 7 --- SEGMENT PRINT -- SWS. 9,10 AND 11 SEL. SEG.SW. 8 --- POWER SUPPLY TEST.	=	?/W&$+\W"/$W/$/\)(-V$1"IJ 
(J =<(/=9J> /<K:J^Z^K:/;J,/4G9/E(*PX6XX>:H	YS>DC?<(.H*=.H+K>Z\.\:H\%1*Q%6QS*Q%1*V:HU%6.*O*,*+***H	H	Z<>DC=>(*[J<H	H	H	YR>D8D?*4H\<HHX%1*5%6:QR*4*O>DC)>(O<O;[*>DC,> ; H&YU:K.YT;H	YRIT%1+Q%6QR+QQU<H+:K+ITYTITK*=H+MC-+K%1+:HU%6.=H5D?B!%8K0$)$.%.$?>D=>(/?4948
,]G:HU%6%1*D;J.Z,;Z)J-Z*>DG?>(*SO><HO=Z+H\%3<H*V%6%1*Z%3<H<BR+*YR)*!R**!R,*I>B*A>?/ +?$	HW$)$.7NN?$]IM74HZ\XH4\W*AHPIV>(+HHP?*!R.HP\RHPIKXPIL8!HPAW> *VH=74R*V; **IY*IY8 *Q[+ZI[*Q[+$;/YA YZIZ7<< <B7:A 8!IZ< <B: 7:8 < <B/*:X:W:VK?Z[H-YSK>XH:LH%1*I%6QS*G%1*N
.CTCECSCTB CNCOB.B BJBJ>DC=>(.^IZC<>(.^/;61626364656667+A:J([FJ)[KJ*[NJ+[SJ,[VJ-[YJ.[\./:K:Z0*161<HSE/E62/J63<HSM/M64/R65/U66/X67/[$**/X-Z$,J)$($-$"**:R)/!((+),I,+()&"+	)&&	&&+*(U./\+AB0QB0:K?X2	>!":K=Z*>DG<> 8 H&X&H&YVK;XH>D?H*S.*J,H	H	H	H	H	8Z+YU%7"-"8>
?H+FQU*!<B*(?4:J+YS	:%1*2%6QS*1.-:HU%1*;%6:.8:IU\H8 J*Z*"8>D?H+MQV.*	9	8	7<B*ATRPPLY8 > +DH=74$
*+/2$$$(HV$)",/+?$	*+&9>H.PRI:5>A4X6X>4X2?:V2\&FCA:K?XH	>	=8	<H&YVK;ZM	=8K	:	=67	<K9JMZMQV*L.;J68FJ7Z6J68FJ78FZ7J6C8Z:J:K7?<H*Y>D8F?J8J9J:?H<H*YJ:.XB*1 <AG?&2C.?D[ 2LJ=[^2AN<8H2I>X+Q2B"G(HW<B2B"GFHK<B(P2B"GHHW<B/!0!0H !0!0!0= C?E68K+WXX>2?:LH"S":J,9F8F8FJ
Z7J.9F8F8FJ/Z8.ZRZ,Z-Z.K?Z0MJRN0=H*!V+*\R0N0R+R0R**\K>Z/.S0XO(>\A$?6JMN+< +EK=^+R+R**<.:K>^+R+N+R*+E:.:K<Z+H,Z*/MNE8 JB8 > *><P*?J ^FJ7<K-B9DZC8D8A9V8F74J<^E7;+*9P?+2RG*-+9JCJ<<(+8ZC+	S?2KK 746, 061PRINTER TIMING (LPM)1 SEG.  2 SEGS. 3 SEGS. 4 SEGS. 5 SEG
. 6 SEGS. $VI$V$V.&8F8FZ&ITZYJ&5H.$VJ&8F8DZ&RY*4H-$V..;OASAZ.N.AE<(+]=8P8A8J8J8J$VN.AH<(+]IM=IPH-$VR.;+F;/A0&0!+!0":/
>D=>(/&$\$(;IZ[
H;$	S
+1;H7$	Y6$&$]$,IQS&/&E
*P>DBV> *HJX<HJWX1>D6661*LP1*J;HU6661*S*BD=<>0INTERRUPT O.K.LUZ+I%2A\0I&B<CDCICGCICTCACLB*CECQCUCICPCMCECNCTB*CCCOCRCPCOCRCACTCICOCNB*CVCTB0B5B>IUYOI^$!IP$!%ZIR$!QO+OI^$!I\YOIL$!%ZIE$!IR$!QO+\IQYOIE$!IL$!%ZIR$!QO+		2/L<ATUS REGISTER ERRORCOMMAN

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