File HOPI2.PA (PAL assembler source file)

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

* B 2(N(7OSN7IWN3I
N2 ?H/PGI6,R 3A
R+ECT+OCD2=> 7DKA+I	E".*M*MBJ* B 2 ;R2 R 3E	N+SGE* 6 *-B-6 KM6 KG3A7EE6!"J*M* B 2 ^ +BB 3WGH3T. 3ISN2 [O2 	F+SCH+ICS3TGH+TB,7AKA/O?N"M6J*JB * B +RCN6 KM6 KG3A7EE*M*MBJ* B 2 GA2 F 2 ?G3LWD3NZ 3IS*." 2(7K6 WP+TCS3CGL3Y& 3N" +ECR7MWO+T	H".*M*MBJ* B 2 KG6 & +
CU3G;O+NCA2(?G3I
N2 ?T2)V +ACT3TGH+TB?3D;O*	CT7ESA6 SI".*M*MBJ* B 2 SO2 & *	CM3M/A+ICN2(GM3K;I+GB)3CWR7A	M2 GB7LOL".*M*MBJ* B 2 . +MB 7YWO2 	G3MWM2 ^(3IWV2 WM2)6 +A" +M	Y6 KC3E7A3YJ 3A3LS6."J*M* B 2 > +DB +UCH3AR+HB.7I^ 3A;N+A" 3W;A7TR +OB)*-6-"M6J*JB * B +KCM2 ?Y3U^ +OCT
MCA6(	M2)N 3RGE+MCY3B3AL6."J*M* B 2 . +EB +UCH+A;H* CI3O3N3Y^ +OCT3R
I+HCT7HKEE6."J*M* B . > *?B 2 WH+RCE+ICT+I;S"M6J*JB * B +OCD6 KE+HB,7HKE2," 3A" +AB.3S?T+PB,3T	H3S& 7S& 7OKUS6."J*M* B 2 ^ +BB 3TGH7TN	* CA3WGHT6?"J*M* B 2 N +HB 7WSA+E;R"M6J*JB * B +GCB2 ?Y3U: 3ESE2 GW7TKE*?B 2(^(7BB 7OKU7S^ 3AWT3RZ 3R7O2 T3EN 7OSN3A;I+E
R7OSN3ON 7HN	"M6J*JB * B * B 2 N 7L	A")6."J*M* B 6 J +NB 3G7I+MCE2(	G+VCE+M	E2,^ 3I7M+E" 7G[I3E6 +EB)3S7OE6."J*M* B 2 N +HB 3T	H7S^ +E;T"M6J*JB * B +GCB6 OI2 T+ACT3E?N3UG"?*M*MBJ* B 2 C6 & 3EA".*M*MBJ* B 2 WK2 ^ 3I7M7EN 3OWM2 GW7TKE"?*M*MBJ* B 2 SO2 & 2 ?
7TN 3OWM* 6-"-*M*MBJ* B 2 ;R2 ^ 3I7M+E" 7G[I3E6 +EB)3S7O7E^ 3AWTR6?"J*M* B 2 . +EB 3G7I+MCE2(	G+VCE+M	E2 ?S+MCE7WSA/E?R"M6J*JB * B +RCN6 KM6 KG3A7EE6."J*M* B 2 N +HB +MCR3GGR3EWM".*M*MBJ* B 2 GA2 6 3R^ 3RWA+M;E"M6J*JB * B +OCD* CI3D;O*	CT3W;A3T: 7O^ 3AWTR
."J*M* B 2 ^ +BB +SCO7YWO2 3A7L^ 7ASN2 GW7TKE2 ?NW6."J*M* B 2 > +DB 3IR +O
N7T^ 7ASN2 ?N2 GW7TKE".*M*MBJ* B 2 ;R6 R 3H;A+KCS+MCR3GGR3EWM".*M*MBJ* B 2 C2 6 3R^ 3RWA+M;E"M6J*JB * B +DCN2 WH2 WN+ECD3S7O7E^ 3AWTR6."J*M* B 2 ^ +BB 3IR +O
N7TR 3H;I7K& +OCU3NWE+DB,7YWO2 ?D7NR	2 WN+ECD7WSA+E;R"M6J*JB * B +KCM* CI3W;A7TN 3OWM2 GW7TKE*." 2(WT/CGH2 WR7TKU+NCS3F?R7MR +HCE3OT+ECR3SSI3E> F*M*MBJ* B * B * B 3TWH2 ?R+O	M".*M*MBJ* B 2 KG6 R 7H	E2	WR6 OA3K;I3GZ +OCR7WSA+ECR7BSU* CI3T	H+NCK3TWH7YJ	3E^ 
O;N+A" 3G	O+NCG+T	O2 GM+KCEI7T"J*M* B * B * B 2 ?T7ON 7LCO+P;Y"M6J*JB * B 3TOE+HB12 O6,R +H
A+S" 3TGH7TN	2)V 7NWO+GCH7WSA+E3R2 ?Y3UR +O
N3T: 3ESE2 ?N2 GW7TKE2 T7AN	"M6J*JB * B * B * " 3TGH7TN	2)& 3M?P3RGT+N3T2 T7AN	6 R(7HSA*		S2 W3Y& 2 WK+PCT3T3E3L;I7G& +OCU7YWO2	WR2 ?NT*M*MBJ* B * B * B 3R3O3L;I3GV 7NWO+GCH3TGH*	CS7W	H2 ?Y7UJ	3E: +OCT3A3B7ER 7O^ 3O/R2 	W+TCH+I;T"M6J*JB * B +RCN* 
I7M^ 3O/R3I
N".*M*MBJ* B 2 WT/CGH2 > 7N	L2 ?S7MSE3IWM* CI7PSU2 GW7TKE2 ;O6 SI2,N 7AOU+E" 3BOE7AOU+EB)+I
TS6 "J*M* B * B * B 2 WR3A3L7YN 3T[I3FF +NCD+ICT3KWE3P& 3T6 7OOI+TB.7BSU* CI3T	H+NCK7YWO2 GH+VCE3E?N3UG"M6J*JB * B * B 6 ^ 3AWTR6."J*M* B 2 ^ +BB 6(R(3ON +HB)7IR 3H;I7K& +OCU7H[A+EB 3T?O6 WM+CCH7WSA+E;R2 WL3T6 7ER 3AWK2 ?S+MCE+OCF3T	HS*M*MBJ* B * B * B 7W
A+ECR3O[F2.* 7USS2,: +OB,3T/A7E& 7OKU2 3C+A3Y2 ?H+LCD7YWO3RN 7L	A6,R 7HSA*	CS3OGK3Y&,2	3L".*M*MBJ* B 2 SO2 F 3FWT7RR 7HOI2 GL+SCT3OWN* 
I3M^ 3O;N+A" 3G	O+NCG+T	O2 GM+KCE+MCE3FGR+NCK3H7A7BKU+G;Y"M6J*JB * B +RCN2 &(2	WV* CA3S	L3P> /N?S")6."J*M* B 2 . +EB 3EWE3M6 3I6 3I6 3I6 7I	M".*M*MBJ* B 2 SO6 R 7HOI6 OI2 &(7NWA+DB)7GSE3T;I3G6 7EN 3OWM2.F 3H2 3O/O* CI3SWE2 &	+MB,3L?O7KN +ECE2	7I"M6J*JB * 
 * B 2 6 3A	K+N" 3M/A3I
N6)N 3OWM2 ?F+O;D"M6J*JB * B +KCE2 W/A?T"M6J*JB * B +KCM2 &(7NWA+D:)"M6J*JB * B +KCE2 W/A?T"M6J*JB * B +KCM2 &(7NWA+D:)"M6J*JB * B +KCE2 ?D+N" 3D;O*		T2,2 3O/O6 SA2 GM2 6(+YB)3H;A+D;S"M6J*JB * B +KCM2 &(7NWA+D:)"M6J*JB * B +KCE2 &(7NWA+DB)*-6-* 
I3M6 3AWK2 WM* CA2(;I3ASU")6."J*M* B 2 . +MB 3I6	2 GM+KCE+MCE3AN 3RGE+MCY3B3A+LB,+HCO+HGO*MBJ* B " 6 *JB * B +OCD* CI7GSO2 ?M+RCE3CWR7A	M2 GB7LOL2 T+ACN7YWO".*M*MBJ* B 2 WK2 " 3EWR2 ?G2 GM2 6(+YB)3IWC3RGE3MF +N" 3ASN2)N 3AWK2,J 3OT2 &(7NWA+D:)"M6J*JB * B 
ACA6 KE+RGH2 WK3IS3A^ 3O;N+A" 3G	O+NCG+T	O2 GE7TR 7HSA"!*M*MBJ* B 2 ;R2 6 3R^ 3RWA+M3E2 GT+KCE3S7O7E^ 3AWT3R> +FCF3A6 3IWN+S" 3M;I+E:)"M6J*JB * B +GCB2 ?N6,& 7OKU3S& 3SF +LCL3R
I+H;T2 T3EWR*	CS+NCO7WSA+ECR3TWH+R;E"M6J*JB * B +KCE6 KM6 KG3A7E+EB,+MCR3GGR3EWM2,6 3AWK2 WM* CA3TWRE6."J*M* B 6 J +NB 3S?T3PF 3A?RN6!"J*M* B 2 ^ +BB 3M/A7E& +OCU7AR 3RWE6?& +OCU3M/A7E& +OCU7AR 3RWE".*M*MBJ* B 2 C6 ^ +HCY2(;I3ASU2)F 3T6 +E" 3IGN+U	D6 ^ 3O
R+ICN2(?W3R	K+N	G2 ;A2 F(+NB)+YCO2(?Y7UJ	E6)"J*M* B * B * B 2 ?G3NGN2 ^(3O;I7GR +OB)7GSE2 ?S+M;E"M6J*JB * B +KCE* CI3MSA3E6 3IWN2 3A7MOO7TN 7OSF".*M*MBJ* B 2 7K2 " +OCW3A?B+UCT+YCA2(?Y+U:)".*M*MBJ* B 2 ;R2 6 3IWN2 ?G3T6 +O" 7MKO+EB)3S[OT6."J*M* B 2 N +HB 
M;I7EN	2 3A7MOO7TN 7OSF".*M*MBJ* B 2 KG6 ^ 7HSA6 KA7E& +OCU3M/A3I
N2,> 7DKA/I?E"M6J*JB * B +OCD* CA3FGR+N;K"M6J*JB * B +GCB* CA3WGHT6?"J*M* B 2 > +DB 3AZ 3R;AK6."J*M* B 2 ^ +BB 3AZ 3R;AK6?"J*M* B 2 > +DB 3AZ 3R;AK6."J*M* B 2 F +AB +ICF7YWO2 WK+E3P2 ?Y3U. 7ECE2 7I6 R(3H7E2)2 3IWK2 T+A3T2 T+ECY3G;O+NCA2(?G3I
N2 ?T")6 "J*M* B * B * B 6 SS3I/C".*M*MBJ* B 2 SO6 V 7HV H6."J*M* B 2 F +AB 7YWO3R6 7OSU3H& 3S^ 3O;I7GR 7ON 3TOI+KB.2(.(7MN 3MGE+RCS7MKO3EN 7L	A6 KA3O;U3D" +ECR7MWO+T	H"M6J*JB * B +KCM2 ?N+O;O"M6J*JB * B +OCD6 KA3RR".*M*MBJ* B 2 SO2 & *	CM3M/A3EF 2 	B3G> 
N;E"M6J*JB * B +KCM2 T3EWR2 ?G+ECS+MCA6(	M2)N 3RGE+MCY3B3A+L;S"M6J*JB * B 3TOE+HB12 &(7NWA+D:)"M6J*JB * B +KCM6 OM2 GH3W	K+N3S2 A+M" 3I6	2)6 3A	K+N" 3M/A3I
N2)N 3RGE+MCY3B3A+L;S"M6J*JB * B 3TOE+HB12 ?Y3U6 3A	K+N" 3M/A3I
N6)^ 7HSA"?*M*MBJ* B 2 7K2 N 3RGE+MCY3B3A+L;S"M6J*JB * B +OCD* 
I3M6 3AWK2 WM* CA3B
I6 KC3E7A3YJ 3A3L".*M*MBJ* B 2 WT/CGH2 " +OCW+DCO7YWO2 GM+KCE7YWO3RN 3RGE+MCY3B3A/L?S"M6J*JB * B +KCM* CA3CWR7A	M2 GB+L;L"M6J*JB * B 3TOE+HB16 WHH6?"J*M* B 2 . +MB 3CWR7A	M2 GB+L;L"M6J*JB * B +OCD* CA3K7I2 ?L+OCK3F;U+N3Y2 	W+TCH3S7O3EF +HB,3TWH2 3C+ACY+UC
7HKE2 ?N+S;E2 ?S+MCE"M6J*JB * B * B 2 N 7LCA7ESR3E;R3OWS".*M*MBJ* B 2 ;R2 6 3A" 3A/W7ION2," +ECY7CKH+IGS"M6J*JB * B +GCB2 C7ROI7TCO7HKE6,& +O
U+RCE3S3P3AS3I
N6 [E7E	R3BSO+YB.* "(+CCH3SGLP7S"J*M* B * B * B 2 	H3SN 7L	A2 ;A7DN 3PGL3TWT+RCS3EWV3R?Y+NCE3A?R3USN2 	H+M&."M6J*JB * B +CCH2 GC7NR	2 WH+LCP+I;T"M6J*JB * B +GCB6 GS3UWE+ZCE3A3L2 T7E^ 3AWT3R& 3N?T2 T3EN 7L	A".*M*MBJ* B 2 SO2 & *	B,+ICT3FWE3L: 7ASS7Y^ 3H;E2
?Y3UR +ICD+I3T6 SI2 WF+ECL7NOA+T;Y6 SI2 WF+ECL3U/C+E;Y"M6J*JB * B +KCE6 SI2 WF+ECL7NOA+T;Y2 ?L+OCK+ACT+MCA6(	M2)" 3ASNS6."J*M* B 2 > +DB 3L?O7KSI2 2(3O/O6 SA2)6 3A;H2 6(3IWN*)B.+OCH+H;O* "(+OCD3H3O+DCS+UCP7HOI2 GH7NOD")6."J*M* B 2 R +NB 7MOI7SOU"!*M*MBJ* 
 2 SO2 6 3A;H2 6(3IWN2)6 7EOS6 CU".*M*MBJ* B 2 ;D2 2 3O/O6 SA* CI3MSA3E6 3S" 3A/W7ION".*M*MBJ* B 2 SO2 R +ACR+DCA7DKA2,F 3H" +A3R6 ^(+HCO3T	H3S2 7IST/L?E6)N 3TOI3K6 +A" +M	Y2 GH+N;D3T	H3SF 2 GM2 6(+Y&)")6)"J*M* B * B * B 2 6(+YB)+A" 7LSE7TKE* 	A2.& 2 GM+D
E+MCE3AF ".*M*MBJ* B 2 WT/CGH6 ^ +HCY+ICS3EWV3R?Y+NCE3M/A+ICN2(GM3K;I+GB)3CWR7A	M2 GB7LOL"?*M*MBJ* B 2 WK2 V +HB,3C;A2 WW2 GM+KCE3CWR7A	M2 GB7LOL"?*M*MBJ* B 2 GA2 & *	CM3M/A+ICN2(GM3K;I+GB)+MCE7AN 7N
O2 GM7NR +O;O"M6J*JB * B +OCD6 SS+ACY3R
I+HCT3TWH+RCE+A" 7LSE7TKE2 F ")*M*MBJ* B 2 7K2 & *	CM3M/A+ICN2(GM3K;I+GB)* CA7PSI+CCH2(	P7CWT+R	E2.> +O3O2 ?O+OB,3O?O3OWE".*M*MBJ* B 2 SO6 N 7TCO2 OA3T;I2 F(3C	T+N	G2 	L+K3E2 	D6 R(+H	E2,R +A" 3TWH6)R 3EOA7HKE2 ?T+L" 3T3OD6)"J*M* B * B * B 2 ?Y3UF 7BWO3TF
3C	T+N" 7ASC3I
N2)2 3IWK2 T+A;T"M6J*JB * B +KCM6 WP6		A6,B 3UF	+Y" *?2)2 WH2 WH2 WH2 WH".*M*MBJ* B 2 C2 & *	CM3M/A3E6 3EF 2 ;S3O7W+A;N"M6J*JB * B +RCN* 
I3M6 3AWK6 SI2 3B3A/C*." 2(7K6 OI2 WT3A	R+NCG3CGL7YV 3P& 3N" +ECR3H;A+D3S"M6J*JB * B * B 6 N +HCE3D?R+PCS3S7O3E> 7NR +HCE3F?L+O	R".*M*MBJ* B * B * B 2(N(7OSN7IWN+ECD+OCN7HCO+I&4".*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