|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »kkfpret2«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦d53069465⟧ »kkmon2filer«
└─⟦this⟧
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦f874557f7⟧ »kkmon2filer«
└─⟦this⟧
kkfptxt33=edit fptext3
l./,endprogram,page1/,l./;removeareapr/,
l./d10/,r/10/12/,l./d10:/,l1,i/
d11: 0 ; rel. addr of bittable in areaproc
d12: 24 ;
/,l./a5:/,r/a5:/a5:
rl w1 80 ; last internal
ws w1 78 ;
ls w1 -1 ; w1:=number of internals
al w1 x1+23 ;
al w0 0 ;
wd. w1 d12. ; w1:=size of bittable for userbits
ls w1 1 ;
ac w1 x1+4 ;
rs. w1 d11. ; d11:=rel. addr of bittable i areaproc
/,
l./d1:/,d3,i/
d1: rl w2 x1+0 ; for w2 through area in name table do
rl w3 66 ; w3:=cur;
ba w2 x3+12 ; w2:=w2+rel addr.curr
am. (d11.) ;
bz w0 x2 ; w0:=userbits.cur
bs w2 x3+12 ; reset w2
sz w0 (x3+12) ; if cur is user of area proc then
/,f
(kkfp2=slang kkfptxt1 kkfptxt2 kkfptxt33 insertproc
kkfp2)
scope user kkfptxt33 kkfp2
lookup kkfp2
▶EOF◀