File HOPP1.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/EV 2,> +C;T. F2*,^ *7:47HCO+EB.7TKA7GSE2 GL* B=+LCA3SGH+W3N"M6J*JB * B 2 " +ECR3B?R3TWH7RN /N6 6 SS3A3N+E3Y2 ?L* B=7LKO3R	A+NB,+TCA6=R 7AOI+H3A2 ;R* B=3R;O3ASL2,F /A6 "M6J*JB * B * B 7AKA+O;N2 GL6 OI2 3P3A	Y+NCG7WSI3HF
2 ?C7NSS3ROU3T?I7NR +OCY+ACT7AR 3A3B+EB.7AOL3OF 7TR +HCE"M6J*JB * B * B 2 GT3BWL6 OI2 WH3RJ 7RSO7HKE6,^ +HCO7HOA2 ?C+MCE+TCO3T/A3E" +ECR3H7O+EB,3ASN2 ?L3RGR+I;N"M6J*JB * B +LCA2 ?L3RGR+I3N2 W7Y& +OCU7S	A* 
I7M& 7OKU2 	G3R[L3RWI+NCD3TWHN6?"J*M* B 2 2 +OB 3W?H2 GS3Y& *	CM7YWO3R^ 3I3R3F	R3ESN6?& +OCU3S	A7DR 7HSA".*M*MBJ* B 2 GL2 2 7OKR3A;I6,^ +HCY3AWR2 ?Y7UN 3A	Y+NCG+HCE7YWO3RJ 3O[Y3RWI+N3D2 WD+N" 3TWH/N>)"M6J*JB * B +ACH*(	I2 GS+ICD3TGH3TF +H" +IB)7WOA2,F +H"
+IB)7WOA2 ?G3I
N2,F +H" +IB)7WOA2 WT3L	L+NCG3TWH"M6J*JB * B * B 2 J 7OOY2 ;A3D^ 3I3R3S" +ICS3N7AE6."J*M* B 2 2 +AB 2(;I3ASU2)& 3SF 3NT7O	N*.* * "(+LCO3ASN2 GL2 3S+ACP3EOA3H> 3TWH3RF 2 WF7WR 3IWM+S:)"M6J*JB * B * B 2 2 7OKR3A;I*,^ 3M7E7BKE6 J(3EWM3MWB+RB)7YWO2 GT+LCK3A?B
UCT7KOI3T[O+ECR2(C7ROI7TCO7HKE")*M*MBJ* B * B * B 7N
O".*M*MBJ* B 2 ?L6 & 3EA2," 3EZ 3IG3T;I2 Z(3IG3T;I+GB)+M;E"M6J*JB * B +LCA6 SS3A3N+E3Y2 W+ACT3T7I7E& +OCU7GSE6 WO3T> 7FN 3C?H/O?L"M6J*JB * B +LCO2 &(7NWA+D:)"M6J*JB * B +LCA2 N 7AOU+E" 3BOE7AOU+EB)+H
E7SN 7TCU+I3D2 T+A
T7S^ +H;Y* "(3G
I3GWL")6."J*M* B 6 N +NB 7CWA+SCE2(WB7CWA+S	E* CI7CWO3L;D*	CT3T	H+NCK+OCF3S7O3ET+ICN2(?S7MSE3H;I+GB)7BSE7TKE"M6J*JB * B * B * B +TCO+D;O* " 3IGN+U	D2 W+A
T7SR 7HOI"?*M*MBJ* B 2 ?L2 & 2 ?D7NR	2 ;K+O;W"M6J*JB * B +LCA6 SS3A3N+E3Y2 	G+VCE+MCE3TGHT6."J*M* B 6 N +NB 7YWO2 WT+LCL+MCE7CWA+SCE2(WB7CWA+S	E* CI3D;O*	CT3K?N+WB.3WGH7TN	2 T3EWS"?*M*MBJ* B 2 ?L2 " 3ER 7OOE7NR	2 ;K+OCW3WGH7TR 3OR O6."J*M* B 2 2 +AB 7YWO6
WP7TN 3OWM3T	H+NCG3T
O3ET+E3R2 T+A
T7S^ 7HSA2 ?Y3UR 7O^ 3IT6 SI2.F 3NT7O	N",*M*MBJ* B * B * B 3WGH7TN	2 T/I?S* B *** * B*"M6J*JB * B +SCN2 W3OF +TCE/I?T"M6J*JB * B +LCA2 A2 &(2)R +I;D2 A2 &(2)R +I3D6 SS3U	PD6."J*M* B 6 N +NB 2(;I3ASU6)^ +H
O7SN 7TCU/I?D" 6 "J*M* B 2 2 +AB 7YWO6 KA+EB.* "(+TCA3W3A+KCS3OWV7RR 7OR +HCE3TKA+L	E".*M*MBJ* B 2 GT6 N +H
E7SN 7UCP3OWS7DR 3O^ 3O" 3OWM6,J 3IGT6?"J*M* B 6 N +NB 7YWO2 GS+ICD+I3T2 WT3SGH6 R(7AOI+H	A".*M*MBJ* B 2 GL2 " +ECR2 GN+MCE3A;I3T. 7EOI+H3A6 SI*	CS3T	A3SGH".*M*MBJ* B 2 ;S6 R 3IS+A" 3T	A3SGH.)> 2 F +H" +IB)3S	A7DR 3ES+AB,3PGLH6!"J*M* B * B +LCA2 T+ACT7OKU
 ?C3U	S3N: 3AWM*," 3IGN+U	D2 ?Y7UR 3A/L+ICN2(GT3L	K+N	G" *M*MBJ* B * B * B 3A?B+U;T"M6J*JB * B +SCN2 GT3ISA6!"J*M* B 6 R +AB 2(;I3ASU")6>"J*M* B 2 2 +AB 3TGH7TR 7AOI+H;A2 ?Y3UJ 7EST+ECR+GCO7PSU2 ?Y+UCR*-6-2 A2 GH2 GH2,TE*M*MBJ* B * B * B 2 &(7NWA+DB)3C7A3
> +U;T2 A2 GH2 GH*." 2(2 7AN	2 ?C7NSS3ROU3T?I3NZ 3E3L6 CA7ASR")6."J*M* B 6 N +NB 2(;I3ASU")6."J*M* B 2 2 +AB 7YWO2	WR2 ?G3I
N2 ?N+WB.* "(2 ;R2 ?C7MOE6 [O+ECR+TCO3TWH2 GT3BWL")6."J*M* B . > *?B +UCH+U;H"M6J*JB * B +LCA2 ?Y3U^ +OCT+OCN3R;O3ASL2 GJ3CWK+TB.* B*3D;O*	CT3S	P3T> 3N6 +A" +M	Y6 KB3OT+E;R"M6J*JB * B +SCN* 
I3M^ 3O;N3A6 7EOS6 CU2 T3EWS2 T3I
N3S& 7F& +OCU3D;O*	CT2(;I3ASU")6."J*M* B * B * B * B**** "M6J*JB * B +LCA2 ?Y3UJ +ICG7FSA2 	B+G" 3IGN+U	D*.* 2 T+ACT3T	A3SGH".*M*MBJ* B 2 ;S6 R 7HSA*	CS7PSO3A?T2 WH+A;D"M6J*JB * B +RCN2 ?Y+U" 3IGN+U	D2 ?P7TSA3O" 3ESA*.* 2 T3A/N2 ?Y3U6 7ISS+E;R"M6J*JB * B 
LCA2 ?D7NR	2 WG3TZ 7ROE3H: +O3W2 ?R3N3A+DB.2(;I3ASU")6."J*M* B 6 J +NB 3S?O3NF 3S& 2 WG3TF 6 WH7NKD+E3D2 7I+MCA*(
I3M^ 3O;I7GR +OB)3BGE7T& +OCU+U;P"M6J*JB * B +LCA2 O2 ?B+YB.2(;I3ASU")6."J*M* B 6 J +NB 3I7M+A" 3I6	2 ?G3I
N2 ?T2)6 3AWK2 WM* CA3SWP3A	K+NCG3T	H+N;G"M6J*JB * B +TCA2 	D+S" 3T	H+SB)3A;I3T: +OB,2(;I3ASU*)2 2 GL2 S3A;W".*M*MBJ* B 2 ;R2 6 3ER 3O2 3IWK2 T+I3S2 GT3ISA6."J*M* B 6 R +AB 3D;O*	CT7BSO7HKE2 WM".*M*MBJ* B 2 GL2 & 2 ;K+OCW3I" +ACD2(;I3ASU2)2 7ASS*.* 2 A2 &
2)F 7ISN2 &(7NWA+DB)3LGE+VCE+MCE3A?L+N;E"M6J*JB * B * B 2 2 7E[A3E6 3EF 3L;O+EB.* B*2 A2 GM2 6(+YB)7NKE7VOE".*M*MBJ* B 2 ;R6 ^ 7HSA*	CS3TWH2 GM3TWT3R" 3EWR"?*M*MBJ* B * B * B *** * B*"M6J*JB * B 2 ;S6 ^ 7HOO3EF 6 KC7ECE"?*M*MBJ* B 2 ;R6 & +O
U+RCE3AN 3RWE+P".2(GL2 ?G+ECS+TCO3TWH2 S3E[L2 ?T2 WG3TF 7NSO7HKE6 R +O;Y6 SI6 OI"M6J*JB * B * B 2 F 2 ?W3OWD7NN 3HWO2,F 2 WR3P	L+CCA+OCF3TWH2 ;O3E> 7FR +HCE3OSL2 ?W3M;A2 W3O2 3IWV3D& N*M*MBJ* B * B * B +A6 *-B-3EOT2.& 3T" +ACS3A2 3O
N2 GL+C3E2 W3IC2 GL2 	F7RSS2 ;U7TKH3ESA3SF +NCD3S	KP7S"J*M* B * B * B 6 ^ 3IT2 WS7VKE+ACL3T7I+E;S")*M*MBJ* B 2 GL2 2 7OKR3A;I2 ?L+OGK2 ?L3RGR+I3N* 
Y3A3L2 WB3TWT7R^ 3AOT3H> +U3T2 GC3UWS2 J(3EGC3UWS")*M*MBJ* B * B * B 7I^ 7ASN2 ?T* 6-"-*M*MBJ* B 2 ;S6 & +OCU3S?H3USL7NR	2 GT+LCK3L/I7ER 7HSA2 ;I6 KF7OSN* CO2([O6)R 7HOE3E^ 3I3R+S" 3IGN+U	D".*M*MBJ* B 2 ;R* " 3IGN+U	D".*M*MBJ* B 2 GL6 & +OCU3S?H3USL7NR	2 
S+YB 3TGH3T& 3NZ 3R;O3T> 3F2 7IST+LCE7GKI+L;S* * 2 ?N3T	H+N" 7NSO3H;IG6)"J*M* B * B * B 6 WF7N	N* B,3R;O3ASL".*M*MBJ* B 2 GT* " 3IGN+U	D".*M*MBJ* B * B * " 6(R 3RN 3OWM3S> 7VKE2 ?T2 T7ER 3A3B+E:)"M6J*JB * B +SCN2 ?Y3UJ 7EST+ECR3S?T3P: +O3W6 SS+O;P2 &(7NWA
DB)3IR +O
N3TN 3AWR*." 2(F 3AF 3R	R7VOE6 SA2 TE*M*MBJ* B * B * B 3TKA+L	E".*M*MBJ* B 2 GL2 " 3ER +O
N3T: 3ESE2 ?T* 6-"-*M*MBJ* B 2 ;R2 & 2 ?D7NR	2 GC+RCE+ICF7YWO2 &(7NWA+D:)*(B(+TCR3LGE7VOE2 ;A3D^ 7OOE2 ?T2 ;A3OT+ECR3TKAL7E"J*M* B * B * B 2 GT3BWL")6."J*M* B 2 2 +AB +HCE3D;O*	CT3NWE7DR O6."J*M* B * B +SCN* CI3D;O*	CT7CKA3E& 7F& +OCU3LGE3V;I2 2(7E[A3I
N*)B,3I6	2 &(7NWAD6)"J*M* B * B * B 2 ?Y3UF +LCL3PGL3Y;I6 B(7L	A3I
N*)" 3IGN+U	D".*M*MBJ* B 2 GL2 F +LCL3R
I+H3T2 	T+MCE7FKO6 R(3ON 3LGE3NF +NCD3VOA3U7U*?:)* "(+LCA3H3O+DCS+UCP3TWH2 ?L+NCG"M6J*JB * B * B 6 N 3HWO2 GL+CCE+OCF3TWH2 ?T7YN 3HWO")6."J*M* B 6 N +NB 3D;O*	CT7G[I3E6 7EN 3OWM2 ?M+RCE2(;I3ASU*)B,3TGH7TN	2 	S7L	L".*M*MBJ* B 2 GL2 " +ICS3N7A3EF 7ISN2 GA3R
O2," +ECR3N7A3E& 7SJ 3OGN+L;D* B*+NCO+ICT3A;I7TR 3IWM".*M*MBJ* B 2 ;R2 ^ 3I7M+E" 7G[I3E6 +EB)3S7O7ER 7OOY2.^ 3I7M+E" 7G[I3E6 +EB)3S7O7ER 7OOY*."(R7N"J*M* B * B * B 2 7I7MSI3AWT3SF 7AN	2 ?V3IWC")*M*MBJ* B 2 ;S6 & +OCU3T3A3K2 3IWK2 GA3R;O".*M*MBJ* B 2 ;R2 &
2 	A+NCT7AKA+O;N"M6J*JB * B +LCA2 WH2 GS+Y" 3IGN+U	D".*M*MBJ* B * B * "(+LCA7ESA3SF 2 WJ7L	L2 WB+A	N".*M*MBJ* B 2 GA6 R 7HOI2 	A+NCT3TWH2 W3OWL2 T3I
N6 WF+L;L"M6J*JB * B +TCA6 SS+OCP3B	E+NCG3S3I+L;Y"M6J*JB * B +LCA2 ?T2 3P+ACY7WSI+HB.* B*6 SS+OCP3B	E+NCG+SCO3S3I+L3Y6 	M2 ?GD6."J*M* B 6 R +AB 3T	H3SF 7ISN2 T7E^ 3H3O7ER 3H;I3GZ 3U3L6.R 7HOI2 	A+NCT3TWH2 W3OWL2 T3I
N6 WF+L;L6(R(A*M*MBJ* B * B * B 3I7M3IGT7TOE2 GA*	CS3V	O+C	E"M6J*JB * B +LCA2 ?N3T	H+N" 7NSO3H;I+GB)3A;I3TZ 3U;N+YB,3T	A3SGH".*M*MBJ* B 2 GT* " 3IGN+U	D2 & 7TN	2 ?S6 KC7A	Z".*M*MBJ* B 2 GL6 R 7HSA*	CS+SCO3CGR+Z;Y* CI3D;O*	CT3K?N3WF +T" 3WGH+TB)3TWH7YR 3A/
+ICN2(GT3L	K+N	G"M6J*JB * B * B 2 J 7OSU2 F(7BWO+T:)* B *** " 6*"J*M* B 6 N +NB 7YWO2 GT+LCK+TCO3MOU+HB,3R
I+HCT7LKO3R	AN6?"J*M* B 6 J +NB 7YWO2 GT+LCK3T?O6 WM+C3H2 T+ACT7YWO2 GT+LCK3T?O6 WM+CCH3T?O6,N 3T;A7L	E".*M*MBJ* B 2 ;S6 & +OCU3D;O*	CT7S	A6 SI2 	L+KCE3TGH+TB,7YWO2 GS3Y& +T6 "-6-"J*M* B 6 J +NB 7H
O2 ?D2 ?Y7UN +ACY/I?T"M6J*JB * B +SCN2 ?Y7UR 3A/L2 ?T3O6 3UC6,& +OCU7WKO+RCY+MCE+TCO3DGE+TCH*-6-*(B(3TWH+SCE3B	E+NCG3TWH2 ?W7ROD"M6J*JB * B * B 6 R 3OF 2 ?P3P3U+ACR3S;O+GB,3W	H+CCH+HCE+ICS7NSO6 E7ASC+LCY3S;I3G;I+GB,7BSU2 GR3TWHR*M*MBJ* B * B * B 3CGH3N	T+
CG3TWH2 R3YT+M&."M6J*JB * B +LCA2 ?Y3UR +O
N7TN +ACY+ICT3L/I7ER 7HSA2 ?Y7UN +ACY+ICT3L/I7ER 7HOI* 6-"-*M*MBJ* B * B * " 2(C7ASN+I	N6 & +OCU3T3A7KR +OCO3MOU7H& +OCU7WKO+RCY+MCE+TCO3DGE+T3H2 ;A2 F(+N	D2(;I3ASU")*M*MBJ* B * B * B 7YWO2 GT+LCK3T?O6 WM+CCH7YWO2 ?W7R	R2 WM2 ?T2 WD3AT* 6-"-*M*MBJ* B 2 GT
 & +OCU3T3A7KR +OCO3MOU7H& +OCU7WKO+RCY+MCE+TCO3DGE+TCH*-6-* "(3CGH3N	T+N	G".*M*LB * " 2(?C3N	T3NWU3D> 3N" 7OCP*2:)"M2J* B * B 2(N(7OSN7IWN+ECD+OCN7HCO+P&2".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