|
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: 14304 (0x37e0)
Notes: pts_type(SC)
Names: »SCHIN.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOOLS/SCHIN.SC«
└─⟦bdcaa0fa2⟧ Bits:30009700 Philips computer tape "600999"
└─⟦this⟧ »TOOLS/SCHIN.SC«
* * SOURCE NAME SCHIN * HEAD FRMT FHIGH FTEXT 'TOSS UTILITIES REL : ' FMEL '9V99',BCDNUM FNL FNL FNL FMEND * FRIN01 FRMT FSL FLINK HEAD FHIGH FTEXT 'DATE : ' FKI 10,MINL=4,MAXL=6,ME FCOPY DATE FMEND * * FRIN03 FRMT FSL FLINK HEAD FTEXT '01 : CREATE FILES.' FNL FNL FTEXT '02 : SHORT RESTART.' FNL FNL FTEXT '03 : REORGANIZE INDEX FILES.' FNL FNL FTEXT '04 : COPY FILE TO FILE.' FNL FNL FTEXT '05 : IPL FROM DISK.' FNL FNL FTEXT '06 : COPY DISK TO DISK.' FNL FNL FTEXT '07 : SORT UTILITY.' FNL FNL FNL FTEXT '99 : EXIT' FNL FNL FTEXT 'NUMBER : ' FKI 12,ME,MINL=1,MAXL=2 FMEL '99',ACTION FMEND * * FRIN02 FRMT FSL FNL FNL FNL FTEXT ' FILE ' FKI 20,MINL=1,MAXL=8,ME,ALPHA,NEOI FCOPY FILENAME FNL FTEXT ' NUMBER OF RECORDS ' FKI 20,MINL=1,MAXL=5,ME,NEOI FMEL 'TTTTT',BCDNUM FNL FTEXT ' RECORD LENGTH ' FKI 20,MINL=1,MAXL=3,ME,NEOI FMEL 'TTT',RECL FNL FTEXT ' VOLUME ' FKI 20,MINL=1,MAXL=6,NCLR,ALPHA,NEOI FCOPY VOLUME FNL FTEXT ' INDEX FILES ' FKI 20,MINL=1,MAXL=1,NEOI FMEL 'T',NINDEX FNL FTEXT ' KEY ADDRESS ' FKI 20,MAXL=3,MINL=1 FMEL 'TTT',KEYAD FMEND * FER01 FRMT FSL FILLR X'07',1 FNL FNL FHIGH FTEXT ' PLEASE MOUNT DISK : SCR001.' FNL FNL FKI 1 FCOPY ST0101 FMEND * * FSTART FRMT FNL FNL FILLR X'07',1 FTAB 11 FTEXT 'PROGRAM HAS TO BE LOADED, PLEASE WAIT.' FNL FMEND * * FRIN04 FRMT FSL FNL FNL FNL FTEXT 'FILE ' FKI 20,MINL=1,MAXL=8,ME,ALPHA FCOPY FILENAME FNL FTEXT 'VOLUME' FKI 20,MINL=1,MAXL=6,NCLR,NEOI,ALPHA FCOPY VOLUME FBF BOL001,IN0499 FNL FTEXT 'KEY ADDRESS' FKI 20,MINL=3,MAXL=3,ME,NEOI,NCLR FCOPY KEYADR FNL FTEXT 'KEY LENGTH' FKI 20,MINL=3,MAXL=3,ME,NEOI FCOPY KEYLEN FNL FNL FTEXT 'INDEX FILE ' FKI 20,MINL=1,MAXL=8,ME,ALPHA,NEOI FCOPY INDEX FNL FTEXT 'MASTER FILE ' FKI 20,ME,MINL=1,MAXL=8,ALPHA,NEOI FCOPY MASTER FNL FNL FTEXT 'REDUCE DATA FILE ?' FHIGH FKI 20,MINL=1,MAXL=1,NEOI,ME,NCLR,ALPHA FCOPY ST0101 FNL FTEXT 'LOAD FACTOR' FHIGH FKI 20,MINL=3,MAXL=3,NEOI,NCLR,ME FCOPY LDFACTOR FTAB 24 FTEXT '%' FNL FTEXT 'PARTITION / SECTOR' FHIGH FKI 20,MINL=3,MAXL=3,NEOI,NCLR,ME FCOPY PARTORG FNL FTEXT 'START PHASE' FHIGH FKI 20,MINL=1,MAXL=2,NCLR,ME FMEL '99',FASENR IN0499 FMEND * FEXIST FRMT FSL FILLR X'07',1 FLINK FNL6 FLINK FNL6 FTEXT 'FILE DOES ALLREADY EXIST.' FNL FNL FHIGH FTEXT 'IF YOU WANT TO DELETE IT, THEN PUSH -ENTER-.' FNL FNL FKI 1 FCOPY ST0101 FMEND * FRIN05 FRMT FSL FNL FNL FNL FTEXT 'INPUT FILE' FKI 20,MINL=1,MAXL=8,ME,ALPHA,NEOI FCOPY FILENAME FTAB 30 FTEXT 'VOLUME' FHIGH FKI 40,MINL=1,MAXL=6,ME,ALPHA,NCLR,NEOI FCOPY VOLIN FNL FTEXT 'OUTPUT FILE' FKI 20,ME,MINL=1,MAXL=8,ALPHA,NEOI FCOPY INDEX FTAB 30 FTEXT 'VOLUME' FHIGH FKI 40,MINL=1,MAXL=6,ME,ALPHA,NCLR,NEOI FCOPY VOLOUT FMEND * * DISK FRMT FSL FNL FNL FNL FNL FHIGH FTAB 10 FUL FTEXT 'NUMBER OF THE DISK UNITS' FNUL FLOW FTEXT ' (NO 1 AND 2 ARE FROM THE -IPL UNIT-).' FNL FNL FTAB 10 FTEXT '********* *********' FNL FTAB 10 FTEXT '* * * *' FNL FTAB 10 FTEXT '* 2 * * 4 *' FNL FTAB 10 FTEXT '* * * *' FNL FTAB 10 FTEXT '********* *********' FNL FTAB 10 FTEXT '* * * *' FNL FTAB 10 FTEXT '* 1 * * 3 *' FNL FTAB 10 FTEXT '* * * *' FNL FTAB 10 FTEXT '********* *********' FNL FNL FNL FMEND * FRIN06 FRMT FLINK DISK FTAB 10 FTEXT 'NUMBER OF THE DISK UNIT :' FKI 36,ME,MINL=1,MAXL=1,NEOI FMEL '9',BCDNUM FNL FTAB 10 FTEXT 'NUMBER OF SOP SWITCH :' FKI 36,ME,MINL=1,MAXL=2 FMEL 'T9',ACTION FMEND * FRIN07 FRMT FLINK DISK FTAB 10 FTEXT 'BACKUP FROM NO :' FKI 27,MINL=1,MAXL=1,NEOI,ME,NCLR FMEL '9',BCDNUM FTAB 30 FTEXT 'TO NO :' FKI 38,MINL=1,MAXL=1,ME,NEOI,NCLR FMEL '9',ACTION FNL FNL FTAB 10 FTEXT 'INPUT FROM VOLUME' FKI 32,MINL=1,MAXL=6,NEOI,ME,NCLR,ALPHA FCOPY VOLIN FNL FTAB 10 FTEXT 'NEW OUTPUT VOLUMENAME' FKI 32,MINL=1,MAXL=6,ME,ALPHA,NCLR FCOPY VOLOUT FMEND * FRIN08 FRMT FSL FLINK FNL6 FLINK FNL6 FLINK FNL6 FNL FNL FNL FNL FTAB 10 FTEXT 'OUTPUT VOLUME IS : ' FHIGH FCOPY VOLSCR FLOW FTEXT ' OK ?' FKI 45,MINL=1,MAXL=1,ALPHA,ME,NCLR FCOPY ST0101 FMEND * * FRIN09 FRMT FSL FNL FNL FTEXT 'SORT FILE' FKI 20,MINL=1,MAXL=8,ME,ALPHA,NEOI FCOPY FILENAME FNL FTEXT 'VOLUME' FKI 20,MINL=1,MAXL=6,ME,NEOI,NCLR,ALPHA FCOPY VOLUME FNL FTEXT 'KEY ADDRESS' FKI 20,MINL=1,MAXL=3,ME,NEOI,NCLR FMEL '999',BCDNUM FNL FTEXT 'KEY LENGTH' FKI 20,MINL=1,MAXL=3,ME FMEL '999',ACTION FMEND * * FSTOK FRMT FSL FILLR X'07',1 FLINK FNL6 FNL FNL FHIGH FTAB 10 FTEXT 'THE SORT IS READY' FNL FKI 1 FCOPY ST0101 FMEND * * FCFOK FRMT FSL FILLR X'07',1 FLINK FNL6 FNL FHIGH FTAB 10 FTEXT 'THE COPY FILE TO FILE IS DONE.' FNL FKI 1 FCOPY ST0101 FMEND * FNL6 FRMT FNL FNL FNL FNL FNL FNL FMEND * * FROKSR FRMT FSL FILLR X'07',1 FNL FNL FNL FTEXT 'UPDATE IS DONE. ' FTEXT ' FILE : ' FHIGH FCOPY FILENAME FLOW FTEXT ' LRN WAS : ' FHIGH FMEL 'TTTT9',BCDNUM FLOW FTEXT ' LRN IS : ' FHIGH FMEL 'TTTT9',BCDLRN FNL FNL FKI 1 FCOPY ST0101 FMEND * FROUT FRMT FSL FILLR X'07',1 FNL FNL FTEXT 'FILE IS CREATED.' FNL FNL FTEXT 'FILE : ' FHIGH FCOPY FILENAME FLOW FTEXT ' NUMBER : ' FHIGH FMEL 'TTTT9',BCDNUM FLOW FTEXT ' LENGTH : ' FHIGH FMEL 'TTT',RECL FLOW FTEXT ' BF : ' FHIGH FMEL 'TTT',BCDERR FLOW FTEXT ' NO INDEX : ' FHIGH FMEL '9',NINDEX FLOW FTEXT ' KEY : ' FHIGH FMEL 'TT9',KEYAD FNL FNL FKI 1 FCOPY ST0101 FMEND * FTEXT FRMT FILLR ' ',2 FILLR X'07',1 FNL FTEXT 'REORGANIZE IN STEP ' FMEND * * CDDONE FRMT FSL FILLR X'07',1 FNL FNL FTAB 10 FHIGH FTEXT 'THE COPY DISK TO DISK IS DONE.' FNL FNL FTAB 10 FTEXT 'VOLUME NAME IS : ' FHIGH FCOPY VOLOUT FNL FKI 1 FCOPY ST0101 FMEND * * FRFASE FRMT FSL FILLR X'07',1 FNL FLINK FNL6 FLINK FNL6 FLINK FNL6 FTAB 10 FTEXT 'STEP : ' FHIGH FMEL 'Z9',FASENR FLOW FBF BOL001,FRF10 FTEXT ' ERROR : ' FHIGH FMEL 'Z9',BCDERR FB FRFEND FRF10 FTEXT ' REORGANIZE IS' FHIGH FTEXT ' DONE.' FRFEND FNL FNL FNL FKI 1 FCOPY ST0101 FMEND * FRKEY FRMT FLINK FRFASE FTAB 10 FHIGH FCOPY =C'PLEASE TURN KEY AND PRESS -ENTER-' FMEND * FILSCK FRMT FSL FILLR X'07',1 FNL FNL FHIGH FTEXT 'PLEASE CHECK FILE.' FNL FNL FTEXT 'FILENAME' FTAB 20 FHIGH FCOPY FILENAME FNL FTEXT 'VOLUME' FKI 20,MINL=1,MAXL=6,NCLR,NEOI,ALPHA,ME FCOPY VOLUME FNL FTEXT 'NUMBER OF RECORDS' FKI 20,MINL=1,MAXL=5,ME,NCLR FMEL 'TTTT9',BCDLRN FMEND * * FRDKER FRMT FSL FILLR X'07',1 FNL FNL FHIGH FTEXT ' THIS IS VERY VERY BAD.' FLOW FTEXT ' ACTION : ' FHIGH FMEL 'T9',ACTION FLOW FTEXT ' ERROR : ' FHIGH FMEL 'TT9',BCDERR FNL FNL FKI 1 FCOPY ST0101 FMEND * * FRBFER FRMT FSL FILLR X'07',1 FNL FNL FHIGH FTEXT 'YOUR INPUT IS NOT CORRECT, TRY AGAIN.' FNL FNL FKI 1 FCOPY ST0101 FMEND * FRFIL FRMT FSL FILLR X'07',1 FNL FNL FHIGH FTEXT 'YOU ARE NOT ALLOWED TO DO THIS.' FNL FTEXT 'IF NEEDED CALL ISIS FLYING CIRCUS TEAM.' FNL FNL FKI 1 FCOPY ST0101 FMEND * PLWAIT FRMT FILLR ' ',2 FILLR X'07',1 FNL FNL FTAB 5 FTEXT 'THIS WILL TAKE A LONG TIME, PLEASE GO AND' FTEXT ' HAVE SOME TEA.' FNL FNL FTAB 5 FTEXT '-- DO NOT TOUCH THE KEY-BOARD --.' FNL FMEND * FRPTK FRMT FSL FLINK FNL6 FLINK FNL6 FLINK FNL6 FNL FNL FNL FNL FKI 1 FCOPY ST0101 FTAB 10 FHIGH FCOPY =C'PLEASE TURN KEY AND PRESS -ENTER-' FMEND * *