|
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: 11110 (0x2b66)
Notes: pts_type(SC)
Names: »DEDI03.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DEDI03.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DEDI03.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DEDI03.SC«
IDENT DEDI03 PRR 1.0 79-07-24/AST * CHANGES MADE. LINE 323 INSERTED BY DALI. DDUM DDINIT PDIV ENTRY ENTJOB ENTRY GETJOB ENTRY SCHJOB ENTRY DELJOB ENTRY NEXJOB ENTRY PREJOB ENTRY OPNEBC ENTRY OPNNBC EXT WAIT EXT SFMTCH EXT FREESP EXT ENTR EXT DISU EXT DLRCCH EXT RFRSP EXT DEPOOL EXT POOL EXT RDACC EXT READJB EXT SCHPOO EXT RELEAS EXT EMPTYT EXT WRFSP EXT COND EXT RDDS EXT WRDS EXT CHANFC * * ATTACH EQU X'0E' DETACH EQU X'0F' EJECT DUMM03 PROC FC 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 RETURN 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 RETURN 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 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 PERF POOL 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,W11 '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 DEBIN3,W0 MOVE DEBIN1,W3 MOVE DEBINW4,W0 B FST1 NOTIN PERF FREESP,DEBIN1,W1 BERR RETURN XCOPY SYSBUF,W4,W2,DEBIN1,W0 PERF DISU,W2,DEBIN3,SYSBUF BERR RETURN FST1 MOVE SYSBUF,=X'4A4400' XCOPY SYSBUF,W2,W2,DEBIN3,W0 XCOPY SYSBUF,W4,W2,W0,W0 FOUND1 COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 PERF DISU,W2,DEBIN1,SYSBUF B RETURN FOUNDJ MOVE DEBIN1,DEBIN3 B FOUND1 * * * 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 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,DKBIN1,DEBIN3,DEBIN2,STRG10A MOVE PJOBCUR,DEBIN3 B RETURN LOCKED MOVE DEBINW4,W12 B RETURN GOTFRE TEST, IF USED TBT SWIT02,SCH01 MOVE DKBIN1,W5 B GETUNL SCH01 MOVE DEBINW4,W11 'USED' B RETURN * * SCHJOB SEARCH JOBDEF SET SWIT02 B GETJOB * * DELJOB DELETE JOBDEF PERF WAIT PERF READJB BERR RETURN CLEAR SWIT04 PERF DLRCCH,SYSBUF TBF BOOL9,RETURN TBF BOOL8,RETURN MOVE SYSBUF,HEX00 PERF DISU,W2,W3,SYSBUF B RETURN * * NEXJOB GET NEXT JOBDEF MOVE DEBIN2,W13 B PRE01 * * PREJOB GET PREV JOBDEF MOVE DEBIN2,W11 PRE01 MOVE STR6A,JOBNAME DALI 79-04-24 MOVE DEBIN1,W3 CALL EMPTYT,JOBNAME BNZ BUFREL XCOPY DEBIN1,W0,W2,RPOOL(PJOBCUR),DEBIN2 CBE DEBIN1,W0,NOTEX PERF DEPOOL,W6,PJOBCUR,DEBIN3,STRG10A BUFREL MOVE STRG10A,=X'4A00' SET SWIT03 B RDCHJ * * * * 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 END