File HOPI1.PA (PAL assembler source file)

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

* " 2(WB3G;I3N;I7GB 3AWG* B1+OCF7TCA/EJ 2,> +C;T* 29. ^	*4B,7HCO+EB.7TKA7GSE2 SO* B=3OGD3RWI",*M*MBJ2 	W+TCH+KCM2=. +I3M2 GA* B=7AKA+O3N2 ;R* B=3R;O2,N /H6 2 C7ROI7TCO7HKE2,R /N6 2 WD7NOIE6,"J*M* B 3ASN2 WK* B=3K	E3SGH6.N 7EST3I
N6 OI2 T3EF +RCT3G?R+U;P2 T+ECY3AWR2 ?W3R	K+NCG7WSI3HN 7L	A",6 "J*M2 6 3A	K+NCG7A	N3T	H+NCG3TWH7Y^ 7ASN".6)"J*M* B 2 > +DB 7AKR+HB!3T?O2 GH+RCD*-6-6 KA3RR2 U*,6-*-B +MCY3H;A+DCS3G;O+NCA2(?G3I
N2 ?T2)^ +ECT*-6-"M6J*JB * B * B * " 2(SO6 GS3UWE7ZOE2 3C+A3Y2 ?H7LOD6 CU2 GH7NOD*)B.+OGH2 ?L3O	K+T" 3L?O3KF +T2)2 GM2 6(Y6)"J*M* B * B * B 2 ?L3O	K+T" 3L?O3KF +TB)+MCA6(	M2)" 3ASN+S6 *-B-+HCE+HCE+HCE+H;E"M6J*JB * B +KCM* 
I+MB,3I7M+A" 3I6	2 ?G3I
N2 ?T*)" 7SKT3U
N*?B)+MCA6(	M2)" 3ASN3SF +LCL7AB 3IOE+E;S"M6J*JB * B +OCD6 KA+R3H6 KA+RGH"M6J*JB * B +KCM2 ?L+OCK7AR 7HOI"!*M*MBJ* B 2 WT/CGH2 & 7FR 7HKE7EN	2 ?N3TV 7NWO+GCH7WSA+ECR*-6-2 [I2 ?Y3UN +ACN7WOA3H& 3T& 3T2	3LF L7L"J*M* B * B * B 2 ?C7MOE2 [OF6."J*M* B 2 > +DB 
AKR3HF 3RR2 U*!B 3OWK3YR 3OWK+YB,3OWK3YR 3OWK+Y6 *-B-7EKR+HB!7IOS6 R(7HOI2)& S6 "J*M* B * B * B 6 SS3I/C+YB.2 ?O+OCH3EWE*."(3TOE+HB17WKO+KCS3S7O3EN 7L	A6,N 7H
O3I
N2 ?H7WR +HCE"M6J*JB * B * B 2 GW7TKE2 WG+TCS7AOB3OKR+E	D".*M*MBJ* B 2 7K2 6 3S" 3A/W7ION2,6 +A" +M	Y6 KB3AWC7LSE3SF +RCE7DKI+T;Y"M6J*JB * B 3TOE+HB12 ?Y+UCR3BGR3C3E7EOT2?& 6 OA3KSE2 ?Y7UR 7OR 3AWK2 7E6 R(3H7E2)> +FCF3B[E3OWR2 ?YU*M*MBJ* B * B * B 7GSO6 S
7ASR+ECD3ASN2 ?Y7UN 3ASI2 ?Y7U^ 3O3U+D
N3T^ +ECT7A	N2 3C+ACY+OCN+ECM2(T+E	M"M6J*JB * B * B 6 J 3IG+TB?3T/A3EV +M" 3TWH+MB)3O[F2.& 2	3L2 GW+SCH3TWH3M> +FCF7FKO2 ?Y+UB.2(.(3M^ 3IWVS*M*MBJ* B * B * B 3TWH6 KB3AWC7LSE7SR 3O^ 3BZ +OCR7WOA3H;I+GB,3TWH7NB 3O;U+DCS3CGL7Y^ 3IT2 WH3RZ 7ISSS6)"J*M* B 2 >
+DB 3C7O3E> N6."J*M* B . > *?B +MCS7H
A3K;I+SB,3L?OK6!"J*M* B 2 > +DB 3C7O3E> +N6 *-B-+I
T3SF 2 ?T3UG2.2 3O/O+ICT2(?L+OCK+A	T2 GM2 6(+YB)3H;A+D;S2 ?L3O	KT*M*MBJ* B * B * B 2(?L+OCK+A	T2 GM2 6(+YB)3H;A+D;S2 GM2 6(+YB)3H;A+DCS3AWR2 ?C7VKE+ECD+UCP*-6-2 3A3L> 7VKE" *M*MBJ* B * B * B +MCA6(	M2)" 3ASN+S6 *-B-+ACH3AF +LCL3OWV3R6 +A" +M	Y2 GH7NOD6,& 
EA*." 2(?T2 ?N2 ;O3E& N*M*MBJ* B * B * B 7PKA3TOI3UGL+R:)"M6J*JB * B 3TOE+HB12 WY+A3H2 T+ICS+ICS7AN 3M3A7LB 3IOEE6."J*M* B 2 . +MB +MCS7H
A3K;I+SB,3T	H3S& 3SF 2 &(7NWA+D:)* CI3C;A*	CT3M/A7ER 7HOI".*M*MBJ* B 2 GA2 > +HGH2 	M+N
E3SF 2 GB+LGL"M6J*JB * B 3TOE+HB12 O6,& +OCU7H[A3EF 2 	N+CCE3PWI+CCE+TCO7WKO7K^ 3IT2,N 3OWM2 ;O".*M*MBJ* B 2 GA2 2 3O/O2!& 2 GM+DCE3AJ 3A3L".*M*MBJ* B 2 WT/CGH6 & +OCU3W;A+NCA2(GW+NCT+T	O2 GM+KCE3AJ 3A3L* 6-6-^ 3HOI3H> +N3E2 W+ACT3K;I3D> 3FJ 3A3L"?*M*MBJ*
B 2 ;R2 6 3S" 3A/W7ION2!6 3S" 3A/W7ION"!*M*MBJ* B 2 GA2 F 2 ?B3W	L+N" 7B
O3L;I+GB)3B3AL6."J*M* B 6 R 3EC*1B 3AJ 3O3W+ICN2(?B3W	L+N	G2 GB/L?L"M6J*JB * B +RCN6 OM2 GH3W	K+NGS" *M*MBJ* B 2 7K6 R 7HOI6 OI6 	M2 GB+L;L"M6J*JB * B +ACA* CA7B
O3L;I3GJ 3A3L2 ?L3OGK2 	L+KCE3T	H+SB,3K	E3SGH6,R 7HKE7E^ 7HSA* CI3MSAE6."J*M* B 2 > +DB 3SWE*!B 7DKR7RKR7RSI2!" 3O?O+O;H"M6J*JB * B +KCM* CA7B
O3L;I3GJ 3A3L6 OI2 	L3T3T+EB,3L/I+E" 3IGN+U	D"M6J*JB * B +KCE* CI7GSO2 ?M+RCE3T?O".*M*MBJ* B 2 SO2 F 2 	B3GN 3RGE+MCY3B3A7LR 7ASS+ECS3G?O+DB.2(>(3D6 3AWK3SF 2 7S3A3L2 GB+LCL3A?B+UCT3TWH2 	SZ7E"J*M* B * B * B 2 [O* CA3GGR+P	E".*M*MBJ* B 2 7K6 R 7ASS+ECS3G?
+DB!" *M*MBJ* B 2 SO2 & *	CM7ESA3I
N2 &(7NWA+D:)2 GC+LCL3TWH+SCE3CWR7A	M2 GB+LCL7YWO2 GM3K;I2 6(3A	K+N	G"M6J*JB * B +ACA2 &(7NWA+D:)"M6J*JB * B +OCD2 GC+LCL3TWH+SCE3CWR7A	M2 GB7LOL".*M*MBJ* B 2 7K* " 3IGN+U	D2 T3EN 3RGE+MCY3B3A3L: 3AWM".*M*MBJ* B 2 ;R2 & 2 GT3K;I6 R(3A	K+N	G2 GM2 6(+YB)3B3
+L" 3IGN+U	D".*M*MBJ* B +RCN2 7I+MCA*(
I3M^ 3O;I7GR +OB)3T3E7L& +OCU2(;I3ASU")6."J*M* B 2 . +MB 3CWR7A	M2 GB+LCL3E
G+SB,3CWR7A	M2 GB+LCL3E
G+SB.2(N(3H;A3T;I+G:)"M6J*JB * B +OCD2 ?O+OGH"M6J*JB * B +KCM6 OM2 GS2	;I6 N(7UST+O	N2,6 7SN 3A&	+N" 7SSU3T;O")6."J*M* B 2 > +DB 3CWR7A	M2 GB7LOL"!*M*MBJ* B 2 7K6 & 2	3A7LJ 3E	N+T3A2 GL3SGH+WGN"M6J*JB * B +OCD2 GA3AA2!V 3E?O+WB.7NSO2 ;O2 GM2 6(+YB)3H;A+D;
* "(+OCD+TCO3H7I3S3E+F:)"M6J*JB * B +KCM2 GL2 S3A;W"!*M*MBJ* B 2 SO2 N 3RGE+MCY3B3A+L;S2 GC+LCL3TWH+SCE3CWR7A	M2 GB7LOL".*M*MBJ* B 2 WK2 : +OB!7YWO2 GC7NR	2 GH+VCE3TGHT6!"J*M* B 2 > +DB 3TWH+SCE3AWR2 GC3LWL3DZ 3IS+ECS7CWA+SCE2(WB7CWA+S	E2 ?Y3UV +ACT+ECM2(
+E	M".*M*MBJ* B 2 7K2 2 7AN 7H
AN6!"J*M* B . > *?B 3I^ +OCT+MCE3S7O+E6 "-6-"J*M* B 6 R 3EC*1B 2 &(7NWA+DB)*-6-2 ?H7T^ 3AWTR6."J*M* B 2 > +DB 3RGW3AGA+H;H* CI7WWO+LCD3L/I7ER 7HSA2 &(7NWA+DB)3L/I7ER 7HSA2.& 2 ?W3USL2 	L+KCE3TGH7T^ 3IT"M6J*JB * B * B 2 6 3I/L".*M*MBJ* B 2 ;R2 2 3O/O*!B 3L
O3K6 3R^ 3RWA+M3E6 KM6 KG3A7E+EB,3L?O+KB!+MCR3GGR3EWM2,2 3O/O6 KM6 KG3A7EE6!"J*M* B 2 ^ +BB 3YGEH6."J*M* B 6 J +NB 2(;I3ASU")6."J*M* B 2 > +DB 3EWE+E3R2 > 3WGR+A;H"M6J*JB * B +KCM* "(+TCO+O	D2 GM+KCE3T?H+SCE3B3A+LCS7RWO+NCD3L/I7ER 7HSA".*M*MBJ* B 2 ;R2 & 
 ?G3T6 3OWN* CA3S	T+C;K"M6J*JB * B +KCM2 ?H3W6 7A	N2 ?M+RCE3B3A+LCS7YWO2 ?G+T" 3IGN+U	D"?*M*MBJ* B 2 ;R6 R 7HKE3E^ 7ON 3TOI+K;S* "(+RCN3H3O+DCS+UCP7AN 3TOI3K> 3FN 7L	A")6."J*M* B 2 F +AB 3N?OO6!"J*M* B 6 J +NB 3I. +ICN2(GC+NB)3M/A7EN 3OWM2 ;I6 R(3H;I+GB)7
[I6 ^(3IT2)& T6."J*M* B 2 F +AB 3M/A7EN 3OWM2 T+ICN2(T3I
N")6."J*M* B 2 . +MB 3L?O7KSI2 2(3O/O6 SA2)6 +EB,3I6	2 &(7NWA+D:)* "(+KCM7PWO7NOD2 3C+ACY7WSI3H" +ECR7FOIT6)"J*M* B 2 > +DB 3I6	2 GM3K;I2 6(3A	K+N	G2 ?S+MCE2	;I6 R(3H;I+G:)"M6J*JB * B +RCN* CI7GSO* CA3S	T+C3K2 WK3ISA6."J*M* B 2 . +EB +UCH3HU".*M*MBJ* B 2 
R2 : +OB.3TGH+T" 3IGN+U	D2 ?G* B,3TGH3T^ +O6 "-6-"J*M* B . > *?B 3IR +O
N+TB 3K?NW6."J*M* B 6 J +NB 3TWH+RCE+GCO*-6-* CI3C;A2 ?D2 T+I3S2 WK3IS+AB."M6J*JB * B +CCH* CI+DCO+DCO3TGHT6."J*M* B 2 F +AB 3I6	2 GM3K;I2 6(3A	K+N	G2 WM* CA7FOIH6."J*M* B 2 . +MB 2(;I3ASU*)B 7YWO2 ?G2 	L+KCE3TGHT6."J*M* B 2 > +DB 3I6	2 GM+KCE+MCE3A?N3TWH
RN 3RGE+MCY3B3AL6."J*M* B 2 . +EB 3I6	2 GM+KCE+MCE3AN 3RGE+MCY3B3A7LR +O;O"M6J*JB * B +CCH2 GN2 GN2,: 3A: 3A: +AB,3M?O2 GM2 ?M3O6 3A6 +AB.6(N(3I
N3I
N")6."J*M* B 2 R +NB 3H3E+LCO3R;O3ASL*.B 2(R(3NN 3A3L7SN 7EWD3C	T3V3E7YR 7OJ 3NF 3C?R+SCS3TWH2 GT3BWL")*M*MBJ* B 2 7K2 N 3RGE+MCY3B3A3L^ 7OOE2 	L+KCE3T	HS6."J*M* B 2 > +DB 3I2 3IWK2 T+ICS7LSO2 	H3GWH+RB,3M/A3A2 3IWK2 T+A;T"M6J*JB * B +RCN6 KM6 KG3A7E+EB,3
?N7W^ 7HSA2 T+ICS/I?S"M6J*JB * B +DCN2 WH3L?L2 ?R3N3A+DB.2(R(3NN 3A3L7SN 7EWD3C	T3V3E3YF 3G	A+N:)"M6J*JB * B +RCN2 W7ON	2 T/A?T"M6J*JB * B +KCM2 ;A3Y?B+DCY2 ;K+OCW3WGH7TR 7HOI6 OI"?*M*MBJ* B 2 GA* " 3IGN+U	D2 WY+A3H6 KC3E7A3YJ 3A3L".*M*MBJ* B 2 SO2 N 3RGE
MCY3B3A+L6 *-B-3W?H2 	L+KCE3CWR7A	M2 GB/L?L2 W7OJ 3AT+ECR3AWT6 KC3E7A3YJ 3A3LS6?"J*M* B 2 . +EB 3TWH+SCE+MCA6(	M2)N 3RGE+MCY3B3A+L;S"M6J*JB * B +RCN2 &(7NWA+DB)3A?R3USN2 C7ROI7TCO7HKE".*M*MBJ* B 2 KG6 ^ 7HSA2 GH+VCE7YWO2 ?G7TR 7HKE+EB,7AN 7I[L+ECR3D3O7LKA
?" 2(;R2 ?H7LOD* CA7RWON7D"J*M* B * B * B 2 3F+ACT3PWI+CCE+OCF3CGL3YF 7BWO7TR +HCE7S+I3E> 3FF 2 ?C3O	K+E:)"M6J*JB * B +RCN6 WHH6?"J*M* B 2 ^ +BB 7YWO2	WV2 GM+DCE7AN 7I[L+ECR3D3O7LKA2 T3EWR".*M*MBJ* B 2 ;R6 V 3H" +U;H"M6J*JB * B * " 2(7K6 KP3EWT7NOD2 ?T2 W
2 GE3T;I3GF 2 	P3EWC2 [O2 3C+A	Y".6."J*M* B 2 > +DB 7EKR+RGH2 S7E^ 3A;N+A" 3W;A7TR +OB)7ESA2 F 6 KC3E7A3YJ 3A3L".*M*MBJ* B 2 GA6 R 7HOI2 GM* " +M	Y2 	F+S;H"M6J*JB * B +KCM2 ?L+O3K2 GM2 6(+YB)7MWO+T;H* "(2 7K2 7S7EKA3SN 7L	A6 [O+ECR7HKE2 	L+P	S".*M*MBJ* B 
 > +DB 3SWH2 ?G3NGN2 ^(3O;I7GR +OB)7ESA6 SI".*M*MBJ* B 2 7K2 & 2 	D+D
N7TR 3AWK2 GM2 6(+YB)7MWO+T;H"M6J*JB * B +OCD6 KC3E7A3YJ 3A3L".*M*MBJ* B 2 ;R2 R 3E	N+S3E2 WH3YR 3E	N+SGE"M6J*JB * B +ACA2 T7AN	6 R(7HSA*		S2 GM2 6(+YB)7FOI+HB,3T	H3S6 +A" +M	Y2 	F+S;H* "(+ACA3R[E7EOR2 ?T* CA"M6J*JB * B * B 6 N 3TGR3IG7TN 3TOI3K> 3FN 7L	A
)6.*JB * "(3C;O3T;I3USE2 ;O2 ?H/PKI")6.*JBL* B * B * B 2(N(7OSN7IWN+ECD+OCN7HCO+I&2".*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