File 8KCKBD.SV (save files (Executable program)

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

?>2CBPT0EHD<ZD>8DH/<N*+L:HLL$Z2$TL>\ZH28A0(L98ILZH>LA(.E7P? A8H	\?H>L%L<OPP ADT 8I  TDEL DRP DHTR  TED DDHDDELS TSLLET<IN	<=L<ZDO(;L1(	DJ(02P>^82L2H^LJ 2L!DJH>((L!HRL*0B*M9X::<3L3HNH"TP6D0NL2L0<D0?LA8LK0*HH$KH
 (PL8^D(T/HSPUH-L$H*<9U$(,H8 $H$P-L"$*HR<8H^]IAI\(H/\HH\^D0XDCH6D+<GG\^H!GEH(HAXBBH=L28BBH!HIPBBP*D5B0B OHX5H4B79DL<0BBH<?L8\,EETNLFG\(DH?\>L0 ?BL3HGCCLH	(CH XLY G?;LA8BCLDD$HL?<?L,<?LC<;H?4??L>D<,H P2X1?AX2/?H99 H8H^,AH+?4JDJD>P PHDBA8G=HBB44H!2C0?0?PA>0
=0D;0 CC] 0GB B%BMBJ?=C BG?$00GG?B1B2B3B4B5B6B7??B0?>??<? **UUHPX (082A%D"Z*D"Z<H	?0B	>XXXYXZX[: X\X: X!H%X$	=	<H\>(*"	;*>*/0B;2TI>Z 2A.Z2TX]	:	9>DU> <B>DT> *E*%2TX]	:	9>DU> <B>DT> *E	;*>*22TX]HZX[	8	9>DU> <B>DT> *E	;<H*/	7+C*U0!+R0"2KH*]0H+]/H,. J/[2XRZA
A<P+6XP;&X JA9DXSHR8D=H-3XRHSP +(JAJAHP+ I.D$FNPGN8PMA".:2TX]2T9J8HK?X","*R*.***&*"*^*Z*V	>*VI=*0	=*ZI<*0	<*^I;*0	;*"I:*0	:*&I9*0	9**I8*0	8*.I7*0	7*RX^	6.	52TX].<(-3I	>(+T%&.)<XI68AX HYI%?*3HY9HHZXQH <X+P8F8F8FLQ\QPY*3HU> P]-3PZI$*2B1[&HU>(+0(-[&J2J%0B+5K
I=H:9F8FA"2IH\OK&/[$%P ;!A!H!O!W""H"ODJ	?:X+X,	>"*: X+: X,	="*: X,X+	<"*: X+X,	;"*:I6X+I5X,	:"*:I5X+I6X,	9"*:XY0B..*	8*1X^	7<H	6	5*8I7X^	7<H	6	4*?I8X^	7<H	6	3+FI9X^	7<H	6	2+MI:X^	7<H	6	1+TI;X^	7<H	6	0+[I<X^	7<H	6	/+"I=X^	7<H	6/.+QIR%T+ H!> HU>(-3I	HOH 3 ,
$ \ T M FJP \8\3\.\)\%\!%U	?*JX^X
	>*J	=H
> 	<	;*UI7X^X
	>*U	=H
> 	:	9* I8X^X
	>* 	=H
> 	8	7*+I9X^X
	>*+	=H
> 	6	5*6I:X^X
	>*6	=H
> 	4	3+AI;X^X
	>+A	=H
> 	2	1+LI<X^X
	>+L	=H
> 	0	/+WI=X^X
	>+W	=H
> 	.>DT> /-/,>(+*IQPT$6: XTHMXPLP$6: HM*DPT+AF)BE^? 3^1 ,^ $^U \^G T]* M]Z F]LLP :I4X-"Y"+P-*DI4X-"+"YP-*JH> *BP$.H%X$	?%5.I3X.H^I>Z
2AH+\P8P.* H]I>Z)2A.YI3X.H^I>Z12AH,\P8P.*2H]I>Z;2A.+XKBXA:AXH(\H*AH7X\"1H6$S/EOL<(,?SSL+M??XPHP8J8J8J]HP]/S><(/]H==HIHH<6/]HUSHVSHWSHX>(/	H;]HXS/	I680!+80&:H:[7/6T :H^I>ZGJGZ22AI2X-I3X.XXV8!H+< 	?V8 \	>V8AH+< 	=V8 \	<V8!H+< 	?P8P.*LP-*5H]I>Z-2AH> *G.2AI2X
I3X.XXV8!H,< 	;V8 \	>V8AH,< 	:V8 \	<V8!H,< 	;P8P.*7P-*J*2LLLLLLLLLLL:L/VS*/%%0HH??[(A/%$V!AF+9K0$YK2[2/.$>N
NV]NI\<N8!H+X0H+",H+\.X"H+8 H"X0H+8 ",H+8 \.I8!H,X0H,",H,\.VX"H,8 H"X0H,8 ",H,8 \.
X/H]I>Z12A	?H^I>Z62A.,;X)I1X*X^	><H+I7X^	=<H+I8X^	<<H+I9X^	;<H+I:X^	:<H+I;X^	9<H+I<X^	8<H+I=X^	7<H+P*/6H)> /5X\.8P*<H.82TX]	4P)/+P$P$  3 , $ \ T M F XH]8!H^> R.>DS> RG.G:XZX&>DVX	>DW9F8DX(29	?	>21	?	=2)	?	<2!	?	;2Y	?	:2Q	?	92I	?	82A	?	7	6%H&I0	5	6FIELDS I
 THIS SYSTEM	6%FIELDS SEL	D ARE 	4.M"".7R) $GS]Q^?,=\?\A?B!B"BB$B%B&B	B(B)B+B,B-B.B/B:B;B=B?C[C\X2R3UYT ]E]S]!^^N^\^*^8R;2TI>ZJI/^1N1> *L2A.P&H(8!H	< *X2L8!H	>(R*J?H*)2L8!H	<(*V?H*V2L8!H(<(*V?H*J*V2L8!H	<(*V?H*!*JR2	?*8I.	>	=*<I-	>	<+I,	>	;+DI+	>	:+HI*	>	
+LI)	>	8+PI(	>	7+TI0	>.3%$      -(P:<H+:K"]	K,])<HSGI^[ *;9 B*B:OOK=<   F M T \ $ ,UY 3;NZ]RNZ^RI	8 F]8B"RR^I	F]"R.Z
J
9F8DA&J
A&I%^^.R: J XHLH[GKG8B",KG",*$A	<(,HI$< *5I+EI3=*:I"+EI!< *?I +EI1< +DI
<HI^H.,0+S0&0!+L0"0G0A:/H0&0!+T0":/HHI]H/Y8J(H\(HX%<HY%<%U/P]<(+0S4IG%</(K4> +-/(]G]IOSOTOWC
=PB2=HR;S >DR>(*HI	?.>DQ> *!2T8J8HA\I[ZZJI/X"	>"V[	=%  . >DP>(*(JI/<B>DT> /<.P
<H*.:J-ZK;Z *AH^9J8HI[[H	> WI	=RELO ERR AT 	=: X!*!M IN SELECTED FIELD/?%$NONE/?;X02I	>2Q	>2Y	>2!	>2)	>21	>29	>/
RRIAGE RETURN AND LIV7BET TUHP
<H*A:J
?K>
=>DR> /<>DQ> /;P!<H	:/9H^9J8HI[Z$	8X%	8/X)	80X,	7       	6	5/;	4*=	3*=	2*=	1*=	0<H	/	.IZI/I)	-IY	-/; ARE H
> +MIV"$H^> +RIU"$H]> +WIT"$H\> +\IS"$H[> +!IR"$HZ> +&IQ"$HY> ++IP"$HX> UH
FZ=Z1Z%ZYZQZIZ
TT TVA"WV!VEV XUV	?NO PATTERN.	?ALL 0 - .I	?ALL 1 - .Q	?0000-7777 WCP - .Y	?7777-0000 WCP - .%	?2525-5252 WCP - .1	?5252-2525 WCP - .=:K>
=	?%PARITY ERR, LOC 0=	<[
	<[+	?  TSTAD=0DA\I0	;	? 1D: X!/:%8%6+3/+<B?A++7X/UHTV%LT 	?%INT FROM KB0Z: X!.	?%UNWANTED INTERRUPT OCCURRED0G: X!/>;XXY.!;ZXY.%;Z8HXY.);Z8JXY..:C9DXY.3:CXY.8;ZXX.<;Z8HXX/:HZ8D9XXZ/E:H[8D9XX[/L:HZ8F9ZXZ/S:H[8F9ZX[/Z:HZ8F=IX8JXZ/!:H[8F=IX8JX[/*B"P?8+5>/JO
OMJO%LT :HZAWIVXZ.:H[AWIVX[.G:HZAUITXZ.N:H[AUITX[.U:HZASIRXZ.\:H[ASIRX[.:HZAQI:XZ.*:H[AQI:X[.1:HZA4I8XZ.8:H[A4I8X[.?:HX<(/FSF9F<X/FSF?H/F<B+R:HYAP<(/TSTST9D<Q<X/TSTST=Q+\CLCACYB CTCECRCMCICNCACLB CDCICACGCNCOCSCTCICCB)H PO:HZ?R.:HZ8D?RF.F:HZ8F?RM.M:HZ8F8D
RT.T:HZ8F8F?R\.\:HZ8B8H>PR$.$:HZ8B?R,.,:HZ8B8D?R3.3:H[?R;.;:H[8D?SA/A:H[8F?SH/H:H[8D8F?SO/O:H[8F8F?SW/WCONSOLE KEY STRUCKTHIS TEST ILLEGAL0G<P< />%>%:>H/=/<*M""M"FPO:H[8B8H>PR.:H[8B?RH.H:H[8B8D?RO.O	?%PR LOC  FAIL ADR  GOOD  BAD  PATTERN.W	?%PDP-8E EXT ME
 DATA & CHKBD..	?%SETUP SR & CONT<B/A	?%NO RELOCATION, PROG IN FIELD 2T9F8DIO[&	?: X!/N%9$6$7[4$W%>%:+0%7$8+9P2+,,U<B:K4<B+68T 	?%PROG WILL RELOCATE: X!.	?%PROGRAM IN SELECTED FIELD/>	?NONE/>:X
X I>H]Z4I>H^Z6J4Z9INH^[B2AL 2A\ L 2A8!L > 	=P *4H
>(2C.%	<1G+I1A/;0Y/:	9	8:H2<Q0D0E:H1,;0G1G/U2T>(0A/U3TQD+]%-ISIRYDK<YEIEYFIG$<$<I"$<QF+,IZ$<QD<H,U;$IE+&&3\\M[I&V-BET :O?X3O>X4O=X5O<X6O;X7O:X8O9X9O8X:O7X;O6X<O5X=O4X>O3X?O2YO1YAO0YBO/YCO.YDO-YEO,YFO+YGO*YHO)YIO(YJ.:H3
?H4
>H5
=H6
<H7
;H8
:H9
9H:
8H;
7H<
6H=
5H>
4H?
3I
2IA
1IB
0IC
/ID
.IE
-IF
,IG
+IH
*II
)IJ
(.3	)$[
T
FZ=Z1Z%ZYZQZIZV V\V[VZVUYUHUGT,T T
T^T]TRT	?	>%LOOP ON ADDRESS SET IN SR	=>DZZNZ8 ^ZNZ8 ^Z*QP**SGPGUGYG]G.G2PQJ[J4L[G!G&I:G*I6G6J1J/PTQLQQQSB	C
CWB/CWC
B	C[B?CCB?C[CNC1CAC>CAC1CACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYCZB0B1B2B3B4B5B6B7B8B9B!B"BB$B%B&B	B(B)B*B+B,B-B.B/B:B;B<6:T 60	?	>%LOOP ONLY THE 2 ADDRESSES INPUT FROM THE SR""	=ON8 
NOO8 
O*[	>%SET SR TO FIRST ADDRESS & CONT<B>D[N	>%SET SR TO SECOND ADDRESS & CONT<B>D[O."--I-I?\ ?%CR TEST%?%RIGHT MARGIN TEST%?%SPACE TEST%?%LF TEST%6:T 60	?	>%LOOP FROM FIRST ADDRESS THRU SECOND ADDRESS	=O<Z1O;Z2	:J1Z0N08 ^0N08 ^0J08!J2>(*
R0*!<B*CHARACTER KEYED WILL BE TYPED.%RUBOUT ENDS ROUTINE.%?%OCTAL EQUIVALENT TEST?%    %?%PRINTER EXERCISER%?%TYPE IN DATA :6:3O3N2"T 60"0	?%LOOP DATA IN THE SR ON THE INPUT ADDRESS	?%SET SR TO ADDRESS & CONT":<B>DZ/>D^/N/*+:2LZ92TI>Z72A.0J9I>Z>2A.:74K 0
JA>(0Y+JJ<[?+:7;+J=H*:718F8&>PJDNE8 JB8 > *><P*?J ^FJ7<K-B9DZC8D8A9V8F74J<^E7;+*9P?+2RG*-+9JCJ<<(+8ZC+	S?2KK 74Z]8H/?T 	?	>%LOOP DATA IN THE SR THRU THE ADDRESS SELECTION	=O<Z0O;Z1	:J0Z2>D^2N2^2J28!J1>(*!R2*<B*JAZBZCJAZDB.2JAZBZDJAZCB.:ND^CND8!NC> PRDRC8R
+C/BND<B:JD<B:NC<B:JC<B;/PS/*LK0[/K1)K2)K3)*L0&0!++;/)44BMBJB55;K5JIBA6:3O3N2"T 60X<OD<(CH(OL>0
OD?DY0KH
\7L6T	LZ0HB0	D\LOHUP*H	L4D^X[DI,!LW,HL	\3L]<*D	(53H<D\LOLUP*L	$4LVL	H7,[LKH	LW >P>L88HXX*LO 1L!KH>< D/$SH/<8H=8OLC8XL(H	OL.H] >HS(WL14*M>XLG<?L?8MH\H5D[L<$B<LL< XDATSH+\"D48/AGP*$HPD\H.BEPWH$EDL!D$B

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