File HOPC2.PA (PAL assembler source file)

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

* " 2(?C3N	T3N	U+NCG7HCO+CB1+OCN3P
A/EF 22> 7FR 3R;A7SKC7ISP6.R 3A
R+ECT+RCN6=J 3OGN+L;D")*M*MBJ* B * B * B 3TWH2 	P3EWC+SB?3WGH3T" 7ACP3EWN7DR 7OR +HCE3OT+ECR3T?W2 	P3EWC3S" 3EWR"?*M*MBJ* B 2 ;R2 & 2 ?D7NR	2 ;K+O;W"M6J*JB * B 3TOE+HB42 W+A
T7S& 7OKU2 GN/M?E"M6J*JB * B +RCN2 ?R3N3AD6."J*M* B 6 R 3EC*4B 2 ?R3N3A+DB?+O;H" *M*MBJ* B 2 ;R6 V 3H" +U3H* CI3T3O7D& +OCU*-6-"M6J*JB * B 3TOE+HB4* CI7FKO7GSO6 SI*." 3IGN+U	D".*M*MBJ* B 2 ;A2 6 3Y: 3AWM2 ;A3T?H+N;Y"M6J*JB * B 3TOE+HB42 ;A3T?H/N?Y"M6J*JB 
 B +DCR6 	M2 GN+MCE+ICS7DKE3I/C".*M*MBJ* B 2 WT/CSH2 2 7AKRY6?"J*M* B 6 J +NB 7DKE3I/C"!*M*MBJ* B 6 KD2 R 3E	R+CGK"M6J*JB * B 3TOE+HB42 U"?*M*MBJ* B 2 ;R* BH7DKE3I/C"!6 "J*M* B 2 R +RB 7DKE3I/C"!*M*MBJ* B 2 ;R6 R 7HOI6 OI2 T3E" 3IG7ESS6 WB3ISL3I
