|
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: 7522 (0x1d62)
Notes: pts_type(SC)
Names: »DEDI02.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DEDI02.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DEDI02.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DEDI02.SC«
IDENT DEDI02 PRR 1.0 79-06-19/AST DDUM DDINIT PDIV ENTRY ENTFMT ENTRY DELFMT ENTRY GETSYS ENTRY ENTSYS ENTRY PREFMT ENTRY NEXFMT ENTRY ENTTBL ENTRY DELTBL ENTRY ENTT01 ENTRY ENTCOR ENTRY ENTT03 ENTRY DELT01 EXT WAIT EXT SFMTCH EXT FREESP EXT DISU EXT RELEAS EXT NXPRFM EXT DLRCCH EXT RFRSP EXT GETT01 EXT EMPTYT EXT WRFSP EXT COND EXT ALGO EJECT DUMM02 PROC FC * ENTFMT ENTER FORMAT PERF WAIT BERR RETURN MOVE STR6A,FORMAT PERF FREESP,DEBIN1,W1 BERR RETURN MOVE DEBIN5,W4 RDCHAIN MOVE DEBIN3,DEBIN5 PERF DISU,W1,DEBIN3,SYSBUF READ FORMATCHAIN BNERR FST3 CBE DEBINW4,=W'30',FFIRST B RETURN FST3 XCOPY DEBIN4,W0,W2,SYSBUF,W6 OCCUPIED SPACE TO DEBIN4 CBG DEBIN4,=W'180',RENEXT NO SPACE FOR MORE ENTRIES? ADDENTRY XCOPY STRG10A,W0,W2,W0,W0 STATUS = '00' COPY STRG10A,W2,W6,FORMAT,W0 NAME XCOPY STRG10A,W8,W2,DEBIN1,W0 FREESPACE-RECNR = PTR TO FMT COPY SYSBUF,DEBIN4,W10,STRG10A,W0 INSERT ENTRY TO CHAIN ADD DEBIN4,W10 XCOPY SYSBUF,W6,W2,DEBIN4,W0 SET OCCUPIED SPACE PERF DISU,W2,DEBIN5,SYSBUF B WRTFMT FFIRST MOVE DEBIN3,W0 MOVE DEBINW4,W0 B FFST01 RENEXT XCOPY DEBIN5,W0,W2,SYSBUF,W4 GET LINK TO NEXT CBNE DEBIN5,W0,RDCHAIN PERF FREESP,DEBIN5,W1 BERR RETURN XCOPY SYSBUF,W4,W2,DEBIN5,W0 PERF DISU,W2,DEBIN3,SYSBUF FFST01 MOVE DEBIN4,W10 MOVE SYSBUF,=X'464300' SET SCTR-IDENTIFICATION XCOPY SYSBUF,W2,W2,DEBIN3,W0 SET LINK TO PREV XCOPY SYSBUF,W4,W2,W0,W0 LINK TO NEXT = 0 B ADDENTRY WRTFMT MOVE DEBIN3,PINDFR PERF ALGO,W1 SET FORMAT-IDENTIFICATION NEGST MOVE DEBIN2,W0 XCOPY DEBIN2,W1,W1,RPOOL(DEBIN3),W8 GET LINK NEXT BUF XCOPY SYSBUF,W8,W2,RPOOL(DEBIN3),W17 CBE DEBIN2,W0,NOMOREC LAST RECORD? PERF FREESP,DEBIN4,W1 BERR RETURN COP XCOPY SYSBUF,W4,W2,DEBIN4,W0 SET LINK NEXT REC COPY SYSBUF,W10,W188,BPOOL(DEBIN3),W0 PERF DISU,W2,DEBIN1,SYSBUF BERR RETURN TBF SWIT01,CO10 B RETURN CO10 MOVE DEBIN3,DEBIN2 MOVE DEBIN1,DEBIN4 MOVE SYSBUF,=X'4600' B NEGST NOMOREC MOVE DEBIN4,W0 SET SWIT01 B COP * * * * * NEXFMT GET NEXT FORMAT SET SWIT03 * * PREFMT MOVE FRMTPNTR,W0 CALL EMPTYT,FORMAT BZ RRECNX MOVE RNRFMCH,W4 MOVE PTRFMCH,W0 TBT SWIT03,RRECNX ADD PTRFMCH,W20 RRECNX CBNE RNRFMCH,W0,RRECNZ MOVE STR6A,FORMAT PERF SFMTCH,W4,SYSBUF,W10 BERR RETURN MOVE RNRFMCH,DEBIN1 MOVE PTRFMCH,DEBIN2 SUB PTRFMCH,W8 RRECNZ PERF WAIT BERR RETURN RRECNY PERF DISU,W1,RNRFMCH,SYSBUF BNERR RREC01 CBE DEBINW4,=W'30',OUTOFRAN B RETURN OUTOFRAN MOVE DEBINW4,W9 MOVE RNRFMCH,W0 B RETURN RREC01 XCOPY DEBIN1,W0,W2,SYSBUF,W6 TBF SWIT03,RREC02 ADD PTRFMCH,W10 CBE PTRFMCH,DEBIN1,RREC03 RREC07 MOVE DEBIN1,PTRFMCH B RREC04 RREC03 MOVE DEBIN1,W4 RREC05 XCOPY DEBIN5,W0,W2,SYSBUF,DEBIN1 CBE DEBIN5,W0,OUTOFRAN MOVE RNRFMCH,DEBIN5 TBF SWIT03,RRECNY MOVE PTRFMCH,W0 B RRECNY RREC02 CBL PTRFMCH,W20,RREC06 SUB PTRFMCH,W10 B RREC07 RREC06 MOVE PTRFMCH,=W'190' MOVE DEBIN1,W2 B RREC05 RREC04 ADD DEBIN1,W2 MOVE STRG10A,=X'4600' COPY STRG10A,W1,W6,SYSBUF,DEBIN1 COPY FORMAT,W0,W6,SYSBUF,DEBIN1 MOVE STR6A,FORMAT B NXPRFM * * * DELFMT DELETE FORMAT PERF WAIT BNOK RETURN MOVE STR6A,FORMAT CLEAR SWIT04 PERF SFMTCH,W4,SYSBUF,W10 BERR RETURN MOVE PINACC,DEBIN1 SUB DEBIN2,W6 DEBIN2=PTR TO ENTRY IN REC XCOPY DEBIN1,W0,W2,SYSBUF,W6 DEBIN1=OCC. SPACE DLETE SYSBUF,DEBIN2,W10 SUB DEBIN1,W10 XCOPY SYSBUF,W6,W2,DEBIN1,W0 SET OCC SPACE CBG DEBIN1,W10,DELF1 CLEAR SWIT04 PERF DLRCCH,SYSBUF BERR RETURN DELF1 PERF DISU,W2,PINACC,SYSBUF MOVE DEBIN2,DEBIN3 PERF DISU,W1,DEBIN2,SYSBUF BERR RETURN PERF ALGO,W2 BNERR DELF2 DELF3 MOVE DEBINW4,W9 B RETURN DELF2 XCOPY DEBIN1,W0,W2,SYSBUF,W4 PERF RFRSP,DEBIN2,W1 DELF CBE DEBIN1,W0,RETURN PERF DISU,W1,DEBIN1,SYSBUF BERR RETURN COPY STR2A,W0,W2,SYSBUF,W0 CBNE STR2A,=X'4600',DELF3 PERF RFRSP,DEBIN1,W1 XCOPY DEBIN1,W0,W2,SYSBUF,W4 B DELF * * * ENTSYS PERF WAIT BERR RETURN MOVE SYSBUF,=X'535600' MOVE DEBIN1,W10 MOVE DEBIN2,W1 CENT COPY SYSBUF,DEBIN1,W18,SYSV(DEBIN2),W0 ADD DEBIN1,W18 ADD DEBIN2,W1 CBL DEBIN2,W11,CENT PERF DISU,W2,W5,SYSBUF B RETURN * * GETSYS PERF DISU,W1,W5,SYSBUF BOK NNODA MOVE SYSBUF,HEX00 MOVE DEBINW4,W0 NNODA MOVE DEBIN1,W10 MOVE DEBIN2,W1 CGET COPY SYSV(DEBIN2),W0,W18,SYSBUF,DEBIN1 ADD DEBIN1,W18 ADD DEBIN2,W1 CBL DEBIN2,W11,CGET B RETURN * * ENTTBL SET SWIT01 B GETT01 ENTT01 MOVE SYSBUF,=X'5400' ENTCOR COPY SYSBUF,W8,W2,RPOOL(PINDTB),W17 COPY SYSBUF,W10,W188,BPOOL(PINDTB),W0 PERF DISU,W2,DEBIN4,SYSBUF B RETURN ENTT03 PERF FREESP,DEBIN2,W1 BERR RETURN XCOPY SYSBUF,W4,W2,DEBIN2,W0 PERF DISU,W2,DEBIN4,SYSBUF BERR RETURN MOVE DEBIN4,DEBIN2 B ENTT01 * * * DELTBL SET SWIT02 B GETT01 DELT01 XCOPY SYSBUF,DEBIN5,W2,W0,W0 PERF DISU,W2,W7,SYSBUF BNOK RETURN DELT02 PERF DISU,W1,DEBIN1,SYSBUF BNOK RETURN XCOPY DEBIN2,W0,W2,SYSBUF,W4 PERF RFRSP,DEBIN1,W1 BNOK RETURN CBE DEBIN2,W0,RETURN MOVE DEBIN1,DEBIN2 B DELT02 * * * * 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