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

⟦084ac17f6⟧ 

    Length: 23614 (0x5c3e)
    Notes: pts_type(SC)
    Names: »DKSUBS.SC«

Derivation

└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
    └─⟦this⟧ »NJ-AMT/DKSUBS.SC«

PTS(SC)

	IDENT DKSUBS 	02.03.XXX.1
          DDUM   KMD08
          PDIV
 ENTRY RAREAD 
 ENTRY RAWRIT 
 ENTRY SQREAD 
 ENTRY SQWRIT 
 ENTRY ASSG 
 ENTRY RGREAD 
 ENTRY RADEL
 ENTRY GETBIT 
 ENTRY ERDK 
 ENTRY BACKUP 
 ENTRY RSTORE 
 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 
* 
*               ASSG - ASSIGN  ROUTINE
*        THE ROUTINE ATTEMPTS TO CONNECT THE SPECIFIED
*        DATASETNAME TO A VOLUMENAME. 
*-*        IT TRIES ON ALL VOLUMES CONNECTED. 
*          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,<DAT4ASETNAME>,<DATASETNR>
*          CALL:     PERF ASSG,<VOLUME>,<DSET>,<DATASET NO.>
* 
*********************************************************** 
* 
*-*ASSG PROC DK,DNR 
*-* MOVE SPBINW4,CBIN0 INITIATE 
*-* MOVE GSWBIN1,CBIN1
*-* DSC0 DK,CLOSE CLOSE FIRST 
* 
ASSG PROC VOL,DK,DNR
 MOVE SPBINW4,CBIN0 INITIATE
 MOVE GSWBIN1,VOL 
* 
	MOVE	ASFNAME,CFNAME(DNR)	MOVE DATASETNAME
ASSG10
 MOVE ASVOL,CVOL(GSWBIN1) 	MOVE VOLUMENAME
* 
 MOVE GSWBCD3,ASFNAME 
 CBE GSWBCD3,=D'0',ASSGRET
 MOVE GSWBCD3,ASVOL 
 CBE GSWBCD3,=D'0',ASSGRET
 DSC0 DK,CLOSE CLOSE FIRST
* 
 ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL
 BOK ASSGRET 	 IF OK, RETURN
*-* ADD GSWBIN1,CBIN1 
*-* CBG GSWBIN1,CBIN4,ASSGERR 
*-* MOVE ASVOL,=X'00' 
*-* CBNE CVOL(GSWBIN1),ASVOL,ASSG10 TRY ON NEW VOLUME 
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 
 CMP CBIN0,CBIN0
 RET
 PEND 
 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