|
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: 5808 (0x16b0)
Notes: pts_type(SC)
Names: »KTPLN.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/KTPLN.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/KTPLN.SC«
IDENT KTPLN 02.03.XXX.1 DDUM KMD08 PDIV ENTRY KTPLAN ENTRY RESTMK ENTRY SETMK EXT RAREAD EXT WAITF INCLUDE EQUATE EJECT KTPLAN PROC KTNR,TYPE ************************************************ * * PROCEDURE FOR SEARCHING A GIVEN KONTO NO -KTNR- * ON THE 'KONTOPLAN' * * IF FOUND - CONDITION REGISTER IS SET TO OK * TYPE WILL CONTAIN THE ASSOCIATED TYPE * GSWBIN4 IS RECORD NO * GSWBIN5 POINTS TO START OF FOUND NO * IF NOT FOUND - GSWBIN4 IS RECORD NO * *************************************** * SEARCH MASTER INDEX FOR RELEVANT RECORD MOVE GSWBIN4,CBIN0 KTP010 ADD GSWBIN4,CBIN1 CBG GSWBIN4,CBIN7,KTP020 RETURN, NOT FOUND CBE CKTINDX(GSWBIN4),=D'0',KTP020 RETURN, NOT FOUND CBNL CKTINDX(GSWBIN4),KTNR,KTP030 KNT.NO < MASTER ?FOUND B KTP010 TRY NEXT KTP020 NOT FOUND MOVE GSWBIN4,CKTLAST CBNE GSWBIN4,CBIN0,KTPNOK2 MOVE GSWBIN4,CBIN1 B KTPNOK2 KTP030 FOUND MUL GSWBIN4,CBIN3 LAST RECORD IN GROUP SUB GSWBIN4,CBIN2 FIRST RECORD IN GROUP KTP100 PERF WAITF,CKFLAG KTP110 MOVE GSWBIN5,=W'128' MOVE CKTBUF,CBLANKS PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 GET RECORD BNOK KTPNOK ERROR ON READING * LOOP THROUGH BUFFER MOVE GSWBIN5,CBIN0 KTP120 MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 CBE GSWBCD7,KTNR,KTP200 FOUND CBG GSWBCD7,KTNR,KTPNOK1 NOT FOUND ADD GSWBIN5,CBIN8 LOOK FURTHER CBNG GSWBIN5,=W'120',KTP120 LOOK AT NEXT NO ADD GSWBIN4,CBIN1 LOOK AT NEXT RECORD B KTP110 KTP200 ADD GSWBIN5,CBIN6 GET TYPE MOVE GSWBCD7,=D'1' INITIATE NUMBER XCOPY GSWBCD7,CBIN5,CBIN2,CKTBUF,GSWBIN5 MOVE TYPE,GSWBCD7 SUB GSWBIN5,CBIN6 CLEAR CKFLAG CMP CBIN0,CBIN0 RET KTPNOK1 CLEAR CKFLAG KTPNOK2 MOVE TYPE,=D'0' MOVE GSWBIN5,=W'-1' CMP CBIN0,CBIN0 RET KTPNOK CLEAR CKFLAG MOVE TYPE,=D'0' NOT FOUND CMP CBIN1,CBIN0 NOT OK RET PEND EJECT RESTMK PROC ************************************ * * RESET MASTER INDEX IN KONTOPLAN * FOR RECORD GSWBIN4 * ************************************ MOVE GSWBIN3,GSWBIN4 FIND GROUP NO ADD GSWBIN3,CBIN2 DIV GSWBIN3,CBIN3 GSWBIN3 = GROUP NO RES010 CBE GSWBIN4,CKTLAST,RES100 LAST RECORD ? YES: JUMP MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? MUL GSWBIN5,CBIN3 SUB GSWBIN5,GSWBIN4 BNE RESOK FINISH IF NOT LAST IN GROUP MOVE GSWBIN5,=W'120' LAST IN GROUP MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 GET LAST NO MOVE CKTINDX(GSWBIN3),GSWBCD7 B RESOK RES100 CBE CKTLAST,CBIN0,RES170 MOVE GSWBIN5,=W'120' FIND LAST USED NUMBER MOVE GSWBCD7,=D'1' RES110 MATCH CKTBUF,GSWBIN5,CBIN1,CBLANKS,CBIN0,CBIN1 BE RES150 XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 MOVE CKTINDX(GSWBIN3),GSWBCD7 SET MASTER INDEX RES120 ADD GSWBIN3,CBIN1 SET REMAINING INDICES TO ZERO CBG GSWBIN3,CBIN7,RESOK MOVE CKTINDX(GSWBIN3),=D'0' B RES120 RES150 SUB GSWBIN5,CBIN8 BNL RES110 RES170 MOVE GSWBIN3,CBIN0 B RES120 RESOK RET PEND EJECT SETMK PROC **************************** * * INITIATE MASTER INDEX FOR 'KONTOPLAN' * **************************** MOVE GSWBIN4,CBIN1 SET010 MOVE GSWBIN5,=W'128' MOVE CKTBUF,CBLANKS PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 MOVE GSWBIN5,=W'120' MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 BE SET100 PERF RESTMK ADD GSWBIN4,CBIN1 CBNG GSWBIN4,=W'21',SET010 MOVE CKTLAST,=W'21' B SETOK SET100 MOVE GSWBIN5,CBIN0 MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 BNE SET120 SUB GSWBIN4,CBIN1 BE SET120 MOVE GSWBIN5,=W'128' MOVE CKTBUF,CBLANKS PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 SET120 MOVE CKTLAST,GSWBIN4 PERF RESTMK SETOK RET PEND END