|
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: 4680 (0x1248)
Notes: pts_type(SC)
Names: »P1370.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »TOOL/P1370.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »TOOL/P1370.SC«
IDENT P1370 * 790220 C.EKERT * * THIS SUBROUTINE COPIES THE CONTENTS OF ONE ENTIRE DISK TO ANOTHER DIS * THE RECEIVING DISK IS GIVEN A NEW VOLUMENAME WHICH IS PASSED AS * A PARAMETER IN THE CALLING SEQUENCE. * * CALLING SEQUENCE: PERF P1370,INFC,OUFC,OUVLNM * PARAMETERS: * <INFC> * BIN * FILECODE FOR INPUT DISK ( MOTHER ) * <OUFC> * BIN * FILECODE OF RECEIVING DISK ( DAUGHTER ) * <OUVLNM> * LIT * VOLUME NAME GIVEN TO THE RECEIVING DISK. ( DAUGHTER ) * * ROUTINE ADAPTED TO COPY A 5M DISK. * * DDUM FORCEB PDIV ENTRY P1370 EXT CHANFC EXT MASK EXT IOREPL EJECT P1370 PROC INFC,OUFC,$OUVLNM MOVE STRW06,$OUVLNM MOVE IOWK1,W0 * INIT. SECTOR COUNTER P13705 CALL CHANFC,DKFILE,INFC PERF DKIO,W0 BNE P1370E CBNE IOWK1,W8,P1370A COPY BUFFER,W2,W6,STRW06,W0 P1370A SUB IOWK1,W8 CALL CHANFC,DKFILE,OUFC PERF DKIO,W1 BNE P1370E CBNE IOWK1,=W'13056',P13705 P1370E RET PEND EJECT DKIO PROC X MOVE BINWK3,=X'828F' * DK-MASK MOVE BINWK1,W0 * INIT. RECORD/BLOCK COUNT. MOREIO MOVE BINWK2,=W'410' CBE X,W0,READ WRITE CALL IOREPL,DKFILE,X'85',BUFFER,BINWK1,BINWK2,IOWK1 CALL IOREPL,DKFILE,X'91',BUFFER,BINWK1,BINWK2,IOWK1 B ANALYS READ CALL IOREPL,DKFILE,X'91',BUFFER,BINWK1,BINWK2,IOWK1 ANALYS XSTAT DKFILE,BINWK2 CALL MASK,BINWK2,BINWK3 BNE ERROR ADD IOWK1,W1 * INCR. SECTOR COUNT. ADD BINWK1,=W'410' CBNE BINWK1,=W'3280',MOREIO ERROR RET PEND END