File UTILTY.SB (8k SABR macro assembler source file)

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

"/*M2/NI7O	P3R
I+HCT.1Z9*8B,3D
I3IGT3LV 3Q	U3PWM+NCT7CKO+P2.2 GM3YGN+R3D2 GM+S;S*M>J6ISU3I	L+TCY3SKU7RWO3T;I7EB 3A/C3AWG*M>J6IZI7EOR3I;O6 SU7ISL7YZ.*0B72(GJ3NGU+RCY*7B,.1Z9"96)"J6/2JVI7NKT3Y>I3P;E*IB * B 2/;I3I	T3A	L3Z;I3GF +NCD3FGL7GN 7EST3I
N2 ?R3U	TN7E2JVI7NKT3Y^I3E	NO*M2I;E7T	R6IEI	T2IV/7XSI2 ?T2 	D+SCK3M;O3I?T7RN 7YSSE7M2JVI7NKT3YVI3R?RR*M2I;E7T	R2I/CI	O6/OU3EWL+SCS7RWO3T;IE*M6ICO3D[E6IKK/SZI.0R3"M&J3OSPE	F3KOC.IB6"3622J>I3PWD7FR 3A	D. R1"0602J>I3PWD3FR 3C	A. R3"0602J>I3PWD3F*I3M	S.IR4"06
2J>I3PWD3F* 3M	P. R5"060"J&/7CKA7DJ 3ESA+ECR7ISO"	7S2J>I3PWD7FJI3CWS.IZ6"7622J>I3PWD7FJI7CCS.IZ6"7612J>I3PWD7FJI3C[S.IZ6"3612J>I3PWD7FJI3CGR.IZ6"3622J2/3IWN6 KP7ISN+ECR7ISO"	7S2J>I3PWD3F2IL	B.6Z6"6*M6ICO3D[E6IOL/FZI.6F6"M6J2J2IA7P"J*M/U^1.,FI"7&I*/**2*6 7
SS2 WB2 	F7RSS2 ?L3C& 7NB 3AWG* **"**M2M&J7OKE.,FI.1^1"M&J.0J5"2&I2/&"7OKE2"V 3R?RR*M3G;E+I3O2I3B3O/C" &22I^/3EWN3R3A2 ;I7PSU6/WO7TWP7TJ 7OSU3IWN"M&J3DGC"I&72/GS+VCE7ESN+RCYA7C2JWG7NCL6,RIA	D"7*M6ISRL*M6ISRL*M2IGRL*M/UB2"0&,3ASN.IGU"7*M2IGT3D*I3M	PT7B2JRI
	A7DCS3AC2I&/3NWD3X* 7UCM2 GT3BWL6 	B2 WD3VOI3E: 3UKME7R6JRIA	D/UB2"0*M6IKKS*M2IGT7DVI/MB2"3*M2I;S3AN L7A2J.IS	F2IN/3HOE3KZ +OCR+^CC+OCN3T3E7E	TP7E6JOD3POAH&,7NCO*I>I+NCO+^CC2-R 7ICS3AOT7HR 3O& */CO7RWO3T;IE*M2IGCL	L20V,7XSI"M6J2J7J7PSIB&,7JCM3IRI7ESVA7B2
WD3VGTB&,7T	T7OSU"M&J7HCS7OSU"M&J7LSP7OSU"M&J3G;E7OSU"M&J7T	TI7N2J"I3S	RN*M2ISC3R;I"M&J3G;EI7N6JRI3T[YU	J2IZ/3U
D+E6 2 WS7ER 3EWL7TCY3E& 7NWP7TJ 7OSU3IWN"M&J3IWOR7R2J&I7OKER*M2I?I7EKR"M&J3IWOR7R2J&I7OKER*M2I?I7EKR"M&J3IWOR7R"J*M7HCS7OSU6,BIS7F2J*IM	P3G;EL7P6JRIA	D"7*M2I3PS*M3G;E3R;T2,NIL7A6JJI7EKT3N^I3E	NO*M6MRJ3T	YN&,3K[S"M&J7JCM2IWG7NCL"M&J3CGL2 3C3LN +MCL7RKT*I*
****7DCE3ESN3S> 3N: 3UKM+ECR+OCF7D[E3IWC+S* ****"M&J7JCM2IWG7NCL6IR/7ESS2 ?F7R: 3C> +NCE7LOA7TR 3IWM"M6J6JOH3R;I6,JIS7F2J*IM	P3G;EL7P6JJI+RCB3ROF"M&J7JCM2IWG7NSRN6"J*M/UKM*023.IJ-"0632JSC3R;I6,RIA	D7CKDC7T6JNI+NCA3CGL"M&J7JCM2ISC7RN+T>I7N
E2 GC+RCD3NOE7EOS7A	R"M&J7I+S2ISC7RSC2IF/3DGV3NWC2 ?T2 WN+XCT3C3O3U;M"M&J7JCM2ISC3RWGT*M2IGT3DNI/DKR"1&52/?N2 ?M+RCE6-N 3ESN* CA7CKA3RGI+GCE7RSE3U;R"M&J7JCM2IWG7NSRN6"J*M7CKD7NSX6,JI3CWS"M&J7JCM2IWG7NCL2IN/3HOE3KZ +OCR+^CC3W	H+LCE3W	A3T;I3GZ +OCR7NE3TN 3A
R2MNJ7DSR+S3T2IORS7P2J*IM	P7CKD3C3O2I:/+OCT3ESN2 [O2 GC+RCD7YSE"M&J3TSA2ISC7RSC2IV/+NCD+OCF7CKA+D6 2 WS7TV 3PZ +OCR7ESX3ROA3T?I3N> 3FN 7HKAS*M2I7CA*M2IOD3ANI3D3RE7N2J*IM	P3G;EL	P2/C3E/C2 ?F7R: 3CF 3G	AN*M7CKD3C3O6,JI3C[S*I>I7A	N3T	H+NCG7YSE"?*M2I7J3PNI7DS
S	T2/WK+ECP3L?O3K;IG*M2IORR	A6IJ/3ESA6 SI"M&J3C3L2 GRR*M2IGT7DBI7CKDT7B2J*I+MCS7IBI7CKDG	C2/WG7TR 3A3B3EV 7NKT+YB,7FKO3C;I3GR 3AGT2 	F3ESL6 WC3RWRN7T2JRIC	A7CKD3L;E6IN/3AWV6 SI2 WT3M?P7RKA7I	L"M&J3TSA2ISC7RSC"M&J3CGI"M&J3C3L2 GRR*M2IGT3DNI/DGR"0&02/;I7DE2
GT3BWL6 SA2 ?L/CF .0B1"0*M2IOD3ARI3SGPC7H.JZI.2F1*I>I3C[D. B1"M&J3TSA2ISC3RWLN*M6I+SL&I2/W3IC2 GH/L?F"M&J7JCM2ISC7NKO+T>I3R
I+HCT3H3AF*M6ISRL*M6ISRL*M6ISRL*M2I/SP*M3C;D7OSR6,RI3A	D6IOD3POA+H>I3ASD6 E7ISS3I
N2 WL+FCT3H3AF*M2IODA	I7DCS3AC6IN/3AWV6 CU7DSA+ECD7ESNR7Y2JNI+LCA3CGM"M&J3TSA2ISC7RSC"M&J3DGC2ISC7RSC6IV/3PGD+TCE3C3O3U;M2 ?P7ISNE7R2J*IM	P7CKD3C3O"M6J2JSC3RWGT&,3TSA2ISC7RSC"M&J3TSA2ISC3RWL+N>I7FKO3MN 7HKA2 ?P7ISN+ECR7ISN7OR 3A3B3EF /TF .0B1"0*M2I3C7LJ A
R6JRIA	D7CKD.1B0"M&J.6F2"1*M2I7JS	I3PSC3ROG+H>I3ISN+ECX3TKA+LCE3ASN6 WP+LCL7OSU2 C+ACR2([D.=B1")*M2IGT3DNI/DKR"4&02/C3A
N7ER 3OF 3S	CI*M2I7J3P^I7EKN+TON6IJ/7EWTR7N2JOP3D
RC&,7CKD3GC*I>I3UWS7DR 3OZ 3OOR3ER 3FN=7UKR7ESN2 W+ECN3NOE7EOS7A	R"M6J2JSC/RF2"5&,.2V12MNJ/DGR*020.IB1"0*M7CKD.2B4.,JI"4602JOP7DSRB&,7CKD3T3B*I>I3C;O7VKE3S?I3NZ 3R7O2 GC+RCD3CSO7ER 3OF 3S	C/IJ-"4602JSC7RSC.,BI2MNJ3D3R+E3N"I60"J*M2IGPG7E6JVL.3^7.,NI"7&72I6
7USS2 WB2 	F7RSS2 ?L3C& 7NR 7HOI2 GPG7E2JWG3N;I.,ZI.2F0"M&J3TSA3I&I3HSNL7R6JNI+NCA3CGL*I>I3OWP3N& 7NWP3TZ 3IWL"?*M2I7J3P&I7OKE+R>IN7O.JZI.2J0"M&J7JOM" 	I3FOI7HKA2I^/+ECT3AN 7HKA"M&J7JCM2I?I7EKR2I&/7NWP3TV 3R?RR*M/UKU*0202I;A7DVI.3^72M^J3R;T"2&,7RSER	N3G;E
7O"J*M3G;E7OSU.,ZI.2F0"M&J3TSA3I>I3HSNL7R6JNI+NCA3CGL*I>I3OWP3N> 7UCT+UCT3F3IE6?2J*IM	P3IWOR	R2/?N"M&J.6B2"2*M2IGT/D^I2I^/+ECT3CGH7RR 3OJ 3E> 7UCTU7T2JFIN	D/U^3"7*M2I7J3S& 2I?F3CGH+R>I7PSU* CA3CGH3ROA7TKE"M&J7JCM2I?I7EKR2I>/7UCT+UCT7EKRO7R2J*IM	P7GSRN62"J
M3I;H7DKL.,FI"2&2*I*/2*F*+LCL3TWH+SCE3LOO3A	T7OON6 KA7EZ 7E	R2 ?V7LSA3IWL*!B!****2MZJ3IC+A3R.IB6"6&I*/******"*6*2JO3N3DR&,.1F2*I>I********"**M3FOO7HKA.,ZI"5&1*I*/********************"*6*"J*M"/*M2/&I7NSI3I3A3I	Z+NCG3SKU7RWO3T;I3EN 3A3L+ECD+BCY7FKO3TGRN*M2/
I3LGE+RCS3F?L3A	T+NCG+ACC3ASN2 WS+TCS3FGLG7S"J6/6JCO+E3N2I3B3O/C"I626JRIA	D.(F2"2*M2I3T+S>I7PSU2 	L+N7E3FWE3D> 7NR T7Y2J2IL	B2/;I3I	T3A	L+ZCE7LSP"M&J3KOC2IN/3LGE3R. 3EKY7OKA3DZ 3L
A2 F(+NCD+A	C"M&J7POL"M&J3ROF"M&J3C3A/LBI2,3C7EKA"M&J.6B2"1*M2IODA	I3I;H7DKL"M&J3DGC3I>I3HSNL	R6I*/3E?R2 WD3VOI3E&-3NWD3P;E3D;E3T& 3OZ 3L
AS*M2IWR3T;R6ICOE7N"J*M2M2J3P?T+U3T6IOLF*M2I7J3P^I3E3NP*M2IGT/D^I"M&J7I+S2I[P3SOTH*M2I7J3P:I7OOFT*M2IGT+D"I.-J1"6&22/?L+OCK7FKO2 ?C7NKT+OCL3CGH+RCS+ICN3P	R+NCT7POO3I	T+OCN"1*M2I3C3L& A7C2J&IA7C6JNIN7L2J*IM	P3DGCC7H2JNI+LCL3R3A"M&J3TSA.IJ("1622J?N7FSS2,2IL
B6JRIA	D.(F-.2J12MRJ3COAH&,3SGN2 3CA&I2/[I2 	L+NCE3FWED*M2I7CA&I2/WS+TJ 7FKI+SCT3CGH+RB"3S	W3TC2 ;O"M&J3DGC2I[P3SOTH*M2I7J3P^I3R;T"2*M7POF3TC*,6I"1*M6MRJ3T[Y+U3J2IGT7DVI/UB2"0*M6IKKS*M2IOD/A^I6IN/3AWV2 WK3Y?B3ASR2 CA7R2J.IC	C2IN/3LGE3RZ 3L
A"M&J3TSA"I676JRIA	D.(J-"1626JNI+ZCA3CGL"M&J7JOM6I	TP7E6JRIA	D"7*M2IGT+D"I.-F2"5*M6I+S3AN L7A2J*IM	P7TKYT7N2JNI+LCA3C3L2 7C7AJ T7L2J*IM	S7TCYE*M7TKY+T3N2IGT/D^I"M&J7JCM6IKG/TKN6IJ/7EWT+RCN7WSI3HN 7HKA2 ;I2 OA"M6J6J	T+P3E"I606JRIA	D"7*M7TCY7ECL6,RIS7F2J*IM
P7TCY7ECL"M&J7TOL"M&J3CGL"M&J7JCM7IRI3YWP"M6J6JST7YWOT&,7JOM6I	TP7E2J*IM	P7GSRN62"J*M3IWO+R3R2IGCL	L21V,3R?RR*M6IKA3G&I7OKE"M6J2JSC3RKTL&,.0J0.1J;.2N2.;R2.2.5.2J6"7*M.IB3.3.1.3B2.3R;.0^0.;V3"062.JJI.0^1.;N6.6.4.6Z5.6Z;.7B7"M&J.7^1.2^;.5R1.;V0.7.7.3N6"7*M.
V1.5.2.5V3.2.4.5V5.6V;.7B6"M&J.6Z1.2B;.1R0.;J1.1.1.3^3"4*M.IZ0.4.1.4R2.3R;.4V4.;Z4"467.JVI.0F5.;N7.1.6.3F4.0F;.3Z7"M6J6JBI3AWG"M2J6MBJ7MOEG&,7MOEG*M7MOEG&,.7^7"7*M.I^7"767.JRI.0V0"M&J.2J2"2*M.I^1"262.JRI.0F0"M&J.2R4"0*M.IR1"167.JBI.3B42M2J/I
T.,BI.0^0"M6J6JKE7RKO2,JI3LOO/KJ *I>I7EKR+OCR3P?R7COE7SKO6MVJ.7B6"0&,.7B6"0*M2IGT3DVI3R?RR*M2IOD7ARI/EGM6MRJ/EGM2,:IO	P6IN/+ECT7DSA3AZ 3I3E3D> +FJ 3C3A3LV 3R?RR6"6JRI3A	D6IKE7RKO"*M2IOD7ARI/EOM"M&J3ION6IKE7RKO"*M/EB62,NI+LCA3CGM2 7C+L>I3C3M6 OI2 	W3N?D3WR
7ROE3S;IG*M2IGTD	I7EKR+OOR"M&J3DGC.IB1"M&J3ION6IKE7RKO"*M3T7E"3&,7NCO*I>I7DSA3AZ 3I3E3D> 3F6 7EOS3AWG2&;E7T	R2 ?P7ISN"M&J3DGC2I/CI	O2/WZ+RCO2"GF3T3A6 KE7RKO2"Z 3L
A"M&J3TSA/IFI"0*M2IGRL*M6I+SL&I2/?N3NZ-3AGT3LJ +ICT/O?N"M&J7I+S2I/CI	O2/WY+S6 2 WS+TJ 7FSA+ACL3FGL+GB"+TCO3N;O2-GF3T3A"M&J3C3L2 GRR&I6/SS7RCI2 ?N3NZ-3AGT3LJ +ICT3F?R3M6 7EOS3AWG"M&J3DGC2IWMS7G6JRI3A	D.IB16IN/3E?C+NCD7WKO3D> 3F6 7EOS3AWG"M&J3DGC2IWM+SOG"M&
3TSA/IFI"0*M2IOD7ARI/EGM"M&J3TSA/IFI"0*M2IOD7ARI/EOM2IN/3A3L3I
N2 SA3DWRS7S6JRIA	D3PWMS7G2JRIC	A3T7E"2*M2MVJ7RCL6,RI+ACD7IRI/EKM"M&J7RKT"M&J7RKT"M&J7RKT"M&J7JOM6IKP26	BT*M2IGT3D& 2IWTM622J*IM	S/P[R7BSI"M&J3ION2IWTM622J*IM	P3E3RP*M6MBJ3R?LC&,3TSA2IWTM616JJIT7R6JJIT7R2J*IM	S7ESRT	Y6/KP7ISN2 GC3L	L+NCG3FWIL7D6JRIA	D.(R-
M&J3DGC2IWTM626JWN7MCL6,RIA	D3T7E"3*M6ISRL*M2IGRL*M2IOD7ARI/EOM"M&J3TSA2IWTM632J*IM	S7ESRT7Y2J&IS	Z3T7E"2*M2I7J3P:I3U3MP*M2IGT+D"I.2V1"M&J3DGC"I672J*IM	S7TCYE*M2I3C3AN +LCL3CGM6 SRL*M2I7J7SRI3YWP"M&J3TSA2I/CI	O2/WG7TR +HCE7FSA+ACL7EKR+OCR3FGLG*M2I;S3AN L	
6I^/3HSA7D
O3E?D"?6?2J*IM	P3E	XT7X6JJI7EKT3NVI3R?R+R>I+HCE7S	A3S& +TCS3N;O2-GF3T3A* B-7LSE2 	H3M" 3ASN+LCEI7T"J*M7ESR+T3Y"I&02/	D7GSI6 KP7ISN3I
N2 ?R3U	TN7E6JJIA7L2JFIN	D7LSI"7*M2IGT3DVI"6602J*IM	S/P[R7BSI"M&J7JCM" 	I7ESRT7Y"J*M/P[R7BSI.,BI*I>I26	B7TR /O" 7BSI2 ?C3NWV3R?TR*M2I;A+D"I"7676JNIN7A2J*IM	P3P3RO	C2/WM3SGS+GCE3OWVR*M2IGT+D"I.7R7"0*M6ICSA*M2IGT+D"I.1B0"M&J3TSA.IJ("4602JNI3A3L*I203G;EI	O2/
L+OCK7FKO2 O^2 W3IWL6 	T3P;IG*M2I7J3P& 6IKP26	BT*M*M>J*M>J3E	X7TR 3OR 3I/S2 ?M7NSI+OCR7SOY3T7E*M>J2MVJ7XSI2,JI3LOO/KJI2MVJ7XSIX&,3C3A/LBI2,/CI7O.JZI.2N0"M&J7JCM7IVI.7B6*0>I7RSE3U;R2 ?T2 ?M7NSIO7R"J*M3C	KO&,"0*M3T7E"2&,*0>I3D7U+MCY3SKU7RWO3T;I7ER 7O^ 7ASI2
?F3R& */CO3C7O3PWLT7E2J/C3W	AT&,.6R0"1*M2I7J3PNI3KGWI7T6JJI7EKT3NNI3K?I"M6J2JSC3ROGH&,*0>I7GSE* CA3CGH3RZ 3R7O* CA3POA3KSE2 GT3BWL"M&J3DGC2IWTM&22/?W+RCD7PKT2 ;I2 OA2,2 7ESF2/	R7GSH6 
S2 ;I2 	LN7K6JRI3A	D2IWTM&26/KP3EWS3RWV2 ;E7T	R2 	F3ESL"M&J3S3Z"M&J7JCM2ISC3R;A+D>I3R
I+HCT3H3AF*M6ISRR*M6ISRR*M6ISRR*M7CKD3ASN2,FIN	D7CKD"7672J*I+MCP3IN 3D
RC	H2/WR3S?T+RCE7CKU3R;E3TZ 3I3E3DF +NCD7GSE6 WOT*M7CKD*727.I^7"M6J2JVIN7D&J*L

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