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

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

./" 3KZ 7OSR3R;A2 ;I3T
E+ECR7MSA7HB 3A/C3AWG* B ****2 ;I3T
E/RB.*4* "*6*"J*M>/>I"I	???>I7OSC3OWB/RJ *1B,.1^9"0*M*M>J7CCO3Y	R7GSH. &1*629.1^9>0>I2IS?3I	G3T3A6 GE7UCI3M;E3TN 7OCR".*M>/>I"I	???>I7M	A7NKA+DB,7MOAS6."J*M"/*M"/*M2IW?7NKT?Y>I3IWRM*M2IW?7NKT?Y>I3IKAS*M2IW?7NKT?Y>I7D[I"M&J3?;E7T	R2I7?P7Y>J>I7ESNR	Y7?KI7D
S"M&J3?;E7T	R2IO?3LGER*M2IW?7NKT?Y>I3SKUS7C"J*M2/T3EZ 3O3L3O	W+NCG3D[E3I	N3T?I+NCS3AWR2 ?T2 ;E3A3B3E2 7IKB7A	R*M>J7OSP3I	M7ZSA3I;O7S^ 7HKE3EN 7RSI3IGC7LR 3I	M+NCG3C;O3SSI3EGR3T?IN7S2JV/7XOI+TB.2 T+ECY3S?H3USL2 WB6 OU+ECD7WSI3HV 7XKT3EWM2 GC3U	T+O3N*M>J3AS
6 WM+SCT3R[E3EWR3NWC6 WC3RWR+NCT3P
A3EF +NCD3P
A7E* 3E?R6 	S3M?BL7S2J>/7N	L".*M"M&J7?CO3D[E6IS?3A	D.IG?.4B0"M&J7?CO3D[E2IS?3C	A.IO?.4B0"M&J7?CO3D[E2I+?3M	S.IS?.4B0"M&J7?CO3D[E2I+?3M	P.IW?.4B0"M6J>J>I7LCA"I	?3?2/3VF 3U?T2 GP3G;I3GZ +OCR3P3A2-	I3I2 3IWK2 ?CD7E"J*M+A3C.IC?"I	?3?2/3OGC3T?I+NCS3UWS3DJ 3Y6 
PCY2&R I7V6JGM>,>I"0*M3S
IN&,?606JSCR&,?602J?LC&,?602JGSV&,?60"J*M7M	P>,>I3B?LC	K?&23?&/3NWT7GKE6 WM3L	T7P	L6 WS3B?R3U	TN7E>J>I3DGC2I7??Q>I2/N 3A3L* 217M	P"M&J3?GT?D>I7M	P*I??6 KA/G2 3N7U7BKE">*M2IS?C	A7?CMY616JCM+Y212I;?O	P??>I2/WR3PGL3CSE6 	B2 SCF*M6IS?3A	D2I7?+POY"M&J3?;I?C>I7
	P"*M2IS?C	A7?CMY62>J>I3TSA?I>I7M	P"*M2I	?N	C7?CMY6>J>I3DGC2IS?I7V6JCM+Y222I;?O	P??>I2/WR3PGL3CSE6 	B2 SCF*M6IS?3A	D2IS?I7V>J>I7JOM2I7?7POYB*M6IK?7EKT?N>I7M	P"M6J6JCM3YKS>,>I>0>I*I??7ISN3E;R+ACL3M3U7TCI3LOI3A	T+OCN3SKUR*M2IS?C	A3?	DV*M6IS?A	D+?6("164>J>I3
GC2IO?T7R2JGB+C3K2IO?+LCL3R3A"M&J3?OD?A>IA7C>J>I3TSA2I7?Q*M2IO?+LCL3R3A"M&J3?OD?A>IM7Q>J>I3S3Z"M&J3?GT?D>I7D[I"M&J3?GT?D>IA7C>J>I7I+S2IO?T7R>J>I7JCM2IK?3A/C"M&J3?7JP	I7?CM3YKS*M>J"M&J7?CC3AWG.IS?2MRJ7I+VA&,3?	DV7Z6J[D7EKR>,>I.4F4>1>I"I	?+?J/7D[I+ZB"7EKRO7
>J>I.2N6"2*M7D[I>,>I3B?LC	K?&23?&/3NWT7GKE2 	D3VSI7EN 7UKB7OSU3IWN"M&J3?7S?A>I*I??2 GC+LCL21R,I7V>J>I7JCM2IG?D&1+?B/3A
R2 R<3I	V7SKO">*M2I	?N	C3?	SG7N>J>I3CGI2MFJ+D212IS?C	A7?GM"M&J3?GT?D>I7D[I"M&J3?OD?A>I7D[I"1*M7D[I"1&,3??N?P>I*I??7RCE3LOA+ECD+BCY3C[D"M&J3?GTD	I3?	DV6>J>I3ION2IS?+IOV"M&J3?OD?A>I7D[I"2*M6IS?3A	D2IS?+IOV"M&J3?;I?C>I7D[I"*M2IS?C	A7?CMY*M7D[I"2&,3??NP*M6IS?
A	D2I7?P7Y>J>I3SGN"M&J3?7JP	I3?	D3VGZ*IC?* B 2 F/3TWT7MSP3I
N2 ?T2 	D3VSI3EJ 7Y* 3E?R"M&J3?7SA*M2I+?M	P3??L/OGP"M&J3?;I?C>I3S
IN*M2IO?I7A2J?L/OGP>,>I3C3L2 GRL*M2I	?N	C7?SCR*M6IO?M7A>J>I7JCM2I3?7OCO"1*M2IO?+LCL7RKA"M&J3?OD?A>I3LOO"M&J3?GT?D>I3LOO"M&J3?	CA*M2IS?C	A7?CMY*M6IS?A	D7?SCR*M2IO?M7A>J>I3DGC2IO?T7R>J>I3TSA2IO?T7R>J>I3DGC6IO?A7V>J>I3DGC2IG?C*M6IS?A	D7?GM2M2J7OCO"2&,3?GT?D>
7M	P2M2J7OCO"3&,7?OI?Z>I7CKT"M&J3?/SP*M2I+?M	P3??DN7E>J>I3S3T"M&J7?CSA*M2IO?L7L>J>I3DGC2I7?Q*M6IS?A	D3?OA"M&J3?GRL*M2IS?C	A3?OA"M&J3?GT?D>IM7Q>J>I3C3L2 GRL*M6IO?N7L>J>I7JCM2I3?7OCO"2*M6IS?A	D3??LC*M2I+?M	P3??L/OOP2MRJ3OWN>,>I3CGL"M&J3?GT?D>I3S
IN*M6IK?A7R>J>I3CGL"M&J3?OD?A>I3S
IN*M6IS?A	D3?OA"M&J7?+SL*M2IO?I7A>J>I7RSER	N3?	DV*M2M&J3R7E>,>I3B?LC	K?&23?&/3NWT7GKE2 WR3M	A3NWD7RN 7UKB7OSU3IWN"M&J3?3C?A>I*I??2 GC+LCL21&,3R7E"M&J3?;I?C>I3IWRM&+?B/3A
R6 V<7NOU+ECD7VKA3IKA/L;E"M&J3?;I?C>I3IWRM6>J>I3ION6IO?A	V3?&/3R7E6 WM+SCT7H[A3EF 3NF 7RWG3M;ET*M6IS?A	D7?GM*I??3BOE7AOU3E& 3T& 3SF 6 WF7NSC3I;O".*M6IO?P	A??>I6/KI+ECM3C;A2 WB2 GC3LWL3D> 7N	L2 ;OC7E>J>I3TSA2I3?O	C3?F/3FWT3RV 3AC2 	D7VOI3I;O* :.".*M6IO?K	P
?>I6/WS3BWS3QWU+NCT3C3A+LCS3W3I7LJ 7EWT+RCN7ZKEO6.2J?LP&,3?3C7LJ A7R>J>I7I+S6IO?A7V>J>I7JCM2I3?O7P>J>I7RSER	N7?KIE7M"J6/>J>I3P
AE*M"L*M3IKAS&,3?3B3O/C.IK?*I??7ISN3EWG3RF +BCS3V3A+UCE3F;U3C	TO7N>J>I3TSA2I	?7AOB*I??2 GC+LCL21&,7AOB"M&J3?OD?A>I3IKA>1>I2/F +RCG2<;I3T
E+ECR7VKA3IKA/L;E2M&J/AGB>,>I7NCO"M&J3?GTD	I3?GI+BOS"M&J3?;I?C>I3IKAS6>J>I3DGC2I	?/AKB"M&J3?GTD	I3?GI+BOS"M&J3?;I?C>I3IKAS6>J>I3DGC2I	?7RODW*M3IKA"2&,3??N?P>I*I??3C[D2 ?T6 KA3G7U7ESN2 	F3ESL"M&J3?GTD	I7?KI7D
S"M&J7?CSA*M2IO?I7A>J>I7RSER	N3?GIB7S"J*M3ISR+S3W2IK?3LOO?K>I>2>I2/WR+ACD3S	W3TC2 WR7GOI7TKE6 WF7NSC3I;O"M&J3?3C3A> S7R>J>I3ION2I	?7RODW6>J>I3ION2I	?7RODW6>J>I7RSER	N7?KI7D
S"M6J2J	D+V3Z* B 3C3A+LB . F 6,KE7RKO*I??7ZKE3OR 3I	V+DCE7EKRO7R*JB * B * B 3A
R* B 2 R 7VKER*M2IO?+LCA3C3L2 7C7AJ A7R*JB * B * B 7RSE+RCN2 R I7V"J*M2/T3EZ 3LGO3T;I7GB 3O;I3TN 3LGE7RJ 7OSU3IWN2 GW3SF 3DWD7DR +OJ 7ISN7EKG""*M2/?S2 T+ACT3P?R3GGR+MCS3W	H+CCH+DCO7NSO6 OU3EZ 3LGO3T;I7GB 3O;I3T6 3AT*M>J3C;A6 WR7N^ 3IT7OSU2 ?L3A	D+NCG3TWH*
;F+PB.7MSA7HB 3A/C3AWG".*M2MNJ3LGER&,3?3B3O/C.IK?*I??3F?L3A	T+NCG3P	O+NCT3CWL+ACR3F;U3C	TO7N>J>I3DGC2I	?7RODW*M2IS?C	A3?OAH*M2IS?C	A3?OAM*M2IS?C	A3?OAL*M6IS?A	D7?KI7D
S"M&J3?WR3T;R2IO?3LGER*M"M2J*M>J2 T3EZ 3O3L3O	W+NCG3C;A2 WB6 OU+ECD7FKO2 ?D3U3B3Y> 7RN 3I
NL7Y*JB/3SKU7SKC7ISP+ECD7AKR7AOY*.B +OCN7ESN+RCY3TWH2 OA2 S3O3U3DJ E*M2/: 3EGG7T[I3EZ +OCR3F?L3A	T+NCG3P	O+NCT7VKA3IKA7LOE*.B 3T	H3S6 A7Y*JB/+BCE7A	N2 WN7GSA3IWV6 WN3MWB3RZ +OCR3S;I7G	L6 WS3BOS7RCI3TSE*M>J2 GV3RGI3BWL+SB,3ASN6 WM+SCT+BCE3TWH2 	F7RSS2 	D3M
E3S?I3NZ O7R*JB/7DWO7B	L6 WS3BOS7RCI3TSE2 GV3RGI3BWL+SB.2 ?S+MCE3EGX3M3PE7S*JB/3F3O7L
O>:>I2(?T2 ?L+ACD3TWH* 3I3JT2 3E3EWM+NCT+OCF+ACN+FCP7AKR+A	Y"M6J"J&/3?GT+D" "-	M??>I2/	D3M;E3S?I+NCS3AWR* CM+BCYN*M>/>I3C3A/LN 6,WS3BOS*M>J2IG?+RCGJ*M>/>I3A
R" 7I"J&/7?KA3GF 3RGRY*M>/>I3LOO"I	?3?6/7USS2 WB* CA3D7U+MCY7VKA3IKAL7E"J&/3?GC+LCL21&,3FSA*M>J2IG?+RCG3LOO"M6J*JB/+TCO3LGO7DR +HCE3JT2 3E3EWM+NCT+OCF+ACN7ISN3EWG3RF 3RGRY6:"J*M>/>I3C3A/LJ 6,WS3BOS*M>J2IG?+RCGJ*M>/>I3A
R2 ;I7TKAR*M>/>I3LOO"I	?7?N/3T3I3LF 6 WD7M	M2 GV3RGI3BWL*M>J6IS?+ACD3I2 O7C"J*M6MNJ"1&,3?3B3O/C" &1??>I2/SA+DCR+OCF61SS6 WS3BOS6MNJ"2&,3?3B3O/C" &1??>I2/SA+DCR+OCF22SN6 WS3BOS2MFJ>,>I3B?L+CCK>2>I*I??3ASD3R> 3FF 3RGRY*MR&,3?3B3O/C" &1??>I2/SA+DCR7FKO2 WR3S
UT*M+T3M.IC?2MZJL&,?&0??>I2/?D3U3B7EN 7UOB3CZ 3L
A2M:J>,>I>0>I*I??3D7I7EON3I;O* 6-2 WN7GSA3IWV2 [I2 3F7OSA3I
N2M6J+Q3A2I7??Q>I*I??7FKO2 ;I7DKI7ESC2 ODA*M6MNJ7UOBC&,3?3B3O/C" &2??>I2/?F7RKT+ACN3SKU7SKC7ISP3I
N2 ?R3U	TN7E>J>I3DGC" 	N??>I2/GS+VCE3TWH2 	D3M;E3S?IN*M6IS?+ACDN*M6IO?P	A??>I*/:.2.F 3L?S2 KA7SZ 7AWLE*M2IO?M7A>J>I3DGC3I6 Q	A7?^/3A;R3I
N* **3T	H3SF 7SWS7MOE2 [D6=WC+RCR3FWI+L+D"**M2IO?+LCA3C3L2 7C7AJ +ACL2/?H3W6 7A	N6 KA/G?S"M&J3?GT7DN 7UOBC6>J>I3DGC. B1"M&J3?GT7DN 7UOBC*M2IS?+CCA3SKU"1*M3SKU"1&,3??N?P>I*I??7RCE3LOA+ECD+BCY3C[D"M&J3?GT+DCI"160>J>I3ASN. F("060>J>I3SGN2 3C?A>I*I??7DWO3BWL6
WS3BOS7RCI/T?S"M&J3?7J7PN B60>J>I3TSA/IF >0>I*I??7YOE6,B 3I/C6 CU6 KA+G;S".6.>J>I3DGC2 KS"2*M6IS?3A	D. B1"M&J3?OD7AN "2*M2IO?M7A2JKS"0&,3?OD3AZ ?L>I*I??7SSE2 KD7LN 7UOB3CZ 3L
A"M&J3?GT+DCI"160>J>I3DGC2 KS"1*M6IS?3A	D. B1"M&J3?OD7AN "1*M6IS?3A	D. B1"M&J3?OD3AF "M&J3?GT+DCI"160>J>I3DGC* OA"M&J3?GT7DN 7UOBC*M2IS?+CCA3SKU"2*M6IS?3A	D. B1"M&J3?OD7AJ "M&J3?GT/DF "0*M2I	?A7C>J>I3DGC6 WS3BOS"*M2I	?+SCZF	L??>I2/KD7LN 7UOB3C	R3P	T/N?G"M
J3?7J7PN B61>J>I3CGL2 7C?A>I*I??7GSE2 T/EJ +NCD3SKUS7C2JKS"2&,3??N?P>I*I??3C[D2 ?T2 	F3ESL2 [O2 :27DN 7UOB3C	RP7T>J>I3TSA7IN "2*M6IO?Z	A??>I6/OI6 SI* CA"16?>J>I7JOM3I6 7POYB	A3?:/+OB,3M3U7TCI+LCY+BCY3D7I7EON3I;O6MNJ+B212I;?O	P??>I2/SC7FR 3OZ 3I3E3D> /FF +
CT3SKU7SKC7ISP"M&J3?GT+DCIS61>J>I3TSA* 6(>1>I*I??3M;I+UCS3OWN"M&J3?OD7AR M*M3SKU"2&,3??N?P>I*I??7RCE3LOA+ECD+BCY3C[D"M&J3?GT3DF "M&J3?OD+ACIR*M2I	?+NCCR*M6IS?+ACDN*M6IO?+PCA3CGL"I	?3?Z/3IWX3D> 3RZ 3LGO3T;IG*M6IS?+ACDT7M>J>I3C3L2 GRL*M6IS?+ACDT7M>J>I3TSA* 
A"M&J3?OD+ACIR*M6IO?+TCL3CGL6 SR?L>I2/GF+SCT2	WR3T;R6 WS3BOS"	*M6IS?A	D7?WS3BOS"M&J3?OD?A>I3SKU"3*M3SKU"3&,3??N?P>I*I??7RCE3LOA+ECD+BCY2	SC3FN +I
F"M&J3?7JP	I7?WS3BOS"*M2M6J7POY+B3A2I7?7POYB*M"M&J3?;ED*MBLBZ

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