File CSA.PA (PAL assembler source file)

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

2/GC3SWS3TWT2 GH3N3D+ECR7FKO6 SR+SB83VJ2"I&I.8N/.0^/"4*M2IWV/R7S"I616J"I7LOI/TFI*I>I7CCO3Y	R7GSH2 3A+SCO7G[I+ECN+ICN7PKA+A;MP7A"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/2JN/7O	P3R
I+HCT2 N(*)B .1^9.4F,.9V7.,&1*7B6+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"/*M2I3X7ISS"I&02/	L+SCT
TOAK*M2IOK/L7R.6B7*0>I3CWL+ACR3A3L"M&J*I>I3CWL+ACR3SGT7TOU* CA3ASN* CB3R
E7ISS7EOR"M&J3KSS/RZ=.7F06IN/7KCI2 ;O2 GD+TCA3FGLG*M6IOK/E7N.6B7*2>I3S	K3P> 3NV 3R?RR*M6IOK/B7F.6B7*3>I3S	K3P> 7NJ 3ESA3YZ 3L
A"M&J7KOL/AZ=.7R02I2/3OSA6 SS7AWT3SF 6 KF+OCM+ACC.4F-"1*M"I&I2/3C7EKA2 OA6,R 3H;E"M&J*I>I3LGO/D" 2 	B3TN 7OCM3L7E7ESN2 [O6 SS7AWT3SF "M&J*I>I3BOA3K& 3N?T2 OA"M&J3KGS/FZ=.7V06IN/7KCI2 ;O2 ;A3YZ 3L
A6 KO6 KE7RKO"M&J3K?G/AZ=.7Z02IF/3SWS+RCT3TWH2 ?C3NWT7NOT2 [O6 SS7AWT3SF ",*M"I&I6/KT7AON7FKE2 GD+TCA+ICF3RGE3D> 7R^ 7RSIE*M6IKK/S7B.6B7*7>I3RGE7DN 7TSA+UCS3B& 3N?T2 OA* 64"1612J&I/N7T"1*M"M&J3I	N/W7T"0*M2IGT/S7K3CGS"M&J7CKU.=B1"M&J3FWIL	D7CKU.%B1"M6J2JZ/
O7R+ACT+OCF7MOE3S
A3E& S6:"J6/2J6/+S3G2IKZ3LOO/KN *M>J2I?W+RCD.16 2 ;UI7T"J&/2I	B+TCS.9F-.16 2 ;UI7T"J&/2I	B+TB *0B . 6 * B06=V 3T3I3I	T+ECS3C3AL*M"/&I*IB .=F * B=3H;A3DWL3RN 3A3L*M>J2I?W+RCD.26 6 WF7NSC3I;O*M>J2IZI+OCR3H;A3DWL3RJ +ICT.06 * B16=^ 7RSI+EB,.=B * B=3RGED*M"/&
*IB 2 J 7IOT* 66.86 2 	F3ESL2 [O6 WB3FWFR*M"/&I*IB 2 J +ICT*1B1.=F * B=+DCO7NSO6 SS3OWR2 GD+TCA2(;O2 WR+ACD3O3NY6)"J&/2I?F7RV 3T3I7I	T6 SU+ICL7WKOD*M"/&I.IB1* B=7R
E3ISN*M>J"I&I*3B02=J 3A/C3SGP+CCE3F3I3E^ A7P"J&/.IRI.06 6 KW3IWT2 	F+LCE7GCA*M>J"I&I*5B02=J 3A/C3SGP+CCE3B?L+CCK7GCA*M>J"I&I*7B06=N 7KCI2 ?T2 	F+LCE7GCA*M>J2I?W+RCD"3*M"/&I7FKO6 SU3I	L+TCY6=N 7TSA+UCS7RSE3U;R*M>J2IZI+OCR3H;A3DWL/R6 6 WB3FWF3RF 7DKD7EOS*M>
2I?W+RCD"4*M"/&I7FKO2 GH3N3D+ECR6=J 3E?C+RCD7S+IE*M"/&I7FKO6 SU+ICL2 ;U3UWSD*M6/^I3OSR" 65"J&/2I?F3R" 3ASN7LKE* B=3SGT7TOU2 WR7TKUN*M"/&I7FKO6 SU+ICL2 ;U3UWSD*M*M>J3SGT7TOU* CB7BSIS6:"J&/24N=+R?C3B/L6 KE7RKO*M>J.I653T7I3I
N*M>J.I667ESO2/?BT*M./^I2=?EF*M./"I6=KD3IWV2 7E7P	T*M>J.I69R7W"J&/.1603W	R+TCE3LOO3K> U7T"J&/.1613RGED7Y"J2L.IN*.6B02MZJ3ISX+V3C"I606JJIA	R2I6/3OWV2 ;U+ICT+TCO3L;I+KB;7D[E3IWC2 ?T2 OA"M&J3ASN.IN(2I6/3A/S2 [O3FR 3E	V+CCE3CSOE*M2IOD3ARIV	C2/GS+VCE7D[E3IWC2 
CD7E6JNIZ7L6JRIA	D.(B1"0*M2IOD3AFI3B;UI	T2/WS7TV 7NSI2 ;I2 	B/TV "M&J3TSA6I[DC*M2I3C7LJ T7L6JJIA	L"I*M2IOD3ARIV	C2/?M+VCE+TCO7BSI/SZ "-686JRIA	D2(?I3T3B"M&J3DGC2I?I7TSPR*M7ISO3L?O7PR,+ACD3I&I7OCTT7R6JNIN	A2IV/+NCD+OCF3TKA/L?E"M&J7JCM2IC3E/C+R>I7YOE"M&J3DG
2I7TP*M2IGT3D& 2I7TP*M2I;A+D"I.7B7*7>I7MOA3K> +UCT3OSL6 [DC*M2IGT3DRIV	C2/;I7SKE3T: +ECW3OWN"M&J3DGC" 	I7TCM6IJ/3E3P3AWC"M&J7I+S2I?I7TSP+R>I3P	O+NCT+TCO7NE3T> N7E2J*IM	P7ISO3L?OP*M6MRJ+M3P"I606J[DC&,"0&I2/WD3VOI3EN 3OWD2M&J7OCT+T3R"I602JNL3HOE+K3R2I7J3S& 
IN(3LGER*M2IGT+D"I.2B0"M&J7JOM2I?L3AGD6IN/3EWL+CCT3D	RV7E2J*I+MCS+I"I3CWH3CKK"M&J3ASN.I^(.7V32I&/3G?N+RCE7ESO2/?B3TZ 3L
A* B+3W?L"M&J3TSA*I6("1*M6I+S3ANIL7A2J*I+MCP+I"I3S3E7EKR2I:/+OCT3RGED7Y2J*I+MCP3IZI3ISXV7C"J*M6MJJ3ESAX&,7JOM" 	I2(CK*M2I;A3D2I.3R7"M&J3SGZ"M&J7JCM6IKER7X2J?I3TN62,.I3GGO*I>I7GSE2 C+ACR7JOU7TJ 3ESA"M&J3DGC6I	BT7E2J&IS	Z3B;KT*M2I/SP*M2I7J7PJI7WKCC*M2IGT3DJ
3YWT2MJJ3FSL2,"IL7T2J7D3P3FG&,3DGC" 	I7BSP+R>I7ZKE3OSE2 [I2 	B/TF .1F=2 ;O2 WRA7D2JNIL7A2J&IS	Z7BSPR*M2ISC3FNIU7R.JOL*724.I^3"4*M2I7J3S& 2I&(7DOIP*M2I7J7PJI3ESAX*M"M2J3LGO+D3A"I606JRIA	D7AWB7NSI2M&J/OST2,.I3LGS"M&J3CGL"M&J7JCM" 	I3LGOD7A"J*M7AWB7NSI.,BI"M
J6J
R3COR6,RIA	D.(Z220&+N	T2/;E3A3B+EB,3EGN3BWL2 ;I7TKE6,J 3ESA6 KCC*M2I7J3S2I3OSAA*M2I7J3S& 2I^(O*M2I7J3S& 2I&(7DOIP*M2I7J3S& 2IN(H7K6JKC3C;M2,*I+MCS+I"IG7O2J*I+MCS+I"I3I	DS7P2J*I+MCS+I"I3CWH3CKK"M&J3ASN.I^(.7V72I&/3G?N+RCE3W?L"M&J3TSA*I6("1*M7EKRX&,3SGN2I3C
A>I7EKR7OOR"?*M2I7J3PVI7RKR"+&12/?N* B-3CWL+ACN3B3I3L> 3F" 3E3AT7H.JOE2,&I+SCZ+I"I3E/RN	T6/KT/YN 2 	T7MOE"M&J7JCM* CI2IV(3RORO	V2/WR7T	R2MVJ7RKR6,NIT	A2IV/3R?R7R^ 3H3I7EJ 3ESA3I
N6 KCC*M2I7J3S& 2IN(3LGER*M2I7J3P& 2IZ(3IGNL*M6LKW3IWTX&,7JCM2IWR7AD6M^J7RSI+E3L2I7J3S& 2IN(H7K2JNI+LCL7RKT"M&J3S3Z"M&J7JCM6IKER	R2/3W3O> 7N^ 7RSI3E> 3P: +OCT7WKO+TCH7RSE3R	YN7G6JNI+ZCA3CGL"M&J7JCM.IOE"M&J7I+S2I/BN7T6JNIK7P2J*IM	P7WKCC*M3B	F3ESL2,"IL7T2J&
S	Z7BSPR*M.IB7"M&J3TSA" 	I7BSPR*M2I7J3S& 2I^(O*M2I7J3S& 2I&(7DOIP*M2I7J7P^I7RSIE7L"J*M6M^J3COR6,RIA	D.(Z220&+N7T2J*IM	S3LGOD7A2J*IM	P3CORM7N2J/B+N3T"I&02I:/3UKM+ECR+OCF3CGH+RCS7ECX7ESCE7D6JCB+T3R"I&02I:/7ESX2 ?L7CSA3I;O2 ;I6 WB3FWF7RR 7ON 7TKO3E& 3N?T2MJJ
YWT.,BI*I>I3T7E7PKO3A	R+LCY3H3O+DCS7BSY3EZ 3O;UD*M2IGPG7E2J&L3OKTL&,7ISO"0*M2I?IT612J&I/OST"M&J7ISO"5*M2I?IT662J&I/O[TC*M2I?IT672JVI3RORO7V.JBI"M6J6JSU+I3L2IGRR*M2IOD3A& 6IV(7NSI"M&J3DGC2IWR7W
S"M&J7JOM" 	I2(WG+T>I3F;U3C	T+OCN7WKOD*M2IGT+D"I.-B1"M&J3SGN"M&J7I+S2IWR7W
S"M&J3TSA.IJ(*1.07ISN"M&J3DGC2IWT3M[PN*M2IGT3D& 6IV(7NSI"M&J3I[O"M&J7JOM" 	I2(	F7X[D+C>I7FI2 WD3VOI3EN 3OWD"M&J3TSA6IV(T*M2IOD3A&I7DOI+P>I7SSE2 WR7TKU3NF 7DKD7EOS"M&J3TSA2IWT3M[PN*M2I7J3S& 2I2(3OSAA*M2I7J3S^I+O>I3I	N3TGI+TCE3U	TL*M2I7J3P& 2IN(3OSMN*M+U3T2
7J3SNI3HOEK	B2/?L+OCK+ACT3SGT7TOU" 7B2JFIN	D.(B52IN/3HOE3KZ +OCR+C3L2 7E7P	T2,> 7R^ L7O"J&I2I^/3IWV2 ?N6 KE7RKO2 ;O2 3W+O* ************"*6*"J&I2IJ/+ACD7FKO6 KW7GCA"M&J3SGN"M&J7JCM2I/O2I:/3OV 3R?RR7S6JRIA	D.(R-"0*M6I+S3ANIL7A2J*IM	P7NSOO	K6/KE7RKO2 ?N3TN L
M2IGT7DJI7EOWW*M2I;S3ANIL	A2/3C2 /O2 [I2 	D7DJ 3E	WN7D2J?N3T/O6,NIT	A2M>JK&,7JOM2I3C7EKA"M&J7JCM2I	F3N3A"M6J2JWT3M[PN&,"0*M7R
E+S3W"I&0.IF/2 WM7AON6 CO3EGR3T?I3N& 7SJ 3E	WN7D2JNL3HOE+K3B"I602J?I+T276IKKS	B6IJ/3ESA6 SS7AWT3SJ 2 ;I+TCO+ACC.4F-"1*M2IOD3AJI3SGTT	E2/GS+VCE3SGT7TOU" 7B6JRIA	D7BSS3AWT"M&J7JCM" 	I3CWH3CKK"M6J2J3C7EKA.,BI"M&J3DGC6IKE3R;I+D>I*-B13MGE+NCS6 KE7RKO2M&J/OCT2,
I7CKL*I>I3CWL+ACR3SGT7TOU* CA3ASN" 7B2J*I+MCP3INI3LGER*M2M^JO&,"0*M7ISO"6&,3K?GA&I6/OA7SKE3TN 7OSN7ESN3S> 7FN 7TSA+UCSA*M2I3CA*M2I7J3P& 2I?G"M6J2JCK&,"0*M2I7J3SNI3HOEK7B2JFIN	D.(^3"6*M7ISO"1&,3KSSR*M2I/SP&I2/GD+TCA3FGL3G: +OCT+UCP"-*M2I7J3P& 2ICK*M2IGT+D"
.-B2"M&J3SGN2I3C+A>I+ICS+ICT3ESN2 [O2 	F/L?E"M&J7JCM" 	I6(KER	R2/WY+SB,7EKR+OCR2-J +UCT3D;O*	CT7RSER7Y6JRIA	D7BSS3AWT"M&J7JCM" 	I3C/H"M6J6JOB7TSAE&,"0&I6/SS7AWT3S> 7FJ 3E	G3SWT3RJ 2MVJ3R	R+N3D"I602JZL3IGNL&,3TSA2IR(3OWNF7G2J*I+MCS2ISI7ICS2IZ/3IGN7LB +DCS7
SE3SV 3V;E3TZ 3L
A"M&J7HSL*I>I3DKE+UCG3O3N+YB.3S?H3USL2 WN7VKE2 WG3T" 3EWR"M6J2JSI7ICS2,"IL7T2JNII	F"0*M2I?P3SSTS*M2MNJ3A	S+N3T2IKZ3LOO/KJ 2M&J/OWT2,.I3S[A"M&J7JCM" 	I7COA7ISN"M&J3C[D2 	C3FN U7R2J*I+MCP3I&I7DOIP*M2MVJ3ROR+O3V2IOKL7R6JRIA	D.(V220&+N7T2J*I+MCS+I"I3LGOD7A2J*
+MCS2I?G2IJ/3A/C3SGP+CCE3B?LC7K2J*I+MCS+I"I3I	DS	P2/GWI7T2J*I+MCS2IC3E/CB*M2I;A+D"I.3R72I./3I3L6 KW3IWT2-?L+CCK7BSI"M&J3SGZ2I3CA*M2I7J3P& * "I7EKRR*M2I7J3S& 6IN(7EWT+P>I+R7E7SSE6 CU6 CO3EGR3T?IN*M2I7J3P&I7DOI/PF+2IZ/3AWK* CA7JOM"M&J3P
AE*M"L&/6*KOG63"J*M3SGT+R3T2IGCL*M3D;O3E
F6,NI3K	PN7S2JNI3A	SN7T2J?L+O3P2IGCL*M2IWR3C	EV*M3ASDR&,"0*M2IOD3AZIL7D2JRIC	AR7W6JRIA	D3DGC7SSE"M&J3DGC" 	I2(7D3P3FG*M2IOA.7^7"5*M2IGT3DFI7DKD"M&J3DGC2IWM3V3FG*M6IOI3ZRI3OWNF7G2J*IM	S7GSE"M&J7I+S2ISAD7R2JNIL	L3R3A"M&J3S3N"M&J7JCM" 	I6(SUI7L6JJIA7R2JRIC	A
U	NT*M2I7J3S^IE7T2JFIN	D/PB72I&/3S3O3AWT2 	F3ESL2 [O6 WB3FWFR*M2IGT+D"I3C[D"M&J3DGC2IOWD7F2J*I+MCS2IWG+T>I7RSE3RWI+VCE3F;U3C	T+OCN3C;O3T?R7L^ 3OSR"M&J3R3A*I>I3RGE7D^/7RSI3EJ +ICT+TCO3L;IK*M2I;SL*M2I7J7PJI3ESA"1&1*/CA3RGE3D> P*M2I3C7AJIA7L2JGR7N
D2,RIC	AR	W6/
R*=B1+ICF3W	RT7E2J&IS	Z3ASDR*M2I7J3S^IE7T2JRIC	A3B[U7FKE6IN/3AWV6 SI"M&J7I+S2ISAD7R2J*IM	S7GSE"M&J3C[D6IWCR*M2IODA& 3B	SZ	E2/WR7CKO7DN 3IWZ"M&J3TSA2I;UI	T"M&J3I[O"M&J7JOM" 	I2(	F7X[DC*M2IGT7D^I3C[D"M&J3DGC" 	I2([B3I3ED*M2IGT7D^I3C[D"M&J3DGC" 	I2([BL7D6JNI
TCA3C3L6 SR+L>I3TSA* 6("3*M2IOD3AVI3R;KT*M2I7J7SNI7EWT+P>I7SSE6 CU2 WR+ACD+OCR3W	RT7E2J?C3M;D2,&IO7N2J:IO7P2JNIA7L6J^I7ASIE*M2I?D3N[EG*M3R;T7SOT2,&IS	Z3ASDR*M2IGT3D& 2IV(3R	RN7D2JFI+NCD+I"I7BSS3AWT"M&J7JOM2ISC7FOMG*M2IOD3A& 2ISAD7R2JNID	F7CKU"M&J3TSA2I3FD
M2IOD7ABI3FSL"M&J3TSA2IWM3V3FG*M2IGCL*M2I?PS7T2J[P+L3D"I602J*IM	P3L?OP*M2M^J+E3T"I&0"M&J7JOM2ISC7FOMG*M2IGT3D& 2ISAD7R2JNID	F7CKU"M&J7JCM" 	I7GSE"M6J2JSC7FOMG&,"0*M3FSL.,BI"M&J7JCM" 	I3C[D3M
S"M6J2JWR/AGD"1&,7RKT*I>I7BSI. F12 ?T2 	LN7K6JNIZ	L3CGL"M&J3DGC" 	I2(7D3P3F+G>I3D;O*	CT3S?T+RCE7DSAA*M2I7J7PJI3ASNW*M3DGC7SSE2,JI7PKT.&^1.7N+.6B02IR/+CCA3IJI7PKT"M6J2J;U+I3T"I602JWM3V3FG&,"0*M3B[U7FKE.,BI6MJJW&,"0&I*/B1+ICF3W	RT7E6JKE7KSN*,6I"3*M/PB7.,^I"
*M3B	S+Z3E.IB2"0*M6MNJ3EWL+R3R6ISSA*M2I7J7PJI7TONT	S2/WR7TKU3NV 3R?RR*M2LWS7TCU.,BI"M&J3TSA6I
R"M&J3TSA6I^(7RSIE7X2JRI+CCA+I"I3I	DS	P2/WS7TJ 7EWT+RCN3ASD7ROES*M2IGT3DJI3U[FE7R2JRI+CCA+I"I7BSPR*M2IGT3DJI7S+IE*M2I7CA&I2/GW+NCT+TCO3RGE3D> +NCE7MKOE*M2IGT7DJIW*M2IOD3A& 2IJ(7KSN"M&J3TSA6I
R"M&J3C3L6ISRL*M6ISRL&I6/KW3IWT2 ;F2 ?C/D7E"0*M2IGT+D"I.2B02+;I+T>I3S3E7ESC2 ;A3D& 3NWT7RWR+PCT3EGN3BWL"M&J7JOM" 	I2(?L3AGD6M^J3C[D2,"IL7T6JRIA	DR7W6JNIZ	A3CGL"M&J3TSA" 	I3B[U7FKE.I6/7BSP+R" 7FKO* B27L[E7EOL2 [O2 ;I7DKI7ESC")*M2ISC3FNIU7R2J*I+MCS+I"IG7O2J
I+MCP7INI7EWTP*M"M&J"$*M"LBZ"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"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