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

⟦b9b98d771⟧ TextFile

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

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦508e019d6⟧ »kkfiler« 
            └─⟦this⟧ 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦8748ba386⟧ »kkfiler« 
            └─⟦this⟧

TextFile

s. a20,b5,j10
k=h55
w.
b0:   17<9 -2          ; size of fp
b1:   0
      rs.  w1  b1.
      al.  w3  a0.    ;
      jd       1<11+52; create area process(fp)
      al  w2  x2-100
      rs.  w2  a1.    ;
      ws.  w2  b0.    ; addr(command stack)-fp size
      rs.  w2  a5.    ;
      al.  w1  a6.    ;
      jd       1<11+16; input fp
      al.  w1  a3.    ;
      jd       1<11+18;
      sn  w0   1      ;
      jl.      j0.    ; if input ok then goto j0
      jl. w3   h32.-2 ;
1<23+32<12+8
      al. w0   a4.    ;
      jl. w3   h31.-2 ;
j3:    al  w2   0      ;
      jl.      h7.    ; stop
j0:   dl.  w1  h17.    ;
      dl.  w3  h16.    ;
      ds.  w1  a12.    ;
      ds.  w3  a14.    ; move start init val.
      rl.  w2  b1.; w2:= first addr to copy
      rl.  w1  a5.
j1:   dl  w0   x1+2   ; move
      ds  w0   x2+2   ;
      al  w1   x1+4   ;
      al  w2   x2+4   ;
      sh. w2   b0.-6  ;
      jl.      j1.    ;
      rl.  w1  a5.
      rl.  w0  a11.
      dl.  w3  a14.
      am.      (b1.)
      jl        2     ;   start fp
a0:   <:kkfp1:>,0,r.4
a6:   3<12+0          ; input
a5:   0
a1:   0
a2:   0
a3:   0,r.8
a4:   <:<10>input fp error<10>:>
0
a10:0
a11: 0
a12: 0
a13: 0
a14: 0
e.
e.
▶EOF◀