File CCB.PA (PAL assembler source file)

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

2/WD3CWN/T"/. GV3AN 3O;N7ESC2 ?C7NKT+OCL3B?L+CCK7FKO7MSA"M&J3ISF+ECF3DOD+MCP2<3X7ISS">*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2/?C7PKY3IG+TB *(	C. F .9Z7.,&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"/*M2/R 3E;C+E?T68J 3EWL3AWS2 WV3R	S+OCN
1*M2/R 3E;C+E?T68B 3AOT3H2 3EWV3LF *M>J6 CA3R3I* 28. &1"767"J6/"J6/"J6/"J6/2J&I3FWD3FR 3D7C/P2 "M&J3X	LS7T2JVI3JOET*M"I6>*J>I3PWR3L7I3IGN+RCY3D[E3I	N3T?IN7S*J>I3TWH+SCE3S?H3USL2 ?N3RGM7L	L2 WB2 WD3F;I+ECD+ICN3UWS7RN	2 GTS7K"J*M2/C3A;NL&=6IN/+ECT+TCO3CKC2 
R7FKE3EON3E: 3UKME7R2JN//C7B"I&I2/WS7TR 3ON +CCB3O	R3G;I2 N(+CCB7MOU3T2 +ICE7WSI3H;I* CA3P
AE6)6JV/3SGR/S7T*I>I7SSE2 ?T2 ;E7T	R2 ?P7ISN2 [O2 WD3CWN3TR 3EGR+ICL7RWO3T;IE*M"M6J2JZI3I3E3D:I3S[P+LWD"160"J*M2I[I3D[E2 C3A;N/L2 "M&J2*C3A;N/LK^2+OC3BGT/BJ-6IN/7EWT3PN +CCB3TKA+LCE7ESN+RCY7FKO2 T+ICS3CKC"M&J3C[D6IWCR*M2IOCB*M"I6>"J*M2I	F3ESL6IWC/RF%"0*M"
&J2/OC7BN 7TSA3EJ +ICT3D[E3IWNS*M2MNJ3HON/O7N.IB2"0&06IN/+ECT+ICF3CKC2 ?C3NWN3CWTD*M3C;H7COI.=FI.0B0*I>I7SSE2 [I2 	C2 GW7SN 7ESN2MNJ3HON/I7R.IB4"0&I2/WS3T& 3FN 7I^ +ACS3ROE7E[IE7D2JC3NOCS&=.2B0*I>I7SSE2 [I2 OC2 GW7SN 7ESN2MNJ3HSN/I7S.IB1"0&I2/WS3T& 3FR 7I
 +ACS3S;ET*M3C;H3N3L.=RI"0&I2/WS3T& 3F: 3O7R+ACL3L
O3IGC3L2 3I/N2MNJ3H?N/F7L"I&46IN/+ECT+ICF3CKC2 ;I2 [O3F2 3IWN2 ?MD7E"J*M2I6/3S[G+LCG3D[E3IWNS*M6MJJ3TKH/I7T"I&16IN/+ECT+ICF7RWO3T;I3G" 3ESA+ECR3PWR3S;ET*M3CKM/I7T"I&26IN/+ECT+ICF3T	H3S& 3SF 2 ?C7NKT+OCL7MOE3S
AE*M7ISN7BSI.=RI*I>I7SSE2 [I2 T+ICS+ICS+ACN7ISN7EKR7USP2 WM3SGSG7E"J*M2IR/3D7C3PZ 3UON3T?I3NN 3OWDS*M6MNJ3N[D/U7N"I&06IN/3ESN2 WM3SGS+GCE+OCN3L;IE*M7SKT3F;U.=FI*I>I3SGT+RCT7SGE3U;EC7E2J3H7TWFN&="2&I2/GH+LCT3L;I3EF +NCD7RSE3U;R2 WM3SGS7GOE2M>J3F[L/U7N"I&36
N/3ESN2 WM3SGS+GCE3O[F2 	LN7E"J*M2IR/3EGR+ICL3RGE3S;O2 ?C7DOE"M6J2J;I7TORN&="0&I2/;I7TKE7RCU7TN 3EGM3P?H+RCE3F?R7MB 7ASR7NKE2MNJ7OKN/S7N"I&12IN/3O;N7ESC2 ;I+ICT3ROE7E[IE7D2J	D7SORN&="2&I2/	D3S?C3NWN+CCT3F?R7MB 7ASR7NKE2MRJ7AKB/S7N"I&32IR/3IOS3O;N7ESC2 KA7
SR2MVJ7RKR/S7N.IB1*I>I7NCS6 KE7RKO2 GC3UWS3D2 3I/N2 ?T6 KB3E/A2M2J7DKN/S7N.IF1*I>I7P	H3SOI+ACL3L;I3KN 7AOU+ECD3L;I7KR 3OJ 3RGEK*M"M&J6/ON3PZ 3UON3T?I3NN 3OWDS*M2MNJ3O	N/N7I.IB1.+B7"0&02IN/3O;N7ESC2 ;I3I	T3AWT2 :(+L/L+FCC3D[E3A3UT6)2J?C3N;CF&=*1.1.7B0"0&I2
?C3NWN+CCT3C;O7FKI+M" 3N3L2+OF2 WD7FWA+L	T2MNJ7OKN/E7J.IJ1*I>I3C;O3NOE7TJ 3EWJC7T2J	D3S?CN&="1&32IR/3IOS3O;N7ESC6MRJ7RON/M7T.IR1.+B4"0&06IR/3R;A3S	M3T6 7EOS3AWG2 V(+OCM3D[E3A3UT6)2J;I7TCRT&="1&56IN/3ESN2 ;I7TKE7RCU3T6 7EOS3AWG6MJJ3C7V/S7G.IZ1.+B4"0&06IJ/3
WC3IWV2 WM3SGS+GCE2(WN3W6 +SCG3D[E3A3UT6)2JOR7NOMG&=*1.6.6B0"0&I2/WR3C	E+VCE7MOE3S
A7E^ 3IT2 ?N2 	L+NCK3SGT7TOU6 KT7AON7MOI3S?IN*M7R[C/S7M.I^1*I>I3ROE7E[I7EN 3I
N+LCE7MOE3S
AE*M3T;R/S7M.IB2*I>I3TGR3N7S+ICT3S;I3GWL2 WM3SGSG7E"J&L6/SS7AWT7S^ 3OSR2 WD3F;I+ECS2(?L/WZ 2 	B+T	S"M6J6JWS7CSS.=BI*I>I3SOU7COES*M7DOI/S7T"I&12IR/3IOS3O;N7ESC6 KP3E7E3PWTD*M3DKA/S7T"I&22IF/7BKO7TB 3RWE7MSPE7D6JKD7JSS.=NI*I>I7DOI3C;O3NOE7TJ 3EWJ+CCT+BCY7NC
2MNJ7ROJT&="4&I2/?C3NWN+CCT3R+E7ESC6 	B2 GT3RWG7TR 3A/S2M&J7LOLT&="5&I2/3I3L
O3IGC7LJ 7EWQ7ESS2 &(3G?N3RSE")*M7LSS/S7T"I&62IR/3AGT2 ?L+SCT7WKA3N;IG*M3NSO/S7T"I&72I:/3OWD2 GN+MCE7NSO2 ?F3USN2MVJ7RORT&="1&02I:/+SCP7EKR+OCR3PWR7ECM3TSE2M2J7DONT&="1&12I2/3IWN6 KD7OCP+ECD3PWR7ECM3T;I7GR 7HOI2 WRQ*M"M&J6/ON3P6 7EOS3AWG6 	T+PCE3ASN6 WS7B
T3PN 3OWDS*M2MNJ7OSN/Y7P"I&12IN/3O;N7ESC6 	TP7E2J	D7S	TP&="2&I2/	D3S?C3NWN+CCT7TCYE*M7LSS3YWP.=NI*I>I3L;I7KN 7TSAU7S6JKE7R	TP&="4&I6/KE7RKO2 WM3SGSG7E"J*M7COI7USB.=BI*I>I3C;O3NOE3T& 7NSI7ISAE*M7COC7USB.=FI*I>I3C;O3NOE3TN 3O[N3I7R2MNJ7RWS/B7T"I&22IN/3O;N7E
C2 WR3JOET*M2MRJ7RWS/B7T"I&32IR/3IOS3O;N7ESC2 WR3JOET*M7DOI7USB.=RI*I>I7DOI3C;O3NOE3T& 7NSI7ISAE*M7DOC7USB.=VI*I>I7DOI3C;O3NOE3TN 3O[N3I7R2MRJ7AWS/B7T"I&62IR/3IOS3O;N7ESC2 KA7OSR"M2J2I[I3D[E2 C3A;N/L2 "M&J2/?C3NWN+CCT3C;O3T?R3LJ 3LOO3KF 3RGE"M&J2/T3OWS2 ;
3T	R+ECS3FGL3GWG+DJ */J*2 ;I2 T3EN 3O7M7ESN6 WM+SCT+BCE3I	N3TGI7L+IE7D*J>I3P	R+OCR+TCO3UWS"M6J*J*I3CKC"M6J2JOC7BSSA&,"0&I6/SS3AWT2 ?WR7D2JOC3B?DT&,"0&I2/WD+SCT3O+B7ESC6 	TP7E2JOC3B;D"1&,"0&I2/WD+SCT3N7AE*M3CKC/DKN.,BI*I>I2(	S3X	BT6)2JOC3B;D"3&,"0*M3CKC/DS
.,BI2MNJ3CSB+N25"I602JOC3B;D"6&,"0*M3CKC+D3G"I&02IR/7ESS6 KG7OCU2MNJ3CSBU&,"0&I2/WD+SCT3UWSR*M2I?N3P;UC7H2JOC3B?ST&,"0&I*/B*7SWO3RWC2 KO3JOE7TR 3YWP2MNJ7COB+N21"I&0*I*/2 ?S3UOR3E: 3AWM2MNJ7COB+N22"I&0*I*/2MNJ7COB+N23"I&0*I*/2MNJ7COB+N24"I&0*I*/2MNJ7COB+N2
"I&0*I*/2MNJ7COB+N26"I&0*I*/2MNJ7COBG&,"0&I*/B*7SWO3RWC6 KG7OCU2MNJ7COBU&,"0&I*/B*7SWO3RWC6 OU+ECR+[3P7P7N*.:."M&J7ECN3UONH*M*I:*2MNJ7CSB+S3K2IGTS	K*I*/2 GT+SCK7BWO+NCD+TCO3T	H3SN C7B2JOC3B;DO&,"0&I2/WD+SCT3NSO+E" 7ROE7E[R+E	D2MNJ3C3B+I3N"I&06IB/7HOY3IGC3
2 3I/N6 WN3MWB+R" 3DOD+MCP3L;IE6)2JOC3BSN"1&,"0&I2/?C3NGT7ION2 ?N+DCE3N7A3ER 3U	R+NCG3C;O3NOE3T?IN*M3CKC/NKD.,BI2MNJ3C;B+D23"I602JOC7BODT&,"0&I6/OD3TSA7RR 7HOI2 ?C3NWN3C	TO7N2JOC7BOD"2&,"0*M3CKC3SOR.,BI*I>I3SOR7AKD2 T+ICS3C;O3NOE3T?IN*M3CKC/SKR.,BI2MNJ7CC
H&,"0&I2/WH+ACD+OCF3TGR+NCS7RGE7S^ 7ASI3I
N2 ?F7RB 7OSS2MNJ7CSBH&,"0&I2/WH+ACD+OCF3TGR+NCS7RGE7S^ 7ASI3I
N2 ?F7RR 3R;AS*M3CKC+T3T"I&06IR/3A3I2 [O6 KT7AON2/?P+SCT3QWU+UCE2(WN7WOE7TJ 7EOQT6)2JOC3BR.,BI*I>I3HGE7DJ 7E[C" 7Q2JOC7BSR.,BI*I>I3T	A7LJ 7E[C" 7Q2JOC7BKTQ&,"0&I6/KT7AON7MSI2 WR3Q;C+T" 3F?R7MV 7SKE2 WR3C	E7VOE")*M3CKC3T
S.,BI*I>I3TGR3N7S+ICT3S
E7CSN6 KF+OCM3UWS7RJ 3EWC3IWVS*M3CKC7RGR.,BI*I>I3ROE7E[I+ECD7RGE7CSN2 Z(3R7O2 	L+N	E2MNJ7CKB+S3G"I&06IJ/3EWC3IWV7DN 3EOGN7T2JOC3B?CN&,"0&I2/?P7ISN7SR 3ON 3O;N7ESC2 GP3CWKT*M3CKC7DOI.,BI*I>I3P	O7NOT2 ?T2 	D3S?C3NWN+CCT3POA7KSE2MNJ3C	B+N3T"I&06IB/3O;I+TCS+T
O7ISN7EKR7USP2 GP3CWK+T" 3O3N/YF 2 3A7L
O+E	D2MNJ3C	BH&,"0&I2/;I7TKE7RCU7TF 2 WHA7D2JOC7BSI.,BI*I>I7ISN7EKR7USP* CQ3T	AL*M3CKC+I3C"I&02I&/3NWT7RWR+PCT3QWU+UCE7S+I3E2 3I	M7TKE2MNJ7COB+M3T"I&02I"/3ESA2 [O2 	S3N3G3E6 7EOS3AWG6 KT7AON7MSI6 WQ3EWU2MNJ7COB+M3R"I&02I"/3ESA2 [O2 	S3N3G3E6 7EOS3AWG2 WR3
	E+VCE3QWUU7E2JOC7BORN&,"0&I2/WG+TCS3RGE3S;O2 ?C+DCE7FKO2 ;I7TKE7RCUT*M3CKC3D3R6,VI3SGRS	T*I*/2 WD3R	A3LF 7DKD6 B(7SWE+DCO7ASS")*M3CKC3O3P.,BI*I>I6-	B+TCE7CWO+NCT+OCF7OSP3I;O+ACL7DSAA*M3CKC+A3C"I&02I6/3A;I2 	L+NCEA7C2JOC3BOP.,BI*I>I3M	A3N2 3IWN2 OP2MNJ7CB
D3F"I&02IN/+DCF3M	A3N2 3IWN2 [D"M&J*I>I+ICF3N;O7ZKE3O& 3N	D7CSA+ECS+ACT7ASS2 WL3V3E"M&J*I>I+ICF7ZKE3O& 3N	D7CSA+ECS+ACT7TOA3K2 3EWVL*M3CKC3G/L.,BI*I>I7SSE2 	L+NCK7ION+TCR2(;E7T	R2 [O6 OA3TV 7XSI2 ?C+D	E"M&J3DGC2IOC3BSX+F>I3CWL+ACR3X[D2 3F+ACG7N
O"M&J3TSA2IOC3BOA2I^/+ECT3TWH2 OA"M&J3I;O*I>I+RCE3EGN3BWL2 ;I7TKE7RCU+TCS7N
O"M&J7JCM" 	I3CKCP	C2/WR7TKU7NR 3O6 3A;I3L;IE*M3CKC3R;T2,&IO	F6IV/7SKE6 OA7TJ 7EWT+RCN7RWO3T;IE*M2IGT3DNI3C	B+H>I3SWE2 [I2 ;A3Y6 3OWR2 GP3CWK+TCS3W	A3T;IG*M2I;S3AN L7A2J*IM	P3CKC3X[D2IV/7XSI2 & 3F: O*M2IGT3DNI3COBH	N2/3E+SCE7SSE2 OA2 ?T2 C3A;N3L: 3UKME7R2
NI+ICF3C[D6ION3P3F+D>I7GSE2 WS7TR 3OV 3NWT3R: S7P2J*I+MCP3INI3CSBX	T2/WG3TF 7NSO7HKE2 WR3QWUS7T2JOC7BDT&,3D3R7XSI2MNJ7CSB+S3W6IOT3W3FG*M3CKC3C;H2,NI3H;AN	L*I*/3UWS3RN 3H;A+NCL3N7U7BKE2MNJ3CGB+S3T6IOI3Z& 2IOC7BOT+W>I3C7O3E" 3EWR6 KF+OCM7ASS2 WD7QJ 7OSU3IWN
M&J7JCM*I..*3>I3S	K7PR 3A/S6 
S3IOT3H& 3F: 3O& 3NWT7RWR7POT"M&J3C3A"M&J7ROE3CSH*I>I3OT7E
R3IWS2 WR3SC7EWDL7E2JNID	F7CKU"M&J7JCM" 	I3CKC3D3R2IV/3NWT7RV 7SKE6 OA3T: O7W2JOC7BCO+T:="M&J2/T3E: 7ESX. Z16.^ 3OSR3S& 7NR +HCE3CKC3TKA2 GH+VCE7LOA3T> 3PST3AGT2 ?GT*M2MNJ7COB/I7Z2IOC7BCO/TJ+20N-7COBT	A2/GT7L	L2 3A7L^ 3OSR3S& 3NF 7CWT+ACL3CKC"M&J">*M"LBZ"
"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