File MACRTH.MA (MACREL macro assembler source file)

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

"/&93MOA3R3E2 3G3OGB3LF 7RSI3HWM3TOI6 [O3E3RA7Y*JB/*1647MKA.-"72I	F3XSE2 Z.+LCD7DKI7ESC3IWV2 ?F3RV 3XWT3NWD3D6 3E?MR7Y*JB/*1673A
U.-"72ISA3DSE2 2.3EWV7LB 7SWE3D7O7AKCO*M2I&.3N3C3UWD2 
M3LKO2.GM"M&J6.OA7ESC2 GM7CSR3H2,3EWV/LF=6,[O3E3R/A7Y"5*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.E7TKE3N3A6 WP3S3H2,?P+P3L7PE61B,/EKX"M&J2.3G3OGB7L" 3XSE3F2,7EVX*M2IV.3XWT3RGN3LF 3S7E+L3V3BOA7KCU6,KB3AON3HN,3R[E6,KC+L3F7DKP7ISN2,;E7TKE2,?E3SV,3R?R3RV,7XKP"M&J6.E7TKE3N3A6 OF3CWH3K^,3EOT+H3R7GSE7KKA
,WG7T	S3M2,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 KP7VCO7RB,3U3T7CB,3UKT+I3T3M	R7S[A2,3G3B3F+GR,7DSO"M&J2.3G3OGB3LZ 7L	DX*M2I	F3ESL" 63*J:I3G?L3B3A2 GH7R	D6,KH7DKT3MN,3M3PX7E"J*
.IJ*.0B0"M6J6JJI3E?L/CJ .4B0"M6J.JZI*I>I3OWV3RGL3YZ 2M"J3ASRY&,"0*M2IGT3DV 3XOPO7D6JNI+PCA3CGL"M&J7JCM. KH*I>I3PWR3V?I+UCS7ECX7ROE3S?I3NF 3LWR7A	D2 ;O6 SS3A/C"M&J7JOM6 SS7KWPT*M2IV 3XGPB7S*JBI7ECX3R3E"M&J6 E3P?CD*M2IOD3AV 3XGPB7S2JRI+CCA7ECX3R3E2M"J"2&,3T
A6 KT3M?C+D>I3EGX3M;I3E: +ECW7TKE+M" 3R
I+HCT3OWP3R;AD6)6JNI+PCA3CGL*I>I3WGH7TR 3YWP6 OI6 SI"?*M2I7J3P" "3&I2/WT+RCM+ICS7AKL3ESA3Y> 7NN 3TOAK*M2I7J7SN 7TCKU	T6/WP3T& 3T> 7NN 3TOAK*M6IR 3RGMB7S*JBI3T7R3R3E"M&J6 KT3M?CD*M2I7J3P" "4*M+H232IGT3DV 3XOPO	D2/GW3S2 7ESF6 CO3EGR+NCD+OCN3SGT+CCK3PWR3V?I3
3SY6?6JNI+PCA3CGL*I>I3BOE7AOU3E& 3F: +O3T2 ;A7DR 3E7R2 GW+SB,3TWH3N> 7PKE3ASN3SF +RCEO7N2J*I+MCP..N+*I>I3SGT+CCK+ICN3W?R+NCG3OSRE7R2J*I+MCS+I" 7PSU6I&/+E3S2 T+ACT+ICS3TWH2 GCS7E6JNI3WOPO	D6IN/7WCA2 T7ER +OCP3T?W6 SI7EOM2 ;O2 T7EN 3TOAK*M+H246ISSA*M2IOD3AV
3XOPO	D2/WR3S3U3T;I3GV 7XKP7EOS3I;O6 OI2 ;O6 SS3A/C"M&J3TSA* CI6(KP7VCO+R>I3T/A3E> 7PKE3A?TR*M2I;A+D" "1&02I&/3S& 3TR 3U3P3IGC+TCE6	KO"	6?6JNI+ZCA3CGL"M&J3C3L6 SS7AJ T	L2/WY+SB,3SKU3TGR+CCT7TKH+ECE+TCO7GSE2 WR3G3U+ACR6	KO"	*M2IGT3D& 6 B(3R?VP	R2/?C3NWV+RC
+TCO7ACP7RCO3RGI+TCE7ESX3ESN+ECD3LGO7DKE2 ?CD7E2J*I+MCS+I" 7PSU6IR/3E3L2 	L3NWK7RR 7OB 3E[R3O7R2 T+ICS3OWP7RSA3I;O"M&J"4&I2/;O2 T7ER +OCP3T?W2 3E3EWM7NOT2 [O2 T7EN 3TOAK*M2I7J3P& 2 GH7R	D"M6J6JOP7H	TP&,"0*M6LB/3US* CA7VKA3IKA+LCE7OSN7OR +HCE3SGTC7K6JR/3YW
3S> 7FB 3US/E+S"M6J2JF/B	S3R3E2I?C7DJI7EWS3L	T+NCG7POUH*M*M>J7X"I.IF-2I?NN7E"J*M"/&0/RBI6IOP7HOL7DJ "M6J2JF/"I	R60BI7S[H+ACLR*M"/&I"I7A"J*M"/	A.0BI6IOP3HGVL*M"/&I"I7A"J*M"/&0.0BI6IOP3H?C/NB "M6J2JF/"I	R61BI3S3H+SCDR*M"/&I6IOP3H?C/NF "767"J&/2IFIN7D"J&/6IB
3SOHO7D"J&/2IFI*M>J"I&I3ASD"M6J.JB/"I	R61BI3S3H+SCDR*M*M>J7AJI"I&23PS3FSL" 7R"J&/6IBI3SOHO7D"J&/2IFI*M>J"I&I3ASD"M6J.JB/"I	R62BI3S[H+LCDR*M6LSS7KWPT&,"0&I6/WP3TF +B3S2 WR+LB,3CSO2 ;O+TCO3SGT+CCK2(?C3D: +OCT3N
E")*M2IGT3D& 6 SS7KWP+T>I3POI7KV 3PF 7RWG3M;ET7S2JRI+CCA3S/T7AOB"M&J3TSA* CI3S/T7AOB"M&J3DGC6 SS3KKAS*M6IOI7ZN 7TCKU7T6JRI+ACD7IN 7TCKU7T2JRI+CCA3S/T3R3E"M&J3TSA* CI3S/T3R3E"M&J3DGC6 SS3KWRL*M6IOI7ZN 7TCKU7T6JRI+ACD7IN 7TCKU7T2JRI+CCA3S/T3CSO"M&J3TSA* CI3
/T3CSO"M&J3DGC6 SS3K?CD*M6IOI7ZN 7TCKU7T6JRI+ACD3S/T3CSO"M&J3SGZ2 3CA*M2I7J3PF 3DGV+N>I7A[D3AON+ECD3R3E3OGC3T?IN*M3S/T"1&,3TSA6 SS3KKA+S>I3S7I3PWL2 WR3LOO3A	TO7N6JNI+ZCA3CGL"M&J3TSA6 B(7S[H+A7L3PS3LSS"M&J3TSA6 B(3S3HS7D2JRI+CCA3PS7TCY"M&J3C3L"M&J3TSA6 SS3
KAS*M2IGT7DN 7TKKE7L6JNI+ZCA3CGL"M&J7JCM6 SSK626JNIZ7L2J*I+MCP3S/T"2*M2IGT+D" 3PS3C;O2I&/3FF .=7R*0B,7POU3HN 7OON3T;A/TB 2 ;O6 SS3A/C"M&J3DGC6 OP7H	TP*M3S/T"2&,3TSA6 SS3KWRL*M6I+SA*M2I7J3S& 2 ^(3E3TS7D6JRI+ACD3PS7TCY"M&J7JOM* CI6(WP3TOL"M&J3TSA6 SS3KKAS*M
I+SA*M3S/T"4&,7JOM* CI6(WP3T	BT*M2I7J3P& 6 SS7KWPT*M2MFJ3DGVN&,3SGT"M&J3TSA6 SS3K?CD*M6I+S3AN L7A2J*I+MCP3C[D3R3E"M&J3TSA6 SS3KKA+S>I3FWS+CCT3R3E3OGC3T?IN*M2I;S3AN L7A2J*I+MCP3S/T*1>I+OCN20& 7SV 7NOU3U3A"M&J3TSA6 SS3KWRL*M2I7J3S& 2 ^(3E3TS7D2J*I+MCS+I" 7P
U"M&J3PS3LSS"M&J7JOM* CI6(WPT*M6IOP3H?C/NF+"7672J*I+MCS+I" 7PSU"M&J3ASN3CSO6MNJ/TOK2,*I+MCS+I" 7PSU"M&J3PS3CSO"M&J3TSA6 SS3KKAS*M2I7J3S& 6 B(3UKTI7T2J*I+MCS+I" 7PSU"M&J3ASD3CSO"M&J7JCM* CI3S/T7PSU"M6J2JSC3FWRL&,3TSA6 SS3KWR+L>I3C[D2 WR3LOO3A	TO7N6JNIN7A2J
I+MCP7AOB3C[D"M&J7JOM* CI2(WG7TOLD*M2I7J3S& 6 B(U7T6JBI3S[HL7D6JRI+ACD3S/T7AOB"M&J3SGN2 3CA*M2I7J3P& 6 SS7KWPT*M2I7J7PN /TOK"M6J2JKA3SSCF&,7JOM* CI6(WPT*M6IOP3H?CD*M2IGT7DN 3TGKB7S2J*I+MCP3S/T"4*M6MNJ3TGK+B3S"I606JSS3KWRL&,"0*M3S/T3CSO.,BI"M&J3P
AE*M6LKH7DKTM&,"0*M2IGT7DR 3ROMO	D2/WY+SB,3W;A7TR 3O: 3EGG+TCE7TKEM*M2I;SA&I2/?L+OCK+ACT3R3E3OGC3T?I3NN 3OWD"M&J7JCM2 WN7GKT+M>I3S7I3PWL2 WR3LOO3A	T+O3N2 ?G2 WN7GSAE*M6ICS3AN L7A2J*I+MCP3N
E3S/T2IN/7OCM7LE2 WR3LOO3A	T+O3N2 WN7GSA7ER +OCP+OCF3SGTC7K6JRI+ACD3T7R3R3E"M&J3SGN2 3CA*M2I7J3PN 3NGVB	S2/WN3G> 3FF 3B?S7LSU3EN D7F2J*I+MCP3PS3T7R2IF/3DGV3NWC7DJ 3E?L7CSA3I;O2M:J7ESG+R3M2IGT7DR 7RKME	L2/?L+OCK+ACT3R3E3OGC3TKA+LCE7PKAT*M6I+S3AN L	A2I&/7SR
3E7R2 KA3S3O3UWT"?*M2I7J7PB 7SSHR	M2/?N2," 3AWV2 ?T6 WP+SCH7TKE3M> 3N?T6 SS3A/C6MRJ/ROM6,RI+ACD3T7R7AOB6I&/+E3S2 	S3M3P3Y: 3EGGT7E2JNII	A2IN/7OCM3L7E7ESN"M&J3DGC6 KT3MKAS*M2I7J3P& 6 KH7DKT+M>I7RSE3U;R6MBJ7SSH+R3M2I7J3S& 6 N(7TCKU7T*JBI3T7R7AOB"M&J6 KT3MWR
*M6IR 3ROMO7D2JWN7GSSK&,7JOM6 WPT&I2/WN7GSA7ER +OCP+OCF3SGTC7K2J:I3EOGO7D2J*I+MCSC7M2J*I+MCP3I" 7RSDR7M"J*M7C[N7AOB2,RI+CCA3T7R3CSO"M&J7JCM6 KTM632JNL3M3P+X3E2IGT3D& 2 6(7ROIA7V6JNI+ZCA3CGL"M&J7JCM6 KE"M&J3TSA* CI2(3G3B3FG*M2I;S3AN L7A2J*I+MCP3GKLO7K6JRI+
CD3FGLG*M2I;A7DF /Q^7"M&J3SGN2 3CA*M2I7J3PV R&I2/?N3N^-3LKO+ACL7EWQ3AWT6 KO2 ;I2 	F7XKMI*M3GKL+O3K2IGT+D" .4B0"3*M2IOD3AZ L	G6IB/3R;I7TN 7TKAS*M2IGT7DN 3Y;MU7M2J*I+MCS+I" 7GSE3LSS6IB/+OCP3V3A+UCE3O[F6 SS3A/C2 ;I+TCO3LSS2 ;E7T	R"M&J7JOM6 WPT*M2I?P3PGVL*M2I
D7AN 7Y[MA7L6JRI+ACD3S7Y3N7U"M&J3DGC6 	S3MOST*M2IGT3DZ 3L
A"M&J3ASN. N(.7B0"M&J3TSA. R(.0B02+3GO	B2/GM+KCE3D[E3IWN3DF +NCD3G?L3B3A"M&J3DGC2 3FA7G*J*/**B*3B
U2 	W+TCH7ESX3E;R7AOL"M&J7JOM* CI7QCQ7UOTY	M6/KW3IWT2 GB+CCK7OSU"M&J7SCK2MVJR&,7JOM* CI3QWQ3R?R+R>I****"M&J7JCM* CI6(	BE	P2/?G6 
AA7Y6JRL+E3M6MBJ+U3T"I&02IF/3C6 +ACY+BCE3N;O"-606JRI+ACD7IB U	T2/SA3D& 3NF 7RWG3M;ET*M6IOI7ZB U7T2J*I+MCS+I" 7PSUL7C2J*I+MCP7IB U7T"J*M3FSL+Y3X"I602J*I+MCS+I" 2$?DT*M2IGT3DN 7S	TP7E6JRI+ACD/QGM"0*M6I+S3AN L7A2J*I+MCP3C[D7DSO"M&J3TSA6 WC3R3FD*M2I;A+D" "160
JNI+LCL7RKA"M&J3DGC2 WTM*M2IGT3DN 3U[RL7D2JFI+NCD/Q
Q"M&J3DGC" 7T6JRI+ACD7CKU3FSL"M&J3ASN. J("7*M2IGT7DR "M&J3C3L6 SRL*M2IGT7DR E7M2JRI+CCA3T7R7AOB"M&J7JCM* CI3FSLY7X2JSC3F?DT&,3S3T2 3C7AJ T	L"/622JRI+CCA3T7R3CSO"M&J3DGC6 KT3MKAS*M2I7J3P& 2 3F7DY"M2J*/**2*J +UCG+ICF7ECX3RN 3A3L3S> 7VKE7L	A*M>J3RGE7L	L2 GW+
CT3T	H3SN 3A3L2 ?T6 E+PCR+ICN3R?OT*M3XWX+D3F"I602J*I+MCS7IF 3QOSA7N2J*I+MCS7IF 3QGB7CWKP*M2I7J3S& 6 B(3USL*M2IWPX612J*I+MCS7IF 7QEP7R2JNIL7A6JRI+ACD7ECX3CSO"M&J3SGZ2 3CA*M2I7J3S& 6 GQ7EKRO7R6JRI+ACD7ECX3R3E"M&J3SGN"M&J7JOM* CI3QWQ3R?RR*M2I7J3S& 2 ^(3E3TS7
2J*I+MCS7PSU"M&J3X[D3LSS"M&J7JOM* CI2(?PP7L6JBI/EKX"M&J7JOM2 7C"M&J7JCM* CI3XWXD7F2JNLM&,"0*M2IOD7AR 3RGMB7S2JRI+CCA3T7R3R3E"M&J3SGT"M&J3DGC6 KT3M?CD*M2I7J3P& 2 7C"M6J*J3T2M2J7EVX&,"0*M2I7J7SB U7T2J2I3EOVO7D2J*I+MCSC7M2J*I+MCP3I2 7EVX*M2IGPG7E6JJI3E?LC*M"
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