DataMuseum.dk

top - metrics - download

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

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

TextFile

; print tas data  m z.11111111
;                      ```````- free att, buf ext
;                      ``````- signon
;                      `````- rm cdescr
;                      ````- cdescr
;                      ```- tdescr, ttda, term
;                      ``- ct, at, st
;                      `- cl variable
mode all.no
do w0.!1 w2.0 w3.0,
  do,
  while w0.ne.0,
    w1.w0.mo.10 w0.di.10,
    if w1.ne.0 w1.1.le.w3 w2.in.w1 fi,
    w3.in.1,
  od,
  w3.24.de.w3 w2.le.w3,
  w1.hn.x1.102.in.fp,
  z1.w1 y1.w2
mode what
o tu
;head 1
;print dmp2 integer 0.16
;print  dmp2 20.20.c.16.r
if 1.yes
(
head 1
message cl variable         
print  dmp2 integer text 854.1096.r
)
if 2.yes
(
head 1
message coretable   c32 . c33 . i  
print  dmp2 bits.0.0.1.23 bits.0.0.1.1.2.2.3.11.12.23 integer 994.996.i
head 1
message area table    c40 . c39 . i  
print  dmp2 half 1010.1008.i
head 1
message segment table  c39 . c44 . i
print  dmp2 half 1008.1016.i
head 1
message mcl table    c44 . c50 . i  
print  dmp2 integer text 1016.1028.i
)
if 3.yes
(
head 1
message tdescr pool    c50 . c46 . i  
print  dmp2 integer text 1028.1020.i
 head 1
 message ttda term    c46 . c5 . i  
 print  dmp2 integer half text char 1028.866.i
) 
if 4.yes
(
head 1
message cdescr pool    c5 . c30 . i  
print  dmp2 integer text half 866.988.i
)
if 5.yes
(
head 1
message rm cdescr
print  dmp2 integer text 3034.3222
)
if 6.yes
(
head 1
message signon    c55 . c4 . i  
print  dmp2 integer text 1024.864.i
)
if 7.yes
(
head 1
message free att    c30 . c55 . i  
print  dmp2 integer half 988.1042.i
head 1
message buf ext list    c4 .  c21 6  . i  
print  dmp2 integer 864.924.i
)
o c

message end z
   
▶EOF◀