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

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

6/SU3I	L+TCY3SKU7RWO3T;I7EB 3A/C3AWG* B * B * B * B * B /OS2 ?F7RKT+ACN+ICI3LKI7RKAY*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2/?C7PKY3IG+TB *(	C. F .9R7.,&1*7B7+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	H3S6 7AWN+A;L*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/6JV/3T3I7I	T6 WS3B?R3U	T+NCE3POA3K
A+EB * B * B * B * B 6 OO28Z 7OSR3R;A2 	I2 	L3BGRR7Y*J>L2IWV3R	S+OCN21F02 F(3P	R/LJ *8B,.1^9"76)"J&/7VKE3S?I3N: 3UKM+ECR+ICS3AGV3IGL3BWL6 SA2 ;E7T	R2 ?P7ISNS*M"/*M2I;E7T	R6ICOE	N* B * > 3I	N3TGI7L+I3I
N2 ;A3DZ 3L
A2 WS3T	T+NCG7RWO3T;IE*M2I;E7T	R2IWG3N?I"M&J7ESNR	Y3E	XT&I6/E+ICT+TCO7DOI3K6 3O	N7TKO6 	S3SWTM*M2I;E7T	R6IKE7RKO"M&J7ESNR	Y3C	K+O>I3UWS7LOE7SJ 7OSU3IWN"M&J3OSPE	F7KOR.IB6"3642J>I3PWD3F.IC	C.6N0"2*M6ICO3D[E2 GT+DCI.1B4"0*M6ICO3D[E2 OD+ACI.3B4"0*M6ICO3D[E2I
JS	I.4B4"0*M6ICO3D[E2 7J+PCI.5B4"0*M2/NI3ASR2 WR3AWD3R& +O
TS*M6ICO3D[E2IORS	E.6^6"2*M6ICO3D[E2IORS	P.6^6"1*M6ICO3D[E2IORS	F.6N6"1*M6ICO3D[E2IORR	A.6N6"2*M2/	L+NCE3P	R3NWT3R& +O
TS*M6ICO3D[E2I3L/BZI.6Z6"M&J3OSPE	F3L[S.IZ6"661"J*M2IGLP*M6MVJ*127.I^1*I>I****6 WM+SCT+BCE7FKI+SCT3LOO2 ;I2 GP+GCE****"M6J2J?I+E3R.IF1"167.JBI.5J2*I>I2"?I+EKR6 KE7RKO2M^J3E	NO&,3B?LC	K"1*M.IB1"I&I2/WG7NKE+ACL7ICN+U?T7OSU7PSU2 ?R3U	TN7E2JRIC	A*7>I7S[A3EV 7
KT3YF C*M3G;E+L3P2IGT/D^I"M&J3R3T"M&J3R3T"M&J3R3A6MVJ.2B02,FIN	D/U^1"M&J3TSA2I7J7PSIB*M2IOD3ARI3SGPC	H2/;I7DE6 WJ+MCP3TKA+LCE+BCY7D[E3IWC6 WN3MWBR*M2IGT7DVI.2B0"M&J7KOR"M&J3TSA2I7U.2N0"M&J3SGN2 3CA*M6IOKF&I2/C3E/C2 ?F7R: 3C> 7NR 3EWL7TCYE*M7DCS3AC2,:IO	P2
:/7O: +C6 2 	D3SGP3TC2 ?T* ?I7OJ 7OSU3IWN"M&J3C3A/LBI6,EI7T"J*M7JCM3IKT2,*I3M	P2IWD3VGTB*M7D[E3TKA6,RI3T?YU7T2J"I3S?PU7T2J2I3P?TU7T2J^I3E?NU7T6JRI3T	YN*M6IOH3R;I"M&J7CKDI7N2J^I3E	NN*M6IST7YWFJ&I6/WF3DWG* B-3SWE2 WT7LSE3YWP2 ;I7PSU2 ?R3U	TN7E2J&I7OKER*M2I?
7EKR"M&J3IWOR7R2J&I7OKER*M2I?I7EKR"M&J3IWOR7R2J&I7OKER*M2M"J3S?P+U3T6IOPF*M2I7J3P^I3E3NP*M2IGT/D^I"M&J7POL2M^J7EKN+T3N2I3CA*M2IWR3T;R2IWG3N?I"M6J6JST3Y;I2,.IS7F2J*IM	P3G;EL7P2JNI+LCA3C3L2 7C7LJ T	R*/**2*R*3EWP7NOD2 ;O6 WN3MWB3R> 3FR 3E	V7COE* **"*6*2J*IM	
3G;EL	P2/WT+SCT7FKO2 O^2 ;O3E2 7ASS2 	TM7E"J*M7HKS+I3N6IOI7ZRI"1*M2I7J3P"I7SORF*M2IGT7DVI.3Z36IR/3IWM6 WO7TB-3R;I+T^ ^6	6JRIL7S2J3HP&,3K[S"M&J7JCM2I3HP*M2I;A7DVI.2B02I^/+ECT.2B02 ;I+TCO+ACC"M&J7KOR*I>I3RGE7DR +HCE3CGHR6.6JRIA	D/UKM"0636JNIZ	A3CGL2I&/3S& 3
N 7OSN3R3O. ?C"M&J3KOC*I>I+N7O3CWL+ACR3FGLG*M2I[RC&I6/OU+ECR7TCY+E7D3TOI3KWL2 SR3RZ-3A3L2 T+RCU3ROF2M"J7SORF&,3R[S"M&J7JCM2IWG7NCL"M&J3DGC.IGT"M&J3RKR2 [RC*M2I7J3P^I7EKN+TON6MVJ.3Z3.,NI"366.JGT.,BI"M6J2J7U.2N0*,6I.2N06MBJ7CKD+G3C2ISC3ROGH&I6/OU+ECD+TCO7FK
+CCE/D7F7CKU3R;E7T^ 3H;E2 WN7COE7SKAY*M7CKD.2V1.,JI"1652JSC/RB1"0&,.1B02MNJ/DKR*420.IR2"0*M3PSC3RKT2,NI7DSRB	L2IN/7O[N7EOR3I;O6 KF+OCM7CKA3DN 3OWD2 ?T6 OA3C	I.-R2"0*M7CKD+C3T"I602JSC3RWLN&,"0*M7CKD+I3N2IGT3DNI3DORT*M2I;S3AN L7A2J*IM	P7CKD7NSX2I:/+ECW7CKA3
: 3EWC3SGSR7Y2J&IS	Z7CKDC	T2/SA3V;A+CCE+TCO7NE3TN 7OWLM7N2J*IM	P7CKD7GSE"M&J3TSA2ISC/RF2*5>I+NCO7MKO+E6 2 WS+NCD3AN 7AKR3I
A7EJ 7EWTR7N2J*IM	P3G;E3R;T"*M2MNJ3DWR+S3T6IOKF*M2I7J3PNI7DSRS7T2J.IC7C2JSC7RNT&,7ROCE*M2I7J3P^I3E3N+P>I3CWH+CCK7FKO2 O^2 W3IWL2 GW3I	T+NCG7FKO2 WN+XCT7CKAD*M7CKD7TSS6,JI7CCS"M&J7JCM2ISC3R?C+L>I7NSO2 ;E3D> 3FN 3ASR2 WYT*M2IGT3DNI3DOR+T>I3ESN2 [O2 GC+RCD6-
 +ECT+UCP7FKO6 E3TGR3C	T+OCN+OCF3CGHR7S2JNII7A2JRIC	A7CKD3L;E2MNJ3D
R+E3T2IGT3DNI3DORT*M2IGT3DNI3D3RE	N2/?F+RCM3CGH7RB 3O;I7TKE2 ;I+TCO3TKA+LCE+ACT.1F0"0602JNI+LCL7RKA"M&J3TSA2ISC/RB1"0*M.IJ6"1612J*I3M	S2IOP3D
RC	H2/;I7DE2 GT3BWL2 ;A7DB 3U3L6 WO3TN 7HKA2 R(/FF="06)6JRIA	D7CKD.2B42IN/3H;A+GCE+TCO3AOSI7I2J*IM	P3G;E3R;T*>I7RSE3U;R2MNJ3DOR+O3L2IORS	F2IF/7NSY3H;I7G& /E?T"M&J7JCM2ISC7ROE+T>I3KWE3P2 3O/O3I
N"M&J7RKCA&I2/WR+ACDI7T2JNI+LCL7RKA"M&J3TSA2IOP7DSRB*M2I7J3S& 2IOP3D
R+C>I7GSE2 GT3BWL2 ;E7T	R2,Z 3OOR3I
N2 GD+TCA3FWI+LCD7CKU3R;ET*M2IOD3ANI3D3RE	N2/GS+VCE+ICT3T7E7PKO3A	RL7Y6JRIA	D7CKDC7T2JNII7A2JNI+LCL7RKA"M&J3TSA2ISC/RB1*0>I3ISN+ECX3TKA+LCE+ACT3LOO. B1.1B0"M&J3DGC6IOD3POAH*M.IJ6"1&12IN/+DCF"1606JRIA	D7CKD3L;E"M&J3S3Z*I>I3W	H+CCH3H3AF6?2J*IM	P3C;D7OSR6IJ/
IG3T" 3A[L"M&J3R3T"M&J3R3T"M&J3R3T"M&J7SCK2MNJ3D?N+R3T2IGTD	I7DCS3AC2IF/+DCD3E	X3S	T+NCG3L[E3T" 3A[L"M&J3DGC3IRI3SGPC	H2/GS+VCE3USP3AWT3DV 7NKTY*M2I3C3AN M7A6JRIA	D7CKDC7T2JRIC	A7CKDC	T6/CU7DSA3EN 7OWL+MCN3P	O3NWTR*M2I7J3PNI3DORO7L"J*M"M&J3P
AE*M.LOU*727.I^3"7&I6/WM+SCT+BCE7FKI+SCT3LOO2 ;I2 T+ICS3P
AE*M3G;E+I3N.IJ6"0616JRI3A	D2II3N3DR*M2I;S3AN L	A2I>/3P;E2 ;I7PSU2 	F/L?E"M&J7JCM2I?I7EKR2I:/O*M.IJ6"0622J*I+MCS3IZI3ICA	R2/WG3TF 2 CA7R2J*IM	P3IWOR	R2/;I7PSU6 KE7RKO6MVJ/UB2"0&,3ASN.IOU"7676JKG/TKN6,JI7EKT3N^I3E	NO*M2M^J3E?N+U3T.IJ6"0616JRI3A	D2IO3N3DR*M
I;S3AN L	A2I>/3P;E6 WO7TWP3TZ 3IWL"?*M2I7J3P&I7OKE+R>IN7O.JZI.2J0"M&J3TSA"I&72/WG3TN 7HKA2 ?T2 WB6 WO7TWPT*M2I;A7DVI.3^7"M&J7JOM" 	I3FOO7HKA6IB/+UCT3AN 7HKA7ASCE7R2J*IM	P3IWOR	R6/WO7TWP3TV 3R?RR*M2I7J3P^I3R;T"2*M2M&J3HSN+L3R.IJ1"2&I*/**2*3A7LR 7HOE3E2 3OG
3T?I+NCS3AWR2 WV+RCY3V3O3A	T+LGE*!* "*6*2J	F3CGHR&,.6Z0*I>I********"**M3O;H7DKL.,FI"2&1*I*/********2MZJ3OC+A3R.IV6"1&I*/**********************"**M*M>J*M>J2I;I3I	T3A	L3Z;I7GN 7UKB7OSU3IWN2 GC3LWL3DJ 3YZ 7OSR3R;A*M>J2I3C7EKA3SZ 3LGO3T;I3GF 3CF +NCD7SSE3SZ 3

AS*M"/*M3OWPN&,3B?LC	K"1*M.IB1"M&J3TSA.IJ("1626JRIL	S6/WP3T2 3IWN2-WF+ECD+OCN7T	T"M&J3LKL2I&/7NSI3I3A3IWZ6 CLT*M2IOK+C>I3CWL+ACR7K	E3BGO+RCD3FGL+G" 3ASN2 OA")*M2I3PS*M2I[RC*M2IGCL	L20N,3LGER*M.IJ6"0612JRI3C	A2II3N3DR*M2IODA	I3O;H7DKL*I>I7ZKE3OR 3E	V+C7E3I
N3EWP3NWD+NCT+ICO3FGLG7S6JJI7EKT3N>I3P;E"M6J"J*M7LSP7OSU2,2IS7F2J*IM	P3G;EL7P6JRIA	D"7*M6IOI7ZBI7FSSC7H2J*IM	P3N[OS7T6JRIA	D.(F-.2J62I2/3O/O2 ?F3RN 7OSN3R3O2 C7AOR2 ;I6 KP7ISN2 ?P7SSI3I;O" 612JNI+LCL3IOA"M&J3IOA"M&J3S3N"M&J7JCM2IOD3AC"M&J3C3L2 GRL*M2IGT+D
I.2J12M:J7OOFT&,3LKL"M&J3TSA*I6(.1F2"2*M3DGC+C3H2I;S3AN L	A2I&/3F2 3IWN2 WFE7D2JNIM	A6IN/+ECT2"	F7RSS2 C+AKR6 
S3IOT3H> N*M2IOD7ABI7FSSC7H2J*IM	P7GSRN622J[P3SOTH&,"-61"J*M7T	T3F+U6,RIA	D/UKU"0602J.IR7S2JRIC	A*7>I7S[A3E. 3EKY7OKA3DN 7HKA"M&J3KOC*I>I3CWL+ACR3FGLG*M2IGT/D^I"M&J3TSA*I6(.2J1"M&J3SGZ2 3CA*M2I7J7SRI3YWP"M&J3TSA"I676JRIA	D.(J-"1656JNI+ZCA3CGL"M&J7JCM6I	T3
;T"M&J3CGL2 3C3LN +MCA3R3T"M&J7JOM6I	TP7E6J	T3R;T6,RIA	D"7*M2I7J3P^I3R;T*2>I7RSE3U;R2 	W+TCH3CGH3R& 3NF C*M6MRJ3YWP.,BI"M&J3TSA"I676J	T3P3EP&,3T[S"M&J7JCM6I	T3P3EP*M2I3TS*M2I3CA*M2I7JP	I7TCYE*M6MRJ3T?Y+U3T2I7J7SRI3YWP"M&J7JCM6IKG/TKN"M6J2J?I7EKR2,NI3A3L*I
17EKRO7R2JFIR	G3IWOR*M2MNJ7DSR+B3L.IB0.2.1.2J2.3J;.4V2.;Z2"267.JNI.0F3.;J3.0.3.4B0.7N;.5J0"M&J.2F0.7Z;.3R6.;V6.6.6.6^7"0*M.IF7.7.2.7F5.4B;.5^7.;Z3"367.JFI.5J5.;N5.5.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.
F4.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/KFI"M&J"1&0*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 	
3N?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/KFI"M&J"1606JE7IT2,NI3A3L*I203C	KO*M.IJ6"0632J*I3M	P.I
U.6B06IJ/7EWT+RCN+TCO3M;O3I?TR*M2MNJ3K?I.,BI6MRJ/EKM.,FI*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 ;I
 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