File LPT.PA (PAL assembler source file)

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

2/2 +PCT3D	R7VKE2 GT+SCK7FKO6 SR/S"/6 Z(*27BB&)*I>8.1^/"7*M2I3X7ISS"I&12/?C7PKY3IG3TF 3L?S6 OI2 ;I2 GP3R7A2.GP*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J2I?C7PKY3IG+TB *(	C. F .9R7.,&1*725.1^926J Y*M"/*M2/RI3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?IN*M"/*M"/*M"/*M"/*M
/*M"/*M"/*M"/*M"/*M2/T3E& 3N?F3RGM3T?I3N& 7NR 7HOI2 ?D3C7U7ESN6 OI6 WS3BWJ+CCT2 ?T2 N 3H;AG7E6J^/3IT7OSU2 : 3O	T+CCE2 ;A+DB 3S?H3USL2 : +OCT2 WB2 N 7OON7TWR+ECD6 OA2 F *M>J3C7O7MSI3M;E3TJ 3YR 3I	G3T3A2 V 3Q	U3PWM+NCT2 ?C3R?P7RSA3I;O*.B 3D
I3IGTL*M6/GE7UCI3M;E3TN 7OCR3OGR3T?I3NF 7SWS7MOE2 ?N2 WR3S?P3N	S3B3I7I	T2 ?F3RF N7Y2JV/3R?R+RCS3TGH3T6 +ACY7ACP7EKA2 ;I2 T+ICS3DOO3UWM+N;T*M>J*M>J3TWH2 ?S7F
T3AWR2 WD7SKC3IWB3D& 7NR 7HOI2 ?D3C7U7ESN6 OI6 WF3R	N3SWH7DR O*M2/T+EB 7PKU3CGH7SKE6 V 3NWD+RB +AB 3LOI7EON+EB 7FKO6 V +SCE+OCN7AN 3I
NL7E2JN/7OCM3UWT7RN 7YSS+ECM3ASN2 GC3NJ 3EN 3O	P+ECD6 ^(3IT2 & 3N3C3U	S+OCN2 [O*M>J3D
I3IGT7LN	2 N 7O	P3R
I+HCT2 ?N3TOI+EB)2 ;O+LCY2 ?F+RB 3UWS2 & +NB 3SOUH*M6/	S3SWT+MB,3EOX7ESP6 OA2 GM3Y> 3TWH3R	W+SCE+BCE3P?R3VSI+ECD+ICN6 KW3I	TN7G2JJ/3YR 3I	G3T3A".*M"/*M2/	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O6 OA3S7U+ECS+NCO7ROE3P;O3SKI3I	LT7Y2JZ/+OCR3TWH6 OU3E> 7RJ 3E	L3
	B7LSI3Y> 3F& +TCS3S[O3TGW+RCE+OCN7EWQ3I7P7ESN*M>J3TGH3T& 3S: +OCT7SCU3P	L+ECD+BCY3D
I3IGTL6."J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/6J"I7LOI/TBI2I2/7ISS2 GT+SCK3CSOE*M"M&J7VKES&="1*M"M6J"J6/2JV/7DSI2 	H3S?T/R+Y*M>J*M>J*0613A
U.-^7*:" 3L;H")*M./FI*)B *8B03C3O3U;M6 CL+TB:3CWR3F2 7ISS3I
N".*M./JI*)B 7PKA3AWM7TKE2 	F3ESL2 ;A3D> 3R
I+I;N*M>J*I&32 N 3H;A3GSE2 F"3S	S+GKN2 ?T2 3A7L
O. J168R 3A/SS6."J*M"M6J2J[I3NWD3F2I3P[TL	D6<CL3T3F/DF="06>2J[I3NWD3F2I3P3TO	C6<CL3T?L/CR=.4B0">*M"M6J"J*M"M&J7TOAK&=7LSP"M&J7CKU2=2I3P[TL7D2J&I7N
IT&="0*M"L6/"J6/2J"/3ASN7LOE2 WL*8B,/LS+EB,/LV2 	L+NCE3P	R3NWT+R;S*M>J*M>J*M>J6ICL3TR 7R[I+ECR7MOE3S
A3EZ 3O7R+ACT2(SI7ESN3IGC7LR 7OR +T	Y":*M"/*M"/*M6/CL7TOM7G*,3B?L+CCK*3>I7ROT*-B83OWV3RWHA7D"J&/3POA3KN+3R[L2+;I3D2+3IWN6+OA3S
I3N2+3E
NT7H"J&/3IKNU7F"J&/7OSU7TSX*M>J*M>J3POAK&=20>I7UCT+UCT7TE3T& /SZ 2 	B7TB 3A/C+ECD3AOS+I;I*M>J.IB4"0&07OSU7PSU2 WT+XCT+ICS7UCN3A/C+ECD3AOS+I3I* B13CGH3ROA7TKE*M>J6IBI+ECR7WKOD6."J6/2JN/3R[L.=BI2ISA3DN 7AKR3I
A7EJ 7EWT+RCN2-2 3IWN2 WF+ECD7ASF+ECR7TET6."J&/.2B020RI3O: +OCT3ASD6 KC2/[L2 [A7TKE2 WT+X;T*M>J*M>J3ISN.=BI2I[I2 >"7UST+XKT6 OI2 T3EZ 7IOR7T^ 3OSR2 [O2 WT+X;T*M>J.IB1"0&0+ICF6"WO7TT+TB"3P	O7NOT2 ?T2 T3EZ 7IOR7T^ 3OSR2 [O2 WTX7T"J6/2J2/3IWN2I:I+OCT3UWS3DJ 
Y2 +PCT3D	R7VKE".*M"/*M6/OA3S
I/NB=2I?F3R: 3O7R+ACL7TOA3K> 7UCT+U;T*M>J.IB220FI3S	S7GON2 T3E2 +PCT3D	R7VKE2 ?T2 T7ER 3A/S2 W3OWS*M>J2I:I3UKM+ECR+ICS+ICN3TWH2 2"3E
N+TKH2 	F3ESL6.J 3EGM7ION*M>J2I&I3NV 3FWF+CCT7USN+ICL3DGE3S	S3GWND6."J6/2J2/3E
NT	H6IOU+ECD3O3N7Y^ 3IT2 F"3S	S+GKN2 KA3OWV".*M"/*M2/;I3B[U2I:I+OCT3UWS3DJ 3Y2 +PCT3D	R7VKE2,J +UCT7MOU3TJ 7EB 7ROE7ESN".*M"/*M6/WO7TTT&I+ICS7ESI7HKE2 T3EZ 7IOR7T^ 3OSR2 [O2 T3E> 7UCT+UCT7TET*M"/&I+OCR3TWH2 SA3DWR+SCS+OCF3TWH2 	F7RSS2 ?W+RCD+OCF7TET6."J&/
IWS+EJ 3ISN2"F 7B[OE6."J6/"J6/6JOLF&=.6Z6"1*M3L[C.=ZI.6J62M2J/S7E.IZ6"6&36/KE7RKO2 /S+ICP7FKO2 WL28> 7N	L2M2J/I7E.IZ6"6652J3LS&=.6Z6"6*M3L[I.=ZI.6^62IR/3IGS3BWL2 ;I7TKE7RCU+T6 2 WL28> 7N	L"M2J"/*M2I	F3ESL6 WC/RF%"0*M2I2*3P3TO7C2JWM3V3FG6,6JSS7ASR2,NIA7L2J
F7AOG6,NI3K	PN7S2JGH+L3F6ICL7ISN2M2J7POM+L3P2IGT3DFI3S;GE	E2/WG3TF 3S
I3NWE2 &(3FF +N	Y"M&J3C3A"M&J3ROE7E[I*I>I3T/A7ER +HCE7MOE3S
A3E> +FCF3TWH" 7Q2JGM7DKD.,BI*I>I7GSE3SF 7DKD7EOS2 [O2 WM3SGSG7E2JRIC	A3M
S3C[D2IZ/3I3E3D> 3F6 +SCG+ICNA7C2JFI/C^7"7656JRIA	D3MSAD7R2JRIC	A7M[E3F
L6IN/3AWV2 WM3SGS+GCE3EWV+NCT3FGL3GF 7DKD7EOS"M&J7JOM2ISC7FOMG*M2IGT3D& 2IGM7DKD"M&J3DGC2I3F7AOG2IZ/7IOR7T^ 3OSR2 [O2 WM3SGS+GCE+ICS3FGLG7S2J&IS	Z3MSAD7R2J&IS	Z3MSAD	R2//S+ICP7RCE+LCY7WKOD*M2IGT3DZI3L
AS*M2I;A+D"I.2B0"M&J3SGZ2 3CA*M2I7J3PFI3S	SG	N2/	B/TJ *0B0+OCN3MGE+NCS3T	H3S& 3SF N*M"I&I6/OA3S
I3NN 3A3L"M&J3TSA2I3F7AOG"M&J3R3T"M&J3SGM2 3CA&I2/	B/TF .0B02 [O2 3F+ACG7WKO3D& 3N	D7CSAE7S2J*IM	P..N+2I&/3F6 7EOS3AWG6 KO2 ?P7ISN+ECR+TCO+ICT3F3O7L
OS*M2IGT3D& 2IGM7DKD"M&J3DGC2IGM7DKD"M&J3SGT"M&J3DGC2IGHL	F2/;I3I	T3A	L+ZCE3L[E7TJ/3IG7TN 7WSIC7H*J>L3L?O7PR 7OV 3NGP+CCK3ASN6 WO7TWP3T6 7EOS3AWG"M6J6JCL7OCL2,*IM	S3C[D3M
S"M&J3TSA2I3F7AOG"M&J3SGP2 3CA&I2/	B/TB 2 [I2 3F+ACG+WCD3T3E+LCS3WWH3TWHR*M2I7J3P>I7NCEW	D2/WM3SGS+GCE+ICS3POA3KSE6 KO2 ;U3POA3KSE6 OA3C	I"M&J7I+S2IGHL7F2J*IM	P3RG3T[H"M&J/A
C.7Z7"M&J3DGC2IGHL7F6JRI+ACD3I6I3ASDR*M2I3C7LJ T7R6JJIT7R6JJIT7R2J*IM	P..N+6MJJ7GSH+H3F2IGT3D& 2IGM7DKD"M&J7I+S2IGM7DKD"M&J3ASN.I^("7*M2I;SA*M2I7J3PNI7KKCL7F6JRIA	D.(R2"0*M2I;A+D"I"7676JRIA	D.(R2"0*M7OSU+C3H2I7J3S2I7PWOT*M2I7J3P2I3P3OP*M2M>J7NCE+W3D2IGT3D
 2IGM7DKD"M&J7I+S2IGM7DKD"M&J3SGZ"M&J7JCM6IWO3TC2MNJ7KKC+L3F2IGT3DZI3L
AS*M2IGRL&I2/	B/TF 2 [O2 3F7AOG2 WT7LOL2 W3ETE7R6JNI+MCA3CGL*I>I+TCO3F3O7L
O2 WM3SGS+GCE+BCY3AN 3R2/F*M2I7J3SNI3R[L2M2J7P[O+E3R2IGT3D6I3SOGD	F2/WG3TN +DCF+TCO7MOE3S
A3EZ 3I3ED*M2IOD3A6IF*M2IGT3D6I3E[VL7G2JNIA7L6JBI7OSS2M6JF&,"0&I2/?P+SCT3EWV+NCT3FGL3GZ +OCR3S;E7DKE"M&J7JCM6ICL3M3SP*M2MFJ3S	S+G3N2IGT3DZI3L
AS*M2I;A+D"I.0^1*7>I7GSE2 GT+SCK+TCO+BCE7AOS3I;G+ECD+TCO* **3L;H"M&J3DGC6IOA3GWNE*M2I7J3P2I7P[OE	R2/?P+SCT7AOS3I;G3M;E3TV 3V;E3TZ 3L
A"M6J6JOA3GWNE&,"0&I2/GT+SCK7AOS3I;G3M;ET*M"I&I*/B-206 3E;A7SV 7NOA3S
I3NSE"M2J2/?L3W2-3EWV3L2 +PCT7OSU7PSU2 ?CD7E"J*M3C3RF&,"0*M2IGT+D"I.2V1"M&J7JOM6ICL7OSU"M&J3TSA.IJ("1622J*IM	S3L?PU7T2J*I+MCP3INI3R[L"M6J6JCL7OSU.,BI"M&J3DGC2ISC7FOMG*M2IGT3D2I3PWOV*M2I;S3AN L	A2IV/3V;E3TZ 3L
A2 ?P3SWTD6?2J*IM	P7LKP7E	D6I&/+ECS6-N 7KCI2 ?S+MCE3OWV3RWHA7D2JNI+LCA3IOA"M&J3LWI*I>I3EGN3BWL2 	L+NCE3P	R3NWT3R& 3NWT7RWR7POT"M&J3CGL*I>I7JOU3T& 3NN 3AWS"M&J3C3A"M&J3W	AT	E6I^/7ASI2 ?F3R2 7ASS2 C+ACR+TCO3F;I3IS6MBJ3L?P+E3V6ICL7O[E2M2J3PWR+D3Y2IGT3DNI3D7F
7G2J&IO	F2I&/3N	H7BSI2 ;I7TKE7RCUT7S2J2IL7S2JNIL7A2JFI+NCD/IBI6I^/7ASS7EN 3OWM2 	TM7E2J&IS	Z3L?PE7V2J2IS7F2J*IM	P..N+6IR/7ESS2 ?F3R& 3MWM3DGI+TCE3FGLG*M2IOLF*M2IOD3A2I3PWOV*M2I?IN&I2/WR3S?T+RCE7ISN7EKR7USPS*M2I7J3P& 6ICL7OSU6I&/+ECS2-R +O
N3TJ 3OT+ECR7WSI3HV 3V;E3TZ 3L
A"M6J6JCL7ISN.,BI";&06IV/3SSE2 ?F3R2 3I/N3I
N2 ;I+TCO3S	K3PN 3H	AN*M6IOLE&I2/C3E/C2 ?F3R2 +PCT7P
O+ECR7L
O"M&J7SCK*I>IN7O2J2II	F6I&/+ECS2-R 3IGS3BWL2 ;I7TKE7RCUT7S2J2IS7F2J*I+MCP3I2I3P;IT*M2ISC3FN U7R2JNI+ICF"0*M2IOLF*M2IGT7DBI3L?PE7V6JBI7OSSD	S6IB/7OSS2 2"+PCT3C7O3PWL+TKE6 [E7ESN2 3FA7G"J*M3L?P+E3V"I60"J*M3C[D3M
S.,BI2M6J3SOG+D3F2I3HT*M2I7J3P& 2ISC7FOMG*M"L6/"J*M.I6$2$2=/H7N*$R="M2JBZ

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