Data General Nova 4/X -- HELLO COMMA WORLD STOP

From: Tom Jennings <tomj_at_wps.com>
Date: Mon, 28 Feb 2005 00:42:38 +0000

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 _at_.+1
    00003'000004' L1.
                 L1.:

    00004'006002$ JSR _at_.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 _at_.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 _at_:ASM.SV
FIV.SV 20992 SD
LFE.SV _at_:LFE.SV
FMT.LB 6292 D
RLDR.OL _at_:RLDR.OL
HW.SV 8192 SD
SYS.LB _at_:SYS.LB
FORT0.LB 7794 D
FORT1.LB 22552 D
HW.LS 9786 D
SPEED.ER _at_:SPEED.ER
CLG.SV 3584 SD
RLDR.SV _at_: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
Received on Mon Feb 28 2005 - 00:42:48 GMT