DataMuseum.dk

top - metrics - download

    Length: 5376 (0x1500)
    Types: TextFile
    Names: »comalhelp«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »comalhelp« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »comalhelp« 

TextFile

;       ***********************************************************
;       *                                                         *
;       *   *******    *******   **     **   *******   *          *
;       *  *       *  *       *  * *   * *  *       *  *          *
;       *  *          *       *  *  * *  *  *       *  *          *
;       *  *          *       *  *   *   *  *********  *          *
;       *  *          *       *  *       *  *       *  *          *
;       *  *       *  *       *  *       *  *       *  *       *  *
;       *   *******    *******   *       *  *       *  *********  *
;       *                                                         *
;       ***********************************************************
;
;
;              
;                 comalhelp: a system installation file
\f


comalload  =edit
i!
;
; *** comalload: a file for loading the comal system ***
;

lookup comaldoc
if ok.no
comaldoc   =set 1

f=entry comalhelp comalhelp comalhelp 1
clear temp comalhelp

comalhelp  =entry 6 comaldoc
comalhelp  =copy f

nextfile f
tcomal     =entry 415 comaldoc
tcomal     =copy f

nextfile f
tcomalmove =entry 18 comaldoc
tcomalmove =copy f

nextfile f
tspoolfull =entry 5 comaldoc
tspoolfull =copy f

nextfile f
ttestbit   =entry 3 comaldoc
ttestbit   =copy f

nextfile f
twritedate =entry 16 comaldoc
twritedate =copy f

nextfile f
tdecomposef=entry 19 comaldoc
tdecomposef=copy f

nextfile f
tisotable  =entry 4 comaldoc
tisotable  =copy f

nextfile f
tchangeerr =entry 8 comaldoc
tchangeerr =copy f

nextfile f
comalsyntax=entry 30 comaldoc
comalsyntax=copy f

nextfile f
nametable  =entry 2 comaldoc
nametable  =copy f

nextfile f
tgenscan   =entry 5 comaldoc
tgenscan   =copy f

nextfile f
tgensyntax =entry 19 comaldoc
tgensyntax =copy f

nextfile f
basicerror =entry 14 comaldoc
basicerror =move f


nextfile f
load f.0
scope user,
          comalhelp   tcomal      tcomalmove  tspoolfull  ttestbit   ,
          twritedate  tdecomposef tisotable   tchangeerr  comalsyntax,
          nametable   tgenscan    tgensyntax  basicerror

c=message load completed
!,
f
\f


comalsave=edit
i!
;
; *** comalsave: a file for making a system tape ***
;

lookup comaltape
if ok.no
(c=message comaltape not set
end)

f=entry comaltape comaltape comaltape 1
f=copy comalhelp

nextfile f
f=copy tcomal

nextfile f
f=copy tcomalmove

nextfile f
f=copy tspoolfull

nextfile f
f=copy ttestbit

nextfile f
f=copy twritedate

nextfile f
f=copy tdecomposef

nextfile f
f=copy tisotable

nextfile f
f=copy tchangeerr

nextfile f
f=copy comalsyntax

nextfile f
f=copy nametable

nextfile f
f=copy tgenscan

nextfile f
f=copy tgensyntax

nextfile f
f=move basicerror

nextfile f
save f.0 newscope.user fastmove catupdate usercat usertext

clear temp f

c=message save completed
!,
f
\f


comalgo=edit
i!
;
; *** comalgo: a file for translating the comal system ***
;

(basicmove=slang fpnames tcomalmove insertproc entry.no
basicmove getclock anyevents)

(spoolfull=slang tspoolfull entry.no
spoolfull)

testbit=algol ttestbit

(writedate=slang twritedate entry.no
writedate)

(decomposef=slang fpnames tdecomposef insertproc entry.no
decomposef solvef)

(isotable=slang tisotable entry.no
isotable)

changeerror=algol tchangeerr connect.no

genscan=algol tgenscan

gensyntax=algol tgensyntax

scantable=genscan nametable

syntaxtable=gensyntax in.comalsyntax

xcomal=algol tcomal

scope user,
           xcomal      changeerror decomposef  solvef      writedate  ,
           basicmove   anyevents   getclock    spoolfull   testbit    ,
           isotable    scantable   syntaxtable genscan     gensyntax

c=message translation completed
!,
f
\f


comallist=edit
i!
;
; *** comallist: a file for listing the comal texts ***
;

char 42.5
message comalhelp
copy list.yes message.no comalhelp

char ff.1 42.5
message basicmove
(basicmove=slang fpnames list.on tcomalmove list.off insertproc entry.no
basicmove getclock anyevents)

char ff.1 42.5
message spoolfull
(spoolfull=slang list.yes tspoolfull entry.no
spoolfull)

char ff.1 42.5
message testbit
testbit=algol list.yes bossline.yes blocks.yes ttestbit

char ff.1 42.5
message writedate
(writedate=slang list.yes twritedate entry.no
writedate)

char ff.1 42.5
message decomposef
(decomposef=slang fpnames list.on tdecomposef list.off insertproc entry.no
decomposef solvef)

char ff.1 42.5
message isotable
(isotable=slang list.yes tisotable entry.no
isotable)

char ff.1 42.5
message changeerror
changeerror=algol list.yes bossline.yes blocks.yes tchangeerr connect.no

char ff.1 42.5
message genscan
genscan=algol list.yes bossline.yes blocks.yes tgenscan

scantable=genscan nametable list.yes

char ff.1 42.5
message gensyntax
gensyntax=algol list.yes bossline.yes blocks.yes tgensyntax

syntaxtable=gensyntax list.yes in.comalsyntax

char ff.1 42.5
message basicerror
changeerror from.basicerror list.yes

char ff.1 42.5
message xcomal
xcomal=algol list.yes bossline.yes blocks.yes tcomal

c=message listing completed
!,
f

c=message ready
▶EOF◀