File CCLSUB.MA (MACREL macro assembler source file)

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

"/*M"/*M"/*M2/?C7PKY3IG+TB *(	C. F .9&76 	B2 	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O*M>J*M>J*M>J*M>J3TWH2 ;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/"J*M"L*M2/WV3R	S/O7N3VF32 R(*.;H")*M.LN/2IOC7LN 7ICM+LCE3C7O3M;A7DN 7UKB7OSU3IWNS*M"M&J6.E7TKE3N3A2 WR+M3D3R
E3OZ,3L
A2,?F7R[E+E3R3R7E+E3M3P7R3E
S"M&J6.E7TKE3N3A2 SR3M;O2,GB3TC"M&J2.3G3OGB7LV 7SOR+U3B7BOA+U3B3DGE3S	SG7N*J:I7ESX3E;R+ACL7AOS3I;G6,WF+D3G3D	V+C3E3L?O7KB,3R;IT*M2IV.7NKT7YZ 7ESR+N>I3C3A3LSE2 ;I7DCE3ESN7ESN+LCY+BCY3C3C"M&J2.3G3OGB3LN 7RWS3BV,7DWS7B*,7EORU7B*J:I3G?L3B3A2 WT7CWS3B6,7AOK+U3
3M
N3SKU"M&J2.3G3OGB7LN 7QWS3B.,7IKL7TJ,7EKN3T6,7OKVT*M2IV.3XWT3RGN3LN 7DKE22^,7EOT+P3C3GC2,WZ3ROO3D2,3B
EI7N*J:I7ESN+RCY3CSM7EKR"M&J2.;E7T	R2 OC3SKU"M&J2.3G3OGB3LF 3R?L+C>I****"**M2I?M3F3I/E^=.6B0"M&J3MGP3R7A.=Z7"463"J*M6IKX.2F="5*M6IKX.=Z1"M&J3N7A/E61"2632J:I3AWM.2J="4*M2IGN/MOE.=V2"M&J3N7A/E64"2662JRI3E	L/MN="2*M6IL/RN="4*M6IOO27J8/I7T.7^7"1*M2IOC7LWN+MJ=
3*M2IOC3LWV+RJ=A*M*L:I7SSB+TCL+U3A+U3B+UCC3C7O3M;AD7S*J:I3RWS+CCT3C3C3SKU"M&J3FWI+LCD"1*M*M>J7TOE3TV +NCD+OCF3TKAL7E"J*M7UKS3SKU.,BI"M&J3TSA* CI2(WRM7D6JNI+MCA3CGL"M&J7JCM* CI2(WRG	O2/WR3M7E7BKE+ECD3A: +ECW3L;IE*M2IGT3D& 2 Z(3L
A6I^/7ASN2 ?T"M&J3ASN. ^("0*M2I3C7LJ T7R6JJIA7R6JRI+ACD.(F-*I>I+ICN3T	H7SJ +E7M3L;IE*M2IOD7AV "$*M2I7J3S& 2 Z(3OWR7VKE2I:/3OR 3AWT"M&J7JOM* CI2(WR3M7E6MVJ"$&:"0*M2I7J3P& 6 OU7RWSB*M*L:I7SSB+TCL7BOA+ICC3C7O3M;AD*M2MJJ7AWSB&,"0*M2IGT+D" .2B06IN/+ECT*/CQ3S	W
TC"M&J3DGC* CI6(CM3AGR/MF+"M&J7JCM* CI7BOAU7B"J&L2.KS3T3T2 WV3R	S+OCN3C7O3M;AD*M6MZJ7ESRN&,"0*M2I7J3S& 6 J(3D?M+N>I3RGE3D6 3O	N7TKO"M&J3C[D" 606JRI+ACD+I" .2N0*1>I7GSE2 GP3TC2 WL3V3E"M&J3SGN"M&J3TSA* J("!*M2I;A+D" "7672JRI+CCA3T7E"$*M2IGT3D& . J(.0B02I^/+
CT7VKE3S?I+NN "M&J3C[D. B1"M&J3SGP2M.J/KZ7.0*0.IZ7"0&0*IJ/*0B"3MGE+NCS3OSL"M&J3TSA. Z("0*M2I3C7LJ T7L6JJIT7L6JJIT7L6JRI+ACD3T7E"$*M2IOD3A& 6 Z(3LOO"M&J3C[D" 606JRI+ACD+I" /O
S28	BT*M2I;A+D" .2B0"I&/"7686JNI+ZCA3CGL*I>I6IKO"M&J3TSA. F(.0B0"I&/"/686JRI+ACD.(^5"7602JNI+DCF"1602JRI+CCA+I" 3LOO"7682J*I+MCS+I" 3P7R3E
S"M&J3VWMS*M3T7E"$&:"0*M*L:I7SSB+TCL3DGE3S	S+GCN3C7O3M;AD*M*M>J3A3L+OCW3DGE3S	S+GCN3F?O" 6?"J*M3DGE3S	S+G3N"0*M2IGT+D" .7R7"0*M2IOD7A" R*M2IGT+D" .-^1"M&J3DGC* ST"M&J3DGC* CIX7R2J&I+SCZT6$2J*I+MCP..J-"M&J3C[D" 606JRI+ACD+I" .7R7"6*M2I;A+D" .6^7"7*M2IGT+D"
.1B0"0*M2IOD3A& . ^(.7Z4"M&J3C[D. B1"M&J7JCM* CI3DGE3S	SG7N"J*M/T*$"I602JNL7HOK+U3P"I602J*I+MCS+I" 3FSUG*M2I7J3S& 2 F(3S	SG7N6JRI+ACD3N7AE616JNI+NCA3CGL"M&J7JCM* CI3C/H7SCU2IN/+A
N7TN +UCP+ICF+NCO3F3I3EGNM7E6JRI+ACD+I" 3D	VC7E2J*I+MCS+I" 3L?O+K>I3L?O7KV 3PZ 3IWL"M&J3N7AE612J*I+MCP3IN 7HOKU	P2/?N3TZ 3O;U+D" 3G?OD6)2J*I+MCS+I" 3P	RN7T6JNIU7P2J*I+MCP3IN 7HOKU7P"J&L2.KS3T3T2 WZ+RCO3C7O3M;AD*M7ZKE3SKU.,BI"M&J3TSA* CI.(Z7"0616JNI+NCA3CG
*I>I7WOA2 	F3L;E3AWM6 CS3E	C3FWI3D> 7N* 3E?R2 7CD6?6JRI+ACD3I. /KZ7"0&06/KO2 GW3S: 3O> +UCT7D[E3IWC6 CS3E	C3FWID6?6JNI+NCA3CGL"M&J7JCM* CI2(SC/EKR6I&/+E;S*.B.7EKRO7R2J*I+MCP7I* 7EORU	B2/?N2,> 7K	A".*M2MNJ3MWD+R3R2I7J3S& 6 B(3RWMS	G2/?N3TF 2 WL3G3A2 WK3Y?W
7D2JVI3RORM7D"J*M3R;E7MOE6,RI7ESX2IZ/3IWL7SJ 3EGN3MSE":6/6JBI3AWG"M2J6IN.7BST7LB +UCT3MOAR7O*J:I3N3O7ISS2 WM"M6J*J:I3MOA+RCO7PSU6 TT*M2I7J7SR 7ECCU7T"J*M2I&.3F& +DCN7TSX7[61.,2$"M&J2.;E3A3B3EF 3S	CI*M6IR;7ESX2IF<3L7T3OWD6>R"7X/T.2B:]6"*J:I3EGN3BWL2 	S3X	B
*M"I6>"J*M2I&.3FR +ICF7TSX7[61.,2$"M&J2.;E3A3B3EF 3S	CI*M6IR;7ESX6IR/+X?T"M&J2.;E3A3B7EN 3IKXI7T.J:I"M6J*J:I3ESNM*M*L:I7SSB+TCL3M/A3EN 3O7M3ASN"M6J2JFI3L7T3OWD.=N2"3*M6MNJ7ECTA&,"0*M2I7J3S& 6 N(7ET"M&J."/P""	A2I./7ECE2 WH+RCE+TCO3M/A3EV 7A	S2 ?T2 GP3TC"M&
7JCM* CI7SSEP7A"J*M3M/A3SKU.,BI"M&J3TSA2 WD3L7I"M&J3SGN2 3CA*M2I7J3P& 2 N(3MWDR	R2/?D7NR	2 3A7L
O2 GM+KCE6<KC">*M2I7J7SN 3E3TX7R2J*I+MCS+I" 7GSE3SOP"M&J7JOM* CI2(?LV7E6JBI+UCT6"
E""*M2I7J7SR 3E7CO7V2J*I+MCS7SSEP7A6JBI+UCT*"J$"M&J7JOM* CI2(C7KWSP*M2I7J3S& 6 J(3EWMM*M"I602J*I+MCP3I6 7AOKU7B"J*M7SSE7LKX.,BI"M&J3TSA* CI2(KL3E	GN*M2IOD3A2 X7R6JRI+ACD2(?M3F3I/EF-"M&J3DGC* CI6(	TR*M2IGT+D" "-&56I*/3E?R6 CO3T?I7NR 3A3B7ER O7O2J*I+MCS+I" 
ZKE3OSC"M&J3TSA6 LR*M2IOD7AN 3A3VX7R2J*I+MCP7IN 3E3TX7R"J*M6/WP3TZ 3O3L3O	W+NCG3CGH+RCS7ISN7OR 3E?C6 WB3FWF7RZ +ICA7TKX"M6J2JWT7CWPT&,"0*M6/RI+ACD3N7AE61"J&/3SGN2 3CA*M2/*I+MCP+I" 3CWDR626JRI+ACD7IR 7ECCU7T2J&I+SCZ3TOE7PSU"M&J3SGN"M&J7JCM* CI3TOE7PSU"M&J7
OM* CI6(CTU7T2J*I+MCP3TOE7PSU"+61*J>L7M[O3EN 7HKA3SZ 3R7O2 	F3ESL* B03L;I3EJ 3U[FE7R2JZ/3R7O2 GS7VL/RF+2 ?T6 L/RF-2 ;I7CWL7S[IE*M2/;I+TCO3TOE3O2 3IWN6 WB3FWF3RF /TF .7B6"0*M6MRJ3E7C+O3V"I606JRI+ACD7S[A7LKX"M&J3DGC6 KX"2*M2IGT7DN 3A3VX7R2JNIM7A6JRI+ACD7LKX
M&J3SGN2 3CA*M2I7J3P& 2 N(7DKE*2>I+NCO3F3I7EN 3POE2M2J"$&:3C[D" 606JRI+ACD7I" R622JNI+DCF"1602J*I+MCS+I" 7TWPT*M2IGT7D" R622JNIM7A6JRI+ACD7LKX"M&J3SGN2 3CA*M2I7J3P& 2 WT3C?MV*M2I7J3P2 "$*M*L:I7SSB+TCL3TOE3ON 3O7M3ASN"M6J2JWT7CWSB&,"0*M2I7J7SN 3E3TX7R2J*I+
CS+I" 7GSE3SOP"M&J3TSA2 WD3L7I"M&J3SGN"M&J7JCM2 WT3C?NR7M6JRI+ACD*(J-*<>I3A3L+OCW*"K
6 OA2 WW+LCL+ACS*"J<"M&J3SGZ"M&J3TSA* J(*<J-"=*M6I+SA*M2IGT+D" *"6=""7
6JNI+ZCA3CGL"M&J7JCM* CI2(SC/EKR.MFJ"$&:3C[D" 602JRI+CCA3I2 X	R2/C3A
N/E2 2 ?T" 602JNI+DCF"1606JBI+UCT6"
E""*M2I7J7SR 3E7CO7V2J*I+MCS7SSEP7A6JRI+ACD7LKX"M&J3DGC2 GS7VLR*M2I7J3S& 2 N(7HOKU7P2J*I+MCS+I" 7GSE3SOP"M&J7PSU* R"+EKR"M&J7JOM2 WT3C?MV*M2I7J7SN 7ECTA*M6IWP+TJ *$KY"M&J7JCM2 WT7C[L"M2J3TOE7NKO7MB,+UCT2"KE""*M2I7J7SR 3E7CO7V2J*I+MCS7SSEP7A6JBI+UCT6"&$""*
3TOE+L3V2I7J3S& 6 J(3EWMM*M"I602J*I+MCP7IR 7EOCU7B2JGS7VLR&,"0*M2IGPG7E"J&L2.KS3T3T6 WM+NCG3C7O3M;AD*M6MRJ7PSU.,BI"M&J3ASN. F("7&72/WT+CCO3L/I+ECS27J-I7T2J&I+SCZ7TKY"M&J3DGC* CI7TKY"M&J3TSA6 	TR*M2IGT+D" .-Z7"4&62/C3E/C2 ?F3R> 7VKE3F?L3W> 3FN 3DF 3RGE"M&J
SGZ2 3CA*M2I7J3P& 6 CTU7T2J*I+MCS+I" 3P7R3E
S"M&J3T?O3L
N"M6J2J;M7GWSB&,"0*M2I7J3S& 6 N(3E3TX7R2J*I+MCS+I" 7GSE3SOP"M&J7PSU2 V"R6"2J*I+MCS+I" 3TOE7M[O"M&J7JOM2 WST7X*JJI+TJ;E*M6IWP+TJ 2$Y3XY+KKI"M&J3TSA2 WD3L7I"M&J3SGN"M&J7JCM* SF"M&J3TSA* 6(""6,6JNI+ZCA3CGL"M&J7JCM* CI2(SC/EKR2M2J"$&:3S3T2 3C7AJ A	R6/KP3EWV+N
T2	OG+HB	3F?R3M" 3ASN3L;I7GN 3POA3EF +NCD"/*M2I7J3S& 2 ^(C7H2JFI+NCD.(^1*7>I7GSE2 	R3D> 3F" 3IG6 KO7DKE2 	BT*M2I;SA*M2I7J3PZ "$*M2I7J7SR 7PSU"M&J7JCM* SL2MZJ"$&:7PSU* R"+MKY2I6/7AKC3O^ 7EOT2 GC3LWL7D^ 3IT2 ?P7ISN+ECR7POA3TN 7HKAS*M2I7J3P& 2 ;M7GWSB*M7TKY.
BI"M2J2/WS3TR 3EGF7USL6 E3T;E3S?IN*M6MNJ7ET.,BI"M&J3TSA* CI7SSEX*M2IOD/AF "$*M6IOI7ZN 7ET"M&J3TSA* CI7SSEX*M2IOD/AJ "$&I2/GF+LCL7TKH/UJ +NCD7ESX"M&J3TSA2 GN/MSE"M&J3SGN2 3CA*M2IGT3D: 3AWM"1*M2I;S3AN L7A2J*I+MCP7IN 7ET"M&J3TSA* CI7TKY2I^/+ECT7LOA3TN 7HKA2 
(3OV +X	T"M&J3TSA* 6("5&62/GW3S& 3TF 2 ?DT6?6JNI+NCA3CGL"M&J7JCM* CI7SSE+X>I7YOE"M&J7JOM* CI2(WT7CWP+T>I+N3O6 OU3ER 3EGF7USL6 E3T;E3S?IN*M*I:".MFJ"$&:"0*M.2*$"I60.JBI"M&J3TSA* R1"M&J3ASN. ^("7*M2I3C7LJ T7L6JJIT7L6JJIT7L2JRI+CCA"16$6JRI+ACD"26$2JFI+NCD.(^7
M&J3TSA* R1"M&J3DGC2 GN/MSE"M&J7JCM* CI7SSEX*M2L?L+V3E"I606JRI+ACD3N7AE616JRI+ACD*(^-L7O6JNI+ZCA3CGL"M&J7JCM* CI7L[OE*M2IGT3D: 3AWM"2*M2IGT+D" 6-Z	E*M6I+S3AN L7A2J*I+MCP3I2 3OWV"M&J3TSA2 GN/MOE"M&J3TSA2 GN/MSE"M&J3SGZ2 3CA*M2I7J3P& 2 ?LV7E2J*I+MCS+I" 3P	R
7T2J2I3O7VE7S2J*I+MCP3I2 3OWV"M6J2J?T3O;LG&,7TE+T>I2?C3MGM+NCD3T?O2 ?L+N?G"M2J7COC+U3B"I&06IV/3SSE2 ?T2 ?F3RWC2 T+ICS3OWV3RGL3Y& N*M2I7J3P& 2 OC3SKU"M&J3P
AE*M*L:I7SSB+TCL3CWR3AWT2 ?C3MGMN7D"J*M7COR+U3B"I606JRI+ACD+I" .7F6"7*M2I;S3AN L	A2IJ/7EST+ECR+BCE+NCO7ICNU7T6JRI+ACD3I. .7B6*0>I7A	N3T	H+NCG3TWH/R?E"M&J3SGN2 3CA*M2I7J3P& 2 N(7DKE*2>I+NCO7OSU7PSU6 KO2 WY3S& 7NWPT*M2I7J3SV 7DWS+B>I3R7E3OWV2 GB+C7K7AKR+OCW
ASN2 WR3M7E7BKE6 KC7ESA3E2 3IWN"M&J7JCM* CI7CORU7B"J&L2.KS3T3T2 SE+ICT3C7O3M;AD*M2MVJ7DWSB&,"0*M2ISC/FB "M&J3DGC* CI3A3RO	C2/WR3PGL+CCE7AKR+OCW+BCY3N3UL*M2ISC/FF "0*M2I7J3S& 6 J(3EWM+M>I3R7E3EKM+ECR7N
E2 ?C3MGM+NCD3L;IE*M"I612J*I+MCP3IV 7DWSB*M2MFJ3R?LC&,".&I2/?L7CSA3I;O2 [O2 GB+C7K7AKR+OCW+ICN3C7O3M;A3D2 3IWN"M&J*I>I*	^.6 OI2 GH3R3M7EOS2 ?P7ISN+ECR+ICN7COA3E: 3OF 3R?RW*M*L:I7SSB+TCL7SWQ3IS2 ?C3MGMN7D"J*M7SOQ+U3B"I606JRI+ACD3I. .7B6"0*M6I+S3AN L7A2J*I+
CP7IN 7QWSB*M2IGT3D& . ^(.6^1"M&J3DGC* CI/KZ7"0602J*I+MCS+I" 7BSAC	H6/OI2 GB3TC6 WR3N	N/N?G"M&J7JCM* CI7SOQU	B2/?N2M.J.7B6"0&,.7B6"0&I2/WY+S" 3CWL+ACR+A	C"M&J3TSA* CI/KZ7"0606JRI+ACD.(Z7*467*1>I3P	O+NCT7ISN3OR 3E	V+CCE3H;A3DWL7RJ 3E	S3D;E+CCY3TKAL7E2JRI+C
AT6$6JRI+ACD7IR *$>I7GSE2 GH3N3D+ECR3SGT3R	T+NCG3ASD7ROES*M2IGT+D" .-Z7"0676JNI+ZCA3CGL*I>I+ICS7SWQ3IS+ECD7D[E3IWC6 	S/S>:"M&J7JCM* CI7SOQU	B2/?N"M&J7JOM* CI6(KP7ISN"M&J7S
Q3A;R*I>I7YOE6,^ 3A;R6 OUE7R2J*I+MCP7IN 7QWSB*M/T*$"I60"J&L2.KS3T3T2 ?C+P3Y2 ?M+V3E2 ;A3DR 3EWL+TCE3C7O3M;AD7S"J*M3K3I+R3T"I606JNI+TCL3CGL2 GR+R>I.4B0206 3E;A3S: +OCT3POA3KSE"M&J7JOM* CI6(KP7ISN"M&J3K3I7MOE"M&J7JCM* CI3K3IR7T"J*M3R;E+R3T"I602J*I+MCS+I" 3P
RN7T6JJI3E7NE7S2J*I+MCP7IJ 7EKNT*M2M6J7OKVT&,"0*M2I7J3S& 6 B(3R;IT*M2I?M3VWMS*M2I7J3P& 2 ?M7VSR"M2J3VWMS&,7TE7T2I+O?S*86 2 KK7MZ *3CA2-N +CCL3VF1\*M2I?L/C"72=7V+E/S"1*M2I3V/O7C3VWM/SZ+"M&J**6."2*M2IOC7LWN/M^&.7G^*0.02<OC3LWV/R^&"76>*J*I..J+2M2J3O7V+E3S2IW
X	T2/?N7T^ /A?R"/*M7SCU6,RI7ESX*IV/7SCU7EOR3E	D+N?G2MVJ3ROR+M3D2IWTX	T2/V3R?R3R& 3NN 3O7M3ASN"/*M7S
Q3A;R6,RI7ESX*IV/7BSA+CCH7SWQ3IS3I
N6 	S+SF:"/*M7M[O7MOE6,RI7ESX2IZ/3IWL3SN 3O	P/E+D"/*M2IV.3NKA+LCE3AOSI7I2J	K3LWMS&,7TE+T>I;F3)+%C3;$3%;%W4+$>:"M&J2.;E3A3B7EN 3IKXI7T6JBI3AWG&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

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