File MAC3R.MA (MACREL macro assembler source file)

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

*/B57POA/SN 2 ?R+OCT+TCO3MOA3R3E"M&J2.;I7CWL+DCE3M3G+O;BM7A*J:I3AWS+CCT3MOA"37R"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/2JN/7O	P3R
I+HCT2 N(*)B .1^927J 3YR 3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?IN*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2/T3E& 3N?F3RGM3T?I3N& 7NR 7HOI2 ?D3C7U7ESN6 OI6 WS3BWJ+CCT+TCO3CGH3NWG2 	W3T?H+UCT7NSO3IWC*M>J3ASN2 S3O3U3D: +OCT+BCE3C;O7SKT3USE6 OA* CA3C7O7MSI3M;E3
J 3YR 3I	G3T3A6 GE7UCI3M;ET*M2/?C3R?P7RSA3I;O*.B 3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	T+OCN7AOS3UWM3S: 7OJ 7ECS7OON3I	B7LSIY*M2/?F3RF +NCY7EKR7OOR2 T+ACT7M	A6 CA3PGE3R& 7NR 7HOI2 ?D3C7U7ESN".*M"/*M2/T7EN 7OSF7WKA3ER 3EOS3RKI+ECD+ICN3T	H3SR 7OWC3M;E3T& 3SZ 3U;R3IS+ECD+TCO3TWH6 WP3RC3AWSR*M2/;U7DKE* CA3LOI7EON
EZ +OCR3UWS2 ;O* CA3S;I3GWL2 ?C7MWP7TKE6 	S3SWT3MF +NCD3C;A2 WB2 ?C3PWID*M6/^(3IT2 ;I7CWL3S?I3N> 3FR 3I	G3T3A*	CS7CCO3Y	R7GSH2 ?N3TOI+EB)3O3N3YZ +OCR3UWS2 ;I6 WSC7H6JN/7YSS+E3M6 E7CCE3TF 3S6 +ACY3OT7E
R3IWS2 WB6 KP3O	V3DSE2 ;I6 KW3I	T+NCG+BCY3D
I3IGTL6."J6/2JR/3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?I3NF 7SWS7MOE2 ?N2 WR3S?P3N	S3B3I7I	T2 ?F7RR +HCE3UWS*M>J+OCR3R3E3IKA3I	L+TCY+OCF7IOT2 ?S7F
T3AWR2 ;O6 GE7UCI3M;E7TR 7HSA6 OI2 ?N7TN 7UCP3LWI3DJ Y*M2/	D7GSI+A;L*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J"M2J2IV.3XWT3RGN3LF 3S7E+L3V3BOA7KCU6,KB3AON3HN,3R[E6,KC+L3F7DKP7ISN2,;E7TKE2,?E3SV,3R?R3RV,7XKP"M&J6.E7TKE3N3A6 OF3CWH3K^,3EOT+H3R7GSE7KKA2,WG7T	S
M2,7EST+E3R3L?O7KCU6,KO+I3G7PKA3S7Y"M&J6.E7TKE3N3A2 ?P7PB,3US6,WP3N	B7TB,3UKT+I3T7PSU3S7Y6,WP3X	B7NJ,3ESA+L3N7RSO+L263SGCN*M2IV.3XWT3RGN7LB 3R	L+N3O3P	R7N	T2,WS+T3T7LOI3T",3ESA3I
N6,WS3B3T2,	F3L;E3OZ,3I7L+S3G7LOI7TKO"M&J2.3G3OGB3L> +U3T3WSI+T3H7N
E3P
A2,KS7TSP3R2,7ISSE7R*J:I3G?L3B3A6 WO3T/S3P>,3V3R+I3N7POA+S233C3O7CSN"M6J*J*I.1B0"0*M"M&J3ISF+ECF3P7L. 2 *M>J6IWOT*M"/*M6/RI7HOI2 ?R3U	T+NCE7OSU7PSU3SF 2 	L+NCE+TCO3TWH2 	L3S	T+NCG3F3IE*M6/RI3OWG3TWH7R^ 3IT2 3A7LR +HCE3B;I7A	R6 SS3U[F2 ;I2 T3E2 7ESF2 GM3R	
N*M2/FI+NCD7AOL7OR 3AWK3SN 3AWR2 [O6 WS+CCH7SWT+FCF+ACS3P
A3E" 3ESA3I
NS6,"J&/3L;I3EF +NCD3C3O3U;M2 ?C7USN+SB,3P
A3E: 3UKM3E	R+N3G2 	L+NCE3N7U7BKE3I
N2,V +T;C*M>J*M>J"1&.+ICF3TWH2 Z	3O7R2	Z 3L
A6 OI2 WS+T" *=&16,R 3H;E* CA7N
E2 GP+GCE+ICS3SGT3RWTD*M2/JI3YN 3A3L3I
N2 ?R3U	T+NCE2	WN3WGP+G:	6 R 7HSA2 GH3N3D+ECS3P
A3E: 3UKM3E	R+N3G6 SEC6..JJ/*.^I3PSA2	& 7SN +ECT+TCO7AN 3POAE6..JN/2.&I7FR 7HKE3E& 3S: 3O2 3IWN2 ?T6 KP7ISN2 ;A7DR +HCE3B;I7A	R6-E3T;E3S?I3NZ 3L
A*M>J2IJ(3E3F+A	G6 OI2 ?N7TN +E3T2 T+ECN3T	H7SJ 7OSU3IWN2 WM3R3E7YJ 7EWT7RON",*M2/RI3O;I3G: 3OT3I
N".*M*/:42I[I2 T3EWR6 OI2 ?N2 	L+NCE+TCO3P	R+N3T6 WB7TR 7HKE3EF +RCE3B;I7A	R6 E3T;E3S?IN7S"J&/+TCO3P	R+N3T2 ;A7DN 3OWM2 	B7NKA3Y" +ACS3BWE3N^ 3EWN7RSA+ECD2(;B3F
L*=&0*M>J2IT+ECN+WCE3P?R3CWE7DR 7ON 7TCE* B87ASF+ECR3C3A3L;I+G^ 7OKV3L;I"	6..JV/6.RI+HCE7CKU3R;E3T2 3IWN6 WN3MWB3R& 3S& 7NKC3EWM3NWT3DJ /YF ".*M*/"I3T	H7SJ 7EWS+LCT+ICS3S?H+WCN+ICN+MCQ7FKO2 	V3SGU3LV 3FWF3C	T3V;E7EOS2,2 *.;O")*M*/:62I[I6 SI6 OI2 ?N7TB 7AO
*3B,+WCE7RSE3U;R*M>J"7&.2	GP+DB	+ICS7SSE2 ?T* B0+ICF3TWH2 	L+NCE3N7U7BKE2 WG+TCS7EWQ+ACL+TCO.1B020> R*M2/2I3A
R+E3R2 ?S2 T+ACT3TWH2 ?L3W> 3RWD7RB 7ASR6 KP7ISN7S^ 3IT2 WL3A	D+NCG60N	".*M*/:82I[I6 SI6 OI2 ?N7TB 7AOS* 232 WW2 WR7TKUN*M*/:92IT+ECN+WCE3TKA6 WO7TR 7OR +HCE+PCC3C3O3U;M".*M./B12.&I+F^ 3P[C3L
A2	& /SB 6,R 3H;E2 WW6 KP7ISN2 T3E2 3OGC3T?I3NN 3O;U7TKE*M>J2IGV3LWU*.B 2(T+ICS+ICS6 B	+C6	*1& *M>J*1:12IT+ECN+WCE3TKA6 WO7TR 7OR +HCE3B;I7A	R2 ?C3L7UN6..JF/"2&.+ICF2	;B3FGL+GB	+ICS*0B,+WCE3P	R+NCT3TWH2 WG7NKE3AWT3DJ 3IGN+RCY2(T+ICS+ICS2		B7NKA+Y&	*M>J*1:
2IT+ECN+WCE3TKA6 WO7TR 7OR +HCE7SWO3RWC2 	F3ESL6.^ 7EN +ECT2	;B3FGLG6	"J&/3ASN6 B	3C3F+A
G2 ?T* :0*M>J*1:42IWW2 ?N7WB 3R;I7TR +HCE7SWO3RWC2 	L+N;E6 ^ 3E. 7ECE6 KT3A/C2 [O2 W+ACT3C3O3U;M*M>J2IWW2	WR6 KP7ISN3I
N2 ;I2 V(3SWP3CGI7L	L2 ?F7RR 7AOB2)F +NCD3B7UP*M*/^I3C3O7CSN2	F 3C?C3R	D3N3G+YB.2 W3EWN7VKE2 N	3OOL+N
T2 ?G+ECS+TCO*0B,+WCE3K?NW*M6/^I3EF +RCE+ACT3TWH2 ;E3D> 7FR +HCE3R
I+HCT7MKA3G;I6,N 7O^ 3EN 3A3L*M>J2I>	3V3R+I
N6,R 3H;E2 GT3B> +UCT+TCO3TWH2 ?C3MWM+NCT3FWI+LCD3ASN2 ?C3N	T3NWU*M>J2I?T6 KP7ISN2 T7EJ 3EGM3ISN+ECR+OCF3TWH2 ?S3UOR3E2 3IWN".*M"I6>*J>L+ICF+NCO3L;I7ER 7OB 3R;I3TF +NCD+NCO3B;I7A	R2 WG7NKE3AWTD6,2JR/+O
N7TB 3R;I3TF 7NSY3H;I+GB.*****M>J3W;A7TR 3O: 3UKM+ECR3A3L2 	L7NOE2 ;I7CWL3D;I3GV 7MSP3Y2 3IWNS6."J*M/LB1*020.IB1"060"J*M7OSU.,BI"M&J3TSA2 ?FR7M6JNI+ZCA3CGL*I>I3SGT+RCT3A: +ECW3P
AE*M2I7J3S: 7ECWA	G2/WYS*M2IGT3D& 2 2(7ISSW7D6JWO3T/SP&,3SGP2 3CA&I6/OI2 	L+SCT/O?N2IO[3H;A3GSE2 ?T2 /S3PN +LCA+ICF7EKR+OCR3OOC7UOR]*M2I7J3P: 3O	LS	T2/?N2,: 3O2 7ISS"M&J7JOM2 GP/SOS"M&J7JCM2 ?N7LOI+T>I3D;O*	CT7OSU7PSU6 E7CCE7TB 7AOS" 636JRI+ACD3L;I7OSU"M&
3SGZ2 3CA&I6/OI2 T3EWR* CA3L;I7ER 7OB 3R;IT6?2J*I+MCP3P3R+I>I7YOE"M&J3TSA* CI2(	L7S
TD*M2I;A3D2 .1B0*0>I7GSE2 	B7NKA3YV 3XWT3N	S+OCN3FGLG*M2IGT3DJ 3N3FA7G6JNI+NCA3CGL"M&J7JCM2 	L3NGTB*M2I7J3P: 3O	LS	T2//S+ICP3B;I7A	R6 E3T;E3S?IN7S6JKP+L3I2I3C3A& A	C6I^/7ASN2 	L+NCE3N7U7BKE2M2J7ISN+A3B2I7J3S& 6 B(3R;IT7Y2J?N7LOIT&,3DGC2 ;B3FGLG*M2IOD7AB 3
3FA7G2JRI+CCA3L;I7OSU6IN/3I;G+ACL3L;I7EB 3R;I3TSE"M&J3TSA6 CS3A3C+A>I7ROE7TKO7EZ 3I
R3I	N+TCY+OCF3T	H7SJ 7OSU3IWN"M&J3DGC6 WO3T/SP*M2I7J3P& 6 WO+T>I7RSE3U;R*M>J****6 WB3GN 3OON3E;R3I
N2 	B7NKA3YV 3XWT3N	S7OON2 ;A+D^ 3L;I7OSU2	& F6 2J6/7USL3I3P3EN 3A3L3S6 3AWD2 ?T2 >	+U
T6 WS+CCH+ACS3F?R7M" 7LOIT*M2MNJ3OOL+N3T"I606J^/7ISDH&,.-F1"7&I2/WN7GSA3IWV2 [O2 	W3DT2 [O6 WO7TWP3T2 7ISS3I
N2 WD3VOIE*M"I&I2/KO3T	A3NSE2 	E3TWH3RR 3IWR3C3T3YZ 3R7O2 GH3N3DE7R"J&I2I>/7RN +ECT+BCY3UWS7RZ +ICA6=N 7WSIC7H"J&I2I6/7USS2 ;E3D& /N^ "M2J2I[I3D[E2 3P+MB "<*M2/:I7ECWA7G"J6/"J&/3T	H7SJ 7OSU3IWN2 ?G+ECS+TCO3A: +ECW3P
A3E& 7NR +HCE7LOI3T;I3GZ 3IWL".*M2/&I7TR 3AWK3SF 3N> 3P	T3OGN3LF 7RWG3M;E3T& 7NR +HCE+A3C2 W3IC2 WR3PWR3S;ET7S"J&/3TWH6 WS7BB-3AWG6 WN3MWB+RB.2 [I2 T3EF 3C& /SB 6,R 3H;E2 ?N2 WN7WN +U7B3P
AE*M2/&I3SR 3E	S3RSE2,F +NCD3MOA3R3E2 ?G+ECS+OCN+TCO3TWH2 WN+XCT7ASC3U3A2 GP+G;E*M>J6IN(7EST3I
N2 T7EN +U7B3P
A3E: 3UKM+ECR3BOA7KR /OB ".6)"J&/3TWH6 WS7BB-3AWG6 WN3MWB3R& 3SJ 7UCM+ECD3WWH7N[E+ECR7AV 7SKE*	CS3P
AE*M2/NI7ROO7SOE* CA7P	H3SOI+ACL3P
A3EJ 3O;U7DKAY6."J6/.JF/2.&I7FR +HCE7N
E6 WS7BB-3AWG6 WN3MWB3R& 3S: +OCT*0B,3TWH7NR +HCE3P
A7EWN3MWBR*M2/&I3S& 7NKC3EWM3NWT3DJ /YF ".*M*/:22I[I2 T+ICS+ICS7NSO2 GP+SCS*3B,+WCE7RSE3U;R2 7I3MSE7ISA7E	L".*M*/:3*ICA7FKO3MZ 3ESE6 OI2 WS+NCT+TCO3TWH2 	L3S	T+NCG3F3IE6..JR/*.^I7N
E7TSI2	& 3SN 3HOE3KSE2 ?T2 WS3E& 7F^ 7E^ 7ASN* CA7N
E2 	T3TWL".*M2/&I+F^ 7N
E7TSI2	& 3S: +O7N*0B,3TWH7N^ 7E^ 7ASN* CA7N
E2 	T3TWL".*M6/^I3E> 3BGT+ICN+ICT+BCY3C3A3L;I+G^ 7SSE7TSI6	^ 3HOI3H6 3OWV3SF 2 WN7WR 3I3TE*M2/&I3N?T2 T3E" 3ESA3I
N6 KA+ECA3F?R7MR +HCE3B
E3I;N3I
N2 [O2 T3EN 7UKR7ESN*M>J2I?S3UOR3E2 3IWN".*M*/:52IT+ECN+WCE3P	R+NCT3TWH2 WH3A	D+NCG2(	T3TWL")*M*/:62IT+ECN+WCE3P	R+NCT3TWH2 GP+GCE3N7U7BKE2 :(3O2 3ESA3I
N2 WZ3RWO+S:)*M>J"7&.+ICF3T	H3S& 3S: +OCT3SKU3P
A/EB 6,^ 7EB 3R;I3TF 6 	H3PWH3NZ 3O3L3OWWD*M2/JI7YR +HCE3SKU3P
A3E: 3UKM+E;R*M>J"8&.+WCE7N
O2 WZ+RCO3TWH2 Z	3O7R2	Z 3L
A2,F +NCD3P	R+NCT/A2 /C;R2<[L">*M*/:92IT+ECN+WCE3P	R+NCT3TWH6 WS3B	T3TWL2 ;A3DF 3NV 7XKT3AN 3R2,F6..JF/"0&.3F;I3A3L+YB,+WCE7ROE+ECT3TWH2 	L+NCE7CWO+NCT+TCO6-B	3G	L+N
S2 ;A7DJ 7EWT+R;N"M&J">*M"L&/3T7E7PKO3A	R+LCY3T	H3S& 3SF +LCL+ICN3R?OT*M*M>J3EWV7RSY3H;I3GF 3FWT7RR +HCE3C3A7LR 7OB 7AOS* B37CWO+LCD7M[O7ER 3O> 7VKE7L	A*M>J+ICF3TWH+RCE7WOA2 ?RO7M"J*M2/RI7OB 3AWG6 WN3MWB+R3S2 	L+NCE3N7U7BKE3SV,+T;C6 [E+ECN+ICF7NSO2 	L3S	T
7G2J"/3AWV6 CO3T?I7NR 3ON 3R[E2 ;U7LOI3TSE2 GV3RGI3BWLS*M2M:J7ECW+A3G"I602JRI+CCA3SKU3P
A2I:/+ECW3SKU2-GP+GCE3N7U7BKE2 GM3YJ 7EB 7AOS+ECD3VGI2 OA"M&J3DGC2 ?FR7M6JRI+ACD6(B-3G	LN	S2/WR7SSE2 ?C7USN2 [O2 ?N2.> 3F2 3IWNS*M"I&I2/WL+FCT7PKE2 GPG7E2JRI+CCA3L;I7CSN"M&J3TSA6 
S3M?TX*M2I;A+D" .4B0"M&J3SGZ2 3CA*M2IOD3A2 3IWNN	O2/[I6 B/6,R 3H;E2 WR7SSE2 	L+NCE3N7U7BKES*M2I7J7SB 7AOS"3*M2I7J3P& 2 WN3WGPG*M2IGT3D: 7ESWI7T6JNI+ZCA3CGL*I>I3NWE3D: +ECW7TSI/L?E"M&J7JOM* CI2(WST	T2/WYS*M2IGT3D& 2 2(7ISSW	D*/**2*J +UCG3W3I7LB 3R;I3T> 7VK
2 ;E3D> 7FB 3AWG2 ;O6 KE7RKO3S> 3F: 3O	L3SWT3D2 3IWNS*M3SGP3CGL6,NI+PCA3CGL"M&J7JCM* CI7N
E3P
A"M&J3SGT*I>IN7O2J*I+MCS+I" 7LOI+T>I3P	R+NCT3HGE3D;IG*M2IWH3A	D+N7G*1>I7WSI3H: 3ON 3R2 F*M2IOD7AB A7D6JRI+ACD3P
A3E?N"M&J3C3L"M&J7JOM* CI3QSQ3P	RN	T2/;I7SKE7TB 3AWG6 WN3MWB3R& 3N?T2 WH3A	DN7G6JRI+ACD3SKU3P
A"M&J3SGN2 3CA&I6/OI2 T3EWR* CA3SKU2-GP+GCE3SWP3C[I3IGC3T?IN6?2J*I+MCP7NOOU	B2/?N"M&J3TSA. V("5&I2/WYS*M2I7J3S& 6 GQ7LOI7TKE2I>/7UCT+UCT3A" 3YPE7N6JRI+ACD3SKU3P
A2IZ/3O3L3OWW3DJ 7YR +HCE3SKU2-GP+GCE"*M2I3CL*M2I7J3S& 6 GQ7DKP7ISN2IN/3RGE+TCE3SKU2-GP+GCE3N7U7BKE2M:J7OWSB&,7JOM* CI3QOQ3R[L"M&J3SGT"M&J7JOM* CI2(	LS7T2JKS7TSPR&,3SKUT	L6IB/3R;I7TN 7USB3I3TE*M/KF12,NI+DCF"1606JRI+ACD+I" 3F3I3E?N"M&J3C[D" 602JRI+CCAF*M2I
T3DZ "M&J3SGN2 3CA*M2I7J7PN /EKT"M&J3SGT"M&J7JOM* CI2(	LS7T2JZI3I7LS7G2JRI+CCA3PSA"M&J3TSA" 7F6JNI+MCA3CGL"M&J3TSA. R(.3V-*5>I*	^*-6	"	*M2IGT+D" "5652J*I+MCS7IF 3Q	L3SWTR*M2IGT7DF /QB4"M&J7JOM* CI3Q3Q7ISSE7R6JRI+ACDF*M6ICSA*M2I	CA*M2I3CL*M2I7J3S& 6 GQ7DKP
ISN6MNJ/EKT2,*I+MCS7IF 7QKCL7F2J*I+MCS7IF 7QKCL7F2J*I+MCP3I: 7ECWA7G*J3F"I60"J*M2L	L3SWTR&,"0*M2I	C3FN +DCF"1602J*I+MCS+I" 7LOI7TKO"M&J7JCM* CI7LOI7TKE"M6J6J[O3R	LN&,"0*M2IGT7D^ 7ISDH*M2I	CA*M2IOD3AN 3OOLN7T2J&I+SCZ3L;I7CSN2IF/3TJ 7OST+OCM+OCF3P
AE6?2J*I+MCP3I> 3V3RI	N2/?N"M&J3CGL2 GIC&I2/WYS*M2IGT7DN 7UCBA	G6/WB+MCP3SKU2-GP+GCE3N7U7BKE"M&J7JOM2 WN3WGP+G>I3ASN6 SS7ASR* CA7N
E2 P3Y	S3C3A2 GPG7E2J&I7NKC2 	L3N;CT*M2I7J3P& 6 [O3R	LN*M6MNJ7UCB+A3G"I&06IN/+U7B3P
A3E: 3UKME7R"J*M7POA+S23"I606JRI+ACD7POAS*M2IGT+D" "-636JNI+NCA3CGL"M&J7I+S2 GP/SOS"M&J7JCM* CI7POAS636JBI3AWG"M2J"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"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