File RK8E.PA (PAL assembler source file)

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

2//R*8CE3D	R7VKE2 ?F7RJ +T7S"8*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2/?C7PKY3IG+TB *(	C. F .9R76 	B2 	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J3TWH2 ;I7FKO7MSA3I;O2 ;I2 T+ICS3DOO3UWM+NCT+ICS3SKU3JOE7TR 3ON 3H;A+GCE7
SI7HWO3T: 3O	TC7E2JF/+NCD3S?H3USL2 ?N3TJ 3EN 7OON7TWR+ECD+ACS3AN 3O7M3I7T7ESN6 	B2 	D7GSI+ACL7EWQ3I7P7ESN*M>J7CKO7PKO3A	T+O;N2 R 3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?I3NF 7SWS7MOE2 ?N2 WR3S?P3N	S3B3I7I	T*M>J7FKO2 ;A3YV 3R?R+RCS3TGH3T6 +ACY7ACP7EKA2 ;I2 T+IC
3DOO3UWM+N;T*M>J*M>J3TWH2 ?S7F
T3AWR2 WD7SKC3IWB3D& 7NR 7HOI2 ?D3C7U7ESN6 OI6 WF3R	N3SWH7DR 7OR +HCE7PKU3CGH7SKE*M>J3USN+ECR3A2 3IWC3NWS2 ?F7RV +SCE+OCN7AN 3I
N+LCE3C7O7PSU+ECR7SOY3T7E2 ;A3DN +ACN+BCE7CCO3ISE*M>J2(	W+TCH3ION7LOU3I;O2 [O2 	D7GSI+A
L3SN 7O	P3R
I+HCT7NSO3IWC2)> 7N	L2 ?F7RV +SCE+ICN3SOUH*M6/	S3SWT+MB,3EOX7ESP6 OA2 GM3Y> 3TWH3R	W+SCE+BCE3P?R3VSI+ECD+ICN3W	R3T;I3GJ 3YR 3I	G3T3A".*M"/*M2/	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O6 OA3S7U+ECS+NCO7ROE3P;O3SKI3I	L+TCY7FKO2 T7EV S7E2J>/7RJ 3E	L3A	B7LSI3Y> 3
& +TCS3S[O3TGW+RCE+OCN7EWQ3I7P7ESN2 T+ACT+ICS7NSO6 WS3P3P3ISE6 	B*M>J3D
I3IGTL6."J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6L2JGT/S7K2I/R"8*M3I	N/W7T"I606JWCR&="0*M2MRJ7SCK.=ZI.7F42MRJ7CKL.=ZI.7J42MRJ3L
A.=ZI.7N42MRJ3LGC.=ZI.7R42MRJ7RSS.=ZI.7V42MRJ3LOD.=ZI.7Z4"M6J2JZI3I3E3DNI+UWR"160*J*I.3B4"0*M7TCM",*M3SGT+R3T2IGCL*M3D;O3E
F6,NI3K	PN7S6JKT7YSC2,&I7NKTP7T"J*M3L?OP&,3C3A"M&J3ROE7E[I*I>I7GSE* CA7MOE3S
AE*M3ASDR&,"0*M2IOD3AZIL7D2JFI/C^7"7652JRIC	A7T	RC	T6/KT/YN 2 	T7MOE2M&J7NSI2,&IS	Z3D;O3E
F2I&/7NSI3I3A3IWZ6 [E7ESN2 3FA7G2JNI+MCA3S3T*I>I**B*+ACC7M	A2 WB* B37HKE+E* "**M2IGT3DFI7DKD"M&J3DGC2ISAD	R2/SA3DWR+SCS+OCF7PKA3AWM7TKE2 3B3O/C. F-2 ;I2 OA"M&J7JOM2IWGT*M2IGT+D"I"-&46/KP3OGP7GSA3EJ +ICT*1B07ISN7OR +HCE3L;IK*M2I;A+D"I*3>I3CWL+ACR3A3L2 	H+G
H3OSR+ECR7BSIS*M2IGRL&I2/?R7TSA3EJ +ICT*1B07ISN3O2 +O7W3OSR+ECR7BSI"M&J3DGC2IGP3G;C+T>I3S?T+RCE3TGR3N[S3O7R+ECD3U	NT*M2I7J3S^IE7T2JFIN	D.(^7"7&02/WG3TZ 3UON3T?I7N^ 3OSR",*M2IGT7DBI3AOGN	T2/?C3M	B+NCE7WSI7HV 7NSI6 WN3MWBR*M2IOD7ABI3AOGN	T2/;A7DN 7TKO3E& 3T
 7W	A"M&J7JOM2IWGT*M2I3DC	A6IB/+UCT3SGT3R	T+NCG3TGR3N[S+ECR3ASD7ROE3S& 3N" 3ASR7WKAE*M2I3C3AN +LCL3IOA"M&J3ASN2IGP3G;CT*M6I+S3AN L	A*IJ/3U	N+TB"2=R 3I/S**.23H3A+F6 2 C3E/C2 W3IC2 GHL7F6JRIA	D.(J6"6&02/WS3C;O3D" 3A[L* B-3ASD2 3B3O/C6 WN3MWB3R> 7FOFE7T2J*IM
S7GSE6IR/3OJ 3LOO3K: 3UKME7R2JRIC	A3ROE6IN/3AWV2 ?L3W> 3RWDR*M2IGT7DBI3AOGN7T2JFIN	D.(B4"7&62/WG7TV 7NSI2 	B+T3S2 	F3ESL2 	B+TCS3ASN2 WR+A?D3W	R+TCE7BSI"M&J3S3Z"M&J3IOA*I>I3ASD2 	H+GCH3OSR+ECR3B?L+CCK3N7U7BKE"M&J3TSA.IR("0&02/SA3D& 3NWT7RWR+PCT3EGN3BWL2 	
T*M2IOD3ANI+R>I3S?T+RCE+ACS3SWK7LSE+OCN3C7O3M;A7DJ 3E	G3SWTR*M2IGT7DBI3AOGN7T2JFIN	D.(^3"0&06/OI3OGL+TCE3P
A3EN 3O;U3TZ 3I3ED*M2I;SA*M2IOA.4B0"0&I2/3A7L
O6 WF+LCL3FWI+LCD3TGR3N[S7EOR"M&J3DGC2IGP3G;CT*M2IGT7DBI3AOGN7T2JFIN	D/R
K.6B02I&/3FV 3N	T+RCE3TGR3N[S+ECR+ICS3OWN2 GP+G3E"M&J3SGN2 3CA*M2IGT+D"I.1B06IN/+ECT2";O7EB-3AWG6 KT7AON7FKE2"J +ICT+ICN3C7O3M;A7DJ E7G2J&IO	F2I&/3NWT7RWR7POT2 [O7F^ 3H3I3E2 3OSA3I
N2 WR7GOI7TKES6!2J*IM	S7ROK7ECT6IN/7TKA7TR 3R;A3SWF3RF +NCD7SSE6 CU2 WN+XCT3OWN"M&J3TSA2IZ(3S	TN7T2JNI+DCF7CKU"M&J3I;O*I>I**B*7NSO7ER +HCE2"OD3A& 7DOI+PB"7MOU3TJ 7ER +HCE7NE3T& 7NSSR*M2IOD3A& 2I&(7DOI+P>I3I	N3TGI7L+I3E& 3NWT7RWR+PCT7DOI7PSAC7H2JNIA7L6J^I7
SIE*M3P?D3N
F2,RI3OWNF	G6I^/7ASI2 ?F3RN 7OCM7LSE3I;O"M&J3TSA.IN(2I2/3OSA2 ?C7NSS7ASN2 ?F3RJ 3A/C3I
N6 CU2 SAD7R2J&IS	Z7RKT3Y
F2IR/+ICD3EWV+NCT3FGL7GN 3I;G7I	F6 KE7RKO6 KO2 ?C3M3P3E	T/O?N"M&J7JCM2I;II	T6/KE7RKO6 KO6 
P3RZ 3A3I* B-7RSE+RCY7ESN3IWR6 CO3EGR3T?IN*M2I7J3S^IE	T2/T+ICS7JOU7TN 7EOT2 T3ER 3FF +NCD3ASDR*M/PZ7*020.IZ7"0606JRIA	D3SGT7TOU"M&J3DGC2 & 2ISAD7R6JRIA	D3FSL"M&J3DGC2I[PL7D6JRIA	D3ASDR*M2IGT+D"I"-&72/WG7TB 3O;I7TKE2 ?T2 WM3SGS+GCE3EWV+NCT3FGLG*M2IGCL*M2I?
S7T6JSS7AWTS6,2J[P+L3D2I3HT*M2I7J3P2I7OCO2I^/+ECT3A?N3TWH3R6 7EOS3AWG"M6J6JSR3R[YG&,"0&I2/WR7T	R2 3FA7G"J*M3ROE",&I2/?L3W>-3RWD3RJ 3LOO3K: 3UKME7R2JWGT&,"0*M3FSL2,"IL7T2J&IS	Z3ASDR*M2IGT3D& 2ISAD7R2J*I+MCP3I^IE7T"J*M3P
A7CSN.,BI*I>I3P
A3EN 3O;U3TZ +OCR3TGR3N[SE7R6JKC.,BI*I>I3SWK7LSE+OCN3C7O3M;A7DJ 3E	G3SWT3RN 7OSN7ESNS*M7N
E+C3R"I60*J>L/RK2 ;I7TKE7RCU7TN 7E[R3IWC"M6J6JOF3T;IT&,7DORT&I2/WR+ACD3SGT7TOU2 WR7GOI7TKE"M&J3C3L2 GRL&I./B4*0B03MGE+NCS+NCO7EKR7OOR.,B 6 OI2 &"3M?P3S	S3BWL2"" 3EWR"M&J3SGZ2 3CA&I6/KE7RKO"?*M2I7J3P& 6IJ(7KKE+R>I7EKR+OCR7RWO3T;I3E& 3N: 7ESX2 GPG7E2J/R7NET
,3TSA2IGP3G;CT*M6ICS7AN +NCA3CGL2IN/3HOE3KZ +OCR7LOA7TR 3R;A3SWFR*M2I7J3P& 6IJ(7K[OE7R6JRIA	D7N
EC	R2/WG7TB 3ROE7OCM3UWT3DN 3O7M3ASN2 WR7GOI7TKE2 C3A
NE7S2J*IM	S7ROK7ECT6IN/7TKA3T: 7ESX6 KT7AON7FKE2 ;A7DN +ECT+UCP3TWH2 ;O3EF 3FWT7RR 7HSA"M&J3C[I" 606JBI7OSSD	S2IV/7XSI2 ;I7TKE7RCU7TJ 7OSU3IWN* B-3I	D+SCP3S	T+LCL7EWQ7AOL2 Z"3S	T+NKT"M6J2J/R7SSEP&,"0&I2/?R3U	T+NCE+TCO3SGT+RCT+UCP7AR 3R;A3SWFR*M2IGT3DNI+R>
3ASN6 KP3E?C7MWP+TCE3TWH2 WN+XCT3OWN".*M2I3DD	C2I2/3OSA2 T7EJ 3KV82 ?C3MGM+NCD3R
E7ISSE7R6JRIA	D3ROE"M&J3DGLG&I2/?L+ACD3B?L+CCK3N7U7BKE2 ;A3D^ O*M2IGT7DBI3AOGN7T6JRIA	D/R
K.6B06I^/7EB 3ROE7OCM3UWT2 T3E: 7ESX6 KT7AON7FKE2 WB7CWA+SCE3TWH"M&J3DGC2IGP3G;C+T>I/RK3E" +ACS7AZ 7E	R2 GN3R?R7W^ 3ISN+OCW+ICN3W	HC7H2J&IS	Z3ROE6IR/3O& 7NSI7ISA7ER 7HSA6 KT7AON7FKE2 ;O+CCE3TWH2 3F+ACG7PCO7SV P6.6JNIK7P2J&IS	ZC	R2/	H+G7H3OSR+ECR3B?L+CCK3N
U7BKE2 ;I2 ?C3MGM+NCD3R
E7ISSE7R6JRIA	D3ROE"M&J3ASN.IN(*7>I+ICF+WCE3AWR2 ?N3T^ 3O;I7GR 3OF 2 WN7WR 3ROAK6,2JNI+ICA3S3T*I>I+WCE3D;O*	CT7H[A7ER 3ON 3HOE3K" 3ESA7EOR2 WN+XCT3OWP7RSA3I;O".*M/R
K.6B0.,^I.6B0"M&J3TSA2IGP3G;C+T>I+ICF7NE7TR 3R;A3SWF3R& 3S" 3A[L2 3B3O/C",*M2I;A7DJI/KZ7"0&02/WW6 WM+SCT7SSE2 T3E" 3A[L2-3B3O/C2 ?C3MGM+NCD7BSI".*M2I;S3AN L7A6JRIA	D.(B1"0606JJIT	R2I2/3I/N2 GH+SJ 3D;O*	CT3CWH+CCK3HGE7DKE2"J I7T6JJIA7R2JRIC	A7N
EC	R6/SS3OWR6 CS3E	C+ACL3C7O3M;A7DJ 3E	G3SWT3RJ 7IOT2 ?F3R: 7ESX2 	T+M;E"M&J7JCM" 	I7ROK7ECT"M&J3P
AE*M2L&/3NWT7RWR+PCT3S	K3PN 3H	A3NV 7NKTY*M2M&J7NKT+P3T.I.0"0&I2//S+ICP3CGH3I	N+NCG3GWO3S" 3EWR"M&J3D/SP*M2I7J3P& 2I;I7TCRT*M2ISC3FN +ICF7CKU6IN/+ECT+DCF3ASN2 [I2 ?C3RWR3C3TY*M2I7J3P& *I.."1*M3I	D+S3P2I
I7NKOE&I2/
I7NKO3E& 7NSI3I3A2 ;I7TKE7RCUT7S2JNI+ICF"0&I2/SI7ICS6 OI* CA7CKO7OSU3IWN2 	WT7H6JBI7OSSD	S6IR/+HCE7ROT*-B87ISN7EKR7USP6 	S3SWTM*M6MRJ3RGY+G3N2I;A+D"I.4F02IN/3HOE7KR 7ON +ECE+ICFW7E6JNI+NCA3CGL*I>I7H[A7ER 7OJ 3EGC3LKI7RSAE*M2I7J3P:I3ROEA	L2/?N"M&J3D3CR&I2/
C7EKA2 	D+SCK3SGT7TOU"M&J/ACC.0J0*I>I7MOY3TOI2 WS3QWU3NWC2 [O2 ;I7SKT7USC3I;O7S^ 3HOIH*M2IODL	R6IJ/3EGC3LKI7RSA+ECS3AR 7R[IE*M2I7J3S&I7DOI+P>I3ROE3A	L3BGR+TCE3G;E3EGR7TOE* CA3D;O3EZ 3L
A2 3A7MOO3T& 3MWM3DGI3T3EY6,6JRI+ACD+I"IC	R2/;A3DF 2 WS+ECK3D;O7EN 3I;G+ACL3WWH3N& 3T& 3SZ 3I	N3SWHD*M2I;A+D"I*6>I3TWH3R[E3OWR2 WW6 WM+SCT3EGN3BWL2 T7EN 3E/E2 ?D+NCE3S
I3N3A"M&J3TSA.IZ("0&02/?T2 WS7TR +HCE3D;O3EZ 3L
A2 ;A3DN 7AOU3EF 3N& 3NWT7RWR+P;T"M&J3DSLC&I2/?N2 ?S3OWN7RN 3ASI2 T+ACN3D;OE6!2J*IM	S3I	DS	P2/GW+ICT7FKO2 T3EZ 3IGN3LZ 3L
A"M&J7DORT*M2I3C7LJ A	L2I&/7FR +HCE3ROE3A	L3BGR+TCE3G;E3EGR3TSE2 ;A6 KE7RJ0",*M6I+S3AN L7A2J*IM	P3RWKR	R2/?B3YF +RCE7YWO2 ;I6 KT3OKU+LGE2M:J3ROE+A3L2IODL	R2IN/3LGE7RN 7TSA+UCS3R
E7ISSE7R2JWS3T[E2,RI+CCA+I"I7RKT3Y
F6IN/+ECT3FGL7GR /OB 6 KO. F-"M&J3TSA2IR(3OWNF7G2J*IM	S3I	DS	P2/	D3S	M+SCS3ASN2 ?P+SCT3EWV+NCT3FGLG*M3H3AT&,7HSL*I>I3C;A7NSO2 WG3T" 3EWR"!*M6MJJ7KKER&,7DORT&I2/WR+ACD3SGT7TOU2 WR7GOI7TKE"M&J7I+S" 	I6(KT7YSC2I"/+OCW3M;A7YR 3IWM3S" 3AWV2 WW2 WB+ECN7TKH3O
U3H" 3EWR"?*M2I7J7PRI3RGYG	N2/?R+OCM7FKO2 ;O3E6 3OWR".*M3R?K7VKE2,RI+CCA+I"I3SGT7TOU6IN/+ECT3SGT7TOU2 ?T* B0+OCR7SOT7TOU2 WR7GOI7TKE"M&J3D3CR&I2/3C7EKA2 GN7S	T2 3F7AOG2 &(3FF +N	Y"M&J3SGT*I>I3ISN3IGC+TCE3F;I+ACL7RSE3U;R"M&J7JCM2IWS3T[E2IF/+NCD7ASC3IGV+TCE
TOAK*M2M&J3G?N+R3E2IODL7R6JBI7OSSD	S2IN/3LGE3RZ 3L
A2 ;A3DR 3I7S7IOS"M&J3P
AE*M*IR$&M*J"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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