File HOPR.PA (PAL assembler source file)

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

* " 2(WB3G;I3N;I7GB 3AWG2 ;O3E> 7FR 3AWP* 272 OO/TJ *3B,.	R72," 3OWP6.R 3A
R+ECT2 3P* B=3PWL3SWH3TWT",*M*MBJ* B 2 	W+TCH+DCR2=R 3E	R+C3K6 KT* B=7TKO3R;E+C3E2 7K* B=3K7I2,. /E6 2 WK3IS+AB,+OCR2=> 3R?R+NB,+RCN"=*M*MBJ* B 2 WR7NSI+AB,+ACA2=F 3A?R+NB,+TCD6=R 3OSD6.R +HCE7SSE3T;I3G& 3S. +I
M3SJ 7ISR3HGD7YB 7ASRY6."J*M* B 6 R +HCE3TKA7LOE6 KA7EN +ECT7WSI7HN 3OGD6,B 7LSA+ECS6 SE+CB.3TOE+HB1+ICS7CSU3T;I7GR +HCE3C/A+E:)"M6J*JB * B +DCR* CI7ESA2 	D+S" 3T	H+SB)3C/A+EB.3U
H3G
G* "(3M/A+ECS3A^ 7R
O3L;I7GN 3O;U+D:)"M6J*JB * B * B * * * B*"**M*MBJ* B 2 KG6 R 7OKR3EON+EB,7SSI2 ?D+WCN3PWL3AWS".*M*MBJ* B +TCR2 ?Y3UF +TCE3TGH3TF +LCL+U;P"M6J*JB * B +DCR2 WY+A;H6 SI2 GW3S6 7EOSY6."J*M* B 6 B +LB +I
T3S6 7EOSY6."J*M* B 6 R +RB 7DKE3I/C6 SA3EF +LCL7HOI2 GC+KCE+U;P2 7I+MCA*(
I3M^ 3O;I7GR +OB)7ESA2 3A3L6 3YN 3AWK".*M*MBJ* B 2 WT/CGH6 R 7HOI6 OI2 W+ACT3I7M+A6 *-B-6(R(3EC61B 3US+ECS+P
L3SN 3H	AR6 "J*M* B * B * B 2 ;I+TCO3TWH2 GT3BWL*)B.2 GC3UWS2 J(3EGC3UWS2)& 7F& +OCU7WOA+TCE7A	N3T	H+NCG+I
T+LCLG7O"J*M* B * B * B 2 ;O2 T3EN 3H	A+RB,+OCN3TWH2 GT3BWL".*M*MBJ* B 6 KT6 & +OCU3DSI2 ?NT6!"J*M* B 2 R +RB 3I7M+A" 3I6	2 ?G3I
N2 ?T6)R 3AWK2 	D+S" 3T	H+SB)3T	H+NCG3H7O3E> 3N6 E6."J*M* B 6 R +RB 7DSA*	CS2(T+A
T+SB)3WGH7T& +OCU7SCU7POO+ECD+TCO+D;O"M6J*JB * B +DCR2 & 3MGM2 &(*	CM3G	O+NCG+T	O2 GT+KCE3A3L2 [O6 SI2.& *	CM3T/A+ICN2(GT3K;I+GB)7DOI6 R(7HOI")*M*MBJ* B * B * B 3H7OE6."J*M* B 6 R +RB 7YWO2 GC7NR	2 GT+KCE3TGH3T" 3OWM".*M*MBJ* B 2 7K* " 3IGN+U	D".6."J*M* B
6 R 3EC*1B +SCO7YWO2 WS7E^ 7HSA2 GH3PWP+NCS*-6-2 &(7NWA+D:)"M6J*JB * B +TCR2 WL3MWM2 2(+ECT+M	E2 WS7E& 7OKU3SF 2 	M7NSU+EB?3L7E+MCE3SWE2 ?Y7UOR* CA3M;I3UWT*?* 2 WLT*M*MBJ* B * B * B +MCE3K	E3SGH6?R 7HSA*	CS3K	E3SGH* 6-*-: 2 U3R7M+MB.7I^ 3A;N+A" 3W;A7TR +O
)+DCO3TGH+TB.I*M*MBJ* B * B * B 2 GW3NGN6 ^(7ASN2 ?T2)R 7OR 7HSA".*M*MBJ* B 6 KD2 & 3MGM2 &(*	CM3G	O+NCG+T	O2 ?G6 WO3T	S+DCE7WSI3HR +ICS2(T+I	S".*M*MBJ* B 6 KT2 & *	CM3H;U7G	R"!*M*MBJ* B 2 . +EB 7YWO2 WL3AWV2 T+ACT7ACP+L;E"M6J*JB * B +TCR* CI3W;A+NCA2(GW+
CT+A& 6 CA3PWL2!& 3MGM2 &(*	CM3G	O+NCG+T	O2 GE3TR +ACT2(T+A	T6 CA3PWL".*M*MBJ* B * B * B 3SWE2,& 3F& 2 T7R
O2 	D+S" 3T	H+SB)3AGW+YB,+OCN7TCO* CO2([O6)& 7OKU2 WH+A;D2 WLT*M*MBJ* B * B * B +MCE3SWE*?B 7LSE2 WM2 WS+EB,7DKE3I/C"?*M*MBJ* B 6 KD2 2 +ECT+MCE3T/A+EB,3USN3O& T6."J*M* B 6 R +RB +N3O2 W7Y& +OCU3D;O*	3T2 W7Y& +OCU3D;O*	CT3T/A3E& 3T> /F?F"M6J*JB * B +DCR2 
N2,& *	CM7NSO*.B 2*2 +ECT+MCE3T/A3E& 3T> +F;F"M6J*JB * B +TCR2 /O+A;Y2 &(7NWA+D:)* * * CI3AWT6 CU2 	D+S" 3T	H+SB)7ACP+L;E* CI3D;O*	CT3W;A3TR +ICS2(T+I	S"M6J*JB * B * B * B 7ACP+L;E6 WP+D" 7PSU2)& 3T& 7N& 7OKU2 WD3SWS+R;T2 ?Y7U^ 7ASN6 SI6?& +OCU3W;A3T& T6?
J*M* B . > *?B 3YGEH6."J*M* B 6 R +RB 7YWO2 GW+NCT/I?T"M6J*JB * B *?B?3YGEH6."J*M* B 6 R +RB 7YWO2 GE3T& +TB.3L7E+MCE2(WL3T6 +EB)3H3O3D& +TB.+O3H2 WL3MWM2 2(+ECT+M	E2 ?H+LCD+IGT"M6J*JB * B * B 2 R 3E	R+C3K2 WL3MWM2 2(+ECT+M	E2 ?H+LCD+IGT* "(3CGR3S	H+NCG7S
O7NOD2 ;I2 GB3C
K7RWO+N	D".*M*MBJ* B . >?6 & +OCU3W;A3T& T6?"J*M* B 6 R +RB +DCO+DCA+DCA+D;A2 ?D7NR	2 	G+VCE+ICT3BOA7KR 3O6 +EB,3I7M+A" 3I6	2 ?G3I
N2 ?T2)V +ACT+I;T"M6J*JB * B . >?* B 7YWO2 GW+NCT/I?T"M6J*JB * B +TCR2 A3AGA+YB!3L?O7KSI2 2(3O/O6 SA2)6 3SN 7R+U"!*M*MBJ* B 6 KO2 ^ 3I7M+E" 7G[I3E6 +EB)7HKEE6."J*M* B 2 . +EB 7YOE2 ?Y3UR +ICD3R
I+HCT7HKE+E6 "-6-"J*M* B 2 . +MB 7I^ 7ASN2 ?S+MCE+O" +O	F2 T3OWS2.: +OB,3I^ +OCT3S7O3E> 2 >(+FB)3T?H+S;E"M6J*JB * B +KCE2 T+A
T3SZ +OCR3TWH2 WT3AC+E;R"M6J*JB * B *?B?2 W/A?T"M6J*JB * B +KCM2 U2 U".*M*MBJ* B 2 WK6 R 7HSA2 GW3SJ 7YJ 3E	N+T3A2 GC3UWS2 J(3EGC3UWS6)J 3E	N+T3A2 GG+VCE+ICT+TCO3TSO+D" 3IGN+U	D".*M*MBJ* B * B * B 7DSA*	CS2(T+A
T+SB)3TWH2 WT3AC+E
R3SF 3P3PE6."J*M* B 6 J +NB +OGH2 ?L+OCK3WGH3T6 3EF +N" 3ASN6)R 7OKR3EON3E^ +OGT" *M*MBJ* B . >?2 6 7ER O7O"J*M* B 2 . +EB +ACH*(	I2 ?G7TN 3OWM".*M*MBJ* B * B * B 2(F(2 C7OWR3S> 3F6 7ER +O	O".*M*MBJ* B 2 WK6 ^ 3ER +O
N3T: 3ESE2 ?S7MSE3H;I7GR 7HSA2 ?Y3U^ +O;T"M6J*JB * B +RCN* CI3W;A+NCA2(GW+NCT+T	O2 WS7ER 7HSA2 ;O+EB.3TGH3T> +NCE+I3S2 ?Y3UR +O
N3T2 3IWK2 T+ACT"M6J*JB * B * B 2 > +NCE3R
I/H?T2 T+ACT3OWN*	CS2(;I3ASU")6."J*M* B 6 R +RB +ICT7GSO2 	D3FWF3R;E3TN 3O?L+R;S"M6J*JB * B +RCN2 &(7NWA+D:)"M6J*JB * B +DCR2 ?D+ECS7A	N3OWN2 GW+NCT7DOI6 R(7HOI")6?"J*M* B 2 . +EB 3IR O6."J*M* B . > *?B 3I^ +OCT3OWN".*M*MBJ* B 6 KT2 & 2 GW+NCT+I;T* CI7ESA
 3A3LF 6 R(+H	E2 GC7N	D6 CU"!*M*MBJ* B 2 ;R2 > 3H: 7O& +OCU3A;IT6."J*M* B . > *?B +ICT3G?OD6."J*M* B 6 R +RB +OCH7YOE2 WY7S& +EGS"M6J*JB * B 3TOE+HB32 . +I3M2 ?W3USL2 ?Y3U2 3IWK2 ?T6 OA3K6 3S* 3O;H3S;O2,6 3SJ 7LOA3E
N3AWM2 ;A3D6 +S" 3IGN+U	D"M6J*JB * B * B 2 & +NB?* "(3K7I2 WG+TCS+UCP3ASN2 ?G7ENH6 WO3T> 7FR +HCE3R?O+M:)"M6J*JB * B +DCR2 	G+VCE+MCE3AN +U3P2 ?G3RWR3NWC6 R(7OKR3EON+E2)6 WQ3AWR3NWC6 R(7OKR3EON+E:)"M6J*JB * B +TCR2 ?D7NR	2 GC+LCL+MCE3QGU3R;E+C;E"M6J*JB * 
 +KCE2 ?T3RWR3NWC".*M*MBJ* B 2 ;R2 R 7OKR3EON+E" 7TKO3R;E+C	E2,R 7OKR3EON+E" 7TKO3R;E+C	E".*M*MBJ* B 2 WT/COH2 R +O
N7TR 3H?R7WR +HCE7FKO+KGS"M6J*JB * B +KCE2 ?T3RWR3NWC6,R 7OKR3EON+EB,7G[I3E6 7ER 7OKR3EON+EB.2(.(7EB 3R;O3O;U7COE6 KT*	CS3N7A7E^ 3IT"M6J*JB * B * B 2 F 2 WV+RCY7NOA+A3L6 KB7ON2 WJ7WOI7HF 3U3A7I	T*.B 3K7I2 WR7TKU+NCS3A?L+N	E".*M*MBJ* B 2 WT/COH2 . +IGM6 ^ 
O3U7D& +OCU+GCO3ASN6 OA3K6 3S* 3O;H3S;O2,6 3SJ 7LOA3E
N3AWM2 ;A7DR H7E"J*M* B * B * B 6 SO7HKE3S& 7FR 7H	E2 ?W3USL2 	L+KCE3S7O3E> 7F& 7OKU2 	B3RT7D	A2 GC/K?E"M6J*JB * B * B 2 R +ICD7YWO2 WH/A?R"M6J*JB * B +RCN3I" 7EKA3D6 3SN 7R+U2 GT3L	K+N" 3T3A3K;I+GB)+OCN3TWH2 	M3C?R3P?H+N;E"M6J*JB * B +KCE2 	G+VCE+MCE7TKO
R;E+C;E"M6J*JB * B 3TOE+HB22 WH+YB,7SSI6 CU*!B 7I^ 3O3U3D2 3OWV2 ?T2 GH+VCE3OWN2 [O2 T3OWS".*M*MBJ* B 6 KD2 & 2 ;O+LCY7GSO6 
T3O6 3OWR".*M*MBJ* B 2 WK2 ^ 3IWV2 WM6,R 7OKR3EONE6."J*M* B . > *?B 3TGH7TN	2 	M+N;E"M6J*JB * B +DCR2 WH+RCE7TKO3R;E+C3E2 WK+ECP+ICT3KWE3P& +TB!7TKO3R;E+CCE3KWE7PR 7HOI2,. 7ECE2 TI7S"J*M* B * B * B 6 R 7OKR3EONE6."J*M* B 6 R +RB 3TSO3D^ +OCD2(?G+TB)+ICT7N
O6.R 3OSD2 ?G3T& T6."J*M* B 2 > +RB 3W?H*	CS3T	HS6?"J*M* B 6 R +RB 3TSO7DR +HCE3OWN2 W3O^ +ECD2(WG+TB)+I;T6 SI*	CS7D
O3N" +ICS3BOAK6!"J*M* B 2 F +AB 3TSO7DR +HCE3OWN2 T+ACT7GSO6 SI".*M*MBJ* B 2 ST2 ^ +ECT3O[F* CA+MCY3CGH+IGR"M6J*JB * B +ACA2 ?T+D
D7SR +HCE3OWN2 T+ACT7GSO6 SI".*M*MBJ* B 2 ST2 & 2 GG+VCE+ICT+TCO7YWO".*M*MBJ* B * B * B * B * B * B * B * B * B 2 A+HGH2!F 3H" 3A" A6."J*M* B . > *?B 7G[I3E6 +EB,7TKO3R;E+C;E"M6J*JB 6 R +DB +ICT3A;I3T" 3EWR".*M*MBJ* B 6 KT2 & 2 ?G3T6 +A" +M	Y6 
ON6."J*M* B * B * B *(B(3A^ 7RWO3P> 3FN 3H3I3DWR3N2 7E[A7ER +HCE3R?O+M:)"M6J*JB * B 3TOE+HB3* B 3YF	+LCL3C7O3EJ 3A/C2 ;I2 WH+RGE"M6J*JB * B +ACA2 	N+CCE3S?H+TB,3SSI2,: 3IWC2 S+O;T"M6J*JB * B +TCR2 W7ON	2 T/I?S"M6J*JB * B +KCM2 	M+N;E"M6J*JB * B 2(V(+N	D".
M"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