File HOPI5.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file
* B * " 2(?C3N	T3NWU3DZ 3R7O2 ?H/PSI6,R 3A
R+ECT+OCD2=> 7DKA+I	E".*M*MBJ* B 2 KG6 ^ 7HSA6 OI6 SI2?2 3O/O3S2 3IWK* CA3F;E+C;E"M6J*JB * B +KCM2 T+ACT3L?O3K2 3IWK* CA3B?L+C;K"M6J*JB * B +GCB2 W+ACT+ICS/I?T"M6J*JB * B +DCN* CA7PSO".*M*MBJ* B 2 KG2 F 2 ?P+TB?7AB 7RSE+TCY3FGL3T2 3O/O+ICN7PSO".*M*MBJ* B 
 SO2 > +HB,3AJ +ICG3OWN2.2 3O/O2 ?H3WJ +ICG7DOI6 R(7HOI2)R 3I
N* " 3T	H+N	G6 OI*.* * CI3B?LW*M*MBJ* B * B * B +UCP3AGG+I;N* B*7HKE+E^ +E" +H	E2 ?G+E;S"M6J*JB * B +RCN2 ?Y7UN 3T3I3L^ +OCT2(;I3ASU*)B.2*6 3S" 3A/W7ION*.* 6 OM2 GH3W	K+N3S2 ?L+O;K* B*"M6J*JB * B * B 2 & 6 SS3I3L2 ?G+T" 3IGN+U	D".*M*MBJ* B 2 SO2 R +ACR+DC
+D;A2 ?Y3U^ +OCT+A" /L?A2)F 3G	AN6."J*M* B 6 J +NB 3K	E3SGH2 ?G7TN 3OWM2 > 3NV +R" 7HKE2): 3OWS".*M*MBJ* B 2 7K2 " +ECY3K	E3SGH6,& +OCU3D;O*	CT7H[A+E" 3IGN+U	D2,N 7AOU+E" 3BOE7AOU+EB)7YWO2 ?G7TN 3OWM"M6J*JB * B * B 2 R 3O
U3H> 7N& 7OKU2 ?N+S;E"M6J*JB * B +RCN2 T+ICS+ICS3CGLY6."J*M* B 2 > +DB 3T	H3SF 2 ?T3UG2.& 7TN	* CA7TWO+G;H"M6J*JB * B +ACA2 ?S2 W+ECN7M[U6,N 7O^ 3H;E2 WM2 ;A2 F(+N	D+MCA6(	M2)Z 3AT+ECR7WOA2 GT3K;I* " 3T/A3I
N")6 "J*M* B * B * B 2 GM2 6(+YB)7M[U+ECR2(?M3TWH+RB)+TCO+GCO2(;I3ASU6)B 3AGR+DCE2(;I3ASU*)6 "-6-"J*M* B 2 > +DB 3IN +A
N3T^ +ECD2(WG+TB)7DOI6 R(7HOI2)> +FCF+MCA6(	M2)" +ACN2(GH+N	D* 6-2-N +A
NT*M*MBJ* B * B 2 ^ +ECD2(WG+TB)7DOI6 R(7HOI2)> +FCF3A6 +A" +M	Y2 GH+N" 3H;A+D2)6 KE+R;H* "(+OCD3T	RE7S"J*M* B * B * B 6 R 7ON 3CGR+PCE3CGL3Y> +FCF7HOI2 GH7NOD")6."J*M* B . > *?B 3OOUH6!"J*M* B 2 F +AB +ICN7AB 3RSA+E" 7PKA3AWD6)B 7ECO+L3E2 ;I* CA3PGR+DCE2
GP3RSA+EB)3P?E3PWL2 GSI7D"J*M* B * B * B 2 &(7NWA+D:)"M6J*JB * B +OCD2 ?C+MCE+O;N6 SS3I/C+ICN6(SS3I/C3I
N2)> 3N6 +AB 6(	M2)" +ACN2(GH+N	D6 KE+R;H6 SS3I/CI7N"J*M* B * B * B 6 N(3TOI3K;I+GB)+OCN+MCA6(	M2)" +ACN2(GH+N	D*.* * B*"**M*MBJ* B 2 WT/CGH2 F +H" +IB)3DSI+N" 3DSI7NR	2): +A" +I2)2 A2 &(2)R 3I;D2 R(3I;D*		T2 ;K+OCW2(;I3ASU")*M*MBJ* B * B * B 6 & +OCU3UWS
DR 7OB 3I/C2 3F3OWW+RCS2(;I3ASU2)F +H" +IB)3UWS7DR 7ON +ECE"M6J*JB * B * B 2 " +ECR3EWV+RCY7D	A2 &(7NWA+DB)6(R(3EC61R 3A/L3I
N2 ;I2 GB3C
K7RWO+N	D".*M*MBJ* B 2 SO2 : +O" 7N
O2)N +A
N3T^ +ICD2(WG+TB)7DOI6 R(7HOI2)> +F;F2 GN2 :(+O	W* CI3GSO2 ^(+O	T" *M*MBJ* B * B * B +ICT3O[F".*M*MBJ* B 2 WT/CGH* " 6(SS3I3L2 ;I2 T3EJ 3A/C3G?R3USN*)B.2(;I3ASU2)F +NCD3I. 7N
E2 WH7RZ 7E	R2 WW+L;L"M6J*JB * B +KCM6 SA*	CS2(T+A
T+SB)3D;E3IWS*	;S6 SA*	CS2(T+A
T+SB)3D;E3IWS*	;S"M6J*JB * B +OCD2 A+M" 3I6	6)^ 7RCA3P;I3G6 3IWN2," 3OO2 ?S3M;E*	CS2(?S7MSE3H;I7GN	2)> N*M*MBJ* B * B * B +M;E2 GM2 6(+YB)3SGN+PB.3SGN3P& 7TV +PB,7SCA6 SI6 CU6,N 3A	P7DV +PB.3WGH7TN	2 TA7T"J*M* B * B * B 2 ?Y3U6 3A	K+N" 3M/A3I
N*)B,7AKA/O?N2 W+A
T7SR 7HSA2?" /U?H"M6J*JB * B +ACA2 ?L3OGK+T" 3L?O3KF +TB)3I6 3AWD2,F 6 WM7SKH3O7O".*M*MBJ* B * B * "(+ACA3R[E7EOR2 ?T2 S3AWP7SR 7HSA2 ?L+OCK7MKO3E2 3IWK2 ?B7NOE2 T+ACN7MOU3H?R7OOM".6)"J*M* B 2 > +DB 7DOE+E" 3TWH+S	E* CA7MOU3H?R7OOM".*M*MBJ* B . >?* B 7H	E
,2 3O/O6 SA* CI3MSAE6."J*M* B 2 > +DB 7EKR+HB.3T	H7SR +HCE7TWO3GWH+SCT3H;A+D;S6 KE+RCH7E
O+WB.+TCE+T3E2 	P+NCG3B;O+GB,3P;I7GB 3O
N",*M*MBJ* B * B * B 3P;I+GB 3B;O7GN 7LCA2 SI2 &(+TB)7D
O+NB,3P;I3GJ 3O
N6,B 3I
N2 ?B+N3G2 	P3NGG2 ?B+N;G"M6J*JB * B * B * " 2(SO2 WR3PGE+TCS3T	H7SN 3EWV3R3A2 	T7MOE2 ?M+RCE7GSE3T;I3GZ 7ASS+ECR3ASN2 GF3SWT+R:)"M6J*JB * B +KCM2 	H2 GA3R;O2,F 3A?RN6!"J*M* B 2 > +DB 2(;I3ASU*)B +I
T3S^ 7IST+ICN2(WG3T	T+N	G2 GH+R;D* "(+KCM7W[A+ECS3A2 7UCM2 [O" *M*MBJ* B * B * B 2 3C+ACY+ACS+ICF+ICT7WKE3EF 6 WP3PWP+T:)"M6J*JB * B +KCM2 C7ROI7TCO7HKE2,N 3H	R3S?T3PWHR6."J*M* B 2 > +DB 3T	H3S& 3S^ 7IST+ICN2(WG3T	T+N	G2 GH+R;D2 	M+NCE7GSI3T;I2 ^(7EST3I
N2)" 3ASR".*M*MBJ* B 2 7K2 N 3H	R3S?T3PWH+RB,+HCI7CKH7ISS3OP+E;R"M6J*JB * B +ACA2 &(7NWAD6)"J*M* B 2 > +DB 3M;I+EB,3M;I3E^ 7IST+ICN2(WG3T	T+N	G2 GH+R;D* B*3I6	2 ?W3R	K+N" 7WKO3K;I+GB)3M;I+EB,3M;IE*M*MBJ* B * B * B 7GSE3T;I* " 7GSE3T;I+GB)7HKA+DB.3M;I3E^ 7
ST+ICN2(WG3T	T+N	G2 GH+R;D"M6J*JB * B * " 2(7K2 GM3SWH3S" +ECR3CGL3Y& 3N?T* CA3B3A3LF +NCD2 ?P3USN3S& +T:)"M6J*JB * B 3TOE+HB12 ?D7NR	6 WP+D" 7PSU2)& 3TF +LCL+U3P2 A* B,3D;O*	CT3PSU6 B(+U	T6 SI2 3AL*M*MBJ* B * B * B 3OWV3RF 3P?R+NB.7W	H2 ?Y3U^ 3O;N+A" 3G	
+NCG+T	O2 	W+PCE2 ?Y6 &(7OKU2)" 3ASN3S> 7NR +HCE"M6J*JB * B * B * B 7AKP/O?N"M6J*JB * B +OCD2 U2 U*.B 3S7O3E:	6 N(3OWM3T	H+N	G2 WL3A	K+N" 3LGE3K;I+G:)6 	M6 N(/U?B2)J E*M*MBJ* B * B * B 3R
I+HCT7DKE+E" 3TWH+R	E*.B *** " 6*"J*M* B 2 > +DB 7DSA6 R(7HSA2)^ 3O;N+AB 2(?G3I
N6)R +OB)6 SS+ACY+ACH3HU2,F +N" 3ASN2): +ICS2(T+I	S" *M*MBJ* B * B * B 3OWN2 ?G3NGN2 ^(3O;I+GB)+T	O6 SS+ACY+OCN7NKE+E" 3TWH+R	E*." 2(7K2 ?P3USN3S" E7R"J*M* B * B * B 2 3C+ACY7FKU7IWO7S	L")6."J*M* B 2 . +MB +UCH3HU".*M*MBJ* B 2 SO2 R +ACT2(T+A	T2 ?G+ICN2(?
3I
N6)R 7ON 7T	A2 > 3NR 3EWR6 R(7HKE+E:)"M6J*JB * B +KCM2 ?D2 ?D2 WD2 WD2 WD*." 2(7K2 ?P3USN3S" +ECR3CGL7Y^ 3IT2 GE+CCH3S3Y3A3B+E:)"M6J*JB * B +OCD6 WP7HB +UCH+PCA+PCA3PA2 GP+HB.2(>(7DN 7LCA3S" +ICS3CGL3Y> 3NV 3AC" *M*MBJ* B * B * B 3S3Y3A3B+E:)".*M*MBJ* B 2
7K6 & +OCU3SGT7YR 7HKE+EB.3I6 3AWK6 KC3E7A3YJ 3A3L3SF +NCD3P;A3C/A+E;S2 W3IC2 ?D2 ?Y7U^ 7ASN"?*M*MBJ* B 2 SO6 B 3AON3AWK+SB.+NCA2(?N*)B,3IR 2	GW+N" 3D;O*	CT3W;A+TB)+YCO2(?Y+U	R2 GP3NGC7KOE*." 2(;D"M6J*JB * B * B 2 " 3OSL7SV 3P" +ECR3H;A+D	S".6."J*M* B 2 R
+NB +ICT3C7O3M;I3G> +F;F"M6J*JB * B +GCB2 WY+A;H2 3A7LR +HCE3CGL3Y& 3SN 3O7M3I
N2 [O7F& 7OKU2 GH7NOD".*M*MBJ* B 2 7K2 2 3O/O6 SI* " 3L?O3KF +TB)+MCA6(	M2): 3A3I+S" 3IGN+U	D".*M*MBJ* B 2 SO2 F +H" +IB)3W;A6 ^(7ASN*)B,+ACH*(	I2 GW+N3T2 A2 &(6)^ 7ASN2 ?Y+UB,7A^ 7ASN2 ?Y+UB."**M*MBJ* B * B * B 3S?T+PB.7N
O2 ?L3O	K+T" 3L?O3KF +TB)7YWO2 	D+DB.2(;I3ASU*)6 *-B-7NOO+E6 "-6-"J*M* B * B * "(+KCM7PWO7NOD2 7S3A3L2 3C+ACY3B3A+LCS7ISN7OR +HCE3M	A3N6 7AOS2 [O2 3C+ACY7WSIH*M*MBJ* B * B * B 3GWR+ACT3EWN7R	G")6."J*M* B 6 J +NB 3K	E3SGH2,2 3O/O"!*M*MBJ* B +OCD2 ;A3DF 2 ?
+UCF2(?M3UT*)B.+ACH2.F +NCD+ICT3L?O3K2 3IWK2 ?Y+UCR2(;I3ASU6)& 7OKU2 WH+A;D"M6J*JB * B * B 6 B +AGH2 GP+HB!3PA+MB!* B*+O;H* "(7PWO7NOD2 	H3SN 7L	A2 	W+TCH3H;A3D& 3N?T* CA"M6J*JB * B * B 2 Z 7LSA2 3S+A	B".*M*MBJ* B 2 C6 N +ECE3WGH7TN	2 T/I?S* " 2(C2 ?H7LOD
 CU* CA3B3A3L> 3FN 7L	A*.:)"M6J*JB * B 2 SO2 N 7OON+T" *?B)7CWR3NC2,N 3R;U+C;H2 ?D7NR	2 ?T3UC2 WM2 ?N2 ?M+R;E"M6J*JB * B * B 2(^(+BB 7Y
A+N	S".*M*MBJ* B 2 WK6 & +OCU3SWL7E	P*?* 2 &(7NWA+D:)2 ?L3O	K+T" 3L?O3KF +TB)3I6 3AWD".*M*MBJ* B * B * B 7YWO2 3S7ECEY6?"J*M* B 2 ^ +BB 7YCU".*M*MBJ* B 2 WK6 N 3LWE3P> 3N> +UCR3BSES6."J*M* B 2 ^ +BB 7I^ 3IS* CI7CWO+L;D* "(+DCN3PWR3T;E+DCS+TCO7ESA* CA3S	T+
CK+OCF3CGL+Y:)"M6J*JB * B +GCB6 OI2 T+ACT3A" +OCT3D
O2 ?Y7UJ	3EV 3A	T/N?G"M6J*JB * B +DCN2 ?H6 WH+RB,7HKU6 WHR6!"J*M* B 2 . +MB 3L?O3K6 +SB 7H
A3K;IS6."J*M* B 2 F +AB 3TGH7TN	* CA3SWT/A?K"M6J*JB * B +OCD2 	P+NGG"M6J*JB * B +ACA2 T+A
T7S& 7OKU6 SS3E/A"?*M*MBJ* B 2 WK6 ^ +HCY3D;O*	CT7YWO2 3S7ECE2 ;I2 GM2 6(+YB)3BSE"?*M*MBJ* B 2 SO2 & 3MGM2 &(*	CM3G	O+NCG+T	O2 3S+ACP7YWO6 CU* CA+YCO2(?Y+U	R2 WH+ACD3AGG+I;N2 	P+NGG"M6J*JB * B * B * " 2(SO2 GT3L	K+NCG2 ?T2 	H3SN 7L	A")6."J*M* B 2 . +MB 3I
M+A" 3I6	2 ?G3I
N2 ?T6)R 3AWK2 3A3LF 6 KC3E7A3YJ 3A3L3S> +U;T"M6J*JB * B +OCD2 WG+TB 3O[F* CA+M;E* "(2 7K2 ?P3USN3S" +ECR3CGL+Y:)"M6J*JB * B +OCD2 W7O^ 7ASN2 F 6 KF3A/N2 GH7MWB3RWGR6?"J*M* B 6 J +NB 7LSE2 WM2 	L+FCT+UCP+YCO2(?Y+U	R2 GH+N;D2 	L+FCT+UCP+YCO2(?Y+U	R2 GH+NCD
W3IL*M*MBJ* B * B * B +YCO2(?Y+UB)3PWL3AWS*?" 3IGN+U	D2 ?Y7UR +O;O2 O2 WK3IS+AB,3L?OK6!"J*M* B 2 . +EB 3L?O7KSI2 2(3O/O6 SA2)6 3IWN".*M*MBJ* B 2 ;R6 & 7OKU2 GH7NOD6 KA7EN 3T3I3LR 7ISRY6."J*M* B 2 > +DB 3L?O7KSI2 2(3O/O6 SA2)6 3IWN".*M*MBJ* B * B * B 2 	M+
CE3AWR6 SS3I3L2 	D7R	T2.: +A" 7N
O2)& 2 	G3T	T+N" 7GSE3T;I+GB)3TWH3MN 3LGEN6.*JBL* B 2(N(7OSN7IWN+ECD+OCN7HCO+I&6".*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