DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »tfinisb«

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

TextFile

(
mode list.yes
(finisb=slang
finisb)
scope user finisb
mode list.no
)
;hcø 1980.11.25 Anders Lindgård

;the programs are translated by a slang call like:
;
;
b. g2,f4 w.                ; start insertproc block
s.w.                       ; start code block
d.
p.<:fpnames:>
l.
\f



;                                           finisb, page 1

b. a10, b10
k=h55 w.
a1: 0
a2: 0
f1:               ; entry
      rl  w1  66  ; w1:=proc
;ks-1
      rl  w1  x1+50; w1.proc.parent
;ks-2
      dl  w0  x1+8; move
      am      6
      ds. w0  a6. ; name
      dl  w0  x1+4;
      am      2
      ds. w0  a6. ;
      se. w3 (a7.); if name <> <:b:> then
      jl.     a5. ; goto end
;ks-3
      al  w2  10  ; w2:=char
      jl. w3  h34.-2; close up
      jl. w3  h79.-2; terminate zone
      al. w1  a8. ; w1:=message
      al. w3  a7. ; w3:=name
a9:   jd  1<11+16 ; send message
      al. w1  a10.; w1:=answer address
      jd  1<11+18 ; wait answer
      jl.     a9. ;
a5:               ; ok:
      jl. w3 h79.-4; terminate current in
      jl. w3 h30.-4; unstack current in
      al  w2  0   ; ok:=true
;ks-5
      jl.     h7. ; end program

a6: 0,r.4         ; name
a7: <:b:>,0,0,0,0 ; name b
a8: 2<12,<:finis:>,0,r.5; message
a10: 0,r.8
e.
;
; insert tails into catalog
;
; the program entries are given by f1 and f2, the
; load length by f3 and f4
;
f3=k-h55
m.  hcø 1980.11.25 finisb
;entry finisb:
g1:
g0:  (:f3+511:) > 9        ; no of segments
     0,r.4                 ;
     s2                    ; date
     0,0                   ; file block
     2<12+f1-h55           ; contents,entry
     f3                    ; length
d.
p.<:insertproc:>
l.
e.
▶EOF◀