File HOPN1.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/ER 2,> +CCT*221. ^	*4B,7HCO+EB.7TKA7GSE2 GA* B=7AKA+O3N2 	W+TCH"M6J*JB * B +JCE2=* 3EGM+LB,+ACN2=F 3NT7O	N2,> /R6 6 KO3R;O2,F +NCD+CCH2=N 3H	R3S?T3PWH+RB.3TWH2 WS3T	TN7G"J*M* B 2 & 3SN 3IOR+LCE3T7I+EB.3TWH3YF +RCE3L	Y+
CG+OCN3TWH2 3F7OKO2,V 3AC2 	W+TCH3A2 3A
R7EB 3IOE3E> F*M*MBJ* B 2 GP7PKE2 ;I6 KF7OSN2 [O2 T+E;M2 WT/CKH6 OI2 	G3V;I7GR 3H7E2 ;I7SKT7USC3I;O2 ;I6 KW3I	T+N;G")*M*MBJ* B 2 GA6 N +HCE3S	A+DB,3SWH2 GS+I3D6*N +HCE3S	A7DN +HCE3T3O3D6 7ER 3O6 3AWK* CA+A" 7LSE7TKE* 	A".*M*MBJ* B 2 ;A2 " +OCW+DCO7YWO2 GM
KCE7AB "?*M*MBJ* B 6 KO6 & +OCU3M/A3EF 6 SS3R	A7GSH2 	L+NCE3ASN2 T+ECN2(;I3ASU*)6 "-6-"J*M* B 2 * +EB +ACN2(;A+DB)3TWH3N6 3AWK* CA7BO2,F +NCD3TWH3N6 3AWK* CA7BO".*M*MBJ* B 2 C6 & +OCU+DCO7NSO*.B "M6J*JB * B +ACA2 GH2 GH2 GH*.B 2*" 3EWR2 ?C+MCE3TWH2 WT3AC+
;R* " 2(WT/CKH2 WR7TKU+N	S".*M*MBJ* B 6 KO* " 3IGN+U	D2 GC7N& +OCU3T3E3LV 7VKE3Y?B+DCY7H
O2 ?Y3U6 3AWK* CAB6."J*M* B 2 F +AB +HCE+HCE+H;E"M6J*JB * B +OCR2 GC7N& +OCU3T3E3LF 3A?R3N" +OCW+TCO3M/A3EF . ?B"M6J*JB * B 3TOE+HB22 &(7NWA+DB)+GCO+O;N2 W+ACT3AWR2 ?Y7U^ 7RSI3I
N"?*M*MBJ* B * B * B * B 6 WP7TR 7HSA2 T3I
N6 
A+A;Y2 W+ACT3DSI* CI3T3E7L& +OCU+TCO3W	R/T?E* CI3DSI7NR	"M6J*JB * B * B * B 3T3E7L& +OCU+TCO3W	R+TCE3AJ * 6-6-V 3P> 7NR +HCE3L;I+EB.3M/A3EF * ;C"M6J*JB * B +CCH6 OM6 KC+UGZ2 ?H7WR 3O6 3AWK* CA+BB?3IR 3O2 3IWK2 T/A?T2 ?H3WR 3O& 2 GM+KCE3AJ 2,6 3SN 7R+U"?*M
MBJ* B 2 WT/CKH2 6 3AWK6 SI2 T3EJ 7ESS2 GW7Y& +OCU3C;A".*M*MBJ* B 2 C2 2 3IWK2 GD+T" 3TGH/T>)"M6J*JB * B 3TOE+HB22 ?N*.* 2 ?D7NR	2 ?L+OCK+ACT+M;E"M6J*JB * B +ACA2 O+OGH"M6J*JB * B +CCH2 T3EWR".*M*MBJ* B 2 WT/CKH2 ^ 3OSO*." 3IGN+U	D* B.3WGH3TF +RCE7YWO6 KW
I	T/N?G* "(+TCO+O	R".*M*MBJ* B 6 KO2 F * ;B"M6J*JB * B +ACN* CI+DCO3AJ ".*M*MBJ* B 2 WT/CKH6 ^ +HCY3D;O*	CT7YWO6 KW3IWT2 7U2,F * ;C2 ?G2 ;O6 KO3R;O".*M*MBJ* B 2 GA2 A+M" 3I6	2)^ 3O;N+A" 3G	O+NCG+T	O2 GM+KCE3AJ 2,J 2,J 2.& *	CM3G;O+NCA2(?G3I
N2 ?T2)6 3AWK* CAB6."J*M* B 6 R 3EC*2B 3M/A3EF * ;B"M6J*JB * B +CCH* CI3M/A3EF * ;B"M6J*JB * B +ACA* CI2 ?D+N" 3D;O*		T2 ;K+OCW7H
O2 ?T2 GM+KCE+A6 "-6-*JB *MBJ* B 2 C2 2 3IWK2 T/A?T*MBJ* B *MBJ* B 2 > +RB 3YGE+HB,3AJ 2 ?G2 	L+KCE3TGHT6."J*M* B 6 R 3EC*2B 7LSE*	CS3SWE*.* 2 ?N3W6 3AWK2 3A7LR +HCE7LSE7TKE7S& +OCU3K?N3W" +O;W6 KW3IWT2 3AL*M*MBJ* B * B * B 2 T3E2 7EST7EOR2 ?Y3U. 7N
O".6 "J*M* B 2 * +NB 3TGH7TN	* CAB6!"J*M* B 6 R 3EC*2B 3W	R+TCE3A3L2 T3E2 7EST7EOR2 ?Y3U. 7N
O2 ?HW6."J*M* B 2 F +AB 3TGH3T2 3O/O2 	L+KCE3AV "!*M*MBJ* B 2 ;J6 R 7HSA*	CS3AR ".*M*MBJ* B 2 C6 R 7HOI6 OI* ;B"M6J*JB * B 3TOE+HB22 GC7N& +OCU3M/A3EF . ?J"M6J*JB * B +ACA2 O2,F +H" +IB)3MSA3EF * 3B2 WY+A;H* CI3MSA3EF * 3B2 WY3A& 2 GM+DCE3AJ *." 2(C7ASN3I
N")6."J*M* B * B * B 2 [A7TKE* CB3C7O3ER 2,F 3FWT3RJ 2 ?C+MCE+AB.3HU2,N 3H	R3S?T3PWHR6?"J*M* B 2 N +HB 3IR +O
N3T. 7N
O".*M*MBJ* B 2 WJ2 F 3FWT3RJ 2 ?C+MCE+G:.* " 6([E7E	R2 ;O3E2 3A
U+H	S".*M*MBJ* B 2 C* " 3IGN+U	D6 SO7HKE7WOI7E& +OCU3GSE2 ^(+E	T* CA3W?H3O	P+N;G"M6J*JB * B +OCR2 O2 ?Y3UR 3I;D*	" 3DSI7NR	*)B,7YWO2 WB3TWT3RR 3O& 3T> 7NR +O;P"M6J*JB * B +ACA2 T+ICS3AJ ".*M*MBJ* B 2 WT/CKH6 ^ 7HSA2 3E+SCE3C;A2 ?Y7U^ 7RSI+EB?3L7E+MCE3SWE"
*M*MBJ* B 2 C2 F +H" +IB)3MSA3EF * ;R"M6J*JB * B +JCE* CL3C7O3EF 3FWT+R6 *-B-G6."J*M* B 6 R 3EC*2B 3C;A2 ?Y3U6 3AWK* CAG6?"J*M* B 2 * +EB 3YGEH6."J*M* B 6 R 3EC*2B 3WGH3TN +ACN7YWO6 KW3IWT2,F 3NT7O	N"?*M*MBJ* B 2 C2 F +H" +IB)3W	R+TCE3A^ ".*M*MBJ* B 2 ;A*
" 3IGN+U	D* ^ +N" 3ASN2)F * ;R"M6J*JB 2 > +RB +ACH*(	I6 KW3OWT* CAD6."J*M* B 2 F +AB 7H	E2,. 3I?S7FKE2 N(3H	R3S?T3PWH+R2)2 ?D2 ?Y7UR 3H;I3KF * 6-2-N 3H	R3S?T3PWH7RR 3H;I+KB,"M6J*JB * B * B 2 N 3H	R3S?T3PWH7RR 3H;I7K^ 3H;E* CA3BN 3OWM6,^ 3H;E* CA+BB,+H3E2 
7ROI7TCO7HKE"M6J*JB * B * B 6 R 3H;I3KF * CA3C7O3EF 3FWT3RF * ;B"M6J*JB * B 3TOE+HB22 W+ECN3DWO3S& 3TN 3OWM"?*M*MBJ* B 2 GA2 Z 7IORT6."J*M* B 6 R 3EC*2B 3LGE+VCE+ICT7CKH7ISS3OP+E3R2 T+ECY3D;O*	CT7H[A7ER 3OJ +EB +ICN3OSR+E;R2(N(7HN 7TKAT7S"J*M* B * B * B 2
?T6 KE3AWS2 	H3SJ *)B.3I* 7USS2 GW+NCT+TCO3SWE2 ?H3W6 3UC2 ?Y3U. 7N
O6.^ 7HSA6 SO7HKE" *M*MBJ* B * B * B 7LSE7TKE3SN +ACN7YWO2 GM+K3E2 ;A3T?H/N?Y"M6J*JB * B +ACA2 A2 &(2)N +ACN3M/A3EF * 3Z2 Z+E3E2 WH+EB.2(N(7HKO3TWL3S& 3NF 2 WD+ECP3V	O+C	E".*M*MBJ* B 6 KO6 & +OCU3C;A2 GM+KCE7A* "?*M*MBJ* B 2 GA2 F +H" +IB)3C;A2 GM+KCE7A* 
.*M*MBJ* B 6 KO6 R 7HSA*	CS3WGH3T& *	CM3M/A+E" 3IGN+U	D".*M*MBJ* B 2 GA6 N +E3E* 3C2 S+H3S2 A2 	K+N" 3C;A2)6 3AWK* CA+OB,+O;H"M6J*JB * B +JCN2 WY+A3H6 WB7T& +OCU3T;A+T" 3C;A*		T6,& +OCU3T;A+T" 3C;A*		T2 WS3E& +TB.7YWO2 	L+KCET7O"J*M* B * B * B 2 WS3E6 3IW
"?*M*MBJ* B 2 GA2 F +HB,3A> 2.F * ;O"M6J*JB * B +CCH2 ?L+OGK"M6J*JB * B 3TOE+HB22 W+A
T7SR 7HSA"?*M*MBJ* B 2 N +HB 3A> ".*M*MBJ* B 2 WT/CKH6 ^ 7HSA*	CS3TGH+TB?3A7H2 &(*		M2 GT3L	K+N" 3T3A3K;I+GB)+TCO* 6-*-* 2 W+A
TS6 "J*M* B * B * B 6 R 7HSA*?" 6(WT7RON2 ?T2 ;A*)B.2 W+ACT+ICS3TGH+TB,6*^ 7HSA2 WL3TWT3R& 7SR 7HSA2,F 3NT7O	N"?*M*MBJ* B 2 C2 & 2 ;K+O;W"M6J*JB * B +ACN* GP*MBJ* B " *M* B 6 R 3EC*2B +PB.3WGH3T2 7EST+ECR+ICS3TGHT6?"J*M* B 2 * +NB +PB,7AB ".*M*MBJ* B 2 WT
CKH2 V 7VKE3Y?B+DCY7G[I3E6 7ER 3H	E7RB 3AWP+RB.7G[I3E6 7E& 7OKU2 GP7PKE2.^ 3IWV2 WM"M6J*JB * B * B * B 7YWO7RB 3AWPR6."J*M* B * B +CCH2 	G+VCE+MCE3TWH2 WP3N	CL6."J*M* B 6 R 3EC*2B 3WWH+RCE3DSI2 ?Y3U^ 7OR 7HOI2 WW3EWK+N3D6 KO3R;O6?N 3T;AD6."J*M* B * B * B 
 B +UCP3ASN2 WT+LCL+UCS3WWH+RCE7YWO2 WW+N;T2 ?N2,R +O
N7TN 3T;A7DV 3P* 7USS2 	ST*M*MBJ* B * B * B 3TWH+RCE3ASN2 WT+LCL+U;S"M6J*JB * B +OCR* CI3W;E7TR 3O6 3ASC3OGN7LOD".*M*MBJ* B 2 WT/CKH6 ^ 3H;E2 	D7D& +OCU+GCO+TCO3MOA3D;O3ASL+SB.7SSA3USR/A?Y6 WS3NGD+YB?3WWHN6?"J*M* B 2 > +RB 7SSA3USR+A;Y"M6J*JB 6 R 3EC*2B 3
?H2 ?T+OCK7YWO"?*M*MBJ* B 6 KO2 6 +A" +M	Y2 GF3TWHR6."J*M* B 6 R 3EC*2B 3WWH+RCE3DSI2 ?Y3U^ 7OR 7HOI2 WW3EWK+N3D2 C7ROI"?*M*MBJ* B 2 C2 & 2 WW+NCT+WCI2(	W+T	H2 GM2 6(+YB)7MSO7HKE2 ;A2 F(+N	D2 WM2 ;A"M6J*JB * B * B * " 3ASN2)6 +A" +M	Y6 KB3OT+E3R2 ;A2 F(+N
D2,F +N" 3ASN6)^ +EB,+ACN2(;A+DB)+WCE3W;E7TR 3OF H*M*MBJ* B * B * B 2 &(7NWA+DB)7BKI3TSH+ACY7PKA+T3Y2 ;A2 F(+N	D2 T+ECN+WCE3C7A3EJ 3A/C",*M*MBJ* B * B * B 3TWH7N^ 3E2 7ISS3EWN7DR 7OR +HCE2(;I3ASU*)B.3TWH7N^ 3E2 3O/O+ECD+ACT7TZ " *M*MBJ* B * B * B 2 ;A7D^ 
ESN2 ?T2 3S7ECE".*M*MBJ* B 2 WT/CKH6 ^ 7HSA2 	D7D& +OCU+DCO3T	H7S^ 3E/E3ESN2,F 3A?RN6?"J*M* B 2 F +AB +MCE+ACN2(;A+DB)+MCA6(	M2)J 7RSO7HKE2 WW+NCT+TCO7BKU7GKE* CK*-6-* CI3MGE7N^ 7HSI3EN 7ASSL7E"J*M* B * B * B 2 WY3SWT3RGD+YB.+ACN2(;A+DB)3D;E6 R(3H;E6)^ 7E
 7ESN2 ?H+M3E2 ;A2 F(+N	D2 T+ECN+WCE"M6J*JB * B * B 6 N 7TKA3TSE2 3P3A	Y+N" 3PGL3Y;I+GB)7BOA3EGB+LCL*-6-"M6J*JB * B 2 WT/CKH6 ^ 7HKE7EN	2 W3IWT2 GC3S3TE6?"J*M* B 2 F +AB +UCP2 WD+RCE2(T3EWR2)J 3Y6 3ASC3OGN7LOD".*M*MBJ* B 2 WT/CKH6 ^ 3HOI7HN 3TWR+E3T* 
D7YWO2 ;K/O?W"M6J*JB * B +ACA2 U2 U".*M*MBJ* B 2 WT/CKH2 & 7SR 7HSA2 3AL6?"J*M* B * B +ACA2 WM2 ;A2 F(+N	D2 GM2 6(+YB)3B?R3TWH3RR 7R[O+E6 "-6-"J*M* B 6 R 3EC*1B +MCS7CWR+ZB,3SWH2 WB3L;O3G& 7N& 7OKU6 KG7OCU2.F +H" +IB)3K?N3WF +H" +IB)3DSI7NR	2 GHV7E"J*M* B
* B * B 2 	N+NCE3C	H7LKD+E;N* "(3TOE+HB1+ICN3BOA7KKG3O;U+D:)"M6J*JB * B 3TOE+HB22 W3EWR2 	D7D& +OCU+GCO3T	H7S^ 3E/E3ESN2,* 3O;H3AT/A?N"M6J*JB * B +JCN2 7U".6 "J*M* B 6 R 3EC*2B 7SSI6 CU6,N +ICT+U;P6 KA7E& +OCU7LOI3T;E3I
N2 ?T2 	HM6."J*M* B * B * B * " 2(?L3RGR+ICN3J	O+NCS3TWH6 KG7OCU*):."M6J*JB * B 3TOE+HB22 W3EWR2 	D7D& +OCU/G?O"M6J*JB * B +JCN* CI3W;E+TB +TCO*-6-* "(+JCN3M7U3BWL+S& ".*M*MBJ* B 2 WT/CKH6 ^ 3EN +A
N3T" 7EKA2 ?YU6.*JB * B 2(N(7OSN7IWN+ECD+OCN7HCO+N&2".*M"L*M* B 2 * +NB 7I^ 7ESN2 ?T* 6-"-*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