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

⟦cd2224662⟧ TextFile

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

Derivation

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

TextFile

b100:
 ;;  rl. w3     f0.    ; load device address.
 ;;  jd         1<11+12; call init of terminal driver.
c1: ;; repeat
     rl. w0     b118.  ; get char.
     
     rl. w3     f0.    ; get device address
     jd         1<11+14; call outchar
     jl.        c1.    ; 
b110:
b.   c20   w.
     ;; block second process.
    rl.  w3  f0.
    jd  1<11+12
   jd         1<11+2 ; next process.
c0:  rl. w1     b112.  ; get loop counter.
     al  w1  x1+1      ; increment loop counter.
     rs. w1     b112.  ; save loop counter.
     gp  w1   64
     jl.        c0.    ; goto repeat.
e.   ;; end block second process.

b112:0
b116:0
b117:0
b118:95                ; char to be output.
b119:0
f0:             72     ; device address.

b101:
b111:jl.        0,r.20      ; end of 2. and first user program.
e.
                       ; end of 2. user program.
▶EOF◀