File PWRF.PA (PAL assembler source file)

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

2/?P7WKE2 GF+ICL3ROE3OWV+RCY7TOA3KZ +OCR7ROT*/B83VJ2"-	A*1>2.1^/"6*M"M&J7VKES&="1*M"M6J6JR/7HOI2 GT+SCK+ICS3EWX7CSU+ECD3WWH7NB 3OWW7RJ 7EWT7RON2 [A7TKE* CA7P
OE7R2JZ/3A3I3UWR*.B +ICT7ROE7TKO+ECS3TWH2 3C3O/C2 ;A7DR 3EWL7TCY3EZ 3L
A3S& 3TWS+L3F*M>J7BSU2 WD3P;E+DCS+OCN3OT+ECR7ROT*-B83H;A3DWL+RCS+TCO3P?R3VSI3EF 2 ?R3U	TN7E6J^/3HOI+HB,3WWH3NN 3A3L+E3D2 WR2-;I3I	T3A	L7ZOE2 T7EKI2 WD3VOI+E;S"M6J"J*M"/*M2/SE+ICT7HOI7TKOY*M"/*M*/B .(KVB6)"J&/*1B)2 ?T+OCK7OSU6 CS3E	C+ACL7COA+E^ 7TOL"	*M./F
2-WD/C^-*6B:2(LN6)"J&/*1B). B82 ?C3L;U3M2 /P+T6 KC+ECF7LOI3T;IG6."J&/*2B)2 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."J*M"M6J2J[I3NWD7FBI3W[R3FSL6IB<3W[R3FSL.=B1">*M3I;F3D[E6I
P3R3FO	C6<
P3R3F/O7C.2B0">*M"M6J"J*M"M&J7TOAK&=7PKWF*M6IWCR&=7PKW3F3FD*M2I;I7ISW.=BI"M6J"J*M"M6J"J*M2M&J3FSNE	F7PKW7CKL6IB<3WOR/L7R2 [E+WGT7EKO7MSW">*M3I;F3D[E2I3K"8	A2<3K.87A"06>*J>L*M>J3TWH2 OA3T?I7NR 3OJ 7ER 3AWK3N> 7NB 3OWW3RZ 3A3I3UWR6 OI2 WD7TKE3M;I+ECDB7Y6JR/
HCE3C;O3T;E+TCS+OCF3TWH2 GT3BWL6 B"7FSL+BKL6,^ 3HOI3HN 7OSN3A;I3S> +NCE7WKOD*M2/WP7RR 3A/S*.B 7AR 3A/S2 GM3YF 3LWT3R& +TCS7WKO3D& 7NR 7HOI2 GT3BWL6 	B*M>J3S;E3D;I3GF 2 WM3SGS+GCE+TCO3TWH2 ?P7WKE2-GF+ICL7TOA+KB.3TWH2 ?F3RGM3T> F*M2/T3E6 7EOS3AWG6 OI":*M"/*
"/*M"/*M2/?W+RCD"1&I3EWV+NCT3FGL+G" 7ROT*/B87PSU7SR 3A/S6 WN3MWB3R& N*M"/&I7L
O2 	B+T	S*M>J7WKO+DCS.2N-2IWR7SKE3VSE2 ?F7RJ +T?S"8*M2/?W+RCD"4&I7N
E2 GT3BWL2 ;E7T	R2 GV3LWU*M>J*M>J*M>J+ICF3TWH2 GT3BWL2 ;E7T	R2 GV3LWU6 OI* 202 ?N3T	H+NCG3W3I3LJ 3ER 3OWN2 ?F7RR H7E2JN/7OKR7ECS3OSN3I
N2 GT+S;K2 & 7FR +HCE3V3A+UCE+ICS.7^7*7B,3TWH2 GT+S
K3SV 3V;ET*M2/3F+ACG3W	A3TJ +ICT3W3I3LJ 3EN 3LGE3RSE*.B +ICF3TWH2 GV3LWU6 OI2 WB3TWWE7N.JB/2 ;A/D^ .7^72,& 3T& 3SN 7OON3IWD3RSE2 ?T2 WB2 T3EF 7DKD7EOS2 [O" 7A6JN/7UKB7OSU3IWN2 ;I2 T3EN 3A3L3I
N2 GT+S
K3SZ 3I3E7DR 7O^ 3HOI7HR +HCE7TOAK*M2/	W+LCL+BCE7DKE3A3I+ECD7WSI7HN 3OWM2 [O6 SI7S^ 7ASI2 	B+TCS3CWL3AWR+DB.3TWH*M>J7PKA3AWM7TKE6 B"3WOR+LKR2 WD7TKE3M;I+ECS3W	H+CCH3W	A3TJ 7IOT2 	W+LCLB7E2JN/3LGE3RSE".*M2L&/7NSI3I3A3IGZ3T?I3NN 3OWD"M6J2JZI3I3E3DNI+UWR"160
J*I7PKW3F?LC*M6MNJ7TKAT&,3SGT6MBJ+T3R2ISC/FB 2MNJ+T3R2IGT3D& 2IWM3FSC+F>I7GSE2 ?P7ISN+ECR+TCO7P
O+E7R3F	A3LV 3V;ET*M3P[W3L[E2,RIC	A3P[W3L[E2IZ/3L
A2 W3IC6 OI2 ;O3E2 +OCC3B[E3OWR"M&J3TSA.IR(.0B02+GT+SCK6 B/3OWW7RV-7PJ 7OSU3IWN"M&J3DGC" 	I3P[W3L[E2I&/7NSI3I3A3IWZ6 SI2 ?T6 ^"7ASI3I
N""*M6MBJ3W3F+L3P2I?IF&I2/WT3S	T+NCG3T?W2 T3I
N+S6 6 WM+SCT7H[A3E& O7F2JNI+DCF"0*M2IGT3D& 6I
P3FWL+F>I7HOA2 ?P7WKE2 ?G+NCE7D
O3NF +NCD3C7O7EV P6?6JNI+NCA3CGL"M&J7JCM2I?P7WWR+P>I7YOE"M&J3TSA" 	I2(GT7S;K226+7SSGB7L6JNI+ZCA3CGL*I>I7A	N2 WM3SGS7GOE2 ?F3R6 E6?2J*IM	P7GSE3M
S6I&/+ECS2-^ 7OJ 3ESA2 GMI7L2JNI+ICF"0*M2ISC3FN U	R2I:/3OT3I
N2 ?T2 ?D" 6-6J^I7ASIM&I2/GW+ICT7FKO2 ?S7MSE3H;I7GR 3O" 7ACPE7N2JVI3O7RW7T2J*IM	P3P[W7LCL2IF/7ROI+EB,3F	A3RR 7AOM+EGL"M6J2JWG7TOMG&,3C3A*I>I3C3A6 WT7RON2 ;I7TKE7RCU+TCS3BOA3K> N*M2IWR3C	EV	E2I^/+ECT3P;E3D;I3G6 7EOS3AWG2M6J3ASDR&,"0*M2IOD+A:I"+612JWM7FSPR6
6JOM3GSCF&,7HSL*I>I7SSE2 [D2 ?T2 WM3SGS+GCE3FWIL7D6JRIA	D3M
S3C[D"M&J3DGC2IWM3FSC+F>I7S[A3EN +DCF7FKO2 ?P+SCT3C3A"M&J/A
C.7V7"M&J3TSA2IGM7DKD"M&J3DGC2IWM7FSP+R>I3P	O+NCT+TCO7MOE3S
A3EV 3V;E3TZ 3L
A"M&J3TSA" 	I3M[E7PKT6I^/3HOI3HN 7OSN3A;I7SN 3ESN3I
N2 GT+SCK3N7U7BKE"M&J3ASN.IF("7&72/;I2 ?L3W> 3RWD/R^ 2 	BT7S6JRIA	D2([P3LKT/LF-"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"M6J2J&I3FWD3F>IS&8"<*M2I[I7NKZ3O>I7SST+D[V.1B06IR<+ACD6(OO3TST/V^&.7S^.0:0"M&J7OSS7T[D.&^7/^B1.+B6"0&62/	F7XV 3
> +SB82(3K*8CA*B13O3NY6)2J&I7F+NR	O7OSS7T[D.&B1.02I3CGL">*M"I&>*I>I7DSI+TCO7FKO6 OO*/B87T	T"M&J3I;F3Z?R2I3K"8	A*<>I3RWE3NKA+LCE/KL3A& 3NWT7RWR7POT"M&J3I;F3D[E2I3K28OA/T2I/KL7ASC.=^ .4B0">*M2I	C/FB *I>I/KL7AN 7UCP7OSR2 ;I2 	F3ESL" 602J*I+MCS+I"I/KL7ASC"+&2
/GC+LCL7P
O+ECR3F	A7LJ 7OSU3IWN"M&J">*M2I[I3D[E2I3C3O/C"I6<2J	T7COK2="I7ESR7ZN%7HKET7Z2J&I3FWZR	O3C/L7TCY.IZ<.1F3*>>I3EGN3BWL2 3C3O/C2 ;I7TKE7RCUT7S"J&I*I>I2 ?F3RR 3KV83AN,"M&J3I;F3Z?R2I3C7K	T/PF&. 2 * > 3C7O3M;O2 /D68CE2,. /WJ12 ;I+ICT3CSOE*M3TOI/K7S.I^1*5V03SWH7R
T2MNJ7LOCR&=.4B1"0&I*/B17K+H2,6 3OWD* B17FKO6 
K"1622J&I3FWZR	O3C/L7TCY*-B3* B<6 N/3POE3I	F3CR 3KV83P& 7NSI2 ?CD7E2J3C/Z7E.IF6"3602J3C7CKS.=VI.3F1*I>I21. +H3Z2 ?M+DCE21Z +OCR/DKE7P6JNIT7A2JNI3LWZ*I>I7ZKE3ON 3O7M3ASN2 WR7GOI7TKE2 ;O2 /D68CE"M&J">*M3C3LR&=.6N1*2>I3C3A3LSE2 3C+DCE+OCN/DKE7P2J3C/A7B.IF6"3
36JRIA	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>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& A7C2J&I3
WD7FJI3XF8. 2 * > 3F?L7P	P2 	D+SCK7ISN7EKR7USP2 ;E3A3BE*M2I[I3NWD7FJI7X[DC	D6<R3DOV+DB=.7B5">*M.IB6*0.63RSX3VSC2IV/3NKA+LCE/RX3E& 3NWT7RWR7POT"M&J*I>I3UWS3RV 3R?R3R& 3F" 3EZ 3O
R7EOT2 ?T2 ?LA7D"J&I*IB//RCX61SR"M&J">*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-"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>I3CWL+ACR3UWS3RR 3E	F3NSE2 GW+ICT7BSI+SB 2*2*H7N6J
P7RCUN&,3TSA6ISCR*M2IGT+D"I6-SN3A/SS*M2I;S3AN L	A6IR/3H?R3UG"?*M2I7J7PBI3W3FL	P2/WYS*M6IOI3ZNIT7R2J*IM	P7PKW3U3P"M6J"J6/"J&/7TOE3T& 7FR +HCE7MOE3S
A7ER 3A3B7E^ 3I3L2 	F3T> 7NR 7HOI2 GPG7E"J6/"J&/3T	H7SR 7ESS2 WD3P;E+DCS+OCN3TWH2 GF+CCT3TGH+TJ 2(:-7TOA+K	S""*M2/&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/S/SR&.0B06IB<3AW
*>>I3W;O*	CT7FSI"M2J"/*M3P3F3T3B6,* 3B?LC	K3NGT7SOK*I>I7MOE3S
A7ER 3A3BE*M"I&I*I*/2*L/NF .2F/./Z7"M6J2J&I3FWD3FRIT	A"<*M6IB*7FSL+B7L21R+T7A*J6I"1*M"I6>2J&I3FWD7FJI3KV8"I6<*J*I3P3F3T3B*-.1/RKE*M.IF-"M&J">*M2I[I3D[E2I/R"0&8"<*M6IB*7FSL+B7L61J+/K"0"M&J"-61.J:I"M&J3ISFE	F/RCF.82I"M&J2*[P3LKT/LF-2+[R"068*J6I"1*M"I6>2J&I3
WD3FRI/FJ3"I6<*J*I3P3F3T3B*-.1/DOF"2*M.IF-"M&J">*M2I[I3D[E6ICL/T2I"M&J2*[P3LKT/LF-6+CLT*M.IF-"M&J">*M"M&J3P
AE*M"M&J*$R=2=L+NR="=6$&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