File DEF13.PA (PAL assembler source file)

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

2/N 3H;A3N3E* B1.&N 2 WD3FOE7TJ 7OSU3IWN+SB * B * B * B * B *2643J3U.-"7"M6J"J*M"M6J2JGT/S7K2IC21WDF*M7CKU2=RI/EGF3FSL2M&J7N
IT&=3EGN7BSW6MZJ7EOR.=FI"M6J2JGT/SKK2=NI7HJ1E7S6JWC/R622IWD3FZ1L7D2J;I7ISW"2&=3EGN7BSW6MZJ7EOR"2&="2*M6MRJ3A/S"3&=/COH3D[E2MNJ/UOR2=RI/EGF3FSL2M&J7N
I/T632I;E7A
BT*M7VKE/S63"I61"J*M7TOA/K642IC23WRS*M7CKU"4&=3D[E213FD*M3I	N/WST2=VI3NKAW7T2JWV/RSS.=JI"M6J"J*M"M&J3FWI+LCD3D[E213F/DF%"0*M2IR*/EGF3LOO"M2J"/*M"/*M6/J%7PBI3ROO7EOS2 S7ESE2 WD3FOE3TR 3AGT2 ?F3RN 3H;A3N3E" 61"J6/"J6/*JV/T	W3T	H7SJ 7OSU3IWN6 OI2 GC3LWL+DB A
S"J&/3EOA7HN 3HWE3TJ 3O;U7D	R6 &(+ECT+TCO+BCE3C?H3PWP+DB)3C?R3SWS7SR +HCE*M>J2I;I3SWP3C	T+OCN3P	O+NCT7FKO2 C3A;N+ECL*1B.2 [I2 C3A;N+ECL"1*M2/&I3SV 3NKA3LSE6,R +HCE3D[E7ESC2 GD+TCA7FKO2 T+ICS3SWH+ECT3ASN*M>J2IT3EZ 3A3I3UWR2 3F+ACG3F?R7MN 3E[L2 C3E/C6 KA+EJ
+OKR+ECD*M>J2I;I+TCO3TWH2 WD3FOE3T6 3E?M+RCY3TKA+LCE+ACT3TWH2 C3A;N+ECL"1*M6/BI3O	S3T?I+NB.2 T+ICS7DSA3A& 3S2 3AWT7RV 3SSE6 	B6 B"3RSO+CKT*M>J2I?T2 WD7TKE3M;I7ER +HCE3QGU7LSI3Y> 7FR 7HOI2 S7ESE".*M"/*M3SGT+R3T2 N L7B2JNIA7L6JNI7UCSN	D2I^/7OR 7ON 3LWE+P^ 3
3I2 WN3EWDD6."J*M2I3CB*M2IGT3DN 3H21O	C2/?F+RCM3ASD7ROE7SB 3O;I7TKE2 ;I+TCO3M7E7O	R"M&J3TSA2 WM7MSP+R>I2 GT3BWL2 ;A7DN 3AWV2 T3EN 7UKR7ESN"M&J3ASN. B(.3^7*)>I2 ?L7CSA3I;O2 [O2 T3EN 3H;A3N3E2 ?P7ISNE7R6JRI+ACD2(WM3MKTL&)2/Z +OCR3TWH2 WR3S3O3U	T+OCN7RWO3T;I
6.2JRI+CCA/CGH7PKT"M6J2JRI3B	R"5&02I&/3S6 7ASS2 ;I2 T+EJ 7TOE+TB"3MSO/E> "M&J3ASN. B(.0B4")*M6I+S3AN L7A2J*I+MCP3D[E"1&12/?N2,^ 3O> N6.2JRI3B	R"5&22I&/7SR 7HOI2 C3A;N+ECL7DOI3A3B+ECD"?*M2I;A+D" .0B0"46)6JNI+NCA3CGL"M&J7JCM2 WD/FF12I:/+OB,+GCO+O;N"M&J3DGC2
C213F+R>I7YOE2,N 3LGE7RR +HCE3CGH3NWN3LR 3IGS3BWL2 3FA7G2J*I+MCP3SGTR	T2/;A3DV 7XSI".*M2MRJ/EGF"1&,3TSA* CI/CGH7PKT2I^/+ECT3TWH2 GD+TCA7CKU3R;E7T	L2 ;I2 TE*M6IGML&I2/WM7MKO7YR 3A3B3EF +NCD6"KO2"& 7NR +HCE3D[E7ESC"M&J7DKB/IB5*I>I3ASN2 GF7IWL+RCE7DSA3AZ +OC
3T	H3SN 3H;A3N3E".*M2I;A+D" .0B0"46)2JRI3B	C"5&02IN/3LGE3R> +UCR/DR2 	BT6."J*M6IGMA*M6IGML*M2IGT7DN 7HSUD	Y6/OI2 T3E2 3AWS7RN 7HSU7TKE6 CO+ECN"?*M2I;S3AN L7A2J*I+MCP..N+*I>I7YOE2,^ 3O> N6.2JNI+LCB6 R/+ACD*(&42I:/+OB,7FKO+CCE3AN 3H;A3N3E* B13D[E7ESC".*M6IG
L*M2IGT3DN 3HZ1L	R2/GF7IWL+RCE3FGLG*M2I3C7LJ T7L2J6IQ7A2JRI+CCA3IN 7HB1T	R2/WR7TKU7NR +HCE7DSA7AR 7OR +HCE3M7E7O	R2 GT3BWL".*M2I7J7PN 7TKAT*M"L6/"J6/*JV/R	P3CGH3NWN/LF 2 WR3S3O3U	T+OCN7RWO3T;IE*M"/*M"/*M6/R%3WNI3OWM2 WH+RCE2 [A7TKE2 T7EJ 3E?S7LSU3I;O*M>J6
KA+ECA7FKO2 C3A;N+ECL21" +ACS7POA3SSE2 T3E& 7NCS7ESC3I;O*M>J2I?P7ISN*.B 3TWH2 WR3S3O3U	T+OCN3AWR3A& 3SF 2 7S3A3L2 WL7NSGH*M2/>I7FB 3RSO7USC2 ?F3L?L3W;I7GR +HCE7LOA7TN 3HWE3TJ 3O;U7DKA3YZ O7R"J&/3CGH3NWN/LF *.B 3D[E7ESC3SF 3PWP3A	R+NCG+ICN3TWH2 WR3S3O3U	TO
N"J&/3AWR3AJ 7E
T3E;E6 
T7ON 3HWE+TCS3W3I3LN 7AOU3EJ 3OT2 S7ESES*M6/RI3OJ 7EJ 3EWJ3CWT+DB.2 ;A3YR 3EWF+CCT7DSA7A^ 3HOI3H" +ACS3C7O3E& N*M6/NI3ION+EJ 3D[E/CGH6"^ +ACS7LOA3TN 3A3L+ECD+ICS6"KO2"SE2 	WT7H"J&/3TWH2 WD3FOE3TR 3AGT2 ;I2 T3ER 3EWF+CCT3M7E7O	R2 GT3BWL2 ?FR*M6/RI+HCE3SWH+
CT3W	H+CCH7JOU7TB 7AOS+ECD3CGH3NWN/LF ".*M"/*M"/*M3SGT/RKT2,NIL7B2JNIA7L6JNI7UCSN	D2I^/7OR 7ON 3LWE+P^ 3T3I2 WN3EWDD6."J*M2I3CB*M2IKD/RWI"0&I6/OI2 GM+SCT+ICN2"WT+SKT2 ?M+DCE"?*M2I;A+D" .0R0"06)6JNI+ZCA3CGL"M&J7JCM2 WR/SF12I:/+OB,+GCO+O;N"M&J7DKB/IJ5*I>I7Y
E2,& 7SR 7HOI2 C3A;N+ECL7DOI3A3B+ECD"?*M2I;A+D" .0B0"46)6JNI+ZCA3CGL"M&J7JCM6 SS7ASR*2>I7YOE2,V 7XSI".*M6MJJ/EGS"1&,3TSA2 S3UST+Y>I+ICS3TWH2 GL7SKE2 S7UST+ECR3OWP/N> "M&J3SGZ2 3CA*M2I7J7PN 7TKAT&22/?N2,* 7USS6 E+I;T"M6J6JRI+ACD3IN 7HB1T	R2/WG7TR +HCE3PWR3
?I+UCS3SWH+ECT7DSAA&."M&J3M3Q"I6I2JRI3B	R"5&06IJ/3ESA2 T3ER 3EWF+CCT7DSA3AF N7D2JFI+NCD.(B0*0&4"M&J3MGQ*I>I6"KO6"R 3H7E2 ?T7GSE7HKE".*M2IOD3A& 2 C61SP+R>I7PSU2 GD+TCA3BOA3K& 7NR +HCE3M7E7O	R2 GT3BWL".*M2I7J7PN 7TKAT62"J*M2MNJ7HB1+T3R2IWM3MKTL&I2/WM7MKO7YR
3A3B3EF 7DKD7EOS2 ?F7RR 7HOI"M&J*I>I2 C3A;N+E3L2 WL+FCT+BCY3D[E/CGH".*M"L6/"J6/*JV/R	P3P?R7COE7SN 3HWE3TR 3EWF+CCT7DSA3AZ +OCR3CGH3NWN/LN *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* :32 & 3FN 3H;A3N3E" 63"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" 63"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*3B,3CKL"M&J3C3A"
&J7SOU3PSN*I>I+GCO+TCO3SWL+ECP2		T3L: 3ESE+E;D"M6J2JNIL7B6JRI+ACD/COH3LOO2IZ/3O7R2 SA3DWR+SCS3P	O3NWT3R& 3N?T2 WM7MKOY*M2IGT3D6 7ECMT	R6/R 3A3B3EF +NCD7S[A7ER +HCE7CKU3R;ET*M2I;A+D" .0^3"7&)2/2 3OGC3T?I3N> 7FR +HCE3CGH3NWN7LB 3O;I7TKE"M&J3TSA2 6(7ESM+B	L*
B/7FKO2 T7EJ 3E?S7LSU3I;O2 ?R3U	T+N;E"M&J3DGC2 C63SPR*M"M&J7DKB/IB5*I>I+ICS7MOA3T& 7NR +HCE2"WT+SKT2 ?M+DCE"?*M2I;A+D" .0R0"06)6JNI+ZCA3CGL"M&J7JCM2 WD/FF32I:/+OB,+GCO+O;N"M&J7DKB/IJ5*I>I+ICS3T	H3SN 3H;A3N3E2 	D3SKA3LSE" 6?2JFI+NCD.(B0*0&1"M&J3SGN2 3CA*M2
7J3PR /EOF*1>I+N3O2 ?G2 ;O".*M2IOD3AN 3HZ3L	R2/WY+SB,3CWL+ACR3TWH2 C3A;N+ECL7DOI3A3B3EZ 3L
A"M&J7JCM6 SS7ASR*3>I3ASN6 E+I;T"M6J2JWD/FF36,RI+ACD3IN 7HB3T	R2/WG7TR +HCE7DSA3AN 7UKR7ESN+LCY+ICN3TWH"M&J3M3Q*I>I3M7E7O	R2 GT3BWL2 ;A+DJ +OKR2 ;I2 T3ER 3EWFC7T2JRI3B	R"5&02IF/+NCD3F	A7LKU3ER 3AGT2 ?F7RR 7HOI2 C3A;N+E;L"M&J3ASN. B(.0F0")*M2IKD/CWI"0&I2/3
7EKA6 WO3RR +RB87BSI"M6J2J6IQ7A2J6IQ7L6JRI+ACD7SWH7T	D2I&/7SR +HCE7LOA+ECR7SWH3TWT3R> 3P;E" 6?6JNI+NCA3CGL"M&J7JCM* .."3&I2/WY+SB,+GCO+O;N"M&J3CKL* > /ACC.0F02I:/+OB,7FKO+CCE3AN 3H;A3N3E* B33D[E7ESC".*M6IGML*M2IGT3DN 3HZ3L	R2/Z(3A3I3UWR2 3F+A	G"M&J3MGQ"M&
3DGC* CI/COH7PKT6IJ/7EWT+RCN3TWH2 GD+TCA+TCO3TWH2 WM7MKO7YR 3A3BE6."J*M2I7J7PN 7TKAT63*J>L*M>J*M>J6%CR2IC3A;N+ECL63J 3E?S7LSU3I;O2 ?R3U	TN7E"J6/"J6/*JV/T	W3C7O3E" 3EWR2 F 3FWT7RR +HCE7ROE7OWL3T?IN*M2/FI3RGE2 ?F3RN 3H;A3N3E* B37HOA2 GP3SWS7DR +HCE7ION3POE3
?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*3B.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*3B"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"36."J6/"J6/6JSS7ASR"4&,3CKL"M&J3C3A"M&J7SOU3PSN*I>I+GCO+TCO3SWL+ECP2		T3L: 3ESEE7D"J*M2I3CB*M2IKD/RWI"0&I6/OI2 GM+SCT+ICN2"WT+SKT2 ?M+DCE"?*M2I;A+D" .0R0"06)6JNI+ZCA3CGL"M&
7JCM2 WR/SF32I:/+OB,+GCO+O;N"M&J7DKB/IJ5*I>I7YOE2,& 7SR 7HOI2 C3A;N+ECL7DOI3A3B+ECD"?*M2I;A+D" .0B0"16)6JNI+ZCA3CGL"M&J7JCM6 SS7ASR*4>I7YOE2,V 7XSI".*M6MJJ/EOS"1&,3TSA2 S3UST+Y>I+ICS3TWH2 GL7SKE2 S7UST+ECR3OWP/N> "M&J3SGZ2 3CA*M2I7J7PN 7TKAT&42/?N2,* 7USS
 E+I;T"M6J6JRI+ACD3IN 7HB3T	R2/WG7TR +HCE3PWR3V?I+UCS3SWH+ECT7DSAA&."M&J3M3Q"I6I2JRI3B	R"5&06IJ/3ESA2 T3ER 3EWF+CCT7DSA3AF N7D2JFI+NCD.(B0*0&1"M&J3MGQ*I>I6"KO6"R 3H7E2 ?T7GSE7HKE",*M2IOD3A& 2 C63SPR*M2I7J7PN 7TKAT64"J*M2MNJ7HB3+T3R2IWM3MKTL&I2/WM7MKO7YR 3
3B3EF 7DKD7EOS2 ?F7RR 7HOI"M&J*I>I2 C3A;N+E3L2 WL+FCT+BCY3D[E/COH".*M"L*M2IGPG7E"J*M2I?N3P;UC	H2IZ/3I3E/DF 2 ?C3M?M3NZ 3O3L7OOW"M&J3X	L+SCT"1*MBLBZ

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