File HOPQ1.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/EZ 2 OO+TB.*223. ^	*4B,7HCO+EB.7TKA7GSE7SR 3OSD2 ;A3DR 3E	N+SCE"M6J*JB * B=+TCD3ASN2 ;D2.F 3L?S2 GM* B=7MKA3YF +N3N2 OM* B=3MOI3H3E+L3E2 3P* B=3PWL3SWH3TWT6,J /E6 2 WR7NSIA6,"J*M* B 2 GA* B=7AKA+O3N2 ;A3D* /E6 2 WJ3M3A
.B 7SSE3T;I6 OI6 R +HCE7ASR6 KG7OCU2.6 +A2 2 ;D2,6 7CB,L6,"J*M* B 2 ST2 ;A7DJ 3TF +RCE3SGE3TSE6 KA3O;U7DR +HCE3TKA+LCE3P	A3N	T+NCG7WSI7HN 3T	R+N;G2 WJ2 ;A3DF A*M*MBJ* B 3AWR6 SS3ASN3I
N6 SA2 T3EV 3AWS+LCS3P	A3N	T+NCG7WSI3HJ 7ROU7HOE".*M*MBJ6 R 3EC21& 7SN 7H
O3I
N2 T+ECM3TWH2 WT3C;H7IWQ3E> 7FB 3A;I3T;I7G^ 3IT2 ?W+OCL3ASN6 SS3R;I7GN.3OWM"M6J*JB 2 > 7FR +HCE3C	H7LKD+ECN3AWR6 WC3T	T+NCG7OSU2 S3AWP3S> 3FN 7LSO3HF +NCD3S	T3C	K+NCG3TWH7MR 7OR H7E"J*M* B 2 GP7PKE")6."J*M* B 6 R +DB 3L?O3KF 3TR +ICS2(T+I	S2 ;OE6."J*M* B 
 R 3EC*1B 7N
O2 W+ACT7YWO6 WS3P?P+DCE6(WS3P?P3SSE6)R 3OR +O2 6 OI2 GT+KCEY7O"J*M* B * B * B 6 &(7OKU*)B,3T/A3E& 3TF +N" 3ASN6)B +UCD6(WP+TB)+ICT7ISN3O" 3EWR2,F +N" 3ASN2): E7N"J*M* B * B * B 6 R(3H;E*)B,+DCO3L/I7ER 7HSA2.> 7K	A2,R +ICD7YWO2 WS+EB?7T	R2 ?N7TR 3O^ +ECT+
CO3P	AN7T"J*M* B * B * B 2 ;O2 ?Y3UJ 3EGC3UWS* CI3D;O*	CT7H[A3E: +O6 "-6-"J*M* B 2 R +NB 3PSU6 B(+U	T6 SI2 ?D+WGN2 W7OR +OCL2(?T+L	D2 ?Y7UR 7OB 3I/C6 SI6 CU6?B +UCD6(WP+TB)+ICT"M6J*JB * B * B 2 R 3O;W2 GM+R;Y2 W7OR +OCL2(?T+L	D2 ?Y7UR 7OB 3I/C6 SI6 CU"?*M
MBJ* B 2 WT/CGH2 6 7A	R2,^ 3OF 3HGE3DF +N" 3ASN2)R 7O^ 7HSA2 ?Y7UJ	7EN 7UCP3OWD6 N(7UCP3OWS+DB)T7O"J*M* B * B * B 2 ?D*.* 2 ?Y3U" 3AWV7NR	2 ?D+NCE7A	N3T	H+N3G2 GC3UWS2 J(3EGC3UWS6)& +OCU3AWR2 ?S2 	B+G6 "-6-"J*M* B 6 R +DB +O3H2 ?L3OGK2 2(3O/O6 SA6)R 7HSA2
2 3O/O+A" 3L?O3KF +TB)7AKA+O;N"M6J*JB * B 3TOE+HB16 WP7T& 7OKU2 GH+NCD7D
O+NB,7PSU2 T+ACT7D
O+NB.6(R(3EC61R 3A/L3I
N2 ?T2 OM*)B.+ACH*(	I"M6J*JB * B * B 2 R 3I;D*	CT7G[I7ER 7HSA2 ?T2 ?Y+UB.7YWO2 ;K+OCW7YWO2 ?G+TB,7YWO6 WC7TR 7HSA2 GM7TKE3I3A",*M*MBJ* B * B * B 2 ?Y3U" 3AWV2 ?T6 WC3TF 2 	P3EWC2 [O3FN +UCT3TGH3T6 3AWT3RGI7LR +R;Y* B*7YWO2 ;K+OCW3WGHT6?"J*M* B * B * B * C
7WWO+LCD3S
U7GOE7T& +OCU7M[O7ER 7HOI2 ;A7DB +UCT3T	H3S& 3NZ 3R;O3T> 7F& +O;U2 ;AD6 "J*M* B * B * B 6 WP+LCL7YWO2 C7AKI7SV 7PR 7OR +HCE3TKA+L;E2 A2 &(2)R +O
N3T. 7N
O2 ?H7W& +OCU7ECX7ESC2 ?T"M6J*JB * B * B 6 ^ 3O/R2 T+ACT7FKA6 KF+OCM3TWH2 GT3BWL6 WP+LCL7YWO3RN 3H	A7RV 7PR 7OR +HCE3TKA+LGE"M6J*JB * B * B 2 F +N" 3ASN2)F +H" +IB)3D;O*	CT3K?N3W> 3FF +NCY7PKE3S;O2 W3ON 3H	A+RB,3W?H2 ?N2 3G+UCEO7N"J*M* B * B * B * CA3CGH+
3R2 GC3UWS2 J(3EGC3UWS2)> 2 >(+FB)+MCA6(	M2)N 7LSO7HOE2 A2 &(2)" +ACD+A" +T	O" *M*MBJ* B * B * B 2 WS+NCD+ECM2(T+E	M2 ?T2 T3EN 3LGE7NKE7SR 7HOI2 WW+ECK7CWA+SCE2(WB7CWA+S	E2 TE7Y"J*M* B * B * B 2 ?G3TZ 3U3L* CO2([O2)^ 3LWU2.: +OCW3P3U+LB,3P3U7L& +O" 7YWO+R
)3CGH+ICR+U;P"M6J*JB * B +TCD2 A+M" 3I6	2)6 3A	K+N" 3M/A3I
N2)& +S" 3T	H+SB)3BGO+TB.3A7R+M3M6 KA3R7MM6."J*M* B 6 R 3EC*1B 7YWO2 ?L+OCK3SWE2 ?Y3U: +O3T2 W+ACT2 &(6)^ 7ASN" *M*MBJ* B * B * B 7YWO2 ?T2 ?D* 6-*-B 6(R(7OB 3LF +NCD3OT7EOR*)B.+ACN2(;A+DB)3D;O*	CT7MOA3H& +TB,7JOUT6 "J*M* B * B * B 6 WP+LCL+ICT7AKC7OOS2.:
+OCW7JOU7TB 3U3L6 SI2 OA7ROOS6."J*M* B 6 R +DB 7DSA*	CS2(T+A
T+SB)+AB,3TGH7TN	6 OM2 &(7NWA+DB)7DSA*	CS2(T+A
T+SB)3L/I3EF * CR+TCO+M;E"M6J*JB * B * B 2 2 3IWK* CA3T	H3SF 2 ?B+A3T6 KR7RKR".*M*MBJ* B 2 WT/CGH* " 2(WR7FKE7SR 7OR +HCE3P	A+NCT3W	H+CCH+ICS7RSA7HKE2 T3I/C6.R 3EC22N 3OWM3S> 7VKE"M6J*JB * B * B 2 F +NCD3SGT7NOD2 WB3H;I3D6 3AF +NCD+D	N2.6 3AKY3E& 7TN	2 ?N
TF 7USI7EN 7OSF2 ;E3O
UH6."J*M* B 6 R 3EC*2B +ICS3T	H+SB,3T	H7SB 3A;I3T& 3SJ 7EST+E3R6 WH+HB?"M6J*JB * B 3TOE+HB12 WY+A3H2 GC3UWS2 J(3EGC3UWS2)& 3T" +ACD+A" +T	O2 WB2 T3I;N+ECD7OSU".*M*MBJ* B 2 WT/CKH6 R 7HOI2 ?S6 KB3IGT6."J*M* B 6 R 3EC*1B 3YGE+HB,+ICT7WOA* CA7LSI3TWL2 ;I2 T7
R +I3N2 T+A
T7S^ +HCY3SWH2 GS+ICD3M/A7EN 3UWR"M6J*JB * B * B * B * B 2 &(7NWA+D:)"M6J*JB * B 3TOE+HB22 O6,N 3O& 7TN	2 	D3FWF3R;E7TR 3H;A2 T+ACT3OT+ECR3P	A+N3T2 	R7GSH"?*M*MBJ* B 2 WT/CGH2 & 7TN	2 	D3FWF+NCT2(	D3FWF3R;E+TB)+ICN+A" 3TWH6)R 7ESX3UWR6,J 3IGT6."J*M* B 6 R
3EC*2B 3WGH7TN	* CA2(T+EB)3N7A3E> 2 >(+FB)7DOI6 R(7HOI")6?"J*M* B 6 R 3EC*1B 3I" 3AWV2 ?T2 ?L+OCK3OWV+R" 3IGN+U	D".*M*MBJ* B 2 ST* " 2(?T2 WT/CKH2)" +E3Y2 ?L3OGK2 2(3O/O6 SA2)R +ICS2(T+I	S".*M*MBJ* B 2 WT/CKH6 ^ 7HSA6 OI2 T/A?T"M6J*JB * B 3TOE+HB12 O2,F +
" +IB)7MOE3SSE2 ?Y7UOR6 CU* "(3TOE+HB13S	P7LOL2 ?S+MCE3P	A+N	T6.& +OCU7T	R3I
N2 ?T"M6J*JB * B * B 2 ?T2 GP7ISN2 	L+KCE3AJ 7ROU+HB,+ACH*(	I2 	D+D
N7T^ 7ASN2 ?Y7UR +O6 *-B-3K;I+DCA7SKT3OWK6 SI".*M*MBJ* B 2 ST2 V +HB,3L?O+KCA2(?L+OCK+A	T2 GA3A?R+NB.+HCE7GSO2,F 3A?R+N" 3IGN+U	D2." 3E^ +OCT3B
U2 ;AD*M*MBJ* B * B * " 3IGN+U	D2." 3E^ 3O;I2 ^(3O;I+GB)+OGH* CA+B" 7LSE7TKE* 	B2.V +HB,3L?O+KCA2(?L+OCK+A	T2 	DS*M*MBJ* B * B * " 3T	H+SB)+BB,3R;E3IGD6 J(3E	N+T	A2,2 3O/O+A" 3L?O3KF +TB)7DOI6 R(7HOI2)J "M6J*JB * B * B * " 7LSE7TKE* 	B2 	R7GSH6 KE+E" 7HKE
E:)2 7I+MCA+BB.7DSA6 R(7HSA2)J 2 ?L3O	K+N" 3L?O3K;IG6)"J*M* B * B * B 2 	L+KCE7SWT3PSI*.* 6 WH+HB?6 OI+A" +ICT+I	S6 SI+IB,3I	T. >(*)B.+O3H2 ?L3OGK2 2(3O/O6 SA")6 "J*M* B * B * B 2 	D+S" 3T	H+SB)3BGA+ACD3C3O+O;R6 +F7Z+Z+ZGZ"M6J*JB * B 3TOE+HB12 ?D7NR	6 KT7
R +A" +T	O2,* 7USS2 GT+KCE+AB,7JOU2 *(7USS6)R 3AWK* 3A* CI7JOU2 *(7USS")*M*MBJ* B * B * B 3W;A7T& +A" 7YWO6)R +OB,7NSO2 WR3A3L7YB 3A;I7T^ 3IT6 SI2,* +UCS6(WJ+S	T2,* +UCS6(WJ+S	T" *M*MBJ* B * B * B 7CKA+RCY+ICT3A?R+UCN6(KA3O;U+D:)2 WS+EB,7YWO6 KT3Y;I6 R(3R
Y+N	G2 ?T2 GM+KCE+ICT3AJ 7ROUH6."J*M* B * B * B 6 SI2 ?N3TF 6 KB3US6,N +ECE7YWO2 ?G3TF 2 WB7ASU7IWF3LR 3E	S+GCN+ICF7YWO6 
T7ISS6 SI6 KA3O;U"M6J*JB * B * B * " 3A?R3USN*)".2(?T2 WD7NOI+E:)"M6J*JB * B * B 2 ^ 3OSO2 WS+EB,3SWE2 W+ACT3BGE3U	T3F3U2 WD3S
I+NCS7YWO2 ?D3I
N2 ?NW6."J*M* B 6 J +NB +ICT7D	R2 GF+S;T"M6J*JB * B 3TOE+HB1* "(+TCO+J3E2 W3O" +ACS3BWE7NB 7UST3I
N2 ?T3O6 3UC2 GP7ISN2 ;O2 	H3SJ 7ROU+H:)"M6J*JB * B * B * B 2 WY+ACH+ICT3D	R+ECS7FOA+T" 3IGN+U	D6 OU+EB +ICT3T	H7S^ +ACY+ACN2(;A+DB)7YWO2 ?W7NR	"M6J*JB * B * B 2 " 3AWV* CA7LSO2 [O6 KT3OKU+LCE+WCI2(	W+T	H6 CS3I3L3I
N6 SI*."(+TCO+R	E2 ?G+O3D2 ?NW6 "J*M* B * B * B 2 T+A
T3S& +TB.3UWS2 ?Y6 &(7OKU2)Z 3RWE* CO2([O6)& +O" 7YWO+RB)3H;A+DB.6 OU7E& O*M*MBJ* B * B * B 2(?Y+U	R6 KF+ECE+O" +O	F2 ?Y6 &(7OKU2)" 3ASN".*M*MBJ* B 2 ;D2 2 3O/O6 SA2 A+M" 3I6	2)6 3A	K+N" 3M/A3I
N2)6 3S" 3A/W+I;N2 WD3SA+N" 7DOE3I;G")6."J*M* B 6 R 3EC*1B +N3O6 WJ+SCT3UWS2 ;O3ER 3A3R+ICN2(GD3R	L+N	G6,& +OCU3D;O*	CT3NWE7DR 7OV +SCE7BSO+HB,"M6J*JB * B * B 2 * 7USS6 OU3E> +NCE3H;AD6."J*M* B 2 R +NB 3A7H2 &(*		M2 GM3K;I2 6(3A	K+N	G2 WD3SA+N" 7DOE3I;G")
."J*M* B 6 R 3EC*1B +O3H2 ?Y3U" +ACD3AJ 7EWA3T[I+UCL7DOE3I;G2,J +UCT7N
O2 ?Y+U6 *-B-3TGH7TN	2 ?YU7R"J*M* B * B * B 2 WD3S
I+NB.7YWO2 GH+VCE7A^ 3H3O3EJ +ICG3PWI+CCE+OCF7PCA+E3R2 W7Y& +OCU7WKO3K;I" *M*MBJ* B * B * B 2(?W3R	K+N	G6 WS+CCH7AN 3M3A7L^ +A3Y* CA3W?H+LCE3B
I2 	P3EWC2 [O2 GP7PKE*	CS7YWO+R3S"M6J*JB * B * B 6 & +ECS+ICT+I3S2 ?Y3UN +ACN3UWS2 T7E^ 3H3O7EB 3AWP+RB,7YWO2 	K+N" 3C;A* B)3UWS2 3A3L> 3F& +T:.".6."J*M* B * B * B * CI3W;O*	CT3M;I3D& 7F& +OCU7PSU6 SI2 ;O2 ?S7MSE3H;I6 N(3OWM3T	H+N	G2 3E+S;E2 [I* CI7JOU"M6
*JB * B * B * " 7JOU+TB)7YWO2 GP7ISN+ECD3TGH3TF 2 ?C7LKO6,R 3H;E2 ?Y7UB +UCT3TWH6 SO7HKE2 N 3O?LR6 "J*M* B * B * B 2 	R7GSH2 ;O2 ?T+PB,3W;O7DKE2 W+YB?3WGH7T^ +ACS7YWO2 ?D+ICN2(?D3I
N*)B?3H7M"?*M*MBJ* B * B * B 3WGH7TJ 7EOA+OCN3DSI2 ?Y7U^ 7ASN2 T+ACT+TCO+BCE3L/I7ER 7HSA2," /U?H"M6J*JB * B +RCN* CI3W;A3T& 7TR 3OJ 3E6 3OWR2 GD+R;K*." 2(ST2 ?H7LOD6 CU* CA3SGM+LCL3ROE3T;A3GWL2 [O" *M*MBJ* B * B * B 3Y3E7L
O2 WF+L	T".6."J*M* B 6 R +DB 3L?O+KCA2(?L+OCK+A	T2 T+I;S6 OI* CA7CKA6.R 7HOI2 ?L7OOK2 	L+KCE3AN +A;R"M6J*JB * B +JCE2 T+ACT3L?O+KCS3L/I3EF 2 S+O;E"M6J*JB * B +TCD6 SI6 OI7NR	2!2 3O/O2,2 3O/O+A" 3L?O3KF +TB)3T	H+SB.3A2 3O/O2,R +ICZ2(T+I	S2 	DZ*M*MBJ* B * B
* B 2(N(7OSN7IWN+ECS+OCN7HCO+Q&2".*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