File TK20D.PA (PAL assembler source file)

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

6(R(3AWP2 ;O2:. 3A3R2 R 3AWT2:?N/VF *1B,.1^9"3*M3F?O3T
A+EB:7PKA7T^ +OB:.3B7.-N5"3*M7TSI+LCE+OCF3S7A3PWL6:N 3NOA+K	S.MNJ*7B07KKA+L" 6(WJ3IWC2 	T+M	E2 T7AOT2 	T+MCE2(;U3CWL+A	R* "(3S7A3PWL2 [O2 GT+PCE*2B,3SGNC7K*JB * B * B 6 R 3IWM2,: +OCV*121. &1*7:32 2 3UON7HR 3IWM2,. 3A3R2/GR3CWH3L:/3I/C3IJ 3E;IG*M* B * B *
B 2 WT3SWT3D& 3NF 7NSO7HKE2 ?R+O;M2 ?J+HCN3SOI+KB.3A3L2 WS3AWT3DF 7TR 3A3BE6)*JB 2 GR+CCH7IZ	3E^ +OCT3S7O3EJ 3O/O+SB.3EWV3RKY7O	D*	CS3G	O7NR 7OJ 3ESA* CA3B?O3KZ 7IORT*M* B * B " 6 *JB 3ROA7H& 3EA*MBJ3TGE+CCH+O3K2 ?Y3U^ 3IWV2 T+ECM7OSU* "(3ROA3H3E2 	G7VOE6
WO3TJ 3O/OS6)2J	K3D> +HB,3I6	2 ?G3I
N2 ?T2 GH+VCE3S7O3E* 3UOIE*M3TGE+CCH3W3E+LB,7IR 3H;I7KJ 3AC6 ^ 7ASN+ECD+TCO7H[A3EJ 3O/O3SZ 7IOR+TB,O7K2J?J+SCH+N3O* CI3D;O*	CT3W;A7TR 7HOI6 R(7HOE3ER *." 6(WP3SWH3SJ 3O/O6 
A+A	Y6MRJ3EOA7H^ 3E3L6,R 7H	E2 ?D6,N 7O& +OCU7JOU7TN +ICT3ASN2 T3I/N6 KO2 ?S7MSE3H;IG*M3ROA3H: 3O?B+D
Y3S" 3EWR* " 2(GR+CCH3L?O+KCS3A?R3USN2 ;A3D: 3O	T7COE2 T+ACT3A3L2 	KD7S6JKA3E: +OCT3PWR3S;E+T&.6MRJ3EOA7H^ 7HOO2 ?N3T" 3EWR6?^ +H
O3S6 7IOS3I
N"?*M3ROA3H: 3I/C3I& +S
NT*M3TGE+CCH3R
I+H;T2 W3OV 3LWS6 OI2 	M3S	S/N?G* " 2(GR+CCH3L?O+KCS3A?R3USN")*M3S7O3E?B+DCY3W?H2 	D7DSN2 ?C+MCE+TCO3SC3O3O2 ?T7D	A2M*J3OS2 W3O& 3S& +TB 6(R(7OR 3EOAH6)2JWT3AC2 W3O& 3S& +TB?* "(3L?O+KCS+ACT7JOOH6)2J?J+SCH3W?H6 OI2 T+ACT3N7AE*M3TGE+CCH7YWO2 WT+LCLM7E2J?J+
CH7M	A+BCE+ICT+ICS3A?N*	" 3A?N3TWH+RB)6 KD3A?GN*M3TGE+CCH+NCO3IR +O
N7TR 3H;I7KN +OB.3S7O3E?B+DCY7WSI3HF * CT+ICN7HOI2 GNM7E2J?J+SCH3J;E3N[IE7R2JWT3AC2 ?N2 WJ3N	N7FKE6 OI* CA3J: 3AWM6,R +H3O2 ?Y7UJ	7EJ 3IG+T" 2(	H7SN 7ISS+E	R2M*J3O?O3O;H* " 2(?L7OOK6 SA2 ?J+S	H2M*J3OS2 ?J+HCN* "(7SKO3T> 7FN 3I
N7SR +HCE3N7AE6)2JGR+CCH7YOE2 ?J+H;N2 ?C+MCE+OGN*!B!* "(3SWH6 KC7IOE6 WO3T2 3OSU6,N +H
E7SB 7L	A3I
N",*M3SWH2 ;K7OOW2 T+ACT3JO+NCS+ACT3H7OE6)2JWT3AC2 ?J+HCN7HOA* CA3C3O+DB.+H
E3SF 3T" 3OWM2.& 2 ?D+NCT3T	H+NCK+HCE3C;A2 WH+ACR7YWO6MJJ3AC2 	N3C	K2 GC3NN 3OWM6MRJ3EOA3H: 3I/C+ICS3D	O+NCG3TWH2 GG+M;E* CI3T	H+NCK3SWH2 S3O3U3DN 3OWM2 GB+CCK3S?ON6.*J"(7KKA3L& 7SJ 3ESA3I
N2 	H3SJ 3O/O")*M3TGE+CCH+OCK3F;I3IS/E?D2 W+ECN7YWO2	WR2 	F7NOI3HSE6,B +UCT3TWH2 ?B7OOK2 ;O2 TE*M3SWH+L3F2 [O2 N	7AOU7E^ 3ER +O
N7T^ 7ASN2 ?T2 WG3T* 3UOI3E> 7NR 3H7E6.^ 3ER +O
NT*M2(.(3A3R2 GS+YCS3S7O3ET3I
N2 ;U3CWL+A;R2 WH2 GH7NOD2 WT3AC* CA3B?O+KB,3SWH2MRJ7OOE2 ?N7TR 3AWK6 SI")*M3W;A7TR 3O^ +ECT3TWH3MF +LCL3S	T7C	K".*M7KKA3L: O*M3ROA3HF +HB-3T	H3S> +NCE+ICS7FKO2 	N3C	K* "(3H3O+DCS+UCP3B?O+KB)2M&J2 	W+LCL3HSI3E& 7TV 3NWD3R6 3YJ 3O/O6MRJ3EOA3H> +KB,7W	H2 ?D
NR	2 ?Y7UB +UCT3TWH2 ?B7OOK2 ;O2 T3EZ 3L?O7RR 3H;E6 KO2 ?S7MSE3H;IG*M6(R(3OF +LCL3KSIS6)2JWT3AC* "(+TCO7KKA+LB)3W3E3L: +OCT3TWH+R3E2 ;I* CA3NGE7TB 3IWL2M.J3A3R2 	G+VCE+MCE*.:.6.V(3N3C7EKA*)" 2(GK+RCL3GWO3S> 7VKE2 ?T2 GR3CWH+LB,3H3O3D;I3G" I7S2J?B7OOK2,F +
CD3RGE3CWH3SZ +OCR7HKE2 ?B7OOK")*M3TGE+CCH7ASL3OWG3TWH3R& 3NF 2 	P+L3E2 /O2?F +NCD3TWH7N^ 3EN +ACN3L?O3KF 7TR 3H7E2 [A7TKE*M"J6(SS7ASR+ECD7TCY3I
N2 GD+TCA7ISN/O" 3EF /TF .2R:"06)2JGR+CCH+N3O2 ?N2,: +OB,+N3O2 GM2-GM* "(3SWH6 KP3OWT7SOT6 OA2 GK+RCL3RGE3CWH3SZ +OCR7HKE2 ?B7OOK")*M3TGE+CCH3I^ 7UOE7SJ 3AC+ECL+ICS3S	T+LCL3L?O3K;I3GF 3T" +E
R3S. 3A3R6MJJ3AC2 ?N2,: +OB,3TGH3T> +N
E3SZ +OCR3NOI+KCI2-: 3I/C6 R(+HCE7WKO+DB)* "(3ROA3HV 3X3P3A;I7SR 7HSA6MRJ+HCE3B?O3K" 7ER 3O/O2 GW3S: 3I/C7IN	")*M3TGE+CCH7BSU* CI3D;O*	7T*-B-3I6	2 ?N7TN 3UWR2 	N3C	K*	CS3C7O3I
N2 	R7GSH2 ?N+WB.7IR 3H;IK*M+WCE7BSE7TKE2 GH+VCE7OKU3J	U+CCE7WSI7HWO7T^ 7ASI3I
N2 ;A7DR 3H;E2 W+ECN3SWH2 ?C7MOE* 
IL7L2J	G+VCE7HKE6 ^-3H;E*-" *(CT3L?O+KCS+ACT3C?L+C	K3J	U+CCE3ASN* CA3C?O3KWI2M*J3OS* CI3W;A7TN 3OWM6 WJ3IWC2 ;A+D6 +U7H* CI3W;A3TF 2 ?C3O	KE*M3TGE+CCH3W3E7L^ 3H;E2 ?Y3UZ 7ION+ICH7WSI7H& 7OKU2 ?B+O3K6 WP3T& 3T> +NCE3TWH2 S3E[L2 ;A7DR 3H;E2M&J2	3L2 ;K+OCW7Y
O2	WR2 WR7A	D2 ?F3R* 3UOIE*M7JOO3HF +A7H* "(3POI+KCS+UCP3B?OK6)2JWT3AC* "(3OWP+NCS3C?O3KWI+SB,7KKA3L" +ACS3L[E7TR +HCE3TKA+L	E6MRJ3EOA3H. 7SKA+LB,+ICF7YWO2 ?W3USL2 	L+KCE3J	U+CCE7IR 3H;I7K& +OCU3S?H3USL2 	S7T^ 3IT6 OU2M*J3OS* "(3LGE7VOE2 GT3BWL2 ;A7DB 7UO
2 ?B+OCK+OCN3SWH+L3F2 W3IC2 GK+RCL7AOL3O" +ACS3D;OE6)2JGK+RCL3I6	2 ?D+NCE7WSI7HR +HCE3B?O+KB.+N7A2 GN2-: +AB-+NCA2(*(3OS2,. 3A3R2 ?C+MCE3BOA7KR 7OR 3A3BE6,2JGK+RCL3CGH7NOT")*M7JOO3H" +E3Y* 
W7YWO2 ?P+UCR3S7O3E* 3UOI3E& 3NWH/R?E6MRJ3EOA+H" 2(GP3SWS3S> +UCT7CCU+SB)+N3O2 WW2	WR2 3A3L^ 3O;N7AN 7TKA7TR 3OWG3TWH+RB.+W
E+RCE2MFJ+LCL3G;O+NCA3W	A+T^ 3T3I7LJ 3AC+E
L3SZ 3I	N3SWH+DB.6(J(3AC+E
L2 WR3A	D+NCG7HKE2 ?B+O	K6MJJ3AC+E3L2 ?C3USL2 ?Y3U" 7UKR7YV 3PF 2 	L3T3T3EJ /I?T2M*J3OS* CI3K?N+WB,3I2	7LR 3AWK* CA3C?O3KWI* "(3TGE+CCH3LGE7VOE2 T7ER 3S3BE6)2JWT3AC2 ?N7T& +ECT3PWL3AWS* "(3C7O+ECS3OWV7RR 7OR 3A3B7ER 7O^ 3IWP2 GK+R
L3S: 3OWS")*M7JOO7H^ +HCY7NSO6MRJ3EOA+H^ 7CWA+SCE+W
E+RCE7NSO2 WR7A	D2 ?T6 SS7ASR6.J 3AC+E
L7SN 3T3I7LJ 3ESA3I
N2M*J3OS* "(3RGE3CWH3SZ +OCR3C?O3KWI2 &-3N	D3S	T7NSC6 KW3I	T+N7G")*M3TGE+CCH2(2(7E[A+ECS3TKA+LCE+TCO7TKH+OCW3KWL3EWN3XF 7W	A6,J 7EWT7RON2 	S+TCS7D
ON6)2J?J+SCH3M/A7EN 3A	T3S	F+ECD7SWO7NOD* "(7KKA3L*,3OS6 KP3EWT+NCD+TCO3D	R+N	K6MRJ3EOA7HJ 3AC+E3L2 ?Y7UZ	3EF 3L?M+SCT3F;I3IS/E?D6MJJ3AC2 WYS*M3TGE+CCHO7K2JGR+CCH3TWH3Y" 3AWV2 ?T6 V(3N3C7EKA")*M3TGE+CCH6(N(7TKA+TCS3TOI3K	L+NCG7JOO+H& 2M*J3OS2 ?N2,: +OB,+N
O3S?T7PR 7HSA* "(+ICN7AB 3LWA3SSE6,N 3QWU7E	K2 ?V3IWC")*M3TGE+CCH+R3A2 GR6,J 7AN 7TCO2 T+ACT2(N(3O	P+ECS7JOOH6)2JGR+CCH3AF-2-& *	CM7JOU3TZ 3I	N3SWH3D: O7W2JWT3AC2 /O6,B +UCT7YWO3RJ 3O/O6 
A+ACY6(J(3AC+ECL3GWO3S> 7VKE2 ?T2 T7EN 3H3EF6)2JGR+CCH3T	H3S& +S
N7TN 7UCP3OWS7DR 3O^ 7OR 7HKE+E" 6(E3PGL3I;S2 T+ACT7JOO+HCJ7PSU2 ?BO7K2J;I6 KW3I
N2 3P3AWC")*M3TGE+CCH3YGE+HB,7YWO2	WR2 	R7GSH6.R 7H	E2 ?D2 ?G6 [O+ECR3TWH+RCE2(F(7N
S3E	R+NCG3ROA3H3E")*M7KKA7LR 7HOI2 ;O7EN	2 ?F7RJ 3AC+ECL6(R(3EOA7HB 7UOT2 GR3CWH7LN	6 WC3PR 3O;W2,2 3O/O7SV 3PF T*M7KKAL6)2JGK+RCL+E7H2 ?Y7UJ	+E" 3W	R3T;I7GV 3N3C7EKA2)F 6 WC+PB?2(.(3A3R2 ?L7OOK6 [O+ECR+TCO3TGE+C	H6MRJ3EOA3H& 2 ?D7NR	2 T3I/N* CI3RGE7L	L7Y
 7ASN2 ;A3Y* 3UOI7ER 3OGD+YB,3TGH7T& +OCU6(N(7TKAT7S2J?P3U	R+N	G2M*J3OS2 WH7Y& +O3U* CI3NWE7DN 3OWM6 WJ3IWC" *M3TGE+CCH3I6	6 WJ+SCT3G;O+NCA7SSI2 ;A7DR 3A/L2 ?T2 ?Y+UB.3T	H3S& 7SR +HCE3K;I3D> 3F* 3UOI7E& O7U2JWR3A3L+YCY+L3I7EJ 3EWM3MWB+RB.7FWR+ICT3P;U+C;H2
GK+R3L2 GC7N& +OCU7SSI2 3A7LR +HCE7W	A2 ?DW7N2J;I2 ?Y+UCR3CGH+ICR7WSI7H& 7OKU2 WF+ECT+ICN3F?R+N;T* "(7KKA3L2 3E;A3SZ 7O
R3ASR2 ?T6 OA3KZ O7R2J?C3O	KE6)2JGR+CCH3IR +IGD* "(3ROA7HN 7IOT2 T7E^ +ACY3TGE+CCH3A/S+ECD7KKA7LR 7ON +I	T6MRJ3EOA3H> +HB,3TGH+NCK7YWO* "(+TCO7KKA+LB,7G[I+ECS3H7I* CA3C?O3KWI")*M3TGE+CCH7H
O6 OI2 T/A?T* "(3TGE3H2 3O/O3SF 3T* 3OS2 W7ON	3EV 3A	T+NCG7HOI2 ?C3O	K+EB,3W	H3SWP+R	S2M*J3OS2 ?GO7D2JWT3AC2 ?GO7D2JWT3AC2 ?H7WN	2 ?Y7UOR* "(+TCO7KKAL6)2JGK+RCL3G?OD*M3TGE+CCH3G?O+DB.7H
O*	CS7YWO+RCS6(R(7OJ 3AC+E	L6MRJ3EOA3H& 7TN	2 /O2.& 2 T3I/N7M	A+BCE3I2	3L" 3AWV2 ;O+E" 2(GR+CCH3NSOS6)2JGK+RCL7H[A3E> +NCE2(N(3O[N3I7R7S^ 7HSA2 WT3AC+ECR3SGYS6)*JCT3M7M* "(3TGE+CCH7HOA* CA3C?O3KWI")*M7KKA7LR 7HKE7EN	2 ?M+RCE3T?O* "(3L?O+KCS7ISN3OF 2 GP3CG
+GCE+OCF3C?O3KWIS6)2J?J+SCH3ASN2 WG7TR +O:.6.^ 3E2	3L" 3AWV2 T+ACT3OWN. >(*)" 2(?P7ISN3SF 2 ?C3O	K3E& 3NJ +A3G6MNJ3PGE+KCS3UON3LGE7R	L")*M3TGE+CCH+O3H2 T+A
T3SZ +OCR3NOI+K3I2 WW2	WR2 ?G3NGN2 GS+VCE3OWN2 ?F3R: 3I/CI*M7JOO+H^ 3T3I7LN +HCE3C7O+ECS3BOA+K" 6(SS3AWT3M;E3T> 3FF +C	T"M2JBZ

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