|
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: »kksent«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt. └─⟦0364f57e3⟧ └─⟦this⟧ »kksent«
(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◀