DataMuseum.dk

Presents historical artifacts from the history of:

DANOSI

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DANOSI

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦9c5842f04⟧ TextFile

    Length: 953 (0x3b9)
    Types: TextFile
    Names: »HHA.PAS«

Derivation

└─⟦02956c927⟧ Bits:30010510 DVBS1.SW2114.src.2.14-1 SW2114 REAL #1/4 TIME PASCAL SOURCE REL 2.14
    └─⟦this⟧ »RTP\HHA.PAS« 
└─⟦4f587ad96⟧ Bits:30010518 DVBS1.SW2114.src.2.7-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
    └─⟦this⟧ »RTP\HHA.PAS« 
└─⟦a2a9e188c⟧ Bits:30010526 DVBS1.SW2114.src.2.6-4 RTP Compiler Source SW2104+SW2114 Disk 1 92.02.03 HEJ HHA
    └─⟦this⟧ »RTP\HHA.PAS« 
└─⟦b607d6035⟧ Bits:30010532 RTP compiler Source 1 2.14 26/9(?)-92 DVBS1.SW2114.src.2.14-8
    └─⟦this⟧ »HHA.PAS« 
└─⟦fd2665794⟧ Bits:30010523 DVBS1.SW2114.src.2.6-1 RTP compiler source SW2104+SW2114 Disk#1 30/1-92 HHA
    └─⟦this⟧ »RTP\HHA.PAS«

TextFile

\r
  Procedure ExtPutParameters(Lab : St_Address;Incomment : true);\r
  VAR Ptr : St_ElemPtr;\r
      help : Integer;\r
      typeAddr,Addr : St_Address;\r
\r
\r
  Procedure PutParamKind(code : Codes;TypeRef : St_Address);\r
  VAR Size : Integer;\r
      Typ     : Integer;\r
  BEGIN\r
   ExtParamKind(Code,TypeRef,Typ,Size);\r
   PutInteger(typ);\r
   PutInteger(Size);\r
  END;\r
\r
  BEGIN\r
    help := ExtNoOfParams(Lab);\r
    PutInteger(Help);\r
    St_Retrieve(Lab,Ptr);\r
    Addr := Ptr^.ListRef;\r
    IF Ptr^.St_Kind = CFunction THEN\r
      BEGIN\r
        PutParamKind(CFunction,Ptr^.TypeRef);\r
      END;\r
    WHILE Not Equal_Addr(Addr,St_StopAddr) DO\r
     BEGIN\r
       st_Retrieve(Addr,ptr);\r
       Addr := Ptr^.ListRef;\r
       TypeAddr := Ptr^.TypeRef;\r
       PutParamKind(Ptr^.St_Kind,TypeAddr);\r
       st_retrieve(TypeAddr,ptr);\r
       IF Ptr^.Type_Mode = Open_fam THEN\r
          PutParamKind(cInspectParam,Ptr^.st_Family_ref);\r
     END;\r
  END;\r
«eof»