DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦88cce686c⟧ TextFile

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

Derivation

└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
    └─⟦39138f30b⟧ 
        └─⟦this⟧ »mastergb    «

TextFile

;*************************************************************************
;*                                                                       *
;*  generering af binout fil til TAS pakke                               *
;*                                                                       *
;*************************************************************************

clear user relxx
relxx=set 1 disc2
scope user relxx

o relxx

head 
mode list.yes

; flyt tekster til tasterm til user baser

clear user tastermtxt anames qnames fnames cltxt gltxt thtxt,
           smtxt phtxt rmtxt sttxt inittxt extdeftxt

qqq=fastmove tastermtxt
rename qqq.tastermtxt
qqq=fastmove anames
rename qqq.anames
qqq=fastmove qnames
rename qqq.qnames
qqq=fastmove fnames
rename qqq.fnames
qqq=fastmove cltxt
rename qqq.cltxt
qqq=fastmove gltxt
rename qqq.gltxt
qqq=fastmove thtxt
rename qqq.thtxt
qqq=fastmove smtxt
rename qqq.smtxt
qqq=fastmove phtxt
rename qqq.phtxt
qqq=fastmove rmtxt
rename qqq.rmtxt
qqq=fastmove sttxt
rename qqq.sttxt
qqq=fastmove inittxt
rename qqq.inittxt
qqq=fastmove extdeftxt
rename qqq.extdeftxt
scope user tastermtxt anames qnames fnames cltxt gltxt thtxt,
           smtxt phtxt rmtxt sttxt inittxt extdeftxt
alarm   ;  test ok og warning bit

lookup tastermtxt anames qnames fnames cltxt gltxt thtxt,
           smtxt phtxt rmtxt sttxt inittxt extdeftxt
alarm   ;  test ok og warning bit

i tasslang     ; oversæt tassterm 

; flyt tekster til tascat til user baser

clear user kerneltxt tctxt
qqq=fastmove kerneltxt
rename qqq.kerneltxt
qqq=fastmove tctxt
rename qqq.tctxt
scope user kerneltxt tctxt
lookup kerneltxt tctxt
alarm   ;  test ok og warning bit

clear user kernel tascat 
kernel=set 1 disc2
tascat=set 1 disc2
kernel=algol kerneltxt 
alarm   ;  test ok og warning bit
tascat=algol tctxt connect.no fp.yes spill.no 
alarm   ;  test ok og warning bit
scope user kernel tascat 
lookup kernel tascat 

; flyt text til mcl oversætter til user baser
                              
clear user mcltxt
qqq=fastmove mcltxt           
rename qqq.mcltxt             
scope user mcltxt             
lookup mcltxt
                              
clear user mcl 
mcl=set 1 disc2               
mcl=algol mcltxt connect.no 
alarm   ;  test ok og warning bit
scope user mcl 
lookup mcl 
                       
; flyt texter til utility programmer til user baser
                              
clear user mvmcltxt dtctxt ltctxt stctxt
                              
qqq=fastmove mvmcltxt         
rename qqq.mvmcltxt           
qqq=fastmove dtctxt           
rename qqq.dtctxt             
qqq=fastmove ltctxt           
rename qqq.ltctxt             
qqq=fastmove stctxt           
rename qqq.stctxt             
scope user mvmcltxt dtctxt ltctxt stctxt
lookup mvmcltxt dtctxt ltctxt stctxt
alarm   ;  test ok og warning bit
                       
clear user movemcl deltascat settascat listtascat
movemcl=set 1 disc2           
deltascat=set 1 disc2         
settascat=set 1 disc2         
listtascat=set 1 disc2        
                              
movemcl=algol mvmcltxt connect.no 
alarm   ;  test ok og warning bit
deltascat=algol dtctxt connect.no 
alarm   ;  test ok og warning bit
settascat=algol stctxt 
alarm   ;  test ok og warning bit
listtascat=algol ltctxt connect.no 
alarm   ;  test ok og warning bit
scope user movemcl deltascat settascat listtascat 
lookup movemcl deltascat settascat listtascat 

  
; flyt div tekster til user baser

clear user stdtasinit stdcattxt operamcltxt instermtxt,
           primomcltxt stdmcltxt upcatmcltxt newtas starttas

qqq=fastmove stdtasinit
rename qqq.stdtasinit
qqq=fastmove stdcattxt
rename qqq.stdcattxt
qqq=fastmove operamcltxt
rename qqq.operamcltxt
qqq=fastmove instermtxt
rename qqq.instermtxt
qqq=fastmove primomcltxt
rename qqq.primomcltxt
qqq=fastmove stdmcltxt
rename qqq.stdmcltxt
qqq=fastmove upcatmcltxt
rename qqq.upcatmcltxt
qqq=fastmove newtas
rename qqq.newtas
qqq=fastmove starttas
rename qqq.starttas

scope user stdtasinit stdcattxt operamcltxt instermtxt,
           primomcltxt stdmcltxt upcatmcltxt newtas starttas
lookup stdtasinit stdcattxt operamcltxt instermtxt,
           primomcltxt stdmcltxt upcatmcltxt newtas starttas

; oversæt mcl programmer

clear user operamcl insterm primomcl stdmcl upcatmcl
operamcl=mcl operamcltxt
alarm   ;  test ok og warning bit
insterm=mcl instermtxt
alarm   ;  test ok og warning bit
primomcl=mcl primomcltxt
alarm   ;  test ok og warning bit
stdmcl=mcl stdmcltxt
alarm   ;  test ok og warning bit
upcatmcl=mcl upcatmcltxt
alarm   ;  test ok og warning bit
scope user operamcl insterm primomcl stdmcl upcatmcl
lookup operamcl insterm primomcl stdmcl upcatmcl

; flyt filer til bin file

clear user filebintas
filebintas=set 1 disc2
filebintas=binout tasterm tascat mcl movemcl deltascat settascat,
                  listtascat stdtasinit.p stdcattxt.p operamcl.p,
                  insterm.p primomcl.p stdmcl.p upcatmcl.p newtas.p starttas.p,
                  operamcltxt.p instermtxt.p primomcltxt.p stdmcltxt.p,
                  upcatmcltxt.p

scope user filebintas
lookup filebintas
head 1
catsort scope.user
head
mode list.no

o c
▶EOF◀