File HOPC1.PA (PAL assembler source file)

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

2(J(3E	G3N	N+NCG3P
A/EV 2 [O2 GT+PCE21> +C;T6 R4+H2.. ^	*4B,7HCO+EB.7TKA7GSE2 ;R* B=3R;O3ASL"M6J2J	W+TCH+TCD6=R 3OSD6,R /R6 2 ?T3RWR3NWC2,R /R6 2 WD3ROI+KB,+TCA6=R 7AOI+H3A"M6J2J;A* B=7ASN3H;O+YB.+RCN3ASN2 ST6 KA7EN 3T;A3D;I3GF 7TR +HCE7T	O2 3C3OWS3T^ 7EST3I
N* CA7T	O")6."J*M* B 6 R +DB 3C;A2 ?Y7UB 7L	A2 	W+TCH/M?E6 WHH6?"J*M* B 6 J +NB 3C7O3E> +NB,+MCE7CKA+RCY+I;T"M6J*JB * B +TCD* 3I2 ?N2,& 2 GC7R	R6 SI".*M*MBJ* B 2 ;R* BH7LSE2 WM2 GC7R	R6 SI6,B 3LGE+S3E2 ?T/D?D"M6J*JB * B +TCD2 O2,6 7EB 7L	A3I
N2 T+ACT7W	A".*M*MBJ* B 2 ;R6 B 7RSE+TCY3PWL3AWS2?: +OB,3TGH7TN	* 6-2-^ +ECT7OSU*!" 3IGN+U	D2.2 3O/O2 W+ACT+MCE3ASN" *M*MBJ* B * B * B 2 ?T+DCD3PGL3Y;I6 B(7L	A3I
N*)B.3I^ +OCT+OCN+MCR3GGR3EWM*	CS3S	H+R;T"M6J*JB * B +TCD2 W+ACT3T	HS6?"J*M* B 6 J +NB 3YF	+LCL3C;A*	CT3H3O3D& +TB.2(^(2.F 3R	R7VOE6 SA2 T7ER 3A3B+EB.+TCD7HOA2 ;A6 OI3A	T3A3BE*M*MBJ* B * B * B 7CKU7IOO7I	T2 KA7OSU2 T3E6 3IWK2,F +NCD3GR 3E	C7DOE2 ?T6 OA7KJ
7NR 7ON +ICT+ACT3A?N3TWHR*M*MBJ* B * B * B 3TKA+L	E".*M*MBJ* B 2 KG* B 7WWO+LCD7YWO2,& 7SR 7HOI2 ?Y+UCR7T	O6 KO6 OI6 SI2 ?T+D
D7SR /O?Y"M6J*JB * B +RCN2 ?T+D;D* 
I7MB 7L	A3I
N2 	W+TCH3H7I".*M*MBJ* B 2 KG* B 3W3E+LB,3C;A2 ?Y+UB,3C;A2 ?Y3U^ +ECT3A?N3TWH7RR /O?Y* CI3W;A+TB,3IR +O
N7T^ 7ASN2 ?YU*M*MBJ* B * B * B 2 ?T2 	S3TF 7TR 7HOI2 GT3BWL2,> 7K	A*?B 7YWO2 3P+ACY7WSI7HR 7HOI6,R 3OSD6.J +O3N2 ?W3USL"M6J*JB * B * B 2 2 3IWK2 ?T2 	S3TF 7TR 7HSA2 GT3BWL2 T3EWR6,B 3LGE+S;E2 	S3T> 7VKE6 SA2 T3E> 3TWH7RR 3A3BE*M*MBJ* B * B * B 3TWH+R;E"M
J*JB * B +RCN2 ?N2,& 2 3P+ACY7WSI7HR 7AOI+H;A"M6J*JB * B +GCB6 & +OCU3W;A7TR 7OB 7L	A2 	W+TCH3T	A3SGH6?^ 7HKE7EN	2 GT3IS+AB?*(B(+RCN3GWO7SR 7OR +HCE3OTE7R"J*M* B * B * B 2 GT3BWL2 W3EWR2 WH2 	F7NOD6 KT2,F +NB,+T3A6 KD2,F +NCD3TGE+CCH*4:)"M6J*JB * B +RCN2 
C3N& 2 3P+A3Y2 ?T3RWR3NWC2?" +ECY3T	A3SGH2,& 2 ?G7TN 3OWM2 J(3OKM2 ?P/T?S*)B.2(;I3ASU")6."J*M* B * B * B 2 & 2 ;K+OCW7H
O2 ?T2 GM+KCE3BKU3BWL+SB.3SGH+LCL7IB 7L	A2 ?S+MCE3BKU3BWL6 WG+MCS3B[E3OWR"M6J*JB * B * B 6 & 2	3A3L^ 3O" 3OWM2 ?T7D	A*?" 6(R 7OR 3EOA/HR 6)& +OCU3D;O*	CT3S?P+DCE6(WS3P?P3SSE")*M*MBJ* B * B * B 2 ?T2 ?D2 T+A;T"M6J*JB * B 3TOE+HB4* CI3K?N3W& +TB.3IR +O
N3T. 7N
O2 ?H7WR 3OZ 3ISN2 T+ECM+SCO7EOA+YB.3OGK+YB,3TWH3N& 2 ?D"M6J*JB * B * B * B +I;T* CI3K?N7W& +OCU3K?N3W" +OCW+TCO+DCO+I;T"M6J*JB * B +RCN2 ?N6.R 7HSA2 ?D7NR	2 ?G2 T3EWR2 	F7RSS2.: +OB,7DSA6 R(7HSA2)R +O
N3T^ 3OR 3EWR6 R(7HKE+E2)" *M*MBJ* B * B * B 7DSA6 R(7HSA2)R +O
N3T^ 3OR 3EWR6 R(7HKE+E:)"M6J*JB * B 3TOE+HB42 ?D7NR	2 S+OCW7HKE".*M*MBJ* B 2 ;R2 & 2 S+OCW+ECR2(WH+RB)3WWH+RCE+DCA2(T+EB)7PKA+TCS+G;O* 6-2-: 3O?OO6."J*M* B 6 R 3EC*4B 7LSE2 WH7RB +UCT+ICT+ICN3TWH+RCE+ICN7HKE6 
O7N^ +A;Y"M6J*JB * B +RCN2 &(7NWA+D:)"M6J*JB * B * B * " 6(R 3EOA/HF 2 ?C7MOE6 [O+ECR+TCO3TWH2 GT3BWL")6."J*M* B 6 R 3EC*1B 7W	H2 ?Y3U: +OCT3T3A3K;I6 R(3A/L3I
N*)B?3HU6?& +OCU7SCU3PSO+E" 7SCU7POO+E	D2 ?T2 GTL7K"J*M* B * B * B 2 T+A
T7S^ +HCY7YWO2 ?Y7UB +UCT+ICT+OCN*-6-2 ?T2 WS7E^ 7HSA2 ?Y7UR 3A/L2 &(7NWA+D:)"M6J*JB * B +RCN2 W+ACT7YWO2 ?D2 	W+TCH2 T7EN 7HKIT6?"J*M* B . > *?B +O3W6 SS+OGP"M6J*JB * B +RCN6 
O"!*M*MBJ* B 2 GT* BH3I7M+A" * 
I3M^ 3O;I7GR +OB)3M/A3EF 2 ?H3UWS2 ?L3NWG7RR 3H;A2 T+A;T" *M*MBJ* B 2 WT/CSH2 ^ 3O^ +ECT3S7O3E> 3TWH+RB 7T	O2 ;A3DN 3OWM2 ;A7DB 7L	A".*M*MBJ* B 2 ;R2 & 2 3P+ACY7WSI7HR 7HOI".*M*MBJ* B 2 WT/CSH* BH7WSI7HR 7HOI"?*M*MBJ* B 2 ;R2 & *	CM3M/A3EF 2 	L3T3T3E" 7OO
E6."J*M* B 6 R +AB 3TGH3TR +O
N3TJ 3E?L+NCG*-6-"M6J*JB * B 3TOE+HB42 &(7NWA+D:)"M6J*JB * B 3TOE+HB42 ?Y3U2 7ESF2 GH3NWD+DB?3UWS2 T+ICS3H;A+DB.7YWO2 WL+FCT3H;A3DSE"?*M*MBJ* B 2 ;R6 N 7TCO2!R +O
N3T2 3E;A2 ;O6 KM6 KG3A7E7EN	2 S7ISR2.& 3MGM2 &(*	CM3G	O+NCG+T	O2 WTL7L"J*M* B * B * B 6 KM6 KG3A7EE6."J*M* B 6 R 3EC*4B 3D;O*	CT3F
I+H3T2 ?D7NR	2 	F7GSH"!*M*MBJ* B 6 KT6 ^ 3E: +OB 2(;I3ASU")6."J*M* B 6 R +AB 3WWH+R
E3S6 3R^ 3RWA/M?E"M6J*JB * B +RCN6 WO7TR 7HKE+EB.+HCE7GSO2 	M3C?R3P?H7NOE6 WO7TR 7HKEE6."J*M* B 2 F N" 2 W7OB +UCT+OCN3A6 7IKC3OP3OWN"?*M*MBJ* B 2 GT6 R 3A/L2 ?S3M	P+N" 3S7O7ER 3H;I+GB)+OCN+I;T"M6J*JB * B +ACN2 &(7NWA+D:)"M6J*JB * B 3TOE+HB1* "(2 ;I2 T3EJ
3A/C3G?R3USN2)> +NCE3P?E3PWL2 GH+VCE+TCO3T3A7KV 7PR O6 "J*M* B * B * B 2 ;A3OT+ECR7H[A3I
N* CA3MOI7RCO3H;O+EB,7BSU2 &(7NWA+DB)".*M*MBJ* B 2 WT/CSH6 R 7HSA*	CS7NSO2 	R7GSH6,N 3OWM2 T3I
N6 OI6 KW3O
N".*M*MBJ* B 2 ;R6 R 7OKR3EON+EB,7TKO3R;E+C3E2 ?T3RWR3NWC2.F +RCE7YWO6 KB3E/A2 T/I?S6 KA7E& +OCU3BWR+ACK"M6J*JB * B * B 6 R 7HOI2?6 3RJ 2.^ 3O;N+A" 3G	O+NCG+T	O2 WG7T& +O;U2 ?Y3U^ +O3T* CI3K?N7W& +OCU7GSOT7A"J*M* B * B * B 2(?G7TR +OB)7P	A2 ?F3R& +TB.+ACN
(;A+DB)+MCR3GGR3EWM2 	A+NCT3G;O+NCA2(?G3I
N2 ?T2)2 3IWK6 SI" *M*MBJ* B * BF* B 2 	E3TWH+R".2(* 7U	D* ;M2 ;E7TKE7SR +HCE3R?O+M:)"M6J*JB * B +GCB6 WJ+D3Y2 	D7D& +OCU3MWE3T6 +RCS7H
A3K;I+SB.+A3H6 WJ+DCY3M	E3SWN+RB,7MOR2 GH3W	K+N;S"M6J*JB * B +JCM2 	N+CCE+TCO3MWE7T& +O;U"M6J*JB * B +RCN2 WH2 ?G3NGN2 ^(3O;I7GR +OB)3K?N+CCK3TGH3TR 3O;W6,R 7AOI+H;A6 KA7RKR2,F 7RKR+AB,7H	E",*M*MBJ* B * B * B 3T	A3SGH2,2 3O/O6!& 3A7R3M7M2,F 7RKR3R7M+M;M* 
I7GSE2 &(7NWA+D:)2 W/A?T"M6J*JB * B *?B?2 GT3IS+AB,7YWO6 [E+ECR7T	R2 ?T2 ?P+UCR+ICN3T	HS6?"J*M* B 6 R +AB 3I7M+A" 3I6	2 ?G3I
N2 ?T6)R +RCY+TCO7PWO+RB *-6-2(;I3ASU")6."J*M* B 6 J +NB +HCE3C3A3LSE2 ?Y+UB 3N7A+EB,+M3R2 WH2 GC3LWL7D& +OCU3A: 3AWM6,R 7AOI+H;A"M6J*JB * B * B 2 F +HB,+A3H2 WD2 WD2 WD2.F 7M	M2,F 7M	M2,V 3MWM6,* 7Z+ZZ6."J*M* B . > *?B 3T7O7OKR+O
W3S: 7ON 3C?H+O;L"M6J*JB * B +RCN2 WY+AGH2 ?T7MKO7R
O*	CS+NCO3SC3O3O6,R 3O?M3R?R7WN	2 ?N2 OS3H?O+LB.7Z+Z+ZB.3TSO+A
YS*M*MBJ* B * B * B +NCO3SC3O3O".*M" *M* B . > *?B 3TSO+A
Y3S: 7ON 3C?H+O;L"M6J*JB * B 3TOE+HB12 ?T3RWR3NWC2!N 3OWM2 WH+R;E2 ?T3RWR3NWC"!*M*MBJ* B 2 ;R6 R 7OKR3EON+EB!7MOI3S" 3A/W7ION6,R 7OKR3EON+EB!7MOI3S" 3A/W7ION2 GW7NOT6 & +O;U2 ?T3RWR3NWC",6 "J*M* B * B * B 2 	M+SCS7H
A3K;I7S^ 7ASN7S& +OCU+DCO+DCO+DCE+D3E2 ?D2 ?D2 WD".*M*MBJ* B 2 ;A2 & 2 ^ +OCT3AJ 3LOA3KV +Y3E"M6J*JB * B +RCN2 ?Y3U^ +OCT3AJ 3LOA3K" /U?H"M6J*JB * B +GCB6 WJ+SCT7SSI2 ?D+WCN7A	N3WWH+RCE3ASN2 3P+A3Y2 ?R+NB.7IR 3H;I7KR 7OKR3EON3E& 7SN 7IST3I
N"M6J*JB * B * B 6 R 7HKE+EB,3R
I/H?T"M6J*JB * B +ACN2 ?L3O	K+T" 3L?O3KF +TB)+M3E* CI7GSO* CA3BGL+CCK3EWY".*M*MBJ* B 2 ;R2 " 3E^ +OCT+ICN3T?R3U3BE6."J*M* B 2 ^ +BB 2 WW+L3L2 WH2	3L2 WB2 GB+C;K"M6J*JB * B +RCN* "(2 ;R2 WB3G;I7S^ 3O/R3I
N2 ;O2 	J7GN-+ACW7P+U3ZWL*)B.+SCO7H
O2 ?Y3UZ +ICX3T	H7SV P6?"J*M* B * B * B * CI3K?N+WB,3I7M+A" 3I6	2 ?G3I
N2 ?T2)Z +ICX7FKO2 ?T3RWR3NWC2.& 3MGM2 &(*	CM3G	O+NCG+T	O"M6J*JB * B * B 2 Z 3I	N+SCH+UCP7FKO2 ?T3RWR3NWC".*M*MBJ* B 2 WT/CSH2 2 +E
T7SN +ECE3WGH3T" 7ACP3EWN+DB.7YWO6 WS+RCE3T	H7SB 3IOE3E^ 7OOE2 ;I2 WH/R?E"M6J*JB * B +RCN2 WL3MWM2 2(+ECT+M	E2 WS+EB,7LSE2 WM2 WSE6."J*M* B 6 R 3EC*4B 3S7O3ET3I
N*	CS3W?R+NCG7WSI7HR 7HOI2 T3I
N2,& 7TN	6 WJ+SCT7NSO2 	R7GSH".*M*MBJ* B 2 ;R2 R 3AR 3AR +ICT+DCA+D;A"M6J*JB * B 3TOE+HB42 /O+A3Y2 	F3X& 7TV +PB.3S7O7EB 3IOE+ECS6 KA3E6 7IOS3I
N* CI3T	H+N;K"M6J*JB * B +RCN2 GD+T" 3TGH+TB)+GCO7DKE+E" 3TWH+R	E".*M*MBJ* B 2 WT/CSH2 > 7K	A".*M*MBJ* B 6 J +NB 7DSA6 R(7HSA2)^ 3OR 3EWR6 R(7HKE+E:)2 ;A2 F(+N	D2 T+ICS*-6-2 GD+T" 3TGH+TB)+GCO7DKEE*M*MBJ* B * B * B 2(T3EWR*)B.7DSA6 R(7HSA2)^ +O6 *-B-7DSA6
R(7HSA*)6 "-6-"J*M* B . > *?B 3T	H7S^ +A;Y"M6J*JB * B *?B?2 W+ACT3AWR2 ?Y7U^ 7ASI3I
N2 ?F+RB?*(B(3S7O3E> +NCE3C7O+ECS7ISN7OJ 3O7O2 ?T2 GT+KCE7AKA+OCN"M6J*JB * B * B 2 " 3OWM")6."J*M* B . > *?B 7AKA+O3N2 ?Y3U^ 3O;IG6."J*M* B . > *?B 3WGH3TF +RCE7YWO2 GW3I	T+NCG7FKO"?*M*MBJ* B 2 KG* ^ 3BWY6 KA3R;O".*M*MBJ* B 2 WT/CSH6 ^ +HCO+ICS+ICT*-6-2 &
7NWA+D:)* 6-6-& +OCU3D;O*	CT3K?N7W^ 7HSA2 GH3PWP3NSE2 ?T2 TE*M"L*M* B * " 2(?C3N	T3NWU3D> 3N" 3OOP*2:)"M2JBZ

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