DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

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

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦52bc9dfc1⟧ 

    Length: 30040 (0x7558)
    Notes: pts_type(SC)
    Names: »DKSUBS.SC«

Derivation

└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
    └─⟦this⟧ »REMIT2/DKSUBS.SC«

PTS(SC)

 IDENT DKSUBS 830421 NJ 
          DDUM   KMD08
          PDIV
 ENTRY RAREAD 
 ENTRY RAWRIT 
 ENTRY SQWRIT 
 ENTRY RGREAD 
 ENTRY RADEL
 ENTRY GETBIT 
 ENTRY BACKUP 
 ENTRY RSTORE 
 ENTRY KFREAD 
 ENTRY KFWRIT 
 ENTRY WAITF
 EXT ASSG 
 EXT MASK 
 EXT PACKCL 
 EXT PACKST 
 EXT SETKRE 
 EXT SETDEB 
 EXT SPERR
 EXT WRITJT 
 EXT LAMPON 
          INCLUDE EQUATE
**************************************************
* 
*         THIS MODULE CONTAINS ALL DISC HANDLING
*         ROUTINES: RANDOM READ/WRITE 
*                   SEQ    READ/WRITE 
*                   ERROR HANDLING
*                   ASSIGN ROUTINE
*                   DISK ERROR ROUTINE
*                   GET STATUS FROM EXTENDED STATUSWORD 
*                   READ RECORD FROM REGSET 
**************************************************
 EJECT
**************************************************
* 
*         RAREAD - RANDOM READ ROUTINE
*    CALL:     PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR>
*    RETURN:
*              CR=0 > OK    CR = 4   NOK OK 
* 
*    IN CASE OF ERROR  ERDK IS  CALLED
*    EXCLUSIVE ACCES IS RELEASED IF  GTEXFLAG IS FALSE
* 
*    ALTERED PARAMETERS: BUF      OK- WANTED RECORD,    NOK- UNKNOWN
* 
*    ALTERED FIELDS:   GSWBIN1 - NBR. OF CHAR. TRANSFERRED

Full view