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

⟦83652574a⟧ 

    Length: 30356 (0x7694)
    Notes: pts_type(SC)
    Names: »DKSUBS.SC«

Derivation

└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
    └─⟦this⟧ »NJ-AMT/DKSUBS.SC« 
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
    └─⟦this⟧ »NJ-AMT/DKSUBS.SC«

PTS(SC)

 IDENT DKSUBS 830915 EV 
			830915, PROBLEMS WITH FIELDS 
			LONGER THAN 11 BYTES,
			SOLVED BY INTRODUCING
			GSWBIN7 IN RGREAD
          DDUM   KMD08
          PDIV
 ENTRY RAREAD 
 ENTRY RAWRIT 
 ENTRY SQWRIT 
 ENTRY ASSG 
 ENTRY RGREAD 
 ENTRY RADEL
 ENTRY GETBIT 
 ENTRY BACKUP 
 ENTRY RSTORE 
 ENTRY KFREAD 
 ENTRY KFWRIT 
 ENTRY WAITF
 EXT MASK 
 EXT PACKCL 
 EXT PACKST 
 EXT SETKRE 
 EXT SETDEB 
 EXT SPERR
 EXT WRITJT 
 EXT LAMPON 
 EXT WRITLO 
          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 
*********************************************************** 
* 
*               ASSG - ASSIGN  ROUTINE
*        THE ROUTINE ATTEMPTS TO CONNECT THE SPECIFIED
*        DATASETNAME TO A VOLUMENAME. 
*          ON SPECIFIED VOLUME
* 
*        ALTERED PARAMETERS: NONE 
* 
*        ALTERED FIELDS: SPBINW4 - OK - DATASETNR    NOK - 21 
*                        GSWBIN1 - OK - ATTEMPTNR    NOK - 5
*                        ASFNAME - DATASETNAME
*                        ASVOL   - OK - VOLUMENAME   NOK - X'00'
*                        GTWBCD1 - OK - N/A          NOK - ATTEMPT+1
*                        GTWBCD2 - OK - N/A          NOK - DATASETNR
* 
*       C/R: OK - 0, NOK - 4
* 
*          CALL:     PERF ASSG,<VOLUME>,<DSET>,<DATASET NO.>
* 
*********************************************************** 
* 
* 
ASSG PROC VOL,DK,DNR
 MOVE SPBINW4,CBIN0 INITIATE
 MOVE GSWBIN1,VOL 
* 
ASSG10
 MOVE ASVOL,CVOL(GSWBIN1) 	MOVE VOLUMENAME
* 
 MOVE GSWBCD3,ASVOL 
 CBE GSWBCD3,=D'0',ASSGRET
 MOVE GTWBCD1,ASVOL 
 MOVE GTWBCD2,DNR 
 EDIT ASFNAME,FDFMT 
 DSC0 DK,CLOSE CLOSE FIRST
* 
 ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL
 BOK ASSGRET 	 IF OK, RETURN
ASSGERR 
*                                    ASSIGNMENT IMPOSSIBLE
 MOVE GTWBCD1,SPBINW4 	(MORE THEN 3 RETRIES)
 MOVE SPBINW4,CBIN21
 MOVE GTWBCD2,DNR 
 MOVE GSWSTR9,=C'ASSIGN ' 
 PERF SPERR 	'ASSIGN ERROR' 
 CMP CBIN1,CBIN0
 RET
ASSGRET 
 CLEAR CDKOFF 
 CMP CBIN0,CBIN0
 RET
 PEND 


FDFMT FRMT
 FCOPY ='FD'
 FMEL '999PPP',GTWBCD1
 FMEL '999',GTWBCD2 
 FMEND
 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