File HOPO1.PA (PAL assembler source file)

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

* " 2(WB3G;I3N;I3GZ 3IWL. GO6,R 3AWP* 252 OO+TB.*221. ^	*4B,7HCO+EB.7TKA7GSE2 GM* B=7MKA3YF +N3N"M6J*JB 7WSI3H2 +Y6 6 	L7NSE+T3E2 ST* B=3TSO+DB,+PCL6=B 7LOE7HSE+T3E6 KT* B=7TKO3R;E+C3E2 ?L* B=7LKO3R	AN6,"J*M2 . /M6 2 	K+MB,+TCA6=R 7AOI+H3A2 GL* B=+LCA3SGH
W3N6 KD* B-7DKE3I/C6,R 3EOA/HF *,B23ASN* :3"M6J*JB +MCA3ASN6 	L6 KA7EB 7L	A3I
N2 ;I2 ;A2 3O3DN 7HOE3T> 3FR 7R
A7S^ 3IT2 T3ER 7R
A7SJ 3E?M3VSE",*M*MBJ2 W3IC6 OI2 ;I2 T7EB 7L	A3G?R3USN6.R 7H	E6 KA3E2 3Y;I3G& 7NR +HCE3SWH3LWV7SB 7RSE3ESN3I
N2 T+ECY"M6J*JB 3AWR2 ;I2 T7EKI2 WB+D;S"M6J*JB * B +MCA2 GD+TB!7DSA2!R +AGT"M6J*JB * B +LCY2 ?M+VCE3TSO+DB,7M[O+EB!3I7M+A" 3I6	2 ?G3I
N2 ?T2)^ +ECT7D
O7NR 7ON +ECE+ICF7DSA*	CS"M6J*JB * B * B * " 3TGH7TN	2)N 7LOO+E;D"M6J*JB * B +TCD2 7I+MCA*(	I2 GC7NR	".*M*MBJ* B 6 	L2 6 3OWV2 ?T+D3D2 ?M+VGE2 ?L+OCK3AR 3O;W2 ?T2 WS3E& 3FR +A
T+S" 3TGH7TN	2)N 7LOO+E;D*(B(L7Y"J*M* B * B * B 6 OI6 	L3I
N2 ;I2 T3E6 3ISD+LCE3DGR+WB,3TSO3D& 7SR 3R	Y+NCG+TCO7GSE2 ;I+TCO3TWH2 ?TP*M*MBJ* B * B * B 3DGR+W:)"M6J*JB * B +MCA2 O2 O2,> 3H> H6,"J*M* B 2 2 +YB 3YGE+HB,+I
T3SN 7LOO+E;D"M6J*JB * B +MCA2 7I+MCA*(
I3M^ 3O;I7GR +OB)7GSE2 ;I2 GM2 6(+YB)3BSE*."(+MCA3C	L7MOB2 ;I+TCO3TWH2 ?B3T?TM*M*MBJ* B * B * B 3SWH+L	F".*M*MBJ* B 6 	L2 : 3OR +O
N3T^ +ECD2(WG+TB)+ICN*-6-2 S7EN	2 ?N3T^ 3O;N+A" 3G	O+NCG+T	O2 WB2 ?Y+UCR6 KF3I;ED6."J*M* B * B * B 2 GS+YB,3SWH*	CS7NSO2 ?G3NGN2 ^(3O;I7GR +OB)+BCE7YWO3RZ 3RWI+N3D* "(+TCD+ICS3SGT3N	D+NCGI7N"J*M* B * B * B 6 KF7OSN2 [O2 T3EN 7HOE+TB,3S	T+LCL7AST7ECM3T;I7G
 3O^ +ECT+I	N".*M*MBJ* B 6 	L2 & *	CM7NSO2 ?Y+UCR3F	R3ESN2.^ +E3T6 SS+OCP3TGH7TR 3OSD2!^ +ECT7OSU"!*M*MBJ* B 2 GM2 ^ +ECT+I;N"M6J*JB * B +TCD2 & 2 ?D7NR	2 GW3NGN6 ^(7ASN2 ?T2)J 7E& 7OKU6 KF3I;E+D".2(6 3A^ 7EOT6 WO3TF +NCD3TSO3D^ 7EOT"M6J*JB * B * B 2 & +N
 ".*M*MBJ* B 6 	L6 N 7TCO2 T+ACT3TSO+DB!3S?T3P& T6!"J*M* B * B +MCA2 &(7NWA+D:)"M6J*JB * B +LCY6 SS+OCP+IGT"M6J*JB * B +PCL2 WS+EB.2(WG3T> +FCF3TWH/R?E6)N +HCE3D;O*	CT7LSE2 WM2 ?H+LCD+I;T"M6J*JB * B *?B?2 ?O3O?O+OCH2 ?O3O?OH6."J*M* B 6 B +LB 3SWH2 ?W7NR	2
WL3T6 3E" 3OSL6 SI".*M*MBJ* B 6 	L6 R 3AWK6 SI6 WOT6."J*M* B * B * B * "(+PCL7AST7ECM+TCS+TCO3P3U7LR 3D> +UCT+OCF3TWH6 KD+A;W"M6J*JB * B +TCD2 	W+LCL7YWO6 SS+OGP2 A2 GH2 GH2 GH2 GH".*M*MBJ* B 2 3P2 ^ 3I7M+E" 7G[I3E6 +EB)7DSA6 R(7HSA2)R 3O3L2.^ 3I7M+E" 7G[
3E6 +EB)7DSA6 R(7HSA2)R 3O3L".*M*MBJ* B 6 	L6 N +E3E2 WH2 GS+ICD+H
E3S^ 3O;N+A" 3G	O+NCG+T	O2 WL3T6 3E" 3OSL6 SI".*M*MBJ* B 2 3P6 ^ 3H;E".*M*MBJ* B 2 ?L2 F +H" +IB)3AWX2 F(3SWK+DB)7YWO2,F +H" +IB)3RGE7L	L2 	D7DN O6."J6 *JB * B +PCL6 SI*	CS3B?R3K;E*.B * "(+LCY7G[I+ECS+PCL3TWH2 ?D+L	L".*M*MBJ* B 6 	L2 R +O
N3T2 3OWS6 SI".*M*MBJ* B 2 3P2 F +H" +IB)3A;IT6."J*M* B * B +TCD2 ?L+OCK+MCR3GGR3EWM2,2 3O/O2!F 3HF 3H" 3A" 3A" 3A" A6!"J*M* B 2 6 +AB 7BKR7RKR7RKR2,J 7RKR7RKR+R3R6 KB7RKR+R;R* " 2(6 3A& 7SN 3T;A3D;I3GJ 3E	H+NCD3A^ 7RWOP*M*MBJ* B * B * B +OCF7FWO3R> 3TWH3
^ 3I3R+SB,+L3Y2 GL6,B +LB,3ASN2 OM6.N +HCE3B?L+WCS"M6J*JB * B * B 2 F +ICR7TKH3O
U3H" +ECR7LCI3S2 3IWK* CA7TWR3MWP7T^.3A/L3SJ 3A/C2 ?T2 T3EN 7HOE+TB,W7A"J*M* B * B * B 2 GW3TC3I
N2 ?T+DCD3ASN6 	L2 W3OF +RCE3S	T+LCL3L	Y+NCG7ION3IWD2 T7EN 3H3E7VOE".6)"J*M* B 2 6 +AB 3W?H2 GB3D& *	^ +ACT2(W3OWS2 WB3D& 7SR 7HSA")6?"J*M* B 2 2 +YB 3T	H3S6 +A" +M	Y2 WBD6."J*M* B 6 R +DB 7MKA7YN 3LWE7PV 3NWD3R" 3EWR".*M*MBJ* B 2 GM2 & 2 ?G+D" 7GSO2)Z 7E
A7HKE/S>(")*M*MBJ* B 2 ST2 " /U?H"M6J*JB * B +MCA* 
I2 ?G7DN 3E7E* 
I2 :	3EWR* B 6(SI2 ?G7TN 3OWM2 T3I
N2 ;I2 WH+R3E2 T3EWR6 OI2 ?S7MSE3H;IG6 "J*M* B * B * B 2 ;I2 WH+R	E*."(2 GM2 3C3IKM3S& 3N?T2 T3EJ 7OST+OCM3SWH+L	F".*M*MBJ* B 2 ST2 6 7A	R2,6 7A	R2,6 7A	R*!B 2(6(3A^ 7EOT6 WO3TF 3G	A3NF +NCD3W3A+KCS3A?R3USN6,^ 3AOT3H;IG*M*MBJ* B * B * B 2 T3E> 3TWH3RN 3H3
3DWR+NB.3SWH2 WR7TKU+NCS+TCO3TWH2 C7ESS2 W3EWR2 ST"M6J*JB * B * B * B 3ASN6 KT6 KA3EF 7RWG3I
N6.N +HCE7GSE3S& 3N?T2 T3EJ 7OST+OCM3DGR3WF 3G	A+N:)"M6J*JB * B +LCY* CI7LSE2 ?Y3U" 3AWV6 	M2 WB+DB.2(;I3ASU")6."J*M* B 6 R +RB 3IR +OCN2(?D7NR	* B)3W;A7TR 7HSA2 WB+DB.7GSE6 WO3TGT2 >(+UCT+O	F2 GM2 6(+YB)3BSE2!^ E7D"J*M* B * B * B 2 ^(+E	T6 WO+TB!* "(6 KT
 KT7IOE2 ?T6 WP+LCL+TCD3O[F2 T7EN 3H3E+F:)"M6J*JB * B +TCD2 OS3RWE3EWE+CGH"M6J*JB * B +TCR2 WG+D" 7GSE2)> +UGT"M6J*JB * B +TCD2 GN3AGA"!*M*MBJ* B 6 KT2 6 3O7M+YB,3M7O+MGY2 WT+LCL3DSA+DCY+TCO3GSE2 ^(+E	T6 WO3TGT2 >(+UCT+O	F2 GM2 6(+YB)3BSE"!*M*MBJ* B * B *
* 2 " 3E& 3N6 +A" +M	Y2 WB+DB!3DSA+DCY+ICN+MCA6(	M2)J +EGD"M6J*JB * B +MCA2 A2 GH2 GH2 GH2 GH2 GH2 GH"!*M*MBJ* B 6 	L2 " +ECY7MKAY6!"J*M* B 2 6 +AB +HCA+HCA+HCA+HCA+HCA+HGA* "(3G;E3EGR3L2 3A
U3HWT+R:)"M6J*JB * B +TCD* CE+HCE+HCE+HCE+H;E"M6J*JB * B +MCA* CI3GSE*	CN+ICT*(
I3M^ 7EST3I
N6 WO+T:)2 ?T+DCD+ICS3SGC3R;I6 N(7CKA3I
N")*M*MBJ* B * B * B +MCE* B*3I^ +ECT*-6-"M6J*JB * B * B * " 2(6 3A^ 7EOT6 WO+T&."M6J*JB * B +TCD2 	G3MWM2 ^(3IWV2 WM2)& T6!"J*M* B 2 6 +AB +UCG3G
U6 WG3G^ +U;G* "(+MCA3J7U+PCS+UCP3ASN2 ?D+WCN3AZ +ECW3T7I+E3S2 GM3K;I3GF 6 SS3R;AG7E"J*M* B * B * B 2 ?S3USN")6."J*M* B 6 R +DB 3GSE2 ^(+E	T2 ;I"!*M*MBJ* B 2 GM6 V +G3H2 
U+HB,+U;H2 J 7UCR2,J 7UCR6,V +G;H* "(3SWH2 GW7LOK2 [O3FJ 3Y" 7EOR3E[L")6."J*M* B 6 R +DB +NGO2 T+ICS+ICS+MCY3BSE6!^ 3HGA+AB!*(B(+TCD3GWO3S& 3N?T* CA3T;A7TWR3MF 7SR R*M*MBJ* B * B * B 3T	R+ECS+TCO3P3U3L" +ICM7OSU".6)"J*M* B 6 R +RB 3JWE3EWZ6!N +H
E3S& 7N& +OCU3BSE2,F +N" 3ASN6)& +OCU+ICN+MCA6(	M2)J +EGD"M6J*JB * B +LCY2 WG+D" 7GSE2)> +UCT7HOI2 WBD6!"J*M* B 6 R +DB 3NGA+AF!2 A3AGA2!& *	3M* 
I3M: +OCT3G;O+NCA2(?G3I
N2 ?T2)J 7E& 7OKU6 KF3I;ED6!"J*M* B 6 R +RB 3GSE2 ^(+E	T6 WO3TGT2 >(+UCT+O	F2 GM2 6(+YB)3BSE2 WD+N" 3TWH+N:)"M6J*JB * B +TCD2 GA3AGA+AGH2 OS3RWE3EOEH6!"J*M* B 6 R +RB 3DSA2,^ +ECD2(WG+TB)7OSU+TCA6(WO3T> +FB)+MCA6(	M2)J +EGD"M6J*JB * B +LCY2 ?T+DGD"M6J*JB 
 B +TCR2 S3ER +I3D2 S3ER 3I;D2 R(3I;D*		T2,F +N" 3ASN2)" +EB,+ACN2(;A+DB)+H
E3S& 3N6 3AJ +E;D"M6J*JB * B * B 6 R 3OSD2,^ +ECT7OSU+TCA6(WO3T> +FB)3TGH6 R(7HSA*)B,7MKA3YF +N3N2 WG3T> +U;T"M6J*JB * B +LCY2 WW2 	A+NCT2(WM3S	S+N&?2 ?Y3UJ 7RSO7HKE6.^ +HCY3D;O*	CT7YWO2 &(7NWA+D:)"M6J*JB * B +TCD2 /O+A;Y"M6J*JB * B +TCR2 WG+D" 7GSE2)> 7U
T+A" 7OSU2 [O2)6 +A" +M	Y2 WB3DF +N" 3ASN2)^ +ECD2(WG+TB)+ICN7YWOR*M*MBJ* B * B * B 3BSE2.6 3Y: 3AWM6 OI2 ;O2 T+ACT3BSE",*M*MBJ* B 2 ST2 " /U?H"M6J*JB * B +TCR6 	M2 GN+MCE+ICS+OCN2 T+ACT3BSE2,F +NCD7MKA3YF +NCN+ICS+OCN7YWO3RJ +E;D"M6J*JB * B +LCY2 A2 &(6)
 7RSI3E" +ICS3N7A3E> 3N" +ICS3BSE".*M*MBJ* B 6 KT2 F +N" 3ASN6)& 7OKU2 GN+MCE+ICS+OCN7YWO3RJ +ECD7D
O3N: 3EWR6 R(7HKE+E:)"M6J*JB * B +TCD2 ?N+OGO*!B 7DOI6 R(7HOI2)& 7S& 7OKU2 WBD6!"J*M* B 6 R +RB +NGO"M6J*JB * B +LCY2 ?N6,R 7HOI6 OI6 	M2 WBD6."J*M* B * B * B 2 ?Y+UCR3N7A3E& 3S: +OCT+UCP3TWH+R;E"M6J*JB * B +TCR* "(3SWP7LOL6 WO7TR 7DN	2 GN+M	E* CT3OR * 3D
 ?N3W^ +ECD2(WG+TB)7OSU+TCA6(WO3T> +FB)M7A"J*M* B * B * B 2 6(+YB)3BSE"!*M*MBJ* B 2 ST2 : +OB!+NGO2 ?N2!> +HCH3OH2 A+HGH"M6J*JB * B +TCR2 WG+D" 7GSE2)> 7UST+AB 6(WO3T> +FB)+MCA6(	M2)J +EGD2!^ +ECT7OSU+TCA6(WO3T> +FB)+MCA6(	M")*M*MBJ* B * B * B 3BSE*!"!6(K
6 KT7IOE2 ?T6 KD+ACG+TCD3O[F2 T7EN 3H3E+F:)+ACH*(	I2 GH+VCET7O"J*M* B * B * B 2 WG+D" 7GSE2)& +NF!2 WG+D" 7GSE2)> 7UST+A" 7OSU2 [O2)J +E;D2 WT+LCL3H7I2 ?T" *M*MBJ* B * B * B 7GSE6 WO+TCA6(WO3T> +FB)+MCA6(	M2)J +E;D"M6J*JB * B +LCY2 WG3T> +FCF7HOI2 WB+DB.7
SE2 [O3F" +ICS3BSE"M6J*JB * B +TCR2 ?T+D3D2 ?Y3UF +RCE7SCU7POO+ECD+TCO+DCO3WGH7T& +OCR7MSO7HKE2 GS+Y;S"M6J*JB 2 2 +YB +DCO3WGH7T& 7OKU2 ?M3TWH7RN 7AOY6.& +OCU3A;I3T^ 3O;N+A" 3G	O+NCG+T	O2 3P+A;Y"M6J*JB * B +TCR2 ?C+MCE+O3N2 ?C+MCE+OCN3L;Y7EST+EB,3GSE2 ^(+
	T6 WO3TGT2 >(U7T"J*M* B * B * B 2 [O2)" 3EWR6,N 3ION3E" 3ER +O
N7T^ 3A;N+A" 3W;A7TR +OB)3GSE2 ^(+E	T6 WO+TB.3C7O3E> N6,*JB * B 2(N(7OSN7IWN+ECD+OCN7HCO+O&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