File MAC3O.MA (MACREL macro assembler source file)

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

"/&97POA/SN 6 CS3E	C3FOI2 ?CD7E*JB/286-+A7R"7&83A3L+OCW3P	R3N	T+NCG26R-3I	G7TB C*M./F 26F-+U7G"7&83CGH3NWG3D2 3IWN2 ?C7USN+ECR+SCO3TGH3T& 3TR 7OOE7NR	2 ?C7USN2 ;U7LOI3TSE2 	L7NOE*M>J6IRI7HOI2 WM7AON2 ?N3TF +LCL7POA7SOE2 ;K+OCW3A?B+UCT3SKU2 GP+GCE3N7U7BKES
M2I&.3N3C3UWD2 
M3LKO2.GM"M&J6.OA7ESC2 GM3C>32,WL3V3E*=213OWV3RGL/YF="4*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2/?C7PKY3IG+TB *(	C. F .9^76 	B2 	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J3TWH2 ;I7FKO7MSA3I;O2 ;I2 T+ICS3DOO3UWM+NCT+ICS
SKU3JOE7TR 3ON 3H;A+GCE7WSI7HWO3T: 3O	TC7E2JF/+NCD3S?H3USL2 ?N3TJ 3EN 7OON7TWR+ECD+ACS3AN 3O7M3I7T7ESN6 	B2 	D7GSI+ACL7EWQ3I7P7ESN*M>J7CKO7PKO3A	T+O;N2 R 3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?I3NF 7SWS7MOE2 ?N2 WR3S?P3N	S3B3I7I	T*M>J7FKO2 ;A3YV 3R?R+RCS3TGH3
6 +ACY7ACP7EKA2 ;I2 T+ICS3DOO3UWM+N;T*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."J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J&L6.E7TKE3N3A2 3K+U273P3R3I?N"M&J6.E7TKE3N3A6 OA3E3M3VJ,3A/C+U3P3BGR3NC6,KC+E3F7ESN+E3R7EOO6,KE7RKO6,EP7R*J:I7ESX3E;R+ACL3FOS3H/E2,WG3TC3R^,3E/T+A3R7GSE3S7Y2,WL3TWT3R2,7ISS+E3R3L?O7KCU6,KO+I3G7OSU2,GP7R	SM
M2IV.3XWT3RGN7LB 7AOS63B,+O3P7POU7HB,3UKN+I3T7PSU7BSI6,WP7T	S7MB,3UKX+I3N3RGE3D;L2,?R/T[L2,OSA7N*J:I7ESX3E;R+ACL7OSU7SCK2,	L7NWB3FN,3OOL+N3T7OKV3L;I2,WS7TSI2,WH3A	DN7G*J:I3G?L3B3A6 KP7ISN7YN,7EST6,KC+L3F7LOI7TR,A7B*J:I3G?L3B3A6 CD3R;I3T>,3P	R+N3T3P;R3DS"M
J2J6I3E	B/TR="0602J6I3EKB/I7T.2B0"M6J2JZI3I3E/DN "M6J*J*I.2B0"0*M"M&J3R3E+OCC.1B4"0*M"M&J"1&56IB/7AOS+ECS21F +NCD63N 3POE3I	FC*M6MBJ3R;I+T3Y"I602JRI+CCA3L[N3L
A2IF//CF=2 WM7AON2 GW+NCT3A2 3IWN6 WN3MWBR*M2IGT3D& 2 >(7UOTK7P6JRI+ACD/Q
Q"0*M2I;S3AN L7A6JRI+ACD+I" 3MOA7L[E"M&J3SGN2 3CA*M2I7J7PB 3R;IT&12/3A7W	A7SB 3R;I3T> 3NV 3R?R3R> 3R: +OCT+ICN3MOAR7O6JRI+ACD+I" 7LOI3TSW2I&//FR *0B07BSI2 [O2 	L7S
T3D> N*M2I;A+D" 3MKEI	T2/WR7TKUN*M2I;S3AN L7A2J*I+MCP3P	R/NGT"M&J3TSA2 OP3FGLG*M6I+S3AN L7A2J*I+MCP7IB 3R;IT7Y6JRI+ACD+I" 7LOI3TSW"M&J3ASN6 GQ.2B0*I*/"*&*3ASN2 7[3EKBI7T6JNI+ZCA3CGL"M&J7JCM* CI3P	R7N	T6MBJ3R;I+T212I7J3S& 2 >(3V3RI7N6JRI+ACD3L[N3L
A"M&J3SGN2 3CA*M2I7J/PN "$&I2/?N2 	L+NCE3N7U7BKE2 GW3NWTD*M2IGT3D& 2 6(3A3CE7V6JNI+ZCA3CGL"M&J7JCM* R3*I>I+NCO3L;I3E: 3UKM7EOR2 ;O2 GM3C?R2 WG7NKE3AWT3D2 3IWNS*M2I	C/FJ "0*M2I7J3S& 6 B(3R	LN7O*JR32:*I+MCS+I" 3TKA6IR/+ACB7OSU2 ?T2 OP2 ?C3L7UN*M2IGT7DB 3C3F
	G2/WYS*M6I+S3AN L7A2J*I+MCP3SGP7CSI"M&J3C[I. B2"M&J7JOM* CI2(3KU676JRI+ACD3R3EO7K6JNI+NCA3CGL"M&J7JCM6 CS3A	C+T>I+NCO3R3EO7C6JRI+ACD*(*""M&J7JOM* CI3Q3Q7ISSE	R6/KP7ISN* B*7ASF+ECR3R3E3OGC3TSE2 OP6MNJ3POA+I3T2I7J3S& 6 R(A	B2/GT3B> +UCT+TCO3B;I7A	R2 	F3ESL
M&J3TSA2 ;B3FGLG*M6I+S3AN L7A2J*I+MCP3SGP7KSI"M&J7JOM* CI6(KP3N	BN*M2IGT3D& 2 2(3N
KE	N*/B7+ICF3L;I3K^ 3EWN7RSA+ECD2(3E+SCE"06)6JRI+ACD/QSQ"0&I2/WM3R3E7YB 3R;I7TN 3POA3E> 7RF 7USOE*M2I7J3S& 6 GQ7LOI7TKE"M&J3TSA2 3FG*M2I;A7DF Q&7*I"/23& 3S^ 3OSO2 ;E3O
UH*M2IGT+D" 3R3E3TKA"M&J3DGC2 WTM7P6JRI+ACD7IR 7ECM2I^/+ECT3R3E3OGC3T?I7NN 3YKMO7L2J*I+MCS7IF 3Q	L3SWT+R>I3P	R+NCTI7T6JCS3A	KT&,3TSA2 2(3IKN+U7F"1*M2IOD3A2 7ICN"M&J3TSA2 	L7NWOT*M2I;S3AN L	A2I&/7SR 7HKE3EF 2 	L+NCE+TCO3P	R/N?T"M&J7JCM2 ?EL&I2/?N6MRJ3TGTB&
7JOM* CI2(GT+B>I3SGP+CCE7OSU2 ?T2 ?S3UOR3E2 3IWN2 	F3ESL6M^J3R?L+O3P2I;I+CCR3L;IP*M3T3S*1212ISC/FF "0*M2IGT3D& 2 	LN7P2JNI+DCF"0*M2I;SA&I2/GL+SCT3CGHR6?2J*I+MCP3E3O*I>I7YOE2,F 3TV +NCD+OCF3L;IE*M2IGT+D" .-F1"M&J3SGN*I>I+ICS+ICT7AR /A?B"M&J7JCM6 ST3TKA"M&J
TSA6 OT/LF1"M&J7JOM* CI3Q3Q7ISSE	R6/WP3TN 7HKA2 ;I6 WO7TWP3T2 3IWN6 WB3FWFR*M6IOI3Z& 2 N(3OOLN7T2J*I+MCP3W3R7OCO"M&J7JOM* CI3QOQ3R[L*I*/2*N*7OSN7R[O7EOR3I3A"M&J7JOM* CI6([O3R	L+N>I****"**M2IGT+D" 6-SX7AOB"-632JRI+CCA3T7EP*M2I7J3S& 6 R(A7B2J&I+SCZ3T7EP*M2I
J+P: "-622J*I+MCP3W3R7OCO"M6J2J	L3NGSV&,"0*M3L[N3L
A.,BI"M2J3E3O2,*I+MCS7IF 7QKCL7F2J*I+MCP7IB 3R;IT7Y2J2L7ICN",&I2I2/3IWN2 ?P7ISNE7R2JWS+T3T"I606JRI+ACD3L;I7PKT"M&J3DGC2 	L3NGSV*M2IGT+D" 3L;I3B[U"-612JRI+CCA3L;I7PKT"M&J7JOM* CI2(WS7TSI6IN/+ECT7N
E2 	T3TWL6 KF+OCM7ESN3IWR2 	F7RSS2 	LN7E*J6I3HGE3D;L*I>I7WSI7HR 7HOI2 WL7NSGH*M2IWH3A	D+N7G*1>I3S?T+RCE+ICT7HKEE*M/P[S"0&,3SGT2 7CL*M2IGT3D2 7IONA7V2JRI+CCA3L;I7PKT"M&J7JOM* CI3Q
Q3EOTH	R2/WS7TV +P^ 3CGH+RB	3ASN2 J	7IOT2	F 3G	AN*M2I7J3P& 2 WST	T2/WR3J	O7NB 3ROO7EOS3I
N"M6J*J*/**B*3W;A7TR 3O^ +ECT+TCO7SSE3T> 7NB 7AOS* B1+ICF3T>-3FN-"M6J6JBI3AWG"M2J2I[I3D[E2 3P+MB "<*M6/NI7BST3L>I3CGT3LF +NCD3DOE3IGM7LB 3R;I7TJ 7OSU3IWNS*M"/*M*/^I7OKP7ISN2	F +NCD6	CD3R;I+TB	3AWR6 OU+ECD+TCO3P	R+NCT7OSU* CA3N7U7BKE*M>J2I;I2 OO3T3A6 KO2 W
3C7I+ACL3AOS+ICI7ROE3POE7T[I7E	L*.B 3EOA3H& 3SN 3A3LE7D"J&/7WSI7HR +HCE3N7U7BKE2 ;I2 T3EF C6."J&/+ICF3TWH2 	L+NCK+ICS+OCN*-B 3TWH7NB 3R;I7TR +HCE3N7U7BKE2 ?T* B43PGL7COE*M>J2I	W+TCH3LGE3D;I/GB *	;S*M>J2I[I2 T3E2 3I/N6 OI2 [O+F6 2 T+ECN3P	R+NCT3TWH6 WN3MWB
R^ 3IT2 WL3A	DN7G"J&/3SGP7COE2 [I6 B	+A
D6 OI2 WS7TR /OR *0" +TCO64B 3LOA+E	S6 KO2 
I7NKOE*M2/2I3ESA3I
N* ^03S& 7FB +ACD+ICS*0B.2 & *.;E6 B	+A
D6 OI6 OU+ECD+TCO3PSA*M>J6IWO3T> 7NR +HCE3L[ET6..J:I"M6J6JCD3R;IT&,"0*M2IOD3A: U7M2J*I+MCS7NKP7ISN"M&J7JCM* CI7DKP7ISN"M6J2J[L3L
A.,BI*I>I3N;O*-B03MGE+NCS3D;O*	CT3C3R3FF 3TV N7D2J3L7PKT.,BI"M6J6JCO3R;IT&,"0*M2IOD3A: U7M6JRI+ACD/QSQ"0*M2IOD7AB A7D6JRI+ACD/Q
Q*I>I3CGH3NWG2 R	3TKA+L
E2 ?T2 >	3TKA+L
E"M&J7JOM6 CN3R;IT*M2I7J3P& 6 CO3R;IT*M2L2/3I/N2 ;O2 WM7AON6 KP7ISN2 WL3A	D+NCG60N	* B,3L;I3K> +FCF3MGE+NCS7SCU3PWR+SCS3TWHM*M2M:J3P	R+N3T"I&02I2/3I/N2 ;O2 WM7AON6 KP7ISN2 WL3A	D+NCG60N	"M&J3TSA2 R(3TKAL7E2JRI+CCA7NSPR*M2IGRR&I2/	L+NCK+TCO/ACC2M:J/PGR2,RI
CCA3Q?U+T>I7ZKE7OF 7USO3I;ET*M2I7J3P: 3P?LO	P6/WJ+MCP7ISN3O2 7OCO2M:J/PKR2,RI+CCA3N7U*I>I3USP3AWT2 WR3M	A3NWDR*M2I;I+CCR3Q?U+T>I3B7U7PF 7USO3I;E3TJ /YF 2M:J3P?L+O3P2IGT3D& 6 CNT	R6/WS7BKT7ASC. B1*020. B1*0B,+OCR"1606JNIN	A2IF/+RCE+WCE+ACT3ESN2 [O2 GT3BWL"
*M2I7J3P: /POR6I&/+E3S2 GS/WB ".*M2I3CL*M2IGT3D: U	M6IN/7USB3ROA3TZ 3R7O2 :	+U
M"M&J3S3Z*I>I7H[A7E^ 3E^ 3OWN2 WN7GSA3IWV"?*M2I7J3P: /PKR2I:/+OB,3KWE7PN 7USB3ROA3T;IG*M2I3CA&I2/WY+SB,3T	H3SR 3I	G3TR 3OWN"M&J3ION3R: 7PKT6IB/3O;I7TR 3O: 7ESX2 	D7VOI+OCR+ICN7LOIT*M2IGT7DF 7USO2I2/3O/O6 SA2 WN3WR 3I	GT*M2I;SA&I6/OI6 SI. >0"M&J7JCM2 WL/AC
6I&/+E3S2 
I7NKO3E2 3ESA3I
N* ^0S*M2IGT+D" ""&02I:/+OB,3C;O7VKE7TR 3OF 3S	CI*M2I7J3S& 6 GQ7LOI7TKE2I>/7UCT+UCT3D
II7T6JNI+TCL3CGL2 GR+R>I.4B0"0*M2I7J3P: /PGR2IZ/3OOR7E* 3E?R+ECS+TCO3P	RN7T6JCN+R232IGT3D: U	M2I^/+ECT3R7E3A;I7DKE6 V(7NSI*	CS3D
I+I	T"M&J3TSA* J("0&I2/?C3NWV+RCT+TCO3AOSI7I2J*I+MCS7IF 3Q	L3SWT+R>I7A
L7AOY6 KP7ISN6 SI"M&J7JCM* CI7NKP7ISN6IJ/7EWTR7N"J*M3LGE+D202IGT7DB A	D6IB/3R;I3T2 3ESA3I
N* B0+ACS7AN 3POAE*M2I;SA*M2I7J3P: 3P?LO	P2/
I7NKO3E: 3U3LS*M2I7J3S& 6 GQ7LOI7TKE"M&J7JCM6 CN3L?OP*M6LOD3H;CT6,6JKC+L3F"I606JRI+ACD.(V1*I>I3P	R+NCT+C?RL7F2J*I+MCS7IF 3Q	L3SWTR*M2IGT+D" "1622J*I+MCS7IF 3Q	L3SWTR*M2I7J3P& 6 KCL7F*J>L2I7J3S2 7ISS*M>J6ISP7RR 3OF 3S	C3I2 3IWN* " +ICN3FWI+LCD"16)"J*M2/T+I
S7RWO3T;I3E& 3SN 3A3L+ECD+TCO3S;E3DF 6 SS3R;I3G> 3FF 3S	C3IN 7HKA7ASC7EOR*M>J+TCO3TWH2 	L3S	T+NCG3F3I+EB.3A
R6 OI6 SP7RR 7ON 3T	R+NCG3W	H+CCH3C;O7SOI+TCSO7F2JN/7OON7EWC7T[I3EF 3S	C3IN 7HKA+S" 61B +ECR7WKO+DB)7TKE3M;I3AWTD*M6/	B* CA7WKO3D> /FB 2.F 3C: +O7N206 3E;A3SR +O
N3TN 3R2-F6."J*M7LOIT&,"0*M2IOD3A2 3FGL+G>I+ACC3N;O*-B03MGE+NCS3D;O3TN 3R2-F*M2IGT3D& 2 	LS	T2/	P+CCK+UCP3A
R3UWMN7T2JRI+CCA7LCLT	R2/GS+VCE7PKT2 ?T6 OA3C	I2 	LN7E2J&I7NKC2 	LS	T2/?P7ISN2 ?T2 ?N3RGM7LJ 7EWTR7N6JOL/TF1",*M7LSS7LCU2,NI+DCF"1606JRI+ACD3I2 7LSP+R>I7GSE2 WN+XCT3CGH3ROA7TKE"M&J3C[D" 606JNIN	A2I&/7SR 7HKE3EF +NCY7MKOE6?2J*I+MCP3ESN3O3F2I:/O*M2I7J3S& 6 
Q7LOI7TKE6I&/+E3S2 WS+NCD+TCO7LOI3TZ 3IWL"M&J3ION3R2 7LSP+R>I3P	O+NCT+TCO7NE3TN 7HKA7ASCE7R2J*I+MCP7LSS7LCU6IJ/7ESI3EGRT7E"J*M3ESN3O3F6,RI+ACD3L3FA7G6JNI+NCA3CGL*I>I3DWO3SN 3A3L+ECR3W;A3TF 6 KC2-[L"?*M2I7J3SN 3R[L6I&/E7S2J*I+MCP3I2 7ISS6IJ/7EWTR7N"J*M7NSP
&,"0*M3Q?UT&,"0*M6LKP7NODH&,"0&I6/KP7ISN2 GD3SWH3S> 3N2 7ISS2 	FL7E6JRI+ACD+I" 7LOI3TSW6IR/3O6 3AWK2 	L7TKE7AOL6 SS3ASN6 WOT*M2I7S3AN L	A6I^/+HCY+MCE3GSO"?*M2I7J3S& 6 GQ7POAS&36/OI6 SI2 GP+SCS"36?2J*I+MCP7IB 3RSNS	H2/?N2,: 3OR 3ASE7S2J*I+MCS3TKA*I>I7YOE6,
 +ACB7OSU2 ?T2 OP2 ?C3L7UN*M2IGT+D" "-662JRI+CCA3DS7CSN2MRJ3S3H+U3P2IGT3DR 3AS"M&J7JOM* CI3Q3Q7ISSE7R2J&I+SCZ3DS7CSN"M&J7JCM6 OD7HWL+P>I3P	R+NCT25R 3ASE7S2J*I+MCS7IF 7QKCL7F2J*I+MCP7IB 3RSNS	H2/WR7TKU+NB,+NCO7WOIE7R"J*M*/**2*N 7OWL+MCN7CWO+NCT3BSA"M6J2JRI
E	C3M3A2MRJ3TKA+L3E.IF-.0.0.-B1";602J>I3CGTL*M3R3E3TKA.,RI*0>I"0*M*I.".IF/2MRJ3AS*,JI*->I"2*M3SGTR&,""&*"/636JSO3A3BE&,.-B1.0.0.-B1*06;.1.0"0*M2I[I7NKZ3O> 3TKA+L7E3DGT3BWL*-B72<W
3R?R/R;
"M6J6JR/3A3B3E> 7FJ 3E?L7CSA3I;O2 GM3R	K7NOG2 ?F/RR 2 GM+ICN7TCY+ECS+OCF3R3E3OGC3T?IN*M6LKP3N	BN&,"0*M2IGT3DZ L7G6JNI+PCA3CGL"M&J7JCM6 SS7AOR"M&J3TSA2 	B7NKAY*M6ISSL*M2I7J3S> 3P	RN7T2J*I+MCP7IB 3RKNI7N6JSS7AOR6,RI+ACD.(R-"M&J3DGC2 WTM7P6JRI+ACD3SGTR*M2I7J
S& 6 GQ7LOI7TKE"M&J7I+S2 WTM7P2J*I+MCP..N-"M&J7JCM* CI3P;R3B;I"M6J2JGTB&,"0*M2IGT3D2 /SGT"1*M2I7J3S& 6 GQ7LOI7TKE"M&J3TSA* CI2(?C3L;CT*M2IGT+D" "1602JFI+NCD/Q
Q.7B7"M&J3DGC* CI2(?C3L;CT*M2I7J3P& 2 GTB*M2IGPG7E6JJI3E?LC*M"ZB"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"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