File RT01.PA (PAL assembler source file)

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

6/J /TF02 ;I7TKE7RCU3T" 3ASN7LKE2 ?R3U	T+NCE* B * B * B * B . J 24*-+U7L"768"J6/"J6/"J*M6/RI+HCE/RCT21" 3ASN7LKE2 GG3TWH+RCS7DSA3AZ 3R7O2 T7EJ /TF02 GDT7A"J&/7TKE3M;I+ACL7FKO6 SO7HKE2 GT7SOK*.B 7ASF+ECR3I	N3TGI7L+I3A	TO7N"J&/3T	H7SR 3A/S2 GW7IOT2 ?F3RF 2 
M3SGS+GCE3F?R3MF 7NSO7HKE2 GT+S;K*M>J2IW+ECN3A6 7EOS3A
D3E& 7SJ 3EWC3IWV+DB,3TWH6 SR*0B1+ICS3EGN3BWLD6,"J&/3ASN2 T3ER 3AGT2 ;E7TKE+ECD+ICS7PSU2 ;I2 T3EN 3A3L+E
R3S6 7EOS3AWG".*M6/^I3H;E* CA3C;O3T?R3LN 7HKA7ASC+ECR*(3B3CR,*,CE+OCR+FB)+ICS7DSE7ESC+E3D*M>J6ISI6 OI2 3P3AWC3DF 7TR +HCE3HGE3D> 7FR +HCE7MOE3S
A3EF 3L;O7G^ 3IT*M>J2IT3EN 7UKR7ESN6 SS7AWT3S& 3N	D7CSA+O3R2 ;A7DR +HCE3N7U7BKE2 [O*M>J2I	D7GSI3SV 3NWT3RSE*.B 3TWH2 WM3SGS+GCE+ICS3TWH7NB 7OSS+E;D2 TI7S"J&/7TOA3KF 3L?S2 OE3HWO3S: 3UWM3ROI2 ;I7PSU*,B,3ASN2 T+EJ +AB"3C;O3T?RL*M2/.I+ECY3F;U3C	T7OON2 [O2 	D
S3P+ACY3CWL+A3R2 ;A7DJ 3OGT3T;I7GR +HCE*M>J6ISS7AWT3S& 3N	D7CSA+O;R"M6J"J*M"M6J6JRI3A/S6=JI/TF0"M&J7CKU6=JI/TF03FSL"M&J3I	N/W7T"I606JZI7EOR.=FI"M6J"J*M"M6J2JZI3I3E7DJ /TF03FSL.%B1"M&J6*SR2021O7C*J>L*M>J*M>J6%R6ISR*0B17DSA3AV 7NKT7YR 3E7R3IGN3LN 3O7M3ASNS*
"/*M"/*M3R/T/C7F.IN6"0&02/3C7EKA2 T3E. 3EKY7OKA3DZ 3L
A6MJJ7TOKF&=.6B3*1>I3S	K3P& 7FR +HCE7K	E3BGO+RCD3FGL3G& 7SN E7T6JSR3KOC.=ZI.3J02IN/3LGE7RR +HCE+ACC3ASN2 T3E. 3EKY7OKA3DZ 3L
A6MJJ7TKKS&=.6B3*4>I3RGE7DR +HCE7K	E3BGO+RCD3B[U7FKE6 SS3A	T3C3AL7Y6JSR3KWI.=ZI.3V06IB/+UCT+ACC7BSI. F12 ;I2 T3E& 3NWT7RWR+PCT3EGN3BWL* 7FF*M3R/T/R7B.IN6"0&62/3C7EKA2 T3EF +CB,3RGE7DR +HCE7K	E3BGO+RCD3B[U7FKE2,F N7D"J&I2/3C7EKA2 T3E. 3EKY7OKA3DZ 3L
A"M6J6JSR3T3F.=ZI.3B16IN/+ECT3TWH2 	D3S3P+ACY3FGLG*M7RST/S7F.IN6"1&12//S+ICP+ICF3TWH2 	D3S3P+ACY3FGL3G& 7SN E7T6JSR3T[C.=ZI.3J12IN/3LGE7RR +HCE7DOI3PGL3YZ 3L
A6MJJ7TCTC&=.6F3*4>I3LGO7DR +HCE7DOI3PGL3YJ 3U[F+ECR3ASN2 	D3S3PA7Y6JSR3T/S.=ZI.3V16IN/7KCI2 [I2 T7EJ /TGO2 ;I7TKE7RCU3T> 7CWC3RWRD*M7RST/L7S.IN6"1&62/?L+ACD3TWH2 	D3S3P+ACY3B[U7FKE2,R 7ICS7L	A2,F N7D"J&I2/3C7EKA2 T3ER 7ICS7L	A2 3FA7G"J6/"J6/"J*M"M6J"J6/"
&/7MOE3S
A3EJ 3U[F+ECR7FKO7MSA*M>J*M>J/RCT61OM7G*,3B?L+CCK*3>I3EWX7CSU3IWV6 SS3OWR*M>J7ROT3ISN.,BI*I>I3ISN3IGC7TKO6 SS7AWTS*M6/SR3F;UC&,"0&I6/WF7NSC3I;O2 ?CD7E6JJ/3TWD+C3F"I&02IN/7HKA7ASC+ECR7CWON7T6JJ/3TKD+U3F2IKZ3LOO/KF *4>I3CGH3ROA7TKE6 WB3FWFR*M"L6/"J6/"J&//RC
21& 3NWT7RWR+PCT3H;A3DWL7RJ 7OSU3IWN*M>J*M>J6MNJ7TKA+TB,2 3CB*M2IGCL&I2/;I7SKE7TJ /TF02 ;I+TCO3S	K3PN 3H	AN*M2I/S3P;IS*M6ISR20&1N*M2IGCL&I2/?N7WR 3E3L2 ?P7WKE2 GF+ICL3WGH7TR 3OR O6.6JNI3ESN"M&J7PKWF*M6I
P3R7FG*M2IGT+D" .1B0*)>I3CWL+ACR3TWH6 SR*0B17DOI3PGLY6.6JJI3T3TS*M2M:J7ESXM&,3CKL"M&J3C3A"M&J3ROE7E[IE&I2/?G2 ?T2 3S7ECE2 	T3L: 3ESEE7D2JGM7DKD.,BI"M&J3DGC6 OM3GSC+F>I7S[A3EN +DCF+TCO7MOE3S
AE*M2IGT3D6 3SOGD7F2JRI+CCA3B[U3C[D6IN/+ECT7MOE3S
A3EN D7F2JWN3X?T*,B 3CKL"M&J3TSA. N(")*M2IGT3D6 3ASDR*M2IOD7AJ 7TCDT	R2/WS7TB 3O;I7TKE2 ?T6 WB3FWFR*M2IOD7AJ 3T[DL7G"J*M7NE+T3C6IOI7ZJ 3TWDV	F2/WS3T> +UCR3EWV+NCT3FGL7GB 3ESN3I
N".*M2IGCL*M2IGW3IWT*I>I3W	A3TZ +OCR7NE3TN 7HKA7ASCE7R6JJI3TWDV7F"J*M2IGT7DJ 3TODH	R2/WF3TC2 C3AGR3CWTR*M2IGT+D" .-B1"0&)6/OI2 T3EN 7HKA7ASC+ECR2=F 6 WN3MWB/R> "M&J3SGM"M&J7JCM6 SR"0&02/?N2,^ 3O> N*M2IGT+D" .1B0*)>I7YOE6,J 3E?F+RCM3TWH2 C3AGR3CWTR6.6JWB3F
CF&,7HSL"M&J3DGC* CI3RST7PKT6IB/+UCT3TWH2 WN3WN 7HKA7ASC+ECR+ICN3TWH6 WB3FWFR*M2ISC3FN U7R"J*M6IOI7ZJ 7TCDT	R2/;I3CWR3M;E7TR +HCE7DSA3AJ 3U[F+ECR3P	O3NWTR*M6IOI7ZJ 3T[DL	G2/;I3CWR3M;E7TR +HCE/RCT21R 3AGT2 OA7T[I3EZ 3L
A"M&J3TSA6 SR3D3F+G>I+ICS3TWH2 ?P7ISN+ECR3S	T+LCL7WSI3H;I2 TE*M2IGT+D" .-N1*)>I3B[U7FKE" 6?6JNI+MCA3CGL"M&J7JCM6 SR"0&22/?N2,V 7XSI".*M2IGT7DJ 3TODH	R2/E+CCO3TWH2 WN3WR 3AGT"M&J7RSTL7S2JNIL7B2J*I+MCP7NET	C2/;O2 ?T2 T3E: 7ESX2 C3AGR3CWTR6.*J>L6MJJ/TB02,RI+
CA3RST3FON"M&J3TSA6 SR3D;FC*M2IGT+D" *-&12I&/7SR +HCE7N
E2 C3AGR3CWT/R6 2 ;A2 F"."> "M&J3SGZ2 3CA*M2I7J7PJ /TJ02I:/+OB,+GCOO7N6JRI+ACD3RST3F
L6I&/+E3S6 OI2 T3EJ 3U[F+ECR7ROE+ECT3FGL7GN +ECT"?*M2I;S3AN L7A2J*I+MCP/RCT"3*M2IGT+D" .1B0")*M6ISR7TOL"M&J7JCM2 WN3X?T2I:/+OB,+GCOO7N"J*M/RCT"3&,3TSA6 SR3D;I+D>I7YOE6,J 3OGT+TCE3TWH6 SS7AWT3S& 3N	D7CSAO7R2JNI+LCL3R3A*I>I7BSI"M&J3ASN. F("76)6JNIN7A2JNI+LC
3IOA"M&J3TSA. F(*2&0"M&J7RSTL	S2IR/7ICS7L	A2 T3EF 3C	T+VCE3SGT7TOU2 ;I3DOI3A?TR*M2I;A+D" *1&7"M&J3DGC6 SR3D;I+D>I7S[A7ER +HCE3SGT7TOU2 ;I3DOI3A?T3RJ I7T2J*I+MCP7NET7C"J*M/RCT"2&,3CKL"M&J3TSA2 GM7DKD"M&J3DGC6 SR7DSP+R>I7SSE6 CU2 ?P7ISN+ECR+TCO3M
S6 KAE7A6JRI+ACD3M
S3C[D"M&J3DGC* .."1&I2/WS7TV 3PN +DCF+TCO3M
S6 KAE7A.JBI"M&J3TSA6 SR3D;ID*M2IOD3A& 6 SR7DSP+R>I7M[O7EJ /TF02 ;I3DOI3A?T7RN 7TSAU7S2J&I+SCZ3RST7PKT"M&J3TSA6 SR3D;FC*M2IOD3A& 6 SR7DSP+R>I7M[O7EJ /TF06 WF7NSC3I;O6 SS7AWTS*M6IOI7ZJ 7TCDT7R6JRI+ACD3RST3F
L"M&J3DGC* CI3RST7PKT2I6/3OWV2 C3AGR3CWT3RN 3O;UT*M2IGT+D" .1B0*)>I3CWL+ACR3TWH6 SR*0B17DOI3P3AY6.6JJI3T3TS*M"M&J3C[D6 WCR*M2IOA.7^7"5*M2IGT3D6 3ASDR*M2IGCL*M2I?PS7T6JOM3GSCF&,"0*M2I7J3P: 7ESX+M>I+GCO3W	A3TZ +OCR7NE3T6 7EOS3AWG"M6J"J*M3RST3F
L.,B *I>I/RCT21R 3AGT2 OA7T[I3EZ 3L
A6MJJ7TCD+T3R"I&06IJ//TF02 GD+TCA3B[U7FKE2 ?P7ISNE7R6JSR7D[EF&,"1&I6/SR*0B13EWV+NCT3FGLG*M3RST3ISN.,BI*I>I/RCT21& 3N	D7CSA+OCR3SGT7TOU6MJJ3T[D+N3C"I&06IJ//TF06 WF7NSC3I;O6 SS7AWTS*M3RST7CKH.,B *I>I3CGH3ROA7TKE6 SS3OWR"M2J"/*M"/*M6/J%6ISR*0B17ISN7EKR7USP2 
L3V3E2 ?CD7E"J6/*JV/T	W3C7O3E" 3EWR2 W+ECN+ACN/RCT21. 3EKY7OKA3D& 3NWT7RWR+PCT+ICS*M>J2IWD3TOE3TSE*.B 7TOE3TZ +OCR3AN 7OSN3R3O2 WK3YF +NCD7SSE6 CU2 TE6 "J&/3NOE7EOS7A	R2 WR3S?P3NWC".*M6/^I3H;E* CA7N
E2 C3AGR3CWT3R& 3SR 3EWT3CWT+DB,7S[A3E& 3TF N7D"J&/3W/A7EV 7PR +HCE7TOA3K2 3EWV3LN 3OWD".*M"/*M"/*M/RCT21;I6,*I3B?L+CCK*2>I3EWX3C& 3NWT7RCU+PCT3S?T3R
AE*M6ISR3T/S*I>I+ICS3TWH6 SR*0B17ISN7EKR7USP2 ;E3A3B+ECD"?*M2I7J3P& 6 SR20&1+N>I+N3O2 ?G2 ?T2 WN+XCT3MSO3UWL2 ;I2 C3A;I"M&J3C	D6 WCR&I2/WY+SB,3C;O3T;IU7E6JJI7TOTF&I6/OI2 T3ER 7ICS7L	A2 3F+ACG7SSE" 6?6JNIK	P2I:/+OB,3C;O3T;IU7E6JJI3TOTF&I2/WY+SB,3CWL+ACR3TW
2 	D3S3P+ACY3FGLG*M6ISR3K[S*I>I+ICS3TWH2 WK3Y?B3ASR2 3F+ACG7SSE" 6?2J*I+MCP3RST7PSS2I:/+OB,3E	XT*M6ISR3KKR*I>I7YOE6,J 3ESA2 T3E: +ECW3CGH3ROA7TKE"M&J3ASN. F(*7&76IJ/3E?M+VCE3TWH2 GP7RSI3YJ +ICT2(?F3RV +P	L".*M2IOD7AJ 3TODH	R2/GS+VCE3TWH2 C3AGR3CWT3RZ +OCR
LSAE7R6JRI+ACD6(SR7D[EF6)6JSR7DOPT&,3C[I" 606JBI7OSSD	S2IR/3I7S7IOS2 T3E& 3NWT7RWR+PCT3ASN2 ?P+SCT3FGLG*M6MBJ3W[R+M3G2IKZ3LOO/KN 6IB/3OWW3RZ 3A3I2 WR3SGTR7T*J:I"M&J7JCM6 SR"062"J*M"M&J3P
AE*M"M&J7NCO3UONH*M2I3X7ISS" 61&J*L

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