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+SB8V&2.I"I./B3./R7*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J7CCO3Y	R7GSH* " +CB). &1*724.1^925J 3YR 3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?IN*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2/T3E& 3N?F3RGM3T?I3N& 7NR 7HOI2 ?D3C7U7ESN6 
I6 WS3BWJ+CCT+TCO3CGH3NWG2 	W3T?H+UCT7NSO3IWC*M>J3ASN2 S3O3U3D: +OCT+BCE3C;O7SKT3USE6 OA* CA3C7O7MSI3M;E3TJ 3YR 3I	G3T3A6 GE7UCI3M;ET*M2/?C3R?P7RSA3I;O*.B 3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	T+OCN7AOS3UWM3S: 7OJ 7ECS7OON3I	B7LSIY*M2/?F3RF +NCY7EKR7OOR2 T+ACT7M	A6 CA3PGE3R& 7NR 7HOI2 ?D3C7U7ESN".*M"/*M2/T7EN 7OSF7WKA3ER 3EOS3RKI+ECD+ICN3T	H3SR 7OWC3M;E3T& 3SZ 3U;R3IS+ECD+TCO3TWH6 WP3RC3AWSR*M2/;U7DKE* CA3LOI7EON
EZ +OCR3UWS2 ;O* CA3S;I3GWL2 ?C7MWP7TKE6 	S3SWT3MF +NCD3C;A2 WB2 ?C3PWID*M6/^(3IT2 ;I7CWL3S?I3N> 3FR 3I	G3T3A*	CS7CCO3Y	R7GSH2 ?N3TOI+EB)3O3N3YZ +OCR3UWS2 ;I6 WSC7H6JN/7YSS+E3M6 E7CCE3TF 3S6 +ACY3OT7E
R3IWS2 WB6 KP3O	V3DSE2 ;I6 KW3I	T+NCG+BCY3D
I3IGTL6."J6/2JR/3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?I3NF 7SWS7MOE2 ?N2 WR3S?P3N	S3B3I7I	T2 ?F7RR +HCE3UWS*M>J+OCR3R3E3IKA3I	L+TCY+OCF7IOT2 ?S7F
T3AWR2 ;O6 GE7UCI3M;E7TR 7HSA6 OI2 ?N7TN 7UCP3LWI3DJ Y*M2/	D7GSI+A;L*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J"M2J2L.I7CKL.=^6"0&02/3C7EKA2 3AL*M"I&I2/3C7EKA6 SS7AWT3SF 2 ;A3DJ 2 WR7GOI7TKES*M6IOK/D7R.6B7*1>I3S	K3P> 3NR 3AGT2 3FA7G2J.I3S;E.=^6"0&22//S+ICP+O
N7EKRO7R2J.I3S[B.=^6"0&32//S+ICP+OCN3RGE+DCY3FGLG*M2I3K/S7A.6B7*4>I3LGO7DN 7TSA+UCS3AZ 3R7O2 OA* 64"161"J&I2IN/3LGE3RF +CB,3TWHN*M"I&I2/?L+ACD28J +ICT3C7O3PWL3M;E3T> 7FN 7TSA+UCSA*M"I&I2/GB+CCK7ISN3OF C*M6IOK/A7F.6B7*5>I3S	K3P> 3NF +NCY3FGL3G> 3RV 3R?RR*M
I
K/O7A.6B7*6>I7AOS7ESR2 T3EN 7OSN7ESN3S> 7FN 7TSA+UCSA6,"J&I6IR/3R;A3SWF3RR 3AGT2 [I2 WR+ACD+OCR3W	RT7E2J.I3RKS.=^6"0&72/WR+ACD3SGT7TOU* CB7ISN3OF /CR .-F1"M&J7ISN"=61"J*M2I;I7ISW"=606JRI3A/S6=OCA*M6IWC/RF="0*M2I	F3ESL6IWC/RF%"0*M*M>J7FKO7MSA2 [O2 WM3SGS+G
E/I+S*M>J*M>J3M
S6,*I3B?L+CCK"3*M6/^I3OSR* B16=V 7NSI*M>J2IJI7IOT* 69*1B16=V 7NSI*M>J2IJI+ICT* B0* B .=B * B=3U	T7LSI7IOE2 GCL7L"J&/*IBI* B=.16 2 GH3N3D+ECR3C3AL*M6/^I3OSR* B22=Z 3UON3T?IN*M"/&I7FKO2 GH3N3D+ECR7BSI* B0.=F * B=3W	R+T3E* B=.06 2 WRA7D"J&/*IBI* B 7BSI/SZ *-
82=Z 3I3E3D> 3FJ 3U[FE7R"J&/*IBI* B 7BSI. F1* B=.16 2 ?D2 ?N7TN 7TKO3ER 3AGT2 >(7NJ 3ESA2 ;O+L	Y*M>J2IZI+OCR3U	T7LSI7YV 3T3I2 ?WR7D"J&/.IFI.06 2 WR3W;ID*M"/&I.IB3* B=3BOA7KCS3AWC2 	F+LCE7GCA*M>J"I&I*4B06=^ 7RSI3EZ 3IWL2 GGP*M"/&I.IB5* B=3BOA7KCS3AWC2 3B3O
C2 GGP*M"/&I.IB7* B=3S	K7PR 3OZ 3IWL2 GGP*M6/^I3OSR" 63"J&/2I?F7RV 3T3I7I	T* B=3SGT7TOU2 WR7TKUN*M"/&I7FKO2 GH3N3D+ECR2=J 3U[F+ECR3ASD7ROES*M6/^I3OSR" 64"J&/2I?F3R" 3ASN7LKE* B=3ROE3OSR2 	SZ7E"J&/2I?F7RV 3T3I6 V 7NOUE7D"J&/7WKO/DV *M>J2IZI+OCR3H;A3DWL/R6 
 SS7AWT7SJ 7EWTR7N"J&/2I?F7RV 3T3I6 V 7NOUE7D"J*M6/SS7AWT3SJ 2 	B/T+S*M>J.I643COR2/3B3KV 3R?RR*M./VI2=	T3M;IG*M./ZI2=?E3TJ/O7T"J&/27V=O7F"J&/28R=7R[I3EV 7MSPY*M./&I6=
R*M>J.IB16=KW3IWT2 ?L+CCK7OSU*M>J.IF12=WR7A	D"M2J*L*I.3B6"0*M7FI3DOV.,BI"M&J7RKA*I>I7M[O7EV 7NSI2 ?T2 	L/N/K2 WD3VOI7ER 3OF C*M2I;A+D"I*3>I7MOA3K> +FCF7D[E3IWC2 ?CD7E2JRIC	A3DOV6IN/3AWV2 WD3VOI3EN 3OWD"M&J3S3Z"M&J3TSA.IF("0602JRIC	A7AWB7NSI6IN/+ECT3U	N3T&
3NJ +ICT"5*M2IGT3DRIV7C2JNI+LCL3R3T"M&J3R3A"I6I2JRIC	A3DOV2I6/3OWV2 ?T2 	B+TCS.6"-"M&J3TSA2I&(3OKTL*M2IOD3A&I7OCTT7R2J?I3T?L+O3P3TSA" 	I7ISO7PKT"M&J3SGN*I>I3ESN2 [O2 GT3BWL"?*M2I7J3PNI3HOEK	R2/WYS*M2IOD7ARIM7P6JRI+ACD7IRIM7P2JFIN	D.(^7"0&72/GM+SCK7OSU2 3O
DR V7C6JRIA	D3DOV2I&/3NWS+RCT7N
E2 ;OE*M2IOD3A& 2I7T+P>I7RCE3LOAE*M6IOI3Z&I7OCTT	R2/?P7ISN2 ?T2 WN+XCT3OWN"M&J7JCM2I?I3T?LO7P"J*M7TCM.,BI2MRJ+V3C"I&02IR/3E	V+CCE3CSOE*M7ISO7PKT.,BI"M2J3CWH7CKK2,*I+MCS+I"I3CWLA7R6JRIA	D.(B2"0*M2I7J3S2I3OSA+A>I3S3E7ESC6 KD3IWV"M&J7JOM" 	I2(C3E/CB*M2I;A+D"
.7N7*5>I3I;G3OWR2 ?E3TJ/+OCT3FGL+G. 2 3WO*M2IGT+D"I"-616JNIZ	A3CGL"M&J7JCM" 	I2(WS7LKE+R>I7NSO2 WR7A	D"M&J7JCM" 	I7FI3DOV"M6J"J*M3RGE+D3X2I7J3S& 2IN(H7K2JFIN	D/L^3"4*M6I+SA*M2I7J3PVI7RR2M&J/O[TC&,3K?GA&I2/WG3TN 7HKA6 WJ+SCT3RGED*M2IOD3AJI3YWT"M&J7I+S2I/BN
T6JNIK7P2J*IM	P3ROWR7C6JRIA	D7BSYE*M3B3FD&,7HSL2MRJ3M[P+L3G2IOD3A& 6ICBT	R2/WZ3RWO3D& 3FJ +ICT.16121> 7NJ 3ESA"M&J3CGL"M&J7I+S6ICBT7R2JNID	F7CKU2M2J.3R7.,NI"7642J*I+MCS+I"I3I	DS7P2J*IM	P3RGED7X"J*M2L?L3AGD.,BI"M&J3TSA2IKA3U	NT*M7ISO"4&,7KOLA*M2I3CA*M2I7J3
& 2I?L3AGD"M6J2JKA3U	NT&,"0*M6MJJ7WKCC&,3TSA.IJ(*6.07ISN2IV/3NKA+L3E2 ;E3A3B3E& 3NWT+RB,3RGE3DN R7C2J*IM	S3LGOD7A2J*I+MCS+I"IG7O2J*I+MCS+I"I3I	DS7P2J*I+MCS+I"I3C/H2MNJ3R7CN&,7JOM" 	I2(?G"M&J7JOM" 	I2(SI7ICS"M&J7JOM" 	I2(C3E/CB*M2I;A+D"I.7^7*5>I3I;G3OWR2 3
O*M2IGT+D"I"-616JKE+R3X2I;S3ANIL	A6/KE7RKOS6?2J*IM	P7EKR/RF+2I:/+O6 2 3C3E;A2 	B+LCL+OCF3HGE3LT2MVJ"3&,7I+S" 	I6(KE7KSN6IR/+RCY63R 3IWMS*M2I7J3P& * "I7EKR7C[O6IJ/7EKTY*M7EKRR&,3SGT*I>I7EKR+OCR3W	H+LCE3RGE3D;I3GN R7C2J*I+MCS+I"I3CWLA7R2J*I+MCP+I"I3F;IA7L6J
L7RSI+E3X2I7J7PJI3ESAX*M3W	R3T3E2,*I+MCS+I"I3C/H"M&J3C3L6 SRR*M6I+SL*M2I7J3PVI7RKR6I^/+LCO+OCN3W	R+TCE+OCP7NSO2 ?W3RT2 WR7T	R3I
N"M&J3SGZ2 3CA*M2I7J3PVI"3*M6IOI3ZJI7KSN"M&J7SCK"M&J7JCM2IOWR7C2J[B3I3ED&,7HSL"M&J7I+S6ICBT7R.J^I"0*M2IGT3D& 6ICBT7R2J*I+MCS+I"IG7O2J*I+MCS+I"I3I	DS7P2J*IM	P3W	R3T3E"M6J"J*M7WKCC&,3TSA.IJ(*6.07ISN"M&J7JOM2I?L3AGD"M&J7JCM6IKC3C;M2MJJ7KSN.,BI*I>I3N7U7BKE2 [
2 C7AOR6 E3POE3TSE2MJJ7PKT.,BI*I>I7NE3T2 3OGC3T?I3N& 3NJ 3U[F+ECR+TCO3S?T+RCE7ISNO*M7BSYE&,"0&I2/WT3M?P7RKA7I	L2 ?H7LOD6 	B+TCE7FWON7D6JBI3AWG"M2J7ISO+B3L2I?IT602J&I/OGT"M&J7ISO"4*M2I?IT652J&I/O[T"M&J7ISO"67C2J&I/O
T"M&J7EKR7C[O"M&J"0*M6MVJ3T3I6,JIA7R2JRI+CCA+I"I3U	NT*M2IOD7AJI7EOWW*M2I7J3S& 2I^(E	T6/WF7NSC3I;O2 ?WR7D6JRIA	D.(F-"0*M2I;SA*M6IOI7ZJI7EOWW*M2IGT+D"I.2B12+;IT*M2IOD7ARI7ECMF7N6JRI+ACD+I"I3U	NT*M2I?IF*M2I7J3S& 2IZ(3ISXV	C2/	F3XR 3E	V+CCE3CSOE*M2IGT+D"IU7T2
RIC	A3I	DS	P2/WS7TJ 7EWT+RCN3ASD7ROES*M2IGT7DRI7ECMF7N2J*I+MCS+I"I3LGOD7A2J*IM	SG	O2/;I3I	T3AWT6 SUI7L2J*I+MCP+I"I3C7OD7N6JSU2,*IM	S3CWH3CKK2I2/3O/O6 SA6 SS7AWT3SJ "M&J3ASN.IV(*0>I3CWH+CCK7FKO2 3C2,V 7MSP+YB,+OCR3W?L"M&J*I>I7G[I3E: 3OV 3R?R3R> 7N^ +LCO***
************"M&J*I>I3BSA2 ?F7R^ 3RGGP*M2I;SA*M2I7J3P>I+K>I+NCO7EKR7OOR"M&J3TSA*I6("4606JNIZ	A3CGL"M&J7JCM2I?N3T/O2IV/3R?R3R: +OCTC7L6JRIA	D7R
ES7W6JNIN	A3CGL2IN/3L> 3K& 3FR +ICD7R
E3ISN2M:J3O?TK&,3SGT"I*M+O3K2I7J3SNI3LGER*M2I7J3PZI3IGNL*M6MRJ7ECM+F3N"I602JWR7W
S.,BI*I>I216 3E;A3S> 7PKE3A	T+OCN+ICS7R
E3ISN"M2J3CWH3CKK.,BI2M&J/O
T2,.I3RKS*I>I3RGE7DN 7TSA+UCS3B& 3N?T2 OA* 64"1612JRIC	A7BSS3AWT6IN/3AWV6 SS7AWT3SJ "M&J3TSA6IOB7TSAE*M2I7J3P& 2IC3E/CB*M2MNJ3LGER&,"0*M2IOD3AVI3R	RN	D./F-2 WM7AON2 V 3R?RR*M7ISO"0&,3K3CR&I2/3C7EKA6 SS7AWT3SF 2 ;A3DJ "M&J7JCM" 	I3CWLA7R"J*M+G3O"I602J?I+T2
2I
KO	A2IF/3SWS+RCT3C;O3T;E+TCS+OCF3SGT7TOU" 7A2JNIL7A2J*I+MCP3I^IO*M2MNJ+H3K"I602J*IM	S3CWH3CKK"M&J3ASN.IN("7662J?I+T216IOKD7R6JNIK	P2IR/3AGT2 3F+ACG7NSO6 CU" 6-2J*I+MCP3INIH7K6JRIA	D.(J-"0*M2I;S3ANIL	A6/OI6 SI2 ;E3D> 3FZ 3IWL"?*M2I7J3P& 2IV(7RKR6I&/+E3S6 K
7RKO* B-7BSU2 ?D7NR	2 WR7T	R"M&J3TSA6IOB7TSAE*M2I7J3P& 2ICK*M2MJJ3SGT+T3E"I&06IN/7TSA+UCS+OCF3R
E7ISS+ECRB*M7EKR3ISN.,BI"M2J3F;I+A3L2IGT+D"I3D;O3E
F"M&J7JOM2 &I7DOI+P>I3F;I+ACL7POD2 WS+TCS3EWV+NCT3FGLG*M2I3HT&I2/WD3B
U2 ;O+L;Y2 S3O3U3D: 3EWV3R^ +ECT7HKEE*M2M&J7DOIP&,7HSL"M&J3C[I"I606JBI7OSSD7S"J*M7COA7ISN6,*I3B?L+CCK"2*M7ISO"5&,3KGSF*M2I7J3P& 2IGC3S;IT*M2ISC3FN +ICF7CKU"M&J7JCM" 	I3I	DS7P"J*M7EKR7C[O2,.I7CKL"M&J3TSA.IJ(*5.07ISN"M&J7JOM" 	I2(?L3AGD"M&J7JOM2 ^I+O>I3BOA7
CS3AWC2 3B3O/C"M&J7JOM" 	I2(SI7ICS6I^/7ASI"M&J7JOM2 NI3HOEK7B2JFIN	D.(^3*4>I3K3I7L^ 7RSI3E2-3O/C2 	BT*M6I+S3ANIL7A2J*I+MCPI& 6(KER7R2J*I+MCS+I"I7SSEU	P2/WR2-WS7TV 3P> 7PKE3A	TO7N2J*IM	P3I	D+S/P*1>I3F/A3EF 2 7JS*M2IGPG7E*J>L2I>*/ROG"M6J6JSS7ASR2,NIA7L2J?D3
[EG&,7SCK7ION"M&J7COA7ISN2M2J7OCO2,NIA7L6JJI3EWCI7V2JSA+D3R"I602JRIC	A3FSL"M&J3DGC6I
R"M&J3TSA2IOD3AWST*M2IOD3A& 2IR(3M[PL7G2JFI/C^7"7656JRIA	D3ASDR*M2IOD3A6I3E[VL7G2J&IS	Z3D;O3E
F"M&J7JOM2IWGT*M6IOI3ZFI7DKD"M&J3C3L2IGRL*M2I;SL*M2I7J3P& 6IV(3T3I"M&J7RKA"M&J3DGC2I;UI7T2J*IM	S7GSE"M&J3ASN.I
P*0>I3I?S7LSA3EZ 3I3E3D> 3FJ 3U[FE7R6JRIA	D2(SCF*M2IOD7A^I3C[D"M&J7JOM2 ^IE	T2/WR3T	R3EWV6 WF7NSC3I;O2 ?C7NKT+OCL7WKOD*M2IGRL&I2/WR+A?D3W	R+TCE7BSI2 ?T2 	LN7K6JNIN7L2J*IM	P3RGE/DF12IF/2 WR+ACDO7P2JNIL	A3R3A6MJJ3ASNW&,3DGC6I
R6IJ//WF=2 [I6 KW3IWT"M&J7I+S2ISAD7R2J*IM	S7GSE"M&J3DGC6IWB3FWF+R>I7S[A3E& T*M6IOI3ZFI7DKD"M&J7JOM2IWGT*M2ISC3FNIU7R2JRI+CCA6IOB3IWZ6IJ/3E?C+RCD7S+IE*M2IGT7DVI7NSI"I*M2I?IF*M2I7J3S& 2IZ(3ISXV7C6JRIA	D3WSCF*M2IOD3A& 2IJ(3FWIL7D6JRIA	D3WSCF*M2IOD3A& 2IJ(3FS
"M&J3SGT2 3C7LJ T	L2/GT+D" "-632JRIC	A3E/RN7T2J*IM	S7SSEU	P2/WS7TV 7PJ 3ESA6 KO6 KW3IWT2MNJ3OSMN&,3I;O"M&J7NCO"M&J3C3A"M&J3W	AT7E2JRI3OWNF7G6JSR7NSSS&,7I+S2ISAD7R6JRI+ACD+I"I7EKR3ISN"M&J3ASN" 	I6(OB7TSAE*M2I7J3SNI3D7FS7G2JRI+CCA3IFI7DKD"M&J3C[D6IWCR*M2IGT
DZIL7D2JRIC	A3P3FD*M2IGT3D6I3E[VL7G2JNIA7L6JBI7OSS6MBJ3FSL.,BI"M&J7JCM2I?LO7P"J*M7GSE.,BI"I*M2I7J3SNI3D7FS7G6JRI+ACD3IFI7DKD"M&J3C[D6IWCR*M2I7J3P& 2IWGT*M2MNJ3D7F+S3G"I602J3FD&,"0*M2I7J3P& 2ISC7FOMG*M6MJJ3ESA*1216ISRR&I2/	B/TF 61R 3O2 3I/N"M&J3S3Z2I3CA*M2
OD3A& 2IR(3M[PL	G2/?D7NR	6 SS3OWR2 GDT7A2J*IM	P3R;AD7W2JOD3AWST&,7BSP/RF&*7.7.3B6*0>I3DGC" 	I7BSPR*M6MVJ7NSI.,BI2M6J3E[V+L3G"I606JWB3FWFR&,"0*M+R3W"I&0.IF/2 [I6 KW3IWT2MVJ3R;KT&,"-63.J
P"0&,"7606JOB3IWZ.,JI"060"J*M3S3E7EKR6,NIT7A2J*IM	P3R;T7SOT6IJ/7EWT+RCN7EKRO7R6JNL7EWTP&,"0*M2IGT7DJIW*M2IGT+D"I3W	R7TE"M&J3DGC" 	I2(SI7ICS6IN/+ECT7RSE3U;R2 SA3DWRS7S6JRIA	D3B[U7FKE"M&J3DGC" 	I6(CBT7R6JRIA	D3B	SZ7E2JNIM	A6I^/7ASN2 ?T2 WR+ACD3OWN2 ?MR7E6JR
A	DR7W2JRI+CCA+I"I3B;KT*M2IGT7DJIW*M2I3C7LJIT7L6JJIT	L6I^/7RSI3EZ 3NN 3OWD"=606JRIA	D.(B220&+N	T2/WS3LOE3TF +NCD7ISN7EKR7USP2 ;E3A3BE*M2I7J3S& 2I2(3OSAA*M3WSCF&,7HSL"M&J3TSA6I
R"M&J3SGZ2I3CA*M2IGT3D& 6IWB3FWF+R>I6=CB+TCR2(?F/RJ 2 WL3V3E3S> 3F& 3N	D3ROET6)2JNID	F7CKU"M&J7JOM" 	I2(?G"M&J7JCM" 	I7SSEU7P"J*M"I6$&J*L"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