File PWRF.PA (PAL assembler source file)

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

6/B 3OWW3RZ 3A3I2 WR7C[O7E	R2 GT+SCK7FKO6 SR/S"/6 Z(*27BB&)*1657MKA.-"7"M&J3X	LS	T*1>I7CCO3Y	R7GSH2 3A+SCO+ICS+ICN7PKA+A;MP7A"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J6/"J&/7CCO3Y	R7GSH* " +CB). &1*724.1^9.5F,.9Z76 	B*M>J*M>J2I	D7GSI+ACL7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O*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+ICS3SKU3JOE+TB +TCO2 C3A
NE*M2/	W3T?H+UCT2 ?N3TOI+EB 3ASN6 N 7HWO+LCD2 ?N+TB +BCE2 ?C7NSS3RWU+DB +ACS" 7A2JN/3O7M3I7T7ESN6 	B2 	D7GSI+ACL6 GE7UCI3M;E+TB 7CKO7PKO3A	T+O;N2 R 3I	G3T3A*M>J7EWQ3I7P7ESN2 ?C3R?P7RSA3I;O6 OA3S7U+ECS+NCO7ROE3P;O3SKI3I	L+TCY7FKO2 ;AY*M6/KE7RKO7SR 7HSA2 GM
YF 3PWP+ACR+ICN3T	H3SR 7OWC3M;ET6."J6/6JR/+HCE3S[O3TGW+RCE7DOE3C	R3BSE2 ;I2 T+ICS3DOO3UWM+NCT+ICS7FKU7NOI3HSE2 ?T*M>J3TWH6 B 3UOR7HOA+ECR2 ;U7DKE2 F 2 2 3IWC3NWS2 Z +OCR6 OU3E> 3NF 2 	S3N3GE*M2/?C7MWP7TKE6 	S3SWT3MF +NCD3C;A2 WB2 ?C3PWI+DB 2(	W+TCH2 ;I7CW
3S?I+NB O7F2JR/3I	G3T3A*	CS2 ?C7PKY3IG+TB 7NSO3IWC*)B 3O3N+YB 7FKO6 V +SCE2 ;I6 N 3UC*M>J7SOY3T7E2,V 3XWC+PCT+ACS7M	A6 SO7HKE7WOI3EJ 7EB 7R[O3IWD3D& +NB 3W	R3T;IG*M6/	B2 	D7GSI+A;L*M>J*M>J3D
I3IGT3LV 3Q	U3PWM+NCT7CKO7PKO3A	T+OCN7AOS3UWM3S: 7OJ 7ECS7OON3I	B7LSIY*M2/?F7RR +HCE3UWS6 KO2 WR3LGI3B3I7I	T2 [O6 SI7SN 7OSF7WKA3E> 3NV 3Q	U3PWMN7T6JR/7HSA6 OI2 ?N7TN 7UCP3LWI3DJ 3YR 3I	G3T3A".*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2I3X7ISS"I&02/	L+SCT
TOA3KN 3OWD"M6J6JZI7EOR.=JI"M6J"J*M2/T+ICS7TOA3K& 3SV 3XOE3UWT7D^ 3H;E2 ?P7WKE2 WR7TKU+NCS7ASF+ECR7AB 3OWWR*M2/GF7IWL+R;E2 & 7TJ 7ESS3OWR7SR +HCE3C?L+CCK3ASN2 WT7LSE3YWP2 3F7AOG6 SI3S3EF6,2JJ/+UCT7DCE3ESN3S> 3N> 3TWH7RJ +T7S28" 3ASN7LKE7SR 7OB 7R[O3IWD* C
7RWO3T;IE*M2/W3IC6,^ 3H;E2 GC3LWL+DB,+R7E3I	N3TGI7L+I+ECS3TWH+ICR7D[E3IWCS6."J*M"/*M2/SE+ICT7HOI7TKOY6:"J6/*JB/6 Z(*2	B*M>J*I&16 R 3O/O6 WO7TN 3POE3I3A2 GC+SCE2	3TS6	"J6/*JB/6 
P/RCF20NI7OKR7ECS3OSN+ECD+TCO3VJ22 WR3LGES7E*JB/6 
P/RCF61NI+CCR.6^/27> 7NB /DP3A: 3ESE* CA.6B1"3&I/[F0]*M"/&I2 3C7EKA2 OA2 ?LW*M*/B 7PKW/FJ02IOS/RF .1^/67B 3W[R*0B13W?R/N/G"I&I/[J0]*M"/&I2 WR7M[O+ECD3F?L7P	P2 ?CD7E"J6/.JB/21F-+U7G.7*72 2(+H	N2I;["17]"J&/*1B). B82 ?C3L;U3M2 /P+T6 KC+ECF7LOI3T;IG6."J&/*2B)
 GP3R7A3EWT3RZ 3I3E3DF +NCD3O	R3G;I".*M./NI*)B 3D[E3IWN7DR +HCE7PKA3AWM7TKE6 B"3WOR+LKR2 W3IC6 CS3E	C3FWIS*M*/BI* B 3TWH2 GW+ICT7BSI7SR 3OJ 3EN 3LGE3RSE2 ;O2 ?P7WKE2 WR7C[O7E	R".*M*/BI* B 6"
P3R3C+RB"3C;A2 WB2 SA3DSE2 ?T2 T7EB 3AGR7MSE+ECR3F3IE6."J&/*4B)2 ?T6 OU7ER +HCE7FKI+SCT7WKO3D> 7FR +HCE7MOE3S
A7ER 3A3BE6."J&/*5B)2 C3A
N+ECD3TWH2 WM3T?H3D> 3FR 3EWT3R	M3N;I3G& 7FR +HCE*M>J*IB 2 6 7EOS3AWG2 GT3BWL2 	W+LCL7FSI2 ;I2 T7ER 3A/S*	CS3P
AE6..JF/256-+A7R.7*82 2(+H	N2I;["27]"J&/*1B)2 SA3DSE2 3T3SZ +OCR3TST+E3V2 ?C3N	D3T?I3N3A+L;Y"M6J"J*M2M&J3FSNE	F7PKW3F3F/D2I7PKW3F3F/DF="06>2J[I3NWD7FBI3W[R3LOO6IB<3W[R3LOO.=B2"06>"J*M"M6J"J*M2IGT/S7K6I
PR7F2JNI/U7R6I
P3R[FL7D2J&I7N
IT&="0*M"M6J"J*M"M6J"J*M3I;F3D[E6I
P3R3C/R2I7PKW7CKL2=V 7FSW2!?E7R
MT6>2J[I3NWD3F.I3LF82I.<3LF8.=:0"M2J"/*M2/T3EF 3C	T+OCN+TCO+BCE3T/A+ECN+OCN7P
O+ECR3F	A7LKU3E& 3SR 3EWT3R	M3NSE6 	B*M>J3TWH2 ?C3NWT7NOT2 [O2 T7ER 3A3B+EJ 3P3F3T3B*"B,3W	H+CCH3C;O3T	A+NCS3OWN2 ?WR7D6JB/+ECR7TOA+KB.* CA7TOA3K6 +ACY7ASL+ECR7IOT2 ?W+RCD+ICN3T	H7SR 3A3B3EJ Y*M2/WS3N	D+NCG3A6 7EOS3AWG2 ?T2 T7EB 3OWW3RZ-3A3I2 GT+S;K2 T3EZ
3O7R+ACTO7F6JR/+HCE7MOE3S
A3E& S6:"J6/"J6/"J6/6J^/3OSR" &16I[E7ESN2 3F+ACG6(SR/S"/6 WP+TCS7TOA3K: 3UKM+ECRI7N"J&/2I?L3WJ 7IOT")*M2/?W7ROD* 6263JI3EWS3RWV3DZ +OCR7ROT"/686J^/3OSR" &42IWN7WR 3A3B3EV 7NKT7YZ 7AWLE*M"/*M"/*M2/[I2 T7ER 3A3B3EV 7NKT7YZ 7AWL3E& /SB 2,: 3OT3I
N2 	W+LCL+BCE3D;O3EZ +OCR3TWH*M>J7CKO7ROE3P;O3D;I7GR 3A/S*.B +ICF3TWH2 GV3LWU6 OI. ^7*7272 T7ER 3A/S*	CS3EWVN7T2JZ/3L
A2 GW+ICT7BSI2 	W+LCL+BCE3CWL3AWR+DB.2 [I2 T7EZ 7AWL3E& 3SJ 7E
T3E;E*M>J20F +NCD.7^7*7B,+ICT+ICS3C;O3SSI3EWR7DR 3OJ 7ER +HCE3ASD7ROE3S> 3FF *M>J3SKU7RWO3T;I3E& 7NR +HCE3C3A3L;I7GR 3A/S*	CS3FWI+LCD+TCO3W	H+CCH3TWH2 GTS7K6J^/3I3L2 WB2 WD3R	A3LSE2 	W+TCH3S7O3E> 3F& +TCS3W	A3TJ 7IOT2 3C7EKA+E;D2 TE*M2/GP3R7A3EWT+RJ 7PKW7
KL2"R 3EWT3R	M7NOE2 W3IC2 GW+ICT7BSI7S^ 3I3L2 WB*M>J3CWL3AWRD6.*J>L3I	N3TGI7L+I3A	T+OCN3CSOE*M"M&J3FWIL	D7CKU.%B1"M&J6*
P3R3FO7C"J*M3SGT+R3T6ISSA*M7PKT2,NI+DCF"0*M7CKT6,RI+ACD3I6I3EOFD	F2/WG7TB 3O;I7TKE2 ?T2 ?P7WKE2-GF+ICL3EWVN7T6J
P3FWLF&,3DGC6I
P3FWL+F>I3FGL7G^ 3HOI3H& 3S> +NCE3LOO2 WB7FKOE*M2IGT+D"I.4B060R+3A/S* > 7P
O+E7R+UCP7RWO3T;IE*M2IOD3A& 6I
P3FWL+F>I3I	N3TGI7L+I3E& 7TR +OJ 3W	A3T;IG6""J*M3P[W7LCL2,&IO	F6IR/7ESS3I
N6 
T7OR 3H;I+GCS2-6 7USS2 GH+VCE3I[O"M&J3C[D" 606JRI+ACD7IBI3W3FE	F2/GH7SB 3OWW3R^ 3OWN2 ?D+WCN3ASN2 ?C+MCE/U?P"M&J3SGN2 3CA*M2I7J7PBI7OKWU	P2/WYS*M2IGT3D& 6IR(3A/S+^.23M
S3T3B"M&J3SGZ2 3CA&I2/;A3Y6 7EOS3AWG3SZ +OCR/M?E"M&J7JCM2IWG7TOM+G>I7YOE* B-+GCO3RGE3D6 3A3I"M&J3C[I" 602JNI+DCF7CKU*I>I7NSO3H;I7GR 3OR +O6 "M&J3W	AT	M6I^/7ASI2 ?F7RN 3OWM3T	H+NCG+TCO7HCA3P;E"M&J7EKO7MSW"M&J7JCM6I
P3F3L+P>I3A	R+S3E2 GF+ICR3D7A3S3E"!*M2M^J3E7T+S3G2IGCL&I2/GC7LR 3U;R3S& 3NWT7RWR7POT2 GB+CCKO7N6JJI3EWC3IWV*I>I7GSE2 WP3N	D+NCG7MOE3S
AE*M3MSA+D3R"I602JRIC	A..F+2M6J7ECF+T3R2M6J3SOG+D3F2I3HT&I2/WS3TR 7FR 3O6 7EOS3AWG2 	F3ESL"M&J3TSA6IOM3GSCF*M2IOD3A6I3EOFD	F2/GS+VCE3C[D2 ?F7RB 7OSS2 GCL*M2IOA.7^7"5*M2IGT3D6I3ASDR*M2IOD3A6I7ECFT	R2/?P7ISN2 ?T2 WM3SGS+GCE3EWV+NCT3FGLG*M2IGT3D& 2IWM7FSP+R>
3W	H+CCH3C;O3T	A+NCS3S;E3D;I7GR 3A/S6 WN3MWBR*M2I;A+D"I.1^72I&/3N2 +OCW3OSR+ECR27J 7IOT"M&J3TSA6IB(7FSL+B7L"1*M2IOD7ABIT7R6JRI+ACD3I6I3ASD+R>I7GSE2 WN7WR 3A3B3EV 7NKTY*M2ISC3FN U7R2JRI+CCA7IBIT	R6/SS3OWR6 SI"M&J3TSA2IWM7FSPR*M2IGCL*M2I?PS	T6IB/7OSS2 WM3SG
+GCE3EWV+NCT3FGLG*M3M[E3C[D.,NI"M&J7JCM6I
P3F3LP*M2L"/3EWR2 ;O2 ?P7WKE6 CU"M6J2J?P7WWRP&,3TSA.IR(.0B02+GTS	K./C[*2C]3R7E3OWV. C[*1C]3CSOE6.2JRI+CCA7IBI3W3FE	F2/WR7SSE2 3F+ACG7FKO2 WN+XCT7P
O+ECR3F	A7LKUE*M2ISC3FN U7R"J*M2/WR3S?T+RCE3C?L+CCK3ASN2 WT7LSE3YWP2 3F7AOG2 ;A3D& 3NWT7RWR+PCT3EGN3BWLS*M"M&J3ISFE	F/OS"I6<2J&I7F+NR	O7OSS7T[D.&B1.02I3TSA2 >(7SST+D[V67:7.4B0">*M6IOO3TST/V^&.7G^.0Z+.0Z02IZ/+ICX+UCP/OS2 .(3LF8. F2 ;O+L	Y"M&J3I;F3Z?R6IOO3T
T/VF&"0&02<3CA6>.J:I"I&I2/	D3T?T2 ?F3R> /S"/6 STY*M2I[I7NKZ3O.I3LF8"I&<2/WR3EGN3BWL2 3K*8CA7ISN7EKR7USPS*M2I[I3NWD3F.I3LF8C	T2<3K28OA+TB=.7B4"06>2JNI+ICF"0&I2/3K*8CA7SCU7PKO3T& 3NZ 3I3E/DB "M&J7JOM" 	I2(3K28OA/TJ+2IN/3A3L2 ?P7WKE2 GF+ICL7RWO3T;IE*M"I6>"J*
2I[I3D[E6IST7D[E"I6<6JRI3TWD/VG^.0Z+.0Z06I./7N622 	F+RCE+UCP3C;O3S3O7ER +TCY3P	R3NWTR*M"I6>*J>L"M&J3ISFE	F3C?LC	K"<*M6MRJ3I/CS&=7HKE+TWZ3SWH7R+T"M&J7I+F3E?R2I3C7K	T/P2I.6N1"1&>2/;E3A3B3EN 3LOO3K& 3NWT7RWR7POT"M&J"I&I2/Z +OCR/DK+E3AC*M2I[I7NKZ3ONI7LSK+Y[P*
B *<B 2/?C3M?M3NR 3KV8+PB,/KGW22& 7NSI2 ?CD7E2J	T7COK.=FI.7B52%S7ESRZ*M3COL/S7R.IF4"0&0.IF/2 K+ZB,3MSO/EF 2 ?F3R. /WJ1"M6J2J&I3FWZR	O3C/L7TCY*-B3* B<6 N/3POE3I	F3CR 3KV83P& 7NSI2 ?CD7E2J3C/Z7E.IF6"3602J3C7CKS.=VI.3F1*I>I21. +H3Z2 ?M+DCE21Z +OCR/DKE7P6JNIT
A2JNI3LWZ*I>I7ZKE3ON 3O7M3ASN2 WR7GOI7TKE2 ;O2 /D68CE"M&J">*M3C3LR&=.6N1*2>I3C3A3LSE2 3C+DCE+OCN/DKE7P2J3C/A7B.IF6"3636JRIA	D2(3C7CKS*IB/21. +H3Z2 ?M+DCE"1*M2I3CL	R2I2/3OSA2 ?C3MGM+NCD3R
E7ISSE7R2JNIL	A2IN/7LKL2 ?D3E;S*	CT3CWL+ACRA7C6JRIA	D6(R-3I/CS*M2I3CA	B6IN/3C3A3ER 3O;W2 3C3O/C2 ?T2 ?S7F
T3AWR2 GRT7E2JNIL	A2IR/7OOE2 ?N3TN 3LGE3RF C*M"I6>2J&I3FWZR	O3C/L7TCY*-B1* B<6 N/3POE3I	F3C. /WJ12 ;I+ICT3CSOE*M3CWLN&=.6N1"4*M2IGT+D"I.3B02IZ/3OOR3EN 3LOO3KJ 3U[F+ECR7ISN3ON 3O;U7TKE"M&J3CWLN&I2/;A3DV 3NKA+LCE/KGW22& 3NWT7RWR7POT"M&J3CGL*I>I3T	H3SR 7OOE7
R	2 3C7EKA2 OA2 	E3TWHR*M"I6>"J6/2J&I3FWZR	O3C/L7TCY*-B2*<B 2/SP+P>83A& 3NWT3RGN3LN 3LOO3K& 7NSI2 ?CD7E2J3C/E7N.IF6"3652JNI+LCA3IOA"M&J3CWLN&I2/;E3A3B7EB /DP*/CA3C?L+CCK7ISN7EKR7USPS*M2I3CA*M"I6>.J:I*I>I3ESN2 [O2 3C3O/C2 ?C3N	D3T?I3N3A"M2J"/*M2I3C3A& A7C"
&I6I./60622 WR7M[O7EJ /XF02 ?C3N	D3T?I3N3A" *M2IOD3ANIT	R6/R*8CE7ISN7EKR7USP2 ;E3A3B3E2 7ESF2 OA* B="1*M2I?IN&I2/	F3N3A+L3Y2 ;E3A3B3E& 3NWT7RWR7POT2 
A3A;I"M6J"J*M2/WP3R?F+RCM7TOA3KR-3EWP3NWD+NCT7ASC3I;OS*M6MBJ7WWR+P3L2IGT3DNIT7R6JRIA	D2([P3LKT/LF-6I./7N61"M&J3DGC6ISPR*M2IGT3D& 6ISP+R>I7GSE2 ?C7NKT+OCL7WKO3DZ +OCR3T	H7SR 3A/S"M&J3SGN"M&J7JCM6I
P7RCU+N>I7NSO3H;I7GR 3OR O*M2I7CA*M2I;SA*M2I7J7PBI7WWRP	E6/WJ+SCT3CWL+ACR3EWV+NCT3FGL7G^ 7ASI"M&J3CGM"M&J3DGC6IKD3LSAR*M2IGT3DNIT7R2JNIA	L2IR/3EGR+ICL3TWH2 GTS7K2JRI3EGRI	L2I&/3N?T2 T7EN 7UKB7OSU3IWN2 [O6 SI3SN 3H	OC7E6JKD3LSAR&,"0*M7PKW3UWP6,RIA	D7CKT"M&
3C3A"M&J3UKN3A
R"M&J7PKW7CKL*I>I/[GN3]N 3LGE7RV 7SKE2 WD3F;I+ECD3W	A3TJ 7IOT".*M7PKW3U;P6,RIA	D7CKT"M&J3TSA*I6(3NGT7SOK"M&J3SGN2 3CA&I2/T7RWO/G?H"M&J7JCM6I
P3F3L+P>I7YOE"M&J7I+S6ISCR*M2I7J7PBI7WWRP7L"J*M"/*M2/;["1	]7TOE3T& 7FR +HCE7MOE3S
A7ER 3A3B7E^ 3I3L2 	F3T> 7NR 7HOI2 GPG7E6J./7N61*M>J/[GN7]RI7HOI2 WT+SCT7DCE3ESN3S> 7NR +HCE3FOA7TR 7HSA* ""6-SN3A/S+SJ)*M>J/[GN3]&I7SR +HCE7LOA3T2 3IWT3R3A2 WD3F;I+ECD+ICN3TWH2 ?C+DCE3A?B+V;E*M>J*M>J2*2*+HCN*1>2.1^/"6*M"M&J3I;F3Z?R*I6(3NGT7SOK*):-6-SN3A/
/SR&.0B06IB<3AWG*>>I3W;O*	CT7FSI"M2J"/*M3P3F3T3B6,* 3B?LC	K3NGT7SOK*I>I7MOE3S
A7ER 3A3BE*M"I&I6I./7N61* **3L;H. J1*/>1"766"J*M2I[I3D[E6ISD/A2I"M&J2*[P3LKT/LF-6+SDA*M.IF-"M&J">*M2I[I3D[E2I/R"8	E"<*M6IB*7FSL+B7L61J+3KV8"M&J"-61.J:I"M&J3ISFE	F/RCK.82I"M&J2*[P3LKT/LF-2+/R"068*J6I"1*M"I6>2J&I3FWD7FJI/F"0"I6<*J*I3P3F3T3B*-.1/RCF"8*M.IF-"
&J">*M2I[I3D[E2I[D"3&2"<*M6IB*7FSL+B7L21R+/FJ3"M&J"-61.J:I"M&J3ISFE	F7LSP"I6<*J*I3P3F3T3B*-.17LSP"M&J"-61.J:I"M6J6JBI3AWG"M6J*JRI.=6$3L;H.=6$"$*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