File HOPEG.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file
2(J(3E	G3N	N+NCG+GB,3P
A/ER 20> 7FR 3AWP* 212 OO+TB.27T.,^ *4B,7HCO+EB.7TKA7GSE2 C* B=7CKH7ISS3OP+E3R"M6J2J	W+TCH+ACN2=F 3NT7O	N2,F /R6 2 GA3R;O6,R /R6 2 ?T3RWR3NWC2,* /N6 2 ?J3HGN3TGH+NB.3PGL3Y;I3GF " *M2M6J3AOT3H;I3G^ 3AWM6,^ 3HOI3HN 7OON7ISS3S> 3FF 2 GL3RWG2 GC+RCD7FKO2 GE+C
H3PGL7YKE2,F +NCD3AR 3E/C"M6J2J[O2 7S3A3L+ECR7CKA+DCS+TCO+BCE7MSA3CWH7D^ 3IT2 ?S7MSE3H;I3G> 7NR +HCE3PGL7YKE+SB	7CKA+D&."M6J*JB * B +OCR2 	D7D& +OCU3T3A3K> 7NR 7HSA2 T3I
N"?*M*MBJ* B 2 KG2 V H6?"J*M* B 2 > +RB 3DSI2 ?Y7UR 3A/L2 ;O2 T+ACT3T	H/N?G"M6J*JB * B 2 ;A2 R +ICD7YWO2 GT+LCK+OCN3TGH7TR 3H;IG6?"J*M* B 2 ^ +BB 7YOE2.> 7K	A".*M*MBJ* B 6 R +RB 7H
O2 ?D2 ?Y7UR 3A/L2 ;O6 SI"?6 "J*M* B 2 N +HB 3IR +I
DT6."J*M* B 2 ^ +BB 7H
O2 ?D2 ?Y7UR 3A/L6?& +OCU7JOU7TN +ACY3S7O3ET3I
N2 ;A7DR 7HSA*	CS*-6-2.> 7K	A6,& O7U"J*M* B * B * B 2 ;K+OCW7H
O2 ?T2 3P+ACY3T	H+SB.3EWV+RCY3OWN2 WG+TCS3AN 3ASR*." 2(T7EB 7L	A7EOR2 GTK7E"J*M* B * B * B * CA7CKA+D:)"M6J*JB * B +CCH2 O+HB,3OW3HH2,> +H;H* "(+ACN3T/A+ECS3AN 3ASR6 KF+OCM3TWH2 WD+C	K".*M*MBJ* B 6 KT2 ^ +OCT+ICT7GSO6 SI2 ?G3T& 3T^ +OCT+ICT".*M*MBJ* B 2 C
 ^ 3ASR6 CU2 GG+RCD+UCP*(&?"M6J*JB * B +TCR* CI7GSO6 SI".*M*MBJ* B 2 C2 : +OCT7DSA6 R(7HSA*)B.3AH6,& +OCU3D;O*	CT7GSO2 ?N2 	PG6."J*M* B 2 F +RB 3P
I+GCY3P
I+GCY3P
I+GCY3P
I+GGY"M6J*JB * B +GCB2 /O+A3Y6 R 7OKR3EON+EB,3O3N3Y> +NCE+ACT7AR 3IWM".*M*MBJ* B 6 KT2 " +EGY2 GT3YWT+L" 7TKU3TWL*)B,7T	A3T3E6 R(7USR+L	E6,R 7USR+L3E* CI7GSO6 WT3R3T+EB,3OO",*M*MBJ* B * B * CI2 ^ +OCT7AR 7USR+L3E* CI7GSO2 T7ER 7USR+L;E"M6J*JB * B +GCB2 /O
A3Y2 ?N2.> +NCE+ACT7AR 3IWM2.& 3T^ 7OOE6 KA3O;U7DR 7HOI2 GWY*M*MBJ* B 2 ;A2 & 2 ?G7TR +HCE7CKA7RSO"!6 "J*M* B 6 R +RB +OCH+H3O2 WH2 ?G3TN 7AKR+O3T2 WH2 ?G3TN 7AKR+O;T"M6J*JB * B 2 KG2 * 3O;H3AT+A;N"M6J*JB * B +ACN2 GH2 GH2," 3E" 3E" E6."J*M* B * B +TCR2 A
 &(2)^ +OCT+I3T2 A2 &(2)^ +OCT+I3T2 A2 &(2)^ +OCT+I3T2 A2 &(2)^ +OCT+I;T3AH2 &(")*M*MBJ* B * B * B 7GSO6 SI2,F +HCH*(CI7GSO6 SI2,F +HCH*(	I2 ?G3T& +T".6(R 7RR 3AWK3SF " *M* B * B * B * B *MBJ* B * B * B 7CKA+D:)"M6J*JB * B +GCB2 ;O+LCY3OWN".*M*MBJ* B 2 ;A
 & 3EA"!*M*MBJ* B 2 C2 F +H" +IB)7GSO6 SI".*M*MBJ* B 2 F +NB 3WWH/R?E* "(+CCH3T/A+ECS7CKA3DZ 3R7O6 KT6:R 3R^ 3RKA3S& 3TJ 3A/C2 ;A7DB 7ROE7SOE6 SI"M6J*JB * B * B 6 R 3O" +ICS7MWO+T	H".*M*MBJ* B 6 KT6 V +HCM3C?H+MCP3C?H+M3P2 C7OCM2,N 3H7OP6."J*M* B 2 N +HB 
ACH*(	I2 ?G7TR +HCE3GGR+P;E"M6J*JB * B +TCR2 A2 &(2)F +TCE3A3L* CA2(T+EB)3GGR7POE2 [O3F& T6."J*M* B 2 F +RB +HCE+HCE+HCE+H;E"M6J*JB * B * " 2(N 7HR 3AWK3SF 2 GC+R	D".*M*MBJ* B 6 KT6 ^ +HCO7GSO6 SI*?B 3W?H2 ?G3T& T6?"J*M* B 2 N +HB +ACH*(	I2 	A+NCT3S?H3W;I
 N(7H
O3I
N6)& +O" 7YWO6)R +O" 7USN+I	L* 6-"-*M*MBJ* B 2 KG* B 7PSU2 ?Y+UCR7CKA3DZ 7LSA2 ;O2 T3EZ 3L?O+RB,7AKA+O;N"M6J*JB * B +CCH* 6-6-R +O" 7USN+I	L* CI7GSE6 SI6,R +O" 7USN+I	L* CI7GSE6 SI".*M*MBJ* B 2 ;A2 J +AB!+BGA2 GB2!J +AB!3BGA+AGA"M6J*JB * B +TCR2 GA3R;O2 W
3T& +TB,7AKA+OCN7GSE6 SI2.F 3A?R+N2 7YWO2 WG3T	T+N" 7GSE3T;I+GB)+I;T2 ?O+OCH3OH".*M*MBJ* B 2 ;A2 > 3O?O3HF 3HHH6."J*M* B 6 R +RB 7YWO2 ?G3NGN2 ^(3O;I7GR +OB)+BCE+ICN+A" 3FOA+E&?".*M*MBJ* B * B 2(>(7RR 3AWK3SF 2 GC+R	D".*M*MBJ* B 2 KG6 R 7OKR3EONE6."J*M* B
2 F +NB 3WGH+TB!7YWO2 ?G3T& +TB?3WGH3T& 3S& +TB?7YWO2 ?G3T& T6?"J*M* B 6 R +RB 3U7MM6."J*M* B 2 > +RB 3W?H2 ?G3T& 3TJ 3YR +ECM2(T+E	M"?*M*MBJ* B 2 C2 F +H" +IB)+D;O2 ?G7T^ 7HSA"?*M*MBJ* B 2 KG2 : 3O> +NCE7HOA2 T+ACT3OWN".*M*MBJ* B 6 R +RB 7YWO2 ?G3T& 7TJ 
IG3T" 3EWR".*M*MBJ* B 2 KG*^B +NCO3OWN2 GH7SR 7HSA2 ;OE6."J*M* B 2 > +RB 3TGH3TF 7ISN6 SI".*M*MBJ* B 2 C2 : 3O> +NCE7HOA6 SI".*M*MBJ* B 2 ^ +BB 7TKO3R;E+C3E2 ?N2 ;O3E" +ACS+I;T"M6J*JB * B +TCR2 ?Y3U" 3AWV6 SI2,N 7AOU+E" 3BOE7AOU+EB)*-6-2 T+ICS3B3E3O
N7SR 7OR 7HSA2 T3I
N".*M*MBJ* B 2 KG2 ^ 3IWV2 & 7TR 3O6 +EB.+N3O6 SI*	CS+OCN3TWH6 SO7HKE2 GC+RCD3TGH7T^ 7EJ	3E: +OCT3U	S+N;G"M6J*JB * B +ACR* CI3DO2 GD3HR 3EWR".*M*MBJ* B 2 C2 : 3O?B+DCY2 ?D7NR	2 WG2 ^(+E	T2 7U2 &(+T:)"M6J*JB * B * B *(B(+TCR7TKH7OOW2 T3EN 3ASR2 ;O+TCO3TWH2
	A+R:)".*M*MBJ* B 6 KT* BH3NKO7O	D2 ?D7NR	2 WG3T& T6."J*M* B 2 ^ +BB 3D;O*	3T2 ?D7NR	2 T7R
O2 T3EWS* B,3PWL3AWS".*M*MBJ* B 6 KT2 : 3O?B+DCY3D;O*	CT7GSE6 SI".*M*MBJ* B 2 KG6 ^ 3E3L2,R +O
N7TR 3H?R3W& T6."J*M* B 2 N +HB 7DOI+S" 3T	H+SB)+GCI*-6-"M6J*JB * B +TCR2 /O+A3Y2 	P3G	G+E;S"M6J*JB * B +GCB2 GW7SR 7HSA2 ?Y+UCR7TKU+NB "M6J*JB * B * " 2(;A2 GT7KOE* CA7CKA+D:)"M6J*JB * B +TCR+HCE7GSO6 
T7OB 3I
G7IOE*."(6 KT2 WR7FKE7SR 3OF 2 ?C3W> 3NF 7RN	2 ?B3ASR")6."J*M* B 2 F +RB 7NCO+EB,+A
T+S" 3TGH7TN	2)F 2 ?CW6."J*M* B 6 R +RB 7DSA*	CS2(T+A
T+SB)7AN 3AWM2 T3I
N".*M*MBJ* B 2 C2 2 +E
T7SN +E;E"M6J*JB * B +ACR2 GD7TN	*," 3TGH7TN	*)B,7DSA*	CS2(T+A
T+SB)3AN +O;W"M6J*JB * B +GCB2 T+A
T3SF 7NSO7HKE2 3F3OWW+RB.6(J(3EWF3R	R+NCG+TCO3TWH2 GC+RCD+ACN7JOU7TB 3I/C+E	D".*M*MBJ* B 2 ;A* B 3AN +O;W"M6J*JB * B +ACR6 SA*	CS2(T+A
T+SB)3AN +O;W"M6J*JB * B +GCB2 WW2 ?D7NR	2 GH+VCE3AZ 7L
O+E;R" *M*MBJ* B 2 C6 ^ 7HKEE6?"J*M* B 2 > +RB 3WWH/R?E"M6J*JB * B +ACN2 WE+HB!3I^ +OCT+I3T* CI7GSO6 SI2,& 2 ?G3T& +TB,3I^ +OCT+I;T"M6J*JB * B +OCR2 W3EWR* CA7C
O"?*M*MBJ* B 6 KO2 2 3E7M+E" 7LSE2 WM6)N +ECE3AN +O;W"M6J*JB * B *?B?2 WH2 ?G2 ?D+W;N"M6J*JB * B 2 ;A2 F +H" +IB)7GSO6 SI2,& 2 ?G3T& +TB,7GSO2 ^ +OCT7GSO6 SI2,F 3H^ +OCT+I3T2 A2 &(2)^ +OCTA6 "J*M* B * B * B 6 R 3OGM+T;O2 F 2 &(2)^ +OCT7GSO2 ?G3T& T6."J*M*
B * B * " 6(KA2 GT7KOE* CA7CKA+D:)"M6J*JB * B +GCB2 W+ACT7H[A7E& +OCU7GSO2 T3EWR"?*M*MBJ* B 2 N +HB +HCE7GSO6 SI".*M*MBJ* B 2 > +RB 3TGH*	CS2(T+A
T+SB)7NSO* CA3T7U3A?T6 R(3OGM+T	O6,R 7HSA*	CS7AB 7UCM3K;I".*M*MBJ* B 6 KT6 R 3UGM+TCO2(?T7MSA+OB)3T7U3A?T6 R(3OGM+T	O6 WY7MSA+O" 3T7O3A?T*)B.7YWO2 	K+N" 3C;A2)F +HGH"M6J*JB * B * B * " 6(KT2 GT7KOE* CA7CKA+DB,+CCH3SGN3TC+ECS7CKA3DZ 3R7O2 	H+M:)"M6J*JB * B
+CCH2 A2 &(2)^ +OCT+I;T"M6J*JB * B +ACN2 ?L+O3K2 ?L+O3K2 A2 &(2)^ +OCT+I;T"M6J*JB * B +TCR* "(+TCO+C	H6,& +OCU7WKE3E2 3O/O3I
N".*M*MBJ* B 6 KA2 2 3O/O2,2 3O/O2,2 3O/O".*M*MBJ* B 2 ;A2 F +H" +IB)7GSO2 R +ICS2(T+I	S".*M*MBJ* B 2 KG6 V 3H" +U;H"M6J*JB * B +OCR2 W+O" 3UWV3RR /I?D")6."J*M* B 6 R +RB 3T7U3AGT6 R(3OGM+T	O6 WT7MSA+A" 3T7O3A?T6)R 3UGM+TCA2(?T7MSA+O:)* "(2 C2 GT7KOE2 GC+
	D".*M*MBJ* B 6 KO2 & 7TN	6 	M6 WT+RCN".*M*MBJ* B 2 ;A6 R 3UGM+TCA2(?T7MSA+O:)"M6J*JB * B * " 2(3A7LN +ACY+MCE7GSO6 SI")6."J*M* B 6 R +RB 3JOA7KB +O3T6 WG+CCK3GOU3K^ 3U/C6 WG+C;K"M6J*JB * B +CCH2 A2 &(2)^ +OCT+I;T"M6J*JB * B +TCR2 WH2 ?G3T& +TB,+HCE7GSO6 
I".*M*MBJ* B 2 ;A6 ^ 7HKE+EB?"M6J*JB * B 2 C6 J 3IG3T" 3EWR".*M*MBJ* B 6 R +RB 3R
I+HCT7HKEE6."J*M* B 2 N +HB 3T7U3AGT6 R(3OGM+T	O6,R 3UGM+NCA*(&?6,R 3IGR3NGT. >(")6."J*M* B * B 2(>(7RR 3AWK3SF 2 GC+R	D".*M*MBJ* B 6 KO2 R +ICS2(T+I	S6 OI2 WP+A;R"M6J*JB * B +GCB2 W+ACT+DCO7YWO2 GC+LCL3TGH7TR 3H;IG6?"J*M* B 2 N +HB +DCI2(T+EB)3PGE+RB,3PG
R6."J*M* B 2 F +RB +OGH2 A2!F +HB!3I7M+A" 3I6	2 ?G3I
N2 ?T*)6 "-6-"J*M* B 2 > +RB 7AB 7EKA".*M*MBJ* B 2 KG2 F 2 WP+A3R2 	R7GSH*." 2(F 7NR 3AWK3SF 2 GC+R	D".*M*MBJ* B 2 ;A2 & *	CM3G;O+NCA2(?G3I
N2 ?T* B)7GSE2 ;OE6."J*M* B 6 R +RB 3G7I+MCE2 ^(3IWV2 WM2)J +OCY* 6-6-B +UCT+ICT7D
O+NB,3L7E+MCE2(WL3T6 +E& 2 WS+E6 "-6-"J*M* B 2 N +HB 3K;U3G. 3U
N2 . 3A. 3U
N6 WK+N;G2 	D+S" 3T	H+S2)2 	D+S" 3T	H+SB)3N?O+O3H2 ?Y6 &(+O	U"M6J*JB * B * B 6 & +O" 7YWO2)F +R
N3T^ +OCT+N3O2 ?Y6 &(+O	U6 KA7NR	2 ?G3T: +OB,+YCO2(?Y+UB)3A;R*	CT7GSO" *M*MBJ* B * B * B +NCO2 ?H3R	SE6."J*M* B 2 F +NB +ACH*(	I2 ;O+LCY7GSO2 T3RWE2,F +H" +IB)7GSO2 T3RWE2,F +H" +IB)7GSO2 T3RWE".*M*LB * B 2(N(7OSN7IWN+ECD+OCN7HCO+E	H".*M"L*M* B 2 F +RB:7Y
O7GSO2 ;O7ER +WCO7TKH+E;E"M2J* B 6 KA2:^ +OCT7TKH+E3E2 ?G7TR 3HWRE6.&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