File TTYST.PA (PAL assembler source file)

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

6/R +TCY7P
O+ECR3C;O3T?R7LR 3A/S"I&I.1F/.7^/"8*M"M&J7VKE/SF="M6J6JR/3A/S2 GD+TCA3B?L/C+K"M6J6JRI3A/S6=RI7TOYT*M6IWCR&=7T	T3S[TL7D2J&I7N
IT&="0*M"M6J"J*M./^12-GJ/N^-*8B:2 2(+H	N*M>J*I&12 ?N3PV	7DR +HCE3SGT7RWT7PR 3IWM+RB,7FKO2 WD7CKW3IWTR*M"M6J"J*M*M>J6%SR6IST7YSS* B-3T3E7E	T+PCE3SGT7RWT7PR 3A/S*M>J*M>J*M>J*M>J6%
T2IT+ICS7RWO3T;I3E& 3SN 3A3L+ECD+BCY3OT+ECR7MOA7TR 3A/S7S^ 3H;E*M>J2IWM3SGS7GOE6 KA7ER 3O2 3O
G+ECD+OCN3TWH2 WT7LSE3YWP6.N 3IONE*M6/RI+HCE3T3E7E	T+PCE3DWO3S: +OCT3W;A7TR 3OJ 3E2 7ESF6 WR7NWNN7G"J&/3A3L2 T7ER 3IWM2,& 3T& 7SR 3U;R+ECD+OCN+BCY3T	H7SR 3A/S6 OA*M>J2IWN3EWD+DB.2 W+ECN3TWH+RCE3AWR2 ?N2 ?M+RCE7MOE3S
A+ECST7O"J&/3L
O6,R +HCE3T3E7E	T+PCE+ICS7TKU3NSE2 [OF6."J6/*JV/T	W7ASF+ECR7TKU3N;I3G> 7NR +HCE3T3E7E	T+P3E2 T+ICS7TOA3K6 3OWVS*M6/RI+HCE7MOE3S
A7ER 7ESX2 ?T* CA3LOO+ACL3B[U7FKE2 ;A7DB 7AOSE7S"J&/3TWH6 WB3FWF7RR 7OR +HCE7ROT68R +TCY3H;A3DWL+RB.2 T3EN 3A3L3I
N*M>J2IGT+SCK3UWS+SJ 7T	T+SKT6 E7ASC+LCY3TWH2 GS+MCE+ACS3TWH6 SRS68"J&/7T	T2 GH3N3D+E;R*M>J*M>J6%
T2IT3EZ 7IOR7T^ 3OSR2 [O2 T7ER 7ESX2 WM3SGS+GCE+ICS3CWH3CWKD*M2/ZI+OCR7AN 3POE3I3A2 ?C7NKT+OCL3CGH3ROA7TKE2.& 3FJ 7IOT* 6025> F*M6/RI+HCE7FKI+SCT7WKO3DN 7OSN3A;I3SF 6 6"*"B,7BSI/SZ .-F1*M>J6IKA3ER 3E?C3DSE6 OA6 CS3E	C+ACL3F;U3C	T7OON2 ?T2 WB2 ?DN7E"J&/3B[
3OWR2 T7ER 7ESX6 OI6 KP7ISN+E;D2 [I2 	B+TCS.0V-2 ?D2 ?NT*M2/NI7OSN3A;I* CA*"K]6,R +HCE7WKO3D& 7SB 7AOS+ECD+OCN+TCO3TWH6 STY*M2/"I3ASN7LKE2 	W+TCH3TWH2 WR+SCT+OCF3TWH2 WT+X;T*M>J*M>J6%
T2IT7EJ /TS2 OM7RR 3A/S2 ?D+ECS7NSO6 OU+EJ 7T	T+SKT2 	S3NWC2 TE*M2/6I+CCR3DWO3S: +OCT3I	N3AWT6 WO7TWP+TB,7BSU2 ;O+LCY7ROE3P;OD7S"J&/+TCO3OWP7RSA+OCR7ESN+R;Y6 R 3ON 7O[N7EOR7E^ 3IT2 T3E6 +C3R2 TE*M2/>I7PKE3A?T3R" +ACS+TCO3M;A3U3A+LCY7TKU3N> 7NR +HCE3T3E7E	
P7E"J&/7WSI7HR +HCE7HKA3DGW+RCE3S	W3TC".*M"L*M"/*M6/R%3WNI7UKR7ESN+LCY3T	H7SR 3A/S2 GC3N?N3TJ 7EV 3SSE2 ?F7RR 3EWL7TCYE*M2/&I7NWP+TB.2 ?T2 ?D6 ST3Y& 7NWP+TB,+ICT+ICS3NOE7EOS7A	R2 ?T2 GCL7L"J&/3T	H7SR 3A/S2 	F7RSS2 	W+TCH3SWP3CGI3LN 3OWD. F"6"R 7OR 3U;R2 ;
*M>J2IT7ER 3EWL7TCY7EB 3OWW+RB,3TWH3NN 3A3L2 T7ER +TCY3H;A3DWLR*M2/RI3IWR3C3T7YR 3OR 7OR +HCE7DOE3IWR3D& 7NWP+TB.2 [A7TKE2 T3E& 7NWPT*M2/"I+ACS3BWE3NN 7OCM7LSE+E3D2 T+ICS7TOA3K& 3SN 3A3L+ECD7WSIH*M6/NI3POE3I3A2 ?C+DCE*"J22 W3IC2 	W+LCL7TKU3N> +FCF3TWH2 WT
LSE3YWP*M>J2I?P7WKE*.B 7NSO7ER 7HSA2 GC3L	L+NCG3T	H7SR 3A/S2 	W+TCH3SWP3CGIL*M2/NI3OWD+SJ *1B"3ASN. J"2"> 7N	L2 ?C7NKT7OOL2 T7ER 3EWL7TCYE*M6/BI3OWW+RB,+NCO7TE3T& 7SB 3R;I3TSE".*M"/*M"/*M"/*M6/RI+HCE3SWP3CGI3LZ 3UON3T?I+NCS7CKU3R;E7T	L2 WD3F;I+ECD3AWR":*M
/*M2/NI3OWD2IZI3UON3T?IN*M"/*M*/BI61RI3U;R2 WT7LSE3YWP2 ?P7WKE2 ;O2 ;A3DV 7XSI2.: 7OR 7ESX*M>J2I&I7SB 3R;I3TSE2 	W+TCH3T	H3SN 3A3L".*M*/BI62RI3U;R2 WT7LSE3YWP2 ?P7WKE2 [O3FF +NCD3E	X+TB.+NCO7TET*M"/&I+ICS3P	R3NWT7D^ 3IT2 T+ICS3C3AL6."J&/23>I3P;E2 T+EJ 7MO
3T6 3O	N7TKO2"& 3NWT3R?L+CCK3B[E3OWR*M>J6IBI3R;I3T;I7GR +HCE7TE3T6 7EOS3AWG".*M"/*M"/*M"/*M"/*M6/RI+HCE7MOE3S
A3EZ 3O7R+ACT7FKO6 R"7TOY+TB"+ICS3IWD3N	T3C3A2 ?T2 TE6 "J&/7MOE3S
A3EZ 3O7R+ACT+OCF3TWH6 ST7YR 3A/S".*M"/*M"L6/2JZI3I3E3DN +UWR"160*J*I7T	T3S3TO7C"J*M3SGT+R3T2IGCL*M2IWR3C	EV&I2/GT+KCE3TWH2 WM3SGS+GCE3O[F2 T7EF 2M6J3ASDR&,"0&I2/WG+TCS3ASD7ROE3S> 3F6 7EOS3AWG"M&J3DGC6IOM3GSC+F>I3FWI+LCD+OCF3M
S2 ;I2 OA"M&J/A
C.7V7"M&J3TSA2IGM7DKD"M&J3DGC2IWM3V3F+G>I7S[A3E6 7EOS3AWG6 [E7ESN2 3F+ACG3ASD7ROES*M2I7J3SNI3D7FS7G6JRI+ACD3I6I3ASD+R>I7FKI+SCT7WKO3D> 3F6 7EOS3AWG6 OI2 3F7AOG".*M2IOD3A:I3FGLG	S2/GS+VCE3TWH6 WF7NSC3I;O2 ?C7NKT+OCL7WKOD6.2J&IS	Z3MSAD7R2J&IS	Z3MSAD7R6JRIA	
3N3F7AOG"M&J3R3T"M&J3SGM2 3CA&I2/	B/TF .0B02 [O2 3F+ACG7WKO3D& 3N	D7CSA+ECSI7F2J*IM	P3SGT*1>I7MOE3S
A3E> 7RB 3O;I7TKE2 ?T6 SI2 ?F3L?L+W;S"M&J3TSA" 	I3MSAD	R2/GW7SB 3O;I7TKE2,^ +ECT3RGE7LR 7ESX2 SA3DWR+S;S"M&J3DGC2IGM7DKD"M&J3TSA2 [N3L
A+S>I3R7E3OWV2 ;I7DKI7ESC2 ?P7ISN+ECR7BSI".*M2I;A+D" .6^7"76)2JRI+CCA3N3F7AOG"M2J"/*M"/*M6/NI7TKA7TV 7PR +HCE3T3E7E	T+PCE7HKA3DGW+RCE3ASN2 C3E/C2 ?FR*M6/NI3POE3I3A2 ?C3MGM+NCD3CSOE7S"J6/"J6/"J*M3SGT"1&,3C[D6 WCR*M"M&J7JCM6 SSA&22/WD7CKW3IWT3R& 3SF 3LGW+YC
+UCP"!6!"J*M* B 2 [I3D[E6ICE3LWTS	T2<7J7PN /TKA*>>I7T	T6 OI6 CU6 SA6 CE+LF "!*M2IKD/RWO"5&I6/OI2 T7ER +TCY7P
O+ECR+OCN7N
O" 6?2JFI+NCD.(B4*0&0"M&J3SGZ2 3CA*M2I7J7PN /TKA6I&/+E3S2 ?G2 ;O".*M2IOA.4B0"0&I2/?N6,R 3U;R6 SI2 ;O".*M2IKD/SWO"5*M2I3CB*M2IGCL&I2/?G2 WT+LCL3TWH2 3C3O/C2 GT+SCK+TCO3D3E+ACYU7S6JNI3ESNW&I2/?F3RF 7BWO/TF 2 WS3C;OD6.2JNI3LOOK*M2I3C7KOMG*M3SGT"2&,7JOM2 SC7F
M+G>I7SSE2 T3ER 3AGT2 	F3ESL2 ?T2 T7ER 7ESX".*M2IGT3D& 2 GM7DKD2I^/+ECT3TWH2 	F7RSS2 ?W+RCD+OCF3TWH2 WM3SGS+G;E"M&J3C[D6 WCR&I2/GD+TCA3FWI+LCD3BOA7KR 3O" 3EWR".*M6IGML&I2/GSV7E2J6IQ	A"M&J3ASN. ^(.7B0*)>I3L?O3KF 3TJ 7IOT* 60"56.6JRI+ACD*(J-/]^&.7G^*0&02 &/
S& 7TR +HCE3SWP3CGI3LN 7HKA7ASC+ECR*"K]" 6?6JNI+ZCA3CGL"M&J7JCM6 SSA&32/?N2,^ 3O> N6."J*M6IOI3Z6 3ASD+R>I7YOE2,& 7NKC3EWM+NCT3TWH2 WT+XCT3P	O3NWTR6.2J6IQ	A2IR/3E?C+DCE3TWH6 CS3E	C+ACL3C7O3M;AD6.2JFI+NCD.(B0*1&72I^/+ECT3N7U3E	R7CZ 7A[L3E> 3FN 7HKA7ASC+E;R"
&J3TSA* 6("1&)6/OI2 T3EZ 3UON3T?I/N6 . F"."> "M&J3SGZ"M&J7JCM* .."3&I2/?N2.^ 3O> N6.2J&I+SCZ7FOA7TE6I&/+E3S2 WS7TR +HCE7FOA3TV 7XSI2 3F+A;G"M&J7JCM2 ?E3R3P+Y>I+GCO3E	X7T^ 3IT2 T7ER +TCY7P
O+ECR+O;N"M&J3TSA* 6("1&)6/OI2 T3EZ 3UON3T?I/N6 . J"."> "M&J3SGN"M&J7JCM2 ?E3R3P+Y>I7YOE2,^ 3OV 7XSI2 ;A7DR 3U;R2 [O7FR +HCE7T	T".*M2IGT+D" *-&12I&/7SR +HCE3F;U3C	T+OCN*=J *3B""?*M6I+S3AN L7A2J*I+MCP3SGT*3>I+N3O2 ?G2 ;O".*M2IGCL&I2/WY+SB,+GCO3OWP7NR +HCE2
GM+SCT3M;O3I?TR6"6JNI3ESN*I>I7ISN3E3R3O/C".*M2I;I3LOOK*M2I;I7LOMG*M6MNJ/TOA2,*I+MCS7M[O7ET2I^/3O6 3OWV2 T7EV 7SKE*	CS7TE7TR 7OR +HCE7T	T".*M"L6/2J?E3R3PY&,3C[D6 WCR&I2/WH+RCE+ICF+NCO7ICN+UCT+OCR7ICN+UCT3F;I3ISE7D6JRIA	D3M
S3C[D"M&J3DGC2I[M"M&J3TSA2IWM3V3F+G>I7GSE2 T3EF 7DKD7EOS2 [O2 T3EV 3V;E3TZ 3L
A",*M2IGCL&I2/;A7DB 7OSS2 T7EN 3ESN+E
R3SV 3V;E3TZ 3L
A"M&J7POOT&I2/?S2 WH2	3L2 ;K+OCW+WCE7GSO2 	H3S& 7NWPT6.2J[M.,BI*M>J*M>J*M>J2I?P7WKE2 ?D+WCN3TWH2 WT7LSE3YWP2 W+ECN7OSU7PSU6 OI2 	F7NOI3HSE".*M"/*M"/*M2I3CB*M2IGT3DZ 7ASSE	X6/OI2 T3EZ 7ASS6 E+ICT3FGL7GN +ECT"?*M6I+S3AN L7A2J*I+MCP3S?T*2>I7YOE2,N 3LGE7NV 3P
 +NCD7RSE3U;R".*M2IGT7DR 3T7YS	G2/?N2,& 7SR +HCE3T3E7E	T+PCE7ASC3IWV2 ?N/W> "M&J3SGN2 3CA*M2I7J7PN /TGO2I:/+OB,+GCO+O;N"M&J3C3A*I>I7YOE6,^ 7ASI6 R	3I3L6 SI3SR 3OWN".*M2IGW3IWT"M&J7T	T3M
S*MBJ* B 3ISFE	F3E3P7TOE/T2I7JCM6 SS/O:22IZ/+OCR3R;U3N;I3GF 3TV P7L6JSS+O212ISC/FB *I>I7SSE2 GD+TCA3FWI+LCD+TCO3EWXC6.6JRI+ACD+I" 7T	T7S;T226+7SSG+B	L6 N/+ECE+ICF3A?N3TWH3R6 7EOS3AWG"M&J3C[D6 WCR&I6/OI2 GW3I	T+NCG+ICN7OKU6 WQ3EWU".*M6I+S3AN L7A2J*I+MCP3S?
*2>I7YOE2,* 7USS2 ?G2 WR3C	E+VCE+ICT7N
O".*M2IGCL&I2/?N2,^ 7OR 3E3L2 T3EN 3LOO7KR 3A/S2 ?T2 WD7L	A"M&J3S;ED&I6/OU2 ?F3RF 7BWO/TF 2 WS3C;OD6.2JNI3LOOK*M2I3C7KOMG*M2I?IF&I2/N"+AKL2 	W+LCL7ROE7TKO3E& 3NWT7RWR7POT2 ;O".*M2IGT3DN 3L7KS	G6/OI2 T3EN 3LOO3K6 7EOS3AWG6 SS3I3L"M&J3SGN2 3CA&I2/WP3N	D+NCG
?*M2I7J7PN /TGO2I:/+OB,7ROE+ECT+ICT7FKO2 T7E^ 7ASI3MJ 3E?LW6.6JRI+ACD.(B4*0.07T	T+S	T6 N/+ECT3TWH2 3C3O/C2 WM3SGS+GCE3EWV+NCT3FGLG*M2IOD3AN 3L7KS	G2/WP3N	D+NCG3S;I+CCE2"WS+NKD2 ?D+ECS7NSO".*M2I	C/FB *I>I+NCO7MOE3S
A7E& +E3T2 ?G2 GW+ICT7FKO2 	E3TWHR*M2IGW3I7T*I>I3TWH2 WD7L	A2 ?T2 	T+MCE7OSU6 KO* CA7MOE3S
AE*M2I?E7R
MT&I2/?T2 ?C+MCE+I;N"M&J3TSA2 3C7KOM+G>I3AGW+KCE3AGG+I3N2 	D7D^ 7ER 3IWM6 WO/T> "M&J3SGN2 3CA&I2/?N2,2 7E[A7ER +HCE7T	T2 ?P7WKE2 ;O".*M2IOA.4B0"0&I2/WY+SB,7P
O+ECR7D
O7NR +HCE7T	T".*M2IKD/CWO"56I6JSS+O222I?IN&I2/GB+CCK+TCO3TWH2 ;I7TKE7UCP7T^ 3O3RD6.2JNIL7B2JRI+CCA7FOA7TE2IN/3LGE7RR +HCE7FOA3TV 7XSI2 3F+A;G"M&J3DGC2 3C7KOM+G>I3CWL+ACR3TWH2 3C3O/C2 WD7L	A6 [E7ESN2 3F+A;G"M&J7JCM6ISS7ASR2I:/3N;N3N;N3N;N3N;N3N;N3N;N7ESX"!
M"L6/2JSC7FOMG&,"0*M3M
S3C[D2,"IL7T2J*I+MCP3IN 3D7FS7G"J*M7FOA7TE.,BI*I>I7FOA3TV 7XSI2 3F+A;G2M6J3E[V+L3G"I&02IF/7DKD7EOS2 [O2 ;I7PSU2 WM3SGS+GCE3EWV+NCT3FGLG*M3N3F7AOG.,BI*I>I7TE3TZ 3UON3T?I3NN 7OSN3R3O2 ?WR7D"J*M2IGPG7E*J>L*M>J*M>J2I?M+VCE3TWH2 GC3L	L+NCG7TOA7KN	2 WT+XCT+TCO3
WH6 STY*M"/*M"/*M7M[O7ET.,BI"M&J3TSA2 GM7DKD2I^/+ECT3TWH2 WM3SGS+GCE3ASD7ROE3S> 7NR 7HOI" *M2IOD7AN 3TSAD	R2/GP+G;E"M&J/AWC.7^7*I>I3R7E3OWV2 T3EN 3R2-3FF 3FWT7RR 7ESX2 	B3TF N7D2JFI+NCD3N3F7AOG6IV/3PGD+TCE3TWH6 WC3RWR+NCT3F;U3C	T+OCN7WKO7DR O*M2IGT+D" .2B
"0&)2/GS3Y: 3ON 3R2-F6.2JRI+CCA3FGLG7S2J?M+V212IGT+D" 2-KD3U3FN&)6/KT7AON7FKE2 ?L+OCP7CWO3NWTR6.2JRI+CCA7M[O7ESC"M&J3TSA2 >(7UTT&)2/WS7TV 7PR +HCE3LOO+ACL3B[U7FKE2 ?P7ISN+E;R"M&J3DGC6 WB7FSPR*M7M[O"2&,7JOM2 SC7FOM+G>I7SSE2 T3ER 3AGT2 	F3ESL2 ?F7RR +HCE7TE
6.6JRI+ACD7IN 3TSAD	R2/WG7TR +HCE7NE7T^ 3OSR2 [O2 WTX7T2J&I+SCZ3SGT7DKD"M&J3C[D6 WCR&I2/GD+TCA3FWI+LCD3BOA7KR 3O" 3EWR".*M2IOD3A& 6 WB7FSP+R>I7PSU6 SI2 ;I2 T3E2 3OGC3LJ 3U[F+E;R"M&J3TSA* CI3B[U7PKT2I^/+ECT3TWH2 WT+XCT7WKO3DJ 3A/C".*M6IOI3ZJ 7UCFT7R2JFI+NC
.(B0*7&76I^/+ACS3TWH2 WT+XCT7WKO3DF 2 WT3R	M7NSA+OCR"?*M2I;S3AN L7A2J*I+MCP7M[O*3>I7YOE6,R 7HSA*	CS3TWH2 ;E3D> 7FR +HCE7TET6.2J&I+SCZ7M[O7ESC2I:/+OB,+ICS3TWH2 ?L3C3A6 WB3FWF3RZ 3U3L" 6?2J*I+MCP7M[O*2>I+N3O2 WG3TF 7NSO7HKE2 ?W+RCD+OCF7TET6.2JNIA	L6I&/+E3S2
WS+NCD3TWH6 WB3FWF7RR 7OR +HCE7T	T".*M2IWS7N
D*I>I2(;A7D^ 7ASI6 R	+ICL+ICT3D;O+E&."M&J7T	T"M&J7T	T3M
S"M&J7JCM2 ?MV&12/?N3W^ 3O^ +ECT3S7O3E6 3OWR2 WT+X;T"M6J2J?M+V232IGT3D: 3FGLG	S2/WR7SSE2 T3EN 3R2-3FJ +I;T"M&J3DGC2 3F7AOG"M&J3C3A*I>I3S;E7DR +HCE7LOA3TJ 3U[F+ECR+TCO3TWH6 STY6.6JNI3ESN"M&J7T	T"M&J7T	T3M
S"M&J7JCM* CI7M[O7ET6IJ/7EWT+R;N"M2J"/*M3SGT7DKD.,BI*I>I3ASD7ROE3S> 7FR +HCE7TE3TZ +OCR7OSU7PSU".*M7M[O7ESC.,BI*I>I3L?O3PN 3O;U7TKE".*M3B[U7PKT.,BI*I>I3LOO+ACL3B[U7FKE2 ?P7ISN+E;R"M6J2JKD3U3FN&="6&02I2/3OGC3LJ 3U[F+ECR3L;E3GT".*M"M6J2J3C7KOMG&,3Z3B3O/C" &
6/WT+RCN+O?N3O[F2 WD7L	A2 WM3SGS+G;E"M&J"0*M"I60.JFI"0&02IF/7BWO/TF 2 WS3C;OD6."J*M3I3N3M
S6,* 3B?L+CCK*3>I2"GM+SCT2 ?M7NSI+OKR2 ;I7TKE3LOOK*M.IB2"060"J*M7T	T3M
S6,*I3B?L+CCK*3>I3T3E7E	T+PCE7TE3T6 7EOS3AWG".*M3FGL+G3S"I60.JBI2M>J7UTT&,3Z3B3O/C2 KD3U3FN*M"I&02IJ/3U[F+ECR7TKE3M;I3A?TR6."J*M.I6$2$2=/H7N*$R="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