DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »autotxt1« 

TextFile

s. a10,b10,c10
w.
d.
p.<:fpnames:>
l.
k=h55
0,0
   rl. w1 a0.   ; get dev nr
   al. w3 a1.   ; get dev name addr.
   jd 1<11+54   ; create phipherel process
   se  w0 0     ; if not normal answer 
   jl.    b1.   ;  then goto error 1.
   jd 1<11+8    ; reserve process
   se  w0 0   ; if not normal answer 
   jl.    b2.   ;  then goto error 2;
   al. w1 a10.  ;get first buf addrs
   rs. w1 a4.    ;
   al  w1  x1+510 ; get last buf addrs
   rs. w1 a5.   ;
   al. w1 a3.  ; get mess. addrs.
b4: jd 1<11+16 ; send message
   al. w1 a7.  ; get answer address
   jd 1<11+18  ; wait answer
   se w0 1     ; if not normal answer 
   jl.   b3.   ; then goto error 3.
   rl w0 x1+2  ; get answer
   se w0 512   ; if not transferred 512 bytes
   jl.   b4.   ; then goto try again
    al w0 0
    ;rl w1 66
 jd.   a9.
a9:  gp w0 92
;     rs w0 x1+88
   al w0 1 ;get no of segm
   al. w1 a10. ;
   al  w2 22 ;
   jd. w3 c2. ;

   jd    532
   al. w0 a10. ;
    jl. w3 h32.-2
  1<23+32<12+10
b6:al w2 10
   jl. w3 h33.-2
   al  w2 0
   jl. 0
b3: am 1
b2: am 1
b1: al w1 1
   rs. w1 b10.
  jl. w3 h32.-2
1<23+32<12+10
rl. w0 b10.
 jl. w3 h32.-2
1<23+32<12+10
; procedure move segmt 
c0: 0
c1: 0
c2: ls w0 9
   wa w0 2
   ds. w0 c1.
c3: dl w0 x1+2
   ds w0 x2+2
   al w1 x1+4
   al w2 x2+4
   sh. w1 (c1.)
   jl.  c3.
   jl. (c0.)
 jl. b6.
b10: 0 ; normal result;
a0: 27 ; dev no.
a1: 0,r.8
a3:3<12
a4:0
a5:0
a6:0
a7:0
a10:0,r.256
e.
e.
▶EOF◀