|
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: 10988 (0x2aec)
Notes: pts_type(SC)
Names: »DKRUT4.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DKRUT4.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DKRUT4.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DKRUT4.SC«
IDENT DKRUT4 UPD 80-02-25/CHST DDUM DDINIT PDIV ENTRY ENTJOB ENTRY GETJOB ENTRY SCHJOB ENTRY DELJOB ENTRY NEXJOB ENTRY PREJOB ENTRY OPNEBC ENTRY OPNNBC ENTRY READJB EXT WAIT EXT SFMTCH EXT FREESP EXT DISU EXT DLRCCH EXT RFRSP EXT WRFSP EXT DEPOOL EXT RETURN ENTRY DELBTC ENTRY NXJOB ENTRY NXBTH EXT RDACC EXT SCHPOO EXT RELEAS EXT COND EXT EMPTYT EXT RDDS EXT WRDS EJECT DUMM03 PROC FC DELBTC SET SWIT01 OPNEBC SET SWIT05 OPNNBC PERF WAIT BERR RETURN WUSOK SET SWIT04 MOVE STR6A,JOBNAME PERF SFMTCH,W3,RBUF,W10 SEARCH JOBCHAIN BNERR OPNN01 FOUND CBE DEBINW4,W9,OPNN99 B RETURN OPNN99 TBF SWIT05,OPNN02 NEW ENTRY JOBCHAIN B RETURN 'NOT IN SYSTEM' OPNN01 MOVE STR6A,BATCH PERF SFMTCH,DEBIN3,RBUF,W12 SEARCH BATCH BNERR OPNN03 BATCH FOUND CBE DEBINW4,W9,OPNN88 B RETURN OPNN88 TBF SWIT05,OPNN04 NEW ENTRY BATCHCHAIN B RETURN 'NOT IN SYSTEM' OPNN03 TBT SWIT05,OPNN06 OPEN EXISTING BATCH MOVE DEBINW4,W8 ALREADY DEFINED' B RETURN OPNN02 NEW ENTRY JOBCHAIN PERF FREESP,DEBIN4,FILINDUS BERR RETURN CBE DEBIN2,W10,OPNN08 FIRST JOBCHAIN-ENTRY XCOPY DEBIN2,W0,W2,RBUF,W6 GET OCCUPIED SPACE CBG DEBIN2,MAXOCC,OPNN07 NEW RECORD OPNN09 PERF ENTR,JOBNAME XCOPY RBUF,DEBIN2,W2,DEBIN4,W0 ADD DEBIN2,W2 XCOPY RBUF,W6,W2,DEBIN2,W0 PERF WRDS,DEBIN1 BERR RETURN MOVE DEBIN1,W0 PTR PREV B-CHAINREC MOVE DEBIN2,W10 OPNN13 MOVE RBUF,=X'424300' XCOPY RBUF,W2,W2,DEBIN1,W0 XCOPY RBUF,W4,W2,W0,W0 OPNN12 PERF ENTR,BATCH PERF FREESP,DEBIN1,FILINDUS BERR RETURN XCOPY RBUF,DEBIN2,W2,DEBIN1,W0 ADD DEBIN2,W2 PERF FREESP,CURSEC,FILINDUS BERR RETURN XCOPY RBUF,DEBIN2,W2,CURSEC,W0 ADD DEBIN2,W2 XCOPY RBUF,W6,W2,DEBIN2,W0 PERF WRDS,DEBIN4 BERR RETURN MOVE RBUF,HEX00 XCOPY RBUF,W6,W2,W10,W0 B OPNN16 OPNN08 FIRST SECTOR JOBCHAIN MOVE RBUF,=X'4A4300' MOVE DEBIN1,W3 XCOPY RBUF,W2,W2,W0,W0 OPNN10 XCOPY RBUF,W4,W2,W0,W0 MOVE DEBIN2,W10 B OPNN09 OPNN07 NEW SECTOR JOBCHAIN XCOPY RBUF,W4,W2,DEBIN4,W0 PERF WRDS,DEBIN1 BERR RETURN MOVE RBUF,=X'4A4300' XCOPY RBUF,W2,W2,DEBIN1,W0 MOVE DEBIN1,DEBIN4 PERF FREESP,DEBIN4,FILINDUS B OPNN10 OPNN04 NEW ENTRY BATCH-CHAIN XCOPY DEBIN2,W0,W2,RBUF,W6 GET OCC. SPACE CBG DEBIN2,MAXOCC,OPNN11 NEW RECORD MOVE DEBIN4,DEBIN1 B OPNN12 OPNN11 PERF FREESP,DEBIN4,FILINDUS BERR RETURN XCOPY RBUF,W4,W2,DEBIN4,W0 PERF WRDS,DEBIN1 BERR RETURN MOVE DEBIN2,W10 B OPNN13 OPNN06 OPEN EXISTING BATCH XCOPY DEBIN5,W0,W2,RBUF,DEBIN2 XCOPY DEBIN4,W0,W2,RBUF,W6 ADD DEBIN2,W2 XCOPY CURSEC,W0,W2,RBUF,DEBIN2 TBT SWIT01,OPNNDL MOVE DEBIN1,DEBIN5 B OPNN16 OPNNDL SUB DEBIN2,W10 SUB DEBIN4,W12 XCOPY RBUF,W6,W2,DEBIN4,W0 DLETE RBUF,DEBIN2,W12 PERF WRDS,DEBIN1 BERR DL10 CBG DEBIN4,W10,DL01 PERF DLRCCH,RBUF DL01 PERF RFRSP,DEBIN5,FILINDUS DL02 PERF RELEAS SWITCH PERF WAIT BERR DL02 PERF DISU,W3,CURSEC,RBUF BNERR DL03 CBE DEBINW4,=W'30',DL04 B DL10 DL04 MOVE RBUF,HEX00 MOVE DEBINW4,W0 DL03 XCOPY DEBIN5,W0,W2,RBUF,W4 PERF RFRSP,CURSEC,FILINDUS MOVE CURSEC,DEBIN5 CBNE DEBIN5,W0,DL02 DL10 MOVE WORK(W9),DEBINW4 SAVE ERRORCODE PERF WRFSP,FILINDUS WRITE FREESPACE MOVE DEBINW4,WORK(W9) RESTORE ERRORCODE B RETURN OPNN16 XCOPY STATSH,W0,W1,FILINDUS,W0 COPY STATSH,W1,W6,JOBNAME,W0 COPY STATSH,W7,W6,BATCH,W0 PERF DEPOOL,W9,DKBIN2,DKBIN3,STATSH BNERR EXIST IF IKAY, ALREADY OPEN MOVE DKBIN1,W1 MOVE DKBIN2,W1 PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A BERR RETURN PERF DEPOOL,W10,DKBIN1,DKBIN2,STATSH MOVE PINACC,DKBIN1 MOVE BPOOL(DKBIN1),HEX00 XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 TBT SWIT05,EXIBAT B RETURN EXIBAT PERF RDACC PERF RDDS,CURSEC CBNE DEBINW4,=W'30',ZWIHOP MOVE DEBINW4,W0 ZWIHOP B RETURN EXIST MOVE DEBINW4,=W'27' 'IN USE' B RETURN * * * * ENTJOB ENTER JOBDEF PERF WAIT BERR RETURN PERF READJB BNERR FOUNDJ CBE DEBINW4,=W'30',FIRST CBE DEBINW4,W9,NOTIN B RETURN FIRST MOVE DEBIN1,DEBIN3 SAVE RECORD NUMBER MOVE DEBIN3,W0 MOVE DEBINW4,W0 B FST1 NOTIN PERF FREESP,DEBIN1,W1 BERR RETURN FST1 MOVE SYSBUF,=X'4A440000000000C600' XCOPY SYSBUF,W2,W2,DEBIN3,W0 COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 PERF DISU,W2,DEBIN1,SYSBUF BERR RETURN CBE DEBIN3,W0,ENTRET LAST IN CHAIN PERF DISU,W1,DEBIN3,SYSBUF READ BERR RETURN XCOPY SYSBUF,W4,W2,DEBIN1,W0 PERF DISU,W2,DEBIN3,SYSBUF ENTRET B RETURN FOUNDJ COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 PERF DISU,W2,DEBIN3,SYSBUF B RETURN * * * GETJOB GET JOBDEF MOVE STR6A,DEINPUT GTJ020 PERF SCHPOO,=C'J ',STR6A,W7 SCAN POOL IB DEBIN4,GOTFRE,LOCKED SEARCH ON DISC CLEAR SWIT03 BNZ RDCHJ MOVE DEBIN1,W3 RDCHJ PERF WAIT BERR RETURN RDCNW PERF DISU,W1,DEBIN1,SYSBUF BNERR DATA CBE DEBINW4,=W'30',NOTEX B RETURN NOTEX MOVE DEBINW4,W9 'NOT EXISTENT' B RETURN DATA MOVE DEBIN2,=W'92' COPY STR6B,W0,W6,SYSBUF,DEBIN2 CALL EMPTYT,STR6B BNZ NOTEX CBE STR6A,STR6B,RDCHJF TBF SWIT03,GTJ010 MOVE STR6A,STR6B PERF RELEAS B GTJ020 GTJ010 XCOPY DEBIN1,W0,W2,SYSBUF,W4 CBE DEBIN1,W0,NOTEX B RDCNW RDCHJF TEST SWIT02 BNZ RETURN RETURN, IF SEARCH TBF SWIT03,GJ010 PERF SCHPOO,=C'J ',STR6B,W7 BOK GJ020 GJ010 MOVE DEBIN3,W1 MOVE DEBIN4,W1 PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A BNERR GTJOK MOVE DEBINW4,W13 'NO BUFFER FREE' B RETURN GTJOK COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 MOVE DKBIN1,W4 GETUNL MOVE DEBIN4,=W'82' COPY STRG10A,W1,W6,BPOOL(DEBIN3),DEBIN4 COPY JOBNAME,W0,W6,STRG10A,W1 GJ020 PERF DEPOOL,W6,PJOBCUR,DEBIN3,STRG10A PERF DEPOOL,DKBIN1,DEBIN3,DEBIN2,STRG10A MOVE PJOBCUR,DEBIN3 B RETURN LOCKED MOVE JOBNAME,STR6A MOVE DEBINW4,=W'26' B RETURN GOTFRE TEST, IF USED TBT SWIT02,LOCKED MOVE DKBIN1,W5 B GETUNL * * SCHJOB SEARCH JOBDEF SET SWIT02 B GETJOB * * DELJOB DELETE JOBDEF PERF WAIT PERF READJB BERR RETURN CLEAR SWIT04 PERF DLRCCH,SYSBUF TBF BOOL9,RETUR TBF BOOL8,RETUR MOVE SYSBUF,HEX00 PERF DISU,W2,W3,SYSBUF RETUR B RETURN * * NEXJOB GET NEXT JOBDEF MOVE DEBIN2,W4 B PRE01 * * PREJOB GET PREV JOBDEF MOVE DEBIN2,W2 PRE01 MOVE STR6A,JOBNAME DALI 79-04-24 MOVE DEBIN1,W3 CALL EMPTYT,JOBNAME BNZ BUFREL PERF READJB BERR RETURN XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN2 CBE DEBIN1,W0,NOTEX BUFREL MOVE STRG10A,=X'4A00' SET SWIT03 B RDCHJ * * * * * NXJOB GET NEXT JOBNAME SET SWIT01 NXBTH GET NEXT BATCHNAME SET SWIT04 CALL EMPTYT,JOBNAME BNZ FIRJOB MOVE STR6A,JOBNAME PERF SFMTCH,W3,RBUF,W10 BERR NOT TBF SWIT01,BANA ADD DEBIN2,W4 CBNG DEBIN2,DKBIN1,GTNAM RENER READ NEXT RECORD XCOPY DKBIN3,W0,W2,RBUF,W4 CBE DKBIN3,W0,NOT PERF RDDS,DKBIN3 BERR RETURN FIJONA XCOPY DEBIN1,W0,W2,RBUF,W6 CBNG DEBIN1,W10,NOT MOVE DEBIN2,W12 GTNAM TBF SWIT01,GTNAM1 COPY JOBNAME,W0,W6,RBUF,DEBIN2 B RETURN BANA CALL EMPTYT,BATCH BNZ FIRBA MOVE STR6A,BATCH PERF SFMTCH,DEBIN3,RBUF,W12 BERR NOT ADD DEBIN2,W6 CBG DEBIN2,DKBIN1,RENER GTNAM1 COPY BATCH,W0,W6,RBUF,DEBIN2 B RETURN FIRJOB PERF RDDS,W3 BOK FIJONA CBE DEBINW4,=W'30',NOT B RETURN FIRBA PERF RDDS,DEBIN3 BERR RETURN XCOPY DEBIN2,W0,W2,RBUF,W6 CBNG DEBIN2,W10,NOT MOVE DEBIN2,W12 B GTNAM1 NOT MOVE DEBINW4,W9 INDICATE 'NOT IN SYSTEM' B RETURN * * PEND EJECT * * READJB PROC MOVE DEBIN4,W3 REDJCH MOVE DEBIN3,DEBIN4 PERF DISU,W1,DEBIN3,SYSBUF BERR RETRED XCOPY DEBIN4,W0,W2,SYSBUF,W6 GET USED SPACE CBG DEBIN4,W10,REDJ10 JUMP IF EMPTY MOVE DEBINW4,=W'30' IDICATE FIRST RECORD EMPTY B RETRED REDJ10 MOVE DEBIN5,=W'92' COPY STR6A,W0,W6,SYSBUF,DEBIN5 CBE STR6A,JOBNAME,RETRED REDJ20 XCOPY DEBIN4,W0,W2,SYSBUF,W4 CBNE DEBIN4,W0,REDJCH MOVE DEBINW4,W9 RETRED PERF COND RET PEND * * ENTR PROC ITEM XCOPY RBUF,DEBIN2,W2,W0,W0 ADD DEBIN2,W2 COPY RBUF,DEBIN2,W6,ITEM,W0 ADD DEBIN2,W6 RET PEND * END