File PWRF01.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*M>J*M>J6 B 3W[R"0&03R3E7EOA+ECD7VKE3S?I7NZ "27B"J6/*JB/6 
P/RCF61NI+CCR.5^/27F +DCD3CWL+ACR+ACC7L
O2 ?F7RB /DP7AN	.IC["17]"J6/*J>L3I	N3TGI7L+I3A	T+OCN3CSOE*M"M&J3FWIL	D7CKU.%B1"M&J.*B2"0*M6MNJ7TKAT&,3SGT6MBJ+T3R2ISC/FB 2MNJ+T3R2IGT3D& 2IWM3FSC+F>I7GSE2 ?P7ISN+ECR+TCO7P
O+E7R3F	A3LV 3V;E3TZ 3L
A6MBJ3W3F+E3F2IOD7ABI3W3FE	F2/W3IC6 OI2 ;O3E2 +OCC3B[E3OWR2 ?P7WKE6-CU2 ?R3U	TN7E6JRIA	D.(B4*0.07TOAK*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(7FSLB7L2JRIC	A7PKT"M&J3TSA" 	I3MSAD	R2/WG3T: +ECW3TKA+LCE7ESNR7Y2JNI+DCF7CKU"M&J3DGC" 	I7PKT6IN/7TKO3E& T*M2IGT3D6I7ECFT7R2JNIA7L6JBI7OSS*I>I7POO3T6 7EOS3AW
6 [E7ESN2 3FA7G2JWM3FSCF&,"3*M2I7J7PBI3W3FL7P*J>L7HKE3E> 7NB 3OWW7RV P*M6MBJ7OKW+U3P.IF6"0&36I./60613CWL+ACR3FGL3G> 7NB /DPA*M2I?NP&I./C[61O]3AWF+T3Y2 ?N7TN 7UCP3OWS7DR 3OJ 3E: 3ESEE7D2JNIL	A6I./60613S;I+CCE+NCO3SWP3C[I+ICC7PCD*8CA3C;O7DSI3I;O+ACL+ICN7PKA
AGM"M&J3TSA.IR(.0B02+GTS7K2JRI+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>J2I[I3D[E6IST/Y2I7TOL*>>I3O3N7YN 3UWR2 GW7YR 7ON +ECT7T	T2 3FA7G2J&I3FWD3F>IS&8"<*M2I[I7NKZ3O>I7SST+D[V.1B06IR<+ACD6(OO3TST/V^&.7S^.0:0"M&J7OSS7T[
.&^7/^B1.+B6"0&62/	F7XV 3P> +SB82(3K*8CA*B13O3NY6)2J&I7F+NR	O7OSS7T[D.&B1.02I3CGL">*M"I&>*I>I7DSI+TCO7FKO6 OO*/B87T	T"M&J3ISFE	F/KL/A2I6IJ/3E;E3A3B3E. 3LF82 ;I7TKE7RCUT7S2J&I3FSNE	F/KL7ASC2I.<3LF8/C7T. R7.0:0"M&J3C[I" &02I./3LF86 WS3P?P+RCT+ICN3FWI+LCD"0*
2I7J3S& 2I.(3LF8+C/T*2>I3C3A7LB 3OWW3RZ 3A3I2 ?R3U	TN7E.J:I"M&J3ISFE	F3C?LC	K"<*M3TOI/K7S2IWH7R+T2%S7ESRZ*M2I[I7ZKE3ONI7LSKY	P.<F6.3:12IV/3NKA+LCE3C?L+CCK7ISN3SZ +OCR/DK+E3AC*M2I[I7NKZ3ONI7LSK+Y[P.12I2IN/3O7M+OCN/DK+E3P6 
K*1B23I	N3TN 3OWD6MRJ3I/CS&=.1V760N%7HKET7Z2J3C7CKS.=RI.1B0*I>I21. +H3Z2 ?M+DCE21Z +OCR/KGW"2*M2I[I7ZKE3ONI7LSK+Y7P.32I6IN/3POE3I	F3CR 3KV83P& 7NSI2 ?CD7E2J3C/Z7E.IF6"3602J3C7CKS.=VI.3F1*I>I21. +H3Z2 ?M+DCE21Z +OCR/DKE7P6JNIT7A2JNI3LWZ*I>I7ZKE3ON 3O7M3ASN
 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"-&1*<>I3SWP3C[I+ICC/KGW22& 7NSI2 ?CD7E2J3C/E7N.IF6"3646JRIA	D.(B3*0>I7FKO+CCE3C?L+CCK3B[U7FKE2 ;I+TCO7CWO3NWT3RF N7D2JNI3L;E*I>I3EGN3BWL6 
K*1B27ISN7EKR7USPS*M2I3CA&I2/T+ICS3DWO+S
N3TN 3LGE3RF 3CV 3ITE7R.J:I"M&J7I+F3E?R2I3C7K	T/PJ-" &<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"M&J3CGL2 GIC*M2I[I3D[E6I
"8	A*<>I3F?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 ?L+ACD/RCX61SR"M&J">*M2IOD3ANIT	R6/R*8CE7ISN7EKR7USP2 ;E3A3B3E2 7ESF2 OA* B="1*M2I?IN&I2/	F3N3A+L3Y2 ;E3A3B3E& 3NWT7RWR7POT2 
A3A;I"M2J2/WP3R?F+RCM7TOA3KR-3EWP3NWD+NCT7ASC3I;OS*M6MBJ7WWR+P3L2IGT3DNIT7R6JRIA	D2([P3LKTL*M2IOD7ABIT7R6JRI+ACD7IBIT	R2/WG3TN 7OSN3R3O2 ?W+RCD7FKO2 T+ICS7TOAK*M2I;SA*M2I7J7PBI7WWRP	N2/?N3T	H+NCG+TCOD7O2JNIM7A6JNIN7A2J*IM	P7PKW3UWP2I*/7USS2 3C7EKA6 [E7ESN
 3F+ACG3W	AT*M2I7CA*M2IOD3ARI3RGLD7R6JRIA	D7CKT"M&J3C3A*I>I7DKE3A3I2 T7ER 3A/S"M&J7DKE3A3I*I>I7ISN7OR +HCE3SKU7RWO3T;I3E> 3F& +TCS3C?H3IWC2MRJ3RGL+D3R"I606J
P7RCUE&,3TSA6ISCR*M2IGCL*M2I;U7BKAG*M2I[E+WGT7EKO7MSW2IN/3LGE3RF +LCL3FGL+GCS7DCE3ESN3I
N2 ;O2 [EW7T6J
P7RCUN&,3TSA6ISCR*M2IGT+D"I6-SN3A/SS*M2I;S3AN L	A6IR/3H?R3UG"?*M2I7J7PBI3W3FL	P2/WYS*M6IOI3ZNIT7R2J*IM	P7PKW3U3P"M&J7I+F3E?R6ISN3A/S/SR-.0R&.0B06IB<3AWG">*M3P3F3T3B6,*I3B?LC	K3NGT7SOK"+&12/	F7RSS2 ?W+RCD7NSO6 OUE7D2J&I3FWD3FRIT	A"<*M6IB*7FSL+B/L3DGT"M&J"-
1.J:I"M&J3ISFE	F/RK"I6<*J*I3P3F3T3B2+/R"8*M.IF-"M&J">*M2I[I3D[E2I[R"0&8"<*M6IB*7FSL+B/L/RCF"8*M.IF-"M&J">*M2I[I3D[E2I[D"3&2"<*M6IB*7FSL+B/L/DOF"2*M.IF-"M&J">*M2I[I3D[E6ICL/T2I"M&J2*[P3LKT3L2+P7T*J6I"1*M"I6>6JBI3AWG"M&J*$R-"-6$"JBZ"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"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