File HOPI4.PA (PAL assembler source file)

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

* " 2(?C3N	T3N	U+NCG3F?R3M" 3O	P*2B,7TKA7GSE2 SO3A	R+E:)"M6J*JB * B +OCD2 ?L3O	K+T" 3L?O3KF +TB)7HKE2 ?G".*M*MBJ* B 2 ;R6 N +EGE" *M*MBJ* B 2 7K2 > 7O
O+E3R2 ?O3OWW+RB,3O?O7WKE".*M*MBJ* B 2 ;R2 . 7EOI+HGA2 WK3I/S+AB!3K	E3SGH"!*M*MBJ* B 2 7K2 & 3T6 7YR 3U;R2 ?T2 	H+TB.2(>(3D& 7SN 7LCA3P;I3GF 2 	P3EWC2 [O2 3C+ACY3BOA3KF N7D"J*M* B * B * B 2 ?F3RT2 WB3TWW+ECN7HOI2 GH7NOD")6."J*M* B 2 N +HB 6 OM2 GH3W	K+N3S
 OM2 GH3W	K+NGS"M6J*JB * B +KCM7I^ 7ASN6 KC3E7A3YJ 3A3L+SB.3I6 3AWK2 T+ECM+MCA6(	M2)N 3RGE+MCY3B3A+L;S* CI3M/AE6,"J*M* B * B * B * CI3M/A7ER 3H7E2 ?G+O;D2 ?H3O" +O;O"M6J*JB * B +OCD2 O6!^ 7HSA*	CS3TGH7T& +OCU3MSA+EB,3D;E3IWS"?*M*MBJ* B 2 ;D6 R 7HSA2 ;S3O7
+A;N"M6J*JB * B 3TOE+HB12 W7Y& +OCU3M/A+ICN2(GM3K;I+GB)7AN 7N
O3M;A2,R 3E	N/S?E"M6J*JB * B +DCN* CI3W;A7TR O6."J*M* B 6 R 3EC*1B 3OGK+YB,3A3L2 	R7GSH2,2 7ISS+ECN3A6 7IWN+T3E* CI7WOA2 WJ+SCT6(WJ+S	T2 ?W3NWD3R;I"M6J*JB * B * B * " 3W;O7DKE3I
N*)B.7YWO2 	W3S	H+N" 7WOI3H;I+GB)+FCO2(?F+RB)3S?NW6?"J*M* B 2 R +NB 3YGEH6."J*M* B 6 R 3EC*1B 7YWO2 	L+KCE3S?N+WB.2*& 2 GC7NR	2 WH+ACR7YWO".*M*MBJ* B 2 WK2 & 2 GM+KCE+MCE7AN 7N
O3M;A*.* * CA3S?N3WGMN6."J*M* B 2 R +NB 3YGEH6."J*M* B 2 > +DB 7AN 7N
O3M;A".*M*MBJ* B * B 2(>(7DB 3IWL7SV 7PR 3HWR3EJ 3A3L3S> 3FN 7L	A2 ?T2 GM+KCE7AN 7N
O3M;A")6."J*M* B 6 J +NB 3K	E3SGH2!F 2 ;S3O7W+ACN3D;O*	CT+GCO3L/I7ER 7HSA2.F 2 ;S3O7W+ACN3NWE3DF 6 KT3U/N".*M*MBJ* B 2 C6 R 7HOI* CA+A" 7LSE7TKE* 	A6.R 7HOI* CAA6."J*M* B 6 J +NB 7YWO2 WN+ECD+A" 3S?T+P&?2 ?TO6."J*M* B 6 R 3EC*1B 7YWO2 GC7NV +SCE+A" 3S?T+P
?6 WP3TF 6 N(7TCO*?B)+OCN3TWH2 ;S3O7W+A;N"M6J*JB * B +GCB2 W+ACT7H[A7E& +OCU7GSO2 T3EWR6,J /O?N"M6J*JB * B +RCN6 WHH6?"J*M* B 2 ^ +BB 3WGH7TN	2 T+A;T"M6J*JB * B 2 ;R2 F 2 ;S3O7W+A;N"M6J*JB * B +GCB2 O2,& 3T2 3O/O3S2 3IWK* CA7SWQ7IKR+ECL+TCO+M;E"M6J*JB * B
+CCH2 T+ACT7ISN2 &(+S
N+TB)7AN 3QGU3R	R+L" 7SWQ7IKR+E	L".*M*MBJ* B 2 7K2 6 3S" 3A/W7ION6,J 3O3L6 SI2,6 3S" 3A/W7ION6,J 3O3L6 SI2 3P7EOAE6."J*M* B 6 R 3EC*1B 7YWO2 GC7NR	2 ?R+LCL+I3T6 WB7T& +OCU3C;A2 ?W+RCK+ICT*-6-"M6J*JB * B +KCM6 WJ+SCT7AN 3OWM3T	H+N" 3S7O3ET3I
N*		S2 ;I2 WN+RCE2(T3EWR")6."J*M* B 2 F +AB +N;O6 SI*	CS3A^ 3I;A3T> +N;E* B*7YWO2 WB3T:	2 J(7EST+E	R2 ?NT6."J*M* B * B +OCD2 T+ICS3G;O+NCA2(?G3I
N2 ?T2)J 3EF 2 GF3T> +N;E"M6J*JB * B +ACA6 SI*	CS3MA+N" 3M;I+E2)2 ?L+OGK2 [I2 ?Y3U. 3NOO3K6 3IWN2 ?D+WCN*-6-"M6J*JB * B +OCD2 O2 O2,2 3O/O*!B 3T	H3S2 3O/O2 	L+KCE+AB,3W3I7DN 3N/A+EB,7FSA2 ;S3AWK".*M*MBJ* B 2 WK6 J 3O;N+ICE3MSA3EF 2 ?B3W	L+NCG3B3AL6."J*M* 
 2 > +DB 2(;I3ASU")6."J*M* B 2 R +NB 3FWE+LB,3FWE7LR +HCE7B
O3L;I3GJ 3A3L".*M*MBJ* B 2 KG2 : +OB.3IR +O
N7T^ 7ASN2 ?T2 WG3TN 7L	A2 ;O6 	M2 GH7NOD".*M*MBJ* B 2 WK6 & +OCU7H[A7ER 7O^ 3AS* B +ICT3O[F".*M*MBJ* B 2 SO2 6 3E& 7S^ 7RCA2 7I2 &(+TB)3A?R+UCN6(KA3O;U+DB)7NKE+E" 3TWH+R	E6,^ 7RCA2 7I2 &(+TB)3A?R+UCN"M6J*JB * B * B * " 3A?R3USN2): 3EWR2 "(3EWR*)B,3WGR3P&
+M" +I	T6 KA3O;U2 F(7RWO+N	D2 WN+RCE2(WH+R	E".*M*MBJ* B 2 WK6 & +OCU3D;O*	CT3W;A+NCA2(GW+NCT+T	O2 3P+ACY7WSI3HN 7L	A"?*M*MBJ* B 2 KG2 > 7HN 3OWM3T7I+E;S"M6J*JB * B +KCE2 ?B3UON3EF 2 GB+L3L2 ?B3UON3E6 +A" +M	Y2 GB+L;L"M6J*JB * B +OCD* "(+OCD3M/A+ECS3AZ 3L	
+NCG7SWA7CKE*)B.7DKR3RGR+HB!* B*3L?O3KF 6 CS3AS+ICP6(CS3AWC3S	H+P2)"M6J*JB * B * B 2 " 3EWR2 ?C+MCE3TWH6 CS3AS+ICP6(CS3AWC3S	H+P:)6 KD7RKR3R?O3OO*.B 7AN 7POA7HCI"M6J*JB * B * B * " 3SGP7COE7HCI*)B,7AN 7POA7HCI6 N(3POA3ES+I	P*.B "M6J*JB * B +KCM2 T+ICS7NSO
 	M+N;E2 ?D7NR	2 GB3OT+ECR+MCA6(	M2)N 3RGE+MCY3B3A+L3S2 ?D7NR	2 ?B3TWHR*M*MBJ* B * B * B +MCA6(	M2)N 3RGE+MCY3B3A+L;S"M6J*JB * B +ACA2 ?Y7U^ 3A;N+A" 3W;A7TR +OB)3SWE2 GM2 6(+YB)7CKA"?*M*MBJ* B 2 KG6 R 7HSA*	CS3AN /A?R6 SI2 ?L7OOK2 	L+KCE3ASN2 OO7TCO+U;S" 
M*MBJ* B 2 ;R2 " +E3Y6 KM6 KG3A7E+EB,+MCE7H[A7EN 3OWM3T	H+N" 3S7O3ET3I
N")6."J*M* B 2 N +HB 3R;O2 ?L+OGK"M6J*JB * B +KCM2 ?L+O3K6 OM2 GH3W	K+N;S"M6J*JB * B +RCN2 WK3IS3A2 3O/O".*M*MBJ* B 2 SO6 N 7MOA3H& 7TV +PB.6*^ 3RGAH6!"J*M* B 2 R +NB 3I6 3AWD* CA3SGH+P;E"M6J*JB * B 3TOE+HB12 &(7NWA+D:)"M6J*JB * B 2 SO2 F 2 GF7TN 3N/AE6."
*M* B 2 . +MB 3K	E3SGH2 &(7NWAD6)"J*M* B 6 J +NB 3SWH2 ?D*!" 3IGN+U	D".*M*MBJ* B 2 SO6 R 7HOI2 ;O3E& 3S2 3O
N".*M*MBJ* B 2 ;R2 " +ECY+MCR3GGR3EWM2,& 2 ?G7TN 3OWM2 ;O2 GM2 6(+YB)3FOAE6?"J*M* B 2 ^ +BB 3A2 7IST+LCE7BSI".*M*MBJ* B * B * B *** " 6*"J*M* B 2 > +DB 3IF 7ISN2 ?G3T: 3OWN2 ;O2 WM".*M*MBJ* B 2 GA2 & *	CM3M/A3E6 3EF 2 "(7UCM*?B)2*6 3S" 3A/W7ION2 &(7NWA+D:
"M6J*JB * B +KCE6 OM2 GH3W	K+NGS6 OM2 GH3W	K+N3S* 
I3M6 3A	K+N" 3M/A3I
N2)6 3IWN".*M*MBJ* B 2 SO2 R 3OR 3OR 3AR +OB.2(?G+D&?2 	D+S" 3T	H+SB)3D;I+G" 3T	H+N	G2 6 7EOS".*M*MBJ* B 2 7K2 > +O3H2 ?L+O3K2 ?L3O	K+TB.+ICT3W;O*	CT7HKU+T".2(7K6 WP+TCS3CGL3Y& 3N?T2 WH3R6 7OSU+H:)"M6J*JB * B +OCD2 ?O3OO"!*M*MBJ* B 2 WT/CGH* " 3IGN+U	D* 6
*-B-3SWH2 GW3NWT7DR 3ON 3OWM2 &(7NWA+DB)*-6-"M6J*JB * B +GCB6 KA7E& +OCU7ESA3I
N2 3C+A3Y2 	KM6?"J*M* B 2 . +MB +ICT3W;O*	CT7HKUT6."J*M* B 2 ^ +BB +ICT3W;O*	CT7HKU+TB?6 SI2 ?W7NR	2 GT3SWT2 ?T3O^ 3OSO2 	E3TWHR6."J*M* B 2 . +EB 7GSE2 [O+FB!7GSE2 [O3F6 +A" +M	Y6 KT+ACY3K7I6.& +OCU7JOU3T^ +ECT+OCN7YWO+RB,7MWO+T;H"M6J*JB * B +RCN6 OM2 GH3
	K+N3S2 ?L+OGK"M6J*JB * B +OCD2 S3E^ +ECT3S7O3E> 3N" +ECR7MWO+T;H"M6J*JB * B * B *** " 6*"J*M* B 6 J +NB +MCS7H
A3K;IS6!"J*M* B 2 > +DB 3WGA3AA"!*M*MBJ* B 2 WT/CGH* " 3IGN+U	D2 WS+EB,+ICT3KWE7P^ 3O/R+ICN2(?W3R	K+N	G* 6-*-B 3TWH2 ?M+RCE7YWO" *M*MBJ* B * B * B 7WKO3K& 7TR +HCE7HKA7DKE6 SI2 WB3C7OE6."J*M* B 2 6 3S" 3A/W7ION".*M*MBJ* B * B * * * B*"**M*MBJ* B 2 SO2 ^ +
CT7D
O7NR 3OR +A" 3TWH2)J 3O
O+I;E* "(3CGH3N	T+N	G".*M*MBJ* B 2 . +MB 3L?O7KSI2 2(3O/O6 SA2)6 +A" +M	Y2," 3E" E6."J*M* B 6 R 3EC*1B 7H
O2 	D7D& +O3U2 W3YR +ICD7YWO6 WP3TN 7L	A2 3A3LF 7RWO+NCD7YWO3R6 7OSUH6?"J*M* B 2 . +MB +HCE+HCE+HCE7HKE".*M*MBJ* B 2 SO6 N +HCE3C;A*	CT7ESA2 ?N2 3C+A;Y* B*7N[E+ECR3C;A*	CT7ESA2 ?N2 3C+A;Y"M6J*JB * B 3TOE+HB12 A2 &(6)N 3ASI6 SI2 ?W3USL7NR	6 WH+R3T6 WB3T& 2
?W3USL7NR	6 WP3T& 3TF +LCL3A?R3USN" *M*MBJ* B * B * B 7YWO3R6 7OSUH6."J*M* B 2 > +DB +UCH+UGH2 ?T3UG6!B +AGH2 ?T3UG2 GP3NGC7KOE*." 2(SO2 3S7AOP2 T3EN 7L	A2 WB3TWW+ECN7HOI" *M*MBJ* B * B * B 3P3A+M	S6.R 3O
U7HB 3AON3AWK7SR 3O^ 7OV 7P^ +I" 7WSI+HB)+YCA2(?Y+U	R2 GH7NOD".*M*MBJ* B 2 7K2 2 3O/O2,2 3O/O+ICT2(?L+OCK+A	T2 GM2 6(+YB)3FOA+EB.3AGW+A3H2 GH2 GH*."(+KCM7WCI+ECS7MKOE*M*MBJ* B * B * B 3CGL3Y> 3N" +ECR3FOA+E:)"M6J*JB * B +OCD2 ?T3UG2 GP3NGC7KOE".*M*MBJ* B 
 WK2 6 3S" 3A/W7ION2,6 3S" 3A/W7ION2,2 3O/O"!*M*MBJ* B 2 SO* " 3H;A/D?Y2)& 2 WM+SCS+U;P* CI7MOE3S6 +A" +M	Y2 GH7NOD2 	H3T	T+N" 7HSI3T;I+GB)+OCN7DOI"M6J*JB * B * B * " 3T	H+SB)3T	H+N;G* B*3I6 7EOS2 GM2 6(+YB)3H;A+D3S2 ?L+O;K"M6J*JB * B * B * " 2(SO2 ?H7LOD
 CU2 	H3S" 3ASN+S:)"M6J*JB 2 . +MB 7AKA+OGN"M6J*JB * B +OCD* CI7MOE3S6 +A" +M	Y2 GH+N3D3SWE*.* 2 	K3M^ 3O;I2 ^(3O;I+GB)3L/I7ER 7HSA*.* 2 S7EN 7H+I"M6J*JB * B * B * " +I	S6 OI2,& 7SN +ECE+ACT2(W+A	T2 S3ER +I;D2 S3ER 3AR 3AR 3AR +AB,3L/I7ER 7HSA".*M*MBJ* B 
 B * B 3SWH*	CS7ESA+ICN2(GE3T;I+GB)+I;T* B**** 2 T7AN	6 R(7HSA*		S2 GM2 6(+YB)*-6-"M6J*JB * B +KCE2 ?D7NR	* B,3TWH3Y^ 3O> 7NR 7HKEE6."J*M* B 2 > +DB 2 GM2 6(+YB)3H;A2 "(3ASN*)B,3TGH*	CS2(T+A
T+SB)+MCA6(	M2)" +ACN2(GH+N	D2,R 3U7MY6."J*M* B 6 J +NB 7IB +UCD6(WP+TB)+ICD6(SI2)J 3A/C2 ;O2 WN+RCE2(T3EWR")6."J*M* B 2 ^ +BB 3YGE+HB,3TGH7TN	2 WV+RCY3G?O+DB.2(.(3E" 3OSL7SV 7PN 3OWM3T	H+NCG3SWH2 GM+D	E".*M*MBJ* B 2 SO6 N 3AGB+D3A2 GS3BSA+AB,3SKA3AGD*(&?
.N +UCT+ICT+U3P6 WS3T& 7TV /P>(")6."J*M* B 2 ^ +BB 3WGH3T& 3S& +TB?+ICT3L?O+KCS3L/I3EF 2 WF3NWC".*M*MBJ* B 2 7K6 R 7HSA2 ?L+OCK3L/I3EF 2 3B3O/C".*M*MBJ* B 2 KG6 ^ 7HSA6 OI6 SI"?*M* B * " 3C;O3T;I3USE2 ;O2 ?H/PWI".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