File GSAN.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file
           ( (  4  1R]O1R5A4 MG!A5N(J (  0 L 1O5M)OAN-XD((0$0(,!Y,104)$,-CD((0$0(,!E(1$00,=X,(10)P,,(10)D,-RD( 04)(J (  0 L 1O5M)OAN-PL((00))P!S(3$04,%D,(3,,1(00)1DQY-ED(,0D,(0$04,%D)D!X(100,10 )(M(  (  0 =C1M=M1NP 1YQD,(1,,1(00)-AL(,0L,(00)-BL(,0D, )(M( 
(  0 UR)A1D)I1N!I5X(J (  0 \ 5OP )O  (500(7$04,!I(MJ(  (  (501REE)D ,1X$(0)$,(=01)I%N(MJ(  (  )GAO)TAO,10(MJ(  (  (701REE5D ,(($10,QX(MJ(  (  )DAO(90-IH=0,9I(MJ(  (  (901X$(4) =((5I(1,)!X5D(J (  , D (001REE)D,((!Y)I0)-ID=0,9I )(M(  (  4 IP5IQN, D1 2(M(  (
 , D102X 1O5R)AAT0((*)N$*(MJ(  (  5IAN)U1T!J5N(J (  0 ( -N4303(*!N(M(  (  4 YN-A5R-JMN(MJ(  (  -M5A 340(J (  4  1R9I-TD  342(J (  , D (325FIO5MQA( ((( AE)XAO)D$*(MJ(  (  5IAN)U1T((!E)J0))X!O)J0)1D((0)(,(=01)J%N(MJ(  (  1P%R)NAT,1H5( ,((!E)J0)-JD=0,9J )(M(
 (  , T102X 1O5R)AAT((*1C5O1P9O5EQN0 UP)AAK1H%E5GQH)S<*01X0,7H. )(M(  (  0 5Y-A5X 04.(J (  0 P -OH (00-ID=0,9I(MJ(  (  )IAF((!Y)I8))G9T1YEM)X),19,,2 0(M(  (  , $140$ 5M!A(=!Y!I4)(J (  , H (001C9O1T9I!U5E(J (  0 \ 5OP -OH  840(J (  , H (201P%R)NAT,2H2(MJ( 
(  ,2H20 =F1REM)T  (*)J )(M(  (  , L200$ 5NUP1T(,(MJ(  (  )IAF((9J)E9Q)O),28,,T2 0(M(  (  , T240 1R9I-TD  342(J (  0 $ 5NUP)T,1E((4) ,1O((0)P,((%J(MJ(  (  )GAO)TAO,22(MJ(  (  ,284 MA1S]I-NT (20)TAO!N41(J (  0 D 1S%S)GAN,500 =T, MN(MJ(  (  )DAO,33, 5J01(,!
(M(  (  , MJ(=(3!J(M(  (  ( !P)J43,24)1E(( )(M(  (  ( !P)J43,14))X!O!J4)(J (  4  ,(MJ0)P=((%J(MJ(  (  ,330 =C1N%T1NUU(MJ(  (  ,340 =D, 400( (=01!J5N(J (  0 P -OP (00-ID=0,9I(MJ(  (  )Z =1X$(4) -1O((()<)1D(( )(M(  (  4 %D)D!E1J$,()=(2(.(*4(5Z(* )(M(  (  4 
D)D!X1J$,()=,1L.,8L6(*!E)J()1ZP*1YUD((1J)I<)1D(( )(M(  (  4 %D)D!D1J$,()=1ZP*5Y!D((1J!I4)(J (  , P (001C9O1T9I!U5E(J (  0 P -OP (20-ID=0,9I(MJ(  (  ,420 MY((%I(=80(MJ(  (  )DAO,45, 5I01$,!N(M(  (  0 =D, T400( (=01!J5N(J (  , P (50)Y!C-I4))Y!C)I,)1E((0)P*1
UD((1J!I4)(J (  4 L -Y= .(M(  (  0 =D,  400$ (=01!I5N(J (  , P (80-S5Y)S-Y((!Y)I4))Y!C)I$),*H*(MJ(  (  -S5Y,104.L*5QQR4(%S0/1F5OQA0(9I()<)1YEM!X(M(  (  0 =G0 =T, MN(MJ(  (  ,504 IP5IQN, 542L,!Y(M(  (  , 502X 1O5R)AAT,(YF(.024*H )MAS5DYE *4)(J (  0 \ 5OP 1
8  1(M(  (  , H540 1R9I-TT  242(J (  , T (225FIO5MQA( ((4 IN)E9P, D-0 UR5VMI)E,5O 1R9I)T$*(MJ(  (  5IAN)U1T1NUR!P(M(  (  0 YI4(IN)E%P, H2,0D,,00,,T5 0(M(  (  , T500D 1S%S)GAN,560 =T, EN(MJ(  (  ,564 IN-E5P1NUR-PD-(MJ(  (  )IAF4(IN)E9P)L9E(-$1, H5,0T, 840(
 (  , T (80)DAO,63, 5J01(,!N(M(  (  , MJ(=(3!J(M(  (  0 =D, L600$ (=01!I5N(J (  0 P 1Y((,3H-(,%I4=%D)D!E1J$, )(M(  (  4 %D,(MJ(-01-I4)1DQY1X(((,%I(MJ(  (  )D!Y)J03-I4)1DQY1D(((,%I(MJ(  (  ,630 =C1N%T1NUU(MJ(  (  )DAO,66, 5K01(,!N43(J (  0 P -OX (60-LD=0,9
 3(M(  (  , X600D ((1K-L4) 04.(J (  0 P -O\ (40-KD=0,9J 3(M(  (  0 =D, P7000 (=01-JMN(MJ(  (  )DAO,74, 5I01$,!N(M(  (  0 YI0 ,(4.QG(.%L, L7,0\, 140(J (  , \ (101A,((,%L(=!A1K0,0)P+1Y,((,%I4*%D((1L!I4)(J (  0 \ 5OP -O\  440(J (  , \ (301A,((,%L(=!A1L,, )(M
  (  , P700L 5OQN5IUN!E(M(  (  0 =D, X700, (=01-JMN(MJ(  (  ,76( !B-KD,,)= .(M(  (  0 =D, $700, (=01-JMN(MJ(  (  )DAO,79, 5I01$,!N(M(  (  , $700H ((1K,14)1B,((,$14+%D((1K)I()((!Y)I4))Y!C)I$)(MJ(  (  -N5B 1(M(  (  0 EC)LAL5MQA5IYN0 D(4,YN)A1R1B8,1BP,1EUT)R
M)M%A(MJ(  (  )IAF0(IN,)D ,16,,H8,0D,,16(MJ(  (  ,824 MA1S]I-N$ (00)TAO!N43(J (  4 L -YES4=%S(MJ(  (  5SMY4=%S(MJ(  (  )DAO,84, 5J01(,!N43(J (  ,   (40)P!S-J4)1P(( )(M(  (  0 =D, D905$ -C5F,1\,(MJ(  (  -C5F(180(* *,0T.,*D(0.X-1LEO)T!F1IYC()$)(MJ(  (  )DAO
86, 5J01(,!N43(J (  ,   (601P((4)=1S((0)L+1FH*((1J 14)(J (  0 P -O  (90-JD=0,9J(MJ(  (  -J4303(*(MJ(  (  1E((4)=,(MJ(-$2(MJ(  (  )X!O-J4)1P((,3D- )(M(  (  ( !D-J4)1P(( 34)(J (  ,   (901C9O1T9I!U5E(J (  0 \ 5OP -OL  440(J (  , $ (00)I!F)S9Y)L9T5SMY,)$ (005
9T1(MJ(  (  ,9T04 %S5SL=!Y(M(  (  0 YC1SL=!F(M(  (  , D905L 5OQN5IUN!E(M(  (  4 MA1S]I-NT (00)TAO!N43(J (  0 $ )F  5SMY4.EE4.%S)S$1, H9,5$, 345(J (  , $ (251P%R)NAT,9X2(MJ(  (  ,9X20 =F1REM)T  0*8 1OP 1EMS5EQN4,H 1E%V)SAE5PIA1AUM5TIE)S$*(MJ(  (  )GAO)TAO,
2(MJ(  (  )DAO,94, 5J01(,!N43(J (  , $ (401P((4)=1S((0)L+)F)S1B(( )(M(  (  0 =D, \900( (=01!J5N(J (  0 ( ,3L= *5J(J (  0 T ((%J(=!P)J43 24)(J (  4   1O((4)=,(MJ(-$1(MJ(  (  1D((4)=,(MJ )(M(  (  , \900L 5OQN5IUN!E(M(  (  4 IP5IQN,  9(2 ,1E((0)(,(=01)J%N(MJ
  (  ,9H80 =F1REM-TD(,0]F(.$2(MJ(  (  )GAO)TAO,34(MJ(  (  ,1000P -OD ,04, 5J01(,!N(M(  (  , 1(40)A!R-J4),2D.,3L009T*((%J(*!D!J4)(J (  4  1R9I-TD ,0H50,(((,!E)J0))X!O)J0)1D((0)D,1R((0)(,(=01)J%N(MJ(  (  ,1T002X 1O5R)AAT((*0   1E]I)HAT4  1O%S1T=I)N 0 %W1D!T
  1AUR)A<*(MJ(  ( , ,(MI0,\4(181(4$)(MJ(  (  ,1X040 1R9I-TD ,0H6(MJ(  (  ,1X002X 1O5R)AAT((*, D 0 =G0 9O,, 0 ED)T1A, D-0 9E)D$*(MJ(  (  ,1\000$ 5NUP1T8, 2(M(  (  0 YI0 8((2),1\1,0D,,09,,H5 0(M(  (  , 1(90)DAO,1D100$ (=01!I5N(J (  0 P -OD ,11, 5J01(,!N(M(L
(  , D ,114 %D)D!E1J$,0)P=1YUD((1J)I()1E(( )(M(  (  4 IP5IQN, D1 242(J (  , D ,1H20 =F1REM)T  (* 5X$ 0 ED)TAA1YL 1AML *4)(J (  0 P -OD ,14, 5I01$,!N(M(  (  , D1(401P%R)NAT,1P142 ,((%I(,!Y)I0))Y!C)I0)4(%D)D!E1J$,0)(,(=01)J%N(MJ(  (  ,1P102X 1O5R)AAT0(X(,6D
,,H1)F85(2$)(MJ(  (  )GAO)TAO,1X0 0(M(  (  , D1(601P%R)NAT,1X1 2(M(  (  , D1(625FIO5MQA( ((5IAM5OMS1I1B1E4 5AIT)IAX5IYN5EMR1I9O *4)(J (  , D ,170 =C1N%T1NUU(MJ(  (  1EQN(MJ(  (  1SIU5RUO1T9I1E4 1A%T)NAV((1A1NEV1RH,0,IN0,UD5TIE)M,)M%A(MJ0/9E1D=J!B(M J J( J
(<< (  J!? J(  J!? J=?<J        
 O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O$O(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