File HOPM1.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file
* " 2(WB3G;I3N;I7GB 3AWG. F 2 [O2 GT+PCE*4B,7OSC..J *1B,.	R72," 3OWP6.R 3A
R7EOT2 WJ2 *=3EGM3LF N7D"J*M* B 2 ;J* B=3JO7NSA3H;A6,^ 3IT2 ?L* B=7LKO3R	A3NF,/N6 2 ;A3T?H+N3Y2 C* B=7CKH7ISS3OP+E3R2 GA" 6="J*M* B 2 GA3R;O6,B /L6 2 3P3ES7EST+EB,+LCA2=2 7AN 7H
A+NB.3TWH2 WS3T	T+NCG+ICS3TWH"M6J*JB 2 ?H3UWS3KWE3P;I3GF 3RGE2,F +NCD+JCE3ASN2 ;J6 KA3EF 7TR +HCE3S?T+V3E6 SS7IKR3I
N" *M*MBJ2 Z 3U	R7OOU+L;Y2 T+ECY3AWR6 KP3EWT3N	D+NCG+TCO+BCE3C?O3K;I3GV 7GOG")6."J*M* B 2 * +EB +OCH3L?O+KB,7YWO6 CS3I3L2 GD6 R(+H	E2 
E+G3S6 CS3I3L2 GD6 R(+H	E2 
E+G3S2 ?NW*M*MBJ* B * B * B 3M/A7EN 3OWM2 ?M+R;E"M6J*JB * B +JCN2 WL3MWM2 2(+ECT+M	E6 KC3A/C6 N 3OWM2 ?M+RCE3E
GS6."J*M* B 2 * +EB +ACH*(	I2 ?G3TGT2 ^(+OCT+T	O6 WP7T^ 3AWT3R& N6."J*M* B * B +JCN6 WP3T& 3TJ 3A/C2 ;O* CA3S?T+V;E"M6J*JB * B +ACN2 A+M" 3I6	6)B 7UST+ICN6(WP3T	T+N	G2 ;O2 GD6 R(+H	E2 
E+G3S2 	M+NCD+MCA6(	M2)J 7A	B",6 "J*M* B * B * B 2 ?H7N	E2,6 3ISN2 T3EJ 7A	B2 3P7EOA+E".2(;A2 ?C7MOE2 ?T2 T7EN 7T[O7E^ 3IT* CA7PSO")6."J*M* B 2 2 +OB 3YGE+HB,3H7M6,^ 3E^ 3O;N+A" 3G	O+NCG+T	O* 6-*-" 2(?L2 GT3L	K+NCG+OCN3TWH2 P3OWN")6."J*M* B 2 * +EB 3I^ 3O
N+A" 3G	O+NCG+T	O6 WP7TN 3OWM2 	O+LB.2*& 2 ?G3NGN2 ^(3O;I7GR +OB)7PSU2 ?SM7E"J*M* B * B * B 2 ?P3I?S3N& 3N& T6."J*M* B 2 * +NB +MCE3T?O*." 2(;J2 GM7KOE* CA3YSO3E	L+NCG7SWO+NCD3W	H+CCH7SWO7NOD2 WV+RCY3L/I7ER +HCE3N	OS7E"J*M* B * B * B 2 [O2 T7EN 3P?O3N& 7N
 +HCE7PSO")6."J*M* B 2 WJ2 & 6 WP7TN 3OWM2 ?P3I?S+NB,7IB +UCT3P	O3S;O".*M*MBJ* B 2 ;J2 & 6 WP3TN 3L	O3S;O6 B(7OOI+O	N2.F +HCM*(
I+MB)7NSO* 6-"-*M*MBJ* B 2 WJ2 F +HCM7AB 7OOI+O3N2 7I+MCA*(
I3M^ 3O;I7GR +OB)3P	O3S;O2 GM2 6(+YB)3KSI+SB,+ACH*(	I2 7A".*M*MBJ* B 2 ;J6 V 7HV +HB,+UCH+U3H* 
I3M: +OCT3G;O+NCA2(?G3I
N2 ?T2)V +ACT7DOI6 R(7HOI*)B.3I6	"M6J*JB * B * B 2 : +OCT3G;O+NCA2(?G3I
N2 ?T*)6 "-6-"J*M* B 2 * +EB 3I6	2 ?N3T^ 3O;N+A" 3G	O+NCG+T	O2 GE3TR +ICS2(T+I	S2,F +HCM*(
I+MB)3G;O+NCA2(?G3I
N2 ?T")*M*MBJ* B * B * B 2 ?P3I?S3N6 +A" +M	Y2 ?F+O;D* B*7DOI6 R(7HOI*)B,7DOI6 R(7HOI*)B,2*R +ICS2(T+I	S"M6J*JB * B * B 2 ^ +OCT3P	O3S;O2 ;I2 	D+S" 3T	H+S2)2 WP3O3P3E2	3LR +I;E"M6J*JB * B +JCN2 ?C+MCE+O3N2 WL+TCS2(;I3ASU2)Z +OCR+DCA2(T+EB)7B	O+SB.7LSE*	CS
W	A3TZ +OCR*-6-2 &(7NWA+D:)"M6J*JB * B * B 6 V +SCE3T?H+SCE3T?W6 SS3OWNS6."J*M* B 2 * +EB 7H	E2,& 2 ?G3TGT2 ^(+OCT+T	O2 WG7TN 3OWM2 	M+LCK+TCO3PSU6 B(+U	T2 ;I2 	M+N;E2 ?M+V3E"M6J*JB * B * B 2 6 3OWV2 ;A3T?H+NGY"M6J*JB * B +ACN2 &(7NWA+DB)2 
E+G;S"M6J*JB * B 2 WJ2 : +A" +N	O6,^ 3E6 3A	K+N" 3M/A3I
N2)V 7GOG2 ;I6 KE+E" 7HKE+E:)"M6J*JB * B 2 ;A2 : O6!"J*M* B 2 * +EB 7M[O+EB!3E
G7SN 7UCP3OWS7DR 3O^ 3O& 3NV +RCE2(WH+R	E6.N +ECE+ACT3E
GS6?"J*M* B 2 F +NB 3TGH3TF 7ISN2 ?N2 
E+GGS2 
E+GCS7SCU7POO+ECD+TCO7H[A3E6 3I/L".*M*MBJ* B 2 WJ6 & +ECS+ICT+IGS"M6J*JB * B +ACN2 A+M" 3I6	2)6 3A	K+N" 3M/A3I
N2)Z 3R;E+CCH3TGO+S;T2 ?N3W^ 3I7M+E" 7G[I3E6 +EB)3S7O3E6 3I/L"!*M*MBJ* B * B * B 3A7H2 &(*		M2 GM3K;I2 6(3A	K+N	G6 KF3EON7HR 7OOAT6."J*M* B 2 * +NB 3T	H3S& 3SF +LCL3RGE+D;Y"M6J*JB * B +JCE2 	G3MWM2 ^(3IWV2 WM6)N 3OWM2 	M+LGK2 A2 &(2): 3ESE2 ?S+MCE3M3I7KR 
O;O"M6J*JB * B +JCN2 	M7NOE2 6(3IWN2)& 3SF +LCL3RGE+DCY3T?O* 6-2-: +OCW3G7I+MCE2(	GV7E"J*M* B * B * B 2 WM6)N 3OWM2 	M+LGK"M6J*JB * B * B * * * B***" 2(3A7LN 7TKI3R;I3GZ 3U	R7OOU+L	Y".*M*MBJ* B 2 WJ2 F +H" +IB)7GSO+TCA2(?G7TR +OB)7GSE2 ?S+MCE3P	O3S;O*.B 7
OS+S3H6 OS+S;H"M6J*JB * B +JCN2 A+M" 3I6	2)6 3A	K+N" 3M/A3I
N2)6 7EB 3OOP3O;R".*M*MBJ* B * B * " 2(WT/CGH2 ?C7MOE6 [O+ECR+TCO3TWH6 SS3OWV")6."J*M* B 6 R 3EC*1B 7WWO+LCD7YWO2 3P7EOA3E^ 3IWV2 WM* CA3S?P/O?N* " 2(?T2 ;J")6."J*M* B 2 * +EB 3T?H+SCE7GSO2 ?P3I?S+NB.6*& +OCU3D?R3PWP7DR 7HSA2 [O3FF 2 ?H+O;K"M6J*JB * B * B
* B 3I6	2 GM3K;I2 6(3A	K+N	G2 ?P3I?S7N^ 3IT2 
E3GF +N" 3ASN2)6 3I/L".6 "J*M* B * B * B * * * B***B 2(N(3HF 3R	R7VOE2 	W+TCH3A2 3E
N+TCH+OCF7MSE+ACL3CGH+I	N".*M*MBJ* B 2 ;J6 & +OCU7BSE7TKE6 SS+OCP7CWA+SCE2(WB7CWA+S	E2 T+A
T3SF 2 	P3EWC* CA3TWH2 ?TY6."J*M* B 2 N +HB +NCO+ICT3A;IT6."J*M* B 2 * +EB +I
T3SJ 7R
O3NV 7NWO+GGH2 T3EV 7GOG6 WB3R	N+N3G2 WL3MWM2 2(+ECT+M	E2 WG+D" 7GSE")*M*MBJ* B * B * B 3S7O+E^ +ICN2(?S7MSE3H;I+G:)"M6J*JB * B +CCH2 A2 &(6)R 3OSL2 ?Y3UR +O
N3T" 3AWV2 ?N2 "(3OWL*?:)6 SA*	CS+A" 7TCO*?:)"M6J*JB * B +ACN2 A+M" 3I6	*)" 3IGN+U	D2 GM3K;I2 6(3A	K+N	G* CA2(WP+ECL6-B 3E3E*?:)2 A+M" 3I6	")6 "J*M* B * B * B 2 6 3A	K+N" 3M/A3I
N2)F 6 B(3E3E* B-3PWE+L&?*." 2(;A2 ?W3R	K+NCG+ACT3TWH6 SS3OWV"M6J*JB * B * B * B 3ASN2 	H3T	T+NCG7HOI2 ?P7T^ 3IT* CA3S?P+O	N".*M*MBJ* B 2 ;J6 R 7HOI6 OI2 ?P3I?S3N& 3N: 3EWR2 "(3EWR")6."J*M* B 2 * +EB 3I7M+A" 3I6	2 ?G3I
N2 ?T2)J 3RGE7KR +HCE3M;A2 ;I+TCO3M;I+EB.3BWR+ACK3TWH2 GMN6."J*M* B 2 F +NB 3PSU3D;I6 B(7UST3I
N6)B 7OOI+OCN+I;N2 	D+S" 3T	H+SB)3P	O3S;O2 A+M" 3I6	6)B 3USDI7N"J*M* B * B * B 6 B(7UST3I
N2)& N6."J*M* B 2 * +EB 3IJ 3RGE7KR +HCE3M;A".*M*MBJ* B 2 ;A2 F +H" +IB)7PSU2 ?P3I?S3N& 3N: 3EWR2 "(3EWR")6."J*M* B 2 * +EB 2 & 3MGM2 &(*	CM3G	O+NCG+T	O6 WP7TN 3OWM2 ?P3I?S3N& 3N: 3EWR2 "(3EWR*)B.3PU6!B +UGH"M6J*JB * B * B 6 B +UGH6 WPH6!"J*M* B 2 * +NB +
CH*(	I2 GH+VCE+TCO3SGH+KCE3M;I+ECS2(	M+N	E6 CU6!B 3WWE6,B 3WWE6,B 3WWE"!*M*MBJ* B * B * " 2(C2 ?C7MOE6 [O+ECR+TCO3TWH6 SS3OWV2 ;A3DJ 3E	G+NCS+TCO3C?O7KN 3OWM3T	H+N	G".*M*MBJ* B 2 WJ2 F 3H^ 7OST+A" 7GSO2 ?T6)B +UCD6(WP+TB)3S7O3E6 3OWR2 
E+GCS+I;N2 WPE6!"J*M* B * B * B 2 WP+EB!3PWE"!*M*MBJ* B 2 N +HB 3A7H2 &(*		M2 ?C3O	K+N" 3C?O3K;I+GB)7FOI+HB.2(N(7HN 7TKI3S" +ICS7PSO2 	WT7H"J*M* B * B * B 2 F 2 ?S+UCP3LSA+L	E".*M*MBJ* B 2 * +EB 7M[O+E" 3IGN+U	D6.& +OCU3C?O3K;I2 N(3O/O3I
N6)N 7OCU2.F +H" +IB)7GSO+TCA2(?G7TR +OB)3PSU"M6J*JB * B * B * " 7PSU6)N 3OWM2 /A3A?H+LCE2(3A3CO+O	L2 ;I6 SI".*M*MBJ* B +JCN2 O6!R +UCZ2(WB7CWA+S	E2 WW2 	K+N" 3C;A*)B,7T+U2 J(3EGC3UWS6)^ 3E. +ICN2(GC+NB)3W;I+E6 *-B-2(*(N*M*MBJ* B * B * B 6 GS3UWE7ZOE2 	W+
CE3F?R3MF 2 GB+BCY7BSO3TWL2 ;I+TCO3TWH2 ?P+T:)"M6J*JB * B 2 WJ6 ^ 7EB +UCT3AOL3A?H+LCE2(3A3CO+O	L2 ;I2 WN+RCE2(T3EWR")6."J*M* B 2 * +NB +WCE7PSU2 	W+NCE+ICN7HKE+EB.7IB +UCT3W;I3E& 3N" 3EWR*." 2(C2 SA+DCS3A2 3A3D3E> F6 "J*M* B * B * B 2 C3A;I2 ?T2 WJ*	CS3E
G+S&."M6J*JB * B +CCH2 ?N2.: +OB.7LSE2 WM6 KD+OCP+ICN7NKE+E" 7HKE+E:)"M6J*JB * B +JCN2 ?Y3U. 7N
O* CI7PSU2 	W+NCE+ICN7NKE+E" 7HKE+E:)2 	P+S3H2 	P+SGH* "(7SWQ7E+EE7S"J*M* B * B * B 3BKA3YJ 7OST+LCE7ISN7OR +HCE7PSO")6."J*M* B * B * B 7H	E6,^ 7ASN2 ?S+MCE3W;I+EB?7YWO2 GW+NCT3S7O7E^ 3IWN"?*M*MBJ* B 2 WJ2 2 +ECT+MCE3C?O7KR 7HOI2,2 +ECT+MCE3C?O7KR 7HOI* "
+JCE3P?R7TOE3T;I3G& 3NWT3RWF3R;E+CCE"M6J*JB * B * B 2 Z 3R7O2 C2,F +NCD3S	T3R	R+NCG7HOI2 
E+GCS7WSI3HF 6 SS3ET3EOS3OWP")6."J*M* B 2 N +HB 3TGH7TN	* CA2(;I3ASU")6."J*M* B 2 * +NB 7YWO2 GW+NCT3S7O7E^ 3IWN"?*M*MBJ* B 2 WJ2 : +A" +N	O2,2 3E7M+E" 7LSE2 WM2)N 3O/O2 T+I3S2 WL3MWM2 2(+ECT+M	E2 ?C+OCK3TGHT6."J*M* B * B * B * B*2 GN2 :(+O2)2 ?D7NR	2 WB2
GT3K;I6 R(3A	K+N	G2 GM2 6(+YB)3K	N+F;E"M6J*JB * B * B * "(+JCN3GWO3S> 7VKE2 ?T2 KG* :)"M6J*JB * B +JCN2 ?Y7UR +A
N+T" 3C;A*		T6 R 3A/L2 ?T2 T/I?S2 WY6?"J*M* B 2 ^ +BB +N;O6 SI*	CS3O3N3YZ +OCR7LOI3T;E3I
N".*M*MBJ* B 2 WJ6 & +OCU7NSO2 	F7NOI3HSE2 ?Y6 &(7OKU2)F 3L?C3H3O6.& 7OKU2 3A3CO+OGL"M6J*JB * B +JCN* 
I+LCL+BCE3R
I+HCT7DKE+E" 3TWH+R	E".*M*MBJ* B 2 WJ2 & 3TJ 3U;R3I
N".*M*MBJ* B 2 C2 & 7TN	2 ;O2,& 7TN	2 ;O2 	F+R;E6 SI*	CS+OCN7FKI+EB.2(N(7HB 3I/C7SV 7PB 3H;O+E:)"M6J*JB * B +JCE6 SI6 WB+RCN7D
O+NB,3TWH2 	F3R7E+ACN7HKEE6."J*M* B 2 * +NB +UCH+U;H"M6J*JB * B +CCH2 T3EZ 3IWR3M;A2 WH+R;E"M6J*JB * B +ACN* "(+ACN3T/A+ECS3TWH2 P3OWN6 KF+OCM+C	H2.^ 3I7M+E" 7G[I3E6 +EF)"M6J*JB * B * B 2 F +H" +IB)3NWE7DR 3ON 3A3L2 GM2 	G3R[L3RWI+N;D* "(+ACN3POI+KCS+UCP3
WH2 P3OWN2 ;AD*M*MBJ* B * B * B 6 WP+TCS+ICT7D
O3NF 3G	A+N&."M6J*JB * B +JCE2 F +H" +IB)3NWE7DR 3ON 3A3L2 GM2 6(+YB)7GKI7LKF3I;E+DB,3T	A3SGH".*M* B * "(3C;O3T;I3USE2 ;O2 ?H/PKM")6.*JBL* B * "(3C;O3T;I7UOE2 ;O2 ?H/PKM")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