File MACLIT.MA (MACREL macro assembler source file)

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

./J12IGM3CWR3L2 3IWT3R3A6 [O3E3RA7Y*JB/286-+A7R"7&87KWL3DWG3D& 3NF 3U	X3LGI+RCY3SOE3TN 3H;U7KN 7UCP7OSR*M>J. ^16-WA/G^-28ZI3IWX3DJ +UCG7WSI+H" Z7L*JB/*2633A
U.-"76IOF7ESC2 	L7TKE7AOL"M&J2.;I7CWL+DCE3M3G+O;BM7A*J:I3AWS+CCT3MOA7LSI2,WL3V3E*=223OWV3RGL/YF="0*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>J3TWH
 ;I7FKO7MSA3I;O2 ;I2 T+ICS3DOO3UWM+NCT+ICS3SKU3JOE7TR 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+RCS3TGH3T6 +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.E7TKE3N3A6 OA3E3M3VJ,3A/C+U3P3BGR3NC6,KC+E3F3C3R3FR,3P	R+N3T7ESN+E3R7EOO6,KE7RKO6,EP7R*J:I7ESX3E;R+ACL3FOS3H/E2,WG3TC3R^,3E/T+A3R7GSE3S7Y2,WL3TWT3R2,7ISS+E3R3L?O7KCU6,KO+I3G7OSU2,GP7R	SM*M2IV.3XWT3RGN7
B 7AOS63B,+O3P7POU7HB,3UKN+I3T7PSU7BSI6,WP7T	S7MB,3UKX+I3N3RGE3D;L2,?R/T[L2,OSA7N*J:I7ESX3E;R+ACL3P;U7YB,3AWG20N,3O;M2,	L3T?K3MN,7UCR+A3G7POU+H3L3P;R3DS6,WO3TGD7TB,3O3P"M&J6.E7TKE3N3A2 	L7TKK3FN,3NOVN7V2JZI3I3E/DR "M&J2.3G3OGB7L* 3SOE+T3G7PKU3G3E6,WO3T	L3
.,/LU2,3K/UF1"M6J*J*I.2B0"0*M"M&J3R3E+OCC.2B4"0*M"M&J"361"J*M3ZWS3C
T.,BI"M&J3TSA6 WC3ROST*M2I7J3S& 2 N(3NGVD7R2JRI+CCA/XSR"M&J3S3T2 GRR&I./B4"0606JRI+ACD7I" R642JRI+CCA3N7AE616JRI+ACD7I" R642JRI+CCA3N7AE626JRI+ACD7I" R642JRI+CCA3N7AE632J&I+SCZ/XSR"M&J3TSA* CI/XSR2I^/+ECT3FGLG*M2I;A3D2 .1B0"M&J3SGZ2 3CA*M2I7J3P^ 7EWN+N>I3
WP3CGIL6:"J&I2I^/3EWN7RSA7EB 3AWG* B07LSI3EGR3LZ +OCR3U;N3AWM7DN 7ESC3I;O"M&J3DGC6 WQA7L2JNI+DCF"0*M2I7J3S& 6 GQ3L?O7KCU"M&J7JOM* CI3QWQ3NWTR*M2I7J3S& 6 GQ7GSE3S7Y"M&J3TSA2 3Z3T?LC*M2IGIC*M2IOD7AN 7Y[MA7L6JRI+ACD3FGLG*M6ICS3AN L7A2J*I+MCP3Z
SO*M2IGT+D" .4V0"0*M2IOD3AZ 3L
A2I&/7TN	* CA3ZWSC7T6JRI+ACD3FWR7ESPR*M2I;SA*M2I3HT*M2IOD7AN 7YOMC7T6JRI+ACD3S7Y7SSC"M&J7JOM* CI2(;C3VSAR*M2IOD7A* L*M2IGT3D& 2 3Z"M&J3DGC6 KF7ECET7R2JRI+CCA7I* L*M6IOI7Z* L*M6ISS7LJ A	R6IJ/7ESS3ROI3T2 3IWT3R3A2 WSC7T2JRI+CCA7I* +L>I+TCO3TWH2 GS+MCE3FWI+L
D+ACS3M	A7NN 7ESC"M&J7I+S2 3Z"M&J3TSA6 WC3ROST*M2IOD3A& 2 3Z"M&J7I+S2 3Z*M>J2IGT+D" .4R0*0>I3T	H7SV 3S3E7EOS2 	L+NCE7WWO+LCD3GGU3R;A3TWE"M&J*I>I3TGH7TB 3AWG* B07LSI3EGR7LN 7ESC2 WW+NCT7ISN7OJ 7OSO"M&J3DGC* CIZ	L2/?N3T& 3N> 7VKE7L	A"M&J7I+S2 3Z"M&J3DGC* CI
	L2/?N3NN-3OON3AWT7NSAE7D2JNI+DCF"0*M3Z
SO&,7JOM* CI7QCQ7UOTY7M6JRI+ACD3S7Y3N7U"M&J3DGC* CI6(OZ7ESCN*M2/RI+CCA7ZSL3LOO"M&J3TSA* CI6(OZ7ESCN*M2I7J3P& 6 OZ7ESCG*M2L3Z.,BI"M&J3SGN2 3CA*M2I7J7PB 3RWGN	D2/?N2 	L7TKE7AOL*M>J2IGT3D& 6 *(3SOET7N"J&/3SGN"M&J7JOM6 OZ7ESC+G>I7GSE2 WS+CCT+OCF7LSI3EGRL7S2J*
+MCS7IF 3QWG7T	S+M>I****2 GM3Y" 3AWV2 ?D+NCE+ICT7AKL3ESA+Y" 3IWN+F	F"M&J7JOM* CI6(WPN	Y2/GP+SCS"2*M2I7J7P* 7OSU2I:/O*M2IGT+D" "3&I2/WYS*M2IOD3AZ L7G6JRI+ACD3QGUL*M2I;A7DF /Q^3*7>I7GSE6 OL7DWNM*M2IGT+D" 7N
E7SSC6IN/7WSI+CCH+TCO7N
E2 WS3C	TO7N2J*I+MCS7IF 7QWP3N	BT*M7ZWOT&,7JOM* CI6(WO3T	LT*M2IGP/GCE6MBJ3RWG+N3D2I7J3P& 2 3Z"M2J3G;E+U3N2IGT7DR 3RGMB7S2JNIM7A6JRI+ACD/QKQ"0602JRI+CCA3T7R7AOB6IR/7HOE3E2 3IWT3R3A7SJ +UCN7D
O3NZ 3R7O. ^1"7*M2IOD7AR 7RKME	L2/;I2 GS+MCE7AOB7OWL+TCE3SOE3T?IN*M2IGT7DR 3RGMB7S2J*I+MCS+I" 3HG7SSC"M&J3TSA2 3Z3T?LC*M2I;SA*M2I7J3P& 2 N(3O;M2IZ/7IOR3T2 3IWT3R3A"M&J3CGI"M&J3TSA6 KT3MKAS*M2I7S3AN L	A2I:/+ECW7L
O"?*M2I7J3P& 2 2(3I/TO	M2/?N"M&J7JCM* CI2(?CM	N2/WYS*M2L3Z+I3T2IGT3DN 7UORC7T2J*I+MCS7IF 3QWG7T	SM*M2I	C/FJ "0*M2I7J3S& 2 .(/LGU"M&J7JOM2 3Z"M&J3DGC2 3Z3T?LC*M2IOD3A& 6 *(3SOET7N2J*I+MCP+I" 7PKUG7O"J*M"I602JWL+X212IOP"M&J3B;I7A	R"M&J7ECX3R3E"M&J7ECX3CSO"M
J7CKU7SSC"M&J7CSS3YWP2M2J.1B02,"I3IWSK*M2I3FG*M7LE"2&,7FKOM*M"I60"J*M2I&.3F: 3E" 3IWS/KF-*0B02<W
3R?R/R;
"M2J3F?L"2&,3TSA6 	S3MOST*M2I7J3S& 2 N(3NGVD7R6JRI+ACD"(&56IB/3O;I7TR /OV +TCH7WKO3D> 3FF 3U	X3LGI+RCY7CWHN7K2JRI+CCAZ7L6JRI+ACD3S7Y3V3A6IN/3AWV6 
A+ACY3L;E3GT2 [O2 T+ICS3FWSC7T2JRI+CCA7I* +L>I3B[E3OWR2 SA3D;I3G& 3NF +NCY7LSI3EGRL7S2JNI+DCF"0*M2I7J3P& 2 Z(L7O6JBI3AWG"M2J7PKU3G3E.,BI"M&J3DGC2 	KN7D2JNI+ICF"2602J*I+MCS+I" 7KWL"1602J*I+MCS7OSU7LSI2M2J3P
A2,NI7UCRA7G2J?N+L212IOD3AN 3L3TO7C2JRI+CCA3HG3LOO6MBJ3U
RO&,7JCM* CI7PKU3G3E"M6J2J3L+O3C"I602J	K+N3D"I&0.IF/2 [I6 WP3R	G+NCG3P
A/EB 2 	L7TKE7AOL"M&J*I>I20& 7FB 3U
R3I
N6 WC3RWR+NCT3P
A3E	L7TKE7AOL"M2J7LSI7KSN.,BI*I>I7CWO3NWTR*M7LSI7PKT.,BI*I>I7POT2 ;I+TCO7CKU3R;E7TB 3AWG2 	L7TKE+ACL3TKAL7E"J*M6/RI+ACD3LOO2 [O2 GL+SCT7LSI3EGR3L^ 3EWN7RSAE7D"J&/7JOM6 WO3T	LT*M6/BI+TCR+TCO7LSI3EGR7LR 3A3BE*M2M>J3U3T+I3T"I602JRI+CCA3L?L+C>I7S[A3E2 +OCC+OC
7LOA3T2 3IWT3R3A2 WG7NKE3AWTD*M2IGT3D& 6 WO3T	LT*M2IOD3A2 3P
A6IN/3AWV2 	L7TKE+ACL3P
AE*M2I;I+CCR7OSU7LSI"M&J7JOM* CI6(WP3S3H"M&J7LE"1*M2IOD3AV 3XOPO7D6JRI+ACD3K;ID*M6I+S3AN L7A2J*I+MCP3Z?L"M&J3TSA6 OC7TCYE*M2IGT+D" .-B3"M&J3SGN2 3CA*M2I7J3P& 2 Z(/LKO6I^/3EF +RCE+ICN+ACN3FWSC7T6JRI+ACD3L?L+C>I3WGH7TN	2 GL+SCT7LSI3EGR3L2 3OGC3T?IN6?2JFI+NC
/QGQ"7&72/WG7TJ +ECL3LOO2 ;O2 GPG7E2JNII7A6JRI+ACD/QKQ"0&02/?C3NWV+RCT+TCO7LSI3EGR3L: 3UKM+ECR*(61*7&7"M&J3CGI"M&J3DGC2 	L3T;K+T>I3N
E2 [O2 ?N2.> 3F2 3IWT3R3AS*M6ISSA*M2IOD3A& N7K2J*I+MCPO7F6J*L+L3O6/RI+ACD7ZSL3LOO*M>J2I7CA*M2/RI+CCA7LSI7KSN"M&J3TSA* CI6(OZ7ESCN*M2IOD3AN 7UORC7T6JRI+ACD.(B5"M&J3DGC6 OC7TCYE*M2IOD3A" 3IWSK*M3F?L2,RI+CCA7LSI7KSN2I2/+ECT*-B13ESN2 GT3BWL"M&J3CGL2 GIC*M2IOD
A& N7K6JNIT7A2J*I+MCP/OKF2M>JF&,3TSA2 	L3T;KT*M2I	CA*M2I3C7LJ A	L2IR/3OKU+L;E. J(2 ?W7ROD2 WP3R2 3IWT3R3A")*M/OKF6,RI+ACD3LGP+G>I7GSE6 SP7RR 3OV +NCD+OCF7LSI3EGR7LR 3A3BE*M2IOD3A2 7ICTT7R2JRI+CCA7FKOM*M2IGT3D2 3I?NU7T2J*I+MCS7IF 7QWPS7H2JRI+CCA3L;I7OSU"M&
3TSA6 OC7TCYE*M2IGT+D" .-B3"-616JRI+ACD3I/N"M&J3SGN2 3CA&I2/?N2 GD3SWH3S> 3NN 7UKR7ESN2 GP+GCE3FWS+CCT7LSI3EGRL7S2J*I+MCP7LSIL	P2/;A3D: 3O> 3R
I+ICN3CGH3NWG"M&J7JOM* CI7QCQ7AOS"3*M2I/SP*M2I7J3S& 6 B(3RSNS	H2/GH/C+K6 KP7ISN2 GD3SWHS*M2IGT3D2 3LOO"M&J7JOM* CI3Q?Q3R
I2M2J3I3TP&,7JOM2 7C3N?MV*M6I+SL*M2IOD3A: 3AWM"2*M2I;SL*M2IOD3AV 7XKPE7L2J*I+MCS3C;M7M[O"M&J3S3Z"M&J3DGC6 E3PWRL*M2I;SL*M2IOD3A: 3AWM"2*M2IGT3DV 7XKPE7L2J&IA7C6JNI+NCA3CGL"M&J7JCM* R3*I>I*-B13ESN7SR 3A3B3EF 7S^ 3E3L6 OA2 	L3T;KT*M2IGT3D: 3AWM"2*M2I7J3S& 2
>(3UST3AGT2I^/3EWN7RSA3EJ 3IGNR7Y6JRI+ACD7POAS*M2IGT+D" "-646JNI+ZCA3CGL"M&J7JCM* R2"M&J3TSA6 CLA7G6JRI+ACD3MGP/GCE"M&J7JOM* CI2(	L7TKKF*M.2*$6IOI3Z2 3I/TN7T2J*I+MCP7LSIL7P*JR36:NIT7A2JNI+DCF"1602JRI+CCA3I2 3P
A"M&J3C[D" 602J*I+MCS7IF 3Q?PP*M2IOD3A2 3I?NU7T"J&/3TSA2 3LO7C"J&/3TSA6 GQ.2B0*M>J2I;A7DF /QZ7"0606JRI+ACDP7C2J*I+MCS7IF 3Q
H3HOST*M2I7J3S& 6 B(3O3P"M&J7LE"2*M2I7J3P& 6 WO3T	LT*M2L7C3N?MV&,"0*M2I3CL*M2IGT3D& N7K6JRI+ACD7LSI7PKT"M&J3DGC2 	L7TSP+R>I3P	O+NCT+TCO3V3A+UCE+OCF7LSI3EGRL*M2ISC/FF "0*M2IGT3D& 2 	L7TSP+R>I7GSE2 KA7SZ 7AWLE*M2ISC/FB "M&J7JCM* CI3C;M7M[O"M6J2J;IK&,"0&I*/B
+ICF60B-3AWG*,6 21& 3FN +U7R3P
AE*M*M>J3P
A/EB 2 	L7TKE7AOL2 ?G2 ;I+TCO7AN 3POE3I3A2 WS+C;T*M>J3S7A3E: 3AWM6 OA2 GP3R;E+TB,7BSU6 SS7ASR7S^ 3IT* :$*M>J7AJ 7EWG7LKA2 WS+CCT3N7A3E6 +ACY7NSO6 SS7ASR2 	W+TCH+AR ".*M2M6J3P
A+E206IB-3AWG"0*M2IGPG7E6JJI3E?LC*M*L:I3RWS+CCT7KWL/DGG"M&J3FWI+LCD"2*M7KWL"1&,"0*M2IGT3D& 2 Z(3L
A"M&J3ASN. F("0606JNI+ZCA3CGL"M&J7JCM6 KP7GCS+L>I3U;N3AWM7DN 7ESC3I;O"M&J3C[D. B1"M&J3TSA* CI2(GP/GCE"M&J3IOA"M&J3C[I2 SC/FB "M&J7JCM* CI7KWL"1*M6MBJ7ROG+P3L2IGT3D& 6 *(3L3TO7C2JRI+CCA+I" 7CSL3LOO6IR/3RGE3TF 3SN 7UCR3AWG2 	L+TCS7BSU2 ;O2 GP+GCE"0*M2IGT+D"
3P
AE602JRI+CCA+I" 3LGPG*M2IOD3A& 2 .(3ISN6IB/7RSE3ESN6 SI*	CS3AN 7UKR7ESN2 GP+GCE7LSI3EGRL*M2I7J7PB 7LSI"M6J2J3K/UB1.,BI*I>I7WSA+CCH+IGT6 SS3R;A+GCE+I3FD7F6JRI+ACD+I" 3K;ID*M2I	C/FB "M&J3SGZ2 3CA*M2I7J3P& 6 *(7LSI"M&J3C[I. B2"M&J3TSA2 N(7UCRA7G2JRI+CCA+I" 3
GPG*M3P	LT&,3TSA* CI6(CLA7G2JRI+CCAT6$2JNI+DCF"1606JRI+ACD7IR "$*M2IGIC*M2I	C3FN +DCF"0*M2I;S3AN L7A2J*I+MCP+I" 3N3O"1*M2IGT3D& 2 N(3L3TO7C2JRI+CCA3QWTM6$2JRI+CCA+I" 7CSL3LOO"M&J3TSA6 SQ+ESM"M&J7JCM* CI7KWL"160"J*M/T*$"I606JSQ+ESM.:BI"M2J7KWL*121"I602JRI+
CA7LWN+M>I7S[A3E2 3IWT3R3A6 WN3MWBR*M2IGT3D& 2 N(7S	TP7E6JRI+ACD.(N-"0*M6I+S3AN L	A2IF/+RCE+WCE+ICN+ACN3FWS/C?T"M&J7JCM* R2*I>IN7O6JRI+ACD+I" 7CKU7SSC6I&/E7S2JNI+ICF"0*M2I7J3S& 2 N(3NOVN7V6JRI+ACD"(662JRI+CCA+TST"M&J3TSA* CI+TST"M&J3C[I" 602J*I+MCS+I" 7C[
7C[N"M&J3TSA. V("M&J3DGC6 ST"$*M6ISSA&I2/;L+U
M3SJ 3E	G3NF /TF 2 :(+OCT"06)6JRI+ACD7IR T6$2JNI+DCF"0*M2IGT3D2 3N7U"M&J3DGC* CI6(KT3MKAS*M2I7J/PN "$*M.2*$2IGT3D2 3N7U"M&J3CGI"M&J3TSA. J("0606JRI+ACD+I" 7LSI3P
A"M&J3DGC* CI6(KT3MKAS*M2IGT3D& 2 N(3L3TO7C6JNIN	A6I^/3EWR2 T3EWR2 ;A3Y2 3IWT3R3A7S& /E?T"M&J7JCM* R5*I>I+N3O2 ;I3I	T3A	L+ZCE7FKI+SCT3OWN"M&J3CGI2 3CL&I2/WN7GSAE*M2IGT3D& 6 R(3RGMB	S2/?C3MGP+RCE3T	H3S2 +OCC7WSI3H> +LCD3OWN"M&J3S3Z2 3CA&I2/W3IC6 OI2 7S3A3L
E?R"M&J7JCM* R6*I>I2	3C3T?L+CB	+ICS3SGM3LWL+RB,+SCO7N
E2 ?L7WKE2 	L7MSI.MVJ"$&:3TSA* CI6(KT3MKA+S>I3V3A+UCE+ICS3SGM3LWL7RN 7ON +ECT7N
E2 N	3L3T+O
C"M&J3DGC* CI2(3C3T?L+C>I3R7E3EKM+ECR3WWH+RCE+WCE3G;E3EGR3TSE* CA7LSI3EGR3L2 7ASS.MZJ"$&:3TSA* CI6(OC7TCY+E>I7GSE6 	T+PCE+OCF7CKU3R;E7TN 7ESC"M&J3TSA* 6("1606JNI+ZCA3CGL*I>I+ICS+ICT+ACN7AN-7ESC"?*M.3*$2IGT3D& 2 N(7UORC	T2/?N2;2 3IWT3R3A2 SA3DWR+SCS+ICS*16
7BSI2 WR3LOO3AGT3BWL"M&J3DGC* CI6(KT3MWR+L>I7YOE"M&J3C[I" 602J*I+MCP3I. /LGU"1*M6MRJ/T*$"I602J;L+U3M"I602J.L/LU2,RI+CCA+I" 3T7R3R3E"M&J3TSA* CI6(KT3MKAS*M2I	CA*M2IGT3D& 6 *(3L3TO7C2JNI+ICF3C[D" 606JNI+MCA3CGL*I>I7N
E2 	H+GCH7LSI2 ?LC6?2J*I+MCP+I" 7LSI3K7O2I:/O*M2I7J3P& 2 N(3O;M6I&/E7S6JBI3AWG&M*J"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"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