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

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

2/?P7WKE7SN 7UKB7OSU3IWN* B * B * B * B * B * B * B /OS2 ?F7RKT+ACN+ICI3LKI7RKAY*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+GCE7WSI7HWO3T: 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>J
FKO2 ;A3YV 3R?R+RCS3TGH3T6 +ACY7ACP7EKA2 ;I2 T+ICS3M;A3U3A".*M"/*M2/T7EN 7OSF7WKA3ER 3EOS3RKI+ECD+ICN3T	H3SR 7OWC3M;E3T& 3SZ 3U;R3IS+ECD+TCO3TWH6 WP3RC3AWSR*M2/;U7DKE* CA3LOI7EON3EZ +OCR3UWS2 ;O* CA3S;I3GWL2 ?C7MWP7TKE6 	S3SWT3MF +NCD3C;A2 WB2 ?C3PWID*M6/
(3IT2 ;I7CWL3S?I3N> 3FR 3I	G3T3A*	CS7CCO3Y	R7GSH2 ?N3TOI+EB)3O3N3YZ +OCR3UWS2 ;I6 WSC7H6JN/7YSS+E3M6 E7CCE3TF 3S6 +ACY3OT7E
R3IWS2 WB6 KP3O	V3DSE2 ;I6 KW3I	T+NCG+BCY3D
I3IGTL6."J6/2JR/3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?I3NF 7SWS7MOE2 ?N2 WR3S?P3N	S3B3I7I	T2 ?F7RR +HCE3UWS*M>J+OCR3R3E3IKA3I	L+TCY+OCF7IOT2 ?S7F
T3AWR2 ;O6 GE7UCI3M;E7TR 7HSA6 OI2 ?N7TN 7UCP3LWI3DJ Y*M2/	D7GSI+A;L*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J"M2J6/ZI7EOR3I;O2 ?P7WKE/SB."4*M6/ZI7EOR3I;O6 WN3MWB3R& 3SF 3V	A3LKA+LCE+ACT7ESN+RCY3P	O7NOT"M&J7ESNR	Y7ICFO	W*/B * B 7ISN3EWG7RR 3OZ 3LGO3T;I7
B 3OWWR*M2I;E7T	R2I[F7P
O*IB/* B 2 3F7OSA3I
N2 ?T2 3F7OSA3I
N2 ?P7WKE"M&J7ESNR	Y7ECX*IB/* B * CE+TCO7AB 3OWWR*M2I;E7T	R2I3AO	G*/B * B 7NSA3UGR3L2 3OGG7RSIH7M"J6/"J6/2JRI3U7M3Y2IX7P2J>I3PWD3F*I3M/S/PRI.0B0*M>J*M>J2I;I7TKE3N3A6 WS3B?R3U	T+NCE3P3O*M>J*M>J2I?C7MWP7TOE* CN7TKE+MCS+OCF3P3O3Y?N3MGI+L" +NCO3C;O3SGT+NCT7TK
M6)"J&/3N& 3NF +C: *.B.3X& 3NZ 3LGO3T;I3GF C*M2/NI3O[E3FOI3I;E+TCS3SGT+RCT+ICN3LOO3A	T+OCN3W?H+SCE3ASD7ROE3SZ 3O3L7OOW2 7J7SR 7OB O7L"J6/2J?P+L222I3B3O/C"I612J?PL&,3B?LC	K"1*M2I	CA*M2IOD7ABI/OKL"M&J3C3A/LFI6,SSO*M6IKA7G"I"M&J3TSA" 	I3P3O"M&J3ION2I?PL*M2/R
C	A3A
R"1&2/T+ICS3CSO7EB 3RKO3A3B3YV 7XKT3AWN7OOU*M>J2I/SP*M3A
R"2&,3DGC6IKA+GN1"M&J3C3A/LFI2,GFD*M3A
R"1&,3A
R6IE+S>I* B 2 F 7DKD7EOS6 SS3OWR3D" 3EWR"M&J3C3A/LFI2,7FP*M6IKA7G"I"M&J7I+S2I?PL622J*IM	P3P3O"1*M2I7J3P& 2I?PL*M3P3O"1&,3TSA6IKA+GN1"M&J3TSA.IN("M&J7JCM6IKAG62"J*M6ICC3AWG.I^1*IB/* B 2 GC+NCT3BWR+ACK+UCP3T	H7SR 3A3BE*M7EOX.,FI.4R6*I>I.7&..6"0.9J4/E&-2I?C7
SS7ASN3SZ +OCR7ECX"M&J.2R1"2*M.IR1"261.JFI.5V4*I>I.6N..5"7.2^8/E^-"M&J.2J5"5*M.IV2"265.JFI.6V2*I>I.4B..6B9.1N0/EV-"M&J.2J5"5*M.IV2"265.JFI.7R0*I>I.1&..5F3.2B5/EN-"M&J.0B0"0*M.IB0"060.JFI.7R5*I>I.6J.*57E"2*M.IB0"060.JBI.0B0"M&J3CGPG	E"3*M3OWN.,JI.0R1"M&J.0
0"0*M.IB0"0602JNI3P
A/ENI"0*M3C[O.,VI.7Z1*I>I*-:6.4N5.5R4*27E23NI7OON3T;A+TCS7FKO2 ?LG7S.JRI.6R7"M&J.1B0"6*M.I^1"4&4.IN/..B6.8R829V4"-62.JRI.7B5"M&J.6^0"3*M.I^5"5&6*I6/.9V..3&2.3B9/EJ-"M&J.0N6"6*M.IF0"662.JFI.7V6*I>I.1Z..7V6.4^0/EF-"M&J.2J7"6*M.IB6"263.JVI.7^6*I>I*-:2.4^0.3"
*07E"1*M.IV5"061.JNI.5N4"M&J.1^7"5&I*/:3.3^1.9B9*27E"1*M.IN2"660.JZI.1Z7"M&J.5^7"7&I./R-..&9.8R721V2"-61.J^I.7^6"M&J.6B0"1*M.IB2"0&7.I&/..&9.9Z924V3"-61.J^I.7^7"M&J.7R0"1*M6ICC3AWG"I636JKE*126.IB2"1&4.IF/..Z0.4&4"464.JJI.0B4"M&J.5J3"6*M6ICC3AWG"I632J;L"2&
.1V7"5&I*/:8.6R6.3&3*77E"2*M.IJ4"761.JBI.3B0"M6J*J3X2I3B3O/C"I63*J3Y2I3B3O/C"I63"J6L"J6/"J&/3A?L+G6 2 GN7TKU+ACL3L
O3A	R3T7H*M>J*M>J2I3A+OG/X6)3NF*3L
O*(&22+3A+OG+MB)3WWH+RCE.1J/6 KO6 GE3U3A2 ?T" 7M"J&/3A?L3G6(2)F=3LWT3RGN3T;I7GN 3E	R+ECS*(+K**	I*/CI3WWH+RCE/KJ=/MF-2 ;A3D6 6 OA2 KA3OWV*M>J"M&J3CGPG	E"4*M3LWGR&,.0F1"4&I*/B * B 2"3A+OKG6 KE7RKO6 SA2 ?L7C" 7XXX*M.I^1"0672J3A+O3G"I642JJI3LOO/KFI*IB/* B 2 ;
7T	R2 ?P7ISN"M&J3TSA2I3AO7G2JRIC	A3T7E"M&J3TSA2I3A+OOG"M&J3DGC2IWTM62JNI3A3L*I213IGFD*M3T7E2,FIR	G"0*M2I;I3CFI3L
O"*M2I;I3CFI3L
O"*M2IGT3DFIC	H*/B * B 7GSE6 E3P;O7ESN"M&J3SGP2 ;SA*M2I7J3P2I7GKE+R>I3L
O2 [O. 3X*=B02-V 3R?RR*M2I;A+D"I.3^7"0*M2IGT+D"I.5^7*0>I* B * 6 .2B0"0*M2IOD7ARIE	M*/B * B 3N& 3N?T2 WTM*M2IGT3DFIC	H2/^I+ECT7M^ 3IT7OSU2 	SG7N2JFIN	D"(676JRIA	D.(B2"1&0*/B * B "27M2JRIC	A3AC"M&J3C3A/LFI6,OF+B>I* B . J /MF-"M&J3A
R2I;OE*M2IGT+D"ID&8*/B * B 68R 3E7R3S> 7FN 3E	RE7S2J*IM	S3P3O"M&J3C[O"M&J3C3A/LFI6,SS+O>I* B 2 F 3L
O*(	M2 ;I+TCOY*M6IKA7G&I"M&J3TSA2IWT+M>I* B 2 ^ +ECTN*M2IGCL	L20Z,7LSO*IB/* B 2 3F7OSA6 SI"M&J3C3A/LFI2,7F+P>I* B 2 : 2 F*3L
O*(&2"M&J3A
R2I;L"2*M2IGCL	L21Z,A	D*/B * B +N* 3A?L/GJ(2)F 3L
O*(	M2(3A+OGX6)2JFIR	GY*M2IWR3T;R2I3AO	G*/B * B 3E	XT*M3LWG+R3R2IGCL	L21V,3R?RR*M6IKA3G2I7GKE"M2J*M>J*M>J6IE+P6 * CE+TCO7AB 3OWWR*M"/*M2/VI6*"*2=WS3RWI+S" +X**+I>)*(GI")*M2/&I3FJ *=+E.*F(./Z12)F +NCD3X& 3SJ 7E
T3E;E. F-2 ;A/DF 2 TE7N"J&/+B**/XF=6 WS+MA+I*)*(+X**	I2 ?F3R& 6 KF+OCM/IF=2 ?T. 7I"5*M6/^I7HKE3EF *(	I*(>12(&(*!*)*1*6**&2")*M"/*M6ICC3AWG"I646JE7PKE.,RI.5B3"M&J.2R0"0*M7ECX.,RI"M&J3B?LC	K*1>I* B 2 V 7NKT7YB 3O;IT*M2IGT3DVIX7P2JRIC	AX7T6JRIA	D7ECX"*M2IOD7
"IT62J&IN	C7ECX"*M2I;I3CVI+XOP"M&J3C3A/LFI2,[IA7D6JSX2,FIR	G"0*M2I3C3AN +LCL3CGM2 GRR*M2I;A3DFIC7H6JRIA	D.(J-.0V7"M&J3SGM2 3CA*M2IGT3DFIC7M2JNIL7L6JRIA	D.(R-.2F7*I>I7TOE3TZ +OCR7FSL+GB.+ACC.<"8".626JNI+ZCL3CGL"M&J7JCM6IE7PKER*M2IGT3DFIC7H6JNIZ7A6JRIA	D.(B
*IB/* B * +X"1662JRIC	A3AC"M&J3C3A/LFI6,SS+O>I* B 6 & .=Z1X*M6IKA7G&I"M&J3C3A/LFI2,GF+D>I* B 2 V 7XKP7EOS* CY+ACS7ISN3EWG3R: 2 ;A3DZ 3ROA3T?I3NZ "M&J3A
R"I7Y2JNI3A3L*I207FI*IB/* B 2 WG3T: "M&J3SGM"M&J3IOA"M&J3DGC2I3AO	G*/B * B 3A?L3G:="M&J3TSA2I3AO	G*/B * B 7GSE" 7F2JNII7A2JNI3A3L*I203F?LT*M2IGCL	L21Z,A7D2JFIR	GY*M2IGT+D"I*5>I* B . V 2 WT7ROM2 [O2 WS3RWIS*M2I7J7SBIO7L2JVIX7S2JNI3A3L*I213FSA*IB/* B 2 3P+U
S"1*M6IKA3G>IN7E2JNI3A3L*I213S?T*IB/* B 2 	G7VOE* +B"*7F2JFIR	GY*M2IGCL	L21Z,A	D*/B * B 7GSE" 7B2JFIR	G/EGR"6*M2IGCL	L21Z,3I?PW*M6IKA3GFI3L
O"M&J3C3A/LFI2,7F+P>I* B 2 J **"*3NZ+*)"=+B**61"62)V(6*"*")*M6IKA7G&I"M&J7RSER	N7ECX*IB/* B 6 EI7T6JE7PKER&,3C3A/LFI6,KE7RKO"M&J3A
R6IE7PKE"M&J3TSA2IOAH*M2I7S3AN L7A2JNI+LCL3CGM2 GRR*M2IOD3AFIC7H2JRIC	A3A7C"M&J3DGC2IOAL*M2IWR3T;R6IEP*M"L*M"/*M2/&I3F?P+W6 2 ;I3T
E+ECR+TCO3F?L3A	T+NCG7P
OE7R"J6/"J&/7JOU3TZ 3LGO3TJ 3AWS2 ;A3D^ 7OR 3OZ 3F?PW*M"/*M7ICF+O3W"I642JJI3LOO/KFI*IB/* B 2 ;E7T	R2 ?P7ISN"M&J3C3A/LBI2,3FO7T6JRIA	D7ICFO	W*/B * B 3F?R3MJ 3A/N"M&J3DGC2I[F7P
O*IB/* B 2 ?T6 KP3OWP3R2 3OGC3T?IN*M2IGT3D&I3F?PW&*/B/* B 6 KF+OCM3ASD7ROES*M2IOD3AZI3F?PW&* B * > +TCO3P?R7PKE2 ?LC*M2I7J3P6I+L>I* B 6 N 3NGE3K& 3N?T2 ?R3U	TN7E"J*M"/*M2/ZI3F?P+WB-3F?L3A	T+NCG+TCO3F?L3A	T+NCG7P
OE7R"J6/"J&/3IWD3N	T+TCY3UWS+D: *.B.+X**3YV=+XP3YF*3L
O*(	X")*M"/*M6ICC3AWG"I642J[F7PKE.,RI.6R1"M&J.2J0"7*M7FCF+O3W"I642JJI3LOO/KFI*IB/* B 2 ;E7T	R2 ?P7ISN2M6JL&,3TSA" 	I7FCFO	W*/B * B 7GSE2 SC7FR 3OV 3X?P3N;ET*M2IOD3A2IX7P2J&IN	C7FCF+OOW*IB/* B 2 ;I3CWR3M;E7TR 3OV 3X?P3N;E3TF 7DKD7EOS"M&J3TSA" 	I7FCFO	W*/B 
 B 7GSE6 E3P;O7ESN2 SA3DWRS7S2JRIC	A7LCX"*M2I;I3CZI3F?PW&*/B * B 3ION3R7E7ESN2 ?F3RV 7XSI"M&J3TSA" 	I7LCX*IB/* B 2 	H+GCH3OSR+ECR7WKO3D> 3FV 3X?P3N;ET*M2I;S3AN +LCA*IB/* B 6 OI6 SI2 WZR7O2J*IM	P7FCF*5>I* B 6 & +ECS*.:.2 WR3S3U/TF="M&J3TSA2IOA+H>I* B 2 J 3
WS6 OI2 ;I2 3F7OSA3I
N2 ?P7ISN2 OA"M&J3SGP"M&J7JCM2I[F7PKER*M6I+S3AN +LCA*IB/* B 2 [I2 GB+SCE7EWQ7AOL2 WZ+RCO*.:.2 WR3S3U3TV 3QGU+LCS7ZKEO*M2I7J3PZI/FGP"M&J7RSER	N7FCFO	W*/B * B 7ZKE7OJ 7EWS+LCT3E	XT*M7FCF"1&,3C3A/LFI6,SS+O>I* B 6 N 3AWV2 GBS7E2J[F+P226IKA7G"I"M&J3C3A/LFI2,3A
7G2JFIR	GX*M2IGCL	L21Z,M	P*/B * B 3Y2*+OGX6)6JLP&,3A
R"I&0*/B * B 3ASD7ROE7SN 7TKO+ECD7HKEE*M2IGCL	L61N,T7O2JFIR	GX*M2IGCL	L21V,X7P2JFIR	GX*M7FCF"6&,7RSER	N7FCFO7W2J[F+P252IGCL	L20N,3LGE+R>I* B 2 F 7NSY3H;I7GR 7O* 3E?R2 ?P7WKE6 OI" 616JRIA	D.(B2"1642JRIC	A3AC"M&J7JCM2I[FP662J[F7PKER&,3TSA.IR(.0B0"M&J3DGC2IO
H*M2IGCL	L21V,3R?RR*M6IKA3GZI3FWPR*M2I7J3PZI/FGP"M&J3ESN"M2J"ZB"B"B"B"B"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