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

⟦0eb1e74e6⟧ TextFile

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

Derivation

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

TextFile

     (kksen=slang list.no xref.no;
     )                 ;
s.   a40,b40 w.        ;
p.   <:fpnames:>       ;
     k=h55             ;
a0:  0                 ;
a1:  0                 ;
     al. w3     a30.
     jd         1<11+0
     al. w1     a2.    ;
     al. w3     a3.    ;
     jd         1<11+16;
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     1      ; result
     al. w1     a2.    ;
     jd         1<11+22;
     jl.        b0.    ;
a2:  0,0,4,r.8         ;
a3:  <:sys0:>,0,0,0,0,0;
a4:0
a30:0,r.8
a31:al. w2  a30.
a32:rl  w0  x2
    jl. w3  h32.-2
    1<23+32<12+9
    al  w2  x2+2
    se.  w2  a31.
    jl.      a32.
    al  w2  10
    jl. w3  h26.-2
    dl. w1  a30.+2
    dl. w3  a30.+4
    jl.      (a30.+10)
e.                     ;
e.                     ;
▶EOF◀