File DEF.PA (PAL assembler source file)

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

./&6*M>J*M>J*M>J"%	R3P?R7COE7SN 3HWE3TR 3EWF+CCT7DSA3AZ +OCR3CGH3NWN/LF *M>J*M>J6%
T2IT+ICS7RWO3T;I3E& 3SN 3A3L+ECD3F?R7MR +HCE3J7U7PR 3A3B3EF S*M2/VI3AC2 S7ESE2 ?B3USN+RCY2(WY7TR 3OJ 3EN 7HCO3PSE2)N 7ROO7SOE2 TE6 "J&/7ION3POE3T?I7NB 3O;I3TZ +OCR3CGH3NWN/LF *.B +ICF3CGH3NWN/LF *M>J6IOI2 ;E3A3B+E3D2 T3ER 3EWF+CCT7DSA3AZ +OCR3T	H7SN 3HWE3
F N7D"J&/3TWH2 GF7IWL+RCE3FGL3GZ 3R7O2 WS+LCF3CWH+CCK3AWR2 >"3RV"D6 "J&/7ISN7OR +HCE3D[E7ESC2 WM7MKO7YR 3A3B3EF 7TR +HCE3CGH3NWN/LF *M>J2I?P7SSI3I;O*.B 3T	H3SR 3AGT6 OI2 GL7TKE6 OU+ECD+BCY6"KP3OODT6""J&/+TCO7DSE3E7R3IWN2 T7EF 3U3A7I	T2 [O2 T+ICS3SWH+E;T*M
J*M>J2MRJ3EOF+H21"I602JNIL7B6JRI+ACD/CGH3LOO2IZ/3O7R2 SA3DWR+SCS3P	O3NWT3R& 3N?T2 WM7MKO7YR 3A3BE*M2IGT3D6 7ECMT	R2/;A7DN 3AWV2 T3EN 7UKR7ESN2 ?L7CSA3I;O2 [O2 TE6 2JFI+NCD/P^1*7>I3CGH3NWN7LB 3O;I7TKE2 ?F7RR +HCE7ROE7OWL3T?IN*M2IGT+D" 3M7E3T3B*)>I7RWO3T;IE
M2IOD3AN 7HB1T7R6JRI+ACDP&42IN/3HOE3K& 7FR 7HOI2 C3A;N+ECL+ICS3EGN3BWLD*M2I7J3SR 3ESFI7S2JRI+CCA/CGH7FKL2I:/+OB,3CWL+ACR3TWH2 C3A;N+ECL7DOI3A3B3EZ 3L
A"M&J3TSA* CI/CGH7PKT2I^/+ECT3TWH2 GD+TCA7CKU3R;E7T	L2 ;I2 TE*M6IGML&I2/WM7MKO7YR 3A3B3EF +NCD6"KO2"& 7NR +HCE3D[E7ESC"M&J3TSA2 WD7FSC*1>I3ASN2 GF7IWL+RCE7DSA3AZ +OCR3T	H3SN 3H;A3N3E"M&J3MGQ"M&J3M3Q"M&J3TSA2 C213FR*M2I3C7LJ T7L2J6IQ7A2JRI+CCA3IN 7HB1T	R2/
R7TKU7NR +HCE7DSA7AR 7OR +HCE3M7E7O	R2 GT3BWL2MRJ3EOF*13A2IOD3AR 3EOFT&12/3C7EKA2 WD3FOE7TN 7TKO3AWG2 ?F7RR 7HOI2 C3A;NE7L2J*I+MCP3IR 3EOFH&12/WR7TKUN*M2MNJ3H21+O3C"I&02IN/3H;A3N3E* B13LOO3A	T+OCN+ICN3TWH2 WM7MKO7YR 3A3BE*M.L^/"0*M"/*M"/*M6/J%2IC3A;N+ECL6
J 3E?S7LSU3I;O2 GH3N3DE7R"J6/*JV/T	W3C7O3E" 3EWR6 KF+OCM3TWH6 WJ+MCP3TKA+LCE7ASF+ECR3TWH2 WR3S3O3U	TO7N"J&/3AWR3AZ +OCR3CGH3NWN/LF 2 GH7SB 7AOS+ECD3TWH2 ;I3SWP3C	TO7N"J&/3P	O+N;T6 R +HCE7ROE7OWL3T?I3NF 3RGE6 OI* CA3SGM+LCL3L;E3GT*M>J2I[O6 KP7OWD+CCT3F3O7L
O3I
N2 T3E2 7ASS2 S7ESE2 ?B3USN7A	R2 ?FR*M2/NI3H;A3N3E* :12 R 3EWF7COT6 CA3PGE3R;I3G& 7NR +HCE7ROE7OWL3T?IN*M2/FI3RGE2 WB3TWW+ECN3T?W2 S7ESE7S^ 3I3L2 GC3UWS2 ?B+TCH3SWH7EOT*M>J2I?T2 WB2 WR3JOE3TSE*.B 7A	N2 WD3FOE3TR 3AGT2 W3IC2 GH3SN 3OWM2 ;I*M>J2I	S3NWC2 R"3
OF+HJ12 GW3S2 7ASS2 GC3LWL3D& +SJ +OKR+ECD7WSIH*M6/RI+HCE3D[E7ESC2 GD+TCA+ICN3TWH2 WD3FOE3T6 3E?M+RCY3TKA+LCE7FKO*M>J2IT7EN 3HWE7T^ 3HOI3H* 7USS2 GP3SWS3DN 3H;A3N3E* :16 R +HCE7N
E2 GDT7A"J&/+ICS3L[E3T& +NJ 3D[E/CGT2"Z +OCR3TWH2 WN+XCT3C3A7LR +OJ 3D[E/CGH""6."J6/"J6/2JWR3SC"1&,"0*M2I3CB*M2IGT3D& 2 C61SP+R>I6"KO2"R 3EWF+CCT7DSA3A& 3N?T2 T3E6 3E?MR7Y2J6IQ	L6IR/3A3B3EF 7TR +HCE3CGH3NWN/LF 2 ?L7CSA3I;O"M&J3TSA2 WD7FSC"1*M6IGMA*M2IOD3A
 2 C61SPR*M2I7J3P& 2 WR3SC*1>I7RSE3U;R"M6J"J*M/CGH7PKT.,BI*I>I3M7E7O	R2 GT3BWL2 SA3DWR+SCS7FKO2 T+ICS3CGH3NWNL6,"J&I2I2/7ESF6 	B2 WD3FC"1*M.L^/"1*M"/*M"/*M6/J%6IKP3OWC+SCS3SWH+ECT3D[E7ESC2 GD+TCA7FKO2 C3A;N+ECL"2*M"/*M6/R%7WRI7HOI2 ?R3U	T+NCE+ICS3C3A3LSE6
KF+OCM3TWH6 WJ+MCP3TKA+LCEA7S"J&/3EOA7HN 3HWE3TJ 3O;U7DKA+Y" 7YSE2 ?T2 WB2 C7OCP+E	D6 KC7OOS+ECS3TWH*M>J2I;I3SWP3C	T+OCN3P	O+NCT7FKO2 C3A;N+ECL*2B.2 [I2 C3A;N+ECL"2*M2/&I3SV 3NKA3LSE6,R +HCE3D[E7ESC2 GD+TCA7FKO2 T+ICS3SWH+ECT3ASN*M>J2IT3EZ 3A3I3UWR2 3F+AC
3F?R7MN 3E[L2 C3E/C6 KA+EJ +OKRE7D"J&/7ISN7OR +HCE3D[E7ESC2 WM7MKO7YR 3A3B3EF 7TR +HCE3CGH3NWN/LJ *M>J2I?P7SSI3I;O6.R 7HOI2 GD+TCA+ICS7LSA+ECR3UWS3DJ +YJ 3P?R7DSC""*M6/RI3OR 3EWT3R	M+NCE3TWH6 WQ3A	L+TCY+OCF3T	H7SN 3HWET6."J6/*JV/T	W2"WD3FC*2B"7AOL3O6 3O	N
TKO7SR +HCE3S3P3IWC2 GD+T;A2 & 7T^ 3I3L*M>J2IWS7TR +HCE3S3P3IWC2 3F+ACG6"CS3L3F+GB"7FKO2 ;O3EN 7HCO2 	TM7E"J&/3WWH7N[E+ECR3TWH2 C3A;N+ECL62N 3P	L+CCE7BSI6 OI2 WS+TB.6 SI6 OI*M>J2IWN7COE7SKA7YR 7OV +SCE3TWH6 CS3LOI3EZ 3L
A2 ?T2 ;I7SKU3EF L7L"J&/3TWH2 WS3R	V+CCE7RWO3T;I+ECS7ASC2 ;O2 T7EN 3P	L+CCE3S
I3N3A*M>J6IWD3R;I7GR +HCE3S7A3EN 7HCO".*M"/*M"/*M3D[E/CKH.,BI"M&J3CKL"M&J3TSA2 WD7FSC*2>I7M[O7EN 3P	L+CCE7DSA7AR 7OR +HCE3S3P3IWC2 3FA7G2JFI+NCD/PB1"M&J3DGC6 CS3L3FG*M2IGT3DN 3H22O	C2/?F+RCM3ASD7ROE7SB 3O;I7TKE2 ;I+TCO3M7E7O	R2 GT3BWL"M&J3TSA2 WM7MSP+R>I3
SN2 GS+VCE3TWH6 WC3RWR+NCT3LOO3A	T+OCN+OCF3TWH"M&J3ASN. GP"7&72/C3A;N+ECL3P	O3NWT3RZ +OCR3TWH2 WR3S3O3U	TO7N6JRI+ACD2(WM3MKTL&)2/?R3U	TN7E2JRI+CCA/CKH7PKT"M&J3CKL6 SS7LJ T	L2/C3E/C2 [I2 T+ICS3CGH3NWN3L& 3SV 3NKA3LSE"M&J7JOM2 WD3F	DS*M2IOD3AN 3HZ2L	R2/?N2,
 3LGE7RR +HCE3CGH3NWN3LR 3IGS3BWL2 3FA7G6JRI+ACD3IN 7HB2T	R2/WG7TR +HCE7DSA3AN 7UKR7ESN+LCY+ICN3TWH"M&J3M3Q*I>I3M7E7O	R2 GT3BWL2 ;A+DJ +OKR2 ;I2 T3ER 3EWFC7T6JRI+ACD3D[E/CKT2IF/+NCD3F	A7LKU3ER 3AGT2 ?F7RR 7HOI2 C3A;NE7L2J6IQ7A2J6IQ7L6JRI+ACD/CKH7FKL"M&J3C
L2 GRL*M6IGMA*M2IOD3A& 2 C62SP+R>I7RSE3U;R2 T3ER 3AGT2 ?T2 T3E6 3E?M+RCY3TKAL7E2JWD/FKCA&,3DGC2 WD7FSC*2>I3CWL+ACR3D[E7ESC6 SS3OGR+GCE7FKO2 T+ICS3CGH3NWNL*M2I7J3P& 2 WD3FC*2>I7RSE3U;R"M6J2JC22?LC&,"0&I2/C3A;N+ECL222 3OGC3T?I3N& 7NR +HCE3M7E7O	R2 GT3BWL"M2
./J7*M>J*M>J*M>J"%	R3CGH3NWN/LJ 2 WR3S3O3U	T+OCN3H;A3DWLR*M"/*M6/R%3WNI3OWM2 WH+RCE3F?R7MR +HCE3J7U7PR 3A3B3EF 3FWT7RR +HCE7ROE7OWL3T?IN*M2/FI3RGE2 ?F3RN 3H;A3N3E* B27HOA2 GP3SWS7DR +HCE7ION3POE3T?IN6 "J&/3P	O+N;T6 R +HCE7ROE7OWL3T?I3NF 3RGE6 OI* CA3SGM+L
L3L;E3GT*M>J2I[O6 KP7OWD+CCT3F3O7L
O3I
N2 T3E2 7ASS2 S7ESE2 ?B3USN7A	R2 ?FR*M2/NI3H;A3N3E* :22 R 3EWF7COT6 CA3PGE3R;I3G& 7NR +HCE7ROE7OWL3T?IN6 "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/CKH6"^ +ACS7LOA3TN 3A3L+ECD+ICS6"KO2"SE2 	WT7H"J&/3TWH2 WD3FOE3TR 3AGT2 ;I2 T3ER 3EWF+CCT3M7E7O	R2 GT3BWL2 ?F7RR H7E"J&/3SWH+
CT3W	H+CCH7JOU7TB 7AOS+ECD3CA3NWN/LJ *.B 3TWH2 WN3WR 3AGT*M>J6IOI2 WL+FCT+ICN2"WD7FSC*2B"7FKO2 T3E: 7ESX2 GC+LCL+TCO2"WD3FC*2:"*M>J*M>J6MJJ3EOS+H22"I602JNIL7B6JRI+ACD3IN 7HB2T	R2/>"+RB"3D[E7ESC2 GD+TCA7ISN7OR +HCE3M7E7O	R"M&J3M3Q*I>I3TKA+LCE+ACT3TWH2 C3A;
+ECL222 3OGC3T?IN*M2IGT3DR 3EOFT622J6IQ7A2JRI+CCA3IN 7HB2T7R2J*I+MCP7IJ 3EOSH&22/WR7TKUN*M"M6J2JC62SPR&,"0&I2/WM7MKO7YR 3A3B3EF 7DKD7EOS2 ?F7RR 7HOI2 C3A;N+E3L"M&J*I>I3L[E3TJ 3YR 3EOFH62*J>L"763"J6/"J6/*JV/7RBI3ROO7EOS2 S7ESE2 WD3FOE3TR 3AGT2 ?F3RN 3H;A3N
E" 63"J6/*JV/T	W3T	H7SJ 7OSU3IWN6 OI2 GC3LWL3DZ 3R7O2 T3E* 7UCM2 GT3BWL6 OA*M>J2IGE+CCH3SWH+ECT7BWO3NGD+RCY2(WY7TR 3OJ 3EN 7HCO3PSE2)N 7ROO7SOE2 TE*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	A7LKU3EZ 3L
A6 KF+OCM3S3E3FN 3HOE3KF +RCE6"KO2"SE*M>J2I;I+TCO3TWH2 WD3FOE3T6 3E?M+RCY3TKA+LCE+ACT3TWH2 C3A;N+ECL"2*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"/*M"/*M3D[E/COH.,BI"M&J3CKL"
&J3TSA2 C23?L+C>I7FKO3MF 7DKD7EOS2 ?P7ISN+ECR7ISN3O6 3E?M+RCY3TKAL7E6JRI+ACD3M7E7PKT2IF/+NCD7S[A7ER +HCE7CKU3R;E3T2 3OGC3T?I3N> 7FR H7E2JFI+NCD/P^1*7>I3CGH3NWN7LB 3O;I7TKE2 ?F7RR +HCE7ROE7OWL3T?IN*M2IGT+D" 3M7E3T3B*)>I7RWO3T;IE*M2IOD3AN 7HB3T7R2JNI+LCB3IO
*I>I3CWH+CCK+ICF3T	H3SN 3H;A3N3E6 OI2 ;E3A3BE7D2J*I+MCS3D[E7DOI"M&J3DGC2 C233F+R>I+N3O2 3C7EKA2 T3EN 3H;A3N3E2 	D3SKA+LCE3FGLG*M2IGT3D& 2 C63SP+R>I7GSE2 T3ER 3AGT6 WC3RWR3N3T3Y& 7NR +HCE"M&J3M3Q*I>I3M7E7O	R2 GT3BWL2 ;A+DJ +OKR2 ;I2 T3ER 3EWFC7T6JRI+ACD3D[
/COT2IF/+NCD3F	A7LKU3ER 3AGT2 ?F7RR 7HOI2 C3A;NE7L2J6IQ7A2J6IQ7L6JRI+ACD/COH7FKL"M&J3MGQ"M&J3DGC* CI/COH7PKT6IJ/7EWT+RCN3TWH2 GD+TCA+TCO3TWH2 WM7MKO7YR 3A3BE*M3D[E3CF32,RI+CCA3D[E/COT2IN/3LGE3RR 3EWF+CCT3S?T3R
A3EZ +OCR3T	H3SN 3H;A3N3E"M&J7JCM* CI3D[E/COH6IJ/7EWTR7N"J*M/COH3LOO.,BI*I>I3CGH3NWN/LN 2 ?L7CSA3I;O2 ;I2 T3E6 3E?M+RCY3TKAL7E*J>L"764"J6/"J6/*JV/3RNI3H;A3N3E* B37ROE7OWL3T?I3N" 3ASN7LKE*M>J*M>J6%
T2I?C+MCE7HKE3EZ 3R7O2 T3E* 7UCM2 GT3BWL2 [A7TKE2 T7EJ 3E?S7LSU3I;O" *M2/FI3RGE2 ?F3RN 3H;A3N3E* B37HOA2 GP3SWS7DR +HCE7ION3POE3T?IN6 "J&/3P	O+N;T6 R +HCE7ROE7OWL3T?I3NF 3RGE6 OI* CA3SGM+LCL3L;E3GT*M>J2I[O6 KP7OWD+CCT3F3O7L
O3I
N2 T3E2 7ASS2 S7ESE2 ?B3USN7A	R2 ?FR*M2/NI3H;A3N3E* :32 R 3EWF7COT6 CA3PGE3R;I3G& 7NR +HCE7ROE7OWL3T?IN6 "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/COH6"^ +ACS7LOA3TN 3A3L+ECD+ICS6"KO2"SE2 	WT7H"J&/3TWH2 WD3FOE3TR 3AGT2 ;I2 T3ER 3EWF+CCT3M7E7O	R2 GT3BWL2 ?F7RR H7E"J&/3SWH+
CT3W	H+CCH7JOU7TB 7AOS+ECD3CGH3NWN/LN *.B 3TWH2 WN3WR 3AGT*M>J6IOI2 WL+FCT+ICN2"WD7FSC*3B"7FKO2 T3E: 7ESX2 GC+LCL+TCO2"WD3FC*3:"*M>J*M>J6MJJ3EOS+H23"I602JNIL7B6JRI+ACD3IN 7HB3T	R2/>"+RB"3D[E7ESC2 GD+TCA7ISN7OR +HCE3M7E7O	R"M&J3M3Q*I>I3TKA+LCE+ACT3TWH2 C3A
N+ECL232 3OGC3T?IN*M2IGT3DR 3EOFT632J6IQ7A2JRI+CCA3IN 7HB3T7R2J*I+MCP7IJ 3EOSH&32/WR7TKUN*M"M6J2JC63SPR&,"0&I2/WM7MKO7YR 3A3B3EF 7DKD7EOS2 ?F7RR 7HOI2 C3A;N+E3L"M&J*I>I3L[E3TJ 3YR 3EOFH63*J>L"765"J6/"J6/*JV/7RRI7ESS2 ?F3RF 2 	D3SKA3LSE2 ;I3SWP3C	T+OCN3CGH
NWNL*M"/*M6/R%3WNI3OWM2 WH+RCE3F?R7MR +HCE3SWH+ECT3D[E7ESC6 KP3OWC3S	S+NCG7RWO3T;I+ECS*M>J2IR(3EOF+H21.2N,2)F +NCD3TWH2 WR3S3O3U	T+OCN7RWO3T;I+ECS2(WR3SC.1J,*,&3*M>J2I?T2 C3E/C2 [I2 T+ACT3CGH3NWN3L& 3SR 3IGS3BWL+DB.+TCO7DOI3A3B3EF N7Y"J&/3CGH3NWN+LB,3TWH2
GM+SCT7SOY3T7E6 WM+SCT+BCE+ICN2"WT+SKT2 ?M+D;E*M>J*M>J2MRJ3ESF+I3S"I602JRI+CCA3WKK*I>I7S[A7ER +HCE3CGH3NWN3L6 3A/S"M&J7DKB/IB5*I>I+ICS7MOA3T& 7NR +HCE2"WT+SKT2 ?M+DCE"?*M2I;A7DB "4606JNI+ZCA3CGL"M&J7JCM* .."4&I2/?N6,N +ECT+UCP+TCO7RSE3U;R"M&J7DKB/IJ5*I>I7
OE2,& 7SR 7HOI2 C3A;N+ECL7DOI3A3B+ECD"?*M2I;A7D^ K7B6JNI+NCA3CGL"M&J7I+S2 WD3F	D+S>I+N3O2 ;I3CWR3M;E7TR +HCE7RSE3U;R2 SA3DWRS7S2J*I+MCP3IR 3ESFI	S2/WR7TKUN*M"M&J3P
AE*M"LBZ"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"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