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