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 .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/"J6/*J>L2IWV3R	S+OCN"57A"J&/7VKE3S?I3N: 3UKM+ECR+ICS3AGV3IGL3BWL6 SA2 ;E7T	R2 ?P7ISNS*M2I;E7T	R2I[I7P
O*IB/* B 2 ;I3T
E+ECR+TCO3F?L3A	T+NCG7P
OE7R2JVI7NKT3YZI3F?P+W>I* B 2 Z 3LGO3T;I7GR 3OZ 3LGO3T;I7GB 3OWWR*M2I;E7T	R6IE+P>I* B 2 V 2 ?T* CA7P
OE7R2JVI7NKT3YFI3L
O*IB/* B 2 GN7TKU+ACL3L
O3A	R3T7H*M>J*M>J"M&J3D7UM	Y7LCX"M&J3OSPE	F7JOMK	P.4B0"0*M"/*M2/&I3NWT3RGN7LN 7UKB7OSU3IWN2 ?PL*M"/*M2/NI7OCM3UWT3S: 2 WT7ROM2 [O2 ?P3L;Y3O	M+ACL2(?N2 ?C7NSS7ASN2 WT+R	M*M>J*ICN+ICN+ACC*.:.* CX+ICN3F?L3A	T+NCGA7C"J&/3CWO3F	F3CWI7NOT6 SS7ASR2 ;I2 ?L7CSA3I;
2 W3OWS2 SA3DWR+SCS3F3O7L
O3S* +MCS+TCO3P3O*M>J6MBJ/OKL2,JI3LOO/KFI6MBJ+O3L2I3B3O/C"I612JNII7A2JRIC	A3P3O"2*M2IGCL	L61N,T7O2JFIR	GX*M2IGT3D& 2I?PL*M2I;I7CBIO7L"J&/3DGC6IKA+GN16IR/7HOI2 ?C+DCE3P?R3BKA+LCY7ESX3R;A7EWOS*M6/NIK7P6JKA+G222IOD3AFI/RGG"*M2IGCL	L21Z,A7D6JKA+G216IKA3GVIX	S
/B * B 3ASD7ROE7SN 7TKO+ECD7HKEE*M2IGCL	L21Z,M7P2JFIR	GX*M6IOI7ZBI/OKL"M&J7JCM2I?PL612J*I+MCP7IBIO7L2J?P+L212IGT3DFI/RGG"*M2IGT+D"I"3*M2I7J3PFI/RKG"M6J2JNI3P
A/EFI*7>I* B 2 N 7ASN6 KB3E/A6 CU2 T+ICS3TKAL7E6JES&,.1Z4"4&I*/:7.9B6.8R9*27E29NI7OON3T;A+TCS7FKO6 EP*M.IF2"462.JFI.4F2"M&J.1R5"5&I*/:6.3^5.8"2*77E"7*M.IV2"265.JJI.5V2"M&J.1J6"5&I*/:4.0&6.0B1*37E"5*M.IV2"265.JJI.5V2"M&J.1B7"4&I*/:1.9N5.1V2*07E"3*M.IB0"060
JBI.0B0"M&J.1V7"4&I*/:622V5"-62.JBI.0B0"M&J.0B0"0*M6ICC3AWG"I632J;OE&,.2F0"4*M.IB0"060.JBI.0B0"M&J3CGPG	E"3602J?CF&,.5F7"6&I./Z-..V4.3R524V2"-&33C;O3SGT7NOT2 ?F3R2 7OOG"M&J.4^6"4*M.IB1"066.JFI.7R4*I>I.3Z..0"8.4R9/EJ-"M&J.4V7"0*M.IB6"763.JVI.7Z5*I>I*-:9.5J
.9&3*07E"2*M.IZ0"366.JBI.1J6"M&J.1Z7"5&I*/:1.6Z7.5B4*77E"1*M.I^2"266.JZI.0N2"M&J.5Z7"7&I./J-..B4.7N328V0"-61.JVI.5F0"M&J.3R5"3*M.I^1"7&5.IN/..F3.7&920V2"-61.JJI.3B6"M&J.6^1"6*M.I^5"7&7*I6/.4&..9^8.4J1/EF-"M&J.7Z7"7*M.IB6"061.JJI.0^0*I>I.9&..9&9.6N4/EF-"M&
.7^7"7*M.IB7"4612JNI3P
A/ENI2MVJ/RZ1.,JI.0R1*I>I.1B..6R4.9R4"M&J.2R0"0*M.IN5"2662JNI3P
A/ENI2M2J+N22.I^1"5&5.I"/..Z6.4N329V7"-62.JRI.2F7"M&J.0B3"0*M6M"J2,JI3LOO/KNI6M&J2,JI3LOO/KNI"M2J*M>J*M>J2I3A+OCG2-: 7AWT3R3A2 ?L7GKA3ITM*M"/*M2/FI3L
O*(	X*=+N3A?L/GJ(2)F+3L
O*(	M2 W3EWR* >122> 3RV 3QGU7LR 3O6 *M>J2I3A+OG/M6)7ASL3E;R3A	T+NCG7SKE7IOE2 .(2*&*2)&/2 W3EWR. 7K*27M21F +NCD3MF 3SF 7B[OE*M"/*M6ICC3AWG"I642J
L+E3R.IF0"1&4*IB/* B 2 F"3L
O2"V 3R?R3RF 3T2 +OCC7XXX7X.JFI.7^02MFJ3L
O2,JI3LOO/KFI"M&J"5&I*/B * B 7ESN+RCY3P	ON7T6JRIA	D3A?LG*M2IOD7ARIE7M6JRIA	D3A?LG62JRIC	A3T7E"*M2IGCL	L21&,3FSA6MRJ+E3M6IKA/GBI"M&J3ION2I3A+OOG"M&J3ION2I3A+OOG"M&J3TSA2IOA+H>I* B 2 ^ +ECT7ECX3OWNN7T6JNI+PCA3SGN"M&J7JCM2I
L7EKR2I2/+OCG+OCF/X6<*06 6 KE7RKO"M&J3ASN.IN(.7B7"M&J3TSA.IV(.7B7*IB/* B . J-.0B0"M&J3DGC2IWT+M>I* B 2 : 2 ;I+TCO3T7E"M&J3TSA2IOA+H>I2IWG3T6 2 	W3T?H+UCT3S
IN*M2I;A+D"I"7*M2IGT+D"I.2F0*0>I* B . J M*M2IOD3AFIC7H2JNI3A3L*I213FKS*IB/* B 2 62"-612JFIR	G3OWN"M&J3TSA2IR(*8>I* B . " 2 WT7ROM2 [O2 WS3RWIS*M2I7J7SBIO7L2JNIO7F2JNI3A3L*I213S?T*IB/* B 2 3A+OG+MB)7ISN7O& "M&J3A
R"I7Y6JRIA	D3T7E*IB/* B 2 WG3T: "M&J3C3A/LBI2,3FO	T*/B * B 3F?L+ACTI7T2JNI3A3L*I217FCM*IB/* B * CN2*3A+OG"26)2JFIR	G/LKN"M&J3C3A/LFI2,GF+D>I* B 2 : 2 F*3L
O*(&22 3A+OG+M")3A?L7G"(")*M6IKA7G&I"M&J7RSER	N3A?L+G>I* B 2 V 7XSI2M2J7GKER&,3C3A/LFI6,KE7RKO"M&J3A
R2I
LE7R"J6L"J6/"J&/7ECX* B-7ER 3OF 2 ?P7WKE*M>J*M>J*I+E.*7X7SKE7IOE6 "(2*&**)"/+I&!*M>J2I[I. 7B+E***(>1*1&62 ;A7D" 6 OI2 WB3TWW+ECN*-B13ASN* B13TWHN*M2/JI6*"**=B13S7U3A&(*)"*+X**+IB)7FKO* CI3F?R3M& *=B1+TCO/IV=*M>J2IW3EWR* A+I")*1"/*(GI.)F**6***2&)*M>J"M&J3C
PG	E"4*M7ECX+E3R.IV4"360.JJI.0B42MVJ+X3P2I3B3O/C"I61.JVI*I>I* B 2 V 7NKT7YB 3O;IT*M2IGT3DVIX7P2JRIC	AX7T6JRIA	D7ECX"*M2IOD7A"IT62J&IN	C7ECX"*M2I;I3CVI+XOP"M&J3C3A/LFI2,[IA7D6JSX2,FIR	G"0*M2I3C3AN +LCL3CGM2 GRR*M2I;A3DFIC7H6JRIA	D.(J-.0V7"M&J3SGM2 3CA*M2IG
3DFIC7M2JNIL7L6JRIA	D.(R-.2F7*I>I7TOE3TZ +OCR7FSL+GB.+ACC.<"8".626JNI+ZCL3CGL"M&J7JCM6IE7PKER*M2IGT3DFIC7H6JNIZ7A6JRIA	D.(B4*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 ;A3D
 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+O3W2I3B3O/C"I61.JVI*I>I* B 2 V 7NKT7YB 3O;IT*M2IGCL	L20Z,7LSO"M&J3TSA2I[I7P
O*IB/* B 6 KF+OCM3B;AK*M2IOD3AZI3F?P+W>I* B 6 R 7OB 7RCO+ECR3LOO3A	TO7N6JRIA	D7ICF+OOW*I>/* B 2 Z 3R7O2 SA3DWRS7S2JRIC	A7FCF+OOW*IB * B 2/?T6 KP3OWP3R2 O7C2J*IM	PM	L*/B * B 3SWN+ACK7ISN7OJ 7OSU3IWN"M6J"J6/"J&/7FCF+O7W2 3F7OSA3I
N2 ?T2 3F7OSA3I
N2 ?P7WKE*M>J*M>J2ISI7ESN7I	T6 OU+ECD*.:.* +X.*7Y7ECX*(+Y3A?L7G"(")6)"J6/2JNI3P
A/ERI2MZJ3FWPR&,.4F6"4*M.IB2"2672J[F7P
O2,JI3LOO/KFI"M&J"5&I*/B * B 7ESN+RCY3P	ON7T2J3M6,RI+ACD3IZI3F?P+W>I* B 2 ^ +ECT3C[D2 ?T6 E3P;O7ESN"M&J3DGC6ILP*M2I;I3CZI3F?PW&*/B * B 3ION3R7E7ESN2 ?T6 E3P;O7ESN2 SA3DWRS7S6JRI+ACD3IZI3F?P+W>I* B 2 ^ +ECT7ECX3OWN+NCT3ASD7ROES*M2IOD3A2I+XOP"M&J3ION2I[F7P
O*>I* B 2 & 7NKC3EWM+NCT7FKO6 EI7T6JRI+ACD3I2IX	P*/B * B 3H
I3H> 3RWD7R^ 3OSR2 [O6 E3P;O7ESN"M&J3SGN2 3CA& */B * B +ICS+ICT7ZKEO*M2I7J3PZI/FWP*IB/* B 2 WY+S: *.B.7ROE7USL"=616JRIA	D3AC*IB/* B 2 GB+SCE+ICS+ICN3F?L3A	T+NCG3P	O+NCTA7C6JNIP7A2J*IM	P7FCF7EKR"M&J3SGZ2 3CA& */B * B +ICF7BOA3EV 3QGU+LCS7ZKE+O: *.B.7ROE7US
6 GE3U3A7S* 3E?R"M&J7JCM2I[FP616JJI7EKT3NZI3F?P+W>I* B 6 * 3E?R2 WR3S3U3TV 7XSI2MZJ/FGP2,NI3A3L*I213S?T*IB/* B 2 GS+VCE7BOAE*M7FCF"2&,3A
R"I7X2JNI3A3L*I213A?LG*M6IKA7G"I"M&J3C3A/LFI2,7F+P>I* B 6 & 2*?L7G"(")*M7LCX2,FIR	G*0>I* B 2 F 7DKD7EOS6 SS3OWR3D" 3EWR"M&J3C3A/LFI6,SSO*M6IKA7G"I"M&J3C3A/LFI6,EP*M6IKA7G"I2MZJ/F[P6,JI7EKT3NZI3F?PW*M7FCF"5&,3C3A/LBI2,3C7EKA*IB/* B 2 ;A3YT3I
N2 ?T2 WZ+RCO7P
O+ECR+ICS"1*M2IGT+D"I.2F0"4*M2IOD3AFIC7H2J*IM	P7FCF"6*M7FCF7EKR6,RIA	D.(B4"0602JRIC	A3AC"M&J3C3A/LFI6,KE7RKO"M&J3A
R2I[F7PKE"M&J7JCM2I[FP612JVIN7D&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