File LCF.PA (PAL assembler source file)

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

2/WD3CWN/T"/. GV7AN 3K3E3E?T3N2 3IWN2 ?C7NKT+OCL3F3IE*M2I[I3D[E2 SD7CCM6 "<7LOIT6>"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/2JN/7O	P3R
I+HCT2 N(*)B .1^9.6F,.9^76 	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+GCE7WSI7HWO3T: 3O	TC7E2JF/+NCD3S?H3USL2 ?N3TJ 3EN 7OON7TWR+ECD+ACS3AN 3O7M
I7T7ESN6 	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/2J&I3FWD3FR 3D7C/P2 3X	L/S;T"M2J6/NI3K3E3E?T3N2 3IWN2 ?C7NKT+OCL3F3IE*M"/*M2/R 3E;C+E?T68J 3EWL3AWS2 WV3R	S+OCN"1*M2/R 3E;C+E?T68B 3AOT3H2 3EWV3LF *M>J6 CA3R3I* 28.1^9"7*M"/*M2/;O3E> 7FR 7HOE3EZ 3IWL3S& 3S: 
ESE+ECD7FKO2 GE+CCH7P	H3SOI+ACL3L;IE*M2/W3IC6 OI2 ?T2 WB6 OU+ECD7WSI3HR 3E;C+E?T*8B.2 T+ICS3F3I7EN 3EWL7COT2 WD3VOI3E> 3P	T7OON*M>J+ACS3W3E3LF 7SR +HCE7CKO3E2 3OGC3T?I+NCS+TCO3LGO7DR +HCE7D[E3IWC6 KD3IWV3RF +NCD7IOT6 WB3FWF+R;S"M6J"J*M2/T7EB 3AGR7MSE7EOR2
;I2 T+ICS3F3I3EF +RCE3E	D3TSE6 	B2 T7EV 7SKE".*M*M>J2(3A7TKE7NSA3IWV+L3Y2 [I2 ;O+LCY3OWN2 ?C+PCY+OCF3TWH2 ;I7TKE7RCUT*M2/WS3R	V+CCE7RWO3T;I3E& 3S: 3ESE+E3D2 T+ICS3F3I3EN +ACN+BCE3O	M3TWT+DB,3ASN2 TE*M2/GP3R7A3EWT+RCS7HKE3E;I2 GC3NJ 3EV 7DSI+ECD7DKI7ESC+LC
7ISN7OR H7E2J&/3NWT7RWR+PCT7SKE3VOI7EJ 7OSU3IWN2 ?S3UOR+E&."M6J2JF/3SWS3M3B3Y& 7NSS3ROU3T?I/N+S"M6J"J&/2.GP7LB 3AGR3M2,+C7F+N3B7IKS*M>J3TWH2 KA3OWV2 OC3LN 3O7M3ASN2 	W+LCL3CWR3AWT* CA3B;I7A	R2 	F+L3E6 OI3RJ.+NB,3WWHR7E*JJ/7IKS2"& 3SF +NCY3OWN2 [O2 T3ER 3E
C+E?T28& 3NWT7RWR+PCT7SKE3VOI7EJ 7OSU3IWN2 ?S3UOR3EZ 3IWLS*M2/[I2 ?M+RCE3TGH3N> +NCE7IKS6 OI2 WB3I
N6 OA3S7E3BWL7D& +OCU3S?H3USL6 KC7ESA7EN 3EGP7RSAE*M2/	L+NCE3C;O3T?R3LZ 3IWL3SF +NCD7SCE3AGR+TCE3B;I3A	R+E3S6 WS+CCH+ACS2"OL+F:0+PKA*M>J3ASN2 &"/SCR2.;B2"Z +OCR3L;I/EB ".*M2/T3E& +SCR3B;I7A	R2 	F+LCE3W3I3LN 7OSN3A;I2 3A7LR +HCE3NOE7EOS7A	R2 ;I7FKO7MSA3I;O
M>J+TCO3LGO7DR +HCE7IKS2 ;A7DN 7EWT7PR +HCE7AOS3O	C3AWT3DR 3D7C3P2 3IWN2 ?C7NKT+OCL3B?L7COK".*M*M>J3TWH2 ?F3L?L3W;I3G& +SCR7SWO3RWC3SF +RCE3P?R3VSI/E+D"M6J2J./3L&8+S;RP	A3F3U3LR 3U3P+ECX7A	S3NC3R;O7OOU2 WS3R	V+CCE7FKO2 3K*83E*M>J2I.I3L*8+AB,/KL3A> 3R. 3L*
7A^ 3IT2 3K*8CM3MSO+ECM3C;O3T?RL*M"/&I3H3A3FR 3U3P+ECX+ICS7AOL7OB 7R[O3IWD3DZ +OCR/KL3MF +NCD/KLA*M6/CD68OI7RB.7ANI7E[R3IWC2 ?F3RR 3PV86 WF+LCL7DCU7LE6 	S3NC3R;O7OOU2 WD3VOIE*M2//D7COI7RB.7ANI7E[R3IWC2 ?R3U	T+NCE7FKO2 /D3CF86 WF+LCL7DCU7LE2 GP3R3A3L3E2 ;I
TKE3FOAE*M2/OL7LOI7RB.7ANI7E[R3IWC2 ?F3R2 3OGC7LR 3U;R3A?R3USN6 B"7SWE+DCO7IKS""*M"/&I3TWH2 ?L3C3A6 OI3RR 7OOE2 ?N3T: 3ESE* CA7P	H3SOI+ACL7D[E3IWC2 [O2 ;A3Y. 3ISN*M>J2IFI+NCD3C;A2 WB* CA3V3A3UKA+LCE7D[E3E?L3PWM+NCT3T?OL*M"M6J"J&/3TWH2 ?F3L?L3W;I/G^ 2 GP3R
A3EWT+RCS3AWR2 GM3NGD7TKO3YZ +OCR3A3L6 OIR7S"J*M2I	L/N7E*I>I7P	H3SOI+ACL3L;I3E: 3UKM+E;R2 	L+NCE3N7U7BKE3SJ 3E	G3NF /TB "M&J*I>I3TWH2 	L+NCE3N7U7BKE2 WS+TCS3TWH2 /S3IOP3H	A7NB 3R?I7RSIY*M"I&I2/[O2 T3E& +S;R"M6J2JFI3D;J/O7D*I>I3NSO3E: 3UKM+ECR+OCF3NSO7EB 7
OY3IGC7L	L2 ;O6 SO7HKE2 ;E3D> 3F2 3IWN"M&J*I>I3NSO3E: 3UKM7EOR2 WB3G;I6 SA* B22(WS3ER 3E;C+E?T68B 3R
O3R7A3M;I3G6 7AWN+A	L"M6J2J&I3S[R/L7D*I>I3FWI+LCD2(	T7MOE. B12)> 3F& 3NWT7RWR+PCT7SKE3VOI7EJ 7OSU3IWN2 V(*.;G. B3")*M6IOI3R?LC&=2IF/7DKD7EOS2 [O6 SS7ASR2 [O6 OIR*M"M&J3B[U3FSL"=&I2/	F3ESL6 R(3IWM/SF *0B)+OCF7IKS6 WB3FWF+R" 3E^...R "06)2JJI3U3F/O7C*I>I3LOO
A	T+OCN+OCF3SGT+RCT+OCF7IKS6 WB3FWFR*M6IWB3FWLN&=2I2/3E
N+TCH+OCF7IKS6 WB3FWF3R& 7N^ 3OSR+S" 7NKO3M3A+LCY62B 3AWG3S& 7SN 3U[F3I	C7ESN")*M*M>J3TWH2 ?F3L?L3W;I3G& +SCR7CKO7EN 3IWZ3SF 3P3P+Y" 7NSO2 ;I7CWL3D;I7GJ 3I
N6 WB3FWF7RN 3POA/E*)"M6J2J./3L&8S	R*IB43P
AE7S2JR/3P&8S	R*IB83P
AE7S2J2/3C	LS	R*IB23P
AE7S2JR/3K	CS	R*IB43P
AE7S"J*M2/T3EZ 3O3L3O	W+NCG7PKA3AWM7TKE3SF +RCE7D[E3IWC2 WD3P;E3D;AT*M2/T3E& +SCR7SWO3RWC2 	F7LOE2 S3O3U3DJ 3EN 7OON7USL+ECD7FKO6 E7ASC6 OU3AWG2 ;I2 GE+CCH7COAE*M*M>J6IOI3RWDV&=2IR/3E	V+CCE3CSO7EV 3SSE6 	B6 OIR*M"I&I2/?N3RGM7L	L2 [O2 T3EZ 3O7R6 	X2 V(*.;G
 Z32)Z +OCR7D[E3IWCS*M"I&I6/SO7HKE2 T+ACN3TWH2 3K"87A"J&I2IZ/+OCR3TWH2 3K*8CA3T	H3S6 7USS2 WB2 WS7TR /OF *0.07N^ 7HKEE*M"I&I*/CN+ICS3TWH2 3K*8CA3L;I3E: 3UKM+ECR*(;E+GB..1N0")*M2/&I3SKR/R7K*I>I7DSA3AJ 3RGE3K2 3OGC3T?I7NV 3SSE6 	B6 OI+R" 3E^...^ .5B5")*M"I&
6/OU+ECD3O3N3YJ 3YR 3PV82 WS3R	V+CCE7RWO3T;IE7S"J&I2IN/7ASU3I;O6:R 7HOE3E2 3OGC3T?I+NCS7UWS3A3L3YR 7ESS7R	O"M&J*I>I7PKA3T> 7FR +HCE+O?S68J 3E	S3D;E3T" 3ASN7LKE".*M"I&I2/T3ER 3PV86 OI7R^ 3I3L2 GC+LCL3TWH2 V"7XSI6"R 3A/S2 [I"M&J*I>I3TWH6 E+ICT7TOA3K& 3SR 3E
F3NSE2 ?T2 WS3T& 3TWS+LCF+TCO7ROE7TKOE*M"I&I2/T3OWS2 ?L7CSA3I;O7S^ 3H;E2 T3E6 +CCR6"E+IKT2 ?C3MGM+NCD+ICS7TCY+E;D"M&J*I>I3SWE2 T7EJ +T?S68V 7SKE3S6 7AWN+ACL7FKO6 WF3RT+ECR7DSE3A3IS6."J&/3K7L7D[E"=&I2/WD3VOI3EN 3OWD2 ?F3R. 3L682 ?M3D7E2 ?C7NKT+OCL7OSP3I;O2
V(*.;G. Z4")*M"I&I6/OU+ECD3O3N3YJ 3Y. 3L*87AN 7E[R3IWC2 ?R3U	T7NOE"M&J*I>I7WSI3H6 3OWD3MN 7OSN3R3O2 WF7AWT7ROE*M>J2I3K287AD&=6IN/+ECT+TCO21& 7FR 7HOI6 OI* CA/KL3A2 3IWN* B33NWE3D;IG*M"I&I2/3K*8CA3MSO+ECM3C;O3T?R3LZ 7ESA3UWRS*M"I&I2/T+ICS7PKA3AWM7TKE6 WM+S
T+BCE3L[E3TJ 7EV 3NWD3F;I+ECD3OT7E
R3IWS*M>J7TOAK&=3DOK"8	A6IR/7HOI2 GP3R7A3EWT3R6 7USS2 WB2 WD3F;I+ECD+ICF"M&J*I>I3TWH2 /D3CF82 GP3R3A3L3E6 OI3R& 3SJ 3E;I3GF 3SWS3M3BE7D"J&I6IR/+HCE3DOK*8CA+ICS3TWH2 ;O+LCY7IKS2 T+ACT3NWED7S"J&I2IF/6 WS3P?P+RCT7TOA+KB.2 /D3CF86 WM+SCT7AOL3OJ 3ER 3E	F3NSE2 
I"M&J*I>I3TWH6 SR/S"/2 GP3R7A3EWT3RZ 3IWL".*M2/3K28SHX&=6IR/7HOI2 GP3R7A3EWT3R6 7USS2 WB2 WS7TR /OF 2 [I2 3K*8CM+OCR/KLA*M"I&I2/GH+LCF7DCU7LE2 WF7AWT7ROE6 KA3ER 3E	S3RSE".*M"I&I2/?Y3U6 7USS2 ?N3TR 3E	F+NCE3OT7E
R3IWS*M>J2I?N7MCA.=F-2IR/3E	F+NCE7EWQ+ACL+TCO*-B1+TCO3PWR3V;E7TR +HCE3B[U7FKE"M&J*I>I3F?R3MJ 3E;I3G6 3A/R+ECD+ICN3TWH2 	B3TGMP*M"I&I2/T+ICS3A3L7OOW2 T3EJ 3U[F+ECR+TCO3LGO3D> 7VKE2 GB3TC2,Z +OCR3EGX3M3PE*M"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

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