|
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: »phead «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »phead «
\f
; fgs 1988.08.02 fp utility, system 3, cat adm 2 ...08...
;procedure remove entry.
;
;removes the entry addressed by w2
;and returns to link + 2 if removed, to link if not removed
;at return the link b16 is different from zero.
;
;w0 destroyed
;w1 unchanged
;w2 addr of entry unchanged
;w3 link destroyed
;
b. j20 w.
b66: rs. w3 b16. ; entry: save link;
al w3 x2+6 ; w3 := entry.name;
; jd 1<11+48 ; remove entry;
sn w0 0 ; if removed then
jl. j6. ; goto link + 2;
jl. w3 b26. ; outtext(<:***<prog><scope><10>:>,
se w0 2 ; if catalog error, document not ready then
jl. j1. ; begin
jl. w3 b43. ; outtext (<:bs device not ready<10>:>);
jl. j5. ; end else to link;
j1: al w0 x2+6 ; name := entry.name;
jl. w3 b30. ; outtext (name);
se w0 3 ; if not found then
jl. j2. ; begin
jl. w3 b37. ; outtext (<: unknown<10>:>);
jl. j5. ; end else
j2: se w0 4 ; if entry protected then
jl. j3. ; begin
jl. w3 b47. ; outtext (<: entry protected<10>:>);
jl. j5. ; end else
j3: se w0 5 ; if used by another then
jl. j5. ; begin
jl. w3 b46. ; outtext(<: entry in use<10>:>);
jl. j5. ; end else
j4: jl. w3 b45. ; outtext (<: catalog error<10>:>);
j5: jl. (b16.) ; goto link;
j6: am. (b16.) ; return to link + 2:
jl +2 ;
e.
▶EOF◀