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/*J*/****6*BI3AOT3HSE* >8.3^/*1B.2(GP3TC* B3LKI*8" +P?S*8B)*2B,7MKA+CCH.1^9*1&.*M>J*M>J*M>J*I******3MSO3I	F
ECD7VKE3S?I+N" .5N/.1^/*2*)****"**M"/*M6/JI7OSU3IWN6 E+ICT7HOA2 WB+ECN3CGH3NWG7DR 3O* 7UCM2 ?T. Z7*0B5+ICN3FWI+LCD"06."J&/3T	H3SN 7AOU+ECS3TWH6 KP7OKG+ACM+TCO3E	X7T^ 3IT7OSU2 GS3V;I3GN 3OWR".*M6/RI7HOU6 SI2 GC3NV 7XSI2 	W+TCH7D[E3IWC6 	S7S^ 7RSI3E2-3O/C+E
D*M>J*M>J"M&J7ESNR	Y3OWP+NBI* B 2 &/7NSI3I3A3I	Z+NCG3ASN2 3F+ACG7SSE3T;I7GJ 7OSU3IWN"M&J7ESNR	Y3G;EI7O2JVI7NKT3YVI7XSI*I>I3E	X7TR 3OR 3I/S2 ?M7NSI+OCR7SOY3T7E"M&J7ESNR	Y7EKRO7R2JVI7NKT3YNI3K?I6IV/3S3E7EOS2 ?R3U	TN7E2J>I3PWD3F.IR	S.6N0"4*M6ICO3D[E2IOK/CZI.
J3"M&J3OSP+ECF3TSA/IF .4B0"M&J3OSP+ECF3DGC/IN .4B0"M&J3OSPE	F7JOM/IRI.4B0"M&J3OSP+ECF7JCM/IV .4B0*M>J2IGC+RCD3RGE7DKE2 ?I7TN	"M&J3OSPE	F7ROC/EZI.6J7"M&J3OSPE	F7ROC/PZI.6F7"M&J3OSPE	F7ROC/FZI.6F3"M&J3OSPE	F7RKC/AZI.6J3*M>J3L;I7EB 3R;I7TKE2 ?I7TN	"M&J3OSPE	
3LKL.IZ6"6662J>I3PWD3F2IS	F.6Z6"1*M"M&J7LCA"M6J.JGU"7&,"1&7*I*/**B*7MOU3TJ 3EZ 7IOR3T2 +OCC+ICN3P
A+E* "*6*"J*M3IWOR&,.1F1"7*M.IV0"2&2*IJ/3IWO+RB"7EKRO7R2JWG3N?I2,JI3LOO/KJ *I>I3G;E3EGR3L& 7NWP3T>/7UCT+UCT7RWO3T;IE*M2IOD/A^I6IN/3AWV2 ;E7T	R2 OA2M^J3E3NP&,3TSA"I676JJIT7L6JJIT7L6JJIA7L.JKU*0202I;A7DVI"1676JRIA	D7JCM3IKT"M&J3DGC6IOD3POA+H>I3ISN+ECX3J7U7P
 3A3B3EJ 3YR 3E	V+CCE3N7U7BKE"M&J3TSA.IKU"0602J.IR7S6JRIA	D/UKM"0636JNI+NCA3CGL"M&J3K[S*I>I3CWH+CCK7FKO2 O^2 ;O2 WT7LSE3YWP2MRJ3SGP+C3H2I?NP&I2/?N2 O^* B-7DOI7PSA+CCH+TCO3I>/2 ?R3U	TN7E2JNI3A3L*I203E	XT*M2M*J3M	P+T3B2I7JP	I7D[E3TKA2MRJ7ESV+A3B6IST7YWOT*M6
OH7PWOT*M6ICL7TWOT*M2IWG7NWOT*M6IST3Y;I"M&J7HKSI7N2JNI3D	RN*M2IWG3N;I"M&J7T	T3F+U*I>I3FSU+GCE6-N +ECE3T3E7E	T+PCE7ICN+UCT7RWO3T;IE*M2I?I7EKR"M&J3IWOR7R2J&I7OKER*M2I?I7EKR"M&J3IWOR7R2J&I7OKER*M2I?I7EKR"M6J6JOH7PWOT&,3P[S"M&J7JCM2IWG7NCL"M&J3TSA"I676JBIL7S2
WG7NSRN&,3CGL"M&J7RSER	N3G;EI7O"J*M7T	T+I3N6IOKF*M2I7J3P^I3E3NP*M2I3C3AN +LCL3C3M6 SR+R>I****2*WD3P;E+DCS+OCN3N7U7BKE2 [O2 WD3VOI+ECS****"**M2I7J3P^I3E3N+P>I7TOE3TZ +OCR+^CC3OWN2 GL+SCT3T7IE*M2M"J3S	RN&,3R[S"M&J7JCM2IWG7NCL"M&J3RKR2 [RC*M2I7J3P^I7EKN+TON"
6J2J7U.2N0*,6I.2N02MNJ3D	RN&,3TSA2ISC7RSC"M&J3SGN2 3CA*M2I7J3PNI3D;RX	T2/WN3WN 3ASR2 WN7COE7SKAY*M6IOI3ZNI3DOR+T>I7A[D3AON7ER 3O: 7ESX2 ?C3L7UN*M2I7J3PNI3D
RE7T6JRIA	D7CKD.2V12I:/3O6 3OWR* B-3S;E3DF 2 GC3R	R3AWG2 WR7TKUN*M2I7J3P^I7EKN+TON"M6J2JSC7RNT&,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>I3ES
2 [O2 GC+RCD6-N +ECT+UCP7FKO6 E3TGR3C	T+OCN+OCF3CGHR7S2JNII7A2JRIC	A7CKD3L;E"M&J7JCM2ISC3RWG+T>I3CWH+CCK7FKO2 O^2 
A3A;I2MNJ3DWR+S3T6IOKF*M2I7J3PNI7DSRS7T2J.IC7C2J*IM	P7CKD7NSX2MNJ3DOR+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*M7CKD7GSE6,RIA	D7CKDC
T6JRIA	D7CKD3L;E2IZ/3O7R2 C+ACR3P	O3NWT3R& 3N?T2 GT3BWL6 SA. B1.1B0"M&J3C3L2 GRR*M2IGT3DNI/DGR"060.JZI.2F1"M&J7JOM7IBI7CKD3GC2I&/3NWD7XR 3A3B3EF +NCD3P3U3L> +UCT3CGH+R" /D7F*1&0"M&J3TSA2ISC/RR2*0>I3CGH3NWG2 ?T6 OA3C	I"M&J7JCM2IWG7NSRN&2/WR7TKUN*M3PSC3ROG2
NI3D
RC	H6IV/3SSE2 ?T2 ?F3RWC2 [D6=WC3RWR+NCT3WWH3N: 3EWC3SGSR7Y"J*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*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"2*M2IGT+D"I.2J1"M&J7TOL6IB/+UCT3L;I3EZ-3ESE2 ;O6 STY*M2I3L+B>I3I	N3TGI7L+I3E2 P7T2J.IC	C2/3C7EKA2 WK3Y?B3ASR2 3F+ACG2(;A3DF C6)6JBIL7S6JJIF7C2JNI3A3L*I203CWLA7R.JZI.2F0"M&J3DGC3I&I3HSNL7R2JRI3C	A2IO3N3DR&I2/WZ+RCO7D[E3IWC2-;I7DCE3ES
7ESN2 ?I2 3F7AOG"M&J7RSER	N3OWPN*M"M6J6JCL7TWOT&,3L[S"M&J7JCM2IWG7NCL"M&J3TSA"I672J&IS	Z7POF3TC"M&J7JCM2I?N7FSS"M&J3TSA*I6(.1Z2*2>I3L?O3KZ +OCR3C;O3T?R3LN 7HKA3S& 7NB 3R;I7TB 3O	S3T?I/NF "M&J3C3L2 GIC*M2IGIC*M2I;SL*M2I7J3PRI3COAH*M2I3C7LJ A7L6JRIA	D.(F2"2
M3N[O+S3T2I3LB*M2IGT+D"I.-J1"1622JOD3AC6,NI+NCA3CGL*I>I+ICF3L;I3EZ 3ESE"M&J3CGM*I>I7SSE2 Z"7IOR3TN 7HKA6"N 7WSI+CCHO7N2JRIC	A7POF3TC"M&J7JCM6IKG/TKN6MBJ7FSS+C3H.IF-"M6J6JST7YWFJ&,3TSA6IWU.2B0"M&J7KOR"M&J3DGC"I&72/GS+VCE7K	E3BGO+RCD3CGHR*M2IOKC&I2/3C7EKA2 
FA7G6JRIA	D"7*M2IGT+D"I.-F2"2*M6I+S3AN L7A2J*IM	S7TCYE*M2IGT/D^I"M&J3TSA*I6(.2V1"M&J3SGZ2 3CA*M2I7J7PRI7YSRN*M2I3C3AN +LCL3CGM6 SRL*M2I7J7SRI3YWP6MRJ7YSRN&,3TSA"I672J*IM	P7GSRN&22/WR7TKU7N^ 3IT2 C+ACR+ICNA7C"J*M7TCYE&,"0*M2IGT/D^I6MRJ3YWP+L3P6IOTF*M2I7J7P
I3YWPL7P6JRIL7S2JNIL7A2J*I3M	P6I	TP7E"J*M7T	T7OSU2,*IM	S7TCYE*M2I7J3P^I3R;T"2*M2M&J7OKER&,3C3A/LFI6,KE7RKO"M&J3A
R2I?IE7R"J*M7CKD3T3B.,BI.0F2.;J2.2.3.2J4.5J;.6^2"M&J.3N0.1N;.2N0.;B4.0.7.3B5"2*M.IB2.1.7.6Z3.4Z;.5Z6.;^6"760.J^I.1J7.;V7.1.4.0^5.7N;.6^3"M&J.1V5.2V;.3R5.;V5.5.6.5Z7"0*M.IF6.6.2.0B1.4F;.2F1.;N3"764.JBI.6F4.;J4.4.3.4R4.5R;.6^4"M&J.5V0.1^;.3Z1.;R3.1.0.1^3"6*
"M&J3P
AE*M"L*M3PWM+S3G2IWMS7G2JWM+S3G.I^7"767.J^I.7^7"M&J.4B0"5*M.IJ2"262.JFI.7J2"M&J.4B0"1*M.IR2"460.JFI.4^1"M&J.0R3"0*M7LSI"7&,.0B0"7*M2MVJ3R?RR&,3B?L+CCK"2&I6/KE7RKO6 KP3OWC3S?SR*M/UZ7*020.IZ7"0606JRIA	D7EKRO7R2JRIC	A3T7E"1*M3T7E"1&,7NCO*I>I7SSE2 GD+TCA3FWI+
CD+OCF2"GC+LCL7EKR+OKR"M&J3TSA3IVI3R?RR62JRIC	A3T7E"3*M2I;I3CVI3R?RR6.J[E"0&,3CGL2 7C3AN M	L2/7C3L& 7S^ 3ISN+OCW3DWR3S	SN7G6JRI3A	D6IKE7RKO"*M2IOD/AFI"0*M2I;I3CVI3R?RR62JWT+M232I?NP&I2/GD+TCA3FWI+LCD+OCF7MOE3S
A3EV&7NKT7YB 3O;IT*M2IOD3ANI3K?I6I*/3E?R2 Z"3AGT3LV 3R?R+RB"3FGLG*M2IGTD	I"1606JJIA7L6JNIZ	L2I:/+O7N7FSA+ACL7BSI2 ;O"?*M6IOI3ZNI3K?I6I&/+ECS6-N +ECT2"GF3T3A2 3F+AKG2 ?T2 ?N3NZ-3AGTL*M2I3C7LJ A	R6IN/3T	R3P: +O7N7FSA+ACL7BSI6 KF+OCM7MOE3S
AE*M2IOD3A6I3E
S"M&J3TSA/IFI*0>I3SOE3OSN2 ?W+RCD+OCF7MOE3S
AE*M2IOD3A6I3E
S"*M2IGTD	I"1602JRIC	A3T7E"1*M2IGTD	I"1602JRIC	A3T7E*3>I3C3A3L;I3GF 7DKD7EOS"M&J3TSA2I7P3E
S"M&J3DGC2IWTM62"J*M3E3RP&,3TSA" 	I3T7E"2*M6ISRR*M6ISRR*M6ISRR*M2I7J7SBI3RJ6I7T6JRI+ACD7IRI/EKM"M&J7JOM6IKP26	BT*M2I;I7CRI/EKM"M&J7JCM6IKEL7P"J*M3P3R+O3C2IGT7DRI/EGM"M&J7RKT"M&J7RKT"M&J7JOM6IKE7T	T6IB/3R;I3TN 3A3L3I
N2 	F3ESL"M&J3TSA*I6("4*M2IOD7ARI/EKM2M:J3U3MP&,3TSA2IWTM636JJIT7L6JJIA7L2JRIC	A3T7E"3*M2IGT7DRI/EOM"M&J7JOM6IKE7T	T"M&J7I+S2IWTM622J*IM	P3N7UL7P6JRIA	D.(F2"5*M2IOD/A^I"M&J7JOM6I	TP7E2JNI+LCA3C3L2 7C7AJ T7L2J*IM	S7TCYE*M2IGT3DNI3K?I2I^/+ECT3TWH2 GF3T3A6 K
7RKO2 3FA7G6JNI+NCA3CGL*I>I3WGH3D?D3WSE/O>?"M&J7JCM6IE7IT"M&J7RSER	N7EKRO	R2/WH2 GS+YCS7IOT2 ?N3NZ-3AGT+L6 2 WL3T" +ICM3H;A3DWL6 SI"M6J6JKE7T	T.,BI2IR/3I	G7TB 3R;I3T;I7GJ 7OSU3IWN"M&J3R3A"M&J3ASN2I	LT676JRIA	D/EB6"M&J7JOM6IKP26	BT*M2I7J3P& 6IKE7T	T"M6J6JK
26	BT&,"0&I2/J6+ICT+TCO28	B3TN 7O[N7ESRO7R2JFIN	D.(^7"M&J3SGN"M&J7JCM6IKP3LOO2I6/7EOS3AWG6 [OE7R6JRIA	D.(^7"4606JNIP7A6JRIA	D.(B1"0*M2IGT+D"I.2B4"M&J3C3A/LBI2,WG3N?I2I2/3O/O2 ?F7R: 7C^ 3H3I7ER 3Y	PN7G2J*I+MCP7IBI3RJ6I7T"J*M"/*M6/E+ICT+TCO7DOI3K6 3O	N7TKO6
	S3SWTM*M"/*M3E	XT&,3B?LC	K"2*M3E	X+T3X2IGCL	L20N,3K?I"M&J.6B2"3*M2I7JP	I/UZ7"0&5*/**2*?M3D[I3IGC3T?I+N****" 3DWO+S
N7TN 3AWV2 ?C+R	E6MVJ.7B6"5&,.7B6"5&I*/**2*?M3D[I3IGC3T?I+N**"**M2MNJ3K?I.,BI6MRJ/EKM.,BI2IR/3U7M7YN 7UKB7OSU3IWN2 ?T2 GW+ICT7FKO* ?I3ON 7OCM7LSEE*M7C
K7ASI.,ZI.0F4"M&J7JCM2I/C3W	AT*M2IWR3T;R2I/CI7O"J*M7CKD3GC.,BI2I^/+ECT3AN 7HKA6 KF+OCM7AB 3A/C+ECD3TKAL7E2JRIC	A3T7E*2>I7WKO7DB +TCR+ICN+A3C2 WL+F?T3R
I+HCT+SCW+ICN3L;IK*M2IGTD	I3T7E*2>I3PWR7SKE+VCE7ESN+RCY3FWIL7D6JNIZ7L2J*IM	P7CKD3ASN6IJ/3IG3T" 3A[L"M&J7RKT"M&J7RKT"M&J7RKT2MNJ3DGR+N3D2I;A3DNI/D
R"7*M2I7J3P& 2 SC3ROG+H>I7ROE7TKO3EN 7UKR7ESN2 	F3ESL2 ;A3D^ +ECT7OSU2MNJ/D
R"7&,"767"J*M2I;ED*MBLBZ

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