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

⟦24779458f⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »hclocalprog«

Derivation

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

TextFile

s. a100,b100,c100 w.
0,0,0
jl.  a1.
a1:
p.<:tcgfa:>
c0: ;; print number procedure.
b. f10 w.
   ds. w1  f1.
   ds. w3  f3.
   jl. w3 f10.
   al w0 x1
   jl. w3 f10.
   al w0 x2
   jl. w3 f10.
   rl. w0 f8.
   ba. w0 1
   rs. w0  f8.
  jl. w3  f10.
  dl. w1  f1.
  dl. w3  f3.
  jl      x3 
f10: ;; hc generel test and generel put.
   gp w0  64
   gg w0  66
   jl     x3
f0: 0 ; saved w0
f1: 0 ; saved w1
f2: 0 ; saved w2
f3: 0 ; saved w3
f4: <:w0 = :>,0
f5: <:w1 = :>,0
f6: <:w2 = :>,0
f7: <:loop = :>,0
c2:
f8 : 0 ; loop count.
f9: <:<10><10>:>,0
e. ; end write procedure.
c1: ;; finis program
   jl. 0
e.
e.
▶EOF◀