File PWRF.PA (PAL assembler source file)

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

*/B17ROT*-B87P
O+ECR3F	A7LJ 3E?C7VKE7YR 3A/S"M&J7VKES&="1*M2I3X7ISS"I&12IN/7O	P3R
I+HCT7AOL3O^ 3IWV3N& 7NB 3AGR7MB.A*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M"/*M2/?C7PKY3IG+TB *(	C. F .9R7.,&1*7B6+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"/*M2I3X7ISS"I&02/	L+SCT
TOAK*M2/T+ICS7TOA3K& 3SV 3XOE3UWT7D^ 3H;E2 ?P7WKE2 WR7TKU+NCS7ASF+ECR7AB 3OWW3RZ 3A3I3UWR*.B I7T6JJ/7ESS3OWR7SR +HCE3C?L+CCK3ASN2 WT7LSE3YWP2 3F7AOG6 SI3S3E+FB,7BSU2 WD3P;E+DCS+OCN3OTE7R6JJ/+T7S28" 3ASN7LKE7SR 7OB 7R[O3IWD* CA7RWO3T;I7E^ 3HOI+HB,3WWH3NN 3
3L+E3D2 WR2-;I3I	T3A	L7ZOE*M>J3TWH+ICR7D[E3IWC".*M*M>J3TWH2 OA3T?I7NR 3OJ 7ER 3AWK3N> 7NB 3OWW3RZ 3A3I3UWR6 OI2 WD7TKE3M;I+ECD+BCY3TWH*M>J3C;O3T;E+TCS+OCF3TWH2 GT3BWL6 B"7FSL+BKL6,^ 3HOI3HN 7OSN3A;I3S> +NCE7WKOD*M2/WP7RR 3A/S*.B 7AR 3A/S2 GM3YF 3LWT3R& +T
S7WKO3D& 7NR 7HOI2 GT3BWL6 	B2 WS3N	D+NCGA*M2/WM3SGS+GCE+TCO3TWH2 ?P7WKE2-GF+ICL7TOA+KB.3TWH2 ?F3RGM3T> 7FR +HCE7MOE3S
A3E& S6:"J*M2/?W+RCD"1&I3EWV+NCT3FGL+G" 7ROT*-B87PSU7SR 3A/S6 WN3MWB3R& 3N2 +OCW7BSIS6)6J^/3OSR/SJ "-&37ROE7E[R+ECD7FKO6 SR/S"-*M>J7WKO/DR 2I:I+ECW3TKA+LCE7ESN+RCY3V3AU7E"J*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*	CS3EWV+NCT3FGLG*M2/GW+ICT7BSI2 	W+LCL+BCE3CWL3AWR+DB.2 [I2 T7EZ 7AWL3E& 3SJ 7E
T3E;E* B03ASN. ^7*7276 SI*M>J+ICS3C;O3SSI3EWR7DR 3OJ 7ER +HCE3ASD7ROE3S> 3FF 6 WS3B?R3U	T+NCE+ICN3TWH2 GT+S
K3SZ 3I3ED*M2/?T2 W3IC2 T7ER 3A/S2 	W+LCL+BCE7DKE3A3I+ECD7WSI3H& +TCS3EWV+NCT3FGL7G^ 7ASI2 	B3TN 3LGE3RSE".*M6MRJ3A/S6=BI3W[R2MNJ/U7R.IB12M&J7N
IT&="0*M*M>J3E	D3T" 7ISS7O	R":*M*M>J3VJ2":*M*M>J"1&.3T?O3K> +UCT3SWP3CGI3LN 3AWS6 R	+L
S"M2J2/;I3I	T3A	L7ZSA3I;O2 ?CD7E"J*M2I	F3ESL6IWC/RF%"0*M.IJ*"060"J*M3SGT+R3T6ISSA*M7PKT2,NI+DCF"0*M7CKT6,RI+ACD3I6I3EOFD	F2/WG7TB 3O;I7TKE2 ?T2 ?P7WKE2-GF+ICL3EWV+NCT3FGLG*M3P[W3L[E2,RIC	A3P[W3L[E6I^/3HOI3H& 3S> +NCE3LOO2 WB7FKO7EB 3OWW7RV-7PJ 7OSU3IWN"M&
3TSA.IR(.0B02+GTS7K2JRI+CCA7IBI3W3FE	F2/;I3I	T3A	L+ZCE+ICT+TCO2"GW3I	T+NKG"M6J6J
P3F3LP&,3I[O*I>I7TOE3T;I7GR +WCO3T	H7NOG* B-7MOU3T" 3AWV2 ?IF*M2ISC/FB "M&J3TSA" 	I3P[W3L[E2I"/+ACS7P
O+ECR3G;O3ER 3O;W2 ;A3DN 3OWM6 CU"?*M2I;S3AN L7A2J*IM	P7P
O7RCU6I&/E7S6JRI+ACD+I"I7TOA/KK^6+OM3GKTL*M6I+S3AN L	A2IF/+NCY7MOE3S
A+ECS7FKO2 WM"?*M2I7J3P^I3E7TS	G2/WY+S6 2 ?G2 WR+ACD3M	AL*M2I	C/FB "M&J3C[D6 WCR&I2/?N3T	H+NCG+TCO+DCO"-*M2IGW3I7T*I>I3W	A3TZ +OCR3S7O3ET3I
N2 ?T2 GH3PWPN*M2I?E7R
MT*M2I7J7PBI3W3FL	P6/KA3IWS2,Z 7AKI2 GD3MWSL6!"J*M7GSE3M
S2,NIA	L2IN/+ACL7TKU+NCS7ISN7EKR7USP3SJ 3A/C2 ;O"M&J3ROE7E[IE&I2/WG7TB 3ESN3I
N2 WM3SGSG7E2JGM7DKD.,BI"M&J3DGC*I.."1*M3M[E7PKT",*M3M
S3C[D2,"IL	T6IN/+ECT+DCF+TCO7MOE3S
A3EZ 3I3ED*M2IGT3D6I3SOGD7F2JRIC	A3M[E3C[D6IN/3AWV2 SC3FZ +OCR7POO3TN A7L2JFI/C^7"7656JRIA	D3MSAD7R2JRIC	A3M[E7PKT6IB/3O;I7TR 3O6 7EOS3AWG6 [E7ESN2 3FA7G6JRI+ACD3I6I7ECFT	R2/W3IC2 ?C3NGT7ION2 WS3N	D+NCG7TOA3K: 3UKME7R2JFIN	D.(^1*7>I+ICN7L
O6 KO7DKE* B77BSIS*M2IGT+D"I3P3F3T3B"M&J3DGC6ISPR*M2IGT3D& 2IGM7DKD2I^/+ECT7N
E2 GT3BWL2 ;E7T	R"M&J3C[D6 WCR*M2IOD3A& 6ISP+R>I3S?T+RCEI7T6JRIA	D3M[E7PKT"M&J3C3A"M&J7POOT&I2/?P+SCT7MOE3S
A3EV 3V;E3TZ 3L
A2M6J3EOF+D3F"I632J*IM	P3P[W7LCL"M2J2/WH+RCE+OCN7P
O+ECRU7P"J*M7P
O7RCU6,RIA	D.(B4*0.07TOAK*M2IOD3A& 6I
P3FWL+F>I7ROE+ECT3FGL3GZ +OCR7NE7TB 3OWW3RZ 3A3I3UWR"M&J3C[D6 WCR*M*M>J7ROE7TKO3EN 3LOO3KF +NCD3T3E7E	T+PCE3FGL+GCS3ASN2 ;I7TKE7RCU3TV 3NKA7LOE"M6J"J&/3ISFE	F7T	T6IR</L;S2I>/7N	L6 WS+RCE7W	A2 ?T2 WS7TR +TCY3FGLG*M2I[I3D[E6IOO.82I"M&J3I;F3Z?R6IOO3TST/VF&"0
02<GT+D" 7OSS7T[D.&^7/^B4"06>2J>I7SST+D[V67:7*1.0.6B0*6>I7FI6 CU6 OO*8" /KL+AN 21> 7N	L")*M2I[I7NKZ3O>I7SST+D[V.1B02IN</L;A"M&J">&I2IR/7IST3OZ +OCR+O?S68R T7Y2J&I3FWD3F.I3LF8"I&<2/WR3EGN3BWL2 3K*8CA7ISN7EKR7USPS*M2I[I3NWD3F.I3LF8C	T2<3K28OA+TB=.7B4"06>2JN
+ICF"0&I2/3K*8CA7SCU7PKO3T& 3NZ 3I3E/DB "M&J7JOM" 	I2(3K28OA/TJ+2IN/3A3L2 ?P7WKE2 GF+ICL7RWO3T;IE*M"I6>2J&I3FWD3FNI3LOO/K2I6MRJ3I/CS&=7HKE+TWZ3SWH7R+T"M&J7I+F3E?R2I3C7K	T/P2I.6N1"1&>2/;E3A3B3EN 3LOO3K& 7NOT2 ?F3RR 3KV83AN,"M&J3I;F3Z?R2I3C7K	T/PF&"I&<2/?C3
?M3NR 3KV8+PB,/KGW22& 7NSI2 ?CD7E2J	T7COK.=FI.7B52%S7ESRZ*M3COL/S7R.IF4"0&0.IF/2 K+ZB,3MSO/EF 2 ?F3R. /WJ1"M&J7I+F3E?R2I3C7K	T/PN-"I&<6/CS3E	C3FOI2 /D68CE2 ;I+ICT3CSOE*M7C+LE&=.6N1"0*M3COL/S7R.IN5"1&1.IF/2 K+ZB,3MSO/EF 2 ?F3RR 3KV8P*M6ISSA*M2I3CZ	E6I*/3E?
2 ?C3MGM+NCD3R
E7ISS+ECR+OCN/DKE7P.J:I2MNJ7LKL.=ZI.1J32IN/3A3L+ECD3CSL3E> 3NR 3KV8P*M3CGLB&=.6N1"3*M2IGT+D"I3COLS	R./F 2 K+ZB,3MSO/EF "M&J3C3LR&I2/?L+ACD3C7O3M;A7DJ 3E	G3SWTR*M2I3CA&I2/3C+LCR3DWO+S
N3TN 3LGE3RF C*M2IGT+D"I2-	T7COK"M&J3CGLB&I2/OS3AWL2 ?D+WCN3C?L+CCK+TCO3S[O3TGW+RCE7RSAE*M2I3CA&I2/?D+ECS7NSO2 3C7EKA2 OA"M&J">*M2I[I7ZKE3ONI7LSK+Y7P.12I6IN/3POE3I	F3C. /WJ12 ;I+ICT3CSOE*M3CWLN&=.6N1"4*M2IGT+D"I.3B02IZ/3OOR3EN 3LOO3KJ 3U[F+ECR7ISN3ON 3O;U
TKE2 ;AD*M2I3CE	N2IV/3NKA+LCE/KGW22& 3NWT7RWR7POT"M&J3CGL*I>I3T	H3SR 7OOE7NR	2 3C7EKA2 OA2 	E3TWHR*M"I6>2J&I3FWZR	O3C/L7TCY*-B2*<>I7PCD28F/2 ;I7TKE3N3A2 3C3O/C2 ;I+ICT3CSOE*M3CWLN&=.6N1"5*M2I3C3A& A7C2JNI3L;E*I>I3EGN3BWL2 SP+P>83AN 3LOO3K& 3NWT7RWR7POT"M&
3CGL"M&J">*M"I&>2IV/+NCD+OCF3C?L+CCK3C;O7DSI3I;OA7L2JNI+LCA3IOA"M&J3ISFE	F/RX/A2I2IZ/7LCO+PCY7DOI3K& 3NWT7RWR+PCT3EGN3BWL"M&J3I;F3D[E6IR3DOV/D2I3RSX3VSC.=^ .5:0"M&J.6B066J+7X[DC	D2/;E3A3B7EJ 3XV82 ;I7TKE7RCUT7S"J&I6IV/7SKE6 KE7RKO2 [I2 WH2 ?F3RWG+TCS+TCO3
GO7DJ /XF0R7T.J:I"M&J3DGC6ISC+R>I/RX3E& 3NWT7RWR+PCT3EGN3BWL2 WL+FCT+ACC.=F "M&J3I;O*I>I3F;I3A3L+YB,3EGN3BWL2 ;I7TKE7RCU+TCS3AGGI7N*J>L7PKE7FKO7MR 3A/S2-WD3P;E3D;E3TF 3C	T7OON"M6J6J
P7RCUL&,3TSA6ISCR*M2IGT+D"I3P3F3T3B"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&J7E
F3TV!3O7RW	T2/3C7EKA2 3A3LZ 3L
A3SR 3EWP3N	D+NCG+OCN7E
FT*M7PKW3U;P6,RIA	D7CKT"M&J3TSA*I6(3NGT7SOK"M&J3SGN2 3CA&I2/T7RWO/G?H"M&J7JCM6I
P3F3L+P>I7YOE"M&J7I+S6ISCR*M2I7J7PBI7WWRP7L2J&I3FWZR	O3NGT7SOK.-B4.&B4"0&02<GP/G;E6MBJ7FSL+B3L2IKZ3LOO3K:I7TOA+K/S*1>I7FKI+SCT7WKO3D: +OCT3UWSD*M2I[I3D[E6ISD/A2I"M&J2*[P3LKT3LR+T7A*J6I"1*M"I6>2J&I3FWD7FJIK&8"<*M6IB*7FSL+B/L/RK"M&J"-61.J:I"M&J3ISFE	F/RCF.8
I"M&J2*[P3LKT7LJ+/F"0"M&J"-61.J:I"M&J3ISFE	F/DOF.22I"M&J2*[P3LKT3LR+/FJ3"M&J"-61.J:I"M&J3ISFE	F7LSP"I6<*J*I3P3F3T3B6+CLT*M.IF-"M&J">*M2IGPG7E*JRI*-6$"$*M"ZB"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"
"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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