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

⟦2526e5fea⟧ TextFile

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

Derivation

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

TextFile

;*************************************************************************
;*                                                                       *
;*  generering af binout fil til TAS pakke rel. 1.1                      *
;*                                                                       *
;*************************************************************************

clear user rel11
rel11=set 1 disc2
scope user rel11

o rel11

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

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

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

clear user kernel tascat 
kernel=set 1 disc2
tascat=set 1 disc2
kernel=algol kerneltxt 
tascat=algol tctxt connect.no fp.yes spill.no 
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 
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
                       
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 
deltascat=algol dtctxt connect.no 
settascat=algol stctxt 
listtascat=algol ltctxt connect.no 
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
insterm=mcl instermtxt
primomcl=mcl primomcltxt
stdmcl=mcl stdmcltxt
upcatmcl=mcl upcatmcltxt
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

o c
▶EOF◀