File LTA.PA (PAL assembler source file)

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

*/B27ROT*-B83L;I3CGT+PCE3H;A3DWLR*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2/?C7PKY3IG+TB *(	C. F .9V76 	B2 	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J3TWH2 ;I7FKO7MSA3I;O2 ;I2 T+ICS3DOO3UWM+NCT+ICS3SKU3JOE7TR 3ON 3H;A+G
E7WSI7HWO3T: 3O	TC7E2JF/+NCD3S?H3USL2 ?N3TJ 3EN 7OON7TWR+ECD+ACS3AN 3O7M3I7T7ESN6 	B2 	D7GSI+ACL7EWQ3I7P7ESN*M>J7CKO7PKO3A	T+O;N2 R 3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?I3NF 7SWS7MOE2 ?N2 WR3S?P3N	S3B3I7I	T*M>J7FKO2 ;A3YV 3R?R+RCS3TGH3T6 +ACY7ACP7EKA2 ;I2 T
ICS3DOO3UWM+N;T*M>J*M>J3TWH2 ?S7F
T3AWR2 WD7SKC3IWB3D& 7NR 7HOI2 ?D3C7U7ESN6 OI6 WF3R	N3SWH7DR 7OR +HCE7PKU3CGH7SKE*M>J3USN+ECR3A2 3IWC3NWS2 ?F7RV +SCE+OCN7AN 3I
N+LCE3C7O7PSU+ECR7SOY3T7E2 ;A3DN +ACN+BCE7CCO3ISE*M>J2(	W+TCH3ION7LOU3I;O2 [O2 	D7GSI+A
L3SN 7O	P3R
I+HCT7NSO3IWC2)> 7N	L2 ?F7RV +SCE+ICN3SOUH*M6/	S3SWT+MB,3EOX7ESP6 OA2 GM3Y> 3TWH3R	W+SCE+BCE3P?R3VSI+ECD+ICN3W	R3T;I3GJ 3YR 3I	G3T3A".*M"/*M2/	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O6 OA3S7U+ECS+NCO7ROE3P;O3SKI3I	L+TCY7FKO2 T7EV S7E2J>/7RJ 3E	L3A	B7LSI3Y> 3
& +TCS3S[O3TGW+RCE+OCN7EWQ3I7P7ESN2 T+ACT+ICS7NSO6 WS3P3P3ISE6 	B*M>J3D
I3IGTL6."J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/*J>L2I	F3XSE6 WB3G> /NF 28*-+U7N*7B5+RCE3U	S+NCG7DWO3BWL2 3B3O/C3S& 3N> /S"/2 ?MD7E6JRI3A/S6=SLA*M2I;I7ISW"=602JNI/U7R"160"J*M2I?L/CV=.0B02I2/3OSA2 SA3DWRS7S"J*M6/NIR*M*M>J2IWM3SGS+GCE7FKO7MSA":*M*M>J3L7T3E
S2,KZ3LOO/KN 6IJ/+T7S28> 7VKE3HGED*M2/6I3OWD2+;UI7T"J&/+R/W3P
A+E/S3FWIL7D"J&/3B[U3ASD*M>J2I3B3O;KO*M6/NI7TSAU7S"J*M2/?M/D7E"I&03L;I3CGT+PCE3C;O3T	A+NCS.2B06 KO. B261^ 3OSR7SB +ECR3B?LC7K"J&/.4B0202I3ION7TCA3EN 7OSN3A;I/SR *0B07WKO+DCS7PKE2 3B3O/C"M6J6JV/7NSI"=&I3U	N3T: 3UKM+ECR*(60"76)"J*M6/
R.=BI2IWRA7D"J&/.4B060^I7RSIE*M*M>J3P
A/E7S2I:I3UKM+ECR+OCF3P
A+ECS+TCO3TGR3N[S+ECR2(	B+TCS.1V-.)B 2 WM7AON. B4*M>J2I6I7USS2 WB6 [E+ECN+ICF.4B02 ?W+RCD7PKE2 3B3O/C2 ?MD7E"J*M2/	F3ESL"=&I3FWI+LCD+OCF3B[U7FKE2 J(7IOT* 66"86)"J*M6/WB3FSAD&=3ASD7ROE3S> 3FJ 3U[FE7R"J&/2I?W+RCD7ASF+ECR3ESN2 [O6 WB3FWF3R& 7SZ 3OGL3T3IE*M*M
J3B?L3K?N2=2I3ION7TCA3EJ 3LOO3K: 3UKM+ECR+ICF.4B02 ?W+RCD7PKE2 3B3O/C2 ?MD7E"J&/6IOO*/B83L
O3IGC3LJ 3LOO3K: 3UKM+ECR+ICF.2F02 ?W+RCD7PKE2 3B3O/C2 ?MD7E"J&/2I>(+NCE+O?S28J 3LOO/K6 * B23L;I3CGT+PCE3B?L7COK2 ;I2 T+ICS7COAE6)"J*M6/SS7AWTS&I3OWN3SN 7OCM3L7E7ESN2 [O2 GT+PCE3CWH7COK+UCM3L[E3T" 3EWR*M>J.IBI2 WM7AON2 ?N6 KE7RKOS*M*M>J*******************
**********>**M>J"I&I2/&I/NJ *0B17WKO7DB +ECR3B?L+CCK3MSOE*M6/^I3A;R3I
N*!B .-:-"I&/7WKO3DF 3FWT3RV +NCD+OCF3B[U7FKE2 WGT7S"J&/*I>I2IWT3M?P7RKA7I	L2 WD7SKT3OWY3DJ 7YR 7HOI2 GT+S;K*M>J******************************>*"M6J2J2I3ION.=F6"4&12/;E7TKE2 	L+NCC3MSOE*M6IA/OF=*I>I+ACC+TCO7ESX3ESN+ECD7TCA3E> 7PKE3A	T7OON6 WB3FWFR*M2ISP/P
=*I>I7ESN+ECR7PCD*->83I6 3OWD"M&J3TOA"=&36IR/3AWP2 OA3C7U3UGL7TKO6 WB3FWF7RR 3OF C*M2I7T/AJ="3&I2/OA2 ?T2 GT+PCE3M7E7O	R2 SA3DWR+SCS7SSE+UCP3R
E7ISSE7R2J2I/M7R.6V1*1>I3LGO3D2 3ION7TCA3E6 3A;I3T;E3AON7EJ 3E	G3SWTR*M2LZI3I3E3DN +UWR"160"J*M2I2*O7C"J*M2I[I3NWD7FB /DGP.22 7EKR+OCR****.*:*"M6J6JCB+T3R"I&I2/?P7ISN7SR 3OJ 3U[FE7R6JSS7ASR2,NIA	L2I&/3NWS+RCT7ISN7EKR7USP2 /S+ICP+ICN3S	K3PN 3H	AN*M3U	NT&,7
CK7ION*I>I3U	N7T^ 3OSR2 J(+ICT.0F=2 WM7AON6 CS3E	C+ACL.4B02 ?W+RCD7PKE2 3B3O/C2 ?M+D	E2MZJ3N?W+R3D2I;I7TCRT&I2/	B+TCS.1V-2 ?C3NGT+ICN2> 7FB 3AWG3S2 7ESF2 ?T2 [XE7R2J?L+O3P2IGCL*M2IWR3C	EV	E2I^/+ECT3A6 7EOS3AWG2M6J3ASDR&,"0&I2/SA3DWR+SCS+OCF7MOE3S
A3E2 7ESF2 WHR7E2JRI+CCA3M
S3FSL2IN/+DCF+TCO3FWI+LCD+OCF3M
S2 WL+FCT+ICNA7C6JNIT7A6JRI+ACD3MSAD7R2JRI+CCA3MSAD	R6/WB+MCP3BOA3K6 3ASDR*M2I7J3S^ E	T2I^/+ECT3U	N3TF +NCD3SWP3CGI3LZ 3UON3T?I+NCS7BSI"M&J3DGC2 ;UI7T2J*I+MCS7GSE*I>I7GSE6 WF7NSC3I;O2 ?WR7D2JRI+CCA7F
N3OSR"M&J7JOM2 WGT&I2/WG3TJ 3U[F+ECR3ASD7ROES*M2IOD3AJ 7PKT"M&J3TSA2 ;UI7T6JJIA7L2JNIL7A2J*I+MCS7GSE*I>I7GSE2 3B3O/C6 WN3MWBR*M2I;SL*M2I3C7LJ A7L2JRI+CCA3B?LC7K2JNI+DCF7CKU"M&J7JOM* CI2(GP/GKE6IN/3T[U3F> /NJ +NCD3P
AE*M2IGT3DZ 3N?WR7D6JJIT7L2JFI+NCDL&32I&/3S3O3AWT2 ?L3W> 3RWD7RV 7NSI2 ;A7DJ */CW7BSI"M&J3C3L6 SRL&I2/;U+ICT+TCO7BSI* B82([O2 ?C7UORE6)6JRI+ACD.(B7*2>I.7J02=WR+ACD3OWN2 3B3O/C*;B .7Z06=KW3IWT2 ;O3EJ 3LOOK*M2IOD3A2 3T;IS	T2/GS+VCE7N
E+LCY7FKO3MSE2 	L7NSC3AWP2 ;I7SKT7USC3I;O2M^J3L?OP&,/A
C.7V7*I>I3C;A*	CT7HKU7TR 7OJ 7EKT/YN 2 	T7MOE"M&J3DGC6 KT3Y;CT*M7RSE+R3Y2IGT3DJ 7PKT2I./3LSU/G+E6 N 3AWV. B261SS2 ?WR7D6JRI+ACD.(B2*0>I7CWA3T?I7NV 7SKE2 KA7OSU2 TI7S2JRI+CCA3T7E+P>I3T	H3S& 3SF 2 WR+ACL3T7I7EN 7YSSE7M2J*I+MCS3B[UC*M2IGT3D& 2 WTM	P2/GS+VCE3
3O3A	T+LCE3LOO3A	TO7N2JNI+DCF7CKU*I>I3BOA7KR 3O> +UCR3FWIL7D2JRI+CCA3LOO7S[A"M&J3TSA6 CBT7R2J&IO	F2IF/7NSO7HKE2 ;U3A?V3IGD3BWL6 E7CKU3S?I3N& 3N?T2 T7EJ 3E3A+MCSO7F2J2I3ION*I>I3L;I3C6 3OWD"!*M2I7TA&I2/WP3R?F+RCM3RGE3D> 7R^ 7RSI3E> 3F> +NCE3B?LC7K6JSL7IONT&
"0&I2/	L7NSC3AWP2 ;I7SKT7USC3I;O. ^(.0623RGE+DB,.7Z06=KW3IWT")*M3B?L+C3K"I&02IJ/3LOO3K: 3UKME7R6JBID	P2IJ/3A/C2 ?T2 	C3V3I3IGS3T?IN*M6IOI3ZR 3FGL+G>I7NSO7ER 7HSA2 	L7NSC3AWP6 OI2 ?N3WJ 7U	S"M&J3I;O*I>I7AR 3YWP2 [O2 C3A
R+ECD3A?TM*M2IGCL*M2IGW3IWT*I>I3W	A3TZ +OCR3D;O3EZ 3L
A2 ?T2 ?C+MCEU7P2JRI3FGLG*M2I?IF&I6/SS3AWV2 [O7FB 7OOS3I3B3EN 3AGT7SKT3OPE*M2I	LN	C6I^/+HCO3K?N+WCS3WWH+RCE3E	V3L2 3U/RS6?.JOL6,RIA	C2I^/+ECT7TCA3EN 3HOE+K" .7^727& 3S^ 3OSO")*M2ISPP&I2/?G3O;D7EOS"M&J3I;O*I>I7PKE7MSI2 ;I7TKE7RSU+SB,+W
E+RCE3S[A3E: O7W2JNIM	A6IV/+SCE61N	2 ?C3M3P3EWM+NCT3S;I+CCE206 3E;A3S^ 3OSO2 ?T6 SR/S"-"M&J3DGC6 SS7AWT+S>I7S[A7EJ 7EWS3L	T+NCG3SGT7TOU2 ?WR7D6JRI+ACD3U	NT*M6ICS3AN L7A2J*I+MCP7NKO7ESS2I:/3OT3I
N2 ?T2 WR3S?T+RCE+ICN.4B02 ?W+R?D3BOL3K6 3OWD"M&J3TSA2 ?L3CGSV*M2I7J3SJ 3UOF"M&J3DGC* CI3T7E+P>I7ROE7TKO/EJ 60N17T^ 3OSR"M&J3C[D6 WCR*M7NKO7ESS6,RI+ACD3L	T7NSS"M&J3ASN. R("M&J3SGZ2 3CA&I2/WR+ACD+OCR3W	R/T?E"M&J3DGC6 SS7AWT+S>I3W	R7TOE2 GC7NR	2 GFI7L6JRI+A
D3SGT7TOU"M&J3SGN2 3CA*M2I7J3P> K&I2/?N2 WR3T	R+ECS+ICF3W	R+TCE7WOA2 GBD*M6IOI7ZR 3ROYN	T2/WR+ACD7EKRO7R2J*I+MCP7RSER	Y2/?G6 KT3YF 3G	AN*M3E	XT&,7JOM2 WGT&I2/OA2 	M7GSH2 WB2 ?N7N*-3E?R"M&J3CGL*I>I7DSA3AZ 3I3E3D& 3S: +OCW3R
IH7T6JRI+ACD3SGT7TOU"M&J3DGC* CI3MSAD7R6JRI+ACD3M
S3FSL"M&J3DGC2 [E3C[D"M&J3TSA2 GM7DKD"M&J3TSA* 6("7*M2IGCL*M2I?PS7T6JSS7AWTS&,*I>I3OWN3SN 7OCM3L7E7ESN2 [O2 GT+PCE3CWHC7K2J[E3C[D2,"IL7T2J*I+MCP3L?O+P>I7GSE2 ;A3OT+ECR7MOE3S
AE*M2MJJ3UOF.,BI2MJJ3UOF+D3F2I3HT*M2I7J3P& 6 WBF7C2J>LK&,3TSA2 ;UI7T6JJIA7L2JNIL7A6JRI+ACD7F
N3OSR"M&J3ASN. N(.7B0"M&J3SGN"M&J3TSA. R(.0B02IR/+O
N7TV 3PWS3T2 3I/N6 WB/TB 2 WM7AON. B4"M&J3S3Z"M&J3TSA* 6(.1B06IJ/3ESA* B23P
A+ECS+ICN3SWP3CGI3L6 3OWD"M&J3TSA* 6(.1B06IJ/3ESA2 ;O7EB 3AWG2 ;I2 WR3G3U+ACR3MSOE*M6ICS7AN N	A2IF/+NCY7MKO7EB 3AWG7SR 7OJ 3ESA"?*M2I7J3PV 7XSI2I:/+O" 3I;G3OWR2 GL+SCT3OSD2-GP+GCE+ICF+ICN.4B06 KW3D6 3OWD")*M2IOD3AZ 3N?WR	D2/WY+SB,7PSU* B3BOA3K& +N^ 7F
N3OSR"	*M2IGT7DV 7NSI"M&J3SGP2 3CA*M2IGT+D" .2B02IF/3DGV3NWC6 WB3FWF7RB +TCR.4B02 [I. B460^ 3D6 3OWD"M&J3TSA. J("0&06/KO. B220& /FJ *0>0.2F02 SW2 ?MD7E6JRI+ACD7BSPR*M2IOD3AJ 7PKT"M&J7I+S2 3B3O/C6IB/3O;I7TR 3O: 7ESX2 3B3O/C"M&J7JCM2 3G7OCO"M6J2JWT+M3P"I&I2
S7OSR2 ?F7RR 7ECM3OGRR7Y2JWGT&,"0&I2/?D7NR	2 ?T3UC2 	LN7K"J*M3M
S3FSL2,"IL7T2J&I+SCZ3MSAD7R6JRI+ACD3I6 3ASDR*M2I7J3P& 2 WGT*M2M2J7OOC+A3V"I606JKT3Y;CT&,"-632J[D3L
A.,BI*I>I7TCA3ER 3OWN2 3F+ACG.(603D;O+EB,21J=7U	S")*M2IGPG7E2J&L7NKT+P3T2IKZ3LOO/KJ 6IJ/+T7S28> 7VKE3HGED*M2IGT+D" .1B06IN/7KCI2 [I2 GT+PCE3D;O3EZ 3L
A"=612J2IM7R6JNI+KCP3CGL*I>I7NSO2 ?D+N3E2 3C7EKA2 OA2 ;A3DJ 3R;A+CCH7BSU2 ?N3T* 7UCM"M&J7SCK2 3CA&I2/?DN7E2J*I+MCP3I& 7NKTP	T2/?N3TR 3OWN2,^ 3O> 7NR 3O: 7ESX2 /SI7P2JNI+DCF7CKU"M&J3TSA. J("0&02/3C7EKA2 GT+PCE3D;O3EZ 3L
A"M&J7LKM"M&J3CGL*I>I3PGL7YN 3AWF"M&J3TSA2 R(3FGLG*M2I	C/FB *I>I7POO3TR 3OWN2 3FA7G6JBI7OSSD	S2IR/3I7S7IOS2 ;I7TKE7RCUT*M6MBJ3AWG"2&,"0*M2IGT3D& 2 Z(3N?WR7D2JFI+NCD.(B7"M&J3TSA2 N(D7F2JRI+CCA+I" 3B[U3C[D"M&J3TSA* CI2(;F7WKOD*M2I;A+D" "7&02I&/3S3O3AWT2 	F3
SL2 [O6 WB3FWFR*M2I3C7LJ T7L6JJIT7L6JJIT	L2IZ/3I3E7DR 3OJ 7IOT* 60"2*M2IOD7AR E7M6JRI+ACD+I" 3U	NT*M2I;A+D" "7&I6/OI3OGL+TCE3U	N3T: 3UKM+ECR3F?R7MV 7NSI2 ?WR7D2JNI+LCL7RKA*I>I3H
I3H>-3RWD7RV 7NSI2 	B+TCS+TCO+ACC*120"1616JRI+ACD3T7E*I>I3C7O3B;I3EF +NCD7AOL7OB +UCT7L
O6-KO7DKE2 ;U+ICT2& 3N2 3I/N"M&J3TSA. F("3&02/;E3A3B3E& 3NWT7RWR7POT2,V 3XWT3NWD3D6 3OWD2,: 7OB 7AOUE*M2I?IF&I2/	D7SOA7TKE2 [I2 WG3T& 3NWT7RWR+PCT3W	H+LCE+ICN3DWR3AWDD*M2I	LN	C2I2/3ION2 ?M+DGE"M&J3A?X*I>I3S;E3DZ 3UON3T?I7NR 3ON 7OSN3R3O7LKE"M&J7PCD*I>I3BO
7KR 7ON 3AWF2 SP/P"-2 ?MD7E2J&IO	N6IR/7HSA2 GW+S
N7TR +OCO3BSA2 ?N7W^ +ACS/I?T"M&J3CGL"M&J7JCM* CI3P
AE62"J*M3T7E.,BI*MRJ"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"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