N2 ;I2 T7E^ 3O3RD6."J*M* B 6 R 3EC*4B +OCH7YOE6,^ 7HSA6 WB3ISL3I
N6 OI2 T/A?T"M6J*JB * B +RCN* CA3T3A3L" 3IG2,F 2 	H+GCH3T3AL6."J*M* B 6 R 3EC*4B 3WGH7TN	2 T7ER 3A3L7ESS6 WB3ISL3I
N2 ;I2 T7E^ 3O3RD6?"J*M* B 6 J +NB 3T	H3S> +N;E2 T+ICS3OWN* B,3T	H3S> +NCE+ICS3T3A7LKE2 T+ACN3TGH3T> +N;E*(B(R7N"J*M* B * B * B 2 ?C3MGP7ROE2 	H3SJ 3U3I3D;I7GR 3OR 3E	R+C
K+S:)"M6J*JB * B 3TOE+HB42 /O+A3Y2 W+A
T7SR +HCE3N7A3E> 7FR +HCE3T3A7LOE3TJ 3U3I3D;I3G& 7NR +HCE"M6J*JB * B * B 6 ^ 3O3RD6?"J*M* B 6 J +NB 3AGA3AA".*M*MBJ* B 2 ;A6 R +HCE7NSI+ECD3SGT7TOE"!*M*MBJ* B 2 WT/CSH6 R +HCE7ECM3IWR6 SS3AWT6 WB3ISL3I
N2,> 7RR +HCE*-6-"M6J*JB * B +RCN2 U2 U6,R +HCE3PWR3SSI7ESN2 	N3X;O".*M*MBJ* B 2 WT/CSH2 : +OB,+H
E7SR +HCE3PWR3SSI7ESN".*M*MBJ* B 2 ;R2 : +A" +N	O6,R +HCE3PWR3SSI7ESN2 	N3X;O*	CS3JKO6 OI2 T3EJ 3I
G7ESS".*M*MBJ* B 2 WT/CSH6 & 3EA2,J +UCT3PWR3SSI7ESN2 	N3X;O*	CS7NSO6 KP3E	S3D;E3TF 3N7Y3OWR".*M*MBJ* B 2 ;R2 & 2 GS+WB,7IN +ACW3PWR3SSI7ESN2 	N3X;O2 ;O* CTV6."J*M* B 6 R 3EC*4B 3YGE+HB,7BSU2 WH*	CS7NSO2 T7EB 7ROE3IWD+NCT7A	N7MKOE6."J*M* B 6 J +NB 7OKO+HB
7YWO2 ?G3NGN2 ^(3O;I7GR +OB)3F3A+LB.*(B(3R[E7EOR2 ?T2 WD3ROI7KN	6 WB3ISL3I
N")6."J*M* B * B * B 6 	A2,R 3E	R+C3K2 T+ICS3TWH2 	H7GOH+ECT3B	U3L	D+NCG*-6-2 ?N3W" 3IG7ESS"M6J*JB * B * B 2 J 3U3I3D;I3G& 7NR +HCE3W?H+LCE7LSO* 6-6-^ 3O3R+DB.3A;I7TR 7HSA2 ;O3EJ 3I
G+ECR3TGHN*M*MBJ* B * B * B 3T	H3S> +N;E"M6J*JB * B *?B?2 WH+R3E2 WH+RGE"M6J*JB * B +RCN2 WD+Y" 3TWH+YB)7BSE7TKE2 ?N3T. 3NOO7KR 7HSA2 ?D+W;N2 7I+MCA*(
I3M^ 3O;I7GR +OB)3K?NC7K"J*M* B * B * B 6 SI2 ?D+W;N"M6J*JB * B +DCR6 SS+OGP"M6J*JB * B * B 6(J(7NR 3HWR3AWT+NCS+TCO7POU3HR 7RN	6 WB3ISL3I
N6 [O+E3R2 ;A7DN 7EOE* ;G"M6J*JB * B * B 6 R 3A/L3I
N2 ;I+TCO7HOI2 	M+K	E".*M*MBJ* B 2 ;R6 ^ 7HSA2 ?Y7UN +ACY7TKH3O
U7HR 7HSA"?*M*MBJ* B 2 KG* B 2 W+ACT3DSI* CI7S	A"?*M*MBJ* B 2 ;R6 ^ 7HSA"?*M*MBJ* B 2 KG* B 3I* 7USS2 GT+LCK+TCO7MOY3E[L".*M*MBJ* B 2 ;R6 & +OCU3DSI2 ?N+TB.3I" 7EKA7D& +O3U2 ?Y7UB 3RKO+LCY6(KP3OGB7B	L6)R 3A/L2 T7RWOG7H"J*M* B * B * B 2 WD+RCE2(T3EWR*)B,3R
I/H?T2 6 3R^ 3RWA+M3E2 W7YR 7HOI2 ?G3TGT2 ^(+OCT+T	O2 J E*M*MBJ* B * B * B +ICN+A" 3TWH2)J 3A/C"?*M*MBJ* B 2 KG* B 3TGH7TN	2 T7ER 3R;A3S	M3TWTR6."J*M* B 6 J +NB 7W	H2 T7ER 3R;A3S	M3TWT3R^ 7OST+A" 7GSO2 ?T2)J 3E& 3NF 6 R(+H	E2 GB/C?K"M6J*JB * B +GCB2 WW+L3
6 SI*	CS7OSU2 [O2 T7E^ +A;Y"M6J*JB * B +RCN2 WH+YB,7YWO2 ;K+OCW3WGH+TB?3WWH3N& 6 KP7EOS2 T+A3T2 S3EN 3AWM*."(3PWR3SWS7SR +OCP+OCF"M6J*JB * B * B * B 2 T3E6 3IWK")6."J*M* B 2 ^ +BB /E?H"M6J*JB * B 2 ;R6 ^ 3H;E* CI3PWR+SCS3T	H+SB,7WSA+C;H"M6J*JB * B +GCB2 ?
7NR	2,R +O
N7TR 3OOU3H& T6."J*M* B 6 J +NB 7W	H6 OI6 WO7RN 3PWE+CCH3G;O+NCA2(?G3I
N2 ?T* B)+BCE+ICN3T	HS6?"J*M* B 2 ^ +BB 3WGHT6?"J*M* B 6 J +NB 7W	H6 OI6 WO7RN 3PWE+CCH3G;O+NCA2(?G3I
N2 ?T2)J 3E& +NB 3T	HS6?"J*M* B 2 ^ +BB +SCO3I. 7N
O2 W+A
T3S^ 3O;I3G> N6."J*M* B 6 J +NB *(B(7PSU3SV +ACR+TCO3M/I+E2)* CI3C;A2 WH+ACR3EWV3RKY7O	D2 T7RWO+GCH7HKE3E&.2 GC3N" 7EKA"M6J*JB * B * B 6 R 3ROU+K;S2 GY+ACA7O
O+W;W"M6J*JB * B * B * B 7H	E2,& 2 GS+ICD3I^ 3O;N+A" 3G	O+NCG+T	O2 ;K3O/C2 T+ACT7D
ON6."J*M* B * B 3TOE+HB42 GM+KCE+ACN7ESX7EON3I;O2 ?T2 T+ICS3OWN2.6 3AWK2 ;A6 E3T;E3S?I+NB.3B	U+LCD"M6J*JB * B * B 2 > 3NF 7NSO7HKE2 ?H3UWS2 ?T2 T+I;S"M6J*JB * B +RCN* CI3NWE7DN +O
M+ICN2(?S+MCE3T	H+N	G2 3E+S;E2 WD3ROI+KB!7DKE3I/C2!& 2 WN+ECD3A?N3TWH3R" 7OOUE*M*MBJ* B * B * B 2 ?T6 WB3ISL6.& +OCU7GSO+TCA2(?G7TR +OB)7MOE7SR 7HOI6 CU".*M*MBJ* B 6 KD2 : +OB!"M6J*JB * B +RCN2 ?S2 ?Y3UN +ACN3M/A3EF 7NSO7HKE2 ?H3UWS2,R 3E	R+C;K"M6J*JB * B
+DCR2 ?N2.& 2 	L+KCE+TCO+DCO3T	H3S> +N;E"M6J*JB * B * "(+RCN7DOE3T?R+YCS+D
R3SJ 3U3I3D;I+G:)2 O".*M*MBJ* B 2 WT/CSH6 & +OCU3K?N3CWK3D" +ICS7HWO+SCE7D
ON6."J*M* B 6 J +NB 7N
O2!6 7EOS6 	M2 ?H3UWS6 CU2 ?S2 ?Y3U^ 7OST+A" 7GSO2 ?T2)Z +ICX+ICT3BOAK6."J*M* B 2 R +RB 7YWO2 GH+VGE" *M*MBJ* B 2 WT/CSH2 J 3R;I3G& +T6 *-B-3D;O*	CT7HSI2 	H+M6 *-B-3B	U+LCD3A?N3TWH3R" 7OOU+EB.2(R(7RR 3H?RW7S"J*M* B * B * B * CA3B	U3L	D+NCG3B?L+CCK+ACT+R	N
.*M*MBJ* B 6 KD* " 3IGN+U	D".*M*MBJ* B 2 ;R6 & +OCU7MOI3SSE*!B.3NGA+AB!7N
O2 WG3T& +TB.7DKE3I/C2 :	2 F(+N	D2 ?R3N3AD6."J*M* B 2 F +NB 3L?O+KB!3IZ 3I3L+ECD3T	H3SJ +A;G* CI3F3I3LSE2 T3EJ +A;G"M6J*JB * B +RCN2 WD3ROI+KB,3L?OK6!"J*M* B 6 R 3EC*4B 3B	R+NCG3TWH2 GB+GB.3TGH7TN	6 SI2.F 3NT7O	N2,F 3NT7O	N2,F 3NT7O	N".*M*MBJ* B 2 ;A2 & 2
?G7T& +OCU3TGH7TR 3IWM".*M*MBJ* B 2 WT/CSH6 ^ 7HKE7EN	2 T+ICS3T	H+NCG+GCO3BOA+KB?7ASN3H;OY6!"J*M* B 6 J +NB 3U7M6,V +M;M2 ?S2 WH+RCE+GCO+MCR3GGR3EWM*	CS3S	H+R;T"M6J*JB * B +TCD2 W/A?T"M6J*JB * B +RCN2 ?D7NR	2 ?B3TWH7RR 7HOI6 KT7AON7MSI7TKE2.F 7TN	6 R(7HSA
		S* CA3TGR3N7S7IST+ECRI7N"J*M* B * B * B * CA2(T+EB)3BOAK6."J*M* B 6 R +AB +SCO3D;O*	CT7BSO7HKE".*M*MBJ* B 2 ;R2 6 3R^ 3RWA+MGE2 WH2 ?B3TWH3R;I+G6 *-B-7W	H2 WD6 R(+H	E2 C3ISL3R;E2 GC7NR	2 GT+LCK"M6J*JB * B * B 6 R 3H?R3UG2 WH/R?E"M6J*JB * B +GCB2 W3YN +A
N7TR 7H	E2 GT+LCK7TKH3O
U7HR 7HKEE6?"J*M* B * B +RCN2 WY6?"J*M* B 2 ^ +BB 3W3E+LB,3BOE7AOU7ER 7H	E6 OU3U3A+LCY3S?H+U;T"M6J*JB * B +RCN2 W/A?T"M6J*JB * B +GCB2 T+ECY7UWS3A3L7YR 3A/L2 ?T3O2 3OSU".*M*MBJ* B 2 ;R2 & 2 ?W7NR	2 GT+LCK3T?O2 ?L+U;D* CI7A
L7AOY6 R 3A/L2 ?S+F;T"M6J*JB * B +GCB2 WW+L3L2 T+A
T3S^ 3OSO2,J +UCT3S7O7ER 7OR +HCE3OT+ECR3C	H7LKD+ECN6,R 7H	E2 WG7TJ 3IGT*M*MBJ* B * B * B +UCP+ICN3TWH+RCE3ASN2 T+ECY3S?H+U;T"M6J*JB * B +RCN2 T+ECY7S	A2 GA7AKR3HH2!* 7ESS2 *(7USS2)2 3IWK2 T+A;T* CI3S	A+DB,3M;A2,6 +ACYI6 "J*M* B * B * B 6 WP3T& 3T> 7NB 3L
E/S?E* CI3W;O*	CT7S	A6 SI2 ?T3O2 3OSU2.& 3MGM2 &(*	CM3G	O+NCG+T	O"M6J*JB * B * B 2 J +UCY3S7O3E^ +U;M2 WH+YB,7YWO2 ;K+OCW+I6 *-B-7H	E6,& +OCU3B	R+NCG3S7O3EJ 3UKB+LCE3G7U"M6J*JB * B * B 2 F +NCD7G[I3E6 7EN 3OWM2.& 2 GM+KCE3AJ 3UKB+L;E* CI7PSU6 SI2 T7RWO+GC
+MCY7TWO3NWG"M6J*JB * B * B 6 R 3H;E* CI3SGT+R3T6 WP3C/K"!*M*MBJ* B 2 KG6 ^ 3E3L6 SI*	CS7EOA3YZ +OCR7YWO2 ?T2 GM+KCE3AJ 3UKB+LCE3BOE7AOU7E& +O
U+VCE7GSO2 ?N6 KF7OSN"M6J*JB * B * B 6 R 7ESE+HB.6(J(7NN 7H
O3S^ 3B" +ICS3G7U+S:)".*M*MBJ* B 2 ;R6 V 3H" +U;H"M6J*JB * B +GCB2 WW+L3L2 ?Y7UJ	3E^ 7EST3I
N2 ?S+M;E"M6J*JB * B +DCR* CI3SWE* CA7PWL+GB.7IN +ACW3TWH2 3P+UCG+ICN3TWH2 ?P3CWK+TB.3I* 7USS2 ?L3OWK3D& 7NR H7E"J*M* B * B * B 2 ?P3CWKT6."J*M* B 6 J +NB 3WWH/R?E" *M*MBJ* B * B +DCR2 WB3H;I7D& +O;U*MBJ* B * "(3ESN")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