File HOPK1.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/EF 2 [O2 GT+PCE*3B,7OSC. B1*,^ *7242 ?H+P;E2 GT3RWG3T6 /C6 "M6J*JB * B 3MOI3H3E+L3E2 	W+TCH+OCR2=> 3R?R+NB,+LCA2=2 7AN 7H
A+NB,+RCN6=J 3OGN+L3D2 GT* B=3T	A3SGH",*M*MBJ* B 6 OK* B=3K	E3SGH2,N /H6 2 C7ROI7TCO7HKE6,R /D6 2 ?T+D3D2 KG* B=3GGR3EWM2.OM6 OI2 	S3T	T+NCGO7N"J*M* B 2 F 2 WB3NC2 WN+XCT+TCO+GCB+ICN3TWH2 3P3A	Y+NCG3AWR3A> 7UOT3IWD2.> 7RN 7EOE2 KG2 GT3L	K+NCG"M6J*JB * B 7
SN7OR +HCE3M/I+E:)"M6J*JB * B +OCR6 KM6 KG+I3M2 ?N3BSO+YB,7W	H2 ?N3BSO3YR +O
N7TR 3A/L2 GB+CCK+TCO7YWO"?*M*MBJ* B . >?2 : O6!"J*M* B 2 ^ +BB 3NKO7O	D*	CS7LOI3T;E3I
N2 ?T2 WM".*M*MBJ* B 6 KO6 ^ /H?Y6 ^ +HCY3TWH3Y: +OCT7LOI3T;E3I
N2 ?T2 ?YU6?"J*M* B 2 ^ +BB 3W3E+LB,3IR +O
N3T. 7N
O".*M*MBJ* B 6 KO2 2 7ESC3ROI7I	T*	CS2(3E7ESC3ROI7I	T6 OI2)& 3N: 3EWR6 R(7HKE/E>)"M6J*JB * B +GCB2 WY+SB,3EWL7CKT3I	C+TCY+ICS+ICN3TWH+R;E"M6J*JB * B +OCR2 O2 O6,& +OCU7CSU2 T+ACT+I3N2 3A7L^ 7HSA* CA7HCA3P;E"?*M*MBJ* B 2 KG2 " /U?H"M6J*JB * B 6 KO6 ^ 3I3L6
SI2 3B+OCW/U?P"M6J*JB * B +GCB2 O2 ?N2,> 3H: +OB,3I" 3OWP2 ?NT6."J*M* B 2 > +RB 7DOI6 R(7HOI2)& 3S^ +OCT3T3AK6?"J*M* B 2 ^ +BB 3HU"?*M*MBJ* B 6 KO2 R 7OOE6 SA6 R(7HSA*)" 3IGN+U	D2 ?Y7UR 3A/L2 ;I2 WN+RCE2(T3EWR2)R +ECN2(T+E	N" *M*MBJ* B * B * B 3S7O3E?B+D
Y7SR 3A/L2 ?T2 ?YU6?"J*M* B 2 ^ +BB +N;O2 W+ECN7YWO2 GT+LCK+ICN3TWH+RCE+ICT3GWO3S> 7NR 7OR +HCE7TCA7EJ 3E?C3RWDR6."J*M* B * B +OCR2 W+ACT7TCA7EJ 3E?C3RWDR6?"J*M* B 2 ^ +BB 3TWH+R
E3SF 2 GT+PCE3ROE3OSR+ECR7ION3IWD*."(2 OM2 	S+TCS7D
O3N: 7ESX2 ?T2 KG2 ;O" *M*MBJ* B * B 6 R +HCE3B;E+C	H*."(2 WR7FKE7SR 7OR +HCE3M/I7E^ 3HOI3H6 3A& 3S: +OCW3WGE3R;I+G:)"M6J*JB * B +MCC2 GC3N& 2 WW+ACR3TGH3TZ +OCR7MKAY6?"J*M* B 2 ^ +BB 7YWO2 GW+NCT+TCO3WGE7RR +HCE3S	H/R?T2 /O+ACY7YWO2	3L2 WG3TF 6 WT+R;N"M6
*JB * B +MCC2 ?Y3U6 3AWD2 7E6 R(3H7E")6?"J*M* B 2 ^ +BB +N3O2 ?N* CI3DSI7NR	2 GM+KCE3TWHM6."J*M* B 2 6 +CB 3TGH3T6 +ACN+ICN3TWH6 SO7HKE2 3C7AOS2," 3E6 3AWD2 7E6 R(3H7E")6?"J*M* B 2 ^ +BB +N3O2 WH2 	D+D
N3T6 3AWK2 T+ECM7ESI7HKE".*M*MBJ* B 2 OM* " 3IGN+U	D".*M*MBJ* B 2 KG2 " /U?H"M6J*JB * B +MCC2 &(7NWA+D:)"M6J*JB * B +GCB2 W/A?T"M6J*JB * B +MCC* CI3S	A+DB,2(;I3ASU")6."J*M* B 2 ^ +BB +A3H* CI3DSI7NR	2 ;U7DKE3SGT+NCD3TGHT6."J*M* B 2 6 +CB +ACH*(	I2 GS+I3D2
&(7NWA+D:)"M6J*JB * B +GCB2 W+ACT+DCO3IR +O6 .->-"M6J*JB * B * B *(B(+GCB3HSA6 KG7ESA2 	D3F	F3C3U+TCY3USN7EOR3T;A3D;I3G6 +C:)"M6J*JB * B +MCC2 A2 &(6)N 3ASI6,^ 7HSA2 ?D2 ?Y7U^ 7ASN2 WM2 ?T2 GSY6?"J*M* B 2 ^ +BB +O3H* CI3D;O*	CT3K?NW6."J*M* B * B * B**** "
6J*JB * B *(B(+ACN3U/N7N
O3NN 3H3I3DN 3OWM3S> 7VKE2 ?T2 KG2 ;A3D6 +C:)"M6J*JB * B +GCB2 ?Y3U^ 3O;I7GR 7O^ 7EKA2 T7EN 7HKI3T: 7ESX"?*M*MBJ* B * B * B**** "M6J*JB * B +GCB2 W+ACT7H[A7E& +OCU7GSO2 T3EWR2,F 2 &(7NWA/D>)"M6J*JB * B +MCC6 SI2 GC+MCE7OSU2 [O* CA3CGR3CWK3R* 3A/C2 ?BX6."J
M* B 2 ^ +BB +OCH3YGEH6."J*M* B 2 6 +CB 3SWE2,2 3O/O6,N +ECE+I;T2 ?T+LCD7YWO".*M*MBJ* B 2 KG6 & +OCU3T3O3D6 7E^ 7HSA"?*M*MBJ* B 2 OM2 " /U?H"M6J*JB * B +GCB2 W+ACT3DSI2 ?Y7UR 3E3L2 WM".*M*MBJ* B 2 OM2 & 3TN 3AWM6 WO3T> 7FR +HCE3CGR3CWK3R* 3A/C2 ?BX6."J*M*
B 2 ^ +BB +O3H6 SI2 GC+MCE7OSU2 [O2 T3EN 3ROA7KKE2 GJ+CCK7BO6,& 3EA".*M*MBJ* B 2 OM6 N +E;E"M6J*JB * B 2(2(3AN 3OWM3S> 7VKE2 ?T2 KG2 ;A3D6 +C:)"M6J*JB * B +LCA2 W+ACT+JCU2(?Y+UB)7GSO6 [O+ECR3TWH/R?E"M6J*JB * B +MCC2 T+A
T3SF 2 GR7TR 3A3I2 GH3N	G+NCG7OSU".*M*MBJ* B 2 GL6 ^ 7HKEE6?"J*M* B 2 6 +CB 3R
I+HCT3TWH+R;E"M6J*JB * B +GCB2 W3EWR"?*M*MBJ* B * "(2 OM2 ?P7ISN7SV 7PR 7OR +HCE7TCO2 3F7OKO3S> 7FR +HCE3AGP3R7T7ESN6 WB3ISL3I
N2 KA3OWV")6."J*M* B 2 2 +AB 3IR +O
N7TN +ECE+NCO7RSA2 GT+I;L"M6J*JB * B +MCC2 T3EWR*!" 2(?P7ISN7SV 3PF 3G	A+N:)"M6J*JB * B +GCB* CI3D;O*	CT3SWE2 ?N2 WR7DR 3A3I".*M*MBJ* B 2 OM2 > 3N: 3EWR6 R(7HKE+E2)2 ?C+MCE3OWV3R" 3EWR6.R 7HSA*	CS7AJ +ACT3T	A3L" 3EWR".*M*MBJ* B 2 ^ +BB 3TGH7T^ 3ISN+OCW+UC
3TWH/R?E"M6J*JB * B * " 2(KG2 WS+ECS7AJ +ECD7T
O+ECL3H;A3G;I3G> +UCT+OCF7A^ 3ISN+O	W".*M*MBJ* B 2 OM6 & 3EA".*M*MBJ* B 2 KG2 > 7H& +E3S* CA3RSE2 ?T3W3E".*M*MBJ* B 2 OM2 F +H" +IB)3S	A+DB,7AJ +ECT3TA+L" 7RSA2 GT+I	L"!*M*MBJ* B 2 KG* B 7AJ +ECD3T	AL6?"J*M* B 2 6 +CB +ACH*(	I2 GS+I3D* CA7RSA2 GT+IGL"M6J*
B * B +GCB2 O2,F 2 GR7TR 3A3I2.& 2 ?D7NR	2 WS3EF +NCY7RSA2 GT+I;L"M6J*JB * B +MCC* "(+MCC3P	O7NOT2 ?T2 T7ER +OCP+OCF3TWH6 WB3ISL3I
N2 W3EWR* CA3L;E3GT2 [O" *M*MBJ* B * B * B 7HOO3E& 3S" 3A
N3I
N6 WO3TF 2 	W3N?D+W:)6 R +H
A+S" 3TGH7TN	2)" +ICS3T	A+LB.3R
I+HCT3TWH+R;E"M6J*JB * B +GCB2 O6,^ +ACY+UCP3TWH+R;E2 T+A
T3SF 2 	P3EWC2 [O2 ?H+S;E"M6J*JB * B +MCC6 WHH6?"J*M* B 2 ^ +BB +N3O2 T+ACT3DWO+S
N3T2 3O/O2 	L+KCE7AJ +ACT3T	A7LR 3O6 +EB,3TGH7TN	* CA3PWI+CCE+OCF7HOOE6."J*M* B 2 6 +CB 3WGH7TN	2 ?H+S;E"M6J*JB * B +GCB2 ?H+SCE+ICS7FKO2 GW7TKE3I
N2 T3E2 3A;W6,& +OCU3K?N+WB,7AJ 3UKB+ECR7PCI+EB,7YWO2 ;K/O?W"M6J*JB * B * B 2 : O6?"J*M* B 2 6 +CB +I
T3SF 2 GR7TR 3A3I".*M*MBJ* B 2 KG2 > 3H> 7K	A2,& 7TN	* CA7RSA2 GT+I;L* B*3YGE+HB,3C7O7ER 7OR 3H;I3K> 3F& +TB,+ICTI7S"J*M* B * B * B * CA7RSA2 GT+I;L"M6J*JB * B +MCC2 ?Y3U. 7N
O2 ?S7MSE3H;I6 N(3OWM3T	H+N	G2,F 2 GR3TN 3OWM6 [O+ECR7OKU2 ?HU6	"J*M* B * B * B 2 "(7OOU+E2)2 WH2 ;I* CA3F	R3ESN*	CS3R?O+MB,7WSI3HF 2 ?D3G	G+EB,+ACN2(;A+DB)2,F N*M*MBJ* B * B * B 2(;A+DB)3K?N7W^ 7HSA*?B +ACN2(;A+D2)2 ;A2 F(+N	D6,R +HCE7RSA2 	K+CCK3TWH2 ?D
G	G3E& N*M*MBJ* B * B * B 3A6 3O[U2 6(7OSU+H:)"M6J*JB * B +GCB2 T7EJ +ACT3KOI3KSE2 T3ER 3O
G+ICE+ICN3TWH2 ?M3UT6?B 7RSE+TCY3BGR+VCE7RSA".*M*MBJ* B * * * B*"**M*MBJ* B * B * "(2 OM6 WH+GCS+G
B3SF +R	M".*M*MBJ* B 2 KG2 R 7O& +OCU3L/I3E" 3OSL3I
N6 	M6 KAM6?"J*M* B 2 6 +CB 2(;I3ASU")6."J*M* B * B * "(+RCN3C7O+ECS3OWV7RR 3O^ 3BF +NCD+M	C".*M*MBJ* B 2 ;R2 & 2 GW3NGN6 ^(7ASN2 ?T6)^ 7EKA2 T+ACT3T	H+N;G"M6J*JB * B +GCB2 WY+A3H2 ?Y3U2	3L^ +ECT7AR 3U;R".*M*MBJ* B 2 ;R2 & 2 	W+L3L2 ?NW6?"J*M* B 2 ^ +BB 3
	H3SF 3FWT3R?N+OCN7YWO2 	W+L;L"M6J*JB * B +MCC2 ?N6,N +HCE3S	A3D& 2 ?C3USL2 GT+KCE7AR 3U;R2 [A7TKE2 WHR6."J*M* B 2 ^ +BB 3YGE+HB,7YWO2	3L2 GH+VCE7AR 3U;R2 [A7TKE2 WH+RB,3ASN2 T+ECN3JO7NSA3H;A2 GC3N" 3AWV"M6J*JB * B * B 2 F 6 WT+R;N* "(3D
O2 GB7ROK2 ;I2 T3EJ 3A/C3G?R3USN")6."J*M* B 2 6 +CB 3WGH7TN	2 T/A?T"M6J*JB * B +GCB2 ?S3USN3S2 3IWK* CA3D
O".*M*MBJ* B 2 OM6 & 3EA2 T3EWR*	CS3TWH2 ?D+GB,3L?O+KB.6(B(7LJ 7UON6 [O+ECR3ASN6 KC3AS+ECS7ISN3O^ +B:)"M6J*JB * B +GCB2 ?Y3U> 7K	A6,B 7LOE7HSE/T?E"M6J*JB * B +MCC2 WY+A3H2 T3EWR*	CS3TWH2 ?D+GB,3L?OK6!"J*M* B 6 R +AB +MCY3D
O+GCY7WOA* CA7PCU+PCY7N
O2 WH*	CS3G?R+WCN+U;P"M6J*JB * B +MCC2 ;K+O3W2 ;K+OCW3WGH+TB?3OWN2 	T+MCE+HCE2 GW+S" 3IGN+U	D2 ?Y3U. 7N
O2 W/A?T2 ;K+OCW3WGHT6?"J*M* B * B * B 2 WH2 GW3SF 2 GF3TR +O;G2 ;K+OCW3WGH+TB?3IF +H" +IB)3HSA* CA3L3I2 2(7IST+L	E2 	T+NCY3D
O"M6J*JB * B * B 6 R 7OB 7L	A2 	W+T3H2 GP3PWP+RB,3R
I/H?T2 ;A2 F(+N	D2 WH2 GH3D" +ICS3H	A3RN +UCT3RGE+LB,3L/IE*M*MBJ* B * B * B 3TGH7TJ 3IGT6?"J*M* B 6 R +AB +I" 3IGN+U	D2 WG7TR +HCE3B3AL6?"J*M* B 2 ^ +BB 3YGE+HB,7GSE2 T3EJ 3A3L".*M*MBJ* B 2 OM* 6 *-B-3TGH7TV +MB,3S7O3E	T+MCE7PCA7PKE2 ?D2 GW+LCK3L/I7ER 7HS
2 &(7NWA+DB)* 6-*-B 3S7O3E	T7MOE2 	H"M6J*JB * B * B 2 " +ICS3L
E3SJ 3E^ 3O;I+GB 3OWV3R2 3IWK2 T+A;T"M6J*JB * B +GCB2 W+ACT7HCA3P;E+ECD+TCO7HOI2 WL/G?S"M6J*JB * B +MCC* CA7CKA2 ?C+MCE3OWV3R" +ICS3L
E+SB,+HCE7WOA2 3S7ACP+E;D"M6J*JB * B +GCB2 O".*M*MBJ* B 2 GT2 6 3YR 3O
G+ICE7WOA* CA7PCU+P3Y2 ?N3W" 7EN	6 KG3O;W6 CU".*M*MBJ* B 2 KG6 R 3OSD6,R 3OSD2!R +O
N7TR 3OOU7HR 7HSA2 3P7EOAE6."J*M* B * B *** " 6*"J*M* B . > *?B 3WWH+R
E3S6 3YR /O?G"M6J*JB * B +GCB2 WY+A;H* CI3K?N3W& 7TN	2 ;I2 GB+CCK+OCF7HKE*." 2(WK2 ?C7MOE6 [O+E3R6 KG3O3W3I
N6,^ 3IT"M2J* B * " 2(?C3N	T3NWU3D> 3N" 3O/P*2:)"M2J* B * B 2(N(7OSN7IWN+ECD+OCN7HCO+K&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