File BISER.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 7UKB7OSU3IWN2 	B7SKE2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 3ON 7OCM3UWT2 T3EJ 3IWS3RGI3LN 7OKR3EGL3T?I3NN 3O[E3FOI3I;E3TJ 7E
T3E;E6 
TO*M+CB * B * B * B 3C;O3T;I7UWO7SZ 3A	R3A3B+ECS3WWH3N> +NCE+OCF3TWH3M" +ACS3BWE3NF 3R	T3FOI3I3AL7Y*JCC* B * B * B 2 	D3C?H3T7O3IWZD6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 	B7SKE2 :(*,3A3B",3IF,+N3S7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7P
A3AWM7TKES*M+CB * B * B * B +NB * B-3N7U7BKE2 [O2 KO7SKE7VSA3I;OS*M+CB * B * B * B +AB * B-7ICN+UCT3VOE7TKO2 [O2 WL7NSG3H: 2 ?C3NGT3I	N+NCG3TWH2 ?C3N	T3N?UU7S*JCC* B * B * B * B * B 2 GV3RGI3BWL2MNJ* B * B * B 2 J * B 2-& 7NWP7TZ 7ESC+OCR+OCF3L;E3GT* CN3C
O3T	A3N;I7GR +HCE3DOI7HSO3O	M3ZSE2MNJ* B * B * B * B * B 6 Z 3A	R3A3BE*M+CB * B * B * B +HCI* B-7ICN+UCT2-: 3UWM3ROI+ACL3CSO7ER 3O& 3N	D7CSA7ER +HCE3H
I7HKE2 GC3T
E7O	R2MNJ* B * B * B * B * B 2 > 7FR +HCE3DOI7HSO3O	M3ZSE2 GV3RGI3BWL*.B 7A	N2 GV3LWU2 ;I2 WV3C?T3RJ 2MNJ* B * B * B * B * B 2 V 3QGU7LR 3O> 3R^ 3RGE7TKE2 T+ACN+HCI3W3I3LJ 3EN 7LOA3S[I3ISE2 ;IT7O*JCC* B * B * B * B * B 2 T3E" 3IG+ECR7CSA3E?G+R;Y2MNJ* B * 
 * B 2 F +NCS2-> 7UCT+UCT3VOE7TKO2 [O2 WL7NSG/H" 2 ?C3NGT3I	N+NCG3TWH2 ?F3L?L3W;IG*M+CB * B * B * B * B * B 7AON*(&1* B-3MGE3N> 7FZ 3A	R3A3B3EF 2MNJ* B * B * B * B * B 2 F +NS*2B)6-N 3T;A7DKA3DR 3E	V3A	T+OCN+OCF7VKA3IKA+LCEA*M+CB * B * B * B * B * B 7AON*
&3* B-3P?R7PKO3T?I3N> 7FR +HCE7COA+ECS+ICN3TWH2 	H3GWHR*M+CB * B * B * B * B * B * B * B * B 7CSA3E?G+RCY+OCF7VKA3IKA+LCEB*M+CB * B * B * B * B * B 7AON*(&4* B-3P?R7PKO3T?I3N> 7FR +HCE7COA+ECS+ICN3TWH2 ?L7WKE2MNJ* B * B * B * B * B * B * B * B 2 N 3AWT7GK
3Y> 7FZ 3A	R3A3B3EJ 2MNJ* B * B * B * B * B 2 F +NS*5B)2-6 3E;A2 [O2 GV3RGI3BWL* CA7FKO2 T3OWS2 GC7SOE2 GF3L	LN7G*JCC* B * B * B * B * B * B * B * B 2 ;I+TCO3TWH2 	H3GWH3RN 3AWT7GKO3Y> 7FZ 3A	R3A3B3EJ 2MNJ* B * B * B * B * B 2 F +NS*6B)2-6 3E;A2 [O2 GV3RG
3BWL* CA7FKO2 T3OWS2 GC7SOE2 GF3L	LN7G*JCC* B * B * B * B * B * B * B * B 2 ;I+TCO3TWH2 ?L7WKE2 GC3T
E7O	R2 [O2 GV3RGI3BWL" 7B*JCC* B * B * B * B * B 2 ;A/S^(*)6 2 	B7SKE3I3A2 ?C3RWR7LSA3I;O2 ?C3E[F3I	C7ESN2MNJ* B * B * B * B * B 2 F +NS*8B)6-N 3T;A7DKA3DV 3R?R3R> 3FJ 3IWS3RGI3LN 7OKR3EGL3T?IN*M+CB * B * B * B * B * B * B * B * B 3CWO3F	F3CWIN7T*JCC* B *
B * B 2 WI+R6 . F 2,& 3F: 3ON 3AWS3SF +RCE+ICN3TWH2 ?L7WKE2 GC3T
E7O	R2 [O2 GV3RGI3BWL2MNJ* B * B * B * B * B 2 J ".*M+CB * B * B * B * B * B *-212 [I2 3A3LN 3AWS3SF +RCE+ICN3TWH2 ?L7WKE2 GC3T
E7O	R2 [O2MNJ* B * B * B * B * B 6 Z 3A	R3A3B3EJ ".*M+CB * B * B * B * B * B *0B,3OT7E
R3IWS".*M+CB * B * B * B * B * B +ICF7IKE6 OI2 ?N7N*-3E?R2,F +NS/I6)*1*0.*V7.,7I*5:,*.2."86."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 T7EZ 7AWL+ECS+OCF3TWH2 	D3C?H3T7O3IWZ7DZ 3A	R3A3B+EB,+BB,7MOU3TJ 3E& N*M+CB * B * B * B 3N7U3E	R3CZ 3O7R*.B 3TWH3YN 3A
N+OCR+BCE3SWP3C[I3ISE6 	B2 WM7AON2 [O2MNJ* B * B * B 2 F 3LP3AWB3TOI6 KO6 CS3E	C+ACL3CGH3ROA7TKES6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 7NSDR7I"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3R[E+ECR+TCO+PB.7HKO+S3T6 B	3SOY3H3O3O	G3C3A2 WM7AWS3R7E7ESN2 ;AD*M+CB * B * B * B 3PWR3DOI3T?I+N2	* ;P*965*9B62(GW7D
S7OSR+HB,.1Z9*6:)2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7BOI+ECR*(3N3AJ,2,	H2,;A3S&,+E	R2MNJ*MBJ* B 2 R 3IWM3N	S+OCN/AF(2)J,*(&12,;A/SF(")*MC*M+CB * B * B 3C7O7PS
3E6 3E;A2 ;A7DN 3T;A7DKA3DR 3E	V3A	T+OCN+OCF7VKA3IKA+LCEA*MC*M* B * B 7IKE"=60*JB * B 6 WS/MB=".60*JB * B 6 WS/M62.0B.*MBJ* B 2 R /OF 20& *=21N*M* B * B 3S7U6=WS3MF+*(	I*MBJ. F 60N /UKM6=WS+M.23A&(2)F**(	I*MBJ* B 2 Z 3N:=*MBJ* B 2 F +NS.16)3S7U2/;F*MBJ* B
2 F +NS.26)6(WS+M627AON*(&16*WS+M>)2(;F*-:1"06)*JB * B 2 ;A/SJ(*)B=7SKQ3TF(+NS*2&)2MNJ2MNJ* B * B 2 Z 3ISN6 KP3O?P3R	T7OON2 [O2 GC7SOE2 ;I2 T3E" 3IG+ECR3ASN2 ?L7WKE2 GC3T
E3O	RE7S"J7C*JB * B . 7P.0B.*MBJ* B 6 N /U7M.0B.*MBJ* B 6 N /UKM*=:0"0*M* B * B +DCO*3B0/IF=",7N*JB * B 2 [I*(B+I6)+H	I. B2.,J *5B,"265*JB . B26 WS/M623S7U22F+*(	I*MBJ* B 2 ^ 7OR /ON "0*M* B *2B57PB=*+:1"0*M* B * B 3S7U6=WS3MF+*(	I*MBJ. N 20N 7OSN7IWNE*M*
B * B 7AON*(&4*=:1"0*M* B * B 7AON*(&3*=:0"0*M* B * B 3QZ=7NB-*MBJ* B 2 & +F" +PB)*325*325"460*JB . V32 WI+R6="1*M* B * B +GCO+TCO"560*JB . B42 ;A/SV(6)N=+U?MP*M* B * B +ICF*(	Q. V4.,V4.,B6*MBJ. R 25& /E7R"1*M* B * B 7AON*(&4*=:0"0*M* B * B 7AON*(&3*=:1"0
M* B *5B0+DCO*5B5/IV=",68*JB . V52 ;A3S&(.)F=2.V7*3B8* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B "0*M* B * B +GCO+TCO"665*JB . B62 ;A/SZ(6)N=/UKM"/7Q*JB * B . 7P3PZ/N*M* B * B /QF=*.60P*MC*M+CB * B * B 3F;I3D> 3R	D7NSA3
> 7FR +HCE7NKO3M3A2 	D7SKT7IWB3T?I3NN 7U[R3EF 7TR +HCE3P	O+NCTO7F*JCC* B * B 2 	D7VOI3I;O2 WB3TWW+ECN3S
E3M;E+TCS3C;O3T	A3N;I7GB 2 ;A7DF 6 KP3O?P3R	T7OON2MNJ*MBJ* B 2 N 3A3L2 SN3T	R6 F(*,3X3YV,R6)"J7C*JCC* B * B 2 ?C7MWP+TCE3TWH2 	B7SKE3I3A2 ?C3E[F3I	C7ESN2 [O2 ?C3RWR7LSA3I;O2MNJ*MBJ* B 6 J *="(7AON*(&52-;A/SF(*)>)7AON*(&2*)"*7P&/")*MC*M+CB * B * B 3C7O7PSU
ER +HCE3SGT3NGD+RCD7EKR+OCR+OCFR*MC*M* B * B 7AON*(&8*=B(7SKQ7TB(**	Q*/7Y7RJ*6)N/7QSR2(;F")*MC*M+CB * B * B 3S?T+RCE7ROE7USLS*MC*M* B * B 7AON*(&3"=7P*JB * B 2 ;A/SR(6)F=*MBJ* B 2 F +NS.76)R*MC*M* B *6B57RSE3U;R*MBJ* B 2 V N7D"JBZ"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