DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »retmove3tx  «, »retmove3tx1 «

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »retmove3tx  « 
        └─⟦this⟧ »retmove3tx1 « 

TextFile

mode list.yes
move4tx=edit move3tx
; connect output : segm < 2 + key
; disc to disc : maximale bufre

d./;get output entry/, i/
     b. g1,f6             ;begin block insertproc
     w.
     
     d. 
     p.<:fpnames:>        ;begin block fpnames
     l.

     s. a29, c33, e45, g20, i27, b3
     w.

     k=h55
     
          0   , 0

     ;entry move
     ;get output entry
/

l./;allocate buffers and initialize descriptors/, l./b. i0/, r/i0/i10/

l./;connect output/, l./jl. w3 h28./, l-1, r/1<1+1/1<2+0/, r/one/one temporary/,
r/ on disc//

l./;set last shared/, i/

; c5 = 3 = 11  : bs = move bs
;      2   1.  : bs = move mt
;      1   .1  : mt = move bs
;      0   ..  : mt = move mt

/, p-4
l./;set last shared/, r/or c5=2/or c5=2, input mt/

l./am     34/, r/am     34  /jl.    i10./
l1, r/2  /i1./
l1, r/         /      i1:/
l./am     +6/, r/am     +6 /jl.    i3./
l1, r/2  /i2./
l1, r/         /      i2:/
l2, r/12  /i10./
l./rl. w2 c28./, d, i/

      i3:rl. w2 c28.     ;cdc, ampex 9-tracks: get maxbll of cdc, ampex 9-tracks
/
l2, r/am     2   /jl.    i10./
l1, r/2  /i4./
l1, r/         /      i4:/
l./rl. w1 a1./, d, i/

     i10:rl. w1 a1.      ;set last shared: get first shared
/
l./;set last shared if c5=1/, r/3/3, input bs/
l./i0:/, d1, i/

      i0:sz  w0 2        ;if output bs then
         jl.    i5.      ;  goto input bs, output bs
/, p-2
l1, r/rl./
                         ; input bs, output mt:
         rl./
l./rs. w1 b3./, l1, i#
         jl.    a6.      ;goto move loop

      i5:rl. w1 c11.     ;maxbll :=
         ls  w1 -9       ;  maxbll //
         ls  w1 9        ;  512     +
         al  w1 x1+2     ;  2;
         rs. w1 c11.     ;
         jl.    i10.     ;goto set last share;

#, l1, p-12

l./b. i8/, r/i8/i15/
l./i2:/, l./wa  w2 6/, d,
r/rl/rx/
l./wa. w2 a7./, i/
         rx. w3 i6.      ;
         wa  w2  6       ;w2:=w2+w3;
/, p-2

l./a27:/, l./am     28/, r/am     28  /jl.    i10./
l1, r/2  /i9./
l1, r/         /      i9:/
l./se  w0 0/, d3, i/

     i10:se  w0 3        ;if mt=move mt 
         sn  w0 0        ;or bs=move bs then
         jl.    i11.     ;
         jl.    i12.     ;
     i11:                ;begin
/, p-5
l./am.    (e13.)/, l./am.    (e3.)/, d, i/

     i12:am.    (e3.)    ;get first and last shared
/, p-1

l./  i0: <:  number of bytes transferred:<0>:>/, r/bytes/halfwords/

l./e45=e24+10/, d b, i/
     e45=e24+10

     i.
     e. ; end slang segment move

     m. rc 1988.11.25 fp utility move

     f1=k-h55-h5-h5      ;length
     f2=4                ;entry

     g0:g1:(:f1+511:)>9  ;segm.
           0,r.4         ;name
           s2            ;date
           0,0           ;file,block
           2<12+f2       ;contents,entry
           f1            ;length

     d.
     p.<:insertproc:>
     e.
/

f
end
▶EOF◀