File KL8ASR.PA (PAL assembler source file)

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

*/B3/KL7AN 7E[R3IWC2 ?R3U	TN	E2IZI+OCR7ROT*/B83VJ2*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J7CCO3Y	R7GSH* " +CB). &1*7B6+BCY3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	TO7N"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/6JR/+HCE3I[N3O7R3A	T+OCN+ICN3T	H3SR 7OWC3M;E3T& 7SN 3U+B7ESC2 ?T2 C3A
N7E^ 3IT7OSU2 ?N3TOIE*M2/;A7DN 7HWO+LCD7NSO2 WB2 ?C7NSS3RWU3DF 3SF 2 ?C3M	M3TWM+NCT+BCY3D
I3IGT3LV 3Q	U3PWMN7T2JN/7OCR3OGR3T?I+NB.2 	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O6 OA3S7U+ECS+NCO7ROE3P;O3SKI3I	LT7Y2JZ/+OCR7A	N6 KE7RKO7SR 7HSA2 GM3YF 3PWP+ACR+ICN3T	H3SR 7OWC3M;ET6."J6/6JR/+HCE3S[O3TGW+RCE7DOE3C	R3BSE2 ;I2 T+ICS3DOO3UWM+NCT+ICS7FKU7NOI3H
E2 ?T2 T7EB 3UOR7HOAE7R6JV/3NWD3RF 2 	L3C;E+SCE7FKO6 OU3E> 3NF 2 	S3N3G3EN 7OCM3UWT7RN 7YSS+ECM3ASN2 GC3NJ 3EN 3O	PE7D*J"/7WSI3H& 3N3C3U	S+OCN+OCF3D
I3IGT7LN	2 ?C7PKY3IG3T: 3O	T+C	E2 ;O+LCY7FKO6 OU3E& 7NN 3UC*M>J7SOY3T7E2,V 3XWC+PCT+ACS7M	A6 SO7HKE7WOI3EJ 7EB 7R[O3IWD3D& 7N^ 7RSI3I
N6 	B2 	D7GSI+A;L*M>J*M>J3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	T+OCN7AOS3UWM3S: 7OJ 7ECS7OON3I	B7LSI3YZ +OCR3TWH6 OUE*M6/KO2 WR3LGI3B3I7I	T2 [O6 SI7SN 7OSF7WKA3E> 3NV 3Q	U3PWM+NCT3TGH3T& 3S: +OCT7SCU3P	L+ECDB7Y2JR/3I	G3T3A".*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"L&/3O	R3G;I3A3L7Y^ 
RSI3T;E6 	B2 	R3CGH+RCD7LKA+Y" 7LSA/EF .9V7")*M*M>J2IC3A
N+ECS+BCY+SB.3RKA3I?N7WSIZ6:"J*M./JI68N-+E7P"7&63B?R3K;E6 WO3T> 3FV 3XOE*M>J"I&I3ASD+ECD3M3U7TCI+LCE/KL7AN 7UCP7OSR*M>J.IR12-WD/C^-26FI3DWD3DF 2 SC7FR 3OZ +ICX3AJ U7G"J*M*M>J2 3K*8CA7SKE3VOI3E6 7OWDL7E6JR/7HOI6 OI2 ?N3TF 2 GT+SCK6-J 3AT+ECR+ICT+ICS3A6 7OW
+LCE3W	H+CCH3A3L7OOW*M>J3ISN3EWP3NWD+NCT7TOA+KCS+TCO3C;O3NOE7TR 3OF 2 	L+NCE+OCF3TWH2 3K*8CAA7S2JF/6 OP3ESU3O.-3L*8".*M*M>J****************************************************"**M"/*M2/:I3O2 3IWT3R3A7SB 3E7R7IST+EGD*M>J*M>J********************************
*******************"**M*M>J3C;O3NOE7TJ 7OSU3IWN* B-3C3A3LSE2 	VA*M*M>J2ISC3FN U7R"J&/3C[I" 60"J&/3I[O*M>J2IGT+D"I/KL3A	L3N;E3UKM7E;R"4*M2/*I+MCS+I"I/KL7ASC*M>J2IWK3Y?B3ASR2 ;I7TKE7RCU7TJ 7OSU3IWN*M>J6IKP7ISN+ECR7ISN7EKR7USP2 ?R3U	TN7E*J>L2I3K*8CA7ISO2 WD3
;I3I	T7OON"M6J2J&I3FSN+ECF/KL/A2 3N/O3LF82,W
3R?R/R;
"M&J7I+F3E?R2 3K*8CA2<3K60KE7R>,7EKR7O?R">*M2I[I3NWD3F.I3LF8D	V2<3K28SA/VR="06>2J&I3FSNE	F3KSLV&22<3K/DKV2=3K28SA/VJ+">*M2I[I3NWD3F.I7L[D.32I3KSL/V63/KL7A[D.+:4"M&J7KWL3D.=3LF8*->1.3K^"0&02/GC3NZ +ICT23F 3D	D3T;O+ACL/KL7AN	2 WP7RB 3AWG"M&J3I;F3D[E2 3K28OA
T2 /KL7ASC.=R7*0607KWLD6>"J*M3M	SE&=/KL7A[D/^B1.+B6"0606JOM/A7B2I3K28SA/VG^.0Z+.0F02M6J3SSR2=.I3LF87D;V*1.0.6B0"5*M3MOST&=/KL7A[D/^B1.+B6"0666JOM/C7D2I3K28SA/VG^.0Z+.0B12M6J3SKL2=.I3LF87D;V*1.0.6F0"2*M2I[I7ZKE3O. 3LF8*-Z2.4B0.02 2M6J3SWI"2&=3KSL7V:2*1.0.6
0"0*M3MGS/B622I3K/DKV/^B1.+B6"0616JOM/RKD2=.I7L[D.2G^.0Z+.0V02M6J7SSC"2&=3KSL7V:2*1.0.6B0"6*M3MOS/D622I3K/DKV/^B1.+B6"1606JOM/LKB2=.I7L[D.2G^.0Z+.0J1"M&J">*M2I[I7ZKE3O. 3LF8*-Z3.4B0.02 2M6J3SWI"3&=3KSL7V:3*1.0.6B0"0*M3MGS/B632I3K/DOV/^B1.+B6"0616JOM/ROD2=
I7L[D.3G^.0Z+.0V02M6J7SSC"3&=3KSL7V:3*1.0.6B0"6*M3MOS/D632I3K/DOV/^B1.+B6"1606JOM/LOB2=.I7L[D.3G^.0Z+.0J1"M&J">*M"M&J/KL3LOO.=V42I6/3A	G3C2 3OGC3T?I3N& 3NV 3XOE2 W3IC2 ?P7ISN7SR 3O& 3NWT7RWRP7T"J&I6IN/7KCI2 C3A;I2 ?F3R. 3LF8"M2J2I.*3LF8C	T2I6/7USS2 WB2 ;I
 	F3ESL* 206 OU3U3A+LCY+ACT.7B4"0*M2M.J3LF8+C3T"I602J*IM	P3A?R3USN2I*/7UCM6 KA3O;U7DB 3OWW3RZ 3A3I2 ?R3U	TN7E"J*M/KL3A[P.,BI*I>I/KL7AB 3OWW3RZ 3A3I2 ?R3U	T+NCE2-6 7USS2 WB6 SA2 3K28OA/TJ+"M&J3R[D"M&J3TSA2I3K3C	DF*M2IOD3A.I3L[PR	T2/GS+VCE7RSE3U;R2 	F3ESL"M
J7JOM2I3K3I	N+T>I3I	N3TGI7L+I3E& +NCT3EGN3BWL3SF +NCD3VOE7TKO2 SA3DWRS7S2J3K7PKFT&,7HSL*I>I7ROE7TKO7EJ 7EWT+RCN3FWI7LOD"M&J7JCM" 	I/KL3A[P"M2J3A?R3USN6,RIA	D3PKK20SC+F>I3ISN+ECX7ISN3OR 7ICS3AOT7HR 3A3BE*M2IOD7ANI7TKOP*M2ISRF*M2IGT3D.I3LSCI7F2JRIC	A/KL7ASR
IN/7TKO7EJ 7EWT+RCN3C[D2 	CF*M2IGT3D& 2I3K28OA+T>I3POI7KV 3PF 7RWG3M;ET7S2JRIC	A7IKN2I^/+ECT7ICN+UCT3ASD7ROES*M6IOI3Z.I3LF8C	T2/?P7ISN2 ?T2 WS3C;O3DF 7RWG3M;ET*M2IGT3D& 2I3K28OA+T>I7GSE6 WO7TWP3TF 7DKD7EOS"M&J3DGC6IWOT	R2/GS+VCE3TWH3M& 3NF 7PKP7OKP7ISA7EN
7PSOS*M6IOI3Z.I3LF8C	T2/?P7ISN2 ?T2 WR7TKU3N2 3OGC3T?IN*M2I7J3S.I3L;II	T2/;I3I	T3A	L+ZCE3TWH2 3K"87A2JRIC	A..F-2I>/7N	L2 ;O+CGE"M&J3C[D"I&06/WB3GZ I7X2J*IM	S3KOL3O;M2I^/+ECT7ICN+UCT3ASD7ROES*M7IKN.,BI"M&J3TSA6ISS7OCR2I^/+ECT3S?T+RCE3ASD7ROES*M2IGT3DRII7F2
RIC	A3S?TR	P6/WB+MCP+TCO7OSU7PSU2 GT3BWL"M&J7JOM2I3K3C7O+N>I7GSE6 WO7TWP3TF 7DKD7EOS2M>J7UKT.,BI2M.J3LF8+R3T2I3HT*M2I?IN&I6/WT+RCN7ISN7EKR7USP3SJ 3A/C2 ;O"M&J7JCM" 	I/KL7ASC6IJ/7EWTR7N"J*M3PKK20SC3F.,+B.0"1*M3D[I6,RI+T60/KCB"-642J.L3L?C+M3N"I606JRI+ACD3I.
3L?CM	N2/WG3T& 7NWP3T& 3NWT7RWR+PCT7RWO3T;I3EF D7R2JNIM7A6JNIN	A*I6/216 3E;A3S2 7E[A3E& 3TF 3L;OE*M2I7J3P2I3V7KN*M2I7CA*M6I+S3AN L	A6I*/3E?R2 WM7AON2 	D3SKA+LCE3T	H7SN 3IWD2 [O2 T+ICS3L;IE*M2IGT3D.I3LF8R	T2/WG3TN +DCF3C[I"M&J7JOM6ISS3OWR6IN/7TKO3EN +DCF3C
I6 KO" 606JRI+ACD3I.I3L?CM	N2/WG3TF 7DKD7EOS2 
A3A;I"M&J3SGN"M&J3TSA2I	P3G?NR	E2/[I2 WZ+RCO3SKU3S	T7TSU7ER 3H?R7W
A+ACY7RWO3T;IE*M2I7J7SNI7TKOE*M2I/SP*M3L/V+M3N2IGT3D2I*4>I7FI+UCP6	SS7OCR2	F 7SR 7HOI2 ?R3U	T+NCE7NKO3M3A+LCY7WWOL7D6JRIA	D3S?TR7P2JRIC	A3S?TR7P2J&IS	Z3KOL3O;M6IN/7KCI6 KA3G7U7ESN"M&J7JCM" 	I3KOL3O;M6IJ/7EWTR7N2J.L3L;I+I3T"I&02I./3LF82 ;I3I	T3A	L+ZCE7RWO3
;IE*M6IOMC	D2I&/7NSI3I3A3IWZ2 T3E. 3LF8"M&J3CGL2 GIC*M6IOMI	E2IV/3NKA+LCE7ISN7EKR7USPS*M2I3CA*M2IGT7DBI3KGLD612J6I3SKL*I>I3ASN2 ?L+ACD/KL3AJ 3R;A+CCH3P	O3NWTR*M2I3CA*M2I[I7ZKE3O. 3LF8*-Z2.4B0.02 "M&J3MOSD&22I&/7NSI3I3A3IWZ2 T3E. 3LF8"M&J3CGL2 GIC*M6IOM/IK
*I>I3EGN3BWL2 ;I7TKE7RCUT7S2JNIL7A6JRIA	D3P3K/AKD"M&J3M3SB&22IF/+NCD3LGO3D. 3LF86 KB3AON7HB 3O;I7TKE"M&J3CGL"M&J">*M2I[I7ZKE3O. 3LF8*-Z3.4B0.02 "M&J3MOSD&32I&/7NSI3I3A3IWZ2 T3E. 3LF8"M&J3CGL2 GIC*M6IOM/IOE*I>I3EGN3BWL2 ;I7TKE7RCUT7S2JNIL7A6JRIA	D3P3K/AOD"
&J3M3SB&32IF/+NCD3LGO3D. 3LF86 KB3AON7HB 3O;I7TKE"M&J3CGL"M&J">*M3KOL3D[I2,NI+ICF3C[D" 606JRIA	D7POM/AGB2I^/+ECT/KL3A& 3NWT7RWR+PCT7DOI7PSA+CCH7ION7TWR3C	TO7N2JRI+CCA3I.I3L28O	C6/SS3OWR6 SI2 ;I2 T7EJ /TS6 EE7C2J&I3FWZ+RCO/KL/AJ-.&B4*0B0"<*M2IGT3D.I3L28O	C
/WG3TF 7DKD7EOS2 [O2 	F7RSS2 	D3SGP3TC2 ?LC*M2IGIC&I6/WB+MCP+BCY3OWN"M&J3DGC2I3K3T7E6IN/3AWV6 SI"M&J3TSA2I7P3SKA"2*M2IOD3A& 2I3K3T7E6IN/7TKO3E: 7ESX2 ;OE*M"I6>2J&I3FWZ+RCO/KL/AN-.&B4*0B0"<*M6IOI3Z.I3LWT+M>I3B7U3P> +NCE3AGGI7N6JRIA	D7POM/AOB"M&J3DGC" 	I7KS
E	M6/SS3OWR6 SI2 ?TO*M"I6>2J*I+MCP3I.I3L;II7T6JBL3I;G3OWR2,
I7NKOE*M3P3K/AGD2,.I3LSAR612J7P3SKA"1&,3MGSB*M2I[I7ZKE3O. 3LF8*-Z2.4B0.02 6MBJ3KGL+D222I3K7AKD"2*M7POM/AKB2,6I3SKA"2*M7KSL+E3M"I60.J:I"M&J7I+F3E?R2 3K*87A.3R&.0B0" 6<2J/P3LSA"3&,3KGL/DOR6MBJ3MGS+B236IOM/AOB"M&J">*M+L24"I64"J*M3S?T+R3E"I&06IJ/7OSU3IWN2 ?T6
SS3OWR2 ;I+TCO7DOI7PSA+CCH3TKA7LOE"M&J3DGC" 	I3S?TR7P2J&IS	Z3S?TR7P2J&IS	Z3S?TR7P2J*I+MCP7INI7TKOE*M6MNJ7TKOP&,/KCB"+61"J*M3I;G3OWR2,NIL	A2I6/3AWK6 WS+RCE+ACC3CWL+AGR"M&J7POO7TOD*I>I7DOI7MOI3S& 3NWT7RWRP7T*J>L2I3K*8CA7HKA3DGW+RCE7DOI7PSA+CCH3TKAL7E"J*M*I:
.&^7*7.0"1&06/WM+SCT+BCE+OCN68^ 3OSR2 ?B3USN7A	R"!*M2M.J3LSA+R212I7J7PRIT602J*IM	P/TGT"M&J7JCM6IST"2*M2I7J7PRIT632J*IM	P/KCB"M&J7JCM2IKK"1*M2I7J3P.IB622J*IM	P/KOB"M&J7I+F3E?R2 3K*87A.2R&.0B0" 6<2J3K7AKD"2&,7JCM6IST"0622J*IM	P/TGT"2*M2I7J7PRI/TJ2"M&J7JCM6I
T"3622J*IM	P/KCB"2*M2I7J3P.I/BJ1"M&J7JCM2IKK"2622J*IM	P/KOB"2*M"I6>2J&I3FWZ+RCO/KL/AN-.&B4*0B0"<*M3KGL/DOR2,*IM	P/TCT"3*M2I7J7PRI/TN1"M&J7JCM6IST"2632J*IM	P/TOT"3*M2I7J3P.I/BN0"M&J7JCM2IKK"1632J*IM	P/KKB"3*M2I7J3P.I/BN3"M&J">*M2L./3LF82 ;I7D[I7IWD+ACL7DOI
PSA+CCH7RWO3T;I+ECS2-6 7USS2 3A3LJ /ER 2 SW3S2 3O
N"!*M6/WM+SCT3SGT+RCT+ACT+ACN3EWV3NF 7DKD7EOS"M6J2JKK"0&,7MKSD&I2/WR+ACD3CGH3RZ 3R7O2 	SL7O2JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/KGB2,6I3SSR"M&J3C[D2 	C/FB "M&J7JCM" 	I..F+"M&J3I;G3OWR"M6J2JKK"2&,7MKSD*M2ISC3FN +ICF"0*M2I7J3P& *I.."1*M2I
I7NKOE*M2M.J+B236IOMR7D2JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/TCT2,NIL7A2JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/TGT2,NIL7A2JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/TKT2,NIL7A2JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/TOT2,NIL7A
JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M2I[I7ZKE3O. 3LF8*-Z2.4B0.02 2M.J/BJ02,6I3SSR"2&I2/WR+ACD3CGH3RZ 3R7O2 	SL7O2JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/KGB"2&,7MKSD622JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/KKB"2&,7MKSD622JNI+DCF3C
I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/KOB"2&,7MKSD622JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/TCT"2&,3CGL"M&J3C[D2 	C/FB "M&J7JCM" 	I..F+"M&J3I;G3OWR"M6J6JST*1222I3CA*M2ISC3FN +ICF"0*M2I7J3P& *I.."1*M2I
I7NKOE*M6MRJ/TJ22,NIL7A2JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/TOT"2&,3CGL"M&J3C[D2 	C/FB "M&J7JCM" 	I..F+"M&J3I;G3OWR"M&J">*M"M&J7I+F3E?R2 3K*87A.3R&.0B0" 6<2JKK*0236IOM/ROD*I>I3RGE3DN 7HKA6 KF+OCM3S3IO*M2ISC3FN +ICF"0*M2I7J3P& *I.."1*M2I
I7NKOE*M2M.J/BN12,6I3SSR"3*M2ISC3FN +ICF"0*M2I7J3P& *I.."1*M2I
I7NKOE*M2M.J/BN22,6I3SSR"3*M2ISC3FN +ICF"0*M2I7J3P& *I.."1*M2I
I7NKOE*M2M.J/BN32,6I3SSR"3*M2ISC3FN +ICF"0*M2I7J3P& *I.."1*M2I
I7NKOE*M6MRJ/TN02,NIL7A2JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E"J*M/TGT"3&,3CGL"M&J3C[D2 	C/FB "M&J7JCM" 	I..F+"M&J3I;G3OWR"M6J6JST*2232I3CA*M2ISC3FN +ICF"0*M2I7J3P& *I.."1*M2I
I7NKOE*M6MRJ/TN32,NIL7A2JNI+DCF3C[I" 602J*I+MCP+I:I"+612J&I3G?NR7E.J:I"M&J7I+F3E?R* Z..7B6.0^-.6B02 "<3I7T+O3N7
KE7RKO
&>6/[O3E[R7L
O+ECD7ISN3O> /S"/"M&J3P
AE*M"LBZ"B"B"B"B"B"B"B"B"B"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