DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »sw8585make  «

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »sw8585make  « 

TextFile

mode list.yes
o prim

c=message start make sw8585

t=set mtll mtsw8585

label t t

nextfile t
t=copy list.yes message.no æ.1

sw8585/2, rc8000 compiler collection       , release  2.00, 1989.08.01

sw8500/2, algol                            , release  5.00, 1989.08.01
sw8501/2, fortran                          , release  5.00, 1989.08.01
sw8504/1, xfortran                         , release  4.00, 1989.02.01
sw8505/1, pascal                           , release  4.00, 1989.02.01
sw8600/1, assembler                        , release 14.00, 1989.02.01
sw8200/1, data base                        , release 13.00, 1989.02.01
sw8201/1, backing storage                  , release 16.00, 1989.02.01
sw8220/1, mathematical-statistical routines, release 12.00, 1989.02.01
sw8221/1, algol text procedures            , release  2.01, 1989.08.01
sw8240/1  algol coroutine system           , release  2.00, 1989.02.01
;æ

nextfile t
t=copy list.yes message.no æ.1

t=changeentry t t t 2 t t t
if ok.no
(message t unknown
  end)

(repeat 10
 nextfile t
 binin disc.disc t)

end
;æ

nextfile t
t=move alg5pack

nextfile t
t=move ftn5pack

nextfile t
t=move xftn4pack

nextfile t
t=move pasc4pack

nextfile t
t=move ass4pack

nextfile t
t=move cf4pack

nextfile t
t=move bs4pack

nextfile t
t=move math4pack

nextfile t
t=move txtpr5pack

nextfile t
t=move corout4pack

c=message end   make  sw8585
c=message start check sw8585

t=changeentry t t t 2 t t t

(repeat 10
 nextfile t
 binin list.yes t.c)

c=message end   check sw8585

o c
filexfer prim lp
rewind t
end
▶EOF◀