File RX01SY.PA (PAL assembler source file)

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

2/3F7OCP3YR 3I/S6 J(/XF06,R*7&16 	S3SWT3M" 3ASN7LKE2 ?F3R> /S"/*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J*M>J7CCO3Y	R7GSH* " +CB). &1*7B7+BCY3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	TO7N"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/6JR/+HCE3I[N3O7R3A	T+OCN+ICN3T	H3SR 7OWC3M;E3T& 7SN 3U+B7ESC2 ?T2 C3A
N7E^ 3IT7OSU2 ?N3TOIE*M2/;A7DN 7HWO+LCD7NSO2 WB2 ?C7NSS3RWU3DF 3SF 2 ?C3M	M3TWM+NCT+BCY3D
I3IGT3LV 3Q	U3PWMN7T2JN/7OCR3OGR3T?I+NB.2 	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O6 OA3S7U+ECS+NCO7ROE3P;O3SKI3I	LT7Y2JZ/+OCR7A	N6 KE7RKO7SR 7HSA2 GM3YF 3PWP+ACR+ICN3T	H3SR 7OWC3M;ET6."J6/6JR/+HCE3S[O3TGW+RCE7DOE3C	R3BSE2 ;I2 T+ICS3DOO3UWM+NCT+ICS7FKU7NOI3H
E2 ?T2 T7EB 3UOR7HOAE7R6JV/3NWD3RF 2 	L3C;E+SCE7FKO6 OU3E> 3NF 2 	S3N3G3EN 7OCM3UWT7RN 7YSS+ECM3ASN2 GC3NJ 3EN 3O	PE7D*J"/7WSI3H& 3N3C3U	S+OCN+OCF3D
I3IGT7LN	2 ?C7PKY3IG3T: 3O	T+C	E2 ;O+LCY7FKO6 OU3E& 7NN 3UC*M>J7SOY3T7E2,V 3XWC+PCT+ACS7M	A6 SO7HKE7WOI3EJ 7EB 7R[O3IWD3D& 7N^ 7RSI3I
N6 	B2 	D7GSI+A;L*M>J*M>J3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	T+OCN7AOS3UWM3S: 7OJ 7ECS7OON3I	B7LSI3YZ +OCR3TWH6 OUE*M6/KO2 WR3LGI3B3I7I	T2 [O6 SI7SN 7OSF7WKA3E> 3NV 3Q	U3PWM+NCT3TGH3T& 3S: +OCT7SCU3P	L+ECDB7Y2JR/3I	G3T3A".*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2LZ/7LCO+PCY7DOI3K" 
ASN7LKE6 	S3SWTM*M*M>J3D[E3I	N3T?I+NCS+OCF/RX*/CE7ISO"	7S"J*M7ROX7VKE*=JI/E^&"7*M2MRJ3EOV/O7D.IV7*0>I7D[E3IWC3CSOE*M2M2J/C7D.IB6*0.17D[E3CSO2I2/3OSA2 ?C3MGM+NCD3R
E7ISSE7R2JSXR&=.6B022R+3EOVO	D6/KT7AON7FKE2 GD+TCA3R
E7ISSE7R6JSSR&=.6B023R+3EOVO	D2//S+ICP+OCN3TGR3N[S+ECR7RGE7UOE3TZ 3L
A2,N 3LGE3RZ 3L
A6MNJ/E7R.IB6*0.47D[E3CSO6IN/7KCI2 ;O6 KE7RKO2 3F+A3G2 3C7EKA2 3FA7G2JSSN&=.6B025R+3EOVO	D2//S+ICP+OCN3D;O3EZ 3L
A2,N 3LGE3RZ 3L
A2M&J7NKT.=ZI.0Z02+WD3V?C+D>I7ISN7EKR7USP2 ;E3A3B3ER/3IGS3BWL2M&J7NSI.=ZI.0^02+WD3V?C+D>I3I	N3TGI7L+I3EN 7OSN3R3O7LKE2 ;A7DJ 3EGC3LKI7RSA3ER 7R[IE7S"J*M*M>J7NSO+ECS+OCN3T	H3S" 3ASN7LKE":*M*M>J3T	H3S" 3ASN7LKE2 WR7AOD2 ;A7D^ 7RSI+ECS3TWH2 	D+SCK+ICN."J12-	
+TB"3MSO+EB,+ICN3W	HC7H2J>/7N	L* B67BSI3S> 3FV 7VKE/Y" 2-	B3TJ 3YWT6 KA7EV 3SSE2.F 7NJ /XF02 GC7RKT3I
DE*M2/?C3NGT7ION. &424> /S"/2 3B3O/C7SV 3NWD7RR 7HOI2 WM3T?HD*M*M>J+TCO7MA3I	M+ZCE3SWP+ECD+OCN3TWH2 WD3VOI+EB,3TWH2 GH3N3D+ECR3RGE+DCS3ASN6 KW3IWT3SR 3AGT*M>J+OCN7AR 3ROA7K^ 3IT* CA3T?W2-GW3Y& 3NWT3RWL3AWV* B-3IV.6.J 3E?C7ROD* 61*2B6+OCN7AR 3ROAK*M6/KA7E^
7RSI3T;E2 ;I2 T7EN 7EWQ3EONE6:*JB/* 21.3V,*,27.9F,.1F,.3F,.5F,.7F,.9J,.1J,.3J,.5J,*,24.6",.,B1.,J1.,R1.,Z1.,"1.,B2.,J2.,R2.,Z2"M6J2J&/7NR 7HOI2 GW7YR +HCE3H;A3DWL3RN +ACN3TGR3N[S+ECR7DSA3AF 3TF 2 .5+HCZ7WKO7DJ 3AWT*M>J3M	A3NN 3H;A+GCE3F?R7MJ /XF0+SCY+ICS3
GH7TR +HCE7NE3TR 3I/S2 SA3DWR+SCSI7S2JN/3AOL3UGL3TSE6 WD3R;I7GR +HCE7DSA7AR 3A;R3SWF7RR 3OZ/3R7O2 T3ER 3I/S2 ?T6 SIS*M2/WS3C?T3RJ 3U[F+E;R2 T+ICS+ICS3NWE3DSE2 ?F7RN 7L
O6 N8* :!"M2J.IB**I>I3O	R3G;I2 ?F3RJ 3U3ID*M"M&J"-&12I>/+NCE7ESN+RCY3P	ON7T2JRI3E	VC	E/RX+E>I6"R*8KE6 OI2 T3E^ 7RWO3P: 3AWM"M&J7D[E3IWC6I	S+S>I6"	S+SB"+ICS3TWH2 ;E7T	R2 ?P7ISN2 GNM7E.JRI.2B5*I>I3DKC2 ?W+RCD2-R 3E	V+CCE7TCY/EJ *5B,7DKI7ESC7O	R2 WD3VOIE*M.I
2"0&7.IJ/.0B02 WM7AON6 	S3S" 3ASN7LKE*,B7+ICS7ESN+RCY3P	O+NCT3O[F7SSE"M&J"0&I2/T+ICS7WKO3DF 3LGW+YCS3SWE+MCS+TCO+BCE"0*M2IWD3C7IA7L.J^I.6K^.6R%*I>I3TWH6 WN3MWB3R> 3F> +SB83B?L7COK2 ;O2 T3ER 3E	VC7E2J>I3CGTL*M"M&J3B?O7TSS2-?B3O;T+D>I3L;E3GT2 [O2 T3EJ 7OSO7
KTA7P"J6L6JJI3E?LC& "2*M3B?O7TSS",*M/XV7*727.IV7"7672JWS+C3T"I612JGF3KWRT&,7JOM2 WGT612JRI+CCA2ISC/FB1"M&J3C[D" 606JRI+ACD.I
X.5^7"M&J3DGC6 KX"M&J7JOM2 WGT612J*I+MCS7GSE"1*M2IGTD& 3U	NT*M2IOD3A& 6 BI3U	NT*M2I;II7T2J*I+MCSI& /XV7"7676JKX.,^I.6B02+?B3O;T3DJ-7OSO+S7T*1>I3LOO. ^16MBJ3U	NT&,7SV47NSI"M6J2JWG+T212IGF3KWRT*M6ISS7LJ T7L6JRI+ACD2I;UI7T2J2IC7D2JNI+LCA3S3T6 SRL*M2IGT7DN 7E
C"M&J7JOM2 ?LA7D2JRI+CCA2IWSC7T2JNI+LCA3IOA"M&J7JOM2 2I3OSA2M"J3A
N+G3G2ISSN*M2I7JP& 3LGO/DF+"M&J7SKE"M&J7SCK"M&J7HSL"M&J3SGN"M&J7JCM* CI2IWGT612JNI+LCA3S3T6 SRL*M2IOLD*M3C[D*1202ISC/FF "0*M2I7JS& 3LGOD*M2IOD3A& 6 "IR*M+L3P2I7JP& 3C[D"1602J?B3O;TD6,6JJI3E?LC*M"M2J"M&J7NCO3UONH*M.IJ*"4*M3B?OT&,3S3T6 SRL*M2IGTD& 3U	NT*M2I
LD*M2I3C3A& A7C2J*I+MCS3LGOD*M2I7J3S2 3OSA"M&J3C3L2 GRL*M6MNJ7TKAT6,2JGH3N
GG&,3S;D"M&J7JCM2 2I3OSA"+616JNIE7R6JNIN7A6JNI+KCP3CGL"M&J7JCM2 ?G7OKDD*M2IGT7DV 7NSI"M&J3CGI"M&J3TSA6 "I.6N0"0*M2IODA& 3U	NT*M2I7J3PJ 7OSO2M^J3OSO+R3D2IOLD*M+L3P2I7J3S2 3OSA"M&J3DGC2 JI7OSOS7T2J&I+SCZ*I6."1*M2I7JP& L7P"J*M3LGOD&,"0*M6ISSR*M2I7JP& 3H;A3G
G"M&J7XKD"M&J7JCM* CI2I?LA7D2J;U+I3T.IB7"264.J[X.0B3.,ZI.0B3"M6J2JVI7NWP3NC"M2J.IJ*"0606JJI3E?L/C^I.6B0"M6J6J*I3B?LC	K*7>I7SOY3T7E6 CS3AWC"M6J*JB/6 [O3EGR+LCL3C7O3M;E/T+S*M>J*M>J2 2 3I/N2 WR3M	A+NCS60R 3H?R3UG2 T3E6 3A;I6 KP3OWC3S	S+NCG3L?OP*M*/B 3EOX7ESP
 OA2 GM7NCI3UGL3TSE6 	B2 	DC2Z=?G QX$2AHBXO Q QH0\P7/$B??>SK9VH07);VHC +XC:A +7-(,7,<H<B<(,Q;V7) +\O($X(P((	&7+([7*,+8D0X,070CB$AC^C\8A68BJBMDCH?CXCFE4O,EWCN><D><B<A<CNH<EVBG?/?4EDNM+"ZJ;L*B.AM<? Z?(JY>EQTEP2FEV<ASQE^"YBAOHC?2A2IA??
VFE?<JU2XG?8 \"[D&/$FG[$: M?Z6N6Z6O?
>X/I>XV
=H]> 	<%=XTHT< K;< K:9K9>P*QHTK$>(I<< XT9&HT<(/8K7<(+YI;< K6< *8%?IBX]K$>(*H8A%?Y%*HK5< K4>(+NH\> +BHT%:HVK3?H+J%9%?IJ*HHT\VPV*QHVK2>(*Q: HVXVH\>(	1*QH\>(%9HVK2>(*1\VI>XW.A8J*HY*/ A5<(/*I<A5I<X<]%\AA7>\?:?6H3?=P?& "
XBXFI: Z
X X!LWK?9I8XS<P*\PWI7Z
H!9DX!H 8DX <X* R
*OHSH!*DR
R.AH\> -6%?MW-6FD[CN&R&[D%5*?OD9J8J8J"6ODSD"6*+D5A4<(*?I<A4I<%:.6KC>(%9.&Y(PS<HPLSA3> +EPS/DP/D2LI2[T<B/PHWX^2LI1[!I0\^/VHIH^XS2A/^HD9H^>XI/K!8J8HA.H
?H/2A%?H:X\-6VE2ZERO ?F2A%9%?Y%X]2A%-	?<H*NH\>(/>*E	=HV8!I,XRM>>(XRH 9!H"> *^H!9!H>X*+%+HSXVH X"H!X2LI1X1<H%*H1[QHV9!HSHR<(+D=H/<8!HSXU2LI1[\HU9 HS>PI;K\[^[HR>(*E2AH ],H!
;I,XS2ALSPS2A\VPV+XKQI/[QPR+N*E<BLS<B\ULUI)>(+/PS+)K\I/[\PU+\K^I/[^+\HU%(/[4-	]QI&%(X"X/4B"ZH[GJD8!XUHU	?LSXTI3\S%+2LI1ZW9HSHUXU<X%%2LI1ZYHU%(2ALS2A\ULUK>>(*0; HUXU<X*	JYI;ZY; HSXS<X*WJWI;ZW*WHT\U/=:A.> %$0!*7-MEMORY OVERFLOW DELETEDWHAT?LINE TOO LONGO$	<
Q[/K/K;>(+*K/9K:=K9<(+	=K8=K7>P/6SQK/A4/QK5XT: XR/4AS+.2C,=2IO\	]4?&?9?6?P?RK0GD>AEX]0-"9F8F8FX00-"A4H0X0J]XSPSLSPS<(*YH0> *NLSXS,SX]%?IG-6J]37T04]P,?RR-+RA--R,=G2=	H61;O0-;O*:<V1?O*;;^,;^=(;]RK?XOLO9FLOK>>(.;%9I!XSKOXVRRRPVR%?K!%9.;LSA4<(I<\VLSA <(9XLV\V
SPV/R      6A    -78ITLW< PWI9I
<XI^K=< S0/0A!:"^HSPSJFZE<B.GLVL	L(L(LVL(L(L&L$LVL7LVL<MEMS<BLX2AI)<(.I0XTPX*AJVI/ZV*AI<+M:A[VHT8F8FXTHT8DA.< *4KV>(*ASVK?+MHTA]9J8J+BHTA]9F8F8DKV[VHT+JK>XSKV<(*AA3<(+OR.K=XSI\+MXSI8+MLINE NUMBER > 999999EDIT COMMAND ERROR ADASAK:ABAAASAIAC.AWAS ERRORNI0]
[QHZ> *M%$KQ>(8A
?2J% HI>XW	>*>J1> *OR>(*
H$Z(H%Z)R> /=*K<Z(K;Z)I[Z*2J%ZADSB>G/=J)X-J*X,KQ? .H$<(.X(H%X)H&X*H	X+.KQ? H(<(+KX$H)X%H*X&H+X	.:A%?Q2K:%-*TN\X$X%X&K9X	K8XTI7XR	7/R9F8F8F\T	7/RLT\TPTPR+\/R9X"2J%ZI+2	6"%$-	G4IQ$BA?7KDS]4K0?&2I;F6IJ/3ESA6 KO6 KW3IWT6 SS7ASR2 	D3FWF3R;E7T	L"M&J3SGZ2 3CA&I2
/S+ICP+OCN3W	RT7E2J*IM	P7SKT3ESA2I^/7OR 7OJ 3ESA*M>J*M>J6 ^ 7RSI3EZ 3A3L7SR 7HWR*.:.*.:.".*M"/*M"L6/"J6/*JB/7TCO2 [O2 GM+ICN3P?R7COE3S;I3G2 7OCO*M>J6MNJ7EOT+L3O2IGT3DZI+N>I7SSE2 	S+LCO+TCO3LGO7DV-3N?L+ACD7DCE3ESN3I
N"M&J7JOM2ISL3CSM"M&J3TSA.I
S.7B06IN/3I?L2 ?C7NKT+OCL7CWO+NCT.1B02 OO3T3A"M&J3DGC2I3F3POW2MJJ3UOF+D3F2I3HT&I2/SC7FR 7OV 7SKE*	CS3B[U7FKE2 3P3AWC3D" 3EWR6MRJ3R?L+O3P2IGT3D& 6IWB+F>I7FSE+CCH7A^ 3OSR2 ;I2 GC+SCE3W	RT7E6JNIT	R6I^/7ASI"M&J7JCM*I6."1*M2ISXR&I2/OA2 ?T2 	S/L/O6 KO6;N 3I?L2 
T2 OA"M&J3DGC" 	I3B[U6IB/3LOA3EF 2 ?W+RCD+ICN7COA7EJ 3ESA6;^ 7RSI7EJ 3E3P3AWC7SN 3AWM".*M6IOI3ZJIU	F2/?M+VCE+TCO7NE3TJ 3U[F+ECR3LOO3A	T+OCN2(GM7YN 7KCI")*M/S^7.,^I"7&I2/	L7TKE+ACL*7276 E7EWC7TOE6 OA* CA7NCO"M&J7I+S2I3F3POW2IR/3OWN2 	W+TCH.1B02 OO3T3A2 	S+
CO3OWP7RSA3I;O"M&J7JCM6IKT3L?O+P>IN7O6JRIA	DB	C2/;I3CWR3M;E3TJ 3CJ /Y^ 27" 3EWR2,F +NCD212 3AWTR*M2IGT7DNI"7672JGM3GOI6,NIN	A6IN/7KCI2 ;U7LOE7SJ 3ESA2 ?D/N/E+N7O+OCP7FKO2 SL3CSM"!*M2I7J3P>I7KE6IJ/3ESA6 E+I;T"M&J3DGC2IOB"I6/"J6/*JB/2 	M3D3D3E> 3F6 3A;I6 KP
OWC3S	S+NCG3L?OP*M"/*M7SKT3ESA6,RIA	DF	N2/WR+ACD3SGT7ROT2 WHR7E6JRIA	D7SV47NSI6IN/+ECT+UCP+DCO+DCO3RGE3D> 7R^ 7RSI3E& "/7O2J*IM	S3LODM7D6JRIA	DM	Q2/?L+ACD3PWR3C7O7PSU+ECD3SOE7TKO2 ;IF7O6JNIT7R2J*IM	P..F-2I&/3NN 3AWS2 ?N7TJ 3ESAY*M2ISXR*M/S^7*020.I^7"0&02I
/3LGE3RF +CB,3C;A*	CT3S	K+P" 7XKD2 WL3AWV3SF 3CF 3L;OE6)6JRIA	D3Q?U6IR/3ROAK*M6ISSR&I2/3I3L
E+ACL.7B720V 7NKT7Y^ 3I3L2 GH/N/G2 T3EZ 3UON3T?IN*M2I7J+P:I"-&16/OI2 ?N7TN +ECT+UCP2(SL3CSM")*M2ISXR*M/SZ7*020.IZ7"0602J&IS	Z3ROE2I6/3OWV2 ?T2 WN+XCT3F?L7P	P2 WS3C?TR*M2I7J3SRI7IOVU	B2/?C7MWP+TCE7NE7TR 3ROA3KF +NCD3SOE7TKO6 WD3R;I7GR 7HOI* ?IO*M2IGT3D6I3A
G+C>I3W	A3TZ +OCR3I>/2 ?T2 ?C3M3P3EWT"M&J7JOM2ISL3CSM"M&J7I+S2IOB2IN/3HOE3KZ +OCR3W	R+TCE3E	XT*M2I7J7PNI7EOTL	O2/?N2,J 3A/C2 ?T2 ?TP*M3OWKX&,7I+S6I	S+S>I3B7U7PR 7OJ 7EWG7LKA6 EI7T6JKS+E3T2I3HT&I2/SC3FN +ICF7FKO6 OU+E
R3SN 3A3L3I
N2 	F3ESL"M&J7JCM" 	I7SOY2I^/3OWN*M>J"M2J"/*M"/*M*/B 7LSI3EGRL7S"J6/2J7S*125.IF-"5*M3SSC+F202ISC/FB 6MNJ3C	D+F202ISC3FN +ICF"0*M"/*M*/B 7D[I3SKU*M>J*M>J2 6 7USS2 ;E7TKE2 	W+TCH3L;I3KF +NCD+ACC"0*M*/B 3C7O7PSU+ECS3TGR+CCK+ICN6	WQ+O2	2 WS3C?T3R& +N^ +M
Q2,Z 3R7O* B+ICN2	WRC6	"J6/*JB/2 WR3PGE3TSE6 WS7BKT7ASC3S> /FF 23R 3E	C3M3A2 WL3AWV2 T3E" 3IG* 7N21J 7IOT2 [O*M>J6 F 7USO3I;E3T& 7NF +U3O2 T3E2 +OCW7BSI2 [O6 WQ3O	T7ESN2 ;I2 	L+N3K2 ;A7DR H7E*JB/2 WR3M	A3NWD3R& 3NF +CB.3TWH2 ;I7TKE3LGE+VCE+ICS3AOC7OCM7LOI
HSE6 	B2 S7ISF3I
N*M>J2 2 +OCW3Q?U3T;I+ECT7BSI2 ;I+TCO7L
O2 WR3M	A3NWD3RJ +I;T*M>J2MRJ7IOV+U3B"I602JRIC	A3Q?U2I&/7NSI6 WQ3O	T7ESN2 ?F3RR 3I	VD7E6JRIA	D3ROE6IJ/3E?C+RCD26 7AOS3AWG3D& 3NF C*M7D[I+L3P2I;SL&I2/	L+NCK3UGS+GCE7R[E7EOR+ECD3F?R7MJ 3IC+I
E3SN 3OWD"M&J7I+S6IWQ+O>I7I+S6 [E7E	R6 SO7HKE2 	T+M3E. 6=7D[I3IWD6 	B. Z2"M&J3TSA2I7S"1&52/T+E6 *1B33DOE3IGML*M2I7SA&I2//S+ICP+OCN3D;OE*M2I7J3PRI3I3V+P>I7MKOE*M2IGRL&I2/	L+NCK3UGS+GCE7R[E7EOR/E/D2 ;I7TKE3LGE+VGE"!*M2IGT7DNI"3&32/SA/DJ *3B3.(B220& 3RWR+LB)
M/A3I
N2 WS3C?TR*M2IOD3A6IQ*M2I7J3P& 2I	D7VWS+B>I3LGE3V;I3G2 3I/N2 ;A3DF /CB *M>J*M>J2 2 3D7CD*M"/*M7FCL/W7C".&I2/?C7USN+ECR+ICN7ESN+RCY3P	O+NCT7FKO2 	S+LCO3L?O3P> 7N	L2M2J3D7CD&,"0*M2ISSN&I2/GWI7T2J*IM	P..F-"M&J3LSC*I>I3C7O3M;A3DZ 3R7O2 OA6,^ 3HOI3H& 3SN 3LGE3
SE"M&J7SKE*I>I3S	K3P& 3FV 3R?R+R" 3I>/2 ;O+L	Y"M&J7JCM" 	I3LODM	D2//O6,J 7EWTR7N2JNI+LCL3C3M2 3C7AJ A	R2/?C3NWV3N	T3OGN3LV 3R?R7RJ 7EWT+RCN.4B020& 3NF C*M2I7J7PNI7RSE6IN/+ECT3C[D2 ;A3DV 7XSI*M>J*M>J6 V +SCE7DSA3AJ 3RGE3K2 3OGC3T?I+NCS7FKO2 WT7RCM3OGR3RWIS
M"/*M/M7Q.7V7"0*M/B7C.7V7"1*M/F7N.7V7"2*M3Q?U.=^7"5632JWR/C^=.7R52MJJ/U7F.7V7"5*M"M&J3R3EO7C"J*MBLBZ

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