DataMuseum.dk

top - metrics - download

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

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »temhelp« 

TextFile

\f


;             ***  temhelp  ***
;

(

temtrim=copy message.no 39.1

temlist=copy message.no 39.1

end

)
\f


;             ***  temtrim  ***
;
;
; contains options for trimming tem system
; and commands for automatic system generation from the tem system tape


temdummyout=set 1
o temdummyout
mode 1.no
lookup temdoc
if ok.no
mode 1.yes
o c
if 1.yes
temdoc=set 1

if 2.no
(trace=entry 40 temdoc
trace=algol ttrace)

xtem = edit ttem            ; edit options into the program text
l./body of init/,
l./verstext/,l1
l./===trimstart/,
d./===trimfinis/,
i/


! date of options                                  ! options     :=   0,
! number of active terminals                       ! thcount     :=  15,
! number of active terminal groups                 ! phcount     :=   5,
! number of spool segments for each terminal group ! phspoolsegm :=  10,
! number of spool segments for each terminal       ! thspoolsegm :=  10,
! size of terminal buffer in core (half words)     ! termbufsize := 104,
! number of spool segment buffers in core          ! spoolbufs   :=   2,
! size of testoutput area (segments)               ! testsegmnts :=  42,

/,
f


if 2.no
rcmol = algol trcmol        ;

btem = entry 20 temdoc
btem = rcmol xtem           ; translate trimmed program text

scope user btem trace

o temdummyout

clear temp xtem temtrim trcmol ttem ttrace ttemtest,
      temlist
if 2.no
clear temp rcmol

o c
clear temp temdummyout

message tem generation completed
'
\f


;             ***  temlist  ***
;
;
; lists all text files on the tem system tape


lookup rcmol
if ok.no
rcmol = algol trcmol

o temtexts
head 3
copy list.yes message.no temhelp
head 3
rcmol ttem list.yes xref.yes
head 3
copy list.yes message.no ttemtest
o c

convert temtexts
if 2.no
clear temp rcmol
'
▶EOF◀