DataMuseum.dk

top - download

    Length: 1984 (0x7c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »DETERMIN.K«

└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
    └─⟦this⟧ »DETERMIN.K« 
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
    └─⟦this⟧ »DETERMIN.K« 

Mikados K File

(*$P*)
PROCEDURE DETERMIN;
VAR BANK:INTEGER;
(*FASTLÆGGER VÆRDIEN AF ALLE CURRENTVARIABLE*)
BEGIN
  (*$R-*)
  FUSK(2):=FUSK(2)+20;
  BANK:=AFSENDER^ DIV 256;
  CURRUSER:=1;
  WHILE BANK MOD 2=0 DO
  BEGIN
    CURRUSER:=CURRUSER+1;
    BANK:=BANK DIV 2
  END;
  (*$XT*) WRITELN('CURRUSER ',CURRUSER:5); (*$X-*)
  FUSK(2):=FUSK(2)-20;
  (*$R+*)
  CURRFUNC:=BESKED.KOMMANDO;
  IF CURRFUNC IN (.ÅBEN..INITIER,RETURNHEAD,RETURNSTAT.) THEN
  BEGIN
    IF CURRFUNC IN (.ÅBEN,LUK,INITIER.) THEN                     
      CURRFILE:=BESKED.INFO                                  
    ELSE                                                         
    BEGIN                                                        
      (*$R-*)                                                    
      FUSK(1):=BESKED.INFO;                                      
      (*$R+*)                                                    
      IF CURRFUNC=RETURNSTAT THEN STATUSER:=REC^(0) ELSE CURRFILE:=REC^(0)
    END;                                                         
    IF CURRFUNC<>RETURNSTAT THEN
    BEGIN
      IF HEADBASE(CURRFILE)=0 THEN                          
      IF (CURRFUNC=ÅBEN) AND (AVAILHEAD<=MAXOPENFILES) THEN   
      BEGIN                                                   
        HEADBASE(CURRFILE):=AVAILHEAD;                   
        AVAILHEAD:=FILEHEAD(AVAILHEAD).NBUC                   
      END                                                     
      ELSE BEGIN IF CURRFUNC=ÅBEN THEN IER:=-20 ELSE
                 IER:=-3;EXIT(DETERMIN) END;  
      CURRHEAD:=HEADBASE(CURRFILE)         
    END
  END
END;