DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tsdosjob«

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »tsdosjob« 

TextFile

job jg 8 200 time 11 0 area 10 size 100000
source=edit tstosjob
m e
l./job/
d./finis/,d
l./"vers/
r/3./4./
l./testbufpool/,d
l./process at_handler(/
d./process lam(/
d./external;/
l./procedure init_modul/
l./n2 =/
d./n7 =/
l./n9 =/,d
l./2: (* ath *)/
d./tsc_size, tsc_pri);/
l./9: (* lam *)/
d./lam_pri);/
l./12: (* tap01 *)/
d./vis_size, vc_sim_pri);/
l./function moduleready(/
d./end (* module/
l./"test-opsys  "/
r/"test/"demo/
l./name:= "test/
r/test/demo/
l./name:= "test/
r/test/demo/
l./insert auto/,l1
i/
init_modul(8);
init_modul(10);
init_modul(11);
init_modul(1);
/
l./"a": (* alloc *)/
d./end (* alloc*);/
l./"c": (* create *)/
d./end create/
l./"h": (* help *)/
d./end;/
l./"e", (* excep/
d./"no params "/
l./"p": (* partial words *)/
d./end (* partial *);/
f
tsdoslst= set 1 disc1
tsdoslst= indent source mark lc
listc= cross tsdoslst
o errors
head 1
message tsdos program
pascal80 spacing.3000 codesize.3000 jgenv source
o c
lookup pass6code
if ok.yes
(tsdosbin= set 1 disc1
tsdosbin= move pass6code
scope user tsdosbin
)
tsdoslst= copy listc errors
scope user tsdoslst
convert errors
finis
▶EOF◀