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

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

6/KT3I?G3N7O7EKT7YJ 7OSU3IWN+SB * B * B * B * B * B * B * B 2 > +SB87FKO3TGR3N& 3I2 7IKB7A	R*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J7CCO3Y	R7GSH* " +CB). &1*7B4+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."J&/7VKE3S?I/NV 2 GH7SB 3AOT3HZ +OCR7ICM7R[O+ECD3AOC3UGR+CCY+ACT7LKA+GCE3A
RS*M2/&I3NWS3RWT3D: +OCP7ION7TWR3C	T7OON6 SA2 GP3TC21F +NCD7PSA/CKH*/;C6 SS7O+L*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J"M2J6/ZI7EOR3I;O6 KT+I;G"065"J&/*8CK7FKO3TGR7NR 3R
I3N7O7EKT7YJ 7OSU3IWNS*M6/ZI7EOR3I;O6 WN3MWB3R& 3SF 3V	A3LKA+LCE+ACT7ESN+RCY3P	O7NOT"M&J7ESNR	Y3S;I"M&J7ESNR	Y7COO"M&J7ESNR	Y3T;A"M6J6JWQ+A3D"I&02/?C3NGT7ION2 ;O3E2 7EOS2 T+ACN3TWH6 WQ7AKD7ASN2 [O2 T3EF 7RWG3M;ET*MY&,3B?LC	K*3>I3T7E7PKO7A	R6 SS3OGR+GCE7FK
6 KAG*M6ICC3AWG.IJ22MNJ3O[E.,VI.4Z7*I>I*-:223V9"-&83C;O3SGT7NOT2 ?F7RN I7N.JNI.2Z4"M&J.2B5"0&I*/:2.7J5*67E"6*M.IV1"665.JZI.1R3"M&J.5^1"0&I./F-.."9.4&0/ER-"M&J.5R6"6*M.IB4"066.JBI.0Z2*I>I.8N..3N3.3V1/EN-"M&J.1J7"4*M.IF2"064.JJI.0V6*I>I*-:1.6Z6.6Z6*77E"1*M.
^5"665.JJI.5V2"M&J.2J5"5&I*/:1"0*M.IB2"164.JBI.0B0"M&J.0B0"0*M6ICC3AWG"I632JGH7LCFI&,.2F0"6&I*/:1.5B7.7Z9"3*M.IJ2"067.J^I.3R2"M&J3CGPG	E"3*M7QKT+P3I.IB2"0&6.I^/..V8.3"921V5"-61.JJI.2^0"M&J.7J3"4*M6ICC3AWG.IV26MRJ3O[E.,FI.7R2*I>I.9V..1"6.0F9/EN-"M&J.6Z7"6*
.IR1"4&0.IJ/..B9.0J525V0"-63.JFI.7V0"M&J.7F4"3*M.I^2"4&1.IJ/..V4.6B529V0"-62.JFI.7Z3"M&J.2N2"6*M.I^2"2&0.IV/..N3.7B426V0"-62.JFI.7Z4"M&J.6F5"7*M.IB3"2&3.IF/..N3.3J924V0"-61.JFI.7R6"M&J.2F1"4*M.IB0"4&2.IN/..N3.3F324V0"-61.JFI.7V7"M&J.2J5"5*M.IV1"1&7.IF/".6
.JJI.0R1"M&J.0B0"0*M.IB0"0602JGTN&,"5*M2I3B3O/C"I612JRIC	A3QGU+D>I7SSE6 WQ7AKD7ASN2 [O3FWS7TN 7WSIC7H6JRI+ACD7IRIA	N2/	P+C7K+UCP3C[D"M&J3DGC2IGTR7G2J&IN	C3T;A*>I3P	O+NCT+TCO7NE7T^ 3OSR"M&J3TSA" 	I3T;A6IB/3I/C6-CU2 SA3DWRS7S2JRIC	A7TKAG62J&IN	C3T;A*>I3P	O+
CT+TCO7RSE3U;R"M&J3C3A/LFI2,GF+D>I7GSE6 KA3G& 3NZ 3PF-C7C2JGT+R3G6IKA/GBI2MJJ+A3C2IGT3DFIC	H2/?L+OCK+ACT3H
I3H> 3RWD7R^ 3OSR"M&J3SGP2 3CA&I2/[I2 WN7GSA3IWV"M&J7JCM6I[O+T>I+GCOO7M2JNI3A3L*I213FKS2I>/3TWH3R	W+SCE3SKU3TGRC7T2JFIR	G7QKTP	I2/	P"/622J&IS	Z3QGU+D>I3ASN2 ;I3CWR3M;E7TF 3USA3R;A3TN 3O;U7TKE6MBJ3AOT+H212I?NP&I2/3A7L
O2 ?F7RN 7KCI"M&J7JCM2IGB+C>I7USN+ICL3A
R6 OI2 WN7GSA3IWV2M>J+V3T2IGCL	L21Z,A	D2/SA7DB /IJ/2 ?T6 KA7GV 3N	T3L& 3T& 3S& N6 2JFIR	G7QKTP	I2/T3EZ 7IOR7TF 3USA3R;AT*M2I3C3AN M7A6JRIA	D3QGU+D>I7BSU2 WK+ECP3TGR+CCK+OCF3W	H+CCH3QGU3DGR+NCT+ICT7WOA2 ;I"M&J3DGC6IWQA7D6JRIA	D3AC2I^/+ECT+HCI3OSR+ECR7WKOD*
6ICS3AN L7A2J*IM	P7OSV2I&/3F: 3EGG7T[I7EJ 3EWPA7T6JRIA	D3QGU+D>I3F;I3D> +UCT3WGH7TF 3USA6 SI2 GW3S& N*M6ISRR6I6JNI+MCA3CGL"M&J7JCM2I7O"M&J3C3A/LBI2,C+S>I3SKU3TGR+CCT3F?R7MB /IJ/2 [I6 WQ+ACD22> /RR "M&J3C3A/LFI2,GFD*M6IKA7GFI7TCRI*M+O3M2IGT+D"I*7>I3UWS* CA
7R 3E7R2 WS3RWIS*M6ICC3AWG"I632J*IM	S3P3O"M&J3TWOF&I2/SA7ROE3S> 3FN 3O[E3I	C7ESN3SZ +OCR3TWH2 WS3RWIS*M2I3C3AN M7A6JRIA	D3QGUD*M6ISRR*M6I+S3LN L7A2J*IM	P/OOM"M&J3C3A/LFI6,SSO*M6IKA7G&I"M&J3TSA.IJ(.0R1"M&J3DGC2IOAH*M2IGCL	L21Z,D7V2JFIR	GY*M/OOM6,JI7EKT7NRI
7N"J&/7ISN3E;R+ACL3SKU7RWO3T;I7EB O7L"J6/"J&/3C7O7PSU+ECS7NR 3E7R3S> 7FB 7O	L3N7O3I3A" *M2/:I2 ;I2 OA* :.6." 2 ;I2 3F7OSA3I
N2 OA*M>J2I?C3E[F3I	C7ESN7SN 7TKA3T& 3N2 3OGC3T?I7N^ 7HOO3EF 7DKD7EOS2 ?F3L?L+WCS7JOM2 ?T2 ?PL*M"/*M3P3O"2&,3B?LC	K"1*M3P3O2,JI3LOO/KFI"M&J3CGI"M&J3DGC2I?PL622JNI3A3L*I213S?T6IN/7TKO3EF 7DWJ3SWT3DF 7RWG3M;ET*M6IKA7G&I2I&/3NF 2 WT3M?P7RKAY*M2IGCL	L21Z,A7D2
FIR	G+Y>I7ROE7TKO3EZ 3PF C*M2IGCL	L21Z,M7P2JFIR	G+Y>I7SWQ3AWR6 SI"M&J3C3A/LFI6,SSO*M6IKA7G"I"M&J3TSA" 	I3P3O"M&J3ION2I?PL*M3A
R"2&,3DGC6IKA+GN1"M&J3C3A/LFI2,GFD*M3A
R"1&,3A
R2I?CE	F*/B * B 3ASD7ROE7SN 7TKO+ECD7HKEE*M6IOI7ZBI/OKL"M&J7JCM2I?PL612JNI3A3L*I217FCM2I6/7USL3I3P3YF 3G	A7NR 3ON 7OCM7LSE7EN 3E	RE7S2JFIR	GY*M2IGT7DFI3USA"M&J7RKT"M&J3S3N2 3CA&I2/	F+NCD7OSU2 W3IC6 WQ7AKD7ASN"M&J7JCM2I?P7LE"M&J3C3A/LBI2,C+S>I+ICF+ICN3QGU3
GR+NCT23> /RR 2 WS3T: 3EGG7T[IE*M3P3O+E3X2I7J3P& 2I?PL*M3P3O"1&,3C3A/LFI2,7FP*M6IKA7G"I"M&J3TSA6IKA+GN1"M&J3TSA.IN("M&J7JCM6IKAG62"J6/*J3X2I3B3O/C"I&32/WT3M?P7RKA3YZ +OCR3P3O*M>J*M>J*M>J2 .82 ?F7RKT+ACN3T	R3G?N7MSE+RCY7RWO3T;IE7S"J6/"J6/2J?CS&,"5*M2I3B3O/
"I616JRIA	D7COO"M&J3DGC2I	SN*M2IGT3DNI+OOS"M&J3DGC2I	SN&6/SI2 ?N3WF 3PWP7AOR2 T+ACT3S;I2 GW3SN 3A3LE7D2JNI+LCA3IOA*I>I7WSI7HF 3USA3R;A3T> 7FOF+ECT+BCY3OWN"M&J7JCM2I?CS7E2J	SN&,"5*M2I3B3O/C"I612J?C+S3E2IOD7AFI3USA6IN/+ECT3QGU3DGR+NCT3O[F7SSE6 
S3IOTH*M2IGT3D& 2I	S+N>I3POI7KV-3PN D7F2JRIC	A7SKAG*M2I;I7CNI+ION6IB/3O;I7TR 3O: 7ESX2 ?WR7D6JRI+ACD7INII	N2/	P+C7K+UCP3ASD7ROES*M2IOD7ANI3A
R"*M2I;I7CNI+ION6IB/3O;I7TR 7OJ 7EWTR7N2JNI3A3L*I213FSA2I^/+ECT3A
R2 ;I6 CF2-OAC*M7SKAG&,3A
R"I602JGB+C3K2IGT3DFIC	H2/?L+OCK+ACT3H
I3H> 3RWD7R^ 3OSR"M&J3SGP2 3CA&I2/[I2 WN7GSA3IWV"M&J7JCM6I[O+R>I+GCOO7N2JNI3A3L*I213FKS2I>/3TWH3R	W+SCE3SKU3TGRC7T2JFIR	G3H3A3F	P6IB//IJ/"M&J7I+S6IWQA	D2/;A3D& 7NKC3EWM+NCT3QGU3DGR+NCT7CWO3NWTR*M7PSA/CKH2,:IO	P2IF/3L?L3WZ +OCR3S	KP*M2I7J3PJI3A/C6IV/3N	T3L
 +RCG+ICS3N
E3A	TV7E6J[OR&,3C3A/LFI2,GF+D>I3ASD2 	P*/B2+TCO3A
R2 ;U3T3I6 SI6 OI2 ;I" *M6IKA3G"I3A[LP	I2/T3EZ 7IOR7TF 3USA3R;AT*M2I3C3AN M7A6JRIA	D3QGU+D>I7BSU2 WK+ECP3TGR+CCK+OCF3W	H+CCH3QGU3DGR+NCT+ICT7WOA2 ;I"M&J3DGC6IWQA7D6JRIA	D3AC2I^/+ECT+HCI3OSR+ECR7WKOD*M6ICS3AN L7A2J*IM	P7OKV2I&/3F: 3EGG7T[I7EJ 3EWPA7T6JRIA	
3QGU+D>I3F;I3D> +UCT3WGH7TF 3USA6 SI2 GW3S& N*M6ISRR6I6JNI+MCA3CGL"M&J7JCM2I;O"M&J3C3A/LBI2,C+S>I3SKU3TGR+CCT3F?R7MB /IJ/2 [I6 WQ+ACD22> /RR "M&J3C3A/LFI2,GFD*M6IKA3G"I3A[LP7I2J;O6,RIA	D"(&66/OU3EF * B67TKE7MN 3E	RE7S2JNI3P
A/ENI"M&J7JOM2I?PL*M2I?CE	F2IF/3DWR+SCS+OCF3CWO3FOI3I;E+TCS7FKO2 T7EN 3E	RE7S6JJI7EKT7NNII7N2JVIN7D&J*L"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"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