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

⟦69db21821⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »kkfpret4«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦80d78256e⟧ »kkmon4filer« 
            └─⟦this⟧ 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦84635a524⟧ »kkmon4filer« 
            └─⟦this⟧

TextFile

kkfptxt11=edit kkfptxt1
l./rlw166/,r/rlw166  /rs. w1  h97./,l1,r/x1/x3/
l./h69:/,d./slw0(/,i/
                         ;k1  copy of internal fp-version
      ls  w3     9       ;k1  w3:=first half-word relative
      wa. w3     h97.    ;k1  +base of fp segments
h69:  rl  w0  x3         ;k1  w0:=next word
      rs  w0  x1         ;k1  swap(addr):=next word
      al  w1  x1+2       ;k1  count
      al  w3  x3+2       ;k1  count
      sh  w1  x2         ;k1  if more to copy then
/,l./h56=/,l1,i/
h97:  0                  ;k1 base of internal fp
/
f
kkfptxt12=edit kkfptxt2
f
kkfptxt13=edit kkfptxt3
f
(kkfp1=slang kkfptxt11 kkfptxt12 kkfptxt13 insertproc list.yes
kkfp1)
scope user kkfp1 kkfptxt11 kkfptxt12 kkfptxt13
lookup kkfp1
▶EOF◀