File SAMP3L.PA (PAL assembler source file)

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

6/RI3HWR3EN 3H;A3N3E2 GS3M3P3I
N6 KP7OKGA7M"J&/3CGH3NWN+LCS+TCO+BCE3S7A3PWL3DF +RCE*122*123"166"J&/3CGH3NWN/LF 26& 7SV 3SSE6 OA* CA3D7UM7Y"J&/+ACD*1B23W3I3LJ 3ER 7ICS7L	A+ECD+OCN3CGH3NWN/LF 2 [O2 T7ER V*M2/FI/DF .3F,66^ 3I3L2 WB2 	D3S3P3AWY3D> 3NN 3H;A3N3E" 62"J&/3D[E3A3U3TZ +OCR3AGN7L
YI	S3V3O3UWM2 ;O2 C3A;N+ECL"162"J&/"I&I3F?L3W> 3NN 3H;A3N3E. N1*M>J"I&I6ISP3P> 3NN 3H;A3N3E. Z1*M>J6IOU3R& 7SV 3SSE2 ?T2 GC+LCL3TWH2 ?C3MGM+NCD3DOE3OWD7RR 3O& 7NWP3T> 7UCT+UCT*M>J2IZI3IWL2 GNM7E"J&/7DSA7A^ 3I3L2 WB2 ?C3LWL3CWT7DR 3OZ 3I3L2 	F3ESL22F +NCD3
WH7N^ 3I3L*M>J2IJI7E^ 7RSI3T;E*M>J2I;S/SB 2 [O7F^ 7ASI2 ?F7RJ 3AWT2 ;I6 OR7WN	*M>J2I;S/SB 2 ;O2 WR+ACD7RSA+EB,3S7A3PWL2 ;A3DR 7ICS7L	A*M>J2I;S/SF 2 ;O2 WB3G;I6 SS3OGR+GCE+OCF7DSAA*M6/NI+NCS25> 3NV 7XSI2 ;A3DN 7LOO3EZ 3IWL*M>J2IGE+CCH3T7I3E> 7BWU3FWF3R& 7S
 7RSI3T;E2 C3E/C7SN +NCS.0J-"M&J2/?M+DCE3CGH3NWG2 ;A3D2 3ION2 ;I7SKT7USC3I;OS*M2ISPP&="2*M2I	L/N7C.IF6"4612J	F7XKM3I2I7JCM.=ZI.2B02MZJ3I7XR	I7LSSA&=.4B0"0*M7FI3M	R2IGL/D62.IJ2"0&02/GL+DCD7FKO6 SO7HKE2 T+ACN3P
A/EB 2 WR7FKE3NWCS*M7FI3M	R2IGL/D7D.IB2"0602J2I7CKL.=FI"1*M2IOL/O7M.IB0"1676JNI/AGM.=FI"1626JNI/AKM.=FI"1636JNI/AOM.=FI"1666JNI3ASM.=FI"1662JVI/S7F"I&42/GF+SCT3S7A3PWL2 ?M+DCE3W3I3LJ 7EV 3SSE"M&J7R
S.=VI"1662JRI/ICS.=FI"4&72/	D+SCP3CGH3NWN/LF "M&J7DOI"1&=.1^62IF/3U?T2 ;I3CN 3H;A3N3E" 612JRI/IKS.=FI"5&02/C3A;N+ECL"2*M2I	D/S63.I^1*0>I7ASU3O& +NCC3CGH3NWN/LJ "M&J3DOS.=FI.7F72IN/7HKA7ASC+ECR7DOI3PN 3H;A3N3E* B27ASU3O& N7C6JNI/NCS.=RI"4606JNI/NSS.=RI"464
JNI/NGS.=RI"6&12/;I7DKI7ESC2 /S+ICPO7N6JNI/NWS.=RI"465"J&/3C?L+CCK3F;U3C	T7OON"M&J3CGLB&=.6N1"3*M2I3C/E7N.IF6"3642JNI7LKL.=ZI.1J3"M&J7COLA&=.6N1"5*M2I3C/S7K.IF6"3616JV/+SCR3C3A3LZ 3UON3T?IN7S2JZI3EOTH&="1*M2I;E7TKE.=NI"M&J3C?L/S7E"I642JRI3E?C/D7E"I65"J&I.
^02I>/3R
I+ICN+ACT.0B0"067"J&/3L;I3CF 3LP3AF +NCD7BSE7AJ 3E	G3SWTR7S.J
L.,BI2M2J*120"I60.JGL"1&,"0*M/LJ1.,BI"M&J.IJ*"0*M7UKS.,FI.7B7"0*M3N7AE&,.0B;.;.0"0*M3F;UK&,"0&I2/3C3O/C6 WF7NSC3I;O2 GV3RGI3BWL6MJJ3AWT.,BI*I>I3C?L+CCK7RSA7EZ 3A	R3A3BE*M3L;PT&,.-^3"7&I2/	L+NCC3C;O3SGT+NCT7FKO2 ?L7WB 3O;I3T& 3NR 7ICS7L	A2MZJ7L
O.,BI*I>I3F?L7WN 7ACM+LCE3S?T3R
AE*M3V3O.,BI*I>I3V3O3UWM2 GS3M3P7EN 7TKO3AWG6MBJ+T3P"I&06IB/7ROE7SKU7EN 7ACM+LCE3S?T3R
AE*M3B/L7NKT.,BI2M.J7NKT"2&,"0&I2/?W+R7D3B/L2 ;K7TOR2M6J.1V2*,6I.1V2"M&J.IR*"0*M7EKR.,BI*I>I7EKR+OCR3H3AT*M2I3CA*M2IGT3DVIR	R2/?L7CSA3I;O2 [O6 KE3R& 3S& 7NR +HCEA7C2J"IL7T"J&I.*B2"0*M2/JI3E	G7NB 3R
O3R7A*M>J2IGC+LCL3TWH2 WD3CSO+ECR7ISN3ON 3OWR"M&J3CGL"M&J3DGC2I3B7KSN+R>I3CWL+ACR3TWH2 3B3O/C2 ;KT7R2JNID	F*0>I3DN=7UKR7ESN2 	F3ESL"M&J3C[I.IB16IV/+SCR+ICN3FWI+LCD"1*M2I7J3S& 6IOUR*M2IWD3CSOE*M.IR0"0&12IF/7SWS3MSE6 E3T;E3S?I3N& 3SR A*M"I&06IB/7ROE7E[R3EF 
LCL3T;E7TSA3IWV2 	F7LOE*M>J2IWF3TC2 T7EJ /KCB2:" 3ASN7LKE"M&J3CGL"M&J3C[D"I602JNII	F"1602J*I+MCS7IVIS7R2JZI3EOTH*M7D[E2,RI3E	V+CCE6ISLA&12/WD3VOI3E: 3AWM"M&J*I>I7D[E3IWC* B7RSE3U;R+ECD+ICN7D[E"+616JSS+R3T.IB6"0&12I2/3OSA2 GH3N3D+ECR+ICN.6B0.0^-.0B0"M&J*I>
7SKT3T2 3OGC3T?I7NJ 7EWT3RWND*M2I7J3SVIR	R6/KE7RKO2 WR7TKUN*M2/^I+ECT3F3I3E: 3AWM"M&J3CGL"M&J3C[D.IB1"M&J3TSA" 	I.(Z7"0612JNID	F"0*M2IOD3A& 2I:(3AWM"M&J3C[D.IB1"M&J3TSA" 	I.(Z7"0622JNID	F"0*M2IOD3A& 2I:(3AWM"+612JNID	F"1606JRI+ACD+I"I.7B6"3*M2ISC/FBI"M&J3
GC" 	I2(GN+M/E"2*M2ISC/FFI"0*M2IGT3D& .I^(.6R0"M&J3C[D"I602JRI+CCA+I"I3N7A/EN+*M>J2I;E7TKE2 ;A3D> 3P;E2 T3E> 7UCT+UCT3F3IE*M2IGT3DRI+E/V*1>I/A7C7D[E3IWC* B+OCF3RKK"06:2JFIN	D.(B0"1676JRIA	D.(B5"0602JNID	F"0*M2I	C/FFI"0*M2I7J3S& 6IOUR*M2I;E7TKE"M&J3N7AE&I2
	F+LCE3N7A7EB 3O;I7TKE2M2J7NSGH&,"0&I*/6"2"Z 3IWL2 WL7NSGH*M2I7J3SVIR7R2JNIL7A6JRIA	D3L
N+T7H*1>I7GSE6 SS7ASR3I
N2 3B3O/C"M&J3DGC6ISS3B/L"M&J3TSA*I6(.2B4"M&J3DGC2I;L3GT"M&J3DGC" 	I2(	D3S3B+K>I3CWL3AR 7ICS7L	A2 3B3O/C2 ;KT7R6JRIA	D/MJ1*5>I7SSE2 ?W+R7D3B/L2 ;KT7R2JRIC	A7KSNR62"J&/7ION7ESR2 GS3M3P3I
N2 ;A7DN 7TKO3AWG6 KP7OKG+ACM7HKEE*M2I7J3P& 6IN(3WOTH60"J&/3AOC7EOS3I
N2 T3E" 3ASN7LKE6,^ 7RSI+EF!"!*M3H;A7DKL.,BI"M&J3C[I"I602J*I+MCS7INI7TSR6M^J3F;UK&,.4J0"0&I6/WF7NSC3I;O2 ?WR	D.4B020>=7UCTU7T"J&I"I&/.IB0*0B=*4B03ROE3OSR3S> /FF *2"8*1&02 ?W7ROD"M&J*I>I.IJI*0B=3FWI+LCD22J 3U[FE7R.JBI.0B0*I>I3B[U7FKE2 SA3DWRS7S6JSS3B/L.,BI
I>I3SGT3R	T+NCG3B?LC7K2J*IM	S7EKR2IV/3R?R7RJ 7EWTR7N2JNID	F"0*M2I7J3P& 2IGH3N3DR*M2/NI7LOO3EZ 3IWL2MRJ3K3C+O3S2I3CA*M2IGT3DRI+E/V"1*M2ISC/FBI"M&J3C[I.IB1"M&J7JOM" 	I7UKS"M&J3C?LS7E2J:I3AWM2M2J3E
N+T3H.IR2*0>I2> 7FJ 3E?C7ROD"M&J7JCM6IKER*M2I7J3P& .I^(.6V0*M>J6IKW3IWT* CA3F3U3LJ 3U[FE7R2J;E3D3BK&,3C[D"I606JRI+ACD+I"I7DOI3B/L2IJ/7UCM2 	D3S3P+ACY3B/L2 ?C7USNE7R6JRIA	D"(612JRI+CCA+I"I7DOI3B/L"M&J3TSA.IJ("0*M2IGT3DJI3L;KT7R2JRIC	A3B/L7NKT"M&J7JOM2IGH3N
DR*M2I3CA*M2IGT+D"I"2606JRIA	D3SKTL7K2JRIC	A3SKTL	K6/WB+MCP3W	R+TCE3B/L"M&J3TSA.IGM"2652JRIC	A7KSNR626JRIA	D3L
NT7H6JRIA	D.(B2"M&J3DGC2I;L3GT"M&J3TSA2I;L3GT"M&J3SGP"M&J7JCM" 	I6(
S3TC*0>I+GCO3BOA7KR 7ON 3WOTH606JE+I3T2I3CA*M2I7J3PRI3K3CO7S"J&I3P
A/EJ *M>J*I**********2*& 3NWS+RCT3P
A3I;IG*M2/NI3HOE7KR 7ON +ECE+ICF3TWH2 	R7GSH6 
S3IOT3H& 7SN E7T"J&/+ACS3W3E3LF 3SN 3RGE3T;I3GN 3OWD2 ?W+RCD7FKO6 OEF*M7SSW/CCH2,NI+LCA3C3L"M&J3TSA.IB(.3B0"M&J3DGC6IWFN	K2/WS7TN 3POE3I3A6 WF7NSC3I;O2 ?W+RCD+TCO7FOA7TN 7ACML7E"J&I2IF/+NCD7LKA+GCE3CGH3ROA7TKE2 ?MD7E2JGW/ICT2,2I3ION*I>I7TKU3N> 3N2 3ION2 ?
D7E6JNI/NWS*I>I7TKE3M;I3AWT"?*M2I+LM	P..N+2I:/O*M2ISPP&I2/WYS*M2I7J3P& 2IV(7XSI"M&J7SON"0*M2I+LM	P..F-2I&/7SN +NCS60N /E?T"M&J7R
S*I>I3RGE7DJ 3IG7TN 7WSI3CWH3S& 3N?T2 T3EF C*M2IOLO	M2IN/7OCM3L7E7ESN6 
S3IOT7HOE*M>J2IWS3TV +SCF7FKO2 GF+SCT3S7A3PWL2 ?M+DCE3ASN2 GL3RWG2 C3AGR3CWTR7S2J2I3SGT2IGRT	E6/SS3OWR2 GRT7E2J2I3ASD6IWFN7K2JVIS	F6IN/+ECT3SWP3CGI3LZ 3UON3T?I7NJ 3E	G3SWTR*M2ISPP&I2/?G2 GB+CCK+TCO286-3OWD*M>J6ISS7ASR2 3C3O/C2 ;I2 ?M3T?IN*M2I3C3AN L7L6JRI
	D.(B4"0&02/3C7EKA2 C3A;N+ECL62B 3O;I7TKES*M2IODA& /LB12IN/3LGE3R2 3ION2 WR7GOI7TKES*M2IODA& L672JRI+CCA.IGL"1*M2IODA& /LJ1"M&J3DGC2I;KT	R2/3C7EKA2 ?P7ISN2 ?C7USNE7R2JNI7LKL*I>I3CWL+ACR3C?L+CCK3C;O3T?RL*M2I3CE	N6IN/7TCO2 T3EN 3LOO7K^ 3IT2 3C7EKA+ECD3EGN3B
L"M&J3TSA2IGRT	E2/SA7DR +HCE7RSAE*M2I3CA	B2IN/+LCK3B[U3
GRT7E2JNIL7A6JRIA	D.(F0"0&0"M&J3C3LR&I2/WG7NKE3AWT* CA3CWL+ACR7CWO3NWTR*M2I3CS	A2IN/3LGE3RN 3LOO7KN 7TSAU7S2JNIL7A6JRIA	D.(N0"0602JNI3L;E*I>I3EGN3BWL2 ;I7TKE7USP3S> 3N> 7VKE3F?L3WF +NCD3B[U6 KO"M2J2I3CS7A2JNIL7A6JRIA	D.(F3"0&0"M&J3C3LR&I6/SS7ASR2 3C3O/C6 
A. B17K+H2;6 3OWD" 612J3C3KOTK&,3CGL"M&J3TSA.IN("7672J2I3ION*I>I3L;I3C6 3OWD"M&J7DOI"0&I2/	D3S3P+ACY3UWP7RB 3O;IT*M2IOLL7R2JRI/ICS*I>I7DOI3PGL3Y6 3ISD+LCE3P	ON7T2J2I3ASD6ICLN7T2JRI/ICS*I>I7DOI3PGL3Y2 3OWW7RB 3O;IT*M2ISPP*M2LNI3L/S*I>I3S	K3P> 3NN 3LOO3KZ 3

A"M&J7JCM2I3C3KOT+K>I+GCO3BOAK*M2I3CS	A2IN/3LGE3RN 3LOO7KN 7TSAU7S2JNIL7A2J2I3ION"M&J3S7A"1&I6/KT7AON7FKE6 WD7M	M"M&J3S7A"2&I6/KT7AON7FKE2 GS+MB1+TCOA7C2JRI/ICS*I>I7DOI3PN 3H;A3N3E" 612J2I3SGT2I?V+L>I3S?T+RCE3V3O"M&J3S7A"3&I6/KT7AON7FKE2 GS+MB2+TCOA7C2JRI
IKS*I>I7DOI3PN 3H;A" 622J2I3SGT2I3FO	W6/SS3OWR2 3FO7W6JNI3ASM*I>I3TGR3N[S+ECR3S7A63R 3OF C*M2I	DS&32IR/7ICS2 ;A3D& +NCC3CGH3NWN/LJ "M&J7LSS7ABIT	P6/SS3OWR6 KT7AON6 WP3L?M7NKA7YB 7ROE7SKUE*M2I	DS&12IR/7ICS7L	A2 ;A3D& +NCC3CGH3NWN/LF "M&J7SON"4&I2/KA7OSR2 ;
7DN +ECT7N
E2 3C3O/C"?*M2I+LM	P..N+"M&J7PCD*I>I7YOE2 WS3TN 3LOO3KF 3G	AN*M2I7J7P^I7ASI"0*M2I;SS&12I:/+OB;3S7A3PWL* B&3S?T/R?E"M&J3L7J+P:I"+636JBID	P2I:/3O^;+ECT7N
E2 3C3O/C2 	TC7K2J*IM	P3C/L3T/C*M>J3S?T3R
A7EJ 7OSU3IWN"M&J7PCD*I>I7YOE"!*M+D3F2ISC/FJI*0>I7DSA3AZ 3I3E/DJ 2 ;A/DN 2 ?F7RN 7TKO3AWG"M&J3TSA2I?VL*M2IOD3A& 2I;KT7R2J&IS	Z7KSNR*M2IGT3DZI7L
O"M&J3DGC" 	I7KSNR*M6IOI3Z.I7NKT"M&J3TSA6ISPP*M2IOD3A& 2I;KT7R2J&IS	Z7KSNR*M6IOI3Z.I7NKT*2>I.2V52 ?W7ROD" 6?6JNIK	P2I:/O*M2I7J3PJI/LCK6I&/E7S2JWRT&,3C[D"I606JRIA	D.(B6*0>I3B
E+ICN3CGH3ROA7TKE2 	D3S3PA7Y2JRIC	A"1*M2IGT3DRI3IKSL7K2JFIN	D.(B0"7606JJIT7R6JRIA	D.(^7"7*M2I7J3SNI7HKA"M&J3TSA2I	D3S3BK*M2I;A+D"I.0B0"7*M2IGRL*M2IGT+D"I.7^7"M&J7JOM2ICA7R2J*IM	P3C/L3T/C2I^/7OR 3O: 7ESX2 	TC7K2JC+A3R"I&02IR/7ICS7L	A2 3B3K. +NCT3CGH3ROA7TK
S*M2I	LN7C2J2I3SGT.IF1"M&J3LSA*2"I.2B0"M&J3DOS"M&J3DOS"M&J7PCD"M&J3CGL"M&J7JCM" 	I3CGHR*M3B/L"0&,7I+S2I;KT	R2/C3E/C2 ?F/R" 3K> 7VKE3F?LW*M2I/SP*M2I7J3P& 2IV(3NKDL	K6/KW3IWT2 .8"M&J3TSA.IGM"2652JRIC	A7KSNR&22/WR7SSE2 ?W+R7D3B/L2 ;KT7R2J*IM	P7RSE2M.J7NKT.,B
*I>I3S?T3R
A3EF 7DKD7EOS2MRJ3IKS+L3K"I&02IR/7ICS7L	A2 3B3O/C2 ?C7USNE7R*J*I.1B0*0>I3C;O3SGT7NOT2 ?F3R: 3UWM3ROI+ACL7DOI3PGLY*M.IF4"366.JNI.6F4"M&J.2B1"1*M.IF0"767.JRI.5N2"M&J.2V1"1*M.IF4"262.JJI.6F5"M&J.2F4"4*M.IR0"767.JVI.1J7"M&J.0V6"1*M.IV1"066.JRI.2V2"M&J.4R4"3*M
IB6"560.JVI.1Z2"M&J.2V6"1*M.IF5"262.JNI.6F5&M*J"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