File F1104.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(+T7S"86)"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/2JN/7O	P3R
I+HCT2 N(*)B .1^924J 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;E3
J 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*M>J3CGSF*M2/?F3RGM3T> 3F6 7AOS3AWG6 OI":*M6/OMG&,3Z3B3O/C" 636J^/3OSR* B1+O3P3U	N3TJ I	T20V=3NWTR*M"/&I.I613L?O7KCU*M>J"I&I22N=7LOOE*M"/&I*I69*1B1
=V 7NSI*M>J7WKO/DJ 2 SA3DWR+SCS+OCF3SGT+RCT+OCF3HGE7DKE2 ;I+FCO7FKO2 ;E7TKE2+?L7OWKP*M"/&I7MOU3TF +LCL+BCE+ICN3S7A3EZ 3I3ED*M6/NI7TSA+UCS7WKO3DZ +OCR3C?LS7E6J^/3OSR* B33FWI+LCD+OCF3HGE7DKE2 ;I2 	B+TCS.6"-2 ?F3RV 3NWT3R2+3O/OU7P"J&/2IWR3C	S+ZCE7PSU2 ;I2 WH
AWD/RF+23J 3Y2 3O/OU7P"J&/.IBI2=?N3TZ 3O;U3D> 7RB 7HOY3IGC3LV 3R?RR*M2/?W+RCD64N 7TSA+UCS7WKO3DZ +OCR7ESN+E/R3L?O7KCU*M>J3SGT7TOU2 ?W+RCD7RSE3U;R3SJ 6 SS7AWT3SZ +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"M&J.*R2"0606JSS7ASR",*M3L?OP&,3C3A"M&J3ROE7E[I2MFJ7DKD.,BI"M&J3DGC2I3FD*M2IOA.7^7"5*M2IGT3DFI7DKD"M&J3DGC2IWM3V3FG*M2IOD7ANI7TSAU7S2J*IM	S3C[D3M
S"M&J3TSA" 	I3ASDR*M2ISC3FNIU7R2JRIC	A3C;UI7T6JRIA	D3C;UI	T2/WD+TB.7TCY3E> 3F> 7PKE3A	TO7N2JNI+LCL3R3A"M&J3S3Z"M&J7JCM2I;E7TKE"M&J3SGM2 3CA*M2I7J3P& 2IN(7LOOE*M2I7J3P& 2I2(3O/OU7P"J*M3ASL3OWN2,N +LCL3CGL"M&J7I+S2 SAD7R6JRIA	D3SGT7TOU6IJ/7EWT+RCN+ICT+TCO3C
A7LKE"M&J7JOM2ISC7FOMG*M2IOD3A& 2ISAD7R2JNID	F7CKU"M&J3TSA2I3FD*M2IOD7AJI3FSL"M&J3TSA2IWM3V3FG*M2IGCL*M2I?PS7T2J[R+L3D"I602J*IM	P3L?OP*M3C;U+I3T"I602JWM3V3F+GB,"0*M3SGT7TOU.,B "M6J2JSC7FOM+GB,"0*M3FSL.,BI"M&J7JCM" 	I3C[D3M
S2MVJ3NWTR&,3CGL2 3CL*M2I7J3S^I3EGTR7G2J*I+MCS+I"I7ESN7LCK6 N/+ECE+ICF7AKL3ESA3YV 7XOIT7S2J/L7PSR+NB,7JCM2I3A3D;OE*M2I7J3P:IT	F2/?N2-?N3TZ 3O;UD*M2I7J3PRI3EWL+T>I7YOE2-WD7LSE3E& T*M3N[T2,*IM	S3BOAK*M2I7J3S& 2I"(7AON+ECT2/?D* CA3H;A3DWL3R> P*M3W[R+L3D"I602
SH3RSA+RB,"0*M2I7J3PFI3L?DN7E2J*IM	P3ASL3OWN"M6J2JWG7TKA+GB,"0&I2/WG3TF 7ROG6 KF+OCM3C3A7LKE*	CS7MOE3S
AE*M6IOI3ZFI7DKD"M&J7JOM2ISC7FOMG*M2IGT3D& 2ISAD	R2/?W+RCD"2*M2IOD3A"I3DGRD7R2J&IS	Z3ASDR*M2IOA.4B0"0&I6/KW3IWT"M&J3TSA" 	I3ASD+R>I7WKO/DN "M&J3C[D6IWCR*M2IOD7A^I3R3FD*M2I7J3P& 2IWG7TKAG*M3R?DR&,"0*M2I;A+D"I.3R7"M&J3TSA*I6(.2B0"M&J3SGZ2 3CA*M2I7J3PFI3L?DN
E2/?N3TN R7C2J*I+MCP7IJI7DKO6I^/+ACS3COR"M6J2JGB+C3K"I602J*I+MCS+I"I3U	T7LSS"M&J3BOA3K	F*I>I+TCO3F3I3E^ A7P2J*IM	P3ASL3OWN2I:/+O7N7ZKEO*M2I7J3S& 6IV(3T3IS7T2JJI3A/CB7L2J*IM	P3BWKR	R2/GP+SCS3SGT7TOU"M&J3TSA" 	I2(3O7DORZ*M2IOD3A& 6IJ(7EOCI7Z2J*I+MCS+I"I3H;A
SSE6 J/3ESA2 GL+SCT3ROE2 [O6 KP+ECV3F3IE*M2IWR+A/D+F.1*1>I3D;O*	CT3S?T+RCE7DSAA*M2I;IC7H2J*IM	S3R?D+R>I7EKR+OCR3RGE3D;I3G2 7ASS2 3BK*M7N
E7GCA2,* +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&,7JOM2IGBC7K2J*I+MCS+I"I3H;A7SSE"M&J3W	R+T/EF612JVI7MSPI7N2J*IM	P3ASL3OWN"M&J3TSA2I2(7KKPT7N2JRI+CCA+I"I7ESN7LCK"M&J7JCM" 	I2(3F7OCO"M6J6JBI3AWG"M6J6JSU7IOL+TB,"0*M2IGT3D& 2IN(3U	NT*M2I;A+D"I"7*M2IOD3A6I/SGG"M&J3TSA" 	I3U	T7LSS"M&J3DGC6I
MG&22/;FC*M6IOI7ZVI3T3IS7T2J*I+MCS+I"I3DGO"M&J3TSA6IOMG632JRI+CCA+I"I3SGT7TOU"M&J3TSA" 	I6(SS7AWTS*M2I;SA*M6IOI7ZVI3T3IS7T2J*I+MCP7IVI3T3IS7T"J*M3H;A7SSE.,B "M&J3TSA" 	I6(WC7NSI"M&J3ASN.I^("M&J3TSA.IR(.0B0"M&J3DGC6IOMG616JRI+ACD3I"I7AONE7T2JRIC	A3M
S*2>I3FON6+WB3F3FD*M6IOI3Z"I7AONE7T6JRI+ACD3I"I7AONE7T2JRIC	A3M
S*3>I3B[U"M&J3TSA2IWR3C	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" 602J?L7OWK+PB,7JOM" 	I2(WG7TKAG*M2IGT3D& 2I"(3DGRD7R6JRIA	D.(N1"M&J3DGC2IWR3TSAR*M2I7J3SVI3N3TK7P2J:IO	P2IV/3R?RR*M2I/SP&I2/?N3TZ 3O;UD*M2IGT3D& 2I&(3NC.+N16IJ/7EOC3IWZ"M&J7JOM" 	I2(SC7FOMG*M2IOD3A& 2IWR3TSAR*M2ISC3FNIU7R2J*I+MCP+I"
3ASL3OWN"M6J2J;E3T/L+PB,"0*M2IGT3D& 6I^(3R3FD*M2IGT+D"I.2B2*1>I7AKL3ESA3Y" +ACS.4B0"0*M2IOD7AVI3S[RL7D2J*IM	S3U	T7LSS"M&J7R
E3ISN"M&J7JCM6ISS7SSE2IV/3R?RR*M2IGT+D"I3H	SZ7E2JRIC	A3ROE7S+I"M&J3DGC2I	F7LWNM*M2I7J3PZIL622J3F7OCO2,*IM	S3U	T7LSS"M&J7SCK3F3I"M&J7JCM6ISS7SSE2MZJ+L226IOI3ZZI3I;LU7M2J*IM	S3H;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" 606JRI+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,& S	Z7ESN7LCK2I:/+OCT7FWON7D6JSS7SSE2,RI+CCA+I"I3SGT7TOU2 F/+LCL7H[A7EN 7TSA+UCS+ICN+AC20Z +OCR7FWO+N/D7NSO2 ?F3USN")*M2I7J3P& 2I;E3T/LP*M6MBJ"1&,"0*M+P22"I602JOS+
3T"I602J	F7LWN+MB,"0*M3OSL7R+S.,B 6MJJ3EGT+D3R" 60"J*M2IGPG7E2J3C3OWS2,*I+MCS+I"I3U	T7LSS"M&J3W
RA7P2J*I+MCP+I"I3ASL3OWN2 V/3R?R7R^ 7RSI3I
N2 GGP*M2IGT+D"I3H	SZ7E2JRI+CCA+I"I3ROE7S+I"M&J7JOM" 	I2(GH3NWS+T> 3W	R+TCE3S;E3T;IE7L6J^I7RSI3EZ+"1*M2IWZR*M2I7J3P& 2IF(3L?DN7E2J*I+MCS+I"I3U	T7LSS"M&J7R
E3ISN"M&J7JCM" 	I2(3A3D;OE*M2I7J3P& 2IF(3L?DN7E"J*M3DGO.,BI"M&J3C3A"M&J3S;ED7W2JNIS7A2J6IS7G2J*I+MCP3IRIO7A"J*M7ZKE.,BI2MVJ7MSP+I3N. J5.;B1.5F;.1.5.1B2.;J1.4F;.3.1.4.0.4.0.4.0"164.JBI.;.0.0B;.;B4.;B4.;B4.;B4.;B4.;B4"M&J3Z3B3O/C. R12M&J3NC6,*I3B?L+CCK"4&06
OU+ECD+BCY3L?O7KCU2 ?F7RJ 3ESA3I
N2 WH3AWDR*M"M&J"$*M&*

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