File SAMP3B.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*164"166"J&/3CGH3NWN/LF 27& 7SV 3SSE6 OA* CA3D7UM7Y"J&/+ACD*1B43W3I3LJ 3ER 7ICS7L	A+ECD+OCN3CGH3NWN/LF 2 [O2 T7ER V*M2/FI/DF .5F-66^ 3I3L2 WB2 	D3S3P3AWY3D> 3NN 3H;A3N3E" 62"J&/7UKS6 OI6 OU+ECD+TCO3C3A7L
 +HCE3C7O3M;A3DR 3E?C7DKE2 ?T2 ;I7PSU6 WO7TWPT6 "J&/2I	F+LCE3N7AE*M2/RI3AGT2 	W+LCL+BCE3C3O3LOE3TSE2 ?T2 	F+LCL3FWI/LKD*-B33ASN2 T+ECN3W3IL*M"/&I+BCE3W	R3TWTN*M6/NI+NCS20> +FCF3W	A3TZ +OCR7RSA3E& 7NJ +S
WS*M6/NI+NCS20> 7NJ 3ESA2 GR+T3E2 GS3M3P3EF +NCD7DOI3PGLY*M6/NI+NCS21> 3NJ 3E	G7NN 7TKO3AWG2 [O2 GDT7A"J&/7SON* B5+OCN3E	X3TF +NCD3C?L+SCE3F3IE*M2/VI3AC2 	T+MCE7OWB3U[F+ECR+ICS3W	R3TWT3NN 3HOE+KCS7SON* 60"2*M2I6/3OWD2 C3A
N3EF +NCD3L;I3C& 7NSS3ROU3T?IN7S6JBI/D7P"I622J2I3ION.=ZI.1F42MZJ3I7XR	I3L7JP&=.6B2"0*M7FI3M	R6IOL/T7A.IB4"0602J	F7XKM3I2I/AKD.=JI.2B02I2/3ASD2 ?F3R> 3TWH7RR 3H;A2 GP+GCE60J 3EWF3RONE7S2J	F7XKM3I2I3ASD.=JI.0B0"M&J3L3CR&="1612J2I3C7O.=BI.0^1"M&J3S7A"1&=.1R0
M&J3S7A"2&=.1V0"M&J3S7A"3&=.1Z0"M&J3S7AD&=.1^0"M&J3E[S.=RI2IZ/7ASS2 GS3M3P3E6 3OWD2 	W+LCL+BCE3UWSD*M6IORW&=.5Z1"M&J7DOI"0&=.1^42IR/7ICS2 C3A;N+ECL"1*M2I	D/S61.IZ1*7>I7ASU3O& +NCC3CGH3NWN/LF "M&J7DOI"2&=.1B52IN/3H;A3N3E" 622JRI/IOS.=FI"7&06/WA+TCO3ION2 C3
;N+ECL"2*M6IODC&=.1^7*1>I3CGH3ROA7TKE2 	D+SCP3CGH3NWN/LJ 6 WA+TCO3ION"M&J7SON"0&=.4B4"M&J7SON"4&=.4R4"M&J7SON"1&=.4F62I&/3N	D3ROE7TN 7KCI2 ;O"M&J7SON"5&=.4V4*M>J2I3C3O/C6 WF7NSC3I;OS*M2I3C/A7B.IF6"3632JNI3L;E.=ZI.1R3"M&J3C3LR&=.6N1"2*M2I3C/S7A.IF6"3652JNI
L/S.=ZI.1F3*M>J7UKS2 GC+LCL3F;U3C	T7OON"M&J7FSE/C7H"I612JVI3NWTR&="3*M2I3C3OWS.=RI"M&J3DOE3OWD.=VI"M&J.IB**7>I3O	R3G;I6 SA. B0.0^0*M>J2I	L+NCC7ACL+HCA3ASN2 WB+TCA3R
E7ISS7EOR2M2J"7&,"0*M/LB1.,BI2M2J*121"I60.JGL"2&,"0*M*I*I"2606JOUR&,.1^7"0602JGN+M3E.I.0.0B;";606JWF+N3K"I&02IN/3LOO3KZ 3UON3T?I7NZ 3A	R3A3BE*M7RSAE&,"0&I2/3C3O/C2 GR+TCE7VKA3IKAL7E6JCL+N3T.IN-"7&72I2/3ION2 ?C7NSS7ASN2 ?F3R2 +OCW3P	O+NCT+ICN7DOI3PGLY*M3F?
W&,"0&I2/3F+OCW3S7A3PWL6 SS3OGRG7E2J?VL&,"0&I2/?V3L7U7EN 7ACM+LCE3S?T3R
AE*M7PCT.,BI*I>I3PWR7SWS+RCE3S7A3PWL6 SS3OGRG7E2J3B7KSNR&,"0*M*I*I"4606JKER&,"0&I6/KE7RKO2 GHL7T2JNIL7A6JRIA	D7EKR2I2/3OGC3T?I3N> 3FV +RCR+ICS+ICN3TWH2 OA"M&J7HSL2MZJ3ESL2,NIL	A6/WB+MCP7DSA3AZ 3I3E3DN 3H;A+GCE7FKO6 WB3FWF7RN 7TKO3AWG"M&J3TSA" 	I2([D"M&J3T
A.IF("0*M2IOD3A& 2IR(F*M2I7J3P& 6IJ(/EGT"M&J.IJ*"060"J&/3B
E+ICN3P?R3GGRM*M2/NI3A3L2 T3ER 3E?C7DKE2 ;I+TCO7CKOE*M2I3CA*M2IOD3AJI3L;KT	R2/3C7EKA2 T3EJ 3LOO3K. 7NKT"M&J3C[D"I&0./7D7CKU3R;E3TZ 3I3ED*M2I	C/FFI*0>I7UKS2 ;I2 	F3ESL" 612J*I+MCS7IVIS7R2JRI3E?CD7E.JBI.4F0*I>I7AOS3UWM3DV 3XWT3N	S+OCN+ICSD7A.JBI*I>I3PWR7SKE
VCE3A3L2 WT3NGT7T[I3EZ 3IWLS*M2/ZI3EOT7HR +HCE3RKK*0B:3H;A3DWLR*M2I3CA*M2ISC/FBI"M&J3C[I.IB1"M&J7JOM" 	I7UKS"M&J7FSEC7H2JWDV&,7D[E3IWC6 JI/KCB2IR/3E	V+CCE3N7AE*M"I&I2/WD3VOI+EN 2 WR7TKU3NSE2 ;I2 WD/VF+6MNJ7TSR.,ZI.0F0*I>I3LGO3D" 3ASN7LKE2 ;I. B6*060.7B0"0
M"I&I6/SS+RCT3LOO3A	T+OCN7RSE3U;RE7D2J*IM	S7EKR2IV/3R?R7RJ 7EWTR7N"J&/7GSE2 	F+LCE3N7AE*M2I3CA*M2ISC/FFI"0*M2IGT3D& .I^(.6F0"M&J3C[D"I602JRI+CCA+I"I3N7AE*M2ISC/FFI"0*M2IGT3D& .I^(.6J0"M&J3C[D"I602JRI+CCA+I"I3N7A/EF+"M&J3C[D.IB1"M&J3TSA" 	I.(Z7"0632JNID	F"
*M2IOD3A& 2I:(3AWM"+622JNID	F"1606JRI+ACD+I"I.7B6"4*M2ISC/FBI"M&J3DGC" 	I2(GN+M/E"3*M2/VI3NWT3RF +NCD3OWP7NR +HCE7OSU7PSU2 	FL7E6JRIA	D7D[E"+&12/OA2=WD3VOI+EN 2 [O2 /R/B*0"M&J3C[D"I602JNII	F"1602J*I+MCS7IVIS7R2JVI3NWTR*M2IGNM	E2IZ/3IWL2 GN+MCE3P	O3NWTR*M3

N+T3H"I&0*IJ/*-B"3F3I3E2 3E
NT7H2J*IM	S7EKR"M&J3CGL"M&J3TSA2I;L3GT"-&12/WG7TN 7TKA3T;I3GJ 3LOOK*M2IOD7ANI3T3BK*M2IGT3D2I7NSGH*M2I7SA*M2I7CA*M2IOD3A2I7NSGH*M2IOD3A& 2IR(3IKSL	K2/3C+ECA7DOI3PGL3YJ 3LOO3K. 7NKT*M>J2I;I7SKE7TN 7ACM3L;I3GF +NCD3S?T3R
A7EB 3R
O3R7A2 WHR7E2J*I+MCP+I"I7SSW/CCH*M>J2IOA7COE3S;I7GR +HCE3H;A3DWL+RB,3W	R+TGE"!6!2JGH3N3DR&,"0*M2I	C/FBI"M&J7JOM" 	I7SKTT*M7WWF+N3K.IB4"2&02IZ/3UON3T?I7N^ 3OSR.IB4.0607OSU7PSU"M&J*I>I.IBI.060. B42 WR7CKO+DCS+OCF.1"2.(B16)^ 3OSRS*M"I&I"/&I.2602 	F3ESL* B23B
U7FKE"M&J.0B0"0&I6/WB3FWF3RF 7DKD7EOS6MNJ3T3BK&,"0&I6/SS7ASR3I
N2 3B3O/C"M&J7JOM6IKE+R>I7EKR+OCR7RSE3U;R"M&J3C[D"I602J*I+MCP3I"I3ASNL7R"J&/3C?L+SCE3F3IE*M3DOK7LOO2,NIL7A6JRIA	D7D[E"+612JNID	F"0*M2I	C/FFI"0*M2I7J3S& 6IOUR*M2I3C3OWS"M&J3N7AE*M3L;E3GT.,BI*IN/2 [O2 WR7CKOD7S2J*IM	P7EKR"M&J7JCM" 	I.(Z7"065"J&/3W	R+TCE3AZ 
U3L6 WB3FWFR*M3ESN3B/L2,NID	F"0*M2IGT3D& 2IR(3IKSL	K6/WB+MCP7DOI3PGL3YJ +LCK7CWO3NWTR*M2IGT+D"I"1*M2IOD3A& 2IR(3IKSL7K6JRIA	D.(B4"M&J3TSA2I3B7KSNR*M2IOD3AJI3L;KT7R2J*IM	S3H;A7DKL"M&J3CGL"M&J3TSA.IJ("0*M2IGT7DNI3T3BK*M2IOD7ANI3T3B+K>I3B7U7P^ 7RSI3EJ L7K6JR
A	D.(B1"M&J3TSA2I[W3U/N"M&J3DGC2I[W3U/N2IJ/7UCM2 	F3ESL2 SA3DWR+SCS7FKO2 WS3C;O7D^ 7RSIE*M2I7J3S"I3ASNL	R2/WS3C;O7D^ 7RSIE*M2I3CA*M2IGT+D"I.-B1"M&J3TSA2I[W3U/N"M&J3DGC2I[W3U/N6IJ/3EWS7T^ 3F;UK*M2IGT+D"I"2606JRIA	D3SKTL7K2JRIC	A3SKTL	K6/WB+MCP3SGT3R	T+NCG3
/L2 ?F3R: 7ESX6 KW3IWT"M&J3TSA" 	I2([D"M&J3TSA*I6("1602JRI+CCA+I"ID7F6JRIA	D3L
NT7H6JRIA	D.(B4"M&J3SGP"M&J7JCM" 	I6(
S3TC*0>I+GCO3BOA7KR 7ON 3WOTH606JE+I3T2I3CA*M2IGT3DJI3L;KT7R2JRIC	A3L;E3GT"M&J7JCM2I/D3C?LS*M6IBI3AWG" 62"J&/************2 ;I7SKE7TB 3A	G3I
N*M>J2IC3E/C2 ?T2 WS3E& 7FR +HCE3R
I+HCT3S	W3TC6 OI2 WST*M2/FI7S^ 3E3L6 OA6 KC7ESA3I
N2 ?C+DCE7WKO3DZ +OCR3E[S6MNJ3WOT+H202I3C3AN L7L6JRIA	D.(N0"0602JRIC	A3F;U+K>I7SSE6 CS3E	C+ACL3F;U3C	T+OCN7WKO7DR 3OZ 7ASS2 GS3M3PE*M"I&I2/;A3D2 3A
R3EN 7HKA7ASC+ECR3MSOE*M3W	A+T202I	LN	C6IR/3U;R2 ;O2 	L+NCC3MSOE*M2I;SS&56IR/3E7R3IGN/T?E"M&J3L7J+P:I"+&32/?N"M&J7PCD*I>I7YOE"M&J7JCM" 	I6(EI7T6JNI/NCS"M&J3L7J+P:I"-&16/OI2 ;S/SB 2 WST6?6JJIS	W6IJ/3ESA2 	R7GSH6 
S3IOT7HOE2 ;I+TCO3TWH2 OA"M&J3L?CM&I2/?C3M3P3EWM+NCT3S	W3TCE7S"J&/7SSE6 OE3FZ +OCR7FOA7TN 7ACM+LCE3MSO3EF +NCD7LKA+GCE3CGH3ROA7TKES*M6IOLT	A7RSA+E>I3S?T+RCE7RSAE*M2IGLD	D3F;UK*M6IOEF&I2/WS7TN 3POE3I3A6 WF7NSC3I;O2 WR7GOI7TKE"M&J7PCD*I>I+GCO3BOA7KR /O" 2-?
D7E"J&/3SGT+RCT3C?L+CCK+ICN7MSO3I;O"M&J3CGL2 3CL*M2IGT+D"I.4B0*0>I3CWL+ACR3CGH3NWN/LJ 2 ?P7ISN7EOR"M&J3DGC2 2I"1&02/3C7EKA2 	L+NCC3R
E7ISS7EOR"M&J3DGC2 2I"7*M2IODA& /LF1"M&J3DGC2 2I"1622JRIC	A7KSN+R>I3CWL+ACR3P	O+NCT7CWO3NWTR*M2I3CL	R2IN/3LGE3RN 3LOO3KN 7OSN3R3O"M&J3CWLN&I6/SS+OCP3TWH2 3C3O/C2 	W+TCH3CWL3AWR3DV 3NKAL7E6JRIA	D7RSA+E>I3ASD2 T7EJ 3AWT"M&J3CGLB&I2/3C3KJ 7U?F7RSAE*M2I3CA*M2
GT+D"I.0B1"06I2JNI7LKL*I>I3G;E3EGR+TCE3AN 3LGE3RN 3O;U7TKE"M&J7COLA&I2/3C7EKA2 3C3O/C6 SS7AWTS*M2I3CA*M2IGT+D"I.0B3"0*M2I3CE	N2IV/3NKA+LCE7ISN7EWR7POT2 ;O6 [O3E[R7L
O2 ;A3DJ +UCFO7R"J&L7COLA*M2I3CA*M2IGT+D"I.3B1"06I2JNI7LKL*I>I3SGT+RCT3C?L+CCK+ACT21.0/H/Z2 ?M+DCE"1*M3C/L3T/C2,NIL7A6JRIA	D.(^3"7*M2I	LN	C2I2/3ION2 ?MD7E2JRI/ICS*I>I7DOI3PGL7YV 7PKE2 ?P7ISN"M&J3L3CR*M2I	DS&02IR/7ICS7L	A2 	M3D3D7EB 3O;IT*M2IGLD	D3L;PT*M2I
DS&02IR/7ICS7L	A2 ?L7WKE2 ?P7ISN"M&J7PCD"M2J2I3CS	K6IN/7KCI2 ;O2 3C3O/C2 3FA7G2J*IM	P3C/L3T/C2I^/3OJ 3A/C"M&J7COLA&I2/3C7EKA2 3C3O/C6 SS7AWTS*M2I3CA*M2I	LN7C6JNI/AGM*I>I3TGR3N[S+ECR3D7UM7Y6JNI/AKM*I>I3TGR3N[S+ECR3S7A61R 3OF C*M2I	DS&02IR/7ICS2 C3A;N+ECL"1
M6IOLT	A3F?L+W>I3S?T+RCE3F?LW*M2IGSM&36IR/3R;A3SWF7RN /AKM2 ?T2 OA"M&J7DOI"2&I2/	D+SCP3CGH/NJ "M&J7LSS7AZIO	L6/SS3OWR2 ?V3L7UE*M2IGSM	D6IR/3R;A3SWF7RN /AOM2 ?T2 OA"M&J7DOI"3&I2/	D+SCP3ASN2 ;I3CN 3H;A3N3E" 622J2I3SGT6ISP+P>I3S?T+RCE3TGR+NCS3P3U3M;O7A	R6 KP
EOS3UWR"M&J7DOI"1&I2/	D3S3P+ACY3ASN2 ;I3CN 3H;A3N3E" 616JNI/NSS*I>I3A?B+RCT3ASN2 WS3T: +ECW3C?L/C?K"M&J3L7J+P:I"+636JBID	P6I&/+ECS7SSE2 3C3O/C2 
A3A;I"M&J7JCM2IGW/ICT"M&J7SON"1&I2/?N6;N 7ACM+LCE6&N 7TKOE6?2J2I7JCM*I.."3*M2ISPP&I2/?N2;WG3T: +ECW3C?L+CCK3TOIK*M2I7J3PNI7LSKC7K6JN/7TKO3AWG2 ?R3U	TN7E6JBID	P6I&/+EGS2MRJF&,3C[D.IB22IR/3AGT2 	F3ESL* B23ASN* B37FKO6 SS3OGRG7E6JRIA	D3F?LW*M2IOD3A& 2I;KT7R2
&IS	Z7KSNR*M2I7J+P:I"+642JNID	F"0602J*IM	P3F3E+D>I+ICF3OWV3R3F+OCW+ICS7HKE7ER 3H;E6 WB+MCP+TCO7NE3TR 3AGT2 	F3ESL6MJJ/EGT2,NID	F"3606JRIA	D3V3O"M&J3DGC" 	I7KSNR*M6IOI3Z.I7NKT"M&J7SCK"M&J7JCM" 	I2(;E3D3B+K>I+ICF3OWV3R3F+OCW7HKE7E^ 7RSI7ER +HCE3B[U7FKES*M2I
T7DBIT7P2JRI+CCA3I.I7NKT"M&J7I+S2I;KT7R6JNIK7P2J*IM	S7EKR2I&/3FZ 3A3U+TCY3OWV3R3F+OCW7JCM2 ?T6 KER*M2ISC/FBI"M&J3TSA.IZ("0&02/WB3G;I2 C3AGR3CWT3RR 7ICS7L	A"M&J3DGC"I616JRIA	D7DOI3B/L"M&J3ASN.IB(.0B7"M&J7RKT"M&J3TSA.I^("7672J*IM	S3CGHR*M2IGT3DRI3IKSL7K2JFI
	D.(B0"0676JJIA7L6JRIA	D.(^7"7*M2I7J3SNI7HKA"M&J7JCM2I3C3KOT+K>I+GCO+TCO7NE7TR 3I/C2MNJ7HKA.,BI*I>I7DOI3PGL3YJ +LCK7KSN2 C3AGR3CWTR7S2J2I3ION"M&J7LSS/AFI"1*M2IGLD&2.(B2"0*M6IODC*M6IODC*M2ISPP*M2I3CA*M2I7J3P& 2ICA7R2J;K+T3R"I&06IN/7TKO3AWG2 SA3DWRS7S2J	D3S
BK&,"0&I2/	D3S3P+ACY3B?L+CCK7CWO3NWTR*M.IF*.0B02IN/7OON3T;A+TCS7FKO6 WN7MKE3IGC3LR 7ICS7L	A"M&J.4N1"6*M.IZ3"461.JJI.1F0"M&J.0^1"7*M.IV4"263.JJI.1F5"M&J.4J1"2*M.IZ2"561.JJI.4R1"M&J.0^4"7*M.IF5"762.JBI.6F5"M&J.1B5"6*M.IJ4"265.JRI.4N4"M&J.6V0"0*M.IF5"266.JJI
6F5"M&J.5J1"2*M.IZ3"561"JBZ"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