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

Directory of image this file is from
This file as a plain text file
"/6 *JB/23>I/S"/* B-7FKO3TGR3N& 3IR 7ICS7L	A* B-3S[O3TGW+RCE3FWU/RR .0Z0"-61*JB/*M>J2 N 7O	P3R
I+HCT* " +CB). &1*7B8+BCY3ESR3O3E3CWH3MWI2 7G+B3H* B53KWO+LCN"761*JB/*M>J" *M"/6 *JB/* B * B * B * B * B * B * B * B * * *********M>J* B * B * B * B * B * B * B * B ***** B * B * **"**M*/B * B * B * B * B * B * B * ****B * B * B * B * * "*6**JB/* B * B * 
 * B * B * B * B** B * B * B * B * B * B "**M*/B * B * B * B * B * B * * * B * B * B * B * B * B * B "**M*/B * B * B * B * B * B * B** B 2 WE3EWE* B 2 OC+CB * B " 6**JB/* B * B * B * B * B * * * B 2 V * B * B * CC2 N * B * * *M>J* B * B * B * B * B * * * 
 * B +EB * B 2 N * B * B * B " 6**JB/* B * B * B * B * B * B** B 2 V 3EWE* B * CC* B * B * B "**M*/B * B * B * B * B * B **B * B * CE* B * B +CB * B * B * * *M>J* B * B * B * B * B * B **B * B +EB * B 2 N * B +CB * B "**M*/B * B * B * B * B * B * B** B 2 
E3EWE* B 2 OC+CB * B " 6**JB/* B * B * B * B * B * B **B * B * B * B * B * B * B " 6**JB/* B * B * B * B * B * B * B** B * B * B * B * B * B "**M*/B * B * B * B * B * B * B **B * ******* B ******B** * *M>J* B * B * B * B * B * B * * * B **B * B** * * B **
 " 6**JB/* B * B * B * B * B * B * B** * * B **B * B** * * B "**M*/B * B * B * B * B * B * B ******B** * ******B * *******M>J" *M"/6 *JB/*M>J* B * B * B * B 2 KB+BCB* CK2 . * B * B 6 CP+PCP2 SD+DCD* CV6 Z *M>J* B * B * B * B * CB2 J * CK2 . * B * B * CP6 
 * CD2 R * CV6 Z *M>J* B * B * B * B * CB2 J * CK* CK* B * B * CP6 B * CD2 R * CV6 Z *M>J* B * B * B * B 2 KB+BCB2 /K+KB . 6 *=B=6 CP+PCP* CD2 R * CV6 Z *M>J* B * B * B * B * CB2 J * CK* CK* B * B * CP* B * CD2 R * CV6 Z *M>J* B * B * B * B * CB2 J * CK2 
 * B * B * CP* B * CD2 R 6 Z " 7V*JB/* B * B * B * B 3BKB+BB +KB * CK* B * B +PB * B 3DSD+DB 6 Z *M>J" *M"/6 *JB/*M>J* B * B * B * B * B * B * B . F . & *9B9. ^7.7^7. " "868*JB/* B * B * B * B * B * B * B *1B1*9B * B9* B * B7*8B " 68*JB/* B * B * B * B * 
 * B . F * B1*9B * B9* B *7B *8B " 68*JB/* B * B * B * B * B * B * B1* B1. &9*9B . ^ * B . "8"8*M*/B * B * B * B * B * B * B * B *1B * B *9B * B7. " * B "8*M*/B * B * B * B * B * B * B * B *1B * B *9B * B7. " * B "8*M*/B * B * B * B * B * B * B * B *1B .9
9*9B * B7* B .8"8*M>J" *M"/6 *JB/*M>J* B * B *2673J;A.-"7* B * B * B * B * B * B * B 6 ^ 2." 3OKUE7N*JB/*M>J* B * B 7LSE3ZWT2 WA3NWD3R;U/G* .IB32-GJ/N^-68NI3PWE7DV 3PN 3H;A7GOE*M>J" *M*/B * B 2 ;E7T	R3P	O7NOT* B:6 B 7LSO*,B 2 3P7OOT*,B 3WWH+R3E2 Z 7ASC+O3
2 3P3I	NT*M"/6 "J&L7AOBY	M7TCOS&8"1*M6ICO3D[E6 KK/SZ .0R3"M&J3OSP+ECF7JCM/IV .4B0"M&J3OSP+ECF3MGQ. V7"0612J>I3PWD3F6 +QCL.7J4"1*M7ESNR	Y3P?LT*M3D7U+MCY7\CJE7N6JWD7M	M6 	\3P
AE*M3D7UM	Y7\CX3AWG*M>J****************************************************************************"**M6/VI3NWT7RKP7OKG3A7M2 3P+OCT6(" 3P
A+E2 6 CY3AWG* B,3IWP+N& *M>J****************************************************************************"**M7\CX3AWG2,JI3LOO/KJI6M2J3YGP+G3E2I3B3O/C"I622J+\3P;E2,JI3LOO/KJI6M2J3X?PS&,3B?LC	K"3*M7\CY+O3S2I3B3O/C"I632J	\3P;E2,JI3LOO/KFI6M2J3FOAT&,3B?LC	K"3
M7\WLN&,3B?LC	K"1*M7\I2,JI3LOO/KFI6M2J3I?X+R3G2I3B3O/C"I612J	\Y&,3B?LC	K"1*M7\	I3O
R2,JI3LOO/KFI6M"J7PSN6,2I3XGPG7E2J;P+T3R"I602J;C+T3R"I602JG]2,JI3LOO/KNI6M6J"6&,.2Z0.6J;.2B7.;N5"363.JO].,JI.0V6.;V7.0.1.3B7"2*M3P?LT&,3B?LC	K"2*M2IGT7D"I7PSN"M&J3DGC2I;PT7R6JRIA	D.(Z-"M&J3DGC2I;CT7R.JGA6,RI+ACD7IBI7LSO"M&J3ION2I3P+OOT"M&J3DGC" 	I7PSNR*M2
;I7CBI7NKT"M&J7I+S2I;CT7R2J*IM	PA61*JB/*M>J* B * B 7XV +NCD+Y6 2 ?K3OSR3IGN3T;E2 WU7BKE3NE3M;E2,6 +ICT3D7E2 GM+S7S*M>J* B * B 3SGT3B[S7ASC+OCR3USN2 WD7NN 3C3A3E[N7ASC3OWR3N6 7USL3I3P3I	Z3EWRN*M*/B * B 2 ;U7DV 3MGW3NWD+LCN+ICN7ISN3EWG3RR 7AOR3T3E3L;UG6.*JB
*M>J* B * B 3X?P/S6 6 CX3AWG* B*3FOAT*M"/*M3C3A/LF 2,[IA7D6JKA7G2 3XGPG7E2JGC+LCL21Z,M7P6JKA7G2 3FOAT*M3C3A/LF 6,SSO*M3A
R6 \7POO*M>J* B * B 3Y?P/S6 6 CY3AWG* B*3FOAT*M3C3A/LF 2,[IA7D6JKA7G2 3YGPG7E2JGC+LCL21Z,M7P6JKA7G2 3FOAT*M3C3A/LF 6,SSO*M3A
R6 	\7POO*M>J* B * B 3IWP/N6 6 CJE7N2JGT3D& 2 +\3P;E2MRJ+CCA7\CIE7N*JB/*M>J* B * B 7UKM3EC3N;E2 WD3R. 7OKO3D;I3AWT3N& 3N& 7NKC3EWM3NWT2 ;UD*M*/B * B 6 KU7SKP3U
N2 SA3DWI3R;E".*M"/6 .JF/*0B52 & /X6 6 I3O
R* B+3I	F+XB(3X?P+S* . ^4..J6*7B9")*M2 GC+LCL21Z,A7D6JKA7G6 "3*M3C3A/LF 2,7FP*M3A
R6 \7POO2MNJ3A3L* 207FI6MRJ+ACD7\I3O
R2MRJ+CCA7\I*M>J* B * B +ICY2=& 7YKO+G. 2 [I+IX6 CY+OCS.*V .0N..6^0" 6)2JGC+LCL21Z,A7D6JKA7G6 "6*M3C3A/LF 2,7FP*M3A
R6 	\7POO2MNJ3A3L* 207FI6MRJ+ACD7\	I3O
R2MRJ+CCA7\	I*M>J*M>J" *M*/B * B 2 WV3C?T7RR +YCP7TOE3T;E*M>J" *M2IGT7D2I3IWPN*M2I7S3AN L7A2J*IM	P/\R1"0*M"/*M2IGT7D2II7X2JRIC	A7\I3O
R"M&J3TSA2I	\Y*M2IOD7A2I3I?YR7G6JRIA	D7\CIE7N2JNII7A2JRIC	A7\CIE7N"J6/.JG\*4202IGT7D2I3IWPN*M2IGT+D"I"-626JNI+NCA3CGL"M&J7JCM.IG\"7&0*IB/7OSU7PSU2 	L7GSH2 WV3C?TR*M"/*M2IGT7D2I3IWPN*M2IGT+D"I"-636JNI+ZCA3CGL"M&J7JCM.IG\"560"J6/6JRIA	D.(V3"M&J7JOM6IWO7TWPT
M2I7J7P2I.1B7*I>I6 WO7TWP3TR 3A/R2 WV3C?TR*M"/*M/\V1"0&,3TSA2I	\3P;E"M&J3TSA*I6("4*M6I+S3AN L7A2J*IM	P/\Z1"0*M"/*M2IGT+D"I"3632J*IM	S7OSU7PSU"M&J3TSA.IF("4*M2I7J3S>I7UCTU7T6JRIA	D.(F-"0602JRIC	A7WSCR&I2/2 3OSA2 GW+ICT7CWO3NWTR*M2IOD3A:I3U3L2M2J+P216IOI3Z:
3U3L"M&J7JCM6ICL"1*M6IOI7Z^I7CKT"M&J7JCM6ICL"1*M2IGT+D"I"3652J*IM	S7OSU7PSU"M&J7JCM.IG\"760"J6/.JG\*6202IGT7D2I3IWPN*M2IGT+D"I.-^1"4676JNI+ZCA3CGL"M&J7JCM.IG\"9606JRIA	D.(V1"M&J7JOM6IWO7TWPT*M2IGT+D"I"1622J*IM	S7OSU7PSU"M&J7JCM.IG\"960"J6/6JWN+L3L"I602JOW
T3R"I60"J6/*JB/* B 6 " 6-V +NCD3Y.-7OKO3D;I3AWT3N& 7NN 7TWE7E+R3EOI3H;E6 WFE7R*JB/* B 6 R 7ESK3R;O7IOX. B4*06621^ 7RCA3HOI2 	D3S3P+ACY7UKM3EC3N;E*M>J" *M/\^1*0B,3TSA2 	\Y*M7RKT6;SR7RJ;A7R2J;A+D" "3672JGT+D" "4602J*IM	S7OSU7PSU6MRJ+ACD7\	I2MFJ+NCD.(^36MRJ+
CD.(R1"0*M2I7J3S>I7UCTU7T2JGT7D2 I7X6JSR7RJ;/T/R7RKA2MFJ+NCD.(^36MRJ+ACD.(B4"M&J7JOM6IWO7TWPT*M3TSA2 	\X*M3ASN. N("7*M3TSA. F("0602J*IM	S7OSU7PSU*M>J" *M./&1*0B 2 WR7TKUN*M/\&1"0&,3CGL2 3CL*M2 WR3T;R2 3PO7T*JB/*M>J6IWA3SGG+BCE6-V 3NWT7RKP7OKG3A7M*M>J2M>J7
CT+U3T"I606JRIL7S2JNI+LCA3C3L"M&J7JCM" 	I7OSU7PSU"M2J3D7U+MCY3\3JU7N6JWD7M	M2 ;\3LOO2MRJ3U7M7Y2 7IWBF*M7ESN+RCY3P?LT7S2J;E7T	R2 3P3I	N*M>J****************************************************************************"**M6/VI3NWT7RKP7OKG3A7M2 3P7OOT* B(7IWB+
2 2 3N+OCC2,2 +UCN")*M*/**************************************************************************"*6*2J	\3B[U2,J 3LOO/KJ 6M2J3N?L+CB,3B?L+CCK"2*M3\3J+U3N2 3B3O/C" 62.J[]*1B,"0*M"0*M"0*M/]F3.,J .0R1.MBJ.MBJ*M>J* B * B 3SKU7RWO3T;I7EB 7LSO+S" 2 KI+UCF2,: 3
OO* B,7JWL+N& 6MBJ3L;II6,2J3P7OOT2,J 3LOO/KJ *M>J* B * B 3FOA/T6 * :12MNJ3A3L* 213FSA2MFJ+RCG/]F32MNJ3A3L* 213S?T2MFJ+RCG3\GFC7T2JRIC	A7\I3O
R"M&J3DGC2I	\7YKOG*M"/6 *JB/* B 2 N 3A3L2 3P+OCT.(B *.B0.,B *.B0*,6 *4& 2MNJ3A3L* 233P?LT*M3A
R. []"1*M3A
R. []"1*M3A
R* 6("4*M"/6 *JB/* B 6 J 7EWTR7N6JRIA	D3P?L+TOS"M&J3TSA.IZ("M&J3DGC2I3P7OOT"*M7RSE+RCN3P?LT7S*JB/"M2J3D7U+MCY3\GF3C?T2MVJ7NKT3YZ 7ASCO*M*/**************************************************************************"*6*"J&/7USN7ECR3R
O3R7A3MZ 7ASC+OCR2(Z 7ASC" 6)*J*/****************************************************************************6M2J3FOA+T3O2 3B3O/C" 62*JB/* B 6 N 7UKB7OSU3IWN2 GF3C?T+R" 3FOA7TKO")*M3FOA+T3O2 3B3O/C" 622JGT3D& 2 GF3C?T2MRJ+CCA3\GF3C?T2M&J+NCC3FOA+TOO6MRJ+A
D3IZ 7ASCO*M3DGC2 [\7ASCO62J;I3CZ 7ASCO6*JB/* B 2 Z 7ASC* B=3FOA7TKO2MNJ3A3L* 213IGFD*M3A
R2 [\7ASCO*M3C3A/LF 6,SSO*M3A
R2 [\7ASC*M>J" *M*/B * B 2 WR7TKUN*M7RSE+RCN3FOAT7O*JB/"M2J7ESN+RCY3WWHR7E*J*/*****************************************************************************M>J2I;U7TKE3P?R3GGR+MCM3WWH+RCE6(" * B,+Y2 2 GF+CCT")*M*/*******************************************
******************************"*6**JB/* B 6 N 7UKB7OSU3IWN2 W3EWR* B(3XGP+GCE6,& 3P
A+E2 2 GF3C?T+R& 6M^J7HKE+EB,3B?L+CCK"2*M3TSA* CI3WWHR7E2JOD7A2 3XGPG7E2J;I7C^ 7HKEE62JGT3D& 2 W3EWR2MRJ+CCA7\CX3AWG"*M3ION2 W3EWR"*M3TSA* CI3WWHR7E2JOD7A2 3YGPG7E2J;I7C^ 7HKEE62JGT3D& 2 W3EWR2MRJ+CCA7\CY3AWG"*M3ION2 W3EWR"*M3TSA* CI3WWHR7E2JOD7A2 3FOAT7O
J;I7C^ 7HKEE62JGT3D& 2 W3EWR2MRJ+CCA3\GF3C?T"*M3ION2 W3EWR"*M*/B * B 6 CX3AWG* B=3X?PS*M3C3A/LF 2,GFD*M3A
R6 \7POO2MNJ3A3L* 217ISSO*M3A
R6 \3P
AE*M*/B * B 6 CY3AWG* B=3Y?PS*M3C3A/LF 2,GFD*M3A
R6 	\7POO2MNJ3A3L* 217ISSO*M3A
R6 	\3P
AE*M*/B * B 2 GF3C?T/R6 2 GFC7T2JGC+LCL21Z,A7D6JKA7G2 3FOAT*M3C3A/LF 6,OIT7O6JKA7G2 3FOAT7O*JB/*M>J* B * B 7RSE3U;R6MJJ7EKT7N^ 7HKEE*M"/6 *JB/* B 2 V N7D2J;ED6 &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