File CSAF.PA (PAL assembler source file)

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

2/GC3SWS3TWT2 ;E7TKE2,2 3O/O+U3P2 3C3OWS6:J /TS. KV.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 OI6 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"M2J2LN/3S[A*M>J7FKO7MSA2 [O2 GM3SGS+GCE/I+S*M>J3M
S6,*I3B?L+CCK"3*M2/?W+RCD21>I7PV,7NSI2I	BT& 20V=3NWTR*M"/&I.I613L?O7KCU*M>J"I&I22N=7LOOE*M"/&I*I69*1B16=V 7NSI*M>J7WKO/DJ 2ISA3DWR+SCS+OCF3SGT+RCT+OCF3HGE7DKE2 ;I+FCO7FKO2 ;E7TKE2+?L7OWKP*M"/&I7MOU3TF +LCL+BCE+ICN3S7A3EZ 3I3ED*M6/NI7TSA+UCS7WKO3DZ +OCR3C?
S7E6J^/3OSR" &33FWI+LCD+OCF3HGE7DKE2 ;I2 	B+TCS.6"-2 ?F3RV 3NWT3R2+3O/OU7P"J&/2IWR3C	S+ZCE7PSU2 ;I2 WH3AWD/RF+23J 3Y2 3O/OU7P"J&/.IBI2=?N3TZ 3O;U3D> 7RB 7HOY3IGC3LV 3R?RR*M2/?W+RCD64NI7TSA+UCS7WKO3DZ +OCR7ESN+E/R3L?O7KCU*M>J3SGT7TOU2 ?W+RCD7RSE3U;R3SJ 6 S
7AWT3SZ +OCR7P	H3SOI+ACL7EKR+OR3E2,*+	C6 KO*M>J3N
E2.V 3R?R3RN 3OWD2 ?F3R2 3O	G3C3A6 KE7RKO2 :(3OWN2 WD3F;I+ECD7YSE")*M"M&J/F61"1&02IZ/3I3E3D> 7FJ */CW3B[U7FKE"M&J3RGE/DB="M&J3W	R/T7E.4B0"0*M2IWR3W;I/DF="0*M2IGB3C[K/IN="0*M6IKW7GCA.=B4"M&J3BOA3K3B.=B5"M&J7SCK3F3I.=B7"M&J3H	S/Z7E"460"J*M2/GP3R7A3EWT+RCS7F
O6 SRS682J&I7N
I/TB="M&J7CKU.=B1"M&J7TOA3KN=3S[A"M&J3FWIL	D7CKU.%B1"M2J.IN*.0B06MNJ7TKAT&,2M2J7OCO2,NIA7L6JJI3EWCI7V2JSA+D3R"I602JRIC	A3FSL"M&J/A
C.7V7"M&J3TSA2ISAD7R2JRIC	A7M[E3F
L"M&J3DGC6ISS7AWTS*M2I7J3SNI3D7FS7G6JRI+ACD3IFI7DKD"M&J3C[D6IWCR*M2IOD3ANI3U	NT*M2IGT3DNI3U	N+T>I7DSE6.R 3YWP2 [O6 CO3EGR3T?IN*M2I3C7LJ A7L6JNIZ7L2J*IM	P7ESNE7R6JNI+MCA3CGL"M&J7JCM" 	I2(3C3OWS"M&J7JCM" 	I2(?L7OWKP*M2MFJ3L?D+N3E2I3C3LN L	A"I*M6IOI3ZF 7DKD"
&J3TSA6ISS7AWT+S>I7RSE3U;R6 SI2 ?T2 GC3LWLR*M2I7J3SNI3D7FS7G2JRI+CCA3IFI7DKD"M&J3C[D6IWCR*M2IGT3DZIL7D2JRIC	A3R3FD*M2IGT3D6I3E[VL7G2JNIA7L6JBI7OSS6MJJ3FSL.,BI"M&J7JCM2I?LO7P6JWC7NSI.,BI2M6J3E[V+L3G"I606JSS7AWTS&,"0*M2MNJ3D7F+S3G"I602J3FD&,"0*M2I7J3P& 2ISC
FOMG*M2L;E7TKE2,NI+LCA3C3L"M&J7JOM2IWG7TKAG*M2I7J3S& 2IV(3N3TK	P2/WS3E& 3FF 3LWR7A	D6 E7ISSS*M7LCK3R;T2,*I+MCP2I3A3D;OE*M2I7J3P:IT	F2/?N2-?N3TZ 3O;UD*M2I7JP& 3D3EE	T2/WY3SR-3EWL+TCEI	T2M:J+T3F2I7J3SJI3A/C"M&J7JOM" 	I2(GH3NWS+T>I+DCO3A" 3ASN7LKE6 CO6M^J3R3
D&,"0*M7HKD7AKD.,BI"M&J7JCM2I3A3D;OE*M2I7J3PFI3L?DN7E"J*M7GSE3A
R.,BI*I>I7GSE6 KA+GCS3F?R3MN 3A3L+E
R3S6 7EOS3AWG"M&J7I+S2ISAD7R2J*IM	S3C[D3M
S"M&J3TSA" 	I3ASD+R>I7WKO/DJ "M&J3DGC2ISH3RSAR*M6IOI3ZFI7DKD"M&J/ASC.0B0*I>I3W	RT7E6JRI+ACD3IFI7DKD6I^/3OSR" 632JNID	F7CKU"M&J3DGC6IKW3FSL"M&J7JCM" 	I7GSE3A
R"M2J3R?DR&,"0*M2I;A+D"I.3R7"M&J3TSA*I6(.2B0"M&J3SGZ2 3CA*M2I7JP& 3ASL3OWN2I:/+OCT3COR"M&J7JCM" 	I3R?D+R>I7WOA6 KCC*M2MJJ3A/C.,BI"M&J7JOM" 	I6(SU7IOLT*M2IGB3C[KI&I2/?T2 	F+LCE7GCA"M&J7JCM2 FI3L?DN	E2/?N7N*-3E?R"M&J7JOM" 	I6(SU7IOLT*M2IGB3CKKL*M2I7J3PJI7KK
+R>I7POA7SN 7TSAU7S6JRI+ACD+I"I3OSL7R+S"M&J3DGC" 	I2(WR3C	SZ*M2I7J3S& 2I"(7AONE	T2/WR+ACD7LOA7TJ +ECC+OCF3PWR3VZ 3IWL"M&J3RGE3DZ+.1F+2IR/+O
N7TN 7TKO3ER 3AGT"M&J3IONH*M2I7JS& 3R?D+R>I7EKR+OCR3RGE3D;I3G2 7ASS2 3BK*M7N
E7GCA2,*I+MCS+I"I3U	T7LSS"M&J3W
RA	P6I^/7RSI3E: +ECW7GCA"M&J7JCM2I3A3D;OE*M2IGT+D"I3H	SZ7E2JRI+CCA+I"I3ROE7S+I"M&J7JCM" 	I3BOAK*M2MJJ7KKER&,3ASN.IN(.7V72IF/7CN=7TSAU7S6JRIA	D.(R-*1>I3CWL+ACR3LGE7DKE6 KE7RKO"M&J3SGZ2 3CA*M2I7J3PFI3L?DN7E2J*IM	P7N
E7GCA6I&/+E7S3W	R+TCE7N
E2 GGP*M2MRJ3EWLT&,7JOM2 JI3A/C"M&J7JOM" 	I2(GH3NWST*M6IKW3IWT.+GF"M&J7ECM3T;I"M&J7JCM2 FI3L?DN7E6JRI+ACD2I2(7KKPT7N2JRI+CCA+I"I7ESN7LCK"M&J7JCM" 	I2(3F7OCO"M6J6JBI3AWG"M2J6MVJ3T3I+S3T"I606JRI+ACD+I"I3C;UI7T2JFIN	D"(672JRIC	A3M
S"1*M2IGT3D& 6ISU7IOLT*M2IOD3A6I/SKG2IZ/N7C2J&IS	Z3U	T7LSS"M&J7JOM" 	I2(?DA*M2IGT3D6I/SOG"M&J3DGC" 	I6(SS7AWTS*M2IGT3D& 6IN(7TSAU	S"M&J3SGN"M&J7I+S6ISU7IOLT*M2I7J3P& 6ISU7IOLT*M2M"J7AON+E3T"I606JRI+ACD+I"I3C;UI7T2JFIN	D"(676JRIA	D.(B4"0602JRIC	A3M
S"1*M2IGT3D& 2IGH3NWST*M2IOD3A6I/SKG2IZ/+N/C3B[U3FSL"M&J7I+S2IGH3NWST*M2IGT3D& 2IGH3NWST*M2IOD3A6I/SOG2IJ/U7F6JRI+ACD2IWR3C	SZ*M2IOD3A6I/SSG"M&J7I+S2IGH3NWST*M2I7J3S& 2IR(O7A6JRIA	D3M
S"5*M2IOD3A& 6IN(7TSAU7S6JRI+ACD+I"I3SGT7TOU"M&J3SGN"M&J7I+S2IGH3NWS+T>I3G?O7DJ E7T2J*I+MCP3I"I7AONE7T"J*M3M
S6,*I3B?L+CCK"3*M3M
S"1&,"0*M3M
S"2&,"0*M3M
S"3&,"0*M3M
S"4&,"0*M3M
S"5&,"0*M6MJJ7EOC+I3Z"I602J2L3O/O+U3P2I7J3S& 2I^(3EGTR7G6JRI+ACD+I"I7HKD7AKD"M&J3TSA.IF("3*M2IOD7AJI3EGTD7R2J*IM	S7ESN7LCK"M&J7NCO*I>I7EKRO7R6JNIK	P2I:/+OCT7FWON7D6JRI+ACD+I"I3ION/HF+*3>I3ROE7S+IE*M2I7J3S& 2IN(3D7FS7G2JRI+CCA7IJI3EGTD7R2JNID	F7CKU"M&J7JCM
 	I2(3A3D;OE*M2MVJ3N3T+K3P"I606JRI+ACD+I"I3W[RL7D6JRIA	D.(J2"0&12/3A3RGE+DCY7HOA. B4"0602JRIC	A7UKS3FSL"M&J7JOM6 VI3T3IS	T"M&J7R
E3ISN"M&J7JCM6ISS7SSE2IV/3R?RR*M2IGT+D"I3H	SZ7E2JRI+CCA2IWR3C	SZ*M2IOD3AZI3I;LU7M2J*IM	P/FKL2MZJ3L?OP&,7JOM6 VI3T3IS7T6JNI3K[PI7L2J*IM	P7SOTE7T2J3F"2&,7I+S2I	F7LWNM*M2I7JS& 3H;A7SSE"M&J3RGE3DZ+"1*M2I;IC	H2IJ/3U[FE7R2J*IM	P7SOTE7T6JRIA	D2(;IC7H2JRIC	AP616J
I+ACD7IBI"1*M2I;S3AN L7A2J*IM	P3N;F7DSR6IN/7ESN3IWN+LB.3F3I3E: +OCT7FWON7D6JRI+ACD+I"I3ION/HF+"3*M2IOD3A>I7LKDS	Z2/?F3RV 3NWT3RZ-3O;U7DJ 7EWT+R
N3SJ 3A/C3SGPC7E6JRI+ACD+I"I7HKD7AKD"M&J3DGC.IKP"M&J3TSA*I6("1&02/	F7RSS. B12 C3AGR3CWTR7S2JRIC	A3S;CT*M3S?L+O3P2IGT3D& .IGP"M&J3CGI6MVJ3S[R+L3D"I606JRI+ACD7IBI"2*M2ISC3FNIU7R2JFIN	D.(^1*7>I7MSA+CCH+HCI"7*M6I+S3AN L7A2J*IM	P3F?LO	P2/?N3TN 7OKR7ESC2 	F+LCE
K	E"M&J7I+S.IGP"M&J7I+S.IKP"M&J7I+S2IOSN7T2J*IM	P3S?LO7P2J&IS	Z7ESN7LCK2IZ/3O;UD*M3N;F7DSR2,&IS	Z7ESN7LCK2I:/+OCT7FWON7D6JSS7SSE2,RI+CCA+I"I3SGT7TOU2IF/+LCL7H[A7EN 7TSA+UCS+ICN+AC20Z +OCR7FWO+N/D7NSO2 ?F3USN")*M2I7J3P& 2I;E3T/LP*M6MBJ"1&,"0*M+P22"I602JOS+
3T"I602J	F7LWNM&,"0*M3OSL7R+S.,BI6MJJ3EGT+D3R"I60"J*M2IGPG7E2JNL7LOOE&,7JOM" 	I6(SU7IOLT*M6IKW7GCA"M&J7JCM" 	I2(3A3D;O+E>I7EKR+OCR3W	R3T;I3G^ A7P6JRIA	D6(OH3IWZ"M&J3DGC" 	I2(WR3C	SZ*M2I7J3S& 2I"(7AONE	T6/KW3IWT2 WS3N	T3N3E"M&J3W	R+T/EF616J*IE7R2J*I+MCP+I"
3ASL3OWN"M&J7JOM" 	I6(SU7IOLT*M2IWR3W;ID*M2I7J3P& 2IF(3L?DN7E2J*I+MCP+I"I3ASL3OWN"M6J2J?DA&,"0*M2IGCL*M2IWS7N
D"M&J3CGS"M&J3M
S"M&J7JCM" 	I3DGO"M6J2JWZR&,"0*M7ECM3T;I.,VI.2F;.0.5.1V1.;J1.0F;.2.4.1F3.;B4.;B4.;B4.;R1"M&J.0B;.;.0.0R;.0R;.0R;.0R;.0R;.0R;"0*M2IKZ3LOO/KF "4*M3IONH&,3Z3B3O/C. B46IV/3SSE6 	B2 ?L7OWK3PZ +OCR3RGE3D;I3G" 3ESAE7R"J*M"I6$"JBZ"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