DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦0f6e8048b⟧ »preditfile« 
            └─⟦this⟧ 

TextFile

;       predit text           * page 1   11 02 80, 16.42;  

;  ga4000 is a multi entry program with the 11 following entries:
;  
;  1. ga4000   : automatic translation of gier algol 4 programs
;  _             not using the gier drum administration
;  _             internal entry number = 3
;  
;  2. tapecopy : unconditional copy from tape reader to tape punch
;  _             one call for each tape. the job must have the 
;  _             options:  device punch tapes <no of tapes>
;  _             internal entry number = 1
;  
;  3. ga34tape : input of gier algol tapes with some translation
;  _             tab -> 3 spaces , underline and stroke removed, 
;  _             pch off -> *, pch on -> ;  , sumch skipped.
;  _             internal entry number = 2

;  4. negbase  : conversion of negative numbers to 2-complement
;  _             values.  the numbers are entered as fp-params.
;  _             internal entry number = 4
;  
;  5. kebas    : change of base of named entry to bases given 
;  _             as set of 3 fp-params.
;  _             internal entry number = 5
;  
;  6. indate   : insertion of date and time in an entry, with due
;  _             respect to ext. proc.
;  _             intenal entry number = 6
;  
;  7. olddate  : output of date and time in entry tails
;  _             created before the shortclock system
;  _             internal entry number = 7
;  
;  8. predit   : editing of texts in algol and slang
;  _             internal entry number = 8
;  
;  9. longlines: print of a wide text on 2 a4 sheets
;  _             internal entry number = 9
;  
;  10.  fugt   : gives the relative humidity from dry 
;  _              and wet bulb temp.
;  _              internal entry number = 10
;  
;  11.tapescan : scans an arbitrary magtape and prints
;  _             file structure, status and selected data
;  _              internal entry number = 11
;  12 nextnumber : gives the next number of a magtape
;  _                 series.
;  _                  internal entry number = 12
;  
;  13. status    : converts a status word into the
;  _                    meaning of the bits
;  _        internal entry number = 13
;  
;  14 getextern     :  generates a family of extrnl proc 
;  from a contracted text file
;  _                   internal entry number = 14
;  
;  15. list     :       lists a file with boss-like numbers
;  _                     internal entry number = 16

\f



;       predit text           * page 2   11 02 80, 16.42;  

contract set.preditfile,
ga4000tx,
tapecopytx,
ga34tapetx,
negbasetx,
kebastx,
indatetx,
olddatetx,
predittx,
longlinestx,
fugttx,
tapescantx,
nextnumberx,
statustx,
getexterntx,
listtx,


predit = set 232 disc1

predit = algol

begin

integer entry_number;  

comment get entry number;  
_________________________
case prog_entry(entry_number, 15, case entry_number of(
<*1*>   <:tapecopy:>, 
<*2*>   <:ga34tape:>, 
<*3*>   <:ga4000:>, 
<*4*>   <:negbase:>, 
<*5*>   <:kebas:>, 
<*6*>   <:indate:>, 
<*7*>   <:olddate:>, 
<*8*>   <:predit:>, 
<*9*>   <:longlines:>, 
<*10*>  <:fugt:>, 
<*11*>  <:tapescan:>, 
<*12*>  <:nextnumber:>, 
<*13*>  <:status:>, 
<*14*>  <:getextern:>, 
<*15*>  <:list:>,
<*  *>  <::>)) of

\f



<*        * page *>

begin

algol copy.tapecopytx;

algol copy.ga34tapetx;

algol copy.ga4000tx;

algol copy.negbasetx;

algol copy.kebastx;

algol copy.indatetx;

algol copy.olddatetx;

algol copy.predittx;

algol copy.longlinestx;

algol copy.fugttx;

algol copy.tapescantx;

algol copy.nextnumberx;

algol copy.statustx;

algol copy.getexterntx;

algol copy.listtx;

end entrycases;

trap_mode := 1 shift 10;  

end;  

\f



;       predit text           * page 68   11 02 80, 16.42;  

if warning.yes
(mode 0.yes
message ga4000 tapecopy ga34tape, 
negbase kebas indate olddate, 
predit longlines fugt tapescan, 
nextnumber status getextern, 
list,
not ok
lookup ga4000 tapecopy ga34tape, 
negbase kebas indate olddate, 
predit longlines fugt tapescan, 
nextnumber status getextern,
list)

if 0.no
(
tapecopy   = assign predit
ga34tape  =  assign predit
negbase   =  assign predit
kebas     =  assign predit
indate    =  assign predit
olddate   =  assign predit
ga4000    =  assign predit
longlines =  assign predit
fugt      =  assign predit
tapescan  =  assign predit
nextnumber = assign predit
status     = assign predit
getextern  = assign predit
list       = assign predit
scope user ga4000 tapecopy ga34tape, 
negbase kebas indate olddate, 
predit longlines fugt tapescan, 
nextnumber status getextern,
list
lookup ga4000 tapecopy ga34tape, 
negbase kebas indate olddate, 
predit longlines fugt tapescan, 
nextnumber status getextern,
list
)

end

finis

▶EOF◀