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

⟦9c67e0bf5⟧ TextFile

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

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »kkrect«

TextFile

     (kkrec=slang list.no xref.no;
     )                 ;
s.   a40,b40 w.        ;
p.   <:fpnames:>       ;
     k=h55             ;
a0:  0                 ;
a1:  0                 ;
b0:  al  w2     0      ;
     jd         1<11+24;
     rs. w0     a0.    ;
     rs. w2     a1.    ;
     al  w3  x2+24     ;
     rs. w3     a4.    ;
     al  w2  x2-10     ;
b1:  rl  w0  x2        ;
     jl. w3     h32.-2 ;
     1<23+32<12+10     ;
     al  w2  x2+2      ;
     sh. w2  (  a4.)   ;
     jl.        b1.    ;
     al  w2     10     ;
     jl. w3     h26.-2 ;
     rl. w0     a0.    ;
     rl. w2     a1.    ;
     jd         1<11+26;
     se  w0     0      ; if answer then
     jl.        b0.    ;
     al  w0     -2     ;
     rs  w0  x2-10
     al  w0     1      ; result
     al. w1     a2.    ;
     jd         1<11+22;
     jl.        b0.    ;
a2:  0,0,5,r.8         ;
a3:  <:sys:>,0,0,0,0,0;
a4:0
e.                     ;
e.                     ;
▶EOF◀