File PAS2.MA (MACREL macro assembler source file)

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

"/&67POA/SJ 6 CS3E	C3FOI6 [O3E3RA7Y"J&/*2613A
U.-"72IWR7M[O+ECD*/CD3S	W3TC"M&J2.;I7CWL+DCE3M3G+O;BM7A*J:I3AWS+CCT7POA222,3EWV/LF=6,[O3E3R/A7Y"165"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+E3R7LOI7TKE2,?L7OWK3P>,3R
I6,WO7TB,7AORY7M*J:I7ESX3E;R+ACL7POA+S237PCO6,WP+S3H3P;U7BSI6,WP3T	B7TB,7UOT+Y3M7PU3B;I2,WR3A3D7NJ,3O3T66N,3C;A"M&J6.E7TKE3N3A6 CO/TGR2,	L3TKA3S2,7IKT+E3L7OSU3B[U6,CQU7T*J:I3G?L3B3A6 WP3T;B6,WP7TSB2,	L7TKKF*M2I^.3LKO+ACL3CWR+F3X7MKO3C[R6,CB7UT"M&J2.3G3OGB
L. 7ROF3YN,3H[KU7L*J:I7ESX3E;R+ACL3K[R7TCM"M6J2JZI3I3E/DN "M6J*J*I.2B0"0*M"M&J3R3E+OCC.1B4"0*M"M&J"166"J*M2IKO3U3F/DF="0*M6MBJ3UKTN&,"0*M2IOD7AR +ESM6IN/3AWV2 WN3WV 7NKT7Y^ 3OSR"M&J3TSA2 3F3G3FG*M2I;S3AN L7A2J*I+MCS7GSE3F
L"M&J3C[D2 KO3U3FD*M2IGT3D& 2 3F3G?L+C>I3ASD2 ;I2 WN3WZ 3L
A2 ?WR7D2JNI+LCL3R3T"M&J3TSA2 3FG*M2IOD3A& 2 3F3G?LC*M6I+SL&I6/OI2 3F+ACG7WKO3DZ 3U3L"?*M2IOD3AZ 3L[GL	G2/WY+SB,7NSO7ER 7HSA2 WW2 WN+ECD3A: +ECW3FGL7G^ 3OSR"M&J3C[D" 606JRI+ACD3T7E"$*M2I7J7SB 3UKTT*M2I7J3P& 6 WP3T;B"M6J2JWT/M*$"I60"J&L3ISF+ECF3P7L. 2 *M>J
M>J2IGT3DV 7NKTY*M2/*I+MCS7PSU3B;I*M>J*M>J2I3F3G6 7USS2 3A3RGE+DCY7H[A3EJ 3E;E2 WS7TV P*M"/*M2/ZI/L7G.0F,*,22+OCR"3*M"/*M6/WO7TWP3TJ 3U[F+ECR+ICS62B 3AWG3S2 3O
N6 SS7ASR3I
N6 SA6 WO7TWBF6.2JR/3AGT6 OI6 SS3OWR7DZ +ICA7OSP+RB13W	H+CCH7A
L7AOY*M>J7POT2 ?T2 T3E: 7ESX6 KF+ECE7WKOD*M"/*M2/;I3I	T3A	L7ZSA3I;O2:6 7USS2 WS3T> 3UOT+NCT+TCO.-B4"0*M6/CO/TGR2 ?T6 WO7TWBF*M6/SEC6.6JN/+ECT3F
L3LOO2 ?T6 WO7TWB/FF+*M>J*M>J+TCO3W	R+TCE7OSU6 WB3FWF+RB,7MKE7E	L2 GC+LCL7PSU3B[U*M>J*M>J3F
L3LOO6 WM+SCT3I	N3TGI7L	L2 ?C3NGT+ICN/AF *.B 3KWE7PN 3H[I3T;IG*M6/SI2 WL+FCT62V 3N	T3L2 3I/N2 ?G+ECS+O;N*M>J*M>J2IGT3DV 7NKTY*M2/*I+MCS7PSU7BSI*M>J*M>J7PSU/SF 2 ?W+RCD+ICN3B;I7A	R6 WB3FWF7R^ 3IT7OSU6 CU7DSA3I
N2 3F+ACG7WKOD*M"I6>*J>L/D7F7OWB3FSL"M6J2JC7KWFL&,"0&I6/OI6 CO/TGR2 ?P7ISN3I
N2 WB3Y;O3DJ 3U[F+ECR3ESN"?*M2ISC3F> 3B[UL7D6JRI+ACD+I" 7OSPR612JNI+DCF"0*M2IGT3D6 7OSU"M&J3SGZ2 3CA*M2I7J3P& 2 C7KWF+L>IN7O2J&/7NSS3ESA2 GW+NCT+TCO3J7U7PN 3OWM3WWH+RCE7DKU3I
N6 KK+ECF7POAS*M2IGT3DZ 3L[GL7G6JNI+NCA3CGL"M&J7JCM2 ?N3F
L+W>I+NCO3FGL7G^ 3OSR"M&J*I>I+OCR3FGL7G^ 3OSR2 WN7EOD2 ?N2 ?M+RCE7RSO3A	TN7G2JNI+DCF7OWB3FSL"M&J3TSA* CI3F
L3LOO6I&/+E3S6 WB7FKE6 OI6 WFL7L2JNI+LCL3R3T*I>I3L[E3T*-7USS7I	F2 3F+ACG7WKOD*M2I;SL*M2I7J+P: "-622JRI+CCA3IZ 3L3GO7C2J?N3F
LW&,3C[D" 606JRI+ACD7POA+S>I3WGH7TB 7AOS6 OI2 T/I?S"M&J3DGC2 WTM6$2JNI+LCL3SGT2 GR+L>I"-626JRI+ACD3T7E"$*M6I+S3AN L7A2J*I+MCPA&$2I:/+OCT7POA/SJ "M&J3TSA2 SH7RKW+D>I7POA/SJ "M&J3C[D2 KO3U3FD*M2IOD3A& 2 >(3UKTU	F6/WP3T" 3ESA+ECR7WKO3D& 3N?T6 WB3FWFR*M/A*$2I
C3FN +DCF"1602J*I+MCS+I" 7QWP+T>I7OSU7PSU6 WB3FWFR*M2IOD3AZ 3L[GL	G2/WN+ECD3A: +ECW3FGL7G^ 3OSR2 ?LC*M2IGT7DR +ESM6IN/7KCI2 [I6 KK+ECF7POAS*M2IGT+D" "-642JNI+DCF"1606JNI+ZCA3CGL"M&J7I+S* CI6(CO/TGR6IB/3O;I7TR 3O> 3UKT+U/F"1*M2I7J3P& 2 C7KWFL*M*M>J+ICN3CWR
FN 3AWS.,F +SCT7WKO3D& 3NV 3AC6 WB3FWF3R& 3SN 7RCA"M6J2J"/3ESA/E+R2I	B/TB .:BI2 WM7AON6 OL3DJ 3LOOK*M"/&I*IB13MGE+NCS7TE3TJ 3LOOK*M6MRJ+ESM.:BI"M2J6/WP3TF 2 ?W+RCD7ISN3OJ 3IGN+RCY3B[U7FKE2 	W3T?H+UCT3USP3A	T+NCG3FGL7G^ 3OSR"M6J6JWP7TSB.,BI"M&J3DGC* ST*I>I
S[A3E& T*M2I7J3SN 3H[KU7L2JNI+DCF7OWB3FSL"M&J3TSA* CI6(CO/TGR"M&J3DGC2 WTM6$6JRI+ACDT6$2JRI+CCA7IR +ESM6IN/7TKO3EV 7NKT3YF 7W	A"M&J7I+S* CI6(CO/TGR6IB/7TR 3O: 7ESX6 KF+ECE3LOO3A	TO7N2JNI+DCF"0*M2I7J3P& 6 WP7TSB"M6J*JST.:BI6MRJ+ESM.:BI"M6J2JWG3T3FG&,"0&I2/
N+ECD3A: +ECW3FGL7G^ 3OSR2 ?L7CSA3I;O"M&J7JOM2 C7KWFL*M2ISC/FF "0*M2IGT3D& 2 >(7PKT"1*M2IOD3AZ 3L3GO	C2/?G3T& T*M6IOI3Z& 2 >(7PKT*1>I+PCT+TCO7NE3TZ 3RWE2 ?L7CSA3I;O"M&J3CGL2 GIC*M2IOD3AZ 3L[GL7G2JNI+LCA3IOA"M&J3DGC* CI3F
L3LOO2I&/3N	T3I3A3IWZ2 3F+ACG7WKO7DR /OF "M&J3C[D" 602J*I+MCP3I^ 3E[TL7G"J*M7BWP+T3X"I606JRI+ACD3F
L"M&J3ASN6 GQ"7&I2/WG7TJ +ICD+OCF7BSI" 602JRI+CCA3F
L"M&J3TSA2 	B7NKAY*M2I7J7SB 3UKTN*M2I7J3P& 6 CB7UT"M6J2J?M+U3T2I>-3UKT+U7F.4B0"M&J3P
AE*M6LKC7EF.,BI"M&J3S3T2 3C7AJ A7R2JRI+CCA3D[E3CSO"M&J3TSA2 WTM7P6JNI+NCA3CGL"M&J3DGC2 WD3F?C+D>I7SSE2 WD3F?C7DR /OR .0B02 ?F3RR 3E	F7NSI3I;OS*M2ISC/FB "M&J3TSA2 GN/MGE"M&J7JOM* CI6(WP7TSB"M&J3TSA2 GN/MKE"M&J7JOM* CI6(WP7TSB"M&J3TSA2 GN/MOE"M&J7JOM* CI6(W
7TSB"M&J3TSA6 
S3M?TX*M2I;A+D" .4B02I2/3O/O6 SA6 B/6 
S3IOTH*M6I+S3AN L7A2J*I+MCPP&$6IB/2 GW7SN 3POE3I	FE7D6JRI+ACD3L;I/EKN2I:/+O> +PB,3UWS2 	H+G7H3OSR+ECR3L;I3E: 3UKME7R6JNIK7P*JSP6:RI+ACD3P
A3E?N2I&/+F> 7P^ +ACS3SWP3C[I3ISE6,V +SCE3P
A3E: 3UKME7R6JRI+ACD3D[E3CSO2I6/7USL3I3P+ECX+ICN3D[E3I	N3T?I3NJ I7T2J*I+MCS+I" 7PSUB7T6JRI+ACD3L;I3E?N"M&J7JOM* CI6(WP7TSB"M&J3TSA2 	L7NET*M2I7J3S& 6 B(3UKTT*M2IGT3DR 3EOFO7D6JNI+NCA3CGL*I>I+ICS3T	H3SF 2 WD3F;I3I	T/O?N"M&J7JCM* CI3CWRF	X2/?N6,J 7EWTR7N6JR
+ACD3S7Y3V3A6I&/E7S2J*I+MCS+I" 7PSUB	T6/WO7TWP7TZ 7AWLE*M2IGT3DZ 3L
A"M&J7JOM* CI6(WP7TSB2IF/+NCD3FGLG7S2J*I+MCP3IN 3R[EX*M2MRJ3EOF+O3D"I602J6L3OOR+R3F"I&02IN/3R[E* CA7LSI3EGR7LJ 3EWF3R;EC7E6JRI+ACD.(Z7"2&6"/7V2JRI+CCA3N7AE&12/GV3LWU6 KCE7F6JRI+ACD+I" 7LSI7AOB"M&J3DGC2 GN/MKE"M&J3TSA* CI2(	L3TWRL*M6I+S3AN L7A6JRI+ACD*(.""
&J3DGC2 GN/MOE"M&J7JOM* CI3QOQ3R[E"M&J3TSA. ^(.6R12I2/"M&J3DGC2 GN/MGE2I:/+OCW3CWR3FJ 3Y2 3OGC3T?IN*M2IGT7DR 3RGMB7S2JRI+CCA3N7AE626JRI+ACD3T7R3R3E"M&J3SGZ2 3CA*M2IGT+D" ""6+2JRI+CCA3N7AE632J*I+MCS7IF 7QKCE7F2J*I+MCP3I6 3OORR7F2J2L3I/T+R3F"I&02IN/3A3L+ECD
F?R3M6 3A3CI7T2JRI+CCAT&$6I^/3IT6 CS3E	C+ACL3CSO3E& 3NF C*M2IGT+D" .7J6*6>I*7663V6 3A	G3C: 3UKM+ECR7FKO6 KKE7F2JRI+CCA3N7AE&16/KC7ESA3EV 3XWT3NWD3D: 3AWM"M&J3TSA6 E3PWRL*M6I+S3AN L7A6JRI+ACD*(.""M&J3DGC2 GN/MOE6IN/+ECT+UCP7FKO6 KKE7F6JRI+ACDT6$6JNI+ZCA3CG
"M&J3TSA* J(*)J-]*M2IGT+D" ""7]2J*I+MCS7IF 7QKCE	F6/KC+ECF+BCY3V3A+UCE7WSI3HR 3E	F7NSI3I;O2 ?C+DCE3]> +R& "M&J7JCM* CI7LSI3K[R"M6J*JST.:BI"M2J3K[R+S3Y"I606JRI+ACD3FGLG*M2I;A+D" .1B2"0*M2I;S3AN L7A2J*I+MCP3K[RD&$6/	S3M?B3L& 3S: 7ESI7HKE2 WP3RGM3N;E3T: +OCR
LOOA7L6JRI+ACD3S7W7TO"M&J3R3A*I>I7PSU2 6/6 
S3IOT3H& 3N2 3I/N"M&J3CGL2 7CL*M2IGT3DZ 3L
A"M&J3ASN. F(.0B06IB/3E7R2 	B3T& 3NF C*M6I+S7AN +NCL3CGL"M&J7JCM6 KK+FSD2I./3R[E2 [I2 6/6 [E+ECN3T?H3UG2 WP3RGM3N;ET*M2IGT7DN 7WSAO7L6JJIT7R2JNI+LCA3C3M"M&J3TSA2 3FA7G2JFI+NCD.(B2"0*M2I;S7AN +ZCL3CGL"M&J7JCM* CI3K[RS7Y6JKK+FSD6:RI+ACD+I" 3K[R7TCM"M&J7JOM*
CI3QOQ3R[E"M&J7JCM* CI3K[RS7Y6JBI3AWG"M&J3R3EO7C"J&L6.OA7ESC2 7D+Y217L[E/E7L21>,7VKE7L	A.=Z1"M&J3FWI+LCD"3*M.IJ*.0B0"M&J"0*M2IGPG7E.JBI"M&J3P
AE*M"M&J6.OA7ESC2 7D+Y227L[E/E7L21>,7VKE7L	A.=^1"M&J3FWI+LCD"3*M.IJ*.0B0"M&J"0*M2IGPG7E.JBI"M&J3P
AE*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

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