|
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: 2304 (0x900)
Types: TextFile
Names: »hvloadblock«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »hvloadblock«
b. c10,f10 w.
b100:
c1: rl. w0 b118. ; get char.
se w0 -1 ; if charakter read = minus 1 ( load command)
jl. c3. ; then goto c3
gp w0 64 ; else show load command
jl. -2 ; stop.
c3:
rl. w1 f1. ; get program length.
rs. w1 f4. ; get program length.
al. w1 f1. ; get first address.
rs. w1 f5. ; save in current address.
c4: rl. w1 f5. ; get current address.
rl. w0 (f5. ; get current word.
ls w0 -16 ; get first octet.
rl. w3 f3. ; get device no.
jd 1<11+14 ; call write octet.
rl. w3 f0. ; get device char.
jd 1<11+14; call outchar
jl. c1. ;
b110:
b. c20 w.
;; block second process.
rl. w3 f0. ; load device address.
jd 1<11+12 ; call init of terminal driver.
ac. w2 f10. ; get first address of program.
al w1 x2+f9. ; calculate address length.
al w2 x2+4 ; program length + 4 load bytes.
rs. w2 f1. ; save program length.
al. w2 f1.+6+4 ; get start address + 4 load bytes.
rs. w2 f2. ; store start address.
c0: rl. w1 b112. ; get loop counter.
al w1 x1+1 ; increment loop counter.
rs. w1 b112. ; save loop counter.
rl. w1 b118.
ls w1 16
gp w1 64
c11: rl. w1 b119. ; acia status
ls w1 8
gp w1 64
rl. w1 b117. ; interupt no.
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: 70 ; device address.
b101:
b111:jl. 0 ; end of 2. and first user program.
e.
; end of 2. user program.
0,r.(:1024-k:)>1 ;
e. ;
@,f
▶EOF◀