|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4786 (0x12b2)
Notes: pts_type(SC)
Names: »DEDISC.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DEDISC.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DEDISC.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DEDISC.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEDISC.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DEDISC.SC«
IDENT DEDISC REL 10.0 80-04-11 80-02-11/CHST * * ************************************************************************ * * * ALL COMMENTS TO DEDISC ARE FOUND IN MODULE * * D E D I C O M M * * ************************************************************************ * * DDUM DEDDIV PDIV ENTRY DEDISC ENTRY COND ENTRY RELEAS ENTRY SCHPOO ENTRY RETURN ENTRY WAIT ENTRY STRT01 * EXT DEPOOL EXT WRFSP EXT CHANFC EXT CLSBTH EXT GETFMT EXT SCHFMT EXT WRICUR EXT GTNEXT EXT GTPREV EXT DLCURR EXT WRIACC EXT WRTCO EXT GETTBL EXT DELBTC EXT RECURR EXT ENTJOB EXT GETJOB EXT SCHJOB EXT DELJOB EXT ENTFMT EXT DELFMT EXT GETSYS EXT ENTSYS EXT NEXJOB EXT PREJOB EXT PREFMT EXT NEXFMT EXT ENTTBL EXT DELTBL EXT OPNEBC EXT OPNNBC EXT NXJOB EXT NXBTH * * ATTACH EQU X'0E' DETACH EQU X'0F' EJECT DEDISC PROC FC * * BRANCH TO PROGRAM INDICATED BY FC * PBIN FC CLEAR SWIT01 CLEAR SWIT02 CLEAR SWIT03 CLEAR SWIT05 CLEAR SWIT07 CLEAR SWITFS CLEAR SW95PR MOVE DEBINW4,W0 STRT01 IB FC C0000000000000 ENTJOB ENTER JOBDEF C GETJOB GET JOBDEF C DUMMY C SCHJOB SEARCH JOBDEF C DELJOB DELETE JOBDEF C OPNNBC OPEN NEW BATCH C OPNEBC OPEN EXISTING BATCH C CLSBTH CLOSE BATCH C ENTFMT ENTER FORMAT C GETFMT GET FORMAT C DUMMY C SCHFMT SEARCH FORMAT C DELFMT DELETE FORMAT C WRICUR WRITE CURRENT DATA-SECTOR C GTNEXT GET NEXT DATA-SECTOR C GTPREV GET PREVIOUS DATA-SECTOR C DLCURR DELETE CURRENT DATARECORD C WRIACC WRITE ACCUMULATOR-RECORD C GETSYS GET SYSTEM-VARIABLES C ENTSYS ENTER SYSTEM-VARIABLES C NXJOB GET NEXT JOBNAME C DUMMY GET PREVIOUS JOBNAME C WRTCO WRITE SECTOR (CORR) C GETTBL GET TABLE C DELTBL DELETE TABLE C ENTTBL ENTER TABLE C DELBTC DELETE BATCH C DUMMY GET NO OF FREESPACES C NEXJOB GET NEXT JOBDEFINITION C PREJOB GET PREVIOUS JOBDEF C NEXFMT GET NEXT FORMAT C PREFMT GET PREVIOUS FORMAT C RECURR READ CURRENT SCTR C NXBTH GET NEXT BATCHNAME C DUMMY GET PREV BATCHNAME EJECT * DUMMY RETURN TBF SWITFS,RETUNF PERF WRFSP,W1 RETUNF PERF RELEAS CBNE DEBINW4,W0,RETUN9 TBF SW95PR,RETUN9 MOVE DEBINW4,=W'-1' RETUN9 PERF COND RET PEND EJECT EJECT * * SET CONDITION-REGISTER * COND PROC CBL DEBINW4,W0,CON1 CBE DEBINW4,W0,CON0 CMP W1,W2 RET CON1 CMP W2,W1 RET CON0 CMP W1,W1 RET PEND * * WAIT PROC SUBROUTINE WAIT TBT SWITWT,WARE MOVE DEBINW4,W0 CLEAR SWIT08 MOVE DKBIN1,=X'51' CALL CHANFC,DISK,DKBIN1 DSC1 DISK,ATTACH,W128 BNERR WARE2 MOVE DEBINW4,W3 WARE PERF COND RET WARE2 SET SWITWT SWITCH B WARE * * PEND RELEAS PROC SUBROUTINE RELEAS CLEAR SWITWT BZ RELRET MOVE DKBIN1,=X'51' CALL CHANFC,DISK,DKBIN1 DSC1 DISK,DETACH,W0 RELRET RET PEND * * * SUBROUTINE SCHPOO, SEARCH POOL * SCHPOO PROC IND,STRG,WX PLIT IND PSTRG STRG PBIN WX MOVE STRG10A,IND COPY STRG10A,W1,W6,STRG,W0 PERF DEPOOL,WX,DEBIN3,DEBIN4,STRG10A RET PEND END