File HOPM4.PA (PAL assembler source file)

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

* B * " 2(?C3N	T3NWU3DZ 3R7O2 ?H/POM6,R 3A
R7EOT2 WJ* B=3J7E+ACL3ASN2 ;J* B=3JO7NSA3H;A")6."J*M* B * B * "(7HOI2 WR3AC2.* 7ER 3RWI7SR 3O^ 3RKA6 SI2 W3IWL2 WR3M	A3N;I3G& 3N" +ICS3CGH+I	R".*M*MBJ* B 2 N +HB +HCE+HCE+HCE+H;E"M6J*JB * B +JCN2 O2," 7EN	2 GT3L	K+NCG+TCO+U3S2 WH6 WW+Z" 7WOA6)R 3A/L3I
N2 ?T6 OU".*M*MBJ* B 2 3P2 " 3E3L+OB!"M6J*JB * B +JCN2 ?Y3U. 7N
O2 WH6 WW+Z" 7WOA6)R 3A/L3I
N2 ?T6 OU".*M*MBJ* B * B * B**** "M6J*JB * B 2 GA2 > 3HJ +O;Y2 ?W3O?O6,^ 3O?O3OWE+EGE"M6J*JB * B +CCH2 ;A3T?H+N3Y2 T7ER 3EWL3P?H+N3E2 WH2 WH2 WH2 GH2 GH".*M*MBJ* B * B * B * B**** "M6J*JB * B * B * "(+JCE3ASN2 ;J2 GT+LCK7ISN3OV 3AC3OT7EOR2 	M+K	E".*M*MBJ*
B 2 ;J6 R 3A/L2 ?T2 	M7NOE2 6(3IWN*)B,3T3A7KR 3O6 3IWN+S" 3M;I+E:)"M6J*JB * B +JCE2 WB3EWE+EB.2(*(7ER 3A/L3S> 7NR +HCE3P?H+N	E".*M*MBJ* B 2 C2 * 3O;H3AT+A3N2 GE7TR 7HOI6 CU2.N 3OWN2 ;O2,V +ACT7DOI6 R(7HOI6)V +PB.2(*(3E" 7IOT2 GA" *M*MBJ* B * B * B +ACA7WS
3HF 6 CS3O;O2.^ 3B& 3NWT3RWV7NOE2.* 3NF +NCD+PCL3AWR2 3P3A	Y+NCG+ACT3TWH6 SS3OWV")6."J*M* B 2 ^ +BB 7H	E2!R +O
N3T^ 3OF 7RWO+NCD7HSI3T;I7GR +HCE3OT+ECR3C	H7LKD+ECN7WSI7HR 7HOI".*M*MBJ* B 2 WJ2 & 2 	D+D
N3TR 7OR 7HSA2 ?T2 GA3R;O2,F 3NT7O	N2 	D+DB.2(*(7N^ 3IT2 GL2 ;A7DB 3LF 7TR +HCE"M6J*JB * B * B 6 R 3A3B3E: +O;W" 6)"J*M* B 2 * +NB +ACH*(	I2 GS+ICD7YWO6 SS3AKB+ECD3S7O3E?B+D3Y2 ?Y7UN 3TKA2 ?S3MKE7O	D*." 2(WJ2 GW7LOK"M6J*JB * B * B 6 V 7P^ 3IT2 T7EB 3H;O3E
 +NCD7PSU3S& 3T> 7NR +HCE3TKA+L3E2 ?C3N	T3N	U+NCG7HOI" *M*MBJ* B * B * B 3C;O7VKE3SGT3I;O2 ;O6 SI2." 3E2 3O/O3S& 3N?T* CA7PSO".6)"J*M* B 2 * +EB 3H3E+LCO3DSA2.R +ACD*-6-"M6J*JB * B +PCL* CI7S
A* CA3M;A2,& 2 GS7WN 3OWM3BSO7YN	* 6-"-*M*MBJ* B * B * " 2(;J6 WC+TCS7HKE2 [O+F:)"M6J*JB * B +JCN2 ?D7NR	2 GT+LGK"M6J*JB * B +PCL7IN +ACW3S7O3E?B+DCY*-6-"M6J*JB * B +JCN2 ?D7NR	2 GT+LGK"M6J*JB * B +LCA2 ?D7NR	2 WT+LCL3TWH2 WT3AC+E;R"M6J*JB * B +PCL2 &(7NW
+D:)"M6J*JB * B +JCN2 WY3S& 2 7A*.B *** " 6*"J*M* B * B 2(F(3AF +NCD+JCE7PSU* CA3D3O7LR 3OJ +E;D2 ;J2 	S+TCS7NE7TR 3O2 7OR 3A/L3I
N2 ;I+TCOA6 "J*M* B * B * B 2 3P7ASS+ICC7CCU")6."J*M* B 2 * +NB 2(;I3ASU6)R 7OJ 3OWG+RB.3C	H+EGF2 C3I[E2!N 3HWI+FB!3C	H+EGF2 ?Y7UN 3T3I3LR +O
NT6 "J*M* B * B * B 2 WH+ACR+M3E2 ?Y7UN 3T3I3LR +O
N3T" 7EKA2 WM2 J 3EGC3UWS* CI3S	T+LCL"M6J*JB * B * B 6 R 3A3L3I
N2 N(3A3L3I
N6)& +O;U"M6J*JB * B +ACA2 /O+A3Y2 WL3T6 3E^ +ECT3USN3E;R7ESA7HR +HCE2(;I3ASU")6."J*M* B 2 * +NB 3JWE7PKE+SF!* B*3C	H+E3F2 C3I[E2,N 3HWI+FB,7YR	7HKEE6!"J*M* B 2 F +AB 7LWO3DF +NCD3CWL+A;R2 WH*	CS7LWO3DF +NCD3CWL+A;R"M6J*JB * B +JCN6 SO+ACY2(/O+A	Y6,^ 3E: 
ESE+S" 3NWE+DB)7YWO2 	R* 6-2-F +H" +IB)3NWE+DCS2(WN+E	D2 ?Y7UJ 3IGT6 "J*M* B * B * B 2 WH+R3E2 A2 &(2): 3ESE2 ?Y7UJ 3IG3T" 3EWR6 WT+Z" 3BOE7AOU+EB)7A^ 3OGM3N* 7USS2 	KL7L"J*M* B * B * B 2 F 2 GMN6."J*M* B 2 F +AB 7H
O"?*M*MBJ* B 2 ;J6 ^ +I" 7WSI+HB)3A. 3N[I+EB.3R
O+E;R"M6J*JB * B +JCE2 GH7P	P2 	B3RT7D	A2 ?T2 ?Y+UB,7HCA+PCY7BKI3TSH+ACY+TCO7ASN3H;O+YB,7HCA+PCY7BKI3TSHA7Y"J*M* B * B * B 2 	B3RT7D	A2 ?T2 3P3ES7EST3EF +NCD7ASN3H;O+YB.*(B(+JCE3W3A+KCS"M6J*JB * B * B 6 KA3O;U7DR +HCE3TKA+LCE7WSI7HR +HCE7T	O2 	P+EB,3S;I3G
I+GB.7PSU3S& 3T& N6 "J*M* B * B * B 2 Z 3R;O3T> 7FB 7LOE7HSE+TCE3ASN2 ;A3T?H+N;Y2 WT/COH2 ?C7MOE6 [O+E	R".*M*MBJ* B 2 F +NB 7HCA+PCY7BKI3TSH+ACY+TCO7ASN3H;OY6."J*M* B 6 R 3EC*3B 7PSU2 3A7LR 7HOE7EB 7LSA+ECS3ASN2 T3I
N7SJ 3IG3TJ 3A/C6!R 3AWK2 T+A;T2 &(7NWA+D:)"M6J*JB * B +JCN2 ?Y7UN 3T3I3L. 3I3L+ECD3S7O3E?B+D;Y"M6J*JB * B +PCL2 ?N* CI3DSI2 ?NT6."J*M* B 2 * +NB 7YOE2 ?Y3UR +I3D6 WT+Z" 3BOE7AOU+EB)7YWO2 ;U7DKE6 KA7ROE+TB.7YWO2	WR2 ;U7DKE6 KA7ROET6."J*M* B * B * B 2 A2 &
6)N 3ASI*,* 2 ?Y7UJ	7EV 3NWD3RF 3RWR+S;T2.6 3AWK2 WB3LWI+VCE7YWO2 	T3LWLD*M*MBJ* B * B * B 2(	K3LWL+DB)3S7O3E?B+D;Y2 ;K3O/C2 ;K3O/C2,. 3NOO3K. 3NOOK6!"J*M* B 6 B +LB 3IR 3I;D*	CT3K3I3L: 3O?B+DCY7YSE".*M*MBJ* B 2 ;J2 . 3NOO3K. 3NOOK6!"J*M* B 6 B +LB 3IR 3I
D*	CT3K3I3L: 3O?B+DCY7YSE".*M*MBJ* B 2 ;J2 > 7K	A*.* 2 A2 &(2)F 7TR +HCE3P3O3IWC6 SS3A	T+O;N6 OI2 	R7GSH2 WH+RCE+OCN3AGL+R;M2 TA7T"J*M* B * B * B 2 6 3E;A3SF +H" +IB)3T7U2 N(3OWM*)B.*** * B*+ACH*(	I6 SA2 T7EB 3O	L+CCE3SGT3T?IN6."J*M* B 6 B +LB 3H3E+PB!3H3
+PB!3A6 7OON7TKE6!N 3OWM3BSO3Y. 3I3L+ECD+M;E"M6J*JB * B +JCN2 	D3NGG2 	L+NCG3A	L+NGG2 ?W3O?O3OWE+EB,+ACH*(	I6 WT3M	M+NCG2(?C3M	M+N	G6!^ 3O?O3OWEE7E"J*M* B * B * B 2 OS3RWE+CGH"M6J*JB * B +PCL6 KA3RR+HGH"M6J*JB * B +JCN2 O2 OS7RSA. >(*)F!2 S3E^ 7OOT2 ^(+O	
* CA3K	N+FGE"M6J*JB * B +PCL2 ;K3O/C2 ;O2 T3ER 7OKO2!. 3NOO3K> 7NR +HCE3D?OR6!"J*M* B 2 * +NB +UCH+U;H2 A2 &(2)J 7USS2 T3ER 7OKO6 CO+EGN2 [O7FB 3AH6!N +HCE7GSO+S" 7GSO")6 "J*M* B * B * B 2 T3E. 3N[I+EB!+OCH+AGH* "(+JCN3OWP+NCS3TWH6 WC3RGT+ICN+OCF3TWH2 ?T3
N 7LOOE7T"J*M* B * B * B 2 F +NCD7TKH7USS7SR +HCE3PGL3S	T3C. 3N[I3E& +N:)"M6J*JB * B +PCL2 A2 &(2)" +ACT2(GH+DB)2H?T2 	K+LCL+MCY7HOU3B;A+D" 7NOE7TKO*?:)"M6J*JB * B +JCN2 WY+SB 3DSI2 WH6 N(3A	Y/N?G2)" 7EN	2 GL3Y;I7GR 7HKE+EB,+HCE3C?L3SSE2 T3ER 7OKO2." 3E2 
O/C+ECD"M6J*JB * B * B 2 & T6."J*M* B 6 B +LB 2(;I3ASU")6."J*M* B 2 * +NB 3O?O3OWOE6."J*M* B * B * B * B**** "M6J*JB * B +JCE6 KT7YR 7HOI2 GC+K3E2 ?W+OGH* B*3D	R+NCK3TGH3TF +N" 3ASN*)6 *-B-2(*(3E& 3SN 7UST3I
N2 TE6 "J*M* B * B * B 2 	P+EB,3ASN2 GA2 ?C7MOE6 [O+ECR+TCO3H7I")6."J*M* B 2 F +NB 2(;I3ASU2)F +N" 3ASN6)R +HCE3TGE3CWH7RN 3ASI2,: 7OB 7UST+ICN6(WP3T	T+N	G* 6-"-*M*MBJ* B 2 WJ2 2 3E7M+E" 7LSE2 WM6)N +ECE+ICF2 T+ICS+ICS3AJ 3U;R6 CU2 GC+K;E* B*+OCH7AKA+O3N2
TI7S"J*M* B * B * B 2 ?D7NR	2 ?G2 ;I2,F 3A?R7N^ 3AOT7HR 7HOI2,F 7ISN2 ?G+ICN2(?G3I
N2)" 3EWR6.V 3MR 3AR +E;E"M6J*JB * B * B * " 2(	S3N	G+NCG+TCO3H7I3S3E+F:)"M6J*JB * B * B 2 F +H" +IB)3A;I3T^ +OCT+NCO7MKO3EF 2 	M+N;E* " 2(?B+TCH7PSU2 T7EB +ICE3WSE7GOE2 GB+CCK+ICN"M6J*JB * B * B 6 R +HCE3TGR+Y;S2 WJ*	CS7HOA* CA3PWI+CCE7MOI3S;I+GB.+ACA7SC
3P	L+ECS3TWH2 	M3S	S+NCG3PWI+C3E"M6J*JB * B * B * B 7N
O2 	H7SB +ICE+ICS3M;I+UCS7AB 3IOE+EB.3TWH3YR 7UCM2 T+ECM7OSU2 ;A7DN 7TKA3TF 3G	A+N:)"M6J*JB * B +ACA2 WY7S& +OCU+D;O2 ?L+O;K2 ?T+LCD7YWO2 ?L+O;K"M6J*JB * B +JCE2 ?S3MKE7O	D2 ?L+SCT3TWH2 ;O7ER 7O& 7OKU+SB.7NSO2 ?T2 	M+N;E"M6J*JB * B * B 2 & *	CM3G	O+NCG7FO
7TKE2 :	6 R(3H;A6)& +O;U2 ?Y7UN 7TCO3PSE"!*M*MBJ* B 2 GA2 R +O
N3TR 7OR 7HOI2 
A3A;I2,> 7K	A2 WJ3M3A".*M*MBJ* B 2 WJ2 F +H" +IB)3NWE3D6 3EF 2 ;K3IWF2.^ +ECD2(WG+TB)3A. 3N[I+EB.7CWA+SCE2(WB7CWA+S	E* 
IM6 "J*M* B * B * B 2 ?G3NGN2 ^(3O;I7GR +OB)7CSU6 CU".*M*MBJ* B 2 GA2 " +OCW+DCO7YWO2 	L+KCE3T	H+S" 3IGN+U	D".*M*MBJ* B 2 WJ6 R 7HSA*	CS3AJ 3U;R6 CU2 &(7NWA+D:)"M6J*JB * B +ACA2 T+ICS3A;I3T^ 3O;N+A" 3G	O+NCG6 R +O2)2 T+ICS+A" 3IGN+U	D".*M*MBJ* B 2 WJ6 R 7
SA2 	P3EJ 3U;R6 CU2.J 3U;R+TB!3I^ +OCT7PSU2 ;O3E> 3N6 7YB 3AWP3RZ 3OWR"M6J*JB * B * B * " 3B[E3OWR2)& 3T^ 7OOE2 ;I2 T3E> 3V;E6.R 3OGD7YN	2 GY6 &(7OKU*)B,3TSO+ACY7TOI2 ?YU7R"J*M* B * B * B 2 	B3RT7D	A"!6."J*M* B 2 * +NB 3B?R3TWH3R" +UGH2 GW3S	H+N" 7WOA3H;I
GB)+MCA6(	M2)N 7LSO7HOE2.F +H" +IB)3I?R+N6 "-6-"J*M* B * B * B * CI3I?R7NR 7HOI2 C3OWKR6."J*M* B 2 * +EB 3A3L* CI3GSO+DCA2(?G7TR +OB)3PSU6 B(+U	T2 ?S+MCE3W;I3E> 3N& +TB,+ACN2(;A+DB)I6 "J*M* B * B * B 2 ?G3DGD2 ^(+OCT+T	O6 KI+OCN+I;T"M6J*JB * B +JCN2 GD7TN
* " 3TGH7TN	2): +OCT+NCO3W;I+EB!"M6J*JB * B +JCE2 A2 &(2)^ 3OSD+A" 7GSO2 ?T2)& 3R;O6 SI2 ;A2 F(+N	D2 T+ECN*-6-* "(+JCN7CSU3S& +N& "M6J*JB * B +JCN2 ?Y3UJ 7EST+ECR3S?T7PR 7HSA2 GC3UWS2 J(3EGC3UWS6)& +OCU3C;A*	CT3I?R3NZ 3OSO*!" 2(;J" *M*MBJ* B * B * B 3T/A+
CS3TWH6 KI+OCN3F?R3M* +EB,3W?H2 ?L7OOK6 KA3O;U3DF +NCD3F;I+DCS3A?N3TWH+R:)"M6J*JB * B +JCE2 	G3MGM2 ^(3IWV2 WM2)F 6 KI+O;N* B*3IR +O
N3TN 3AWR*.* * CI3GSO+DCA2(?G7TR +O2)"M6J*JB * B * B 2 & 2 ?D7NR	2 GC+R3E* CI3D;O*	CT7CKA+EB,3D;O*	CT7CKA+EB."*6 *JB * "(3ESN")6.*JBL* B * "(3C;O3T;I3USE2 ;O2 ?H/PWM".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