File HSBG.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN6 OHB7G"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?T2 WR3DOU3EF 2 WR+ACL7MSA7RI2 ;I+TCO7UCP+ECR3A7L7OSS6 KT3I;A3G3U+ACR7FK
M*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3HKS3G:(*,3A+I	A2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FR +HCE7PKA3AWM7TKES*M+CB * B * B * B +NB * B 6 KO7DKE2 [O2 T3E6 7AKTI7X*JCC* B * B * B * CA* B 6 R +HCE7ICN+UCT7MSA7RI2,: 6 	B" 7N*JCC* B * B * B 2 GI* 
 6 N 3IWZ2 [O2 T3EZ 7IOR3TR 3IWM3N	S+OCN7AOS3I;G+ECD+TCO3TWH6 KA7R	A2MNJ* B * B * B * B * B * B 3A& 7NR +HCE3C3A3L;I7GB 3R
O3R7A2 W+ECN3TWH2 GM3T	R3X& 3S& N*M+CB * B * B * B * B * B 2 ?D3U3B7EN 7UOB3C	R3PWT3DR 3AGT6 SS3OGR+GCE3MSO+EB.2 GI*=CN3WWHN*M+CB * B * B * B * B * B 2 T3E6 7AKT+ICX+ICS+ICN7SCS2 WV3C?T7RN 7TKO3AWG2 ?M+D;E2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 6 R +H
E7HOE3S;E7BKE3GZ 3O7R2 WR3PGL7COE2 T3E> 3R
I3IGN3L6 7AKT+ICX+ICN3TWH2MNJ* B * B * B 2 F 3RGR3YF ".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 	S3M3I3A	R+TCY3TGR3N[S3O7R3A	T7OON6 OU3I
N2 3E3EWM3NGT+RCY3E	L3M;I3A	TO7N*JCC* B * B * B 2 GM3T	R7COE6,^ 3IT2 GP3R	T+ACL7P[I3O	T+N;G2MNJ2MNJ* B * B 6 J 3EWF3R;E7COE2MNJ* B * B * B 2 * *.;H2 	W3L	K3N?S+N6 2 T3EF 3LWG3BGR+ICC3E
I7E[N7AWL7EB 3RKO3L7E" 6-*JCC* B * B * B 2 3C3AWR3N?D7NB 7ROE+SB,3O[X3OSR.,F .9V6".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 OH+BG3NF,2,GI")*M* B * B 3D7I7EON3I;O* A"
6)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCNS*M* B * B 3L:=*MBJ* B 2 : /I7A3L&*A*M* B * B 3LGI2=	N3A&-A*MC*M+CB * B * B 3L& 7SR +HCE7R
O2 ;I7DE2 [O2 T3EV 3L7I3IGN3T?IN*MC*M* B *2B0+IF/LN-.)N *620*420"460*JB . B42 	L3A2=+I7AI7A*JB * B . GL*=7L"1*M* B * B /L62+L61"1*MC*M+CB * B * B 3SGE3RC2 ?F7RR +HCE7P[I3OGT3LV 3L7E7ESN2 ;I2 T3E2 +TCH7R
O2MNJ*MBJ* B 2 & 3SKU2=	L3A2+*MBJ* B 2 & 7P[I6=OI+U7BI7A*JB * B 2 	P3VF=+BS3A&(7P[I")6)*JB * B 2 [I*(7L*3B)*920*920"560*JB . B5. 7M3I	P3V&-A*M* B * B +DCO*8B03I2=*,3MI7A*JB * B . 7T7AOB*(A+I&)*MBJ* B 2 & 7FR(2-	P+VB)*820*820"660*JB . B66 CI/I7VI*M* B * B 
P[I"=7T*JB . B82 ?C3N	T3NWU*MBJ. & 20& 7FB(+I	V. B1.0N,*220.1B0*MBJ. B120& 7FB(+I7V7AOB*(A7IWS+B&).)F *820.1B8.,J1"0*MC*M+CB * B * B 7ISN3EOR3H;A+GCE3TWH2 ?C3L7UN7S"J7C*JB .1B2. 7M3I	P3V2-*MBJ* B 2 R /OF *4B0/IF=",7L*JB * B . 7J3M&+*MBJ* B 6 R *=AJ6)*JB *
B . 7K3LGI"+7I*JB * B * A/J6)3A.(")*M. F *4B03A.(6)R=2MNJ2MNJ* B * B 2 & 3NWT3RC3A
N7ER +HCE7R
OS*MC*M* B * B 3M2=226-2/GI*MBJ* B 2 R /OF *6B03I2=21:,+I3AI7A*JB * B . 7T3A&(")*M* B * B 3J&="-7M*JB * B * A/I6)3A*(")*M. F *6B03A*(6)R=2MNJ2MNJ* B * B 6 R 3E7R3S> 7FR +HCE3EWL3M;E7TKA7YR 3R;A3S?F3RGM3T?IN*MC*M. F *8B0+DCO.2B0. 7I3L2,+I3AI7A*JB .2B0* A/I
)3A&(2)F/6(OI+U	B2MNJ2MNJ* B * B 6 J 3IG7TR 3R;A3S?F3RGM3T?IN*MC*M* B * B +J6=I7A*JB * B 2 ?D. R220& *=21L62*JB * B . 7J3J&+A*M* B * B /L7J3L*+*MBJ* B 2 R /OJ *2B0/KF=.,GL*MBJ* B 2 . 3J.="+7J*JB * B 2 3K*=/K3LGI*MBJ. J220F 2(+K2)F=2(+K2)F-2(+L2)F*2(3K")*M
 J *4B03C;O3T;IU7E"J7C*JCC* B * B 2 WL+FCT3TGR3N[S3O7R3A	TO7N"J7C*JB * B . 7K2-GI*MBJ* B 2 R /ON *0B0/IF=",7N*JB * B . 7K3K&+A*M* B * B /L7K3K2+"1*M* B * B 3SF=2(/L")*M* B * B /L7J3L&-A*M* B * B +DCO.2B8. 7J212,"2*M* B * B /J7K3K*+*MBJ* B 2 2 3J2=3J&+A*M.
J *8B07SN=*+A+L	J**A+J	K**:1.0CD*MBJ. B320F 2(/L6)N=2MNJ2MNJ* B * B 6 N +ECT3TWH2 ?L7WKE2 GP+RCT+OCF3TWH2 GM3T	R7XR 7O* 3E?R2MNJ*MBJ* B 2 R /ON *1B03I2=2,	L3A&,A*M. N *1B03A&(.)B=".60*JB .3B2. 7LL61*JB * B 2 ?G2 ?T. B2*MBJ. Z360J 7EWTR7N*JB * B 2 ;ED*M"ZB
B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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