|
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: 6318 (0x18ae)
Notes: pts_type(SC)
Names: »CRESUD.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/CRESUD.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/CRESUD.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/CRESUD.SC«
IDENT CRESUD UPD 80-03-19/CHST ****************** * * * CREATE FILES * * * ****************** DDUM DDINIT PDIV ENTRY CRESUD * EXT DECLRA EXT CLOFIL EXT CHVNAM EXT CREFIL EXT DSKERR EXT RDSECT EXT OPENF EJECT CRESUD PROC ************************************ * NO. OF FREE SECTORS ON VOLUME * ************************************ MOVE FRESEC,W0 * MOVE BIN1,W0 SECTOR NO. CALL RDSECT,DISK,BIN1,SYSBUF READ VOLUME-LABEL XCOPY BIN1,W0,W2,SYSBUF,W10 VTOC BASE MOVE DKBIN2,=W'46' XCOPY DKBIN1,W0,W2,SYSBUF,DKBIN2 C30 CALL RDSECT,DISK,BIN1,SYSBUF READ ONESECTOR MOVE BIN6,W1 MOVE BIN5,W2 MOVE BIN3,W0 C40 XCOPY BIN7,W0,W2,SYSBUF,BIN3 FIRST WORD IN NO OF FS REC CBNE BIN7,W0,C80 OWERFLOW IF NOT ZERO XCOPY BIN7,W0,W2,SYSBUF,BIN5 ADD FRESEC,BIN7 BOFL C80 BN C80 CBE BIN6,=W'32',C50 ADD BIN5,W8 ADD BIN6,W1 ADD BIN3,W8 B C40 C50 SUB DKBIN1,W1 BZ C90 ADD BIN1,W1 B C30 C80 MOVE FRESEC,=W'32767' MAX NO OF FREE SPACE REC ALL C90 CBE FTYPE,=D'2',F40 IF USERFILE CBE FTYPE,=D'3',F30 IF USERDEF.FILE ***************** * SYSTEMFILE * ***************** MOVE FILNAM,SYSFIL ATTFMT FSYS F10 SET DEPROMPT F15 PERF DECLRA IB DEBINW2,F15,ERR99,F60 B F10 ********************** * USERDEFINED FILE * ********************** F30 ATTFMT FUDEF B F10 EJECT ************** * USERFILE * ************** F40 PERF CLOFIL CALL OPENF,DISK,FILECODE(W1),SYSBUF,SYSFIL,VOLNAM BOK F50 SYSFILE EXISTS * SYSFIL MUST EXIST ON SYSVOL CMP VOLNAM,SYSVOL BE ERR9 F50 PERF CLOFIL MOVE FILNAM,USEFIL ATTFMT FUSE SET DEPROMPT F55 PERF DECLRA IB DEBINW2,F55,ERR99,F60 B F50 EJECT F60 ************************* * CHANGE VOLUME-NAME * * TO:X'171717171717' * ************************* MOVE USELEN,=W'255' PERF CHVNAM,COPNAM MOVE BIN3,NOREC XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE CODE ERASE 0,W1,W5 MOVE STR1A,=C'S' XCOPY PBLOCK,W6,W1,STR1A,W0 F.ORG XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME COPY PBLOCK,W16,W6,COPNAM,W0 VOL-NAME 1 MOVE BIN1,=W'49' XCOPY PBLOCK,BIN1,W1,W1,W1 BF MOVE BIN2,=W'50' XCOPY PBLOCK,BIN2,W2,USELEN,W0 RECORD LENGTH CBE FTYPE,=D'2',F70 IF USERFILE XCOPY PBLOCK,BIN2,W2,SYSLEN,W0 CBE FTYPE,=D'1',F80 IF SYSTEMFILE * USERDEFINED FILE * MOVE BIN4,BLFACT XCOPY PBLOCK,BIN1,W1,BIN4,W1 BLOCK.FACTOR MOVE BIN4,RSIZE XCOPY PBLOCK,BIN2,W2,BIN4,W0 RECORD LENGTH B F80 * F70 MOVE BIN1,BLFACT MUL BIN3,BIN1 USERFILE EJECT F80 MOVE BIN1,=W'56' S-FILE XCOPY PBLOCK,BIN1,W2,BIN3,W0 NO. OF RECORDS MOVE BIN1,=W'54' XCOPY PBLOCK,BIN1,W2,W0,W0 NIF MOVE BIN1,=W'52' XCOPY PBLOCK,BIN1,W2,W0,W0 KA CALL CREFIL,PBLOCK,BPOOL(W12),BPOOL(W1),RETCOD * * F99 RET PEND * * ERR9 PERF DSKERR,W9 'SYSTEMFILE NOT CREATED' ERR99 MOVE DEBINW4,W99 IND. ERROR B F99 EJECT * FSYS FRMT SYSTEM-FILE FSL FCOPY =C'SYSTEM' FTAB 7 FCOPY =C'FILE' FNL FCOPY =C'NO.' FTAB 5 FCOPY =C'OF RECORDS:' FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=3 NO. OF RECORDS FMEL 'ZZZZX',NOREC FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND * FUSE FRMT USER-FILE FSL FCOPY =C'USER' FTAB 5 FCOPY =C'FILE' FNL FCOPY =C'NO. OF SECTORS/RECORD:' FKI 23,MINL=1,MAXL=1,ME,NEOI,REWRT,APPL=12 FMEL 'ZZX',BLFACT FLINK FNOREC FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND * FUDEF FRMT USERDEFINED-FILE FSL FCOPY =C'USERDEFINED' FTAB 13 FCOPY =C'FILE' FNL FCOPY =C'FILE' FTAB 5 FCOPY =C'NAME:' FKI 11,MINL=1,MAXL=8,ALPHA,ME,NEOI,APPL=6 FCOPY FILNAM FNL FCOPY =C'SIZE' FTAB 6 FCOPY =C'OF RECORDS:' FKI 17,MINL=1,MAXL=4,ME,NEOI,REWRT,APPL=11 FMEL 'ZZZZX',RSIZE FNL FCOPY =C'BLOCKING FACTOR:' FKI 17,MINL=1,MAXL=3,ME,NEOI,REWRT,APPL=15 FMEL 'ZZZZX',BLFACT FLINK FNOREC FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND * FNOREC FRMT FNL FCOPY =C'NO.' FTAB 5 FCOPY =C'OF RECORDS:' FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=4 FMEL 'ZZZZX',NOREC NO. OF RECORDS FMEND * * END