File HOPM3.PA (PAL assembler source file)

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

* B * "(3C;O3T;I3USE6 KF+OCM7HCO+M222 GT3RWG+TCS+JCE2=* 3EGM+LB,3ASN2 ;J* B=3JO7NSA3H;A")6."J*M* B 2 F +NB 7H	E6,^ +HCO7GSO6 	M2 ;K7AOP3A/C2?" +ECY7B	O+SB,3I6	2 ?G3NGN2 	G+T" 7GSE2)6 3Y. 7NCA3SOAK6!"J*M* B 6 B +LB 2(;I3ASU")6."J*M* B 2 * +NB 7HKU+RCY+U3P6
WH7R	R6 CU* 6-"-*M*MBJ* B 2 WJ2 " 3E3L+O6 *-B-2(WS+E&?6.& 3EA6,^ 3E: 3ESE2 ?S+MCE7MKO3E" 7ECL".*M*MBJ* B * B * " 2(WJ2 GT7LOK2 ;O2 T7EB 3H;O+EB.+HCE7TKH7OOW* CA7CCU6 SA2 C")6."J*M* B 2 * +NB +WCE+ICS3P3O3IWC2 [O3FOI7EOR".*M*MBJ* B 2 GA2 R 3I7A3OSN2 	R+NGG
 WY+A3H2 WW2 GH+VCE3AJ 3LOA3K> +U;T2 WHY6!"J*M* B 2 * +EB 3C7O3E> +NB,+WCE7GSO+TCA2(?G7TR +OB)3GSE2 ^(+E	T6 WO3TF 2 WH+R;E2 	G3MWM2 ^(3IWV2 WM")6 "J*M* B * B * B 2 T+ACT3T	H+NCG3TWH+RGE"M6J*JB * B +ACA2 WW2 GH+VCE+TCO3SGH+KCE3H;A+DCS3W?H* 6-*-B 7TKH+ECE+O
R7FWO+RB,3OGKY6?"J*M* B * B * "(+JCN3ASN2 WJ6 N +ICT+OCN3TWH2 3F7OKO2 ;I6 KF7OSN2 [O2 3P6,^ +HCO+ICS7SSI3T;I3G> 3NF "M6J*JB * B * B 2 N 3H	A+RB,3D3O3L& 3N> +NCE3H;A3DF +NCD3DOO7TKO*	CS3B
A2 ;I2 T3E> 3TWH+R:)"M6J*JB * B +JCN2 /O+A;Y"M6J*JB * B +JCE2 WH*	CS3C7O3M;I2 N(3O7M3I
N2)J 3A/C2 ;I* CA7CKA*.* 2 A2 &(2)^ 7OST+A" 7GSO2 ?T2)R 7R[IE6 "J*M* B * B * B 2 T3EN +ACR7FKO* CA3M;I3UWT".*M*MBJ* B 2 * +NB 6(B(3I/C7SV 7PR +HCE3P?H+N	E6.R 2	3A3LN 3HWI+F3S* 
T3A3L2 C3I[E+SB,3TF	+LCL3C	H7EOF"!*M*MBJ* B * B 6 ^ 3E: 3ESE2 ?Y+UB!7GSE6 WO3TF 2 GG+O;L2 A2 &(6)R 3E3L2 GY6 &(+O	U6,^ 3E: 3ESE2 ?S+MCE" *M*MBJ* B * B * B 7MKO7EB 3O	L+CCE7TKA2 N(7AOR2)" 3EWR6,J 3OWG7RR 3ESR3YZ 7OKU6 R(7HKI+TCY7FWO+R:)*MBJ* B * B *MBJ* B 
 B * B * "(3SGL+MCS7D
O7NB 3H;O+E:)"M6J*JB * B +JCE2 	D+S" 3T	H+SB)+ICS3MSA3E> +UCT7A^ 3OSO2 ;A3DR +ICS2(T+I	S6 OI2 &(7NWA+D:)"M6J*JB * B +JCN2 WY+SB,3S7O+EB,7DKE7EN	6 R(7HKE7EN	6)N 3OWM2 GN+MCE+OCN7NKEE*M*MBJ* B * B * B 2(T3EWR*)B.+ICT7S	A7SB 7LOU7HSE+TCE2(3P3ES7EST+E:)2 	D+S
 3T	H+SB)+ICS7YWO/R;S"M6J*JB * B * B 2(F(7NB 3I/C7SV 7PR +HCE3P?H+N	E".*M*MBJ* B 2 ;A* B 3C3A3L;I3G6 3YJ 7OOS2!N 3A3L3I
N6 	M2 ?B+SGS2 GC3L	L+NCG+MCY7BOO+SB!3C3A3L;IG*M*MBJ* B * B * B +MCY7BOO+SB!2(J(3A
N3SR 3O;W2 T7EB 3H;O+E:)"M6J*JB * B +JCN2 ?Y7UJ	7ER +HCE7BOOS6."J*M* B 2 * +EB 3L?O3KF 3TR +ICS2(T+I	S2 3C3OT+E;S2 WH+YB,3L?O+KB!2(*(3E^ 3RKA3SF 6 KD7EOS2 T+ACT"M6J*JB * B * B 6 B 3L" +ACS3DGR3PSE6 [O+ECR7HKE2 ;K7EOE")6."J*M* B 6 B +LB +HGA2 	G3MWM2 ^(3IW
2 WM2)6 3YN 7LSO7HOE"!*M*MBJ* B 2 WJ2 & 3MGM2 &(2 GH+V	E2 ?G3T& T6."J*M* B 2 & 3MGM2 &(*	CM3G	O+NCG+T	O2 WT3L3L+LGL"M6J*JB * B +JCE* CI3D;O*	CT7CKAE6."J*M* B 2 F +NB 7G[I3E" +ECR3C?L3TWHS6."J*M* B 2 * +EB 3OGK+YB.3I6	2 ?G3I
N2 ?T2 WS3EF 2 ?C+PCS3BE3ISN2 T3EN 3H	AR6."J*M* B 2 F +NB 3I6	* CA3P3O3IWC3M;A2 ?T+OB,3D7U+M;Y"M6J*JB * B 2 C2 2 3O/O2 &(7NWA+DB)7HKE7EN	2 ?S+MCE*-6-"M6J*JB * B +JCN2 GW+ICT3A6 7IWN+T3E* 
I+LCL*-6-"M6J*JB * B +ACN2 W+A
T7SR 7HSA"?*M*MBJ* B 2 GA* " 3IGN+U	D".*M*MBJ* B 2 3P* " 2(	P7COK6 CU2 T7EB 3H;O3EF +NCD3DGI+L	S2." 3E3L+O6 "-6-"J*M* B 2 F +NB 3HU2,V +HB!+U3M2 T7AN	6 R(7HSA*		S2 GM2 6(+YB)3P?H+NCE7YWO2	WR2 GT3L	K+N" 3T3A3K;IG6)"J*M* B * B * B 2 ;I*.* 2 	G+VCE+MCE3TGH7T
 3H;O+EB.2(F(3N^ 3RKA7SR +HCE3P?H+NCE7BSU2 3P2 GH7NOG"M6J*JB * B * B 2 > 7NR 3O& +T:)"M6J*JB * B +PCL2 ?Y3U^ +OCT7YWO3RN 3AWS*.* 2 WH3L?L6 ?
+
" 2(WJ2 ;A3DF 7AN +ICT7NE7TR 3OV 3AC3OTE7R"J*M* B * B * B 2 ;O2 C7AKI3SF +NCD3B
E+ICN3D	R3V;I3GF 3G	A+NB.+ACA3UWS7SB 7LOA3TOI2 S3AWV3RZ +OCR3M/I+E:)"M6J*JB * B +JCN2 A2 &(2). +ICN2(GC+NB)+GCO7FOA7TKE2 :	6 R(3H;A6)& +O3U2 A2 &(2). +ICN2(GC+NB)+GCO7FOA7TKE"M6J*JB * B * B * ^ +N" 3TGH+NB)7YWO6.^ 3O?O3O?O".*M*MBJ* B 2 GA2 N 3OWM2 ;I. B3*
B,.3R02 ?C+MCE+I;N2 ?Y3U^ +ECT3K3I3LSE2 WYT6?"J*M* B 2 * +NB 7NCO+EB.+ACH*(	I6 WJ+SCT7GSO2 S+OCT+ICN3TWH2 WH+A;D"M6J*JB * B +ACA2 /O+A3Y2 /O+A;Y"M6J*JB * B 2 ;J2 > 7K	A*.B 3W?O3O?O3EWE+EB.2*" 7UKR7YV 7PN +A3M6 WT+Z" 3BOE7AOU+EB)+WCE3NWE7DN 3OWM" 6 "J*M* B
* B * B 2 ?M+RCE3P3O3IWC2 [O3FOI7EOR6!^ 3E: 3ESE2 ?S+MCE7MKO7EB 3O	L+CCE3O[F3IWC+RGS*!" 2(;A2 ;AD*M*MBJ* B * B * B +JCE3WWR3S3T7E^ 3IT2 T7EB 3H;O+E: 2 ;A2 	W+N;S")*M*MBJ* B 2 ;A2 " +EGY2 WG+D" 7GSE2)> +FCF+MCA6(	M*)6 "-6-"J*M* B 2 * +NB +WCE3NWE7DN 3OWM* 
-"-*M*MBJ* B 2 ;A2 & *	CM3C3A3L;I2 N(3A3L3I
N2)V +M" 3TWH+MF)"!*M*MBJ* B 2 WJ6 V 7HV +HB,3I6	2 GC3L	L+N" 3C3A3L;I+GB)+ECM2(T+E	M"!6 "J*M* B 2 F +NB +NCA2(?N*)B!3I6	2 GN6 R(+H	E2 ?B+SCS*-6-* F "M6J*JB * B +JCN2 WW2 WN+ECD7A^ 3H3O3EJ 3UON+HB!+WCE3NWE3DF 2 W3OWL6 WB3NC2 [O2 T+EGM* B*7IN 3ASI6,^ E6 "J*
* B * B * B 2 WN+ECD7A^ 3H3O3EJ 3UON3H> 7FR 3H7E*." 2(;J2 	S+TCS+OCN3TWH2 3F7OKO2 ;I6 KF7OSN2 [O"M6J*JB * B * B * B 2 3P*	CS3CGH+I	R".*M*MBJ* B 2 3P2 6 3OWV2 ?J3HGN3TGHN6."J*M* B 2 F +AB 3C3A3L;I2 N(3A3L3I
N2)F +LCL3C	H7EOF2!N 3A3L+ICN2(GC3L	L+N	G2 3A3LN 3HWI+FGS"M6J*JB * B * B 2 N 3A3L+ICN2(GC3L	L+N	G2 3A3LN 3HWI+FGS2 GC3L	L+N" 3C3A3L;I+GB)3A3L2 C3I[E+SB!* "(+CCH7TKH7OOW* CA"M6J*JB * B * B 2 J +ACG+ACT+J;E2 KG2 WT7LOL2 	H7MR 7ON 7TCO")6."J*M* B 2 * +NB 3I6
2 GC3L	L+NCG7YWO".*M*MBJ* B 2 ;J6 V 7HV +HB,7YWO2 GC7NR	* 6-6-& +OCU+ICN+MCA6(	M6)B 3O	L+CCE7TKA2 N(+A	R* 6 *-B-7YWO2 ;I2 GM2 6(Y6)"J*M* B 2 F +NB 3G7I+MCE2(	G+VCE+M	E2 GM2 6(+YB)3B?O+KF!"M6J*JB * B * " 2(WJ6 KB3I
N3S> 7VKE* CA3CGH+I;R2 ;J6 KP7OCM7T	L2 	S+TCS+ICN+ICT+ACS+HCE7PSU3S& 3TR 3O;W"M6J*JB * B * B 2 F +NCD+JCN7SSI3S: 7ESX2 ?T6 	L2 ;A3DF +A:)"M6J*JB * B +ACA3SWH2 ;I2 GM* " +M	Y2 ?P3LOI3EN +A;R"M6J*JB * B +JCN2 WH3Y2 3YWN3TWT2!" +ECY3L;Y7EST+EB!7AKA+O
N3S: +OCT7HKE+EB.3TWH+RCE7YWO2 ?G2,^ +ECT+ICN"M6J*JB * B * B 6 R 7HKEE6."J*M* B 2 F +NB 7YWO2 ?D7NR	2 WS+EB,7AKA+O;N"M6J*JB * B +LCY2 WG3T> +FCF+MCA6(	M2)Z 7ESE*." 2(	G3G3G+EB,3G
I3GWL")6."J*M* B 2 N +HB 7YWO2 ?G3TF 6 R(+OB)3GSE2 ^(+E	T2 ;I2 ?Y+UCR3O;W* 6-*-" 2(WJ2 ?G+ECS3BOA7KR 7OR +HCE3S?T+V	E".*M*MBJ* B * B * B**** "M6J*JB * B +ACA2 A2 &(2)Z 3O;U7DR +HCE3G3O3DF +NCD7N
O* 
I+MB 2(;I3ASU*)" 2(GT3L	K+NCG7ISN3O" +ICS3RSA+I	O".*M*MBJ* B 2 ;J* B 7YWO2 ?F3USN2 T3E^ 3OSL*?6 *-B-3IZ 3O;U7DR +HCE3K	N+FCE2(;I3ASU*)B.+OCH3YGEH6,"J*M* B * B * B * 
I+LCL+BCE3R
I+HCT3TWH+R3E2 /O+A;Y"M6J*JB * B +ACA2 GM3YWB* 
I+LCL3C7O3E> 7VKE".*M*MBJ* B 2 ;J6 V 7HV +HB.2(;I3ASU*)B.2 ?W3O?O3OWEE6."J*M* B 2 * +NB 3S7O3E?B+DCY3SGT+BB,+U3H2 ?S3MKE7O	D6 SS+ACB+U3H2 GT3IS7A^ 3IT* CA3K	N+F;E* "(J7N"J*M* B * B 2 ^ 7OOE2 ?T2 T3EN 7LOO+ECT3ASN2 	P7COK6 CU* CA3PGL3S	T3C. 3N[I+E:)"M6J*JB
* B +ACA2 WS7EN +H
E3SR 3ESA6.N +H
E+SB,3TWH2 > 3TWH7RB 7EOR+OCN3SGT3BWB3D" +ECR7WSI3HF 2 ;K3IWF".*M*MBJ* B 2 ;J2 > 7H& 3EA*.* 2 ?S3MKE7O	D6 SS3AKB+ECD7DOI6 R(7HOI6)^ +I" 7WSI+HB)+A" 3C	H/L?D")6."J*M* B * B * " 2(WJ2 GC7MOE6 [O+ECR7WSI3HF 2 ?P3T& 3N> +NCE3H;A+DB,7SWO3P2 3A3D3EZ 3I3L+ECD"M6
*JB * B * B 6 ^ 3IT2 T3EN 3H	A3N& 7NR +HCE3OT+E;R" 6)"J*M* B 2 * +EB 3W?H2 GW+NCT3S7O7EN 7OCU6?^ +HCO3W;A7TN 3OWM2 ?N3O3D7EN 7OCU"?*M*MBJ* B 2 C6 R 7HSA*	CS3N?O3DWL2 ?S/U?P"M6J*JB * B +JCE2 WY+A3H2 W7O^ 7ASN2 ?S+MCE3N?O3DWL2 ?S/U?P2 GT3SWT3S^ 3OSO*." 6([E
E	R3OWN2 GT3SWTS6 "J*M* B * B * B 2 T7EN 7OCU6.R +HCE3CGH+ICN3F3A+LCS+TCO3TWH2 3F7OKO2.* 3E2 3O/O3SZ +OCR3TWH2 C3A;I",*M*MBJ* B * B * B 3GGR+BCS+C
H3S" +ACT3BOE7AOU3EN 3H" +ACS3TWH2 C3A;I2.* 3E" 7IOT2 C2 	W+TCH3TWH" *M*MBJ* B * B * B 3LSA+L;E2 KG2 GC7LOL6 WO7TR 3O* 7ER 7ON 7TCO2 	H3T	T+NCG+C	H".*M*MBJ* B 2 WJ2 " +E3Y2 	G3MWM2 ^(3IWV2 WM6)N 3OWM2 ?S+U;P2 	G3MWM2 ^(3IWV2 WM6)N 3OWM"M6J*JB * B * B 2 ?S
U;P"M6J*JB * B +CCH6 R 7HSA2 	A+NCT+NCO7SWOP6."J*M* B 2 * +EB 3GSE2 ^(+E	T2 [O3F6 +A" +M	Y2 WS+AGT2 	D+S" 3T	H+SB)7BSE7TKE6 SS+OCP*-6-* B*3G7I+MCE"M6J*JB * B * B * " 7G[I3E6 +EB)+MCA6(	M2): 3OSO7LOE2,^ 3I7M+E" 7G[I3E6 +EB)+MCA6(	M2): 3OSO7LOE".*M* B " 6 *
B * B * B 2(N(3HR 3A
N7LOE2 T3EN 3H	A3N& 3NZ 3R;O3T> 3F* 3EF +NCD3TWH7NB 3U3L3S& 3T> +UCTO7F*JB * B * B * "(3C;O3T;I3USE2 ;O2 ?H/PSM")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