File TD82.PA (PAL assembler source file)

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

*/B4/TD3E" 3ASN7LKE2 ?F3RJ 3U3I+D:./TD3EF-*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J7CCO3Y	R7GSH* " +CB). &1*724.1^9.5F,.9^76 	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+I
S3SKU3JOE7TR 3ON 3H;A+GCE7WSI7HWO3T: 3O	TC7E2JF/+NCD3S?H3USL2 ?N3TJ 3EN 7OON7TWR+ECD+ACS3AN 3O7M3I7T7ESN6 	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+RCS3TG
3T6 +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*I"0*M.IJ-2MRJ3E	V+CCE/TD3AR;3E	V+CCE3DGT.0R;.2B1.;B4.1.03Z3B3O/C" 622JWD3VOI7ER 3DF82;WD3VOI3ER /TGA.;J4.1.0.4F064*;3B?L+CCK"2*M"M&J7SOD/SZ=.7F76IN/7KCI2 ;O2 	S3N3G3E2 3IWN2 3FA7G6JNI7DSS.=^6"7&22//S+ICP+
CN3T7I3EV 3R?RR*M2ISS/S7Q.6^7*3>I3S	K3P> 7NF 3USA2 	L+NCE3FGLG*M2ISS/L7C.6^7*4>I3LGO7DR 3AWP2 ?C3MGM+NCD3R
E7ISSE7R6JNI3DSL.=^6"7&52/?L+ACD7DSA7AJ 3E	G3SWTR*M2ISS/R7C.6^7*6>I3RGE3DN 3O7M3ASN2 WR7GOI7TKE"M&J7SKD/DZ=.7^76IJ/3ESA2 GD+TCA3R
E7ISSE7R"J*M2IST7VKE3S?I+NJ=/D^&"7*M*M>J+VB33CGH3NWGS6:"J*M*/:12IWV3R	S+OCN2& 3S: +OCW"1*M*/:22IGP7RSI7Y: 3C& 3S: +OCW3L
EA7L.JN/6.:I3CN 3HOE3K: 3O2 3O
N+ECR3W3I3LF 3DGV3NWC2 WR3AWDR*M*M>J3M	A3NWT3N;A+CCE3R3E7EOA3EN 3H;A7GOE":*M*M>J"4&.7FI+ECD+^CC3B
U*M>J"5&.3MSA3EN 3OWD2 7I3P?R3V7E7ESNS*M*/:62I	F3XSE2 WR7T	R6 WBG*M"M6J*J*I.2B0"M6J6JN3I	NT&,.7B6*0>I3CWL+ACR+ACC7HKE+EF!"!*M2I7J3S& 2 	C7NSI*2>I7PKA3T> 3F& 7NSI3I3A3IGZ3T?I+N:.+DCO3TWH2 GPR7T2JGB/SKE2,RI+CCA3J;II	T2/;O2 WS3C;O7DB 3AWG2 ;A7DR 3H;E2 ?T2 	J
NSI"M&J7JCM2 	J7NSI"M6J6JWB+F3F"I602J
P+C3T"I606JWF7NSC.,BI2MNJ.1B0"0&,.1B0"0*M2MRJ/TCA6,RI3DWV3R	SO	N2/;E7T	R2 ?F7RV 7NSI" 602JNI+LCA3C3L"M&J7JCM6 SD7A"16MVJ7NSI.,BI*I>I3F3I7LKE2 ?WR7D6JSD+A212IST7VKE3S?I+N>I7ESN+RCY7FKO2 ;U+ICT"1*M2I3C3AN +LCL3C3M"M&J3TSA6 SDA612JRI+CCA3DGT*0>I3POI7KV 3PF 7
OG6 SA6 SDA606JSD7A"16,JIA7R2JRI+CCA3U	N+T>I3U	N+TN 6 KF+OCM3L;IK*M2ISRF*M2IGT3DN .6B2"3*M2IOD3A2 7E[A+E>I7SSE6 CU6 E+ICT3F?R3M" 3ASN7LKE"M&J3TSA* CI3DGT"0*M2IOD3AZ 3UON+T>I7S[A3EZ 3UON3T?I7N^ 3OSR"M&J3TSA6 WF7NSC"M&J3C3L2 GRL*M/CB2"0&,3ASN2 7C.2B02I^/+EC
7AB 3AWG2 ?C7USN"M&J3DGC2 
PC7T6JRI+ACD3F;UC7T.JOC*7242I;A3DN "7&02I&/3S3O3AWT2 	F3ESL2 [O6 KT7AON7FKE"M&J3TSA. [C.2N0"M&J3DGC2 [X3I3ED*M6IOI3ZR /TCA6IB/3O;I7TR 3OJ 3U[FE7R6JRI+ACD3IR /TCA"M&J3DGC6 WBF7F2J&I+SCZ3DGT*0>I3P	O+NCT+TCO3ROE3OSR"M&J3TSA* CI3DGT"0*M2I3C7LJ A	L2IN/7O[N7ESR
 ?T2 WD3CGT+PCE3B?L7COK"M&J3DGC2 KT3LOOK*M6IOI3ZR /TCA6IB/3O;I7TR 3OV 3R?R7RJ +E;T2MNJ.6B2"3&,3C[I2 SC/FB "M2J2M*J3I	NT&,7JCM2 ;II	T2/	F7RSS2 	T+MCE7TKH3U& 3T^ 7EOT6 E7EWC3TSE"M&J*I>I3TWH2 WR7TKU3NZ 3R7O2 ;I+ICT7ZKE7OOE6 SI"M&J3CGL2 3C3LN +MCA3R3T"M&J3DGC
 KE7CSN.IN/6 KE7RKO6 KT7IOE"M&J3TSA2 ;UI7T2JRI+CCA3IN 3X;UI7T2J*I+MCS3IN 3S3EC	T2/C3E/C2 ?F7RN 3EWL3CV 3R?RR*M2I7J+P: "-&12I2/7OCO3S& 3F: 7O: 3CF +NCD3S3E7ESC6 KE7RKO"M&J3TSA6 WF7NSC"M&J3C3L2 GRR*M2I7J3P^ O&I2//O*.B.3SGT+RCT3TWH2 WS3AORH*M7T
R3C7O6,NI7DSS*I>I3T7I3E> 3RN 3HOE7KN +UCM7EKR/O?R"M&J3SGZ2 3CA*M2I7J7PR /ROY6I&/+ECS7T	R6 CU2 ?T* B33T7IE7S6JRI+ACD3POG+T>I+N;O2.& 7SB 3AWG2 ?C7USN6 E7HWA3SWTD6?6JRI+ACD/CKM"0606JNIN7A2J*I+MCP3E	X+T>I7YOE*.B.3D;O7ER 7HOI6 KT7AON7FKE"M&J3DGC2 
PC	T2/WN7WB 3AWG2 ?C7USN"M&J7I+S2 KT3LOOK*M2IGT3DJ 3U[F"M&J3TSA. KC"0&02/WG3T: +ECW3B[U7FKE2 SA3DWRS7S2JRI+CCA3B[UF*M2I3C3LN M	L2IZ/3OOR3EZ 7O
R3ASR2 ?M3T?IN*M+G3O2I3C3AN +MCL7RKT6IB/+UCT+ICN7DKI7ESC3I;O2 	BT*M2IGT3DN .1B0"0*M2IGT7DV 7NSI"M&J3S3DC&I2/;I3I	T3AWT2 T3E6 3O	TO7N2J*I+MCS3IN 7RGDA	D2/GW+ICT7FKO* B83L;I+ECS+TCO7POAS*M2I7J3S& 6 KC3DGQD*M/MB2.,^I.7B6*I>I3D;O*	CT7CKA3E& 3F& 3TR 7OOE2 /S+I
P"!6!6JOT3RC6,NI7DOS*I>I3W	A+TBO7FKO2 3B3O/C2 GM+RCK+OCR3ESN2 ?ZN7E2J*I+MCP..F-"M&J7SKDC*M2I3C7LJ T	L2IR/3IWR3C	T+OCN+TCO3L;I+KB,7DSA7AR 3OF /CR "-692JFI+NCD/C^3*4>I3I?S7LSA3E6 *.CT7BSIS*M2IGT3D6 .1B12I&/3S& 3TV +NCD3Z;OE6?6JNIN7A2J*I+MCP3ESN+Z>I7YOE2.R.7
N 3OWM3T	H+NCG3RGE3S;O3A3BE*M2IGT3D6 "2&02I"/+OCW3A?B+UCT3B?L+CCK7MKAK6?6JNI+ZCA3CGL"M&J7JCM6 OT3RC2I:/7ESI7HKE2...7ECE2 ?L3O	KN7G6JNI3DSR*I>I3WGH3T& 7SR 7HOI2 3B3O/C*	CS"6?6JNIZ	L2I&/3F& 7NJ 3EWV3RWS2,2 3O/O2 ?F/RN 2 WB7FKOE*M2IGT7DR C&36IR/+HCE7ASC3U3A2
GT3RWG3TJ 3LOOK*M2I7CA*M2IGT7DR 3B?LC7K2JNI+MCA"M&J3SGN*I>I+ICS3T	H7SR +HCE3B?L/C?K"M&J7JCM2 [T3O;U+D>I7YOE2.".3AWV2 ?C3RWR+CCT3OWN2M6J.1B16,NI+ZCL3SGN2 3C+A>I3AWR2 WW2 WH3AWD7DB 7RCO3E3RY6?2J*I+MCP7TKSC	H2/WY+S:.2 WK+ECP3L?O3K;IG*M3ESNZ&,7SKDC&I2/[I2 WW6
KA3E& 3NV +NCD3Z;O3EZ 7O
R3ASR6,^ 3E2 3OWS"M&J3C3L6 SRL*M2I7J3P^ O&I6/E7EWC+TCE7TKU3NF 7RWO+NCD3ASN2 WS3AORH*M6LKT+Y232I3C3AN L	L6IZ/"37C2J&I+SCZ3EORN	T6/KT3ISE* B33T7I/E?S"M&J7JCM2 ?G"M&J7JCM2 GF3T3A2MVJ7XSI2,&I+SCZ3DGT*0>I7NKO3M3A2 WR7TKUN*M2I3C3LN M7L2JGF3T3A6,RI+ACD3U	N+T>I3S
T7PR 3AWP2 	F7RSS"M&J3S3DC*M2I3C3AN +MCL7RKA2IV/3IT+ECR20> /RR .0B02 ;I2 OA2M2J7E[AE&,7HSL2I^/7EOT2 	C3FN +DCFN*M2I7J3P& 6 SDA60"J*M3I	NT&,7JOM" &.2IZ/3ISN6 WO7T^ 7HKE7E^ 3E^ +OCT3LGO3DSE2MJJ3AWS6,RI+ACD3CSR3QSA"M&J3SGP*I>I3N
E3A	T+VCE3ESN3S2 7ISS"M&J7JCM6 N3I	NT*M2IGT3D& 7NSI"M&J3DGC6 KC3DGQD*M6IOI+Z: "-612J&I+SCZ7BOAE*M2I7J3PJ 3AWS"M6J6JKC3DGQD&,3R243IWN2-GBS7E2J	C7NSI"2&,3I	N+T627BOAE*M3CWS7LSC6,NI3EWL+C7T7BOAE*M7CWX7NSI6,"I3U	N3TJ-3AWS"M6J*J*I.3^66MRJ7FWO+N3D6I+S3LN L	A2IF
+RCE+WCE+ICN3R
I+HCT7DKI7ESC3I;O"M&J7JCM2 ?G*I>I7NSO2 WYT*M2IGT3DZ 3UONT*M2I3C7LJ A	L6IJ/*/CW+TCO3L;IK*M2I3CA*M/CB7.,^I"0*M/TOC.,NI"M&J3TSA6 WBF7F2J[X3I3ED&,7HSL*I>I3C;O3T?R+L^ 3T	R3C3K+ECS7TKH3O
UH*M6MRJ3B?L/C7K3DGT"1*M3EOR/N7T3I	N/TF+2MNJ/MB220:=3X;II7T6JSD/A623DGT"0*M3DGT23R=/TGA2MRJ/TSA6=SDA606JSD/A653DGT"1*M3DGT26R=/TCA2MRJ/T
A6=SDA61"J&L.*B4"0*M2I	C/FB *I>I+WCE3AWR2 ;I2 	F3ESL" 602JRI+CCA7XWBF7F6JJIA7R2JRI+CCA7XWF7NSC6IJ/3ESA6/KW3IWT2 ?T6 WF7NSC3I;O6MJJ3GSR6,NI7DOS"M&J7JCM* 6."1&I2/?L+OCK7FKO2 WR7VKE+SCE3GGU+RCD7PSA7TKEN*M2ISSR7C2JFI+NCD/K^7"M&J3TSA2 7C"3626JNI+ZCA3CGL*I>I+IC
7NSO2 WR+VB.3GGU+R3D2 WK+ECP3L?O3K;IG*M2I7J7PJ 3GSR"M&J3TSA. 
C.6B0"M&J3DGC2 ?W7ROD.IF/*2B87WKO+D?S3B?LC7K6JRI+ACD7XWF7NSC2M.J.7B7"0&,3SGM2 3CA&I6/OI6 SI2 WR+ACD+OCR3W	R/T?E"M&J7JCM6 KT3ESA"M&J7SKDC&I2/C3E/C2 ?F7R^ 7RSI3E2 3O/C7OSU"M&J3ASN2 OT.3B0"M&J3C3L*I>I7SSE+UCP+TCO7RSE+RCY+ICF3W	R+TCE3LOOK*M6I+S3AN L7A2J*I+MCP
IN 7T	R*3>I+ICF3LOO3KSE6 WO+TB,7EKRO7R2J*I+MCS3R243IWN6IN/7KCI* CA7WKOD*M/CZ7*020.IZ7"0&02IN/L7A6JRI+ACD/CR1"0606JRI+ACD3X;UI7T6JNI3DOL*I>I7TKU3N> 7N^ 7RSI3E" 3ESA"M&J3CGL2 7CA*M2I7J7S^ 24	LN	E./^7*7B7+ICN7R[E2.N 3HOE7KWSM*M2I3C3AN M7A2JRI+CCA7CWS+M>I3ASN
 3A+SCO7TCA3EN 3HOE7KWSM*M7WSR+L3P2IGT3D& 2 KX3U[F"M&J7JOM. SW3L;IE*M6IOI7Z" 3B[U+F>I3ION3R7E7ESN6 WB+F;F2 SAD6..J
K"7&,"7672J&I+SCZ7WKOD	S2/?D+NCE3AJ 3LOOK6?2J*I+MCP7WSRL7P2J*I+MCS3W243IWN2IF/. J169R 7H^ 3OSR2 [O" 602J*I+MCS3GC+K>I7GSE* B67BSI2 C3E/C3S7U"M&J7JOM. SW3L;I+E>I3W	R+TCE+ICT+TCO7TCAE*M2I7J7S^ 24	LN	E2/WL3TN 3HOE7KN +UCM3F;I3IS"M&J7JCM* CI7C
R3C7O6IN/+ECE+ICF+WCE3AWR2 	F7NOI3HSE"M2J6MRJ3RGED&,7JOM. SR3L;IE*M2I7J7SJ 24	LN	E2//S+ICP3C;O3T?R7L^ 3OSRS*M2I7J7SJ 24	LN7E2JFI+NCD/K^7*I>I3CWH7COKU7M6JRI+ACD/K^7"0602JRI+CCA7CWSM*M3R3DP&,7JOM. SR3L;IE*M2I7J3SV 3F;U2IF/+DCD7WKO7DR 3ON 3HOE7KWSM*M2IOD3A& 
 KX3U[F"M&J7I+S2 KX3U[F6MRJ/CB3"0&,.3B0"M&J7I+S2 ?W7ROD2IR/3OWN2 3B3O/C"?*M2I7J7PJ 7DCL"M&J7JOM. SR3L;IE*M2I7J3SV 3F;U2IN/3HOE7KN +UCM.1&22 T2 ?WR7D2J*I+MCS3R243IWN"M&J3ASN. 
K.7B06IJ/3ESA2 C3E/C3S7U"M&J7JOM2 [EU7N2J*I+MCS3GC+K>I3C7O7PKA7ER 3AWP2 ;A3D> +UCR3CWH7COKU7M2J*I+MCP3IN 3ROWO7M"J*M3W243IWN.,BI*I>I3ASD2 ?T2 C3E/C3S7U2 ;A7D^ 7RSI3EF . J12 	BT*M2I7J3SV 3F;U6I^/3OSR"M&J7SODQ*M2I7J+P: "-&16IN/7KCI2 ;O6 WQ+ACD3L;I3EZ 3L
A"M&J3S3DD*M2I3CA&I2/OA6 OI2 ?N3TN 3LGE3RSE2 [A7TKE2 SSL7D2J*I+MCP7I^ 24	LN7E"J*M3R243IWN.,BI*I>I3W	A3TZ +OCR3QGU3DZ 3L
A2 ;A7DJ 3ESA"M&J7SODQ*M2I7J+P: "-616JNI3DSR"M&J7JCM* CI3R243IWN"M6J2J[E+U3N"I&02IN/7OCM3UWT6 GE7U[I3AWL3NWC2 C3E/C3S7U"M&J3CGM"M&J3DGC6 SEM	P2/OA3TGU7L	L2 C3E/C3S7U3S> 3NR 7ESC3AWP6 KAE*M2IGT3DV 7TCM2IV/3Q	U3V3A3EON3E> 3FF +LCL7WKO+DCS+ICN7AJ 7CKOD*M2I;A
DN 3S7U.IZ/2 	B+TCS+ACT7AR 3IWM6.N 3ION3EV 3Q	U3V3A3EONE*M2I	CA&I6/OI6 OA3SOO7ISA3IWV2 WW2 ?D6 SI. J16 SA* CA3T7IE*M2I3C7LJ A	L2IF/+NCD3C;O3D;E+SCE7LSA+E;R"M&J3TSA6 SEM	P2/SI7ESN3I	T+ECS3UWS3DF /R+E"M&J3TSA6 OCU	M*//A+B"=7A".+O;R+B.)*2"*3AF.+N;DB6)2JRI+CC
7CWS+M>I3AV.+Q;U+B:=7NSO2.F(2.?X3RJ.2)F=2.?X+R".2.?N3TJ.")*M2IGT3DV 7TCM2IF/6.GE3UJ.2=F(*+:(7NSO*.	B.)J-2*F(2.;A+D".2.?N3TJ.")6)2JNIM7A2J*I+MCP3IV 3F;U"M6J2J^L3C/H.,BI*I>I7FKO/MZ 2 	B3TN 3HOE7KWSM*M2I3CA6 6JRI+ACD7CWSM*M2I3C3LN +MCA3R3T"M&J3R3T"M&J3R3T"M&
7JOM2 [EU7N2JNI+LCA3C3L2 7CL*M2IGT3DN 3S7U"M&J3ASN. 
K.7B0"M&J7JCM* CI3GCK*M2M&J7NSI"2&,"0&I2/	T3S& 7NSI3I3A3IWZ3S2 7OOC2 ;I2 GP+GCE"2*M3I	N+T232IGT3DN 7T	R"3*M2I;SA*M2I7J3P& 2 ;I/IKT.IB/2 ;E+DCS7LOIT*M2IGT3D& 7NSI"2*M2IOD3AN 7T	R*3>I3USP3AWT2 T3E2 7ISS"M&J7I+S* 6."1*M6IOI3Z& 7NSI"3*M2I7J3P& 7NSI"3*M2MNJ7T	
"3&,7T	R23J-3AWS"2*M7C
R3C7O6,RI3ROW+O7M7BOAE622JKX3U[F.,BI*I>I206 7USS2 WT3R	M7NSA3E& +TF!2MNJ/MJ3*,6I"362.JGC.4B0.,FI.4B0"M6J2JWS3LOET&,"0&I2/T+ICS7RWO3T;I3EN 3HOE+KCS7FKO2 WS3LOET*M2IGT7D" 3U	N+T>I3ASN2 O^6 	T3PSE"M&J3S3DC*M2ISSR	C2I^/+ECT3SGT7TOU2 ;A7DN +ECE+ICF3S3E7ESC6 KE
RKO2 ;O"M&J3ASN. GC"0606JNI+NCA3CGL"M&J7I+S2 WS3LOE+T>I7NCO+E: 3T/A3E: 3O7R+ACL7OSU"M&J3K[S*I>I3SWE2 [I2 3F+ACG+ICSU7P2J*I+MCP7IN 3EWLC	T2/?N2.V.7XSI"M&J3TSA. 
C.6B0"M&J7KOR"M&J3TSA* 6(.7B6*3>I+ICS+ICT7A: C6?6JNI+ZCA3CGL"M&J7JCM* CI3S3E7ESC2I:/+O:.3E	XT*M2I7J3P& . 
C.6B0"M6J.JGC*020.IB1"0*M6M"J3F;U/C7T3I	NT626JOC/U7M7XWF7NSC"+612J?W7ROD6=OC+U/M"1*M3E7T7P^=3OSR/SF+6M"J3U	N3TV=7TCM"+61*JR$*$R$"$6$BZ

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