DataMuseum.dk

top - metrics - download

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

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »changearetx « 
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦592c22808⟧ »proctxpack  « 
            └─⟦c7b1c7cfc⟧ 
                └─⟦this⟧ »changearetx« 

TextFile

if listing.yes
char 10 12 10

changearea = set 1 0

changearea = algol

external integer procedure changearea(z, i);  zone z;  integer i;  
<*
_    changearea: 0 ok
_                2 cat i/o error
_                3 name not found,
_                  maybe: zone not opened
_                4 name protected
_                5 name in use
_                6 name format illegal,
_                  probably: zone not opened
_                7 catalog inconsistent
_                9 claims exceeded

_    z           zone opened to the area,
_                (so that the name is found in the zonedescriptor)

_    i           integer bit pattern
_                bit value 1 => change size to segment count
_                bit value 2 => set shortclock to now
*>
begin integer array tail(1:10), ia(1:20);  
  integer res;  
  res:=monitor(42<*lookup*>, z, 0, tail);  
  if res=3 or res=6 then goto exit_changearea;  
  if i extract 1=1 then
  begin
    getzone6(z, ia);  
    tail(1):=ia(9);  
    if ia(13) = 6 and ia(15) - ia(14) = ia(16) then
    tail(1) := tail(1) + 1;
  end;  
  if i shift(-1) extract 1=1 then tail(6):=systime(7, 0, 0.0);  
  res:=monitor(44<*change*>, z, 0, tail);  
  if res=6 then res:=9;  
  exit_changearea:
  changearea:=res;  
end changearea;  
end

if ok.no
mode warning.yes

if warning.yes
(mode 0.yes
message changearea not ok
lookup changearea)
▶EOF◀