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

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

./& 6IOO*/B87FKO3TGR3N& 7IB 7LSO7TKE2/	D3S3P+ACY3S[O3TGWR7E*JB/*M>J* B * B 3S7Y7BN.7B.I6 SS3ASN3ASR6 	S3M?B+LCS]*M"/6 *JB/* B 2 F 3UKF+ACU7DKE2 ?K3OSR3IGN3T;E3TKA3E3LE*M"/6 *JB/* B 2 & *-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-2-&-*M>J* 
 * B +IB * CI2 & * B +IB * CI2 & * B +IB * CI2 & * B +IB * CI21& * B1I*M*/B * B * CI20& * B1/IJ * CI23& * B4/IV * CI26& * B7/I" * CI29& * B0/IF " 7I*JB/* B 2 & *-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-2-&-*M>J* B * B +IB * B * B * B +IB
* B * B * B +IB * B * B * B +IB * B * B * B I*M*/B * B * CI* B . GY* B * CI* B . GX* B * CI* B . KY* B * CI* B . KX* B " 7I*JB/* B 2 & * B * B * B 2 & * B * B * B 2 & * B * B * B 2 & * B * B * B 2 & *M>J* B * B +I6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-
-6-*-6-*-6-*-6-*-6-I*M"/6 *JB/* B 6 & 61",61&,62",.2* *M>J" *M*/B * B * B0*.:.* B6* B * B 2 . 7OKO3D;I3AWTN*M"/6 *JB/* B . B *7B * B * B * B * B 3P;E2-C3A
NE*M"/6 *JB/* B . ^ 67. . GY.,GX* C]* B 3CGH3RV-3NWD*M>J" *M*/B * B 6 WS3B?R3U	T+NCE3S7Y3B3O6(CX3AWG6,CY3AWG2,WH3IG2,KI+C3D3A
N+L3E+N	C"M&J7LCA6M2J+I3P6M2J3XGP+G3E2I3B3O/C"I612J	\2,JI3LOO/KFI6M2JJ6,6J	\3P
AE&,3B?LC	K"1*M+\3K2I3B3O/C"I612J3\",*M3\WH3IG2,JI3LOO/KFI6M2J+I3X2I3B3O/C"I612J	\Y6,2J	\3BSC2,JI3LOO/KFI6M2J+X222I3B3O/C"I612JG\3N3GE&,3B?LC	K"2*M3\ON2,JI3LOO/KJI6MBJ7NKT",*M/\GX2,JI3LOO/KNI2MNJ7NKT",*M/\GY2,JI3LOO/KNI6M2JH&,3B?LC	K"3*M+\3X2I3B3O/C"I636J
\2,JI3LOO/KNI6M2JS&,3B?LC	K"3*M+\3C2I3B3O/C"I636J	\"2&,3B?LC	K"3*M+]3A2I3B3O/C"I63.JG]"1&,.1Z7.5J;.5V2.;V2"2&5*IB/.0F..6Z6.6^66M6J"6&,.2N0.6B;.0B0.;B0"0&0*IB/.6B.6M6J"3&,.2J1.7Z;.3B0.;B0"0&0*IB/.9&9".602JVIA7P2JVI7NKT7YNI3YKMO*M6IWD7M	M6I\3P
AE*M6IWD7M	M6I	\3P
AE*M6IWD7M	M2I\3E
IH*M6IWD7M	M2I	\3BSC"M&J3D7UM	Y3\;A3GWL"M&J3D7UM	Y3\ON"M&J3OSPE	F7B
S.IB7"0622J>I3PWD7FNIN	C.7V6"0*M6ICO3D[E2IGTD	I.1B4"0*M6ICO3D[E2I7JP	I.5B4"0*M3X;PT&,7\CX3AWG6MNJ3YKMO&,3B?LC	K"2*M2I3C3AN L7L6JRIA	D3X;PT*M2IOD7ABI7NKT"M&J3TSA*I6("1642JRIC	A7CSNR*M+A212IGT3D& 6I	S3M?B"M&J3ION6I	S3M?B"*M2IOD3A& 2I;PT7R2J&IN	C7PSNR*M6IOI3
NI7NKT"M&J7JCM.IGA*M>J*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-*M2IGT7D2I3IOBD*M2IOD7ANIT7R6JRIA	D3\KI+COD"M&J3DGC6ISSR62J*IM	S3X[I/A/D6I\3P
AE*M2I7J7S"I3S?T6;2IX612J*IM	S3X[I/A/D6I	\3P
AE*M2I7J7S"I3S?T6;2IY612J*IM	S3X[I/A/D2I\3E
IH*M2I7J7S"I3S?T6;2IH*M2I7J7S"I3IGFD&;3\;A3GWL"M&J7JOM6IOX/T/O6I\"2*M2IGT3D& 2I;\C*M2IOD7A2IN7C*J6/*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-6-.J\"0&,7JOM2I[X/A/D6I\*1>I6 CX3AWG* B=.9&9..> "M&J7JOM2I[I.9&9"M&J3SGM2 3CA*M2I7J7P2
.1B0*IB/7YOE" 6:.J	\"0&,3C3A/LJI2,7F/O/V6IKA7G2I/X.16IKA7G2I+X>I* CX6=" 3P
AE*M/\B1"0&,7JOM2I[X/A/D6I	\*1>I6 CY3AWG* B=.9&9..> "M&J7JOM2I[I.9&9"M&J3SGM2 3CA*M2I7J7P2I.2B0*IB/7YOE" 6:.JG\*5202IGCL	L22Z,7M[O2;FIR	G/\GY2;FIR	G\	Y6/& * B=3YGPG7E"J6/.JK\*0202I7J7S"I3FSA6;2I+H>I. 7H+H:*.1Z6.6Z6"M&J7JOM2I[X/M/P.IG]"1*M2I7J7S"I3S?T6;2IH
M2IGCL	L61R,3S;I2;FIR	G/\KX*IB//S6 6 OT+IN3OSL+A*)H*M2I7J7S"I7FCM6;2IH*M2I7J7S"I3S?T6;2IS*M2IGCL	L61R,7COO2;FIR	G/\KX*IB//C6 2 OT+OS3OSL+A*)H*M2I7J7S"I7FCM6;2IH*M2I7J7S"I3S?T6;2IC*M/\B5"0&,3CGL2 3C3LN +MCL3IOA2 GR+L> 6 CI* B="3*M2IOD7A2II7P"J6/"J&/3B	E2 W
7NKT7IKE3T;E2 WZ3IC+ECN3SOI3HKT+ACR7VKE3B;I3D;E" 6?"J6/2JNI+LCA3C3L2 7C3L& +ACC3R3A2/: /C2 *=B *-B2"?*M2IGT7D2IN7C6JNI+MCA3CGL"M&J7JCM.IW\"4&02/: /O* 6M2J.5B22,NI+LCA3C3L2 GI7CJ A	L2/& /P6 " 622JRIC	A7\CI6M2J.5B42,NI3A3L*I233P?LT&;3A
R6I\2;FIR	G/\/Y6IKA7G2II7P.JW\*5202IGT7D2IN	C2/& 3F: /C6 .<B "M&J3SGN6 CS3AN L7A2J&IA	C*IB/3TWH3N& * B="2*M2IGIC&I2/V 3LWS* CI.=F "M&J3DGC2I	\*M>J*M>J6ISS3R;I3G;A3F;AG*M"/*M/\B6"0&,3C3A/LJI2,
LE	T2/* * B=3LWG3T&(3BSC*,	I6MNJ+T3R6IKA/GBI*IB/7SKT3I
N7AKD7EOSE*M6IKA7G2II*M2IOD7A2IJ*M2IGT7D2IN	C2/: /C2 * B0"?*M6ICSC*M2I7J7P2I.6B3*IB/7YOE" 6:6JRIA	D.(B2"M&J3TSA2I+\"M&J3DGC2I+\*M>J*M>J2IWZ3IC3EGN3NGFN7G"J6/.J[\*3202IGT7D2I+J>I* CJ2=& 7VKE*(	J"M&J3TSA2I	\7VKE"M&J3DGC"I676JRI3A	D"I672JRIC	A/\GJ*>I* :12 ?K
OSR3IGN3T;E3PGAR*M2IGIC&I2/2 * B="1*M2IOD7A2IL*M2I3C3AN +LCL3IOA2 GR+L>I6 CI* B="2*M2IOD7A2II7P.J
\*0202IGCL	L222,7GSE*IB//K6 2 
L+ET3IWZ3I*(2)2,")*M/\GJ2,FIR	G7\+IE7I2JFIR	G\7L2JRIC	A\7K6JRIA	D\	K2/. * B=.7> 2 WP3NN 3H;A+GCE"?*M2IGT+D"I"-676JNI+ZCA3CGL"M&J7JCM.I
\"3&02/: /O* "M&J3TSA2I	\+P>I6 CI* B=*56 6 CI"M&J3CGI"M&J3TSA.IV("M&J3DGC2I	\P*M2I7J7P2I.8B1*IB/7GSO/O" "160.J
\*3202IGT7D2I+K>I* CK.=Z .3> 2 C+ACR3ESN/E> "M&J3TSA*I6("7676JNIN7C2J*IM	P/\B9*0>I2 WY/S* 6M2J.7B46,RIA	D\7K2JFIN	D"(672JRIC	A7\I"M&J3TSA2I/\"M&J7RKA"M&J7RKT"M&J3ASN.I^("M&J3DGC2I	\Y*M2IGT7D2IN	C2/: /C: .=B " 6?6JNI+MCA3CGL"M&J7JCM.I\"0&06/& +ECS":*M"/*M6
*I7ESN3RWI3RWT2 WZ3IC+ECN3S;I3D6 +ICT3O[F7SSE2 WV3RWS3H;E" 6!"J6/.J
\*1202I3C3AN +MCA3C3L6 SR+L>I6 I* B=+ICX.-N "M&J3TSA2I	\X*M2IOD7A2II7X2JNI+LCA3CGM2 3C7LJ T	L2/& /Y6 6 	I* B-"3*M2IGT7D2II7Y2JRIC	A7\	I6M2J.8B06,RIA	D7\I*IB/+XB22=& X*M2IGCL	L20Z,7LSO"M&J7JOM6IOX/T/O6I\"2*M2IGT7D2II	Y6/& .26 6 	I"M&J3C3A/LBI2,3FO7T2J*IM	S
XSSO&;/\KY*M>J*M>J.IGX*=/X+I+X3C&-7YN**M>J.IGY*=/Y+I+X3S&+3YN**M>J"M&J7JOM2I[X/A/D6I	\"2*M2I7J7S"I7FCM6;2IS*M2I7J7S"I3S?T6;6IA*M2I7J7S"I3FSA6;2IX622J*IM	S3X7FP&;\7C2JNI3A3L*I213FKS2;FIR	G]7A2J*IM	S3XGFD&;\7X2J*IM	S7XSSO&;/\GX"M&J7JOM2I[X/A/D6I	\"2*M2I7J7S
I7FCM6;2IC*M2I7J7S"I3S?T6;6IA*M2I7J7S"I3FSA6;2IX622J*IM	S3X7FP&;\7S2J*IM	S3XGFD&;]7A2J*IM	S3XGFD&;\7Y2J*IM	S7XSSO&;/\GY"M&J3C3A/LNI2,3PO7T2JFIR	G/\GX"M&J3A
R6I	\"1*M6IKA7G2II7P.J\*1202I;I7C2I+L>I* CL2=2 * B+"1*M2I7J7P2I.7B0*IB/7GSO/O^ "060.J	\*0202IGT7D2IN	C2/& 3F: /C2 .=B " 6?6JNI+PCA3CGL*I>I3SGP2 ;S3AN L7A2J*IM	P/\F1"0&06/& +ECS":*M/\F9"0&,3ION2I	\*IB//I6 * CI.+F "M&J7JOM2I[X/A/D2IO\"M&J7JOM2I[X/M/P.I[]"M&
7JOM2I[X/A/D6I\"M&J7JOM6IOX/T/O6I\"M&J7JOM2I[X/A/D6IO\"M&J7JOM2I[X/M/P.I[]"M&J7JOM2I[X/A/D6I	\"M&J7JOM6IOX/T/O6I	\"M&J3C3A/LNI2,3P/O/T6IKA7G2IX&;3A
R6I	\2;FIR	G"(636JRIA	D3\ON*IB/+ICF/I: 2 ON" 6?2JNII7A6JRIA	D\7I6JNI+PCA3SGN2 3CA*M2I7J7P2I.6B0*IB/+NCO":*M/\F1*0202IWR3T;R6I	S3M?B*IB/7RSE3U;R"M2J/I	F*929"I&0*IB/3FOA* B=3FOA* B-.9&9".*M2IGCL	L21Z,S7B2JFIR	G]636JRIA	D3AC"M&J3C3A/LBI2,3C7EKA"M&J7JCM" 	I/I
F"9692JVI7NKT3YZI7M[O"M&J3D7UM	Y3F?MV612JRI3U7M3YZI7M[O"2*M3F?M+V212I3B3O/C"I622J7F/OKV2,JI3LOO/KJI2MZJ7M[O"3&,3F?MV612J7F/OSV.,BI2MZJ7M[O"5&,"0*M3F?MV&,3B?LC	K"2*M2IGT3DZI7M[O"3*M2IOD3AZI7M[O"4*M2IGT+D"I"-642JRIC	A3F?MV652J7F/O[V6,RI+ACD3IZI7M[O"M&J3ION2
7F+OOV"M&J3DGC" 	I3F?MV642J&IN	C3F?MV642J&IS	Z3F?MV652J*IM	P3F?MV662J*IM	S3X[I/A/D2I7F/OGV"M&J3C3A/LFI6,OIT7O2JFIR	G3F?MV626JJI7EKT3NZI7M[O*M>J*M>J2I;I7TKE3N3A2 	L3BGR+RCY3C3A7LN	*M>J"M&J3CGPG	E"1612J	X3FSA.,BI"M&J3TSA7I"I3IGFD*M2I;I7C"I3IGFD*M2IOD7A"I3IG
"*M2IGCL	L21&,3FSA6M"J3IGF2,FIR	G3X[IA*M2I7JP	I3X[IA7D2JNI3P
A/EFI"1*M7XSSO&,"0*M2IGTD	I7XSSO*M2I;I7C"I3S?T"M&J3DGC6IOXT62JNI3A3L*I213S?T6M"J+S3T6IKA7G"IS7T2J*I3M	P6IOXT7O2JNI3P
A/EFI"1*M3XGFD&,"0*M2IGTD	I3XGFD*M2I;I7C"I3FSA"M&J3DGC2I[XA62JNI3A3L*I213FSA6M"J+F3A6IKA7G"IF7A2J*I3M	P2I[XA7D2JNI3P
A/EFI"1*M3X7FP&,"0*M2IGTD	I3X7FP*M2I;I7C"I7FCM"M&J3DGC2I[XM62JNI3A3L*I217FCM6M"J+F3M6IKA7G"IF7M2J*I3M	P2I[XM7P&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