File HOPM2.PA (PAL assembler source file)

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

* " 2(?C3N	T3NWU3DZ 3R7O2 ?H/PGM6,R 3A
R7EOT2 WJ* B=3J7E+A3L2 ;A3D* /N6 2 ?J3HGN3TGH+N&."M6J*JB * B +JCN6 WH7R	R6 CU6 R +UCZ2(WB7CWA+S	E* CI7AKL3ESA3Y6 3AWD2 ?C3FWFE6."J*M* B 2 * +EB 7HKE7ER 7AOI+H;A* B*+ACH*(	I2 ?G3TGT2 ?G7TR +OB)2 GM+KCE+MCA6(	M2)Z 3RWI+N3D"M6J*JB * B * B 6 R 7AOI+HCA+MCA6(	
2)^ 3I3R3F	R3ESN*." 3IGN+U	D2 WM+ACN7YWO3R^ 3I3R3F	R3ESN*." 2(;A2 GT7KOE"M6J*JB * B * B 6 R +HCE3P?H+NCE3ASN2 WB3G;I3SF 2 ?C3NWV3RGS3T?I+N:)"M6J*JB * B +CCH2 S3EJ 7E& 7OKU2 	G3R[L3RWI+N3D2 ?Y3U^ 3O;N+A" 3G	O+NCG+T	O2 	K+SCS+ECR2(WH+R2)2 	R7GSH"?*M*MBJ* B 
 WJ6 ^ +HCY7YWO6 N 3ASI2 T+A3T2 GMN6?"J*M* B . > *?B 3W3E7L^ 3E3L*," 3IGN+U	D* 
I3MF 6 KP3I?Z7NKE".*M*MBJ* B 2 WJ2 & 2 ;K+OCW3I2 3OWV2 WHR6."J*M* B 2 N +HB 3M;A6,& +OCU3G;O+NCA2(?G3I
N2 ?T2). 7IOS6 KE2 "(+E	R".*M*MBJ* B 2 WJ2 & 2 ?L+VCE7HKE".*M*MBJ* B 2 C2 & *	CM3G;O+NCA7KOI3SV +R" 7HKE")6."J*M* B 2 * +EB +MCE3T?O2,& 2 ?L* 6-*-" 2(C6 WC+TCS+JCE3O[F")6."J*M* B 2 N +HB 3D;O*	CT3T3E+LB,3OGKY6?"J*M* B 2 * +EB 3IF 7ISN2 WT+L3L2 GC3UWS2 J(3
GC3UWS*)6 *-B-* "(+CCH7CSU3S* 3E> +FCF3AGG+I	N".*M*MBJ* B 2 C6 & +OCU3T3E3LF +N" 3ASN2)& 3MGM2 &(*	CM3G	O+NCG+T	O2 WT+LCL+ECR2(WH+RB)3WGH7T& +OCU3S	AD6."J*M* B 2 * +EB 3SWH2 	M7GSH2 WT+LCL+OCN+MCE7A	N2 ?H+WB.2(;I3ASU")6."J*M* B 2 N +HB 7YWO2 WB3TWT+RCN6	S
2 J(7EST+ECR7NSO6)R 3E3L".*M*MBJ* B 2 WJ2 & 2 	A+NCT3T3E3L;I6 R(3E3L3I
N*)B.3SWH2 	D+D
N3TJ 7E& 7OKU2 	G3R[L3RWI+N3D2 S7EN	"M6J*JB * B * B 2 F 3A?R7NN	".*M*MBJ* B 2 C2 F +N" 3ASN6)N +HCE3R;O3ASL*	;S"M6J*JB * B +JCE2 ?Y+UCR7FOI3HF +NCD3C	H3PJ 3U;R3I
N6 CU2 ?B+YGS* "(+JCE3C3A+LCS7OSU2 ?T2 ;J2 ;A3DF +N:)"M6J*JB * B * B 2 F +HCM*(
I+MB)3G;O+NCA2(?G3I
N2 ?T6)^ 7ASI2 ?T6 V(3N	T+LB)3M;I3EJ 3U;R2.F +H" +IB)"M6J*JB * B * B 2 ^ 7OST7AB +UCD6(WP+TB)3S7O7E^ 3AWT3R& +NB.2*: +OCW3I^ 7OST+A" 7GSO2 ?T6)B +UCT7DOEE*M*MBJ* B * B * B 2(T3EWS6)V +PB.3I^ 7OST7AB +UCT7EKA6 KD7OOP2 ;I6 SI".*M*MBJ* B 2 C2 F +HCM*(
I+MB)3M/A+ICN2(GM3K;I+G2)2 WH+YB!2(*(7NN 7IOT2 ;O2 T3EZ 3L?O3R: 7ESX2 ?T2 GA3R;O")6."J*M* B * B +JCN2 U2 U2.& *	CM3AN +O;P2 ?W3O?O3O?O+O;O* "(3M/A+ECS7AN 3IWR3N: 7OOI+EB.+JCN3ASN2 GA"M6J*JB * B * B 6 V +SCE3PGL3S	T3CN 7UOP2 ?F3R6 7IKC3OP3OWN+S:)"M6J*JB * 
 * B 2 & 2 ?D7NR	2 WN+ECD+NCO3P?H+N;E2 ?W3O?O".*M*MBJ* B 2 GA6 ^ 3O?O+O;O2 GC3L	L+N" 3C3A3L;I+GB)+GB,3C7O3E& N6."J*M* B 2 * +NB 7YCU".*M*MBJ* B 2 GA6 ^ 3E" 3A	V+N" 7H[A3I
N6)R 7RWO3BWL2,J 3RGO3DGW3YF +N" 3ASN.)J *0:9"M6J*JB * B +JCN2 WY+A;H* CI3RGE7D& +O;U2 ?R7GKE6,J 3ESA2 ?Y+UB,7OSU6.^ 3O?O+O;O* B*+UCH+U3H2 WW2 ?NT*M*MBJ* B * B * B 3D	O+N" 3D	O+N	G2 	W+TCH+NCO3CGH7IOR*." 2(;J2 GT7KOE* CA3CGH+ICR3ASN2 WR7TKU+NCS+ICT"M6J*JB
* B * B 6 R 7OR +HCE3TKA+LCE3NGE7RR +HCE3S?T+V;E2 WJ6 WT7RON2 ?T2 	H3MF +NCD7G[I+ECS3H7I* CA7PSO")6."J*M* B * B * B +WCE3D;O*	CT3NWE3D: 3ON 3H	A+RGS2 WW2 ?D7NR	2 WN+ECD+NCO*-6-"M6J*JB * B +JCE2 ?J3HGN3TGH+NB,3SWM+LCL+I;T6 SI2 7S3E3L7SN 3T;I+KB,3HE2," +E;H
M6J*JB * B +JCN2 ?O+OGH"M6J*JB * B +JCE2 WW2 WL7T& 7OKU6,& 7OKU2 ?F+OCD7BKU7NV +PB.3JO7NSA3H;A6,& +OCU7LSE2 ?Y+UCR3F?O3DJ 3U;R"M6J*JB * B * B * B +U;P"M6J*JB * B +JCN2 WY+A3H6 WT+Z" 3BOE7AOU+EB)7I^ +UCZ2(GW+SB)7AB 3O	L+CCE3DOO7TKO2.& *	CM7AB 3O	L+CCE3DOO7
KO".*M*MBJ* B * B * B 6*V 7HV +HB,3I6	2 ?N3TR 7R[I3I
N2,N +UCZ2(WB7CWA+S	E* 
I3MF 2 ?P3LOI3E> 3F	F7CKE".*M* B * B * B *MBJ* B * B 2(*(3NN 7AKR7IOE* CA3CGH+ICR+TCO3WWH+RCE+PCL+ICS7SSI3T;I+G:)"M6J*JB * B +CCH2 A2 &(*)B,3A7H2 &(*		M2 ?C3O	K+NCG7YWO3RZ 3OSO2.2 3O/O2,F +HCM*(	I2 ?C3O	K+NCG7YWOR*M*MBJ* B 2 ?F+O;D2 A+M" 3I6	2)N 3O/O3I
N2 ?Y+UCR3F?O+DB,3L?OK6."J*M* B 2 * +EB 3OGK+YB!6*B +UCT3S7O3EJ 3A?C3N& N6."J*M* B 2 N +HB 7HKE+EB!7HKE7E& +OCU+G3O2 WJ3M3A*.* * B*"**M*MBJ* B * B 2(*(3E^ 7OOE2 ?T2 T7ER 3A3B7E^ 7HKE3E2 3O& 3S6 3A	K+NCG3C[O3FWE".6)"J*M* B 2 * +EB +WCE3NWE7DN 3OWM6 WC+P3S2
WW2 WN+ECD3S7O3EN 7UOP".*M*MBJ* B 2 C2 N 3OWM2 ;O*.B 2(*(7EB 3I/C7SV 3PF 2 ?C3FWF7EB +OCT3ASN2 ?P7UOR2.2 3OF +NCDJ7E"J*M* B * B * B 2 ?B+TCH3T3A3KF 3T> 3NWC")6."J*M* B 2 2 +OB 2(;I3ASU")6."J*M* B 2 * +EB 2(;I3ASU")6."J*M* B 2 N +HB 3L7E+MCE2(WL3T6 +EB)7PS
2 	D+S" 3T	H+SB)+OCN7TCO* CO7DKE+E" 3TWH+R	E2.: O6!"J*M* B 2 * +EB 3G7I+MGE2 WL3MWM2 2(+ECT+M	E2 WS3E" +OCW3MOU3H& 7SR 7HKE+EB!3L7E+MCE2(WL3T6 +EB)3SWE"M6J*JB * B * B * B 2 ?H3W6 3UC6 OI2 T3EWR*." 2(WJ2 WL3AWV3SN 3HF 7TR +HCE3S?T+VCE3ASN2 ?G+ECS3OWVR*M*MB
* B * B * B +TCO+ACA3W?H6 OI6 SS3I3L2 GT3L	K+NCG+OCN7HOI2 ?P3LOI7EJ 3A	D+O:)"M6J*JB * B +JCE2 WH3L?L6,R 3A/L6!R 3A/L2!" 3E3L+OB,3T3A+KB!3T3A+KB!3H3E+L;O* B*3W	A7TR 3I3L2 A"M6J*JB * B * B * " +IB)3GSE2 ^(+E	T* CA3CGH+I;R* B*7AKA+O3N* 
I7MR +HCE3C?R+O3K* 
I7MR +HCE3C?R+O;K"M6J*JB * B +ACA2 ?W3O?OO6."J*M* B 2 * +EB 3A7H2 &(*		M2 3P3A	Y+N" 3PGL3Y;I+GB)3P3O3IWC2 &(7NWA+DB)3W?O+OGO"M6J*JB * B +JCN* 
I3M: +OCT3D	R3V;I+G6 "-6-"J*M* B 2 F +NB 3R
I+HCT7HKE+EB!3PSU6 B(+U	T6 SI2 	R7GSH2 WH+RGE2 &(7NWA+D:)* "(+ACN3B	R7NOG* CA"M6J*JB * B * B 2 N 3H	A3RF +NCD3PGL7COE6 SI2 WN+XCT+TCO+A	A".*M*MBJ* B * B * B 6 N +ECE7YWO2 GL7TKE".*M*MBJ* B 2 ;J6 ^ 3O?O+O;O2(*(7NN 7IOT2 ;I2 T3EN 3H	A3R: 7ESX2 ?T2 GA")6."J*
* B 2 F +NB 2(;I3ASU2)N 3OWM2 ;I"!*M*MBJ* B 2 ;J6 & 3EA2,& 2 WR+ACD7YWO2,2 3OSU2 ;A3DN 3LGER6."J*M* B 2 F +AB 2(;I3ASU*)6 *-B-2 ?R7GKE*.* . SP2 ?C+MCE+I3N2 ?C+MCE+I;N"M6J*JB * B +JCN3YGE+HB,+ACH*(	I2 WR+ACD7YWO".*M*MBJ* B 2 GA2 > 7K	A6,& +OCU3K?N7W^ 7HSA*
" 3IGN+U	D".*M*MBJ* B 2 ;J6 ^ 7ASI2!F +H" +IB)3SWE2 	H7SR +ACR2(GC+R:)2 ?Y3UJ 7EST+ECR3S?T+PB.7WSA+CCH7OSU*!* 2 /O+A;Y"M6J*JB * B * B 2 J 3R7I3M7M2,J 3R7I3M7MM6."J*M* B 2 F +NB 3C3A3L;I2 N(3A3L3I
N*)" +MCA3S;O*?2)2 GC3L	L+N" 3C3A3L;I+GB)2(GM2 ?S+N&?2!N 3A3L+ICN2(GC3L	LN7G"J*M* B * B * B 2 N(3A3L3I
N*)" +MCA3S;O*?2)2 GC3L	L+N" 3C3A3L;I+GB)2(GM2 ?S+N&?"!*M*MBJ* B 2 ;J6 V 7HV +HB,+UCH+U3H2 U2 U6,^ 7EJ	+E6 *-B-+ACH*(	I2 7A2 &(7NWA+D2)2 A2 &(2)F +M" 3IGN+U	D".*M*MBJ* B * B * B 7H	E2 GS+MB.3S7A*!B.7D	E6 R(7H	E6)N 7TKA3TSE2 GT6 R(+OB)3S?H+OGT2 ?C+MCE+O3N2
?Y7UJ	E*M*MBJ* B * B * B 7AN 3H?O+TB.7GSE2 ?D+WCN7NKE+E" 7HKE+E:)* "(+JCN3ASN2 ;A6 SS3ASN2 ;I6 KF7OSN2 ;AD6 "J*M* B * B * B * CA7LSI3TWL2 ?T2 T7EN 3IWD2 [O2 T3E6 7IKR+OCR3ASN2 WB3G;I2 ?T2 S7OSO2 ;I+TCO+ICT"M6J*JB * B * B 6 ^ 3IT2 T7IKE2 	F3NWG+R	S".*M*MBJ
 B 2 ;A6 B +AGH2 S+OGT"M6J*JB * B +JCN2 ?N+P;E2 WH*	CS3S	T+LCL+ICN7NKE+E" 3TWH+R	E2.> 7K	A2," 3OSL2 	R7GSH2 T3EWR6,B 3LGE+S;E"M6J*JB * B +ACN2 ?H+LCD3R
I+HCT3TWH+R3E2 3P7EOA+EB.7AKR3IG+T" 7AKL3IG+T2)2 ?H+LCD+IGT"M6J*JB * B +JCN2 WH*	CS2(;I3ASU2)J 3O7O2!J 3O7O6!B 3IS+TB!2 A2 &(2)^ +OCT3H7I2 3A3RGE+D3Y"M6J*JB * B * B 6 R +UCZ2(WB7CWA+S	E2 WH6 WW+ZCT2(GW+SB)+ICN3AJ 3A/N2.F +H" +IB)7GSO2 7I2 "(+I	M2 3A3RGE+D
Y"M6J*JB * B +ACN2 GC3L	L+NCG2(WG3O
R7E^ 3E3L+S&?2.* 3O;H3AT+A3N* 
I3MN 3A3L3I
N2,N 3A3L3I
N2 ^(7EKOG7E"J*M* B * B * B 2 WW7LOL*?B)3C3A3L;I+G" 3G?E3RWG2 WW7LOL)6!"J*M* B 2 * +NB 3I6	2 GD* "	3TWH2)J 7OOS"!*M*MBJ* B 2 WJ2 F 3HF +H3H* 
I3MR +A" 3TWH2)J 7OOS2,N 7AOU+E" 3BOE7AOU+EB)3I6	2 	B3GWG3RR +ACN2(T+A	N" *M*MBJ* B * B * B 7YWO*." 2(WJ6 SS3ASN3S> 3NF 2 C7AKI2 KA3OWV2 ;J")6."J*M* B 2 * +NB +UCH+U3H2 GC3UWS2 J(3EGC3UWS6)& +OCU3SGT3N	D+N" 3SGT3N	D+N	G2 ;O* CA3CGH+I;R2 ?N6,N +E3E" *M*MBJ
 B * B * B 6 SS3ASN6 CU2 ?J3HGN3TGH+NB.3SWE2,& *	CM3B
I7GKE2 GD+N" 3TGH+NB)7YWO".*M*MBJ* B 2 WJ6 ^ 3EJ 3OT2 	BG6."J*M* B 2 * +NB 3TGH3T6 3E;A2 WW2 ?B+TCH+DCA2(T+EB)7BOO+SB.6(R(7H	E2 	S3TR 3O;W2 ;O2 T3EN 3H	A+R	S".*M*MBJ* B 2 ;J6 ^ 3O?O+OGO" *M*MBJ* B * "(3C;O3T;I3USE2 ;O2 ?H/POM")6."J*M"M6J"J*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