File GENIOX.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.1^9*1B,3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	T+O3N*M>J"I&I7M	A7NKA+DB,7MOA3SOA7HOU7EST/SB .1V7"4*M6/VI3T3I7I	T6 WS3B?R3U	T+NCE3POA3K
AE*M"/&I7VKE3S?I7NV 3T3I+T;Y3VF72 >(3C?T7BKE. Z2.,&1*7&1*M>J"I&I2(WV+R;S2 C+GB./V^02 ?T. 
V/AR ./V2./^72 M")*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[E2I	R/FZI.2R2"M&J3OSP+ECF3TSA/IF .4B0"M&J3OSP+ECF3D
C/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	F3LKL.IZ6"6662J>I3PWD3F2IS	F.6Z6"1*M"M&J7
CA"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*M2I?I7EKR"M&J3G;E7OSU"M&J7T	TI7N2J"I3S	RN*M2I?I7EKR"M&J3G;EI7N2J&I7OKER*M2I?I7EKR"M&J3IWOR7R2J&I7OKER*M2I?I7EKR"M&J3IWOR7R2J&I7OKER*M2I?I7EKR"M6J6JOH7PWOT&,3P[S"M&J7JCM2IWG7NCL"M&J3TSA"I676JBIL7S2JWG7NSRN&,3CGL"M&J7RSER	N3G;EI7O"J*M7HKS+I3N6IOI7ZR
"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& 3TN 7OSN3R3O. ?C"M&J3KOC*I>I+N7O3CWL+ACR3FGLG*M2I[RC&I6/OU+ECR7
CY+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.2N0"M6J"J*M2IGPG7E6JVL.3^7.,NI"7&72I6/7USS2 WB2 	F7RSS2 ?L3C& 7NR 7HOI2 GPG7E2JWG3N;I.,ZI.2F0"M&J3TSA3I
I3HSNL7R6JNI+NCA3CGL*I>I3OWP3N& 7NWP3TZ 3IWL"?*M2I7J3P&I7OKE+R>IN7O.JZI.2J0"M&J7JOM" 	I3FOI7HKA2I^/+ECT3AN 7HKA"M&J7JCM2I?I7EKR2I&/7NWP3TV 3R?RR*M/UKU*0202I;A7DVI.3^72M^J3R;T"2&,7RSER	N3G;EI7O"J*M3G;E7OSU.,ZI.2F0"M&J3TSA3I>I3HSNL7R6JNI+NCA3CGL*I>I3OWP3N> 
UCT+UCT3F3IE6?2J*IM	P3IWOR	R2/?N"M&J.6B2"2*M2IGT/D^I2I^/+ECT3CGH7RR 3OJ 3E> 7UCTU7T2JFIN	D/U^3"7*M2I7J3S& 2I?F3CGH+R>I7PSU* CA3CGH3ROA7TKE"M&J7JCM2I?I7EKR2I>/7UCT+UCT7EKRO7R2J*IM	P7GSRN62"J*M3I;H7DKL.,FI"2&2*I*/2*F*+LCL3TWH+SCE3LOO3A	T7OON6 KA7EZ 7E	R2 ?V
LSA3IWL*!B!****2MZJ3IC+A3R.IB6"6&I*/******"*6*2JO3N3DR&,.1F2*I>I********"**M3FOO7HKA.,ZI"5&1*I*/********************"*6*2JGB3T;I.,VI.4B0*I>I********************************"*6*2JGB7TWOT&,.7B4"0&I*/**********************************2MJJ7A[T+F3Y.IZ5"0&0*I*/
*******************************"**M7BSA3V3A*,6I.2F2"4&I*/**********************************"M6J"J6/"J&/3I	N3TGI7L+I3I
N6 WS3B?R3U	T+NCE3C3A3LSE6 	B2 ?F7RKTA7N"J&/3CWL7AOR2 3F7OSA3I
N2 OA2 ;A7DN 7EOT2 3F7AOG*M>J2M>J3P;E2,JI3LOO/KJI"M&J7POL"M&J3ROF"M&J3C3A/LBI2,3C7EKA2MNJ7DF.,ZI.2F0"M&J3DGC3I&I3HSNL7R2JRI3C	A2IO3N3DR&I2/WZ+RCO7D[E3IWC2-;I7DCE3ESN7ESN2 ?I2 3F7AOG"M&J3DGC6 ST3FGL+G>I3B
E3I;N3I
N2 [O2 	LN7E6JRI3A	D. ^(.7^72I^/+ECT7BSA+CCH3FWIL7D2JFI+NCD.(B7"M&J3TSA2 SCF	X2/GM+KCE3AN D7F2JRI+CCA3C[DB*M2IGT+DCI.(^7"7&72/WG3TJ 3AOT7HJ 3U;N3I
N2 	BT*M2IGRL*M2I7S3AN L7A2J*I+MCP3IWOR	R2/GB3TC2 ?N7TJ 3U;N3I
N2MNJ3DKF2,"IL7T6JRI3A	D2 GB3T[V+Y>I3CWH+CCK7CWR3CGI3L2 3OGC3T?IN*M2IGT3DJ 7A[TA	L2/?F7RJ 7LN	2 ;I3I	T7AOL"M&J3SGZ2 3CA*M2I7J3P& 7OKER*M2IGT3DN 3DKF"M&J3IOA*I>I3M/A3EF 2 	CF*M2IOD3AN 3IKF"1*M2IGT3DN 3IKF"1*M2IOD3AN 3IKF"2*M2I	RF&I2/GM+KCE3AN +DCF+TCO7HKEE
M2IGT3DN 7DF"M&J3DGC2 SCF7H6JJI7EKT3N>I3P;E"M6J"J*M7T	T+I3N2MNJ3IKF"1&,"0&I2/	C3FJ 3AOTH*M2I7J+SCI7BSAI	N2/WG3TF 2 CA7R"J&I7JCM6 ST3E[O*1>I3E[O"M&J3DGC"I&72/GS+VCE7K	E3BGO+RCD3CGHR*M2IGTD& "7*M2IGT+D" *-R"2I&/3S& 3TF * R"""6?6JNI+ZCA3CGL"M&J7JCM6 ST3F+U*1
IN7O2J&I+SCZ3T[T3L
A6I^/+ACS7LOA3TN 7HKA2 N</R>>"M&J7JCM6 ST3Y?E+F>I7YOE* B-3E[O6MRJ7TWF+J212I3C3AN M7A2JRI+CCA3T[T3L
A6IJ/3EWS3TZ 3L
A2 ?F3R: +OCN6<KC">*M2IGT/D^I"M&J3TSA*I6(.2V1"M&J3SGN2 3CA*M2IOD7AR 3T3FA	G2/3C7EKA2 3F+ACG+TCO3ISN3IGC+TCE6<KC">*M7TKY+T3N2IGT/D^I"M&J7JCM6IKG/TKN6IJ/7EWT+RCN7WSI3HN 7HKA2 ;I2 OA"M6J6JST3FGLG&,"0&I2/;I3I	T3A3L3YF 3TJ 3E	G3N	N+NCG+OCF3L;IE*M6MRJ3TWY+O3F.I
6"0&12IN/D7F6JRI3A	D. ^(.7^72I^/+ECT7WKO3DZ 3R7O2 	F3ESL" 606JJIT7R2JNI+LCL3C3M6 SR+L>I7SSE2 	B/TF "0*M2IOD+ACI.(^7"7&72/WR3PGL+CCEI7T2JSC+F3H"I&02IN/+DCF7HKEE*M3TWT/OGF2,*I+MCP3IWOR	R2/W+ACT+TCO/D?O"M6J"J*M7TCYE&,"0*M2IGT/D^I2MNJ3IKF"2&,"0&I2/	C3FJ 3AOTH
M2I7J+SCI7BSA7OSU6IN/3ESN* CA3CGH7RR 7OR +HCE7BSA+CCH7OSU7PSU6 SS3RGEM*M2I7JP	I7TCYE*M6MRJ3T?Y+U3T2I7J7SRI3YWP"M&J7JCM6IKG/TKN"M6J2J?I7EKR2,NI3A3L*I217EKRO7R2JFIR	G3IWOR*M"M6J6JBI3AWG"M2J6MBJ7MOEG&,7MOEG*M7MOEG&,.7^7"7*M.I^7"767.JRI.0V0"M&J.2J2"2*M.I^1"26
.JRI.0F0"M&J.2R4"0*M.IR1"167.JBI.3B42M2J/I
T.,BI.0^0"M6J6JKE7RKO2,JI3LOO/KJ *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 	W3N?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/KJI2MVJ7XSIX&,3C3A/LBI2,/CI7O.JZI.2N0"M&J7JCM7IVI.7B6*0>I7RSE3U;R2 ?T2 ?M7NSIO7R"J*M3C	KO&,"0*M3T7E"2&,*0>I3D7U+MCY3SKU7RWO3T;I7ER 7O^ 7ASI2
?F3R& */CO3C7O3PWLT7E6JJI7EKT3NNI3K?I"M6J"J*M2I;ED*M"LBZ"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