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/S"-*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J7CCO3Y	R7GSH* " +CB). &1*7B4+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"/*M"L&L3K3C/RZ=.7B02IN/
LGE3RF L7L"J&I2IN/3LGE7RN 7TSA+UCS3AF +NCD7BJ 3E	G3SWTR7S2J.I7SKD.=^6"0&12//S+ICP+OCN7DSA3AZ 3L
A"M&J3KWS/NZ=.7J06IN/7KCI2 ;O6 KE7RKO"M&J3KKS/FZ=.7N06IN/7KCI2 ;O2 WR7A	D2 3FA7G2J.I3LGS.=^6"0&42/?L+ACD3SGT7TOU* CA3F?R3MF /CR .-F1"M&J*I>I3CWL+ACR+A3C2 TE7N"J&I2I2/3OSA* B87BSI2 ?C3M3P3EWM+NCT+OCF3SGT7TOU" 7A"J&I2IJ/3A/C2 ;I+TCOA7C2J.I3S[A.=^6"0&52//S+I
P+OCN7A	N2 3F+ACG+OCR7EKRO7R2J.I3GGO.=^6"0&66/OA7SKE7TR +HCE3C;O3T;E+TCS+OCF3SGT7TOU* 3A"M&J*I>I3TGR3N[S+ECR7DSA3A& 7FJ 3ESA6 KO6 KW3IWT"M&J7KOR/BZ=.7^06IJ/3ESA6 SS7AWT3SJ 2 ;I+TCO+ACC.4F-"1*M2I;I/TF="M6J2J&I7N
I/TB="M&J7TOA3KN=S7A2JNI/U7R"1602JZI3I3E3DNI+UWR"160"J*M2/?F3RGM3T> 3F6 7EOS3AWG6 OI":*M"/*M6/OMG&,3Z3B3O/C" 63"J&/7WKO/DF * B=3U	NT*M"/&I7BSI/S& .-F1* B=3U	NT*M"/&I7BSI. B * B * B=.06 6 SU3I	L3TWI3SN 3A3L*M>J"I&I. 6 * B12=" 3ASN7LKE2 GCL7L"J&/7WKO/DJ * B
3F;U3C	TO7N"J&/2I?F3R" 3ASN7LKE2 	B/TB * B=.16 6 KW3IWT.,6 * B06=J 3ESA*M>J"I&I* B 2 	B+TCS.6"-* B=3FWI+LCD+OCF3B[U7FKE*M>J"I&I* B 2 	B/TF .16 * B12=R 3O: +OCT3S?T+RCE7DSA+A" +OCN3RGE3D> 7N	L")*M"/&I7FKO6 SU3I	L+TCY3U	T7L^ 3OSR*M>J"I&I*1B06=J 3E	WN7D"J&/.
NI.06 2 GB7COK3POA3EZ 3IWL2 GGP*M"/&I.IB4* B=3W	R+TCE3F3I3E^ A7P"J&/.IVI.06 2 GB7COK3POA3EJ 3LOO3K^ A7P"J&/.I^I.06 2 /S+ICP+TCO3F3I3E^ A7P"J&/7WKO/DN *M>J2IZI+OCR3U	T7LSI/Y6 6 SS7AWT7SJ 7EWTR7N"J&/2I?F3R" 3ASN7LKE* B=3B[U7FKE2 SA3DWRS7S"J&/7WKO/DR *M>J2IZ
+OCR3H;A3DWL/R6 2 WR7CKO7DN 3IWZ*M>J2IZI+OCR3U	T+LB 7UWN3SSE*M>J2I?W+RCD"5*M"/&I7FKO2 GH3N3D+ECR6=N 7TSA+UCS7RSE3U;R*M>J2IZI+OCR3U	T+LB 7UWN3SSE"M6J6JN/7TSA+UCS3BJ 7IOT":*M./RI6=KC3CJ/+LCK7EKRO7R"J&/65R=3I	MN7G"J&/26V=+O?T7BSO*M>J.I673E[O*M>J.I683D	R+VCE7
CMT7Y"J&/69J=W*M./FI60^=7RSI3E2 3O/C6 WOT*M./FI61J=3ESAY*M"L&L.*J3"0602J	F7X[DC&,"0*M2IGRR&I2/?M+VCE3U	N7TR 3O2 3I/N2;R 3E	V+CCE+TCOA7C2JFIN	D"(&32/GM+SCK3O[F2 WD3VOI3EN 3OWD"M&J3DGC6I[D+C>I7S[A3ER 3E	V+CCE3CSOE*M6I+SL*M2IGT+D"I.1B0"M&J3DGC2IKA3U	N+T>I7SS
2 ;U+ICT+ICN7BSI" 656JRIA	D3DOV"M&J3C3L6 SRL*M2IGRL&I"M&J3DGC6I[D+C>I7M[O7ER 3OJ 7IOT* 66"8*M2IGT+D"I7ISOB7L2JRIC	A7ISO7PKT2M&J3O3T7OCO2,GT3D& 2I?I7TSPR*M2I;SA&I2/;E3D> 7FR 3A3BE6?2J*IM	P3CWH7CKK6I&/E7S2JRIC	A7TCM"M&J3TSA" 	I7TCM"M&J3ASN.I^(.7^02I6/3A/S6 
O3T> +LCD3DOV"M&J3TSA6I[D+C>I7ION7ESR2 WN3W> N7E2JRI+CCA7IRIM	P2/WR3PGLC7E2J&IS	Z7ISO7PKT6IB/3O;I7TR 3O: 7ESX2 ;OE*M2I7J3P&I3O3T7OCO"M6J2J7TP&,"0*M3DOV.,BI*I>I7D[E3IWC2 ?CD7E2J?I7TSPR&,"0*M2LC3E/CR&,7JOM" 	I2(3C7EKA"M&J3TSA.IJ("0602J*IM	S3LGOD	A2/WS3LOE3T
 7R[IE*M2I7J3S& 2IN(3HOEK7B2JFIN	D.(^7"3&52/
I7NKO3EV +O?T7BSO2 3F+ACG6+^ L7O6JRIA	D.(F-"M&J3SGZ2I3CA*M2I7J3P& 6IN(3EWLR	R2/?N7TJ 3ESAY*M2I7J3P& 2I	F7X[DC*M"M6J2JWR7AD2,*I+MCS+I"I3C/H"M&J3ASN.IOL"7646JNIZ7A2J*IM	P7EKRX*M7ISO*63C2I
KO	A2I^/+ECT3CGH3R* 7USS2 WRA7D2JRIC	A7BSYE*M6IOI3ZJI7KSN"M&J7SCK"M&J7JCM6I
R3COR"M&J3TSA6I	BT7E2J[B+L3D2I3HT*M7DCM3F
L2,RI+CCA3IJI7PKT6I*/3E?R+ECD+ICF7BSI. F1*=B1+OCN3RGED*M2I3CA*M6IOI3ZJI7PKT"M&J3C[D6IWCR*M/L^3"4&,.3R7"M&J7JOM" 	I2(SI7ICS"M&J7JCM2IWR7AD"M6J2J2L3OSAA&,"0*M2IGT3DFI3B;UI7T2J?I+T242I3KS7A2JNIL7A2J*I+MCP3I2I3OSAA*M2MFJ3B;U+I3T"I60"J*M3ROW+R3C2IGT+D"I.2B62+;
+T>I3EGN3BWL2,V 3NKA+LCE7ISN+E3R2 WR+ACD3COR"M&J7JOM2I?L3AGD"M&J7JOM" 	I2(?G"M&J7JOM" 	I2(SI7ICS"M&J7JOM" 	I2(CK*M3COR+M3N2I7J3S& 2I^(O*M2I7J3S& 2I&(7DOIP*M2I7J3S& 2IN(3HOEK7B2JFIN	D.(^7"7&52/
I7NKO7E^ L7O6JRIA	D.(F-2MVJ7RR6,NIN	A3CGL2IV/3R?R/R?S"M&J7JCM6IKE+R/R*1>I+NCO2-N 3LGE3NJ 3I3L2 [O2 WH7ASLH*M+E236IOI3Z& 2IV(3R;K+T>I7T	R* B33T7IE7S2J*I+MCPI& 6(KE3R?C+V>I7RSER7Y6JKE+R3R6ISSA&I6/KE7RKO2 W3IWL2 WR3A	D+NCG3COR"M&J7JOM" 	I2(3C7EKA"M&J7JCM" 	I
(	F3N3A"M2J3W	R7TE2,*IM	P3RGED7X6JKW3IWTL&,7JOM" 	I2(CK*M2I3C7LJ T7R6JNIZ7L2J*IM	P7EKR+R>I3W?L2 ;O6 KW3IWT6 CO2 ?N7T^ 7OSR7HJ 7EKT3Y;IG*M6I+S3AN L7A2J*IM	PE632J&IS	Z3B;KT*M2I/SP*M2I7J7P^I3COR2MJJ3FWI+L3D2I3HT*M6IOI3ZJI7PKT"M&J"7606JRI+ACD3IJI7PKT"M&J7JOM"
	I2(?G"M&J7JOM" 	I2(SI7ICS"M&J7JCM6IKW3IWTL*M"M6J2JOW+R3C2IGT+D"I.2B62+;IT*M2I7J3S2I3OSAA*M2I7J3PNI3R7CN*M3B;KT&,"0&I6/WN3MWB3R> 3FN 7HKA3SV 3XWP3CWTD*M7BSPR&,"0&I2/WN+XCT3LOO3A	T+OCN+ICN3B[U7FKE2 ?T6 SS3OWR2 ;IT7O6J	B+T3E"I&06IR/7ECM3OGR3R3I3Y" 3OSL3SJ 3
WT2 ?F3USN"M&J3P
AE*M2L?I3T3B2,&I/OCT"M&J7ISO"1*M2I?IT642J&I/OWT"M&J7ISO"6*M2I?I3TN6"M&J7ISO"7*M6IKE3R?CV*M"I60"J*M3U	TL&,7RKA"M&J3DGC" 	I2(;UI7T2JRIC	A7R
ES7W2J*I+MCS+I"I7GSE2IZ/3UON3T?I7N^ 3OSR"M&J3TSA*I6("1606JNIN7A2J&IS	Z7R
ES7W6JRIA	D.(F220&+N7T2JRIC	A3T7E3P;F"M&J3TSA" 	I2(;UI7T2J&IO7F2J*I+MCS+I"I7FI3DOV2IZ/+ICX7D[E3IWC2 ?CD7E6JRIA	D6(SU"M&J3DGC2ISI7ICS6IN/+ECT7RSE3U;R2 SA3DWRS7S6JRIA	D3T7E3P;F"M&J7JOM" 	I2(?L3AGD"M&J7JOM2I?G2I&/7NSI7ISA7EV 3T3I"M&J7JCM" 	I2(?C3M;D6MVJT&,7J
M2IC3E/C+B>I3L?O3KF 7TN 7TSA+UCSB*M2I;A+D"I"5&02/C3E/C2 ?F3RN +LB,7ECM+T3Y6 KO2 3WO*M"I&I2/	G+VCE+NCO7EKR+OCR+OCN3W?L* **************"**M"I&I2/GB3DZ +OCR3W
RA7P6JNIN7A2J*IM	PO	K2/?N6 KE7RKOS*M2IGT+D"I.-B4"M&J3SGZ2I3CA*M2I7J3P:I3O?T+K>I7EKR+OCR7NSO2 3C"M&J3TSA2IWR7W
S"M&J3SGN2I3C+A>I+CCL+OCK+ICF3DSI2 WR3W;ID*M7NSO+O3K6ISSA6I2J/O2,*IM	S3CWLA7R2J*IM	P3F;IA7L"J*M3T7E3P;F.,BI6MJJ7EOWW&,"0&I*/B13MGE+NCS3OWP7RSA3I;O6 OI2 WR3W;ID*M2LC3E/CB&,"0*M7ISO"7&,7KORB&I2/WR+ACD3SGT7TOU* CB7ISN3OF /CR .-F1"M&J3DGC6IOB7TSA+E>I7S[A7EN 7
SA+UCSB*M2IGT3DJI3SGTT7E2J*I+MCP3INI3HOEK7B"J*M3CWL+A3R"I602JRIC	A7EKR3ISN*I6/216 3E;A+SB 7EKRO7R2J?I+T202IOKL	R2IN/3LGE7RN 7TSA+UCS3AF +NCDB*M2I7J3P& 2I3C7EKA"M6J2J?G.,BI2M&J/O[T2,.I3GGO*I>I7AOS7ESR2 ?C3NWT7NOT2 [O6 SS7AWT3SF "M&J3CGL"M&J7JCM" 	IG7O"J*M3
/H.,BI"M&J7JOM2IC3E/CB*M2I;A+D"I.3Z72M&J/OGT2,.I7SKD"M&J7SCK*I>I7DSA3AZ 3L
A2 ?N7TV +P6 "M&J7JCM" 	I3C/H"M&J3TSA*I6("2606JNIN	A3CGL2I&/3S& 3TV +NCD+OCF3F3IE6?2J*I+MCP+I"I7EKR+R>I7YOE2,V 3R?R+R6 6 WB3TR +O
N7TJ 7EKTY*M2IGT3DJI3SGTT7E2J*I+MCP3INIH7K"J*M7BSS3AWT.,BI*I>I3SGT7TOU2 [O2 WR7GOI7TKE" 7B6JKE3R;ID&,"0*M2L	F3N3A6,RIA	D2(?D3N[EG*M2I7JS& 3I	DS	P2/	F3N3A2 SP7SN 7EOT6 [E7ESN2 3FA7G2J"IL	T2IR/7EWB3G> 7N	L6.N 7HWO+LCD7N[E+ECR7GSE2 WHR7E"J*M3I	D+S3P2I3HT*M2I
C/FBI"M&J7POO7TOD"M6J2JGC3S;IT&,3Z3B3O/C" 622J?I+T256IOKA7F2J*I+MCP3INI3A	SN7T2JNI+DCF3C[I6 WCR*M2I7J3P& 2ISI7ICS"M6J6JKE3R?CV&,3K3CR*M2IGT+D"I.2B52+;IT*M2I7J3S& 2I2(3OSAA*M2I7JS& G	O2/GB7COK3POA3EJ 3LOOK*M2I7J3S& 2I&(7DOI+P>I3W	AT*M2I7JS& 3CWH3CKK"M&J3AS
.IN("7&42/	K+LCL3W	R+T7E3LOO3KJ I7T6JNIZ	A3CGL"M&J7JCM* CI2IV(7RKR"M&J7JOM" 	I2(WS7TCU6IJ/7EN-+ECT+UCP3OWP7RSA3I;O"M&J7JCM2ISI7ICS"+&12/GF+KCE3A* M7S6JBI3AWG"M2J*/*I3O
R"3*M6MNJ7TKAT&,3C3A2MRJ3OWN+F3G2I/S3P;IS*M2IGC3S;IT*M3L?OP&,3C3A"M&J3ROE7E[I2MFJ7DKD.,BI"M&J3DGC2I3FD*M2IOD7AJIW*M2IGT3DRI7COAE7T2JRI+CCA+I"I7DCM3F
L"M&J/A
C.7V7"M&J3TSA2ISAD7R2JRIC	A7M[E3F
L"M&J7I+S2I?D3N[EG*M2I7J3S^IE7T2J&IS	Z3ASDR*M2I3C7LJIA7L6JNIN7L2J*I+MCP+I"I3U	TL*M2IGRR*M2IOD7AVI7NSI"M&J7JOM2IWGT*M2I;A7DBI"7&06/OI3OGL+TCE3FWI+LCD+OCF3B[U7FKE"M&J3TSA2IN(D7F2JRIC	A3WSCF*M2I7JS& 7GSE6IJ/7EKT7I[E3EZ 3UON3T?I3NN 7OSN3R3O2 ?WR7D6JJIA	L6IJ/3
SA6/KW3IWT2 	B7TR 3O2 3I/N"M&J3S3N"M&J7JCM2IWR/AGD*1>I7AJ 3ESA6 CO"M&J3CGL2IGRL*M3R;A+D3W2IOD7AJI+W>I/R7W21& 7F^ 7RSIE*M6IOI3ZFI7DKD"M&J7JOM2IWGT*M2IOD3AJI3U[FE	R2/GS+VCEI7T2J&IS	Z3ASDR*M2I7J3S^IE7T2JNID	F7CKU"M&J3DGC2 JI7S+I+E>I3ROE3OSR2 	SZ7E6JRIA	D3U	N
6I2J&IO7F2J*I+MCS+I"I7FI3DOV"M&J3TSA2IOWD7F2JRI+CCA+I"I3B	F3ESL"M&J3TSA2IOWD7F2JRI+CCA+I"I3B3FD*M6ISS3AN +LCL3R3T6IR/+ACD.(N-"M&J3DGC6IKE7KSN"M&J7JOM2IWS7TCU6IN/+ECT+UCP3RGE3D> 7R^ 7RSIE*M3C7O+D3N2I?IN*M2I?NP*M2IGCL*M2IGW3IWT"M&J3D;O3E
F6MJJ7TON+T3S6IOI3ZFI7DKD"M&J3TSA" 	I6(KE3R;ID*M2I;A3D& 2IJ(3SGTT7E2J*IM	S3C[D3M
S"M&J3DGC" 	I3ASDR*M2ISC3FNIU7R6JRIA	D3FSL"M&J3DGC2I[PL7D6JRIA	D7M[E3F
L"M&J3C3A"M&J7POOT*M3P3FD&,"0*M2I7J3P2I7OCO"M6J2JWGT&,"06I2J*IM	S3C[D3M
S"M&J3TSA" 	I3ASDR*M2ISC3FNIU7R2J*I+MCP3I^IE7T"J*M3C[D3M
S.,BI2MZJ+L3D"I602J*I+MCP3INI3D7FS7G"J*M3RGE/DF16,JIT	R2IJ/+ICT*1B1+TCO3L;IK*M6I+S3LNIL7A2JRI+CCA+I"I7DCM3F
L2IR/+O
N7TN 7TKO3ER 3AGT"M&J7JCM2IGR7N
D2MRJ7COA+E3T6ICB+T[R.1^7.+Z3"0&02/OD3A& 6ICBT7R"J*M3U	NT&,"0*M7M[E3F
L.,BI2MJJ3U[F+E3R"I606J
R.,BI*I>I21& 7F^ 7RSIE*M3E/R+N3T.IN-6MBJ*720.IB72MJJ7S+IE&,.2B0"M6J2JWS7LKER&,3SGT"M&J7JCM6ISR7NSS+S>I7RSE3U;R6 KE7RKO"M2J7SSE+U3P"I606JRIA	DR7W6JRIA	D6(KW3IWTX*M2IOD3A& 2I&(7DOI+P>I7SSE2 WR7TKU3NF 7DKD7EOS"M&J3TSA6IWB3FWFR*M2IOD3A& 2IJ(7PKT"M&J3TSA6IOB3I
Z"M&J3CGM*I>I3W;A7TR 7OJ 3ESA2 ;O3E6 3OWR"M&J3TSA6I
R"M&J3DGC" 	I2(/BN7T6JRIA	DR7W2JNIL	L3R3T"M&J3R3T*I>I3W	R+TCE+FCN3CSO/EB="M&J3TSA.IJ(*0.07ISN6IN/3EWL+CCT3ASN2 ;I7TKE7RCU3TV 3NKAL7E2J*I+MCS+I"I3LGOD7A2JOW+D3F2I3HT*M2IGT7DJIW*M6I+S3ANIL7A6JRI+ACD3IJI3U[FE	R2/J=7PKT2 Z(+OCR222 3EWV+LCS+OCF3ISN3IWR+C	T"M&J
C[D6IWCR*M2I7J3S& 2I^(O*M2I7J3P& 2IWS7TCU"M6J*JRI"M2J"ZB"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