File TD81.PA (PAL assembler source file)

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

*/B3/TD7EN 7YSS+ECM7ROE3IWD+NCT.(J1K6)"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/2JN/7O	P3R
I+HCT2 N(*)B .1^9.4F,.9V76 	B2 	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J3TWH2 ;I7FKO7MSA3I;O2 ;I2 T+ICS3DOO3UWM+NCT+ICS3SKU3JOE7TR 3ON 3H;A+GCE7WSI7HWO3T: 3O	TC7E2JF/+NCD3S?H3USL2 ?N3TJ 3EN 7OON7TWR+ECD+ACS3AN 3O7M
I7T7ESN6 	B2 	D7GSI+ACL7EWQ3I7P7ESN*M>J7CKO7PKO3A	T+O;N2 R 3I	G3T3A6 GE7UCI3M;E3TN 7OCR3OGR3T?I3NF 7SWS7MOE2 ?N2 WR3S?P3N	S3B3I7I	T*M>J7FKO2 ;A3YV 3R?R+RCS3TGH3T6 +ACY7ACP7EKA2 ;I2 T+ICS3DOO3UWM+N;T*M>J*M>J3TWH2 ?S7F
T3AWR2 WD7SKC3IWB3D& 7NR 7HOI2 ?D3C7U7ESN6 OI6 WF3R	N3SWH7DR 7OR +HCE7PKU3CGH7SKE*M>J3USN+ECR3A2 3IWC3NWS2 ?F7RV +SCE+OCN7AN 3I
N+LCE3C7O7PSU+ECR7SOY3T7E2 ;A3DN +ACN+BCE7CCO3ISE*M>J2(	W+TCH3ION7LOU3I;O2 [O2 	D7GSI+A
L3SN 7O	P3R
I+HCT7NSO3IWC2)> 7N	L2 ?F7RV +SCE+ICN3SOUH*M6/	S3SWT+MB,3EOX7ESP6 OA2 GM3Y> 3TWH3R	W+SCE+BCE3P?R3VSI+ECD+ICN3W	R3T;I3GJ 3YR 3I	G3T3A".*M"/*M2/	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O6 OA3S7U+ECS+NCO7ROE3P;O3SKI3I	L+TCY7FKO2 T7EV S7E2J>/7RJ 3E	L3A	B7LSI3Y> 3
& +TCS3S[O3TGW+RCE+OCN7EWQ3I7P7ESN2 T+ACT+ICS7NSO6 WS3P3P3ISE6 	B*M>J3D
I3IGTL6."J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J&L"*60"J*M.IN-"M&J7D[E3IWC2 ST.8/E7D[E3IWC6 	S/SR;.2F1.;B6.0.7.0F;.3F4"M&J7D[E3IWC2 ST.8/E7D[E3IWC6 SD/A.0.4F2.1V;.0^0.;.0.1R3"1*M2IWD3VOI7ER 3DV82;WD3VOI3ER /TGA.;J4.1.17SSD+AZ1.1^7.+B5.0.0.0F;.3F4"M2J2IS
3B
E7NR-/D^7"-61"J*M2IWR3LOO. N7"660"J*M2/T3EJ 3IGN+RCY7GSE3S2 3OSA+ECD7ISN/OJ .7J220& 7NSI3I3A+YB,3ASN*M>J3W	R3TWT3N> +UCT+ACS7PKA3T> 7FJ 3E?C+RCD*0B.3WWH7NR +HCE*3B07WKOD*M2/?B7OOT3TGR3P& 7SV 3SSE6,R 7HOI2 ?C+DCE7GSE7SJ 3ESA2 ;I+TCO.7B4"06."J*M"M6J6JNI7DOS
=^6"7616JNI7DSS.=^6"7626JNI7DGS.=^6"7636JNI3DOL.=^6"7646JNI3DSL.=^6"7656JNI3DOR.=^6"7666JNI3DSR.=^6"767"J*M3TKD3E;G6,*I3B?L+CCK"2602JST3B?OT&,3TSA. 
K.6B0.IF/*2B87WKO+DCS7PKE2 GPG7E2JRI+CCA7T
DC7T6JNI7DOS*I>I3W	A3TZ +OCR3AJ 3LOO3K6 3A/R6 R(3AWP6 OI"M&J7JCM* 6."1&I6/SS3I3L2 ?M3V;IG6)6JNI3DOR"M&J3ASN2 ST"7676JRI+ACD/KKM*6>I+ICS+ICT3AJ 3LOO3K6 3A/R"?*M6I+S3AN L7A2J*I+MCP3TKD7OSO"+&22/?N6.^.7ASI* CA3W	H+LCE3L;O7GKE"M&J7SKDD&I2/WG7TR +HCE3B?L+CCK+N
O6MRJ3D/B+N3O2IGT7DR /DGM*4>I3NWE3DR 7ESC3AWP2 3B3O/C/SF *5B4.&F *5B52(WR+CB.*6&6"M&J3SGZ2 3CA*M2I7J7PR 3D?B+O/T*2>I7NSO2 WY+TB,7BOU7TKE6MRJ3D
R+R3D2ISSS7S2J*I+MCP..F-*I>I7N
O2 WL7TN	2 ?L+OCK7FKO* CA7R[E7EOR3E^ 7UKA7D^ 3OSR"M&J7SKDC*M2I;A7DR /D^7"M&J3TSA2 7K"3626JNI+ZCA3CGL"M&J7JCM2 ST7RKG+D>I3KWE3P2 3O/O3I
N2 ?F3R& T*M2I7J7SR 7DGRD*M2I7J7SR 7DGRD*M2I7J7SR 7DGR+D>I3S	K3PN 7OSN3R3O2 ?W7ROD"M&J3C[D. B1*I>I3LGO7DV 3PZ 3I3E/DF 6MRJ3DWR+A3D2I7J7SR 7DGR+D>I7GSE* CA7DSA7A^ 3OSR"M&J3DGC* CI7TCDT7R2J&I+SCZ7TCDT	R6/KA7E^ 3ER 3OWN"?*M2I7J7PR 3DWRA	D2/?N7T& E7T2J&I+SCZ3
KD3K?N6I&/+E;S2.?L+OCK+ACT3B?L+CCK"1656JRI+ACD3KSC/FB2"M&J3DGC2 ST3RGE/DF-2I2/3OSA6 CU2 	F3ESL" 622J&I+SCZM&22IR/3OWN2 T+ICS3J;UK6?2J*I+MCP3TKD7OSO2I^/3OR 3OZ 3I3E/DJ "M&J3S3DC&I6/SS+OCP3TWH2 GTP7E2JNI+ICF3C[D" 602J*I+MCP3I. .7B6"5*M2LST/MR1*,6I.1R5"M&J.-
1*5>I3UWS2 WR7CKO/DZ "6*M7TCD+T3R6MRJ3DOWT&,.7B6"0*M7TKD+Q3D"I606JNI7DGS"M&J7JCM* 6."1*M2ISSR7D2J*I+MCP7IR 7DGRD*M2M.J.7B6"0&,.7B6"0*M/KKM"6&,.-Z22M.J/MJ3*,6I"3622JOK/DKF"0&,3C[D. B22M6J"2&,"-62.J
K.6V0.,^I.6V06MRJ/D^7.,^I"7*M*M>J2IT+ICS3B?O7TSS7RCA2 WR3SSI+ECS+ICN3B?L+CCK"0*M2/JI3LOO/KF */B23C;O3T	A+NCS3TWH6 OU3U3A2 7I3AWG2 [O. ^0.6B0*M>J2I3B3O/C. Z62 ?C3NGT7ION2 T3E& 3M
A3E> /FF .7B6"0*M2/JI3LOO/KZ .6F */B23C;O3T	A+NCS3TWH2 7I3AWG2 [O. ^2.6B0"M&J3R3EO7C"J&L.*B2"0*M*M>J/TD3ER 7ESC3AWP6 	S3SWT3M" 3ASN7LKE*M>J3T	H3S" 3ASN7LKE2 GC3NR 7R[I7EV 7NSI/SB *&212 ;A3D& 7SB 3E7R3AWN3N3TY*M2/WR3SSI7ESN2 ;I2 	F3ESL/SB *&:2"M6J6JJI3E?L/
^ .6B0"M6J6JZI7EOR3I;O2=J".&^7"M6J6J*I3B?L+CCK"7*M3S;H7DKL6,ZI7EOR3I;O*I>I3U	N/TB 2 ;E7T	R2 ?P7ISN"M&J3CGL2 3CL*M2I7J7PN 3HSN"2*M+C23"I&32I6/7USS2 WB2 WH+RCE7FKO6 WB3ISL6MNJ*720.IB76MNJ3DGT"1&,7VKE3S?IN&I2/;U+ICT21V 7NKTY*M2I3C3AN +LCL3C3M6MNJ/CB1*0202IGT
DN 3DGT*1>I7DWO3BWL3SF 3SN 7OON3T;A/TF .0B0"M&J3DGC2 S3N3D+R>I7GSE6 KA+GCS+ACT3S;H7DKL6MNJ3HSN"2&,7RKA*I>I3U	N+TN "M&J3DGC6 WS7NSI"M&J3R[D*I>I7SSE+UCP7FKO6 EI7T6JRI+ACD/SJ6"0632JRI+CCA3E3FD*M2IGT3D& 2 S3N3D+R>I3F;U3C	T+OCN7WKOD*M2ISSL	D6IB/+UCT+ICT+ICN7DS
3AV 7GOI7TKE"M&J3ASN. 
S"0&I2/SS+LCD3DWO3S: +OCT20F +C:.7GSE2 	F3ESL"M&J3TSA. [S.2N02IN/+ICF3C[D* CN7FKO6 KT7AON7FKE2 	F3ESL"M&J3DGC2 [TL7D2J&I+SCZ3S;H7DKL"M&J3TSA* CI3S;H7DKL2IJ/3U[F+ECR3ASD7ROES*M2IOD3AJ 7PKT"M&J7I+S2 S3N3DR*M2IGT3D& 2 S3N3D+R>I3B?L+CCK*B.3T7I+ECS22Z +OCR3RGE
LN "M&J3C3L2 GRL*M2IOD3AJ 3LOOK*M6IOI7ZN 3HSNL	R2/?P7ISN2 ?T6 KE7RKO6 EI7T2JNI+ICF3C[D. B26IB/+UCT3U	N+TN 2 ;I+TCO3FWI+LCD"2*M2IGT7DN 3U	NT*M2IOD3A& 6 WS7NSI"2*M2I7J3PZ 22WS+T>I+TCO3FWI+LCD22Z +OCR3I	NT6."J*M3F^1O&,7SKDD&I2/;I3I	T+ACL7DKI7ESC3I;O2 ?T2 	LN
K6JJIA7R2J*I+MCP3R?G"M2J3R;E7TKE6,RI+ACD7BSP+R>I3D;O7ER 7HOI2 3B3O/C2.:.7ESX2 SA3DWRS7S6JRI+ACD/SKC"0602JRI+CCA7BSPR*M6IOI3ZJ 3LOO+K>I7NE7TR 3AWP2 3B3O/C2.N.+A
N7TN 7KCI"M&J3C3L2 7CL&I2/?F3RWC2 ?F3RGW+RCD7MSO3I;O6MJJ+G3O2I3C3AN +MCL7RKT2I2/3I/N2 ?T2 ?M3T?I3NJ I7T6JRI+ACD/SGC.0B0"M&J3TSA6 WS7NSI"M&J3S3DC&I2/?M+VCE3TWH2 GTP7E6JNI7DGS"M&J7JCM* 6."1*M2ISSR	D2I./3NOO3KR 3O;W6 WQ+ACD3FGLG*M2ISSS7Q2J*I+MCP..F-"M&J7SKDD
I2/T+ICS+ICS3NWE3DSE2,V 3LWS2 	T+MCE7EKR+OGR"!6!"J6L6JKS+C3H2ISSS	S6I^/7ASI2 ?F3RF 2 3B3O/C2 GMR7K2J*I+MCP..F-"M&J7SKDC&I2/WG3T6 3A/R6 KT3A/C2 	BT7S2JNI+LCL3R3T*I>I7DKI7ESC3I;O2 ?T2 	LN7K2JFI+NCD/SOC"7646JRI+ACD/SGM"1&06/OI6 SI* CA3NV +NCD3Z;OE6?6JNIN7A2J
I+MCP3S;ED	Z2/WYS*M2IGT7DN /MB22I6/3AKY3EF 2 3B3O/C2 GM/R?K"M&J3SGZ2 3CA*M2I7J7PN 3RC2I:/7ESI7HKE2...7ECE2 ?G3I
N"M&J7SKDD&I2/WR+ACD3TWH2 3B3O/C" 66JNIZ	L2I&/7FJ 3EWV3RWS2,2 3O/O* B33AWH+ACD+OCF7TKA7GSE"M&J3TSA. OC"M&J3CGM"M&J3TSA2 3B3O/C"M&J3CGM"M&J3SGN*I>I+ICS+ICT3TWH2 	R7GSH2 ;OE6?2J*I+MCP7FWON	D2/WYS*M/SGM*1202I3C7AN +NCA3S3Z6IN/+NCA7SCU3E[R3L?U+U;S2.;O+LCY3S3Z
 GV3LSI"M&J7JCM6 KSC	H2/WH3AWD3DZ +OCR+I;T2.WK+ECP3G	ON7G2JWS7N+D6,NI3DOR"M&J3C3L6 SRL*M6I+S3LN L	A2I&/3F& 3NV +NCD3Z;O3EZ 7O
R3ASR2,^ 3IWV6 KE7RKO"M&J7JCM2 
RO*M2I	C/FJ "0&I2/[I6 SI6 OI2 WR3A3L2 ;E7D* 3OWN2,F 3NV 3R?RR*M2I7J3PV 3R?RR*M2MZJ3O;UD&,3S3Z2 3CA&I2/	R7GSH2 3B3O/C2.".+OCW3A?B+UCT7DKI7ESC3I;O"?*M2I7J7PJ G	O6I^/3R;O+G:.3EWX7CSU7ER 3U;R3A?R3USN"M&J3TSA6 CBT7R2J[T+L3D2I3HT&I2/WG+TCS3C[I2 SC3F: "M&J3C[I. 
2"M&J7JCM2 SRW	T2/WL7TN	6 KT7AON7FKE2 GDT7A"J*M7SE+I3T6IOI7ZN 3HSNL	R2/?N3RGM7LJ 7EWTR7N2JWS7RE6,RI+ACD3S;UI	T6/SS+OCP3TWH2 GTP7E6JNI3DOL"M&J3C3M2 3C7AJ A	R2/	E3TWH/RB 6 KO. B4*0B0+ICN+ACC+OCN7RSE3U;R2MVJ3FSL2,"IL7T2J*I+MCP7IN 3HSNL7R"J*M6ICB/T7R.7V7"5*M2
3B3O/C.=^7"5646JNI3U	N7TN=3DGT"1*M6MNJ.6B2"3&,.6B2"3*M/SKC*020.IB2"0*M/SOC*724.I^3"4*M/SKM"0&,.-B26MNJ3U	N+T226IS3U	NT*M2IWR3LOO"M2J.IR*"060"J*M2IWR3LOO. Z7"0&06/WR+NCS+ICN.2Z7"060"J*M7XSPR&,"0&I6/WB3FWF7RB 3O;I7TKE2MZJ22WST&,3CGL2 3C3LN +MCA3R3T.IN/6 KE7
KO6 KT7IOE"M&J3DGC6 KT3Y;CT*M2IGT7DN 3X;UI	T2/GM+KCE7SKU7ER 3AWP6 OI6 SS7OCPE7D6JNI3DOL2MZJ.2J6*0232I	C3FN +DCF"0*M2ISSR	D2IZ/3UON3T?I7N^ 3OSR"M&J3C3L2 GRL*M2I;A3DN /XZ7"0&02/GP+GCE7CWON7T2JRI+CCA3X
PC7T6JNI3DSR"M&J3DGC6 S3F;U6IN/3AWV2 T3EZ 3UON3T?I7N^ 3OSR"M&J7JCM. GFG7O"J*M7R
DT&,3DGC6 CXT	R2/GS+VCE7N
E6 WB3FWF3RF 7DKD7EOS"M&J3TSA6 C.7B6"0*M2IOD7A" 3W;C+T>I.1"22 ?W7ROD2 WP3RJ 3LOOK*M7R[E3GSR6,NI7DOS*I>I3W	A3TZ +OCR7R[E7EOR3E^ 7UKA7D^ 3OSR"M&J7JCM* 6."1*M2ISSR7C2JFI+NCD/X^7"M&J3TSA2 7X"3&26/OI6 SI2 WR7VKE+SCE3GGU/R?D"M&J3SGZ2 3CA*M2I7J7PJ 3E
VR	D2/?N"M&J3TSA6 S3F;U6MNJ/K^7*0202I7S3AN L	A6IJ/3ESA6 KO6 KW3IWT"?*M2I7J7PJ 3ESA*I>I3RGED*M2ISSR7C2JFI+NCD/CB3*0>I7EKR7OOR2 ;O6 KW3IWT2 ?L3C?K+UCT3ASN2 	TM7E6JNI+ZCA3CGL"M&J7JCM6 KE7RKO"M&J7JOM2 SR3QGU+D>I3S	K3PF 2 ?WR7D6JC.7B6"0&,.7B6"0*M2IGT7D^ 7RCL"M
J3TSA6 S3U	NT*M2ISSL	C6IR/3U;R2 ;O2 T7E^ 7RSIE*M2I3C3AN M7A2J*I+MCS7WGR3USA6I^/7RSI/E^ .7^72 ;I2 WR+VB.3CWH7COKU7M2JNI+LCA3CGM"M&J3DGC2 OS7KWS+M>I3ASN2 3A+SCO+ICN3C7O7PSU3EN 3HOE7KWSM*M3W3RP&,3TSA* CI7XSPR*M2I7J7S^ 7RWQA	D6/KW3IWT2 T3ER 3AGT"M&J7I+S6 CXT7
.J
X"7&,"7&72I*/7USS2 ;I2 GCS7E2J&I+SCZ3XOWN	T2/?D+NCE.1"2"?*M2I7J7P^ 7RCL"M&J7JOM6 KW3QGU+D>I3W	R+TCE3ASN2 C3E/C3S7U* CA7WKO3D> /FB "M&J7JOM2 WG3TC+K>I7GSE2 C3E/C3S7U"M&J7JOM6 KW3QGUD*M2I7J7S^ 7RWQA	D2/WL3TN 3HOE7KWS3M^ +ECT3W	R3TWTN*M"L*M3ROW+O3M2ISSS	T2IN
3HOE3KZ +OCR3T7I3EF +NCD3CWH7COK+UCM7EKR7OOR"M&J3SGZ2 3CA*M2I7J3PV 3R?R+R>I7NSO7ER 7HSA2 	L+NCK+ICS3O[F6 SA6 
R3C7O"M&J3C[I2 SC/FB "M&J3TSA6 CX7GSC2IZ/3I	N3SWH7DR 3R;A3SWFR6?6JRI+ACD/C
X.6B02I2/3I/N2 ?G+ECS+OCN7HKEE*M2I;SA*M2I7J7PN 3E	X+T>I7YOE2.^.3E?TU7T2JRI+CCA3X
PC7T2J*I+MCP3R;E7TKE"M6J2JWR+A3D2I7J7SJ 7DWQA	D2//S+ICP3C;O3T?R7L^ 3OSRS*M2I7J7SJ 7DWQA7D2J*I+MCS7RGD3USA2I^/+ECT3CWH7COKU7M2JFI+NCD/X^7"M&J3TSA2 /S.7B7"0*M2IOD7AN 7COKU7M6JKS7DCL2,*I+MCS7RGD3USA"M&J3DGC* CI7XSPR*M2IGT3D& 6 CXT7R2J*I+MCS7EWQ3F;U"M&J7I+S6 
XT7R.JOC*020.IB3"0*M6IOI7Z" 3W;C+T>I3D;O3EF /L?L"M&J7JCM6 KS7DCL2I:/O*M2I7J7SJ 7DWQA	D2/WR+ACD3ASN2 C3E/C3S7U2 GL+SCT7WKOD*M2I7J3SV 3Q[UU7N2J*I+MCS7RGD3USA2I^/+ECT3CWH7COKU7M2JFI+NCD/S
K.7B0"M&J7JOM6 GE7UWFN*M2I7J3S^ 3EOTH7K2J*I+MCP3ROWO7M"J*M7EKR+O3R2I3C3AN L	L6IR/7HOI2 GC3UWS7SN 7EKA+CCH7R[E7EOR3EF 7TJ G7O2JNI+ICF3C[D" 602J&I+SCZ7T	R7CSN2IV/3XGH7USS+ECD7EKR+OCR3T	R/E?S"M&J7JCM2 
RO*M2I7J7PN 3EWR+X>I7YOE2.Z.3AGT3LV 7XSI"M6J6JKW3QGUD&,"0&I6/KW3IWT* CA*1B27BSI2 ?WR7D6JNI7DGS"M&J7JCM* 6."1*M2ISSL7D2J*I+MCS7EWQ3F;U6IN/3DSL2 WL3AWV3SF 3CF 3L;OE*M2I7J3P& 6 KW3QGUD*M6MJJ7DWQ+A3D"I&06IJ/3ESA* CA*1B27BSI2 ?WR7D6JNI7DGS"M&J7JCM* 6."1*M2ISSR
D2J*I+MCP7IJ 7DWQA7D2JVL3Q[U+U3N"I&02IV/3Q	U3V3A3EON3EN 3HOE7KWSM*M2I7CA*M2IOD3AV 7QSUM7P6JRI+ACD7EWQ7TCM"M&J3ASN2 OS7KWSM*M2I	CA*M2I3C7LJ A7L6JRI+ACD7EWQ7TCM"M&J3TSA2 OS7KWSM*M2IOD7AN 7COKU7M2J*I+MCP3IV 3Q[UU7N"J*M7GSE3C/H.,BI"M&J3TSA2 OS7KWSM*M2I3C3LN +
CA3R3T"M&J3R3T"M&J3R3T"M&J7JOM6 GE7UWFN*M2IGT7DN 7COKU7M2JFI+NCD/S
K.7B0"M&J7JCM* CI7GSE3C/H"M6J6JS3U	NT&,"0*M3X
P+C3T"I606JS3F;U.,BI6MRJ3ROY+N3T"I606J
X7CSN.,BI6M"J/MJ3*,6I"3622JOS7KWSM&,"0*M7EWQ7TCM.,BI"M6J6JR/+HCE7LOA/TR 2 ?L+C;S6 KA3EZ 3RWE2 ?F7RV +SCE+BCY7BSAC7H6J*I3B?L+CCK"4*M2IWR3LOO"M&J"$*M"L*M"M6JBZ

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