|
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: 10402 (0x28a2)
Notes: pts_type(SC)
Names: »RGSUB3.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/RGSUB3.SC«
IDENT RGSUB3 03.01.XXX.1 DDUM KMD08 PDIV * ENTRY ASGVOL ENTRY CLSVOL ENTRY CYLINE ENTRY CYOUT ENTRY CYWRT ENTRY CYRD ENTRY CYTRP * EXT ABORT EXT ASSG EXT RAWRIT EXT RAREAD EXT SPLIN8 EXT CLEAR8 EXT GRASPV EXT FRMXVO EXT CRVO * INCLUDE EQUATE EJECT ASGVOL PROC VOL ******************** * * ASSIGN ROUTINE - PER VOLUME * * ASSIGNS ALL FILES ON SPECIFIED VOLUME * * IF VOL=0, ONLY CONFIGURATION DATA SET * * * CALL: PERF ASGVOL,<VOLUME NUMBER> * ******************** * IB VOL, C ASG100,ASG200,ASG300,ASG400 CBNE VOL,CBIN0,ASGNOK * ASG000 ASSIGN CONF DATASET PERF ASSG,CBIN1,DK01,CBIN1 B ASGRET * ASG100 ASSIGN ALL FILES - VOLUME 1 PERF ASSG,CBIN1,DK01,CBIN1 CONF DATASET BNOK ASGRET PERF ASSG,CBIN1,DK03,CBIN3 CYCLE DATASET BNOK ASGRET PERF ASSG,CBIN1,DK04,CBIN4 KT PLAN BNOK ASGRET TBF CGLREGFL,ASG160 MOVE CGLRECNR,=D'0' PERF ASSG,CBIN1,DK05,CBIN5 OLD REGSET BNOK ASGRET MOVE CGLRECNR,TTGLREC ASG160 TBF CTEXTFLG,ASGRET PERF ASSG,CBIN1,DK06,CBIN6 TEXT REG BNOK ASGRET TBF CSTRKFLG,ASGRET PERF ASSG,CBIN1,DK07,CBIN7 INDEX FILE BNOK ASGRET PERF ASSG,CBIN1,DK08,CBIN8 STAM REG BNOK ASGRET PERF ASSG,CBIN1,DK09,CBIN9 VAR REG BNOK ASGRET TBF CBUDTFLG,ASGRET PERF ASSG,CBIN1,DK10,CBIN10 POST REG BNOK ASGRET B ASGRET * ASG200 ASSIGN ALL FILES - VOLUME 2 PERF ASSG,CBIN2,DK02,CBIN2 REG DATASET B ASGRET * ASG300 ASSIGN ALL FILES - VOLUME 3 B ASGOK * ASG400 ASSIGN ALL FILES - VOLUME 4 B ASGOK * ASGNOK CMP CBIN1,CBIN0 RET * ASGOK CMP CBIN0,CBIN0 ASGRET RET PEND * EJECT CLSVOL PROC VOL ******************** * * CLOSE ROUTINE - PER VOLUME * * CLOSES ALL FILES ON SPECIFIED VOLUME * * CALL: PERF CLSVOL,<VOLUME NUMBER> * ******************** * IB VOL, C CLS100,CLS200,CLS300,CLS400 B CLSRET * CLS100 CLOSE ALL FILES - VOLUME 1 DSC0 DK01,CLOSE DSC0 DK02,CLOSE DSC0 DK04,CLOSE TBF CGLREGFL,CLS150 DSC0 DK05,CLOSE CLS150 TBF CTEXTFLG,CLS190 DSC0 DK06,CLOSE TBF CSTRKFLG,CLS190 DSC0 DK07,CLOSE DSC0 DK08,CLOSE DSC0 DK09,CLOSE TBF CBUDTFLG,CLS190 DSC0 DK10,CLOSE CLS190 DSC0 FD01,UNLOD B CLSRET * CLS200 CLOSE ALL FILES - VOLUME 2 DSC0 DK02,CLOSE DSC0 FD02,UNLOD B CLSRET * CLS300 CLOSE ALL FILES - VOLUME 3 B CLSRET * CLS400 CLOSE ALL FILES - VOLUME 4 B CLSRET * CLSRET RET PEND * EJECT CYLINE PROC ******************** * * WRITE ONE LINE TO CYCLE DATASET * * ON ENTRY DATA IN SEPARATE FIELDS * * ON EXIT CR= OK DATA WRITTEN TO CYSET * CR=NOK DATA NOT WRITTEN TO CYSET * E.G. ERROR ON DISK * DATASET FULL * WAITED TOO LONG FOR BUFFER * ******************** MOVE GSWBIN1,CCYSIZE MUL GSWBIN1,TTASKNR CBNL GTCYOUT,GSWBIN1,CYLINNOK MOVE GSWBIN1,=W'32' CYLIN000 TBF CCYPFLG,CYLIN010 WAIT FOR BUFFER DELAY CBIN2 SUB GSWBIN1,CBIN2 CBL GSWBIN1,CBIN0,CYLINNOK B CYLIN000 * CYLIN010 SET CCYPFLG RESERVE BUFFER MOVE CCYBUF,=X'00' CLEAR BUFFER EDIT CCYBUF,GTSTRFMT PERF RAWRIT,DK03,=D'3',CCYBUF,GTCYOUT BNOK CYLIN100 ADD GTCYOUT,CBIN1 CLEAR CCYPFLG RELEASE BUFFER CMP CBIN0,CBIN0 RET * CYLIN100 CLEAR CCYPFLG RELEASE BUFFER CYLINNOK CMP CBIN1,CBIN0 RET PEND * EJECT CYOUT PROC ******************** * * WRITE OUT THE WHOLE CONTENT OF CYSET * (LESS THAN ONE PAGE) * ******************** TBT GTCYWRTF,CYOUT050 TBT TTTSTFLG,CYOUT005 SET TTTSTFLG PERF SPLIN8,CBIN5,CBIN2 PERF GRASPV PERF CLEAR8 CYOUT005 MOVE TTLINNR,TTCYKPOS TBF GTCYTRPF,CYOUT010 SUB GTCYOUT,CBIN1 ADJUST FOR TRP LINE, -TOTAL CYOUT010 MOVE GSWBIN1,TTLINNR DSC1 KVOUCH,POS,GSWBIN1 CBNL GTCYIN,GTCYOUT,CYOUT050 PERF CYRD SUB TTLINNR,=D'2' WAIT KVOUCH B CYOUT010 * CYOUT050 RET PEND * EJECT CYWRT PROC ******************** * * WRITE A LINE ON CYCLE DATASET * IN NOK EMPTY THE CYCLE DATASET TO VOUCHER * AND WRITE LINE TO VOUCHER * ******************** PERF CYLINE WRITE LINE TO CYSET BNOK CYWRT100 SUB TTLINNR,=D'2' CBL TTLINNR,=D'4',CYWRT010 IF PAGE FULL CMP CBIN0,CBIN0 OK RET * CYWRT010 MOVE GSWSTR9,=C'TRP ' NEW PAGE PERF FRMXVO,CBIN2 PERF CYLINE SET GTCYTRPF INITIATE PRINT CMP CBIN0,CBIN0 OK RET * CYWRT100 PERF CYOUT SET GTCYWRTF CMP CBIN1,CBIN0 RET PEND * EJECT CYRD PROC ******************** * * READ ONE LINE FROM CYCLE DATASET AND * WRITE IT TO VOUCHER * * VOUCHER SHOULD BE POSITIONED BEFORE PRINT * ******************** CYRD000 TBF CCYPFLG,CYRD010 DELAY CBIN2 WAIT FOR CYCLE BUFFER B CYRD000 CYRD010 SET CCYPFLG RESERVE CYCLE BUFFER MOVE GSWBIN1,=W'128' SET LENGTH PERF RAREAD,DK03,=D'3',CCYBUF,GSWBIN1,GTCYIN BNOK CYRDNOK EDWRT .NW,KVOUCH,CYEDT CLEAR CCYPFLG B CYRD100 CYRDNOK ADD GTCYIN,CBIN1 CLEAR CCYPFLG PERF CRVO CMP CBIN1,CBIN0 NOK RET * CYRD100 WAIT KVOUCH PERF CRVO ADD GTCYIN,CBIN1 CMP CBIN0,CBIN0 OK RET PEND * * CYEDT FRMT FCOPY CCYBUF FMEND * EJECT CYTRP PROC ******************** * * PRINT A WHOLE PAGE * * AND WRITE TRANSPORT LINE FIRST ON CYSET * ******************** TBF GTCYTRPF,CYTRP200 TBT GTCYWRTF,CYTRP100 T=ALREADY WRITTEN CLEAR GTCYTRPF CLEAR TTTSTFLG PERF CYOUT WAIT KVOUCH DSC0 .NW,KVOUCH,RLEAS CLEAR TTTSTFLG MOVE GSWSTR9,=C'TRP ' PERF FRMXVO,CBIN2 MOVE GTCYIN,TTASKNR SUB GTCYIN,CBIN1 MUL GTCYIN,CCYSIZE ADD GTCYIN,CBIN1 MOVE GTCYOUT,GTCYIN MOVE TTLINNR,TTCYKST MOVE TTCYKPOS,TTLINNR PERF CYLINE BNOK CYTRP100 B CYTRP150 * CYTRP100 CLEAR GTCYTRPF SET GTCYWRTF PERF SPLIN8,CBIN3,CBIN2 ASK FOR 'NY SIDE' PERF GRASPV GRASP MOVE TTCYKPOS,TTCYKST MOVE TTLINNR,TTCYKST POSITION VOUCHER MOVE GSWBIN1,TTLINNR DSC1 KVOUCH,POS,GSWBIN1 MOVE GSWSTR9,=C'TRP ' SET UP TRANSPORT LINE PERF FRMXVO,CBIN2 EDWRT KVOUCH,GTSTRFMT WRITE TRP LINE * CYTRP150 SUB TTLINNR,=D'2' CYTRP200 RET PEND * END