File DEF2.PA (PAL assembler source file)

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

2/2 3IWN6 CS3ESE* B&3CGH3NWN/LJ 2 WD3FOE+TCS* B * B * B * B * B *2643J3U.-"7"M6J"J*M"M6J6JRI3A/S2=2I3IWNS7P2JNI/U7R2IWD3FZ2L7D2J&I7N
IT&="0*M2IWV/R7S"I61"J*M2IGT/SKK2=NI3HR2E7F2JNI/UKR2=RI/EKF3FSL"M&J3I	N/WKT.=BI"M&J7VKE/S62"I62"J*M2IGT/SOK2=NI7HJ2E7S2JNI/UOR2=RI/EKF3FSL"M&J3I	N/WOT.=BI"M&J7VKE/S63"I61"J*M"M6J"J*M2I	F3ESL2 WD3FZ2+LWD"160*J*I3D[E22?LC*M"L6/*JV/R	X/ACD21F 3N3A+OCG+TCO3D
I3IGT3LN 7O[N7ESR+ECR3C7O3M;AD7S"J6/"J6/2J&I3FSNE	F3E3P7TOE/T2I2MFJ3D[S.=V6"3&12//S+ICP+OCN3AR/2 ?D+NCE3FGLG*M7AKD/BZ=.5J36IJ/3ESA* ?A3DJ 3U[FE7R2JSA/C7V.6N5*4>I3C;O7VKE3TF 3N3A+OCG7ICNU7T2JSA/S7C.6N5*5>I7SSE6 WM3L	T3PWL7XKE2 C3A;N+ECL3ASN2 GGI7N2JSA/R7C.
N5*6>I3RGE3DF */CD3B[U7FKE2,N 3LGE3RZ 3L
A* B&3SGTR7T"J&I2/N 7O[N7EOR3I;O2MFJ7DKS.=V6"3&72/WS3LOE3TN 3H;A3N3E2 ;A3D^ 3A;I2 ;A7DJ 3ESA* ?AD*M*I>I6 WB3FWF+RB,3TWH7NN 7TKA3TF 7NSO7HKE2 ?C3NWV3R	SO7N.J:I"M6J2J&I3FWD3FVI7PSL7ESS"I&<2/?F7RR 7ESS3I
N6 SA6 CEL6.2JSA/S7F2I/SP*M7AKDB&=3C3L2 3CA*M3AODV&=3C3L2 3CA*M7AODC&=3C3L2 3CA*M7AKDC&=3C3L2 3CA*M7AODR&=3C3L2 3CA&I">*M"/*M"/*M"L6/"J6/*JV/3RNI7OCM3UWT2 T7EN 3TOA7KKE2 	T3M;I3GF 3DGV3NWC*M>J*M>J6%
T2IWM7AWS+RCE3TWH6 WC3RWR+NCT3L;I7EN 3PWE3DF +NCD3C7O7PSUE*M6/RI+HCE7RGE7UKI+ECD3SGT3CWK7RZ 7AWL7ER 3I	M+NCG7A[D3AON3EZ O7R"J&/3D3E3A	Y+NCG3TWH6 WT+RCN+OCN+OCF3TWH2 ;I7D[I7IWD+ACL7GSA+E;S*M>J2IT3ER 3EGL3Y& 3SN 7OCM3UWT3D& 3N6 3O	T+OCN3P3U+SCE3U	NT7S"J&/3U
S+NCG3TWH6 SS3A/C+ECR3T7I3I
N2 SA3V;A+CCE3TKA+L;E2 & 7FR H7E"J&/3EWX3R	C7SKE6 OI2 ;O2,F +LCL7GSA3EF 3DGV3NWC3SF +RCE7SSE*M>J2I?T2 WZ+R;O*M>J*M>J6MNJ7TKAT&,7DKB/IJ5*I>I+ICS3TWH2 GM+SCT3EWX3R	C7SKE2 ;O" 6?2JFI+NCD.(B0*4&0"M&J3SGN2 3CA*M2I7J+P: "+&32I:/+OB,+GCO+O;N"M&J3CKL2 7CA&I2/WY+S
,7SSE6 CU2 ?F7R* 3E?R2 GG+TCE3D3E+ACY3ASN"M&J7JCM2 	L/NGE"M&J*I>I7SSE6 CU2 ?T2 WG7TR +HCE7CKU3R;E3T2 3IWN"M&J*I>I6 CS3ESE".*M2I?IF*M2ISAS	C6IN/7TKA3TF 3NF */CD3C;O7VKE3S?I3N> 3F2 3IWN"M&J*I>I6 CS3ESE".*M2I3CB*M2ISAS	F6I^/7ASI2 ?F7RR +HCE3AR/2 ?D+NCE3FGLG6
2J*I+MCP..F-"M&J7AKDB&I2/WR+ACD3TWH* ?A3DJ 3U[F+ECR3ASN2 OS3AWL2 TE*M2I?IN*M6ISRR&I*/?A7DZ 7AWL3E& 3N?T2 ;A2 SA3DWR+SCS7WSI3H;I"M&J7RKT*I>I3TWH2 	L+NCE3SWP+ECD3TKA+L;E"M&J3ASN. N("76)6JRI+ACD6(OL3PKTL&)2/?F+RCM7AR 3A3B3EF 7DKD7EOS6 KF+OCM3TWH* ?AD*M2IOD3A
 3IWNA&I2/GV3LWU".*M2IGT3D& 2 	L3NGE2I^/+ECT3TWH2 GG+TCE3V3A+VCE3T7I3I
N2 SA3V;AC7E6JRI+ACD3L;I/EGZ2IZ/3R7O2 T7ER 3A3B3EF +NCD3ASD2 ;I2 	T3M;IG*M"I&I2/> 7FOF+E;T2M2J3IWN*1B,2 OD3A^ 3AWTD7Y2JNIA7L6JNI7UCSN	D2I^/7OR 7ON 3LWE+P^ 3T3I2 WN3EWDD*M2I7J7PN 7TKAT*M2M2J3IWN+AB," &02I2/3OGC7LN 7TKO3AWG2M2J3IWN+Z21.IV-"0&I2/T+ICS+ICS3TW
2 GG+TCE3T7I3I
N2 [O3FWST6."J&I6IR/7HOI6 WN3MWB3R6 7USS2 WB6 KG7ESA+ECR3TGHN*M"I&I2/T3E2 3A
R7ESS2 	T3M;I3GF 3DGV3NWC*.B 7NSOE6:"J&I2IN/3H;A3G;I7GR 7HOI2 ?C7NSS7ASN2 WR3Q	U7ROE"M&J*I>I7RSE3I	M+NCG3TWH2 GM3C	H+NCE7DOI3T;A7COE".*M"L6/"J6/*JV/7RNI3TOA7KKE2 GG+TCE3T7I3I
N2 SA3V;A+CCE3TKAL7E"J6/*JV/T	W3T	H7SR 3A3B3E& 3SN 7OON7TWR3CWT7D^ 3H;E2 T3EZ 3I	N3S	HN7G"J&/3MOA3H;I3E& 3SR 3YGM3NOI3A3L7YR 3IWM+DB,3ASN2 ?C3NGT7ION2 TE*M2/:I3UKM+ECR+OCF7MSO3I;O6 WP3LWS3SF 2 GG+TCE7TKU3N> 3N6 7USS2 WB*M>J2ISA3V;A3CSE2 ?F3RV 3AC2 ;U+ICT+
CF3MOA3H;I7EN 3PWE+DB.2 TE*M2/6I3AC3IWN2 	L+NCE3SWP+ECD+ICS3SGC3LSE2 ;I+TCO3TWH2 GR3NWG2 [O*M>J*IB0+TCO*3B77OSC+A3L2 ;A7DV 3SSE6 OA2 ;A2 ;I7DE2 ?T2 WG7TR +HCE*M>J2IGG+TCE7A[D3AON3EZ 3R7O2 T+ICS3TKA+L;E*M>J*M>J*M>J2IOS3AWLD&I3T7I3I
N2IZI3I7L6 CS3ESE*M>J*I?A7DZ 7AWL3EFI3DGV3NWC2I&I3N6 2/	MN6."J6/6JOL3PKTL&,"0&I"/&0"I60.JJI*I>I"1*M"I&4.IJ/.IJI"0*M"I&6.IN/.IJI"5*M.IB1*I>I"4*M.IJ1*I>I"5*M.IR1*I>I"6*M.IZ1*I>I"7*M.IB2*I>I"1&0.IB7"M&J"2&2.IF/"1*M.IR2*I>I"1&2.IV8"M&J"2&6.IF/"3*M.IB3*I>I"164
JNI"2&I./V1.IFI"160.JNI"4&I./Z1"M&J"3&6.IF/"7*M.IB4*I>I"2&0.IN1"0*M.IJ4*I>I"261.JRI"4&I./J2"M&J"4&6.IJ/"3*M.I^4*I>I"264.JRI"7&I./V2"M&J"4&7.IJ/"6*M.I^4*I>I"267.JRI"7&I./B3"M&J"4&7.IN/"1*M.I^4*I>I"362.JRI"7&I./N3"M&J"4&7.IN/"4*M.I^4*I>I"365.JRI"7&I./Z3"M&J
4&7.IN/"7*M"/*M"L6/"J6/*JV/R	P3P?R7COE7SN 3HWE3TR 3EWF+CCT7DSA3AZ +OCR3CGH3NWN/LJ *M>J*M>J*M>J6%
T2IT+ICS7RWO3T;I3E& 3SN 3A3L+ECD6 OA*M>J2IGE+CCH3SWH+ECT7BWO7NKD+Y" 7YSE2 ?T2 WB2 C7OCP+E	D6 KC7OOS+ECS3TWH" *M2/&I7NCS7ESC3I;O2 ?P7ISN2 ?F3RN 3H;A3N3E* :22 & 3FN 3H;A3N3E" 62"J&/+ICS3EGN3BWL+DB,3TWH2 WD3FOE3TR 3AGT2 ?F7RR 7HOI2 S7ESE2 ;AD*M6/RI+HCE3F	A7L
U3EZ 3L
A6 KF+OCM3S3E3FN 3HOE3KF +RCE6"KO2"SE" *M2/&I3N?T2 T3ER 3EWF+CCT3M7E7O	R2 GT3BWL6 SA2 T3EN 3H;A3N3E" 62"J&/7POO3I	T+O;N6 R 7HOI2 GD+TCA+ICS7LSA+ECR3UWS3DJ +YJ 3P?R7DSC""*M6/RI3OR 3EWT3R	M+NCE3TWH6 WQ3A	L+TCY+OCF3T	H7SN 3HWET6."J6/6JSS7ASR*2B,2 3CB*M2IGCL*
6IWS3S;PD&I2/?G2 ?T2 3S7ECE6 R	+ICL3NWE3DSE".*M"M&J3CKL"M&J3TSA2 C22?L+C>I7FKO3MF 7DKD7EOS2 ?P7ISN+ECR7ISN3O6 3E?MR7Y6JRI+ACD3M7E7PKT*IB/3TKA+LCE3ASN2 GS+VCE3TWH6 WC3RWRN7T2JFI+NCD.(N0*7&7*IB/3LOO3A	T+OCN+OCF3TWH2 C3A;N+ECL3P	O3NWTR*M2IGT+D" 3M7E3T3B*)>I2
?F7RR +HCE7ROE7OWL3T?I7NJ 7OSU3IWN".*M2IOD3AN 7HB2T7R"J*M2IKD/RWI"0&I6/OI2 GM+SCT+ICN3TWH6 R"7ESS2"6 3OWD" 6?2JFI+NCD.(B0*4&0"M&J3SGZ2 3CA*M2I7J3PR /EKF*1>I+N3O2 ?G2 ;O".*M2IKD/RWI"2&I6/OI2 T+ICS3CGH3NWN3LR 3IGS3BWL/D> "M&J3ASN. B(.0J0")*M2I;S3AN L7A2J*I+
CP3D[E"2&12/?N2,^ 3O> N6.2JRI+CCA/CKH7FKL6I&/+E3S2 3C7EKA2 T3EN 3H;A3N3E2 	D3SKA+LCE3FGLG*M2I7J7PN 7TKAT&22/;A3DV 7XSI".*M"L6/2JWD/FF26,RI+ACD3IN 7HB2T	R2/WG7TR +HCE7DSA3AN 7UKR7ESN+LCY+ICN3TWH"M&J3M3Q*I>I3M7E7O	R2 GT3BWL2 ;A+DJ +OKR2 ;I2 T3ER 3EWFC7T2JRI
B	R"5&02IF/+NCD3F	A7LKU3ER 3AGT2 ?F7RR 7HOI2 C3A;N+E;L"M&J3ASN. B(.0J1")*M2IKD/CWI"0&I2/3C7EKA6 WO3RR +RB87BSI* B&3S3P3IWC2 	BT6."J*M6IGMA*M6IGML*M2IGT7DN 7HSUD	Y6/OI2 T3E2 3AWS7RN 7HSU7TKE6 CO+ECN"?*M2I;S3AN L7A2J*I+MCP..N+*I>I7YOE2,^ 3O> N6.2JNIL	B2/OA.
B0*2>I+N3O2 ?F3RWC* CA3CGH3NWN/LJ 2 WD3FOET6.2J6IQ7L6JRI+ACD/CKH7FKL*I"/3F	A7LKU3EZ 3L
A")*M2I3C7LJ A7L2J6IQ7A2JRI+CCA3IN 7HB2T	R2/WR7TKU3NR 3AGT2 ?T2 T3E6 3E?M+RCY3TKA+L;E"M6J2JFIC	L2I2/7E[A7ER +HCE3CGH3NWN/LJ 2 GD+TCA3A?R3USN"M&J3DGC6 CS3L3F+G>I2 ?F+RJ 7MOI+CJ1".*M2I7J7PN 7TKAT62*J>L*M>J*M>J6%CR2IC3A;N+ECL62J 3E?S7LSU3I;O2 ?R3U	TN7E"J6/"J
/*JV/T	W3C7O3E" 3EWR2 F 3FWT7RR +HCE7ROE7OWL3T?IN*M2/FI3RGE2 ?F3RN 3H;A3N3E* B27HOA2 GP3SWS7DR +HCE7ION3POE3T?IN*M6/BI3O;I+TB.2 T7EJ 3E?S7LSU3I;O6 KA+ECA+ICS7AN 3M3A3L2 3E
NT7H"J&/+OCF3P?R3DOU3TZ 3O3L3O	W+NCG3TWH2 GL+SCT3SWH+ECT7BWO3NGD+RCY7FKO*M>J2IC3A;N+ECL*2B.2 WD3FOE+TCS7ACP7EKA3I
N2 ;I2 T7EJ 3E?S7LSU3I;O*M>J6IKA+ECA7BSE3WWE7NR +WCO3SWH7EOT2 	W+LCL7CWA+SCE7BSO7HN 3HWET7S"J&/+TCO+BCE3R+E7ESC+E;D2 F +NCY3D[E7ESC2 GD+TCA3W	H+CCH7HOA2 ?C+MCEI7N"J&/3S;I+CCE2"WD3FC*2B"7WOA2 GL+SCT3C3A3LSE6 OI2 >"3RV"7D^ 3IT*M>J2IT3ER 3EWF+CCT7DSA3A& 7NR 
HCE3D[E7ESC2 WM7MKO7YR 3A3B3EZ O7R"J&/3TWH2 S7ESE2 W3IC6 WJ+SCT7POA3SSE2 C3A;N+ECL"26."J6/"J6/6JSS7ASR"3&,3CKL"M&J3C3A"M&J7SOU3PSN*I>I+GCO+TCO3SWL+ECP2		T3L: 3ESE+E;D"M&J"M&J7DKB/IB5*I>I+ICS7MOA3T& +NJ 7TOE+TB"3MSO/E> "M&J3ASN. B(.0B4")*M6I+S3AN L7A2J*I+M
P7ROE"2&12/?N2,^ 3O> N6.2JRI3B	R"5&26I&/+E3S6 OI2 T+ICS3CGH3NWN3LR 3IGS3BWL/D> "M&J3ASN. B(.0J0")*M6I+S3AN L7A2J*I+MCP3SGT/ROT6I&/+E3S6 E+I;T"M6J2JWR/SF26,RI+ACD7SWH7T	D2I&/7SR +HCE7LOA+ECR7SWH3TWT3R> 3P;E" 6?6JNI+ZCA3CGL"M&J7JCM6 SS7ASR*3>I+N3O6 WJ+SCT3E
XT6."J*M2IGT3D& 2 C62SP+R>I7GSE2 T7EB 7R[E7IWO7SN 3HWE3TR 3AGT".6I2J6IQ	L"I*M2IKD/RWI"0&I2/WR+ACD3TWH2 WD3FOE3TR 3AGT2 ;AD*M2I;A+D" .0B0"26)2J6IQ	A*IJ/+OKR2 T+ECM3T
O3ETE7R2JRI+CCA3IN 7HB2T	R6/WP3TR 3AGT2 GB+CCK+ICN3TWH2 WM7MKO7YR 3A3BE6.2J*I+MCP3SGT/ROT"M6J"J*M/CKH7PKT2,6I7ESMB	L2I6/3E?M+RCY3TKA+LCE3ASD7ROE3SZ +OCR3T	HS*M"I&I2/N 3H;A3N3E2,2 7ESF6 	B2 WD3FC"26."J6L6JBI3AWG"M6J2J:I7OWP3NC*I>I3FWI+LCD21N 3O7M+OCN3F3O7L
OS*M2I3X7ISS" 61&J*L

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