|
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: 20782 (0x512e)
Notes: pts_type(SC)
Names: »RGSTRT.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/RGSTRT.SC«
IDENT RGSTRT 840130 EV DDUM KMD08 PDIV ENTRY T1GO ENTRY TCONFW ENTRY TCONFR ENTRY CONFRD ENTRY CONFWR ENTRY CNFWRT ENTRY CONRDX EXT ASGVOL EXT ASGFIL EXT SPCLRA EXT SPCLRN EXT SPLIN8 EXT RAWRIT EXT RGREAD EXT RAREAD EXT LAMPON EXT LAMPOF EXT SOPRD EXT SETMK EXT RSTORE EXT INITRG EXT CLSVOL EXT UPDAKK EXT CLEJ EXT CLEDB EXT CLBEH EXT ZERO EXT ADM EXT RGA120 EXT RGADM EXT RADEL EXT WRITID EXT STARTID EXT SKIFT EXT STRTWR EXT SETMK EXT ELOPST START EL. JOURNAL INCLUDE EQUATE EJECT T1GO MOVE SPKEY,CBIN2 INDICATE KEYSWITCH IN POS 2 ADD CMAXTASK,CBIN1 GETID GSWSTR2 MOVE TTASKNR,CBIN0 T1005 ADD TTASKNR,CBIN1 CBE GSWSTR2,CTID(TTASKNR),T1005A B T1005 T1005A USE TB2,TTASKNR CBE TTASKNR,CBIN1,T1010 MOVE GSWBIN6,TTASKNR PERF SPLIN8,CBIN9,CBIN2 'OPSTART' PAUSE B T1400 BRANCH TO NON-MASTER CODE T1010 MOVE CTRANBUF,=X'00' PERF CLSVOL,CBIN1 PERF CLSVOL,CBIN2 PERF CLSVOL,CBIN3 PERF CLSVOL,CBIN4 CLEAR CSKIFTFL SET GTMASTFL INDICATE MASTER TERM DSC0 KEYB,SKIB SET SPPROMPT ATTFMT CSFRM01 PERF SPCLRA MOVE GSWBIN2,SPBINW2 IB SPBINW2,T1011,T1011,T1012,T1012,T1011, C T1012,T1011,T1011,T1012 T1011 B T1010 T1012 MOVE GTTEXT,=C'FD' INSERT PREFIX IN DSNAME MOVE GSWBIN1,CBIN1 INSRT CFNAME(GSWBIN1),CBIN0,CBIN2,GTTEXT,CBIN0 PERF ASGVOL,CBIN0 ASSIGN CONFDATA BNOK T1010 CLEAR CSWFLAG IB GSWBIN2,T1013,T1013,T1025,T1014,T1013, C T1013,T1013,T1013,T1018 T1013 B T1010 T1014 KRE KEY MOVE CCONBUF0,=X'00' MOVE GSWBIN2,CBIN0 T10140 ADD GSWBIN2,CBIN1 IF FINISH: TO VERY COLD START CBG GSWBIN2,=W'32',T1025 PERF RAWRIT,DK01,=D'1',CCONBUF0,GSWBIN2 BNOK T1010 B T10140 * T1018 ADM KEY * ONLY CHANGE VOLUME, DATASET SET CSWFLAG B T1025 * T1020 KVIT KEY * * RESTORE DATASETS * * CLEAR CSWFLAG RST000 PERF LAMPOF,=W'2047' LAMPS OFF RST005 PERF LAMPON,=W'1024' LAMP 1 PERF LAMPON,=W'128' LAMP 4 PERF LAMPON,=W'8' LAMP 8 RST010 PERF SOPRD IB GSWBIN2, C RSOP10,RSOP09,RSOP08,RSOP07,RSOP06, C RSOP05,RSOP04,RSOP03,RSOP02,RSOP01 RSOP02 RSOP03 RSOP05 RSOP06 RSOP07 RSOP09 RSOP10 B RST010 OTHER LAMPS * RSOP01 RESTORE FD999001 PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'1024' LAMP 1 PERF RSTORE,DK01,=D'1',=W'32',CCONBUF0,=W'199' BNOK RST005 NOT OK PERF CONFRD B RST000 OK * RSOP04 RESTORE FD999004 PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'128' LAMP 4 PERF RSTORE,DK04,=D'4',=W'30',CKTBUF,=W'128' BNOK RST005 NOT OK PERF SETMK INIT MASTER INDEX B RST000 OK * RSOP08 FINISH RESTORING PERF LAMPOF,=W'2047' LAMPS OFF PERF ASGVOL,CBIN0 ASSIGN KONF DATASET BNOK T1010 B T1028 * * * * * T1025 SLUT KEY PERF CONFRD READ CONFDATA BNOK T1010 CBNE CVOLNO,=D'0',T1028 MOVE CVOLNO,=D'0' T1028 MOVE CFNAME(CBIN1),ASFNAME RESTORE MOVE CVOL(CBIN1),ASVOL TBT CSWFLAG,T1030 CBG CKMDNR,=D'0',T1050 VERY FIRST START * * * T1030 MOVE GSWBIN1,CBIN1 T1031 DLETE CFNAME(GSWBIN1),CBIN0,CBIN2 ADD GSWBIN1,CBIN1 CBL GSWBIN1,CBIN9,T1031 T1033 SET CCOLDFLG SET SPPROMPT DSC0 KEYB,SKIB ATTFMT CSFRM02 YES PERF SPCLRN IB SPBINW2,T1034,T1034,T1032 T1034 B T1033 T1032 MOVE GTTEXT,=C'FD' INSERT PREFIX IN DSNAME MOVE GSWBIN1,CBIN1 T1035 INSRT CFNAME(GSWBIN1),CBIN0,CBIN2,GTTEXT,CBIN0 ADD GSWBIN1,CBIN1 CBL GSWBIN1,CBIN9,T1035 TBT CSWFLAG,T1020 T1037 MOVE CBEH(CBIN1,CBIN1),CBIN0 MOVE CTR12(CBIN1,CBIN1),CBIN0 MOVE GSWBIN5,CBIN0 T1040 ADD GSWBIN5,CBIN1 CBG GSWBIN5,CMAXTASK,T1045 MOVE GSWBCD5,GSWBIN5 MOVE GSWBIN1,GSWBIN5 DSC0 KEYB,SKIB SET SPPROMPT USE TB2,GSWBIN5 ATTFMT CSFRM03 PERF SPCLRA SET TR 12 AND BEH COUNTERS IB SPBINW2,T1042,T1042,T1043 T1042 B T1037 T1043 MUL TTSTLBNR,=D'-1' SIMULATE CLOSE PERF TCONFW,GSWBIN5 BNOK T1037 B T1040 T1045 USE TB2,TTASKNR PERF CONFWR REWRITE CONFDATA BNOK T1010 * * READ TERMINAL CONF T1050 MOVE CTWBIN2,CMAXTASK MOVE CTASKNR,CBIN0 MOVE GSWBIN5,CBIN0 T1052 ADD GSWBIN5,CBIN1 CBG GSWBIN5,CMAXTASK,T1060 CBNL CMASK(GSWBIN5),=D'0',T1055 MUL CMASK(GSWBIN5),=D'-1' SET POSITIVE (OPEN) T1055 GET TERMINAL BLOCK USE TB2,GSWBIN5 PERF TCONFR,GSWBIN5 READ TERMINAL CONF BOK T1052 USE TB2,TTASKNR NOT OK B T1010 * * CONF DATA HAS BEEN READ * T1060 USE TB2,TTASKNR GET OWN USER BLOCK MOVE GTMSK,CMASK(CBIN1) SET MACNINE NO, MASTER * * CHECK VOLUME NO * T1062 PERF CLSVOL,CBIN2 PERF CLSVOL,CBIN3 PERF CLSVOL,CBIN4 DSC0 KEYB,SKIB SET SPPROMPT ATTFMT INIT1FMT PERF SPCLRA IB SPBINW2,T1065,T1065,T1070 B T1062 OTHER KEYS T1065 MAK B T1010 T1070 SLUT KEY, OK * * * ASSIGN OTHER FILES * * MOVE GTWBCD1,=D'2' MOVE GTTEXT,=C' ' PERF ASGVOL,CBIN1 BNOK T1010 PERF ASGFIL,CBIN2 BNOK T1010 * * * CHECK IF DISKETTE IS CORRECT * * PERF SETMK SET MASTER INDEX, KTPLAN T1200 MOVE CRECNR,CBIN1 MOVE CRECBCD,=D'1' MOVE GSWBIN1,=W'128' PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR BNOK T1062 MOVE GSWBCD3,CVOLNO CBE GTWBCD1,=D'4',T1210 NO DATA PERF WRITID,CPCKBUF,CBIN1,CBIN1 PRINT 1. RECORD MOVE GSWSTR20,=X'00' MOVE GSWBIN1,CBIN0 MOVE GSWBIN2,=W'47' COPY GSWSTR20,GSWBIN1,CBIN5,CPCKBUF,GSWBIN2 MOVE GSWBCD3,GSWSTR20 GET VOLUME NO FROM START TBT CCONVERT,T1219 CONVERT-VERSION CBE CVOLNO,GSWBCD3,T1230 T1210 NOT EQUAL NOS. OR NO DATA TBT CCONVERT,T1219 CONVERT-VERSION DSC0 KEYB,SKIB SET SPPROMPT ATTFMT INIT2FMT PERF SPCLRA IB SPBINW2,T1215,T1215,T1220,T1212, C T1212,T1212,T1212,T1212,T1225 T1212 OTHER KEYS B T1210 T1215 MAK B T1062 * T1219 CONVERT-VERSION NO OPSTART DIRECTLY TO ADM B T1560 * T1220 SLUT, OK CBE GTWBCD1,=D'4',T1210 NO DATA MOVE CVOLNO,GSWBCD3 NEW VOL NO B T1240 TO OPSTART * T1225 KVIT PERF STRTWR NEW START RECORD BNOK T1010 PERF WRITID,CPCKBUF,CBIN1,CBIN1 B T1240 TO OPSTART * * T1230 EQUAL VOL NOS. DSC0 KEYB,SKIB SET SPPROMPT ATTFMT INIT3FMT PERF SPCLRA IB SPBINW2,T1235,T1235,T1240 B T1230 OTHER KEYS T1235 MAK B T1062 * * * * OPSTART * * T1240 MOVE CRECBCD,=D'0' MOVE CRECNR,CBIN1 CLEAR CERRORFL T1242 MOVE GTWBCD2,CRECNR PERF SPLIN8,CBIN10,CBIN3 ADD CRECNR,CBIN1 MOVE GSWBIN1,=W'128' READ NEXT RECORD PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR BNOK T1300 NOT OK IF FLAG: TO REPRINT TBT CERRORFL,T1300 CMP GTWBCD1,=D'4' BE T1500 NO DATA, CONTINUE REG. MOVE GSWSTR20,=C'SLUTD' MOVE GSWBIN5,CBIN0 MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 BE T1350 SLUTD MOVE GSWSTR20,=X'00' COPY GSWSTR20,CBIN0,CBIN3,CPCKBUF,CBIN0 MOVE GSWBCD5,GSWSTR20 GET MACHINE NO. MOVE GSWBIN6,CBIN0 T1245 ADD GSWBIN6,CBIN1 CBE GSWBCD5,CMASK(GSWBIN6),T1247 CBL GSWBIN6,CBIN12,T1245 B T1242 T1247 CBE GSWBCD5,=D'0',T1250 CHECK WRONG MACHINE NO. CBE GSWBIN6,CBIN1,T1250 IF MASTER RSTRT CTID(GSWBIN6) NO, START RELEVANT TASK PAUSE B T1242 T1250 PERF RGREAD,DK02,=D'2' READ TRANSACTION BERR T1290 MOVE CRECBCD,GSWBCD3 GET LOG. REC. NO. BOK T1251 TR 1-10 TBT GTSWFLAG,T1251 TEST FOR TR 11 B T1290 TR >=12 T1251 CBL CRECBCD,TTRECOPN,T1290 BEFORE REWRITE? TBT GTSWFLAG,T1270 IF TR 11 CBG TTSTLBNR,=D'0',T1260 OPEN? MUL TTSTLBNR,=D'-1' NO, SET POSITIVE (OPEN) MOVE TTCASH,TTSTCASH MOVE TTRECOPN,CRECBCD PERF TCONFW,TTASKNR PERF CONFWR T1260 CLEAR GTTESTFL CBNL CRECBCD,CCONFREC,T1262 SET GTTESTFL BEFORE BEH., REWRITE T1262 PERF UPDAKK CLEAR GTTESTFL B T1290 * * * T1270 TR 11 CBNG TTSTLBNR,=D'0',T1290 CLOSED? NO MOVE TTSTCASH,TTCASH MOVE TTSTLBNR,TTLBNR ADD TTSTLBNR,=D'1' MUL TTSTLBNR,=D'-1' MOVE TTRECOPN,CRECBCD PERF TCONFW,TTASKNR PERF CONFWR PERF ZERO T1290 TBT GTMASTFL,T1242 MASTER B T1450 NON-MASTER * * * * T1300 PERF WRITID,CPCKBUF,CBIN4,CBIN2 PRINT 1. PART OF LAST CORRECT RECORD SET SPPROMPT ATTFMT INIT4FMT PERF SPCLRA IB SPBINW2,T1310,T1310,T1315,T1320,T1310, C T1310,T1310,T1310,T1330 B T1300 T1310 MAK B T1300 * T1315 SLUT, CONTINUE SUB CRECNR,CBIN1 READ AGAIN CLEAR CERRORFL B T1242 * T1320 KRE, TRY NEXT SET CERRORFL B T1242 * T1330 TO NEW DISK CLEAR CERRORFL B T1350 T1350 SLUTD * * * * DISKETTE SKIFT * * TBT C5MDISK,T1500 SET CSKIFTFL PERF SKIFT B T1200 EJECT T1400 ******************** * * RESTART OF * FOR NON-MASTER * ******************** MOVE GTMSK,CMASK(TTASKNR) T1440 TBT CWFLAG,T1530 IF COLDSTART FINISHED B T1250 T1450 RSTRT CTID(CBIN1) RESTART MASTER PAUSE B T1440 * * * T1500 ADD CRECBCD,=D'1' SET CWFLAG MOVE GSWBIN6,CBIN1 T1510 ADD GSWBIN6,CBIN1 CBG GSWBIN6,CMAXTASK,T1540 PERF SPLIN8,CBIN9,CBIN3 RSTRT CTID(GSWBIN6) PAUSE B T1510 T1530 * * SET POINTERS IN EL. JOURNAL FILES PERF ELOPST RSTRT CTID(CBIN1) RESTART MASTER PAUSE B T1550 START * T1540 START MASTER PERF ELOPST MOVE GSWBIN6,CBIN1 T1545 RESTART ALL TASKS ADD GSWBIN6,CBIN1 CBG GSWBIN6,CMAXTASK,T1550 RSTRT CTID(GSWBIN6) B T1545 * * T1550 START POINT * CBL TTASKNR,CBIN6,T1555 SET TREMFLG T1555 DSC0 KEYB,SKIB MOVE TTEJEDB,=D'0' CBNG TTSTLBNR,=D'0',T1560 IF TASK WAS CLOSED ADD CTASKNR,CBIN1 SET GTSPGFLG MOVE GSWSTR9,=C'SUBTOTAL ' PERF CLEJ PERF CLEDB PERF CLBEH MOVE GSWSTR9,=C' ' CLEAR GTSPGFLG SET GTKASSE MOVE GSWBIN1,CBIN14 PERF ADM,GSWBIN1 B RGA120 T1560 MUL CMASK(TTASKNR),=D'-1' SET < 0, CLOSE B RGADM EJECT ****************************************************** * * TCONFR - READING OF CONFIGURATION DEPENDENT DATA * * CALL: PERF TCONFR,<CONFIGURATION NBR> * * THE DATA IS READ RANDOM FROM DK01 * * ALTERED FIELDS: GSWBIN6 - <CONF> + 12 * GSWBIN1 - 199 * * CR: OK - 0, NOK - <> 0 * ****************************************************** TCONFR PROC TCONFRNO MOVE GSWBIN6,TCONFRNO ADD GSWBIN6,CBIN12 MOVE GSWBIN1,=W'199' PERF RAREAD,DK01,=D'1',TCONBUF,GSWBIN1,GSWBIN6 BNOK TCONRET1 CBNL TTSTLBNR,=D'10001',TCONFR1 CBL TTSTLBNR,=D'-10001',TCONFR1 CBL TTSTLBNR,=D'0',TCONFR2 MOVE TTSTLBNR,=D'10001' B TCONFR1 TCONFR2 MOVE TTSTLBNR,=D'-10001' TCONFR1 CMP CBIN0,CBIN0 RET TCONRET1 CMP CBIN0,CBIN1 SET CR RET PEND * EJECT *************************************************** * * TCONFW - WRITE CONFIGURATION-DEPENDENT DATA * * CALL: PERF TCONFW,<CONFIGURATION NBR> * * IF NOT IN TESTMODE, DATA IS WRITTEN TO DK01 * ALTERED FIELDS: * GSWBIN6 - <CONF> + 12 * *************************************************** TCONFW PROC TCONFWNO MOVE GSWBIN6,TCONFWNO ADD GSWBIN6,CBIN12 CBE GTTESTMK,=C'T',TCFWRET IF IN TEST MODE CBNL TTSTLBNR,=D'10001',TCONFW1 CBL TTSTLBNR,=D'-10001',TCONFW1 CBL TTSTLBNR,=D'0',TCONFW2 MOVE TTSTLBNR,=D'10001' MOVE TTLBNR,=D'10000' B TCONFW1 TCONFW2 MOVE TTSTLBNR,=D'-10001' MOVE TTLBNR,=D'-10000' TCONFW1 PERF RAWRIT,DK01,=D'1',TCONBUF,GSWBIN6 TCFWRET RET PEND EJECT ******************************************************** * * CONFRD - READING OF COMMON CONFDATA * ********************************************************* CONFRD PROC PERF CONRDX,CCONBUF0,CBIN1 BNOK CONFRET PERF CONRDX,CCONBUF1,CBIN2 BNOK CONFRET PERF CONRDX,CCONBUF2,CBIN3 BNOK CONFRET PERF CONRDX,CCONBUF3,CBIN4 BNOK CONFRET PERF CONRDX,CCONBUF4,CBIN5 BNOK CONFRET PERF CONRDX,CCONBUF5,CBIN6 BNOK CONFRET PERF CONRDX,CCONBUF6,CBIN7 BNOK CONFRET PERF CONRDX,CCONBUF7,CBIN8 BNOK CONFRET PERF CONRDX,CCONBUF8,CBIN9 BNOK CONFRET PERF CONRDX,CCONBUF9,CBIN10 CONFRET RET PEND * CONRDX PROC CBUFRD,CBUFNO * MOVE GSWBIN1,=W'199' PERF RAREAD,DK01,=D'1',CBUFRD,GSWBIN1,CBUFNO RET PEND EJECT ********************************************************** * * CONFWR - WRITING OF CONFDATA * ********************************************************** CONFWR PROC MOVE CCONFREC,CRECBCD PERF RAWRIT,DK01,=D'1',CCONBUF0,CBIN1 BNOK WRET PERF RAWRIT,DK01,=D'1',CCONBUF1,CBIN2 BNOK WRET PERF RAWRIT,DK01,=D'1',CCONBUF2,CBIN3 BNOK WRET PERF RAWRIT,DK01,=D'1',CCONBUF3,CBIN4 BNOK WRET PERF RAWRIT,DK01,=D'1',CCONBUF4,CBIN5 BNOK WRET PERF RAWRIT,DK01,=D'1',CCONBUF5,CBIN6 BNOK WRET PERF RAWRIT,DK01,=D'1',CCONBUF6,CBIN7 BNOK WRET PERF RAWRIT,DK01,=D'1',CCONBUF7,CBIN8 BNOK WRET PERF RAWRIT,DK01,=D'1',CCONBUF8,CBIN9 BNOK WRET PERF RAWRIT,DK01,=D'1',CCONBUF9,CBIN10 WRET RET PEND EJECT ******************** * * CONFWRT - REWRITE CONFDATA * * ALTERED FIELDS: GSWBIN5 - SET TO CMAXTASK * TTRECOPN - 0 * ******************** CNFWRT PROC MOVE GSWBIN5,CBIN0 CNF1 ADD GSWBIN5,CBIN1 CBG GSWBIN5,CMAXTASK,CNF100 USE TB2,GSWBIN5 MOVE TTRECOPN,=D'0' IF OPEN PERF TCONFW,GSWBIN5 B CNF1 CNF100 USE TB2,TTASKNR PERF CONFWR RET PEND EJECT ************************************************************ * * FORMATS USED * ************************************************************* * FMTFKI FRMT FNL FKI 2 FMEL 'B',TSWBCD2 FMEND * CSFRM01 FRMT FSL FTEXT 'START' FNL FTEXT 'VOLUME=' FKI 9,MINL=6,MAXL=6,ME FCOPY CVOL(CBIN1) FNL FTEXT 'DATASET=' FKI 9,MINL=6,MAXL=6,ME FCOPY CFNAME(CBIN1) FMEND * CSFRM02 FRMT FSL FCOPY ='KOMMUNE NR' FKI 12,MINL=3,MAXL=4,ME FMEL 'ZZZZ',CKMDNR FNL FCOPY ='VOL 2 VOL 3 VOL 4' FNL FKI 1,MINL=6,MAXL=6,ME FCOPY CVOL(CBIN2) FKI 8,MINL=6,MAXL=6 FCOPY CVOL(CBIN3) FKI 15,MINL=6,MAXL=6 FCOPY CVOL(CBIN4) FNL FCOPY ='DSN02 DSN03 DSN04' FNL FKI 1,MINL=6,MAXL=6,ME FCOPY CFNAME(CBIN2) FKI 10,MINL=6,MAXL=6 FCOPY CFNAME(CBIN3) FKI 19,MINL=6,MAXL=6 FCOPY CFNAME(CBIN4) FNL FCOPY ='DSN05 DSN06 DSN07 DSN08' FNL FKI 1,MINL=6,MAXL=6 FCOPY CFNAME(CBIN5) FKI 10,MINL=6,MAXL=6 FCOPY CFNAME(CBIN6) FKI 19,MINL=6,MAXL=6 FCOPY CFNAME(CBIN7) FKI 28,MINL=6,MAXL=6 FCOPY CFNAME(CBIN8) FMEND * CSFRM03 FRMT FSL FMEL '99',GSWBCD5 FNL FCOPY ='MASKIN NR' FKI 22,MINL=3,MAXL=3,ME FMEL '999',CMASK(GSWBIN1) FNL FCOPY ='BEHOLDNINGST[LLERE' FKI 23,MAXL=2,ME,APPL=103 FMEL '99',GSWBCD3 FNL FCOPY ='EJ-EDB T[LLER ' FKI 23,MAXL=2,ME,APPL=104 FMEL '99',GSWBCD4 FNL FCOPY =' EKS.LBNR' FKI 20,MAXL=5,ME FMEL 'ZZZZ9',TTSTLBNR FMEND * INIT1FMT FRMT FSL FCOPY ='VOLUME NR ' FMEL '99999',CVOLNO FNL FCOPY =C'DAGS-DATO' FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,NCLR FMEL '99E-99E-99',CMASKDAT FNL FCOPY =C'DAG NR' FKI 11,MINL=1,MAXL=3,ME,APPL=102 FMEL 'ZZZ',CRELDAY FMEND * INIT2FMT FRMT FSL FCOPY ='VOLUME NR ' FTEXT 'OK' FILLR '?',1 FILLR X'07',1 FLINK FMTFKI FMEND * INIT3FMT FRMT FSL FCOPY ='OPSTART ' FILLR '?',1 FILLR X'07',1 FLINK FMTFKI FMEND * INIT4FMT FRMT FSL FCOPY ='KORREKT' FILLR '?',1 FILLR X'07',1 FLINK FMTFKI FMEND * END