File AKDPAA.SV (save files (Executable program)

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

?>2CBP,IH]LHLC0.><8+(PRH<(HH$X0H0,!HEH0H:<H0,YDK80B(EF(/(JHJLKDD/DHQC <+,
D(4[H<8BAJD2<AD7,+L,QLRH<,H*H<.(BD2H
,7L(]=L(PH(:L?(2LD8?L?<6L<4=A>P FB"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B	?CPCA.HZ>(+/"Y	>	="CECW"*""B[	<	;.EO:X\K9
8K7	6H\[..YNR<(.	5*$K.XMK.8 H\>(/42ALM2I	5HM8 H\>(.**2"Y	>HZ<(+!K3<(+HK2> /42A\\2I"CECW"*"H\[.	<	>"B[CECR"*""B[CY++"CECB"*""B[CY	;.<	14(?]=D)0.&	?;.2=?< 8:L!W;M.3BBBNBYB$B/B:CECPC[C*C9DHDYD(EUFAF.G]HJH-H<IKIZJJ$J7KLLNPRTU-XZP\^"A$K&(T,5]
PROGRAM WILL RESTART

ARE YOU SURE(Y/N)? 
SELECTED TEST IS NOT WITHIN THE LIMITS OF THE PROGRAM

ALL TESTS WILL BE PERFORMED

AKDPAA0 PASS  TOTAL ERRORS  DP78 DATA AND REG TST

IS H325 CONNECTOR PRESENT? 
PERFORM COMPLETE SECONDARY ADDRESS TEST? 
COMPLETE SECONDARY ADDRESS TEST TAKES 35 MINUTES
BAUD RATE IN EXCESS OF 2500
NO PROGRAM EXECUTION BEYOND TEST 35
 ?171:2D1?2G2J2M2P2TRXDBRX STATUSTX STATUSTXDBSYNCHMODECHARCONTROLNONE2>3K3]3)323?4M44155J5Z5)586G6R6&657G7X7(7<8E8Q8
8/22
UNDEFINED ERROR CODE

UNEXPECTED DP INTERRUPT

REGISTER DID NOT CLEAR WITH RESET

REGISTER ACCESS ERROR

BIT WRITE ERROR

ERROR ON READ ONLY BIT

ERROR ON STATIC TXEN TEST

ERROR ON DATA SET READY OR CLEAR TO SEND
IMPROPER CHARACTER LENGTH

TX INTERRUPT DID NOT OCCUR

DP78 STATUS ERROR

UNEXPECTED TRANSMITTER STATUS

TX OVERRUN FAILED TO OCCUR

UNEXPECTED RECEIVER STATUS

RX OVERRUN FAILED TO OCCUR

RECEIVER DATA ERROR

RECEIVER END OF MESSAGE FAILED TO SET

RX INTERRUPT DID NOT OCCUR

ERROR ON SECONDARY ADDRESS CHECK

RECEIVER ABORT FAILED TO OCCUR

RECEIVER CAME ACTIVE TO SOON

TX INTERRUPT SHOULD NOT HAVE OCCURRED

FALSE INTERRUPT

INCORRECT DATA LENGTH

IMPROPER SYNCH CHARACTER

RECEIVER FAILED TO SHUT DOWN

UNACKNOWLEDGED DP78 INTERRUPT
 PC:  GD:  BD:  TEST NO:  REG: /1(Z)(:K0XNK0
8(Z+J+	68D	/+&J+	/+&+[J).<2AN*2IR*/(:G?:[5$:Y
:*;;E< +N>6J\ :]:!TS2C2A?=?<?;?8=PGB B0B=B?CRCSZ2LJAZE2TJBZ"2AO??H>LO>ZCO=ZD<BJR
<JE
;J< /:	9JQ	8JP	8JN	8JGZEJC8D8D8FZCJCBKJM	8JCRE*5;JHZE
7
6JL	8	5ZJK4<(/3JG<(/2JF<(/1JF>(/0J	8JJJ=H+*JI?+*: 
6JBKZO79F8DJ
7RE+F;JO	8	9**3J==W</<5===J<C<==Q<P=(<BADPQBA?B?? ABMBJCCCGC^>K?<(*5K><(*/K=<(*-K<<(*

;RD*=: ZDO;>(+(: ZDJK?<(*5K:> *$ZD+(QJNJM/9ZDJNJL2C.<>O8+(RD<H*$0&0!+E0":/0Y+K0^BEJF/JJJJK/QQRC<H+
K([]<B.AJ2A
7+[Q;RC<H+*<B.BJ2A
7+(0P?B!PY\84?=7
P::*?2:D?>?6?<==,B5GX[%SYSTEMD6/6V0Z00N0	21U321(121Z86\3,7	60.3K7*4?7BH.C8A88XGHO?A?BB C	C?DH8X>8>A<A<?<C ?$IKC8HAF%MZSVF)N%<HG6NF
N-GAI3? JKWC3G?I6>GB.D??:?&<??6?>=RB = \80G$)X:$TX<$XX;$Y<H, $Z ABC$TX<$XAX;$Y<H, $ZABN$TX<$XDAX;$Y<H, $ZDABY$TX<$XHAX;$Y<H, $ZHAB$$TX<$XLAX;$Y<H, $ZLAB/$TX<$XPAX;$Y<H, $ZPAB:$TX<$XTAX;$Y<H, $ZTACE$TX<$X\AX;$Y<H, $Z\ACP$TILX<$VLAO$XLAX;$Y<H, $ZLBC[$TIRX<$
HAC?$XHAX;$Y<H, $ZHBC*$TIRX<$VPAC?$XPAX;$Y<H, $ZPBC9$TIQX<$V\AC	$WA$X\AX;$Y<H, $Z\BDH$TIRX<$VTAC?$XTAX;$Y<H, $ZTBDY;ILX>;AX?H><(, 9HX><X*8H?9DX?*-H?Z<$VL$XLAX;H?X<$Y<H+H$ZLCD8$VL$XLAX;X<$Y<H*4$ZLCD8$TIRX>X?H><(, 9HX><X+$H?9DX?+YH?[($VHA$XHAX;H?X<$Y<H+4$ZH
E$$VHA$XHAX;X<$Y<H+ $ZHCE$$TIRX>;AX?H><(, 9HX><X*QH?9DX?*FH?ZU$VPA$XPAX;H?X<$Y<H*!$ZPCFQ$VPA$XPAX;X<$Y<H*M$ZPCFQ$TIQX>;AX?H><(, 9HX><X*>H?9DX?*3H?[B$V\A$WA$X\AX;H?X<$Y<H+P$Z\CF>$V\A$X\AX;X<$Y<H*:$Z\CF>$TIRX>;AX?H><(, 9HX><X+-H?9DX?+"H?[1$VTA$XTAX;H?X<$Y<H
=$ZTCG-$VTA$XTAX;X<$Y<H/?$ZTCG-$TIUX<K>X6$V$XAVX;$Y<H*\$Z CHJX6$V$XX;$U<H:CX<$Y<H, $Z CHJ$T;X<$VAC$XX;$Y<H, $Z DH-$T;X<$VDAC?$XDAX;$Y<H, $ZDDH<$T;X<$VLAB$XLAX;$Y<H, $ZLDIK$T;IPX6$VHAK=X<$XX;$Y<H+,$Z EIZH<ISX<$VLAA$WB$XX;$Y<H, $Z EIZ(C8G)$T$U, K?X6K>X<$VHA
XX;$Y<H*S$ZLEJH<ISX<$VLAA$WB$XX;$Y<H, $Z EJ$T;$U*7K=X6$WA$XX;K<X<$Y<H, $Z FJ$$T$U+LK;X6$V$WA$XX;K:X<$Y<H, $Z FJ7$[K,$T;0BK9X<5EAVX;$Y<H+\$ZLJKL: X9K8X6$
$VHA0A$WJX;X<$Z$HKLX;$TK7X<$Y<H, $Z IKL+:DCB D 
BX LBH BX2$[LW$T0B;X2K?X6$
: X9$VHA0A$WJX<X;$Z$HLX8H8AT>(*+$]LAX;X<H2>(*(IOX<$Y<H, $ZLKLH8AS>(*7: X9: X20A$WJ*T$^$Z YLKR> />O=> , H>KP> , H?KQ? , : [R$%1I$%1X/>JGH!=H,[.,T1*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVE ERROR57BBB X2$[NZ$T0BI[X6$VTAG$
K?X3$VHA: X90A$WJX<X;$Z$HNX89X8>(*1$]DAX;X<H2> *)$ZDLNIKX<$Y<H, $ZDLN9Z8>(+C: X2: X90A$WJ$XDAX;X<$ZDMNH8AT>(+N$]LAX;X<$ZLJNH8AS>(+&H3>(+ZP3*M$VLAB: X90A$WJ$]DAX;X<$ZDMN$^$Z YNS0+T2J	3G<D<?2?9J8J8JC?<(K?8A9H/5?=X2$[P\$T$U/?0BK>X6$VTAG$
;&X3$VHA: X90A$WJX<X;$Z$HPX89X8>(*7O=X>O<X?$]DAX;X<H2> */$ZDLPIKX<$Y<H/?$ZDLP9Z8>(+I: X2: X90A$WJ$XDAX;X<$ZDMPH8AT>(+T$]LAX;X<$ZLJPH8AS>(+,H3>(+ P3*O$VLAB: X90A$WJ$]DAX;X<$ZDMP$^$Z YP\F/W"%A	*-&	*-&A/".&N0M0LCL;X2$[R\$T$U, 0BK?X6$VTAAG$
K>X3$VHA: X90A$WJX<X;$Z$HRX89X8>(*3$]DAX;X<H2> *+$ZDLRIKX<$Y<H, $ZDLR9Z8>(+E: X2: X90A$WJ$]DAX;X<$ZDMRH8AT>(+P$]LAX;X<$ZLJRH8AS>(+%P3*O: X9$VLAB0A$WJ$XDAX;X<$ZDMR$^$Z YR%.LS9!H!<(+5>X+%%"HSXV/R%Z/R	%.%T?&PQIP4?=CX=$[T3$T0BI[X6$VTAG$
IYX3X4ZTH=> *$VHARTP3<HP=: X90A$WJX<X;$Z$HT: X9$VLAB:0A$WJ$XDAX;X<$ZDPTX89X8>(+D$]DAX;;EX<$Y<H+D$ZDLT+-9Z8>(+Y$]AX;H4X<$Y<H+S$ZNTP4IYH4> *Y, H8AS>(+^*OH8AT>(+)$]LAX;X<$ZLJT$^$Z YTX=$[V[$T0BI[X6$VTAAG$VLAA;$X7$VH5/?P7/>$VLA;U5F5E:IYX3X4ZP$VHA: X90A$WJX<X;$
$HU-X89X8>(*+$]DAX;;EX<$Y<H*+$ZDLU-9Z8>(+$]AX;H4X<$Y<H*:$ZNU-P4IYH4> *Q, H8AS>(*\: X9H=> +RRPP3*N: X9P=$VLAB:0A$WJ$XDAX;X<$ZDPU-H8AT>(+($]LAX;X<$ZLJU-$^$Z YU-[0%,-)*
:T%YAZ/>K=> +M/<?*\+PC3?RU<U?$[X ZOZUX2X=$T0B$VTAWI[X6$VPA$
;&X3$VHA: X90A$WJX<X;$Z$HXX89Z8>(+M$]AX;JUX<$Y<H*0$ZQX: X2+
H8AT>(+3$]LAX;X<$ZLJX9X8>(*3$]DAX;;EX<$Y<H*!$ZDLXH8AS>(*>H=> +ZP3*SP=$VLAB: X90A$WJJUIX> +1H2> +)$ZPQXDJOIX>(, $\/?RO*CRU*E$^$Z YXEC?/=TD*?:C
 ?3ZO?>(ZJJJJKZF<B
?RJ/>JLB*AUC?$[Z)$T0BI[X6$VTAG$
K=X3$VHA: X90A$WJX<X;$Z$HZPX89X8>(*9$]DAX;;WX<$Y<H, $ZDRZP9Z8>(+E: X2: X9$]A:+]H8AT>(+T$]LAX;IOX<$Y<H*
$ZLJZPH8AS>(+)H3>(+]P3*\: X90A$WJ$XDAX;X<$ZDRZP$^$Z YZPLJ\K/K+PY(QQ6KS[=>6>EFD>WUB??=XCXO$[\Y$T0BI[X6$VTAG$
K?X3$VHA: X90A$WJX<X;$Z$H\X89X8>(*)$]DAX;;WX<$Y<H, $ZDR\9Z8>(*5: X2: X9$]A:+RH8AT>(+D$]LAX;IOX<$Y<H*O$ZLJ\H8AS>(+\H3>(+MP3*L$VLAD: X90A$WJ$XDAX;X<$ZDR\$^$Z Y\.QD+K2CPAGF)Y?=B?->G	.PGG<B+:"GC8]<B2C0"/=ZJ?=$[^%ZOZZX2X=$T0B$VTAAGI[X6$VPA$VLAA;U5F5E;&X3$VHA: 
90A$WJX<X;$Z$H^X89X8>(*=$]DAX;IKX<$Y<H*5$ZDM^: X2: X90A$WJ+99Z8>(+XH2>(+KP2*7X;X<$Z X^C$XAX;JOX<$Y<H+V$ZW^P2+4H8AT>(+$]LAX;X<$ZLJ^H8AS>(+?H=> +1P3*XP=$VLA*X$VLAB: X90A$WJJOIX>(, RO*C$^$Z Y^RL01.TX.TXJ\G8RKB0:LNKCD.01J\FQW,PTR:/BXBF.SV/IT38/CC/CCJ\??COPY N
LL:<TDA0:$F$["8AZR8AZXX2X=$T0B$VTAAOI[X6$VPA$
;&X3$VHA: X90A$WJX<X;$Z$H"AX89X8>(*;$]DAX;IKX<$Y<H*3$ZDM"A: X2: X90A$WJ+?9Z8>(+VH2>(+IP2*5X<X;$Z X"G$]AX;JRX<$Y<H+T$ZW"AP2+:H8AT>(+!$]LAX;X<$ZLJ"AH8AS>(.H=> +*P3*VH3> +3P=$VHAP3*YH=9H>P+:$VLAP=: X90A$WJJRIX>(, W?W>/=$^$Z Y"A?$[$(X=$T0B$VTAA/I[X6$VPABV$
JJX3$VHABV: X90A$WJX<X;$Z$H$KX89X8>(*4$]DAX;X<$ZDM$K9Z8>(+E$]A:X<H38!X;H3? , $ZS$KH8AT>(+P$]LAX;X<$ZLJ$KH8AS>(+3H=> +YP3*[H3> +"P=$VHAP3*^H=9H>P+)$VLAP=: X90A$WJX<X;$ZDJ$M$^$Z Y$K"G"X"RX2IZX*$[	Q$TH2KGZI<BX+H2KLZN<BZ^H-H2ZS<BX4X=0BI[X6$VTAG$V\A$
;&X3H3X,H=> *7$VHAC8P3<HP=: X90A$WJX<X;$Z$H&E: X9$VLAB:0A$WJ$XDAX;X<$ZDP&EKHA0A APKMC CB X89X8>(+"$]DAX;;EH+X<$Y<H+"$ZDL&E9Z8>(/?$]AX;P,*7H4X<$Y<H+3$ZN&EP2P**E, B.?9?<EU+(B B-(H8AS>(*E/?H8AT>(*P$]LAX;X<$ZLJ&E$^$Z Y&X2IZX*$[*$TH2K[Z]<BX+H2K Z"<BZ2H-H2Z	<BX
X=0BI[X6$VTAG$V\A$
;&X3H3X,H=> +K$VHAC8P3<HP=: X90A$WJX<X;$Z$H(Y: X9$VLAB:0A$WJ$XDAX;X<$ZDP(YK\A0A APK!GFEX"	?	?	8	?/
H%9HX%H&8HX&H!8HX!/+<%J1/U+?:	1,? ?;&$X89X8>(*Q$]DAX;;EH+X<$Y<H*Q$ZDL(Y9Z8>(*&$]AX;P,/?H4X<$Y<H*"$ZN(YP2P*/>, H8AS>(*+/=H8AT>(*6$]LAX;X<$ZLJ(Y$^$Z Y(TJ\5AAAAA	03A*^RA50AWK/AAAAAA13*/5AC9C\AEAAAAA/&95A*APAAAAA13*/5A AAAAA/&95A/A"AAAAA13*/5ACAACA0AAAAA9^9LS
8(Y)KX2IZX*$[.$TH2KSZI<BZYH-H2ZN<BX4X=0BI[X6$VTAAG$V\A$VLAA;$X7$VH5*"P7*
$VLA;U5F5E; X3H3X,H=> +C$VHAC8P3<HP=: X90A$WJX<X;$Z$H,E: X9$VLAB:0A$WJ$XDAX;X<$ZDP,EKTC	CFB%P$8H%+MX%/^/"/%3MX$<(X&X%	
H&9!X&<P8 +L/	H ?S	/	S1/10X>\?6I6X*^BCK(KZX89X8>(*L$]DAX;X<$ZDL,E9Z8>(*"$]AX;P,/?$TH4X<$Y<H*^$ZN,EP2P*/>, H8AS>(*	/=H8AT>(*2$]LAX;X<$ZLJ,E$^$Z Y,K%8H[%H"8HX"8HX!P	*+.X)H"<P+G9H&8HX"H)8HR+A9!X&8T/Q-D%SOR	<8!H$X$H(9!X(%H&X!K>Z+IKRZ*WLH%H(>X/?K>X"+5H%8DX%H%H
<XX%:H&8DX&P"+-/%1],(,0,E-CNR8!ZLK?ZMRM*GRL*E.5BNNH6RN5C> <B5G5D5A.N5B;XH6NZRZ5C> <BNZRZ5D.ZH;8!H<>(R	.	QDN.[TR.2IOT8B"<2IOT"<ST*32AAM<(+JKP<(+MK>=HKOIP$!.<;YD..$".<A?!??BMBJOUSU
=/U$VLAA$WB$VLA;U5F5E:/Z0BO(S([0$WA$X/(H8X;X</2BBAD MONITOR4-???A0B5F5E: JYEHR?*MIE2:/?NYFRNRYAW>8$AO> +AIFAMK=Z"2IN"2AZ"$%$%8?IE$&$%9HH:$&IF8B9JALK<Z82IN82AZ8$%9N$%$%9BH<$&$%9EH;$&$?H+F$$8$9D?H-A, [	QDK%[*K	8D8D8F[	K	AJK&[(8H[)K($!K)9DK	S*+R;YD/K?<B0O;$!
:$!/,K7>(S2/2?????81S1R1-2W585PJZU$(K?<(*NK>>(*M$%1+.URR$(K=> *J$".1^QI,	0"QH,	/<0^ANIOYI$$$!:YG,	5EX8P9*.H8.-<B;H89H>P+M5F5EH8X;X<$Z 4;: H:X:, QG0AIG> +BI.?YC2\YB5<H*	1
<H*V0!<H*Y0Y<H*]1B<H<B<B+Y<B+[S78HR?H, $%/.$%/3K7$&K8>(+/$%/7K8$&$AS> <H, $$8, %CAN6*=3?5<20BZUYHHRAS> *JJU.2TK?K>ZN<BJU&TR0A.:RJ[>(RV.VZ.2IO=?H*
2AJ.0B0&:: YH0AIH> **.\0B5F;E5F5E:X6HR?+IIK<9K;>P	:0A./HR?H+"$%/.$%/?$%0K	9+J: Z[$%0Z	9+P: 
8$\+
$%00$%.8	9+Z+C$$8/B;A1]:Z[/BHP/	IB0E:IC,OVERFLOWBAD NUM3748
FP>[<D2BH$AT>(*Q$AMX:H:K??(*R$%/C$%/
XP*ZP:H:K>Z^2IN^2A< *\X:*RZ^.^YI2:	=.
8%%R;M*Q
BK;ZZ*X[COB9F8DKC
BSD*XK<8!JZ>(.J">OB%S%Q.J%R.>0G2C/H>0Y+
HR	>(+R0Z/I	:%U==9E=99!=-9	9\K9%W+(SI/I%R;O	8+(	7*X	7	6/ID[4K48J8H%VK4%V/+E;%=Q;0B?;]8,8(5.?W

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