File LCLISR.PA (PAL assembler source file)

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

2/WD3CWN/T"/. GV3A2 3OGC7LR 3U;R3A?R3USN2 &"3NWT7RWR+PCT7SKE3VOI+EB"7RWO3T;IE*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"M2J*/;J2 ?RT	H*2627M	A.-Z7*M>J*M>J2 WD3CWN/T"/2 WR3LGE+SCE7VKE3S?I/NF *M>J2 WD3CWN/T"/2 GP3TC2 WL3V3E" 7A*JB/7AKP+ICL.8F,.9^7*M>J"M&J7VKE3S?I/NB="1*M2IGP3TC2=F"*M>J*M>J*M>J2I[I2 
O+LCY3OWN2 3K*8CJ3C7O3M;U3IGC3T?I3N2 3IWN6 OI6 KP3EWS+N3T*M>J2IT+ECN3TWH2 ?F3L?L3W;I7GB 3AGR7MSE7EOR2 GC3NJ 3EV 7DSIE7D"J&/7DKI7ESC+LCY7ISN7OR 7HOI2 ?S3UOR+EB,+ICN3W	H+CCH7COAE6,"J&/+NCO3L;I3EN 7OSN3R3O2 	F+LCE+ICS3NOE7EOS7A	R".*M*M>J2I3A7TKE7NSA3IWV+L3Y*
CA3L;I3EN 7OSN3R3O2 	F+LCE3C;A2 WB6 KC7ESA+ECD3W	HC7H"J&/7HOA2 T3EWS6 GE7USA+E;S*M>J"M6J"J&/3L;IE&=2I2/3IWN6 WN3MWBR*M2/JI3U[F/L7D*I>I3FWI+LCD+OCF3B[U7FKE*M>J6IWB3F?LC&=2I2/3OGC3T?I3N> 3F& +SCR3B[U7FKE*M>J6IWB3FWLN&=2I2/3E
N+TCH+OCF3B[U7FKE2 ;I2 ?W7ROD*M>J6IOI3R3FD&=2IZ/3I3E3D> 7FR 7HOI6 OI+R" 3T7I+ECS*1&0*M>J6IOI3R?LC&=6IN/7TKA3I
N2 SA3DWR+SCS+OCF3T	H3S& S7R"J&/7IKS7TCY"=&I2/?L3C3A6 	TP7E"J*M2I[I3NWD3F:I3OGM/P2I3N7O/A7P"06>2J&I3FSN+ECF3L;I/E2 3L;I/EB=">*M2I[I3NWD3FJ 3U[F+LCD6<WB3F3F/DF="06>2J&I3FSN+ECF3B[U3LOO2 J<3U3F/O7C.4B0"06>2J&I3FSN+ECF3B[U3L;E2 J<3U3F/E7N.1Z7">*M2I[I3NWD3F& 
S[R+LCD6<OI3R3F/DF="06>2J&I3FSN+ECF7IKS3LOO2 &<3S3R/O7C.2B0">*M6IOI7R	TP&=.1B02IR/3E	F+NCE3LOO+ACL7TCY3E& S7R"J*M6IWCR&=7IKS3FSL"M6J2J2I/C7B2I	L7N;E3LKC7S+I2+OL3BGTB*M"M&J6/	S3M?B3LOI2 C3AGR3CWT3RR 3E	F7NSI3I;OS*M"M&J3D3E.=NI"7676JNI/O7H.IB2"1*M2I;EQ&=.0V
"M&J3DWL.=JI"2606JNI/Y7N.IJ2"6*M2IZ//I7L.IB0"0*M2IOAK&=.0F0"M&J3N/A.=BI"0626JJI/E7P.IB0"3*M6IJ//E7S.IB0"4*M6IJ/3EGSK&=.0V0"M&J7SKTT&=.0Z0"M&J3SGT/C7K.IB0"7*M6IOQ3YON.=FI"0606JNI3EWL/C7T.IB2"0*M"M&J2/	T7MKE2 	T7COK2 ;A7DR 3HWR3S?H+LCD7CWO7NOT"M6J6JRI3S;Y/C
S"I&46/WN3MWB3R> 3F2 3ESA3I
N6 	S7NOC2 ?T2 WSN7D2J6I7AKX/E7P.IJ12I6/+ACX+OCF*1B03C;O3SOE2 WR+PCS3B[E3OWR2 GF7IWLR7E2J6I7AOX/T7R.IJ12I6/+ACX3C;O3SOE6 SS7ROT2 WB7FKO3EZ 3A3I3UWR"M&J3A/C7TOK.=FI*2>I3T7I+ECR3TOI+KCS3B?F+RCE3A?N3TWH3RF +CCK7RGE7UOE3TSE"M&J3Q7T7TOK.=FI"4&42/	T7MKE2 	T7COK
 WB3TWW+ECN3I3D3I
N2 WRP7S2JNI7HSR/K7S"I&22/	T7COK2 WB3TWW+ECN3CGH3ROA7TKES*M"M&J6/KE7RKO2 WD3F;IE7S"J*M2IOB3CSHR&="0&12/WR3A?S3NZ +OCR3N/A2:N +RCC7EKR+OCR+OCN3HGE7DKE"M&J3BOC3DGT.=BI*2>I3RGE3S;O2 ?F3R: /A+K6 KC3CV 3R?R3R> 3NR 3AGT"M&J7RCE7RCS.=BI*3>I3RGE3S;O2 ?F3R: /A+K2 
R3PR	2 WM3SGS+GCE7NSO2 WR3C	E3VSE"M&J7NOO3POA.=FI*0>I3B[U7FKE2 ;U3A3V6 SA2 ;I7TKE7RCU3T2 3EWVL*M2IGN3K7FT&="2&22/WH3AWD3RZ 3O7R+ACT7EKR+OCR7DSE7ESC+ECD*(CA3M3U7TSI3USE2 [O2 T3I
NS6)"J*M2I[B7OKER&=.1B0*0>I7ISN6 [S+CB:3B[U7FKE6 [O3E[R7L
OE7D6JFI3EWL/R7R.IF0"0&02/;I7TN /V+C6 WQ3EWU2 3E3EWM+NCT3UGN3V3A3IKAL7E6JRI3MWO/R7R.IR0"0&02/;I7TN /V+C2 ;I7TKE2 C3AGR3CWT7RR 3IWM7OSU"M&J3B7F7EKR.=BI.2B02I&/+NCT3SOV2:J +ACD7FKO7MSA6 KE7RKO2 6(7USL7IWT7DOE")*M"M6J2JZI3I3E3DNI+UWR"160"J&L6/WO7TWP3T& 7NSI7
SAO7R*J>I7ESN+RCY+DCF2=R 3D[CL7D"J*M2I&*3S3RO7C"J*M7SKT+T3O"I606JRIA	D2(GT3D& 6IWO3TKTL*M2IOD3A>I3U7T+V>I7SSE6 CU2 GP3R7A3EWT3RN 7O	P2 ?LO7P6JRIA	D2(OD3A"I3DKRU7F2JRIC	A7HKD7SKT"M&J3TSA2I"(3DKR+U7F7OSU7CSN"-612JRIC	A7HKD7CSN2M>J3U7TV&,"0&I2/GT3D& 6IWO3TKT
L:+2M"J7DOR+T3R"I&02IR/C	A7HKD3B[U"+7N2J&IS	Z7OSUM	V6/WB+MCP7SWO3RWC6 SPR*M6IOI3Z"I7DORT	R6/WB+MCP7TKA7GSE6 SPR*M6IOI3Z"I3DORN	T6/WB+MCP7CWON7T2J*IM	P7OSUM	V2/?L+OCP+ICF7MKOE*M"M&J7JOM" 	I2(WG3T[B2IZ/7IOR3T^ +ECT7AB 3A/CE7T6JRIA	D.(F-"0*M2IOD3A"I3DORN	T2/
S7TR 3O6 3OWV* :82 C3AGR3CWTR7S6JRIA	D3TSA7HKD"M&J3DGC2ISH3RGT+D>I3B	U+LCD7ION+TCR3I3N3IWN6 N(3AWV3SF 2 GP+ICR+OCF3C[D*		S2M"J7DSR+A3D"I&06IR/+ACD7HKD3B[U"+7N2J*I+MCS+I"I3DOD7PSU"M&J7I+S2ISH3RGTD*M6IOI3Z"I3DORN7T2J*IM	P7HKD3TSA2I&/7TKE3AWT6MRJ3AD+D3R2IGT3
"I3DKRU7F6JRIA	D6(N-O7H6JNI+ZCA3CGL"M&J7JCM6IWO3T	X+T>I3E	X3T& 3F: +OCT3S;E3D;I7GV 7SKE2 GDT7A6JRIA	D3OSC+F>I7EOL7EN 7TKO3EN +DCF3I3N3IWN"M&J3DGC6IWO3TSC"M&J7JOM" 	I2(	L3NKK+F>I3L;I3KJ 3U[F+ECR+OCN3QWU+UCE7N
O"M&J7JOM" 	I2(WG3T[B2I^/+ECT3A?N3TWHR*M2I7J3S& 6IN(3EKT+F>I7FKI+SCT7CCO7YR +HCE7DOE3C	R3P?T3R& N*M2IGT3D>I3UOTN7T2J*I+MCS+I"I3DOD7PSU"M6J6JWO3TSC.,BI*I>I3CGH3IWN3DJ 3U[F+ECR7M[O3E2 7OCO"M&J7I+S6IWO7TSP+R>I3PWR3ION3R7E7ESN2 ?P7ISNE7R6JRI+ACD3I>I7UCTT7R6JN
M7A2J*IM	P7OSU3GOT2I*/+MCP+ICF3CGHR*M2IOD3A>I3UOT+D>I7EOL7EN 7TKO3EN D7F2J&IS	Z7OSU7PKT"M&J3TSA" 	I7OSU7PKT"M&J3DGC6IWO7TSP+R>I3ASN6 SS3OWR6 SPR*M2I7J3P>I3UOT+D>I3L?OP*M7OSU3GOT2,*I+MCS+I"I3PC6IN/7TKO3E& 3N& 7NWP3TJ 3U[FE7R2J&IS	Z7OSU7CSN2I&/7NKC2 C3AGR3C
T3RN 3O;UT*M2I7J3P>I3UOT+D>I3IWT7RSA3E& 3F6 3OWR"M&J3TSA2IOD3R3C2I:/+OCW7POA3SN +RCC+OCF7DSAA*M2I7J3S& 2IR(7DCCU7T6JRIA	D7DKCC7H2J*I+MCS+I"I3DOD7PSU"M&J7JOM" 	I2(WS3T[B2IZ/3IGN7L	L2 GP+SCS7N
E6 WB3FWF3R6 3A/R"M6J6JWO3T	XT&,7JOM" 	I2(	L3NKK+F>I3L;I7KB 3A/C+ECT+OCN3DOD+MCP7ICN+UCTQ*M2I	C3FN D	F3DOD3FSL2I*/3RZ +ICX3ROA3EN 3OSN3I	T+OCN2-2 3O/C2 OA7COE2 ?T6 SA3T;E3T?I3NJ 3U[FE7R6JRI+ACD+I"I3A;T7ICN"M&J3DGC6ISA7NSPR*M2IGT+D"I3L;I+E>I3S?T+RCE3L;I3E&
3N> +UCT3C7O3PWL3T?I7NF "M&J3DGC" 	I3A;T7PKT"M&J3TSA6ISA7NSP+R>I7GSE2 ?P7ISN+ECR3AGGI7N2J&IA7C2JFIN	D.(^7"6&76/WB+MCP3MSO. B1"M&J3DGC" 	I6(SA3N;I+P>I7ROE7TKO3E& T*M2I7J3P& 6ISS3R?T2IR/3OWN"M2J2I&/3NWT7RWR+PCT7L[E+ECL7DSAA*M2M"J3DKR+U3F"I60.JBI"M&J"0*M"I60
JBI"M&J"0*M3CORL&,"0*M3CORH&,"0*M7DKC+C3L"I602JOD3RC.,BI2M>J3C[D.,BI2M>J7UCT+T3R"I606JWO3T;CT&,"0*M2MFJ7TCN+T3R"I&06IR/7ECM6 SPR*M7HKD7CSN.,BI*I>I3T7E7PKO7A	R2 ?C7USNE7R"J*M6IR/3A3B7ER 3O6 +ACP7OSU7PSU2 WM3SGS+GCE+TCO7HKD3B[U"M6J6JWO3TKTL&,3OSHR&I2/OD7R2J
I7HKD"+&12I>/7CSNL*M2IO+D/R"2&I2/OO3NT"M&J3OSH/RN+*I>I3OWRS*M2IO+D/R"4&I2/;OU7M2J>I7HKD"+&52I>/A602J>I3CORL&I2/OO3R3C"M&J7OKC+C/L"1&I2/OO3RC"M&J3OOD3R3C*I>I3OOD3R3C"M&J3OOD3R3C"+&12/SO3CORH*M6IWO3TSCF&I6/WO3TSCF*M6IWO3TSC/FF+2I>/7UCTT7R2J>I3UOT+D/F*2>I7OS
7CSN"M2J6IJ/3EWC3IWV3R& 3NWT7RWR+PCT7SKE3VOI3E& 7NSI7ISAO7R*J>I7ESN+RCY+DCF2=R 3D[CL7D*J>I3O3N7YB 3E7R7IOS3A3B3EZ 3UON3T?I/N6 2 ;II7T*J>I2(GC7NR	2 WG3TV 3R?R+RCS+OCN3LOO+ACL3L;IE6)"J*M7SKT+T3I"I606JNI+MCA3CGL"M&J7HSL6IV/3NWR3AC3A3BE*M7CKL3B[U2,NID	F3B[U3F
L"M&J3SGT"M&J3DGC" 	I7CKL*1>I3S?T+RCE+A6 21& 7NR +HCE3B[U7FKE"M&J7I+S2I3CR612J&IS	Z7CKL"2*M2I7J3PNI3LKRU	F2/?L+OCP+ICF7MKOE*M2IGT3DNI3LKRU7F2JRI+CCA3INI/LGR2I:/+OCW3S?T+RCE3TWH2 	L+NCK3C[D"M&J7I+S2I3CR616JRIA	D7CKL"3*M2IOD3A& 2I3CR&12/	F3N3A+LCY3TWH2 	L+N
K7PKT"M&J3C[I2 SC3FRI3D[CL	D2/WR7TKUN*M2I7J3P& 6ISS3R	T2MNJ/LGR2,JI3U3FO7C2J3C+R222IJ-3U3F+E/N"2*M7CKL"3&,3B[U3LOO"-61"J*M2IGPG7E"J&L2/WG3TF 2 GP3CWK3TZ 3R7O2 T3E: 3OWD2 ?PO7L"J*M7GSE+B3F"I602JNII	F7CKU2I&/3N	H7BSI2 ;I7TKE7RCUT7S6JRI+ACD+I"I3FWRH7D6JNIN7A
J"IL	T6IR/7ECM3OGR3R3I3Y" 7ASL2 [I6 KE7RKO"M&J3DGC2ISD7CSP"M&J/ACC.0J0"M&J3TSA2ISD7CSP"M&J3DGC2ISD7CSP+R>I7SSE* CA3P	A3R> 7FB 3O;I7TKES*M2IGT3D& 2ISD7CSP"M&J3DGC" 	I6(KF3ESH6IV/3N	L+NCK3T	H7SB 3A/CE7T2J*I+MCP3I^I3EKTF*M"M&J2/	L+NCK7AB 3A/C+ECT+OCN3DOD+M
P3S& 7NWP7TF "M6J2J	L3NKKF&,"0*M2I	C3FNIU7R2JRI+CCA3IRI7DCC+T>I3CWL+ACR3TWH2 T3RGE7D^ 3OSR"M&J3TSA" 	I2(SD3C3T"M&J3DGC.IGS"M&J3TSA2ISD7CSP"M&J3DGC" 	IS&12/	L+NCK+OCN3TWH2 ;I7PSU" 7Q6JRIA	D3DODP7T2JRI+CCA+I"I3DODT	L6/CU7DSA3E2 7ISE6 SPR*M2IGT+D"I3L;IE*M6IO
3ZRI7DCC+T>I3P	O+NCT+ACT3L;I7E^ 3OSR"M&J3DGC" 	I3DODP	T6/SS3OWR2 	L+NCE3N7U7BKE"M&J7JCM" 	I3L;I3K[B2IR/3OWN6MNJ"1&,"0*M"M&J2/C3A;I+ECD3B[U7FKE2 ?M3V;I7GJ 7OSU3IWN"M6J2JOPH&,"0*M2IOD3ANI7HKA6IN/7TKO3EN 7HKA2 GP3SWS3D& 3NF C*M3B[U3C[D2,NID	F3B[U3FSL"M&J7I+S
IWB7FSPR*M2IGT3D& 6IWB7FSPR*M2I7CA*M2I;SA*M2I7J3P6I3T3SO7T6JNI+PCA3SGN2 3CA*M2I7J3PJI3U?FV7R6JRI+ACD3IJI7UCFT7R2JRIC	A3B[U3C[D2I2/3I/N2 ?T2 WN+XCT3S
E3M;ET*M6IOI3ZJI7UCFT7R6JRI+ACD3IJI7UCFT7R2JRIC	A3B[U7PKT"M&J7JCM6IWB3FSC+F>I7T	R2 
A3A;I2M6J3T3S+O3T2IGT3DNI7HKA"M&J3DGC" 	I3B[U7PKT6IN/7TKO3E: 7ESX2 CA7R2JNID	F3DOD3FSL2IJ/3A/C2 ?T2 SD3C3FD*M2I7J3P& 2IOP+H>I7RSE3U;R2 ?T6 WO7TWP3TN 3OWD"M6J6JWB7F[OR&,7HSL*I>I7CKU3R;E7T	L2 ;U3ROE3OWV3RKAL7E"J*M3B[U7PKT2,JI3U3F+O7C"1*M3CGHR&,"0*M"M&J6/SS3
WR* CA7WKO3D& 7NR +HCE7CKU3R;E7TB 3A/CE7T"J*M3DOD7PSU.,BI"M&J3DGC" 	I3DOD7PKT"M&J7I+S2ISD7CSPR*M2I7J3P& 2ISD7CWPT*M2MRJ7DCCT&,"0*M3DOD7PKT.,BI"M6J*J>I7S[A3EJ 3U[F+ECR7MKA3K& 3NN 7UKR7ESN2 GP3CWKT*M6MNJ3EKTF&,"0*M2IGT3DJI3UOFD7F2J*IM	S3DOD7PSU"M&J3TSA6IWB7
SPR*M2I7J3SRI7DCCU7T2J*I+MCP7INI3EKTF*M6LKE3RGTB&,7IKS7TCY*I>I3L;I7ER 3YWP"M&J7VKE3S?IN&I6/KD3IWV7RZ 7EOR3I;O6 WN3MWBR*M2IGP3TC*I>I7PSA+CCH7L[EE7L6J*I3B?L+CCK"7&52/GM+KCE3SGP+CCE7FKO6 KE7RKO2 GT3BWL"M6J6JBI3AWG"M6J2JZI3I3E3DR 3D[C+LWD"160*J*I3LKC"M&J3C[D6
WCR*M6IKE3RGTB*M6ISS3R	T"M&J7SKTT7O*J*I3LKC.+B2"M&J3B[U3LOO"-&12/;I3I	T+ACL3B[U7FKE6 SPR*M2ISC3FJI3U[FL7D"J*M2I[I7NKZ3O:I3OGM/P^-.7^7" 6<2JZI3I3E3DJI3U[F+LWD"160*J*I3B[U3LOO"M&J3Z3B3O/C6IWB3FWL+N>I7MKA3KJ 3U[F+ECR+ICN7BSI7MCA2 [I2 WD7SKIE7D.J:I"M&J*$R$"$*
"LBZ"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