RDOS prompt is newline then "R".
I had to re-create the FORTRAN IV distribution and libraries from
random tape dumps. Of course the library file editor pages were
missing from the manual I printed out! Had to build the fortran
library, aargh.
CLG is "compile load go" an all-in-one utility.
Amusingly, RDOS isn't umm fully Y2K clean! Accepts year as 2005,
but prints it variously as 105 or :5.
I guess I'll write "hello world" in macro then assume I'm in business,
and go work out the foreground terminal, line printer, etc...
Thanks again Bruce for all the help!!!!!
tomj
R
CLG HW HW.LS/L
PROGRAM IS RELOCATABLE
                         .TITL   .MAIN
HELLO, WORLD
STOP
R
LIST HW.-
HW.FR                82  D
HW.SV              8192  SD
HW.LS              9786  D
HW.RB               282  D
R
HW
HELLO, WORLD
STOP
R
TYPE HW.FR
C THIS PROGRAM DOES NOTHING BUT PROVE THAT IT EXISTS.
         TYPE "HELLO, WORLD"
         END
R
R
TYPE HW.LS
; DGC FORTRAN IV REV 05.50NH
; C THIS PROGRAM DOES NOTHING BUT PROVE THAT IT EXISTS.
;
;       TYPE "HELLO, WORLD"
;
;       END
   0001  .MAIN
                 ; DGC FORTRAN IV REV 05.50NH
                 ; C THIS PROGRAM DOES NOTHING BUT PROVE THAT IT EXISTS.
                 ;
                 ;       TYPE "HELLO, WORLD"
                         .NREL
                         .TITL   .MAIN
                         .ENT    .MAIN
                         .NREL
          000001         .TXTM   1
                         .EXTU
                         .EXTN   .I
                 .F1:
    00000'000000 .F2:    0
          000000         .CSIZ   0
    00001'000000         FS.
                 .MAIN:
    00002'002401         JMP     @.+1
    00003'000004'        L1.
                 L1.:
    00004'006002$        JSR     @.FWRI
    00005'000021'        .C1
    00006'000000         0
    00007'000006         6
                         .TXT    "HELLO, WORLD"
    00010'044105
    00011'046114
    00012'047454
    00013'020127
    00014'047522
    00015'046104
    00016'000000
                 ;
    00017'000005         5
                 ;       END
    00020'006001$        JSR     @.FRET
    00021'000012 .C1:    000012
          000000         FS.=0
          000000         SFS.=0
          177611         T.=-167
          000011         V.=200+T.
          177610         TS.=T.+177777
          177611         FTS.=T.+0
          000010         VS.=V.+177777
          000011         FVS.=V.+0
                         .END
   0002  .MAIN
FS.     000000
FTS.    177611
FVS.    000011
L1.     000004'
SFS.    000000
TS.     177610
T.      177611
VS.     000010
V.      000011
.C1     000021'
.F1     000000'
.F2     000000'
.FRET   000001$X
.FWRI   000002$X
.I      077777 X
.MAIN   000002'
HW.SV   LOADED BY RLDR REV 07.10 AT 22:08:51 02/27/:5
R
LIST
HW.FR                82  D
ASM.SV                    @:ASM.SV
FIV.SV            20992  SD
LFE.SV                    @:LFE.SV
FMT.LB             6292  D
RLDR.OL                   @:RLDR.OL
HW.SV              8192  SD
SYS.LB                    @:SYS.LB
FORT0.LB           7794  D
FORT1.LB          22552  D
HW.LS              9786  D
SPEED.ER                  @:SPEED.ER
CLG.SV             3584  SD
RLDR.SV                   @:RLDR.SV
FSYS.LB            4036  D
N.SV                      DP0:NSPEED.SV
FORT2.LB          18242  D
COM.CM                8
FORT3.LB          13618  D
FORT.SV            3072  SD
HW.RB               282  D
LIBS.                37  D
BREAK.SV          14336  SD
FORT.LB           62134  D
R