File MGLOB.MA (MACREL macro assembler source file)

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

*/B43G?L3B3A3SZ +OCR3MOA3R3E. KXH*M2I2.7ISS*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J7CCO3Y	R7GSH* " +CB). &1*7B7+BCY3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	TO7N"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/6JR/+HCE3I[N3O7R3A	T+OCN+ICN3T	H3SR 7OWC3M;E3T& 7SN 3U+B7ESC2 ?T2 C3A
N7E^ 3IT7OSU2 ?N3TOIE*M2/;A7DN 7HWO+LCD7NSO2 WB2 ?C7NSS3RWU3DF 3SF 2 ?C3M	M3TWM+NCT+BCY3D
I3IGT3LV 3Q	U3PWMN7T2JN/7OCR3OGR3T?I+NB.2 	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O6 OA3S7U+ECS+NCO7ROE3P;O3SKI3I	LT7Y2JZ/+OCR7A	N6 KE7RKO7SR 7HSA2 GM3YF 3PWP+ACR+ICN3T	H3SR 7OWC3M;ET6."J6/6JR/+HCE3S[O3TGW+RCE7DOE3C	R3BSE2 ;I2 T+ICS3DOO3UWM+NCT+ICS7FKU7NOI3H
E2 ?T2 T7EB 3UOR7HOAE7R6JV/3NWD3RF 2 	L3C;E+SCE7FKO6 OU3E> 3NF 2 	S3N3G3EN 7OCM3UWT7RN 7YSS+ECM3ASN2 GC3NJ 3EN 3O	PE7D*J"/7WSI3H& 3N3C3U	S+OCN+OCF3D
I3IGT7LN	2 ?C7PKY3IG3T: 3O	T+C	E2 ;O+LCY7FKO6 OU3E& 7NN 3UC*M>J7SOY3T7E2,V 3XWC+PCT+ACS7M	A6 SO7HKE7WOI3EJ 7EB 7R[O3IWD3D& 7N^ 7RSI3I
N6 	B2 	D7GSI+A;L*M>J*M>J3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	T+OCN7AOS3UWM3S: 7OJ 7ECS7OON3I	B7LSI3YZ +OCR3TWH6 OUE*M6/KO2 WR3LGI3B3I7I	T2 [O6 SI7SN 7OSF7WKA3E> 3NV 3Q	U3PWM+NCT3TGH3T& 3S: +OCT7SCU3P	L+ECDB7Y2JR/3I	G3T3A".*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2L^/3LKO+ACL7VKA3IKA
LOE2 ?F3R6 7AKC7OB 3ROO7EOSO7R"J*M2/	F3ESL* B03S7Y3B3O+S" 3MOA2.GP")*M6I	S/MN="1&I2/SA+DCR+OCF3POA3KSE6 	S3M?B+L" 2"GN/MGE""6)6JRI7XOT/T7R3S7Y"+&36/SS2 ?P7ISN+ECR+TCO7FKI+SCT3C3E3L> 3F6 7AKC3OR E7F6JRI3XWT/N7D3S7Y"+&56/SS2 ?P7ISN+ECR+TCO7LOA3TN 3E3L2 [O2 
M3C?R2 WDF*M*M>J3FWI+LCD61N 3YKM7OOL2 6(3A	C7OB.A6)6JNI3T+R/M7P.1B4*0>I7CKU3R;E3T& 7NWP7TN 3TWRA7M6JNI7WSI/C7H.1B4*2>I3SKU7RWO3T;I7ER 7ON 7WSI+CCH7SKT3E7AS*M6I
S3BOA/KF=.5Z16IN/7UKB7OSU3IWN2 ?T6 
S3IOT7HN 3TWR7AOM2 GBC7K2J6I7GSE.=B2*4>I3MOA+RCO3SGP+CCE7SKT3E7A2 ?C7RWO3T;IE*M2I
M.1J="1&12I6/7GSE2 ;I7PSU2:Z 7IOR3TN 3E3L2 [O2 WTX7T2J6I/GST.=F3"2*M6IKM/E7T3MWG/TF+"M&J3RWG/TR="0&42/WR3PGE7TJ 3A
N7EN 3TWR+ACM7CKO7OSU3IWN"M&J3RWR7TJ=7GSE"+616JJI.=F4"2&I6/WC3RWR+NCT7RCE7ESA2 GR3NWG2:Z 7IOR3TN 3E3L"M&J7SJ="+&12IN/7UKR7ESN2 WR3PGE7TJ 3A
N+EB:7LOA3TN 3E3L"M&J7VJ="-&12IN/7UKR7ESN2 WR3PGE7TZ 7AWLE*M2L^/3LKO+ACL7VKA3IKA7LOE2 ?F3R6 7AKC7OB 3ROO7EOS+O3R2 ?C+N;T"M6J2J&/3NWT3RGN7LB 3AGR7MSE7EOR"M&J7MA7ROG.=J12I6/+ACX+NCR+OCF3MOA+RCO3A
R3UWM7NOT2 WP3RN 3A3L"M&J7MA7LOV"=&62/GM3X: 3R> 3F: 7ESS+ECD3MOA+RCO3C3AL7S"J&L3TOO3B/L.=N3"M&J3TOO3L;E.=V1"M&J7VKE3N7U.=J""M&J3POT3HWL+VJ=A*M6IWA7X[O/RJ=.4B0"M&J3A[T/L7D"1602JWV3R;S"=602J;K/TF=2M:J/U7M"2*M3T7E/PN=6MNJ7WSA/O7L"4*M3S7W7TO"=656J
S3Y?T.9Z=6M"J.7^=6M"J/R60"1606JKX.1F="1*M/XKR.=J16M"J/R63"1636JKX.4F="4*M/XWR.=V16M"J/R66"1666JKX.7F="7*M7FKO/MJ="0*M3L;I7CSN.=F26MBJ3AWG/N7O"2622J	L3N;E/OJ="3*M3L;I/EKN.=R22M2J3IWN/X7T"2652JC/A7R"2662JWN3W	T/TJ="7*M3F
L.=B32M:J3AWM.1N="1*M3N7A/E62"3622JGN/MOE.=N32M:J3AWM.4N="4*M3S7Y3V3A2=GN/MSE2MZJ3L
A.=V36MNJ7YOM/C7T"3666JWQ/A7L"3672J	L7NSP/RR="0*M7POA/SR="1*M3FWR7ESP/RR="2*M7LSP/RR="3*M/P7C"4646JWC3ROS/TR="5*M7CSS3YWP.=Z42MJJ3IGN/R7Y"4676JE3PKA/SV="0*M7ECX3R3E.=F52MVJ3XOP/O7D"5626JKT3MKA/SV="3*M3T7R3R3E.=R56MRJ3ROM/O7D"5656J	S7MWN/MV="6*M3USN/E7F"56
2JWR3M	A/NZ="0*M7S[A7PKT.=F66MBJ3C3F/A7G"6622J;B3FGL/GZ="3*M7CKU3FSL.=R62M2J7ICT/A7G"6652J	L3TOS/TZ="6*M7CSL3LOO.=^66M*J3L3T/O7C"7602J[I3L
A.=F76M*J3FGL/G^="2*M3P;U3F
L.=N76MBJ/A7D"7642J
H3H?L/C^="5*M3T
A3LOO.=Z72MJJ7IOT.=^72M"J3IWS/KF="0602J	L7NWO/TF="0612J;I3I3F/GF="0622J?C3N;C/TF="0632JOT7KSN.=B1"4*M3WSI/T7H.1V06MJJ3E?L/KF="0666JSA.1F="0676JSA.2F="1606JSA.4F="1616J[O.1F="1626JOM.1F="1636JOM.2F="1646JOS.3F="1652J7S7CWO/N7T.1Z16MNJ3A3V/I7N.1^12MZJ3L3G/O
C.1B22MZJ3L[G/L7G.1F22M"J7D
R/R7D.1J26MNJ7TKA/TJ="0606J[U/E7R.2F02M*J/S7W.2J06MNJ7TKA/T7R.2N06MNJ7TKA/T7K.2R06MVJ7VKE/KJ="0656JOJ3WWK/YJ="0662J	N/X7T.2Z02M:J/E7X.2^06MBJ7POA/SJ="1632J;I7IOL/TJ="1642J;I3I;E/A7B.2V16MNJ3B/T/N7T.2Z16MRJ7OOC/I7Z.2^12M2J3N
K/E7N.2B22MVJ7RCR/A7G.2F22MVJ3R7R/A7C.2J22MVJ7ROR/C7T.2N22MVJ3R3R/I7N.2R22MVJ3R3R/V7L.2V22MNJ3T3R/OJ="2662JGM3CWL/VJ="2672JWG7TOL/DJ="3602J
I7NKO/EJ="4602J;C3VSA/RJ="4662JGP7U	S.=Z2"6*M3PWS3UKD.=Z2"6*M3PWS7UCD.=Z2"7*M3PWS3U?D.=^2"0*M3PWS3U;D.=^2"1*M3BWY/BJ="7676J	B/E7P.3B02MJJ7YE.=B3"1*M3HG7SSC.=B3"4*M3E;N7T	R.=N3"0*M3EGN3BSW.=N3"4*M3L;I7T	R.=R3"0*M7LOI3TSW.=R3"4*M3RSA3XSW.=V3"0*M3ZWS3C;T.=V3
1*M3MOA7S[A.=V3"2*M7EKR3B/L.=V3"3*M7ESX/P7C.3Z22M>J7LOD/C7T.3^2"M2J2IWN3WOST&=6 :4.4B0"M&J3R3E61*2*=BI.5S^"0606JBI7S[H/A7L.IZ /^B4"0*M6IOP3H?CN&=6 :7.4B0"M&J3PS3FSL.=FI.0S^"0606JBI7O[P/A7L.IF1/^B4"0*M6IOP7HOLD&=61:2.4B0"M&J3X[D3LSS.=FI.3S^"0602J>I3ROG/O7D
IF 6IN/3POE3I3A2 ?L3AWD3RN 3OWD2 ?F3R> 3R
I7ION"M&J7PCO3CSO*=BI"2*M6IOP3H?C+DB=" &36/WP+SCH7NE/TF 22J-+ICT7WKO3D> 3N?T6 SS3A/C"M&J3N
E3CSO*=BI*4>I3N
E3AWT2 ?T3P> 7FN 3TOAK*M2ISA3D?CD&=" &52/SA7DR +OCP3T?W6 SI7EOM2 ;O6 SS3A/C6,J 7EWS+LCT+OCN3SGTC7K6JNI3UOB/O7D.IZ 6IN/+UCB""*M6IWM3L?CD&=" &76/WM3L	T7P	L" 6"2JRI3IOV/O7D.IB12IR/3I	V+DCE""*M2I?I3R?CD&="1&12/;I7CWL7S[I3E> R*M2I;A3D?CD&="1&22/;A+DJ "M&J3LS3C
O.=FI*3>I3L[E7TN 3H[IT*M2IWL3V?CD&="1&46/WP+SCH7L[E+E?L3OWV3RGL3Y> 3N?T6 SS3A/C"M&J7AOB3CSO.=FI*5>I3S7A3EF /SF 6 WB3T> 3R
I+ICN+ICS7AOB7OWLT7E6JNI3WOP/O7D.IZ16IN/7WSI+CCH7TCO6 
T3O& 3T7E3S> 7NN 3TOAK*M6ISS7KKOG&="1&76/KO3I	G3N& 3S> 7NR +OCP+OCF3SGTC7K6JBI3G	L/N7S"7&06/WN3MWB3R> 3F2 3IWN7SB +ECR3P
AE*M2IWP/R7M.IB1"0602J6I/R7I.IB2"0606JBI7SWEM&="2*M6IOP3ESU.=NI"M&J7ESN7R	Y.=RI"M&J3G?LB&="5*M6IE3T;R.=ZI"M&J7ZKTN&="7*M6ISX7AOB"=&32I:/+OB.+OCF3TKA3SZ +OCR7ESX7EON3I;O2 	LN7E2J&I3N3P/E7N*2>I+N;O2 [O2 3B3O/C3S& 3N& 7NWP3TJ 3U[FE7R6JBI3I3N/E7N7ICN3L;E^62"J
M2I	F7XKM3I& 7NKC6=OI+Z>I3ION3R7E7ESN2,J +UCT+NCO3S	K3PV 3XWP3CWTD*M6IWO3T;L"=&12I:/+OB.+OCF3B?L7COK2 ;I2 2(7ISS2)> 7UCT+UCT3B[U7FKE"M&J7OSU7POR6=WO3T;L/^B220:/+OB.+OCF7DWO3BWL2-?W7ROD2 ;I6 WO7TWP3TJ 3U[FE7R2J>I3UOT/R7S7OSU7L;N.6B02/?N2.> 3FN 7HKA3S& 3N> 
UCT+UCT3B[U7FKE"M&J7UKS.=^7"0602J"I3ESA/L7N"4&0*/B+OCF3CGH+RCS+ICN7TSI+LCE3HGE3D;IG*M6IWS3BWL/NZ=*1>I2> 3FN 7HKA3S& 7NN 7USB3I3T3E" 3ESA3I
N2 F(3T2 7EOA/TJ "06)2J6I/Q7L.7J4"1*M2IGD7T
E/D^=.6Z62I2/3OGC3T?I3N> 3F> /S"/2 GD+TCE+ICN3FWI+LCD"1*M6ISR7AOB/FF=/^B1"0&02/KA3S3O3UWT2 	F3ESL2 WR7SKT7ISC3I;O"M&J3RGT3B?S6=:2.1B0*0>I7AOB7OWL+TCE3O	R3G;I2 WR7SKT7ISC3I;O"M&J7ROT7ACM6=:3.1B0*0>I3S7A7EB 3AWG2 ;A3DZ 3I3E3DF 7SJ +ECF7ROE3T	R3C	TO7N6JJI3TG
/M7F.4G^.0B06IN/3AWM2 	F3ESL6 OA2 WR7FJ 7ESS3ROI3T?IN*M6IE3TSN/E7D.0S^"0606JJI/EGL"2&=6 :1.4B0"M&J3R3E3FSL*=BI.2S^"0602J2I3OSA/Z7B.IN /^B4"0*M*LB * B * B 6.OA7ESC2 	LT7S*JB * B * B 3FWI+LCD"0*M* B * B * * .1N26MFJ+Q27* B " 676JGQ*420* B "4606JGQ*720* B "7
06JGQ*727* B "7676JGQ.1^7*,B .1^76MFJ/QB2*0B,. B2"0*M/QOQ*727. N "7672J7Q.2B0*,B .-B2"0*M/Q
Q.6B02=7Q.2B06MFJ/MB1*,B . F-"0*M/Q
Q.7B72=7Q"1606JGQ3AWS7M[L6,OA3E3MV*M3QKQ3A/C+U3P3BOA7KCU6MFJ7QKB3AON3HJ,3R;AC7H6JGQ3CWR+FB,3CWRF*M3QOQ3R[L2,N 3R[L6MFJ7QCD3R;I3TR,3P	RN7T6JGQ7ESN+E3R7ESNE7R6JGQ7EOO*,B 7EOO6MFJ7QKE7RKO6,KE7RKO6MFJ7QE+P3R6 EP7R6JGQ3FOS3H/E6,OF3CWHK*M3Q
Q3EOT+H3R7GSE7CKH6MFJ3QWG3TGK3R^,3E/TA7R6JGQ7GSE3S7Y2,WG7T	SM*M3QQ7GOH+C3T3HG7SSC6MFJ3QWL3TWT3R2,7ESTE7R6JGQ7LOI7TKE2,	L3SWTR*M3Q3Q3O/O+U3P3L?O7KCU6MFJ/QB7.0603Q3Q3O/OU7P2J7Q.1B060F=/QB7"0606JGQ3O	R+GB,3O	RG*M3Q?Q+U3T2 > U7T6JGQ7PKA3S7Y2,GP7R	SM*M7QCQ7AOS
3B,7AOS"3*M7QCQ3OKT.,^ .6V0* B 6 V/7NOUE7D6JGQ7PCO*,B 7PCO6MFJ7QWP+S3H6 WPS7H6JGQ3P;U7BSI6,WP3N	BT*M7QCQ3UKT+I3T7PSU7BSI6MFJ7QWP7T	S7MB,7UOTY7M6JGQ7PU3B;I6,WP3X	BN*M7QKQ3ESA+L3N3RGE3D;L6MFJ3Q?R/T[L2,?R/T[L6MFJ3QOS+A3N2 OSA7N*JB * B * B 2.	LS7T*JB/* B * B 
FI3TKA&M*J

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