|
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: 14364 (0x381c)
Notes: pts_type(SC)
Names: »RGMAIN.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/RGMAIN.SC«
IDENT RGMAIN 03.02.XXX.1 DDUM KMD08 PDIV ENTRY INITRG ENTRY FUNCT ENTRY TRINP ENTRY TRPAGE EXT BELL EXT SETKRE EXT SETDEB EXT PACKCL EXT FMSTYR EXT FRMTSP EXT SPCLRA EXT SPERR EXT SPCA EXT SPCN EXT SPCLRN EXT SPINF1 EXT LSTINT EXT SUBTOT EXT CYK EXT MODP EXT KORT EXT KVIT EXT ADM EXT SUM EXT DIVTR EXT ENTER INCLUDE EQUATE EJECT INITRG PROC ******************** * * INITRG - THIS PROCEDURE TAKES CARE OF ALL REGISTRATIONS, * FROM 'KASSEAABNING' TO 'KASSELUKNING'. * ONLY KASSEFUNCTIONS, FROM OPEN TO CLOSE. * TWO DIFFERENT METHODS ARE USED, * DETERMINED BY THE FLAG CTRVALG: * CTRVALG TRUE : 'SKOVBOMETODE' * CTRVALG FALSE: 'VIBORGMETODE' * ******************** * * GENERAL INITIATION MOVE SPLINTOP,=W'1' FIRST LINE, SCREEN MOVE SPLINLOW,=W'0' LAST LINE, SCREEN MOVE SPKEY,CBIN1 USE KEY POSITION 1 SET GTREGFLG FIRST TRANS CLEAR SPME MOVE GTREGNR,=D'1' INITIAL TRANSTYPE 1 MOVE GTREGDEX,CBIN1 PERF SETKRE KREDIT PERF PACKCL CLEAR PACKBUFFER * TBF CTRVALG,TR250 * INITIATE SKOVBOMETODE TR200 PERF TRPAGE TRANS SELECTED SET GTDIVTR 'DIVERSE TRANS' B TR400 * * INITIATE VIBORGMETODE TR250 CLEAR GTDIVTR MOVE TTSTYRDX,=W'1' 'HOVEDBOG' B TR400 EJECT * READ TR400 SET SPPROMPT MOVE TTTROLD,=W'-1' CLEAR OLD TRANS NO TR410 CLEAR SPCHANGE READY FOR FUNCTIONS TBT GTDIVTR,TR420 MOVE GTDBKRC,=C' ' PERF FMSTYR ATTACH CONTROL INF CLEAR GTTRSEL B TR430 TR420 PERF FRMTSP ATTACH FULL FORMAT TR430 TBT GTLOKSPG,TR435 MOVE SPKEY,CBIN1 PERF SPCLRA WRITE AND READ ON SCREEN B TR500 TR435 MOVE SPKEY,CBIN3 PERF SPCLRN IF LOCAL INQUIRIES EJECT TR500 TBT SPCHANGE,TR600 * FUNCTION CALL PERF FUNCT SET GTSLUTFL * BRANCH ON TYPE OF FUNCTION IB SPBINW3, C TR510,TR520,TR530,TR540,TR550 * TR510 NEW TYPE OF CONTROL INF B TR400 * TR520 ERROR TYPE PERF SPERR CBE SPBINW2,=W'2',TR510 MAK KEY B TR530 CORRECTION * TR530 FUNCTION WITHOUT INPUT CLEAR SPPROMPT PERF SPCLRA RESTAT INPUT B TR500 * TR540 FUNCTION WITH INPUT B TR400 * TR550 OUT OF REGISTRATION SET SPME RET * EJECT TR600 * NOT FUNCTION CALL PERF TRINP SET GTSLUTFL * BRANCH ON TYPE OF INPUT * (MAK, ERROR, TRSEL, END 1 PG, END MORE PG, * TO NEXT PAGE) IB SPBINW3, C TR610,TR620,TR630,TR640,TR650,TR660 * TR610 MAK TYPE TBF GTSPECTR,TR615 PERF PACKCL IF TR 50... TR615 PERF TRPAGE B TR400 * TR620 INVALID KEY PERF SPERR CBE SPBINW2,=W'2',TR610 MAK CLEAR SPPROMPT PERF SPCN B TR500 * TR630 TRANSACTION SELECTED TBT GTDIVTR,TR620 NOT ALLOWED PERF TRPAGE CBNE TTTROLD,GTREGDEX,TR635 CLEAR SPPROMPT SAME AS PREVIOUS TRANS PERF SPINF1 PERF FRMTSP PERF SPCN B TR500 TR635 CBL TTTROLD,CBIN0,TR636 ERASE 0,CBIN4,CBIN4 ERASE 0,CBIN6,CBIN6 TR636 MOVE TTTROLD,GTREGDEX NOT AS PREVIOUS TRANS SET SPPROMPT PERF FRMTSP PERF SPCA B TR500 * TR640 1 PAGE TRANS CORRECT TBT GTDIVTR,TR645 ERASE 10,SPLINTOP,SPLINLOW ERASE VARIABLES IN MOVE GTDBKRC,=C' ' CURRENT FORMAT TR645 CLEAR SPPROMPT CLEAR GTREGFLG B TR410 * TR650 >1 PAGE TRANS CORRECT TBT GTDIVTR,TR615 MOVE GTDBKRC,=C' ' CLEAR GTREGFLG B TR610 * TR660 TO NEXT PAGE NEXT PAGE ALREADY ATTACHED MOVE TTTROLD,CBIN0 SET SPPROMPT PERF SPCLRA B TR500 * * PEND EJECT FUNCT PROC ******************** * * FUNCT - PROCEDURE FOR EXECUTING ALL FUNCTIONS ALLOWED. * INPUT: * SPBINW2, GIVING KEY INDEX, COMMING FROM * SCREEN PACKAGE * OUTPUT: * SPBINW3, GIVING THE TYPE OF FUNCTION * 1 MAK OR NEW CONTROL INFORMATION * 2 INVALID KEY * 3 FUNCTION WITHOUT INPUT * 4 FUNCTION WITH INPUT * 5 REG KEY, OUT OF REGISTRATION * ******************** * IB SPBINW2, C FU01,FU02,FU03,FU04,FU05,FU06,FU07,FU08,FU09,FU10, C FU11,FU12,FU13,FU14,FU15,FU16,FU17,FU18,FU19,FU20, C FU21,FU22 B FU01 * * FU01 FU02 CLEAR GTLOKSPG MAK MOVE SPBINW3,CBIN1 RET * FU03 ENTER TBT GTLOKSPG,FU08 TEST GTDIVTR BZ FUNOK PERF SETDEB PERF BELL PERF SPINF1 MOVE SPBINW3,CBIN3 DEBET RET * FU04 KREDIT KEY TEST GTDIVTR BZ FUNOK CBG GTREGNR,=D'49',FUNOK NOT IN TR 50... PERF SETKRE PERF BELL PERF SPINF1 MOVE SPBINW3,CBIN3 KREDIT RET * FU05 REG KEY MOVE SPBINW3,CBIN5 OUT OF REGISTRATION RET * FU06 LISTE PERF LSTINT BNOK FUNOK B FUOK * FU07 SUBTOTAL PERF SUBTOT BNOK FUNOK B FUOK * FU08 SPG FUNCTION PERF ADM,CBIN11 MOVE SPBINW3,CBIN1 RET * FU09 CYCLE PERF CYK,CBIN1 BNOK FUNOK MOVE SPBINW3,CBIN4 RET * FU10 STABEL PERF CYK,CBIN2 BNOK FUNOK MOVE SPBINW3,CBIN4 RET * FU11 INVKEY, MODP PERF MODP BNOK FUNOK CBE GTRETUR,=W'3',FU1110 B FUOK FU1110 MOVE SPBINW3,CBIN4 RET * FU12 KONTOKORT PERF KORT BNOK FUNOK MOVE SPBINW3,CBIN4 RET * FU13 KVIT PERF KVIT BNOK FUNOK B FUOK * FU14 SUPL PERF ADM,CBIN10 BNOK FUNOK B FUOK * FU15 SUM PERF SUM BNOK FUNOK B FUOK * FU16 ADM KEY MOVE GSWBCD3,SPINPUT GET ADM TYPE MOVE GSWBIN1,GSWBCD3 PERF ADM,GSWBIN1 MOVE SPBINW3,CBIN4 RET * FU17 CYCLE KEY MOVE GSWBCD3,SPINPUT GET TYPE OF CYCLE MOVE GSWBIN1,GSWBCD3 IB GSWBIN1, C FU09,FU10,FUNOK,FCYK4,FUNOK, CYCLE,STABEL C FUNOK,FUNOK,FUNOK,FCYK9 PERF CYK,CBIN10 END OF CYCLE/STABEL BNOK FUNOK B FUOK * FCYK4 PAUSE IN CYCLE STABEL PERF CYK,CBIN4 BNOK FUNOK B FUOK * FCYK9 PERF CYK,CBIN9 CLEAR ARKIV KNT. NR BNOK FUNOK B FUOK * FU18 DIV TRANS PERF DIVTR BNOK FUNOK MOVE SPBINW3,CBIN1 RET * FU19 HOVEDBOG TBT GTDIVTR,FUNOK MOVE TTSTYRDX,=W'1' MOVE SPBINW3,CBIN1 RET * FU20 DEBITOR POSTERING TBT GTDIVTR,FUNOK MOVE TTSTYRDX,=W'2' MOVE SPBINW3,CBIN1 RET * FU21 REMITTERING TBT GTDIVTR,FUNOK MOVE TTSTYRDX,=W'3' MOVE SPBINW3,CBIN1 RET * FU22 TRANS SELECTION IN DIVTR TBF GTDIVTR,FUNOK PERF TRPAGE MOVE SPBINW3,CBIN1 RET * * FUNOK MOVE SPBINW4,=W'16' INVALID KEY MOVE SPBINW3,CBIN2 RET * FUOK MOVE SPBINW3,CBIN3 RET * * PEND EJECT TRINP PROC ******************** * * TRINP - PROCEDURE FOR HANDLING INFORMATION GIVEN OVER * FROM THE SCREEN PACKAGE. * WILL BE CALLED WHEN SOMETHING HAS BEEN ENTERED * WHICH THE SCREEN PACKAGE CAN NOT TAKE CARE OF * ITSELF. * SPCHANGE WILL BE SET. * INPUT: * SPBINW2: INDEX FOR THE KEY DEPRESSED * OUTPUT: * SPBINW3: GIVING THE TYPE OF INPUT * 1 MAK TYPE * 2 INVALID KEY * 3 TRANSACTION SELECTED * 4 1 PAGE TRANS CORRECT * 5 >1 PAGE TRANS CORRECT * 6 NEXT PAGE OF TRANS ALREADY ATTACHED * ******************** * IB SPBINW2, C IN01,IN02,IN03 CBE SPBINW2,=W'22',IN22 IN00 MOVE SPBINW3,CBIN2 INVALID KEY RET * IN01 IN02 MAK MOVE SPBINW3,CBIN1 RET * IN03 AFTER SLUT, TBT GTTRSEL,IN030 CBE SPBINW1,=W'0',IN00 NOT ALLOWED IN030 PERF ENTER BNOK IN035 ERRORS DETECTED IN FLDTST IB GTRETUR, C IN031,IN032,IN033 IN031 MOVE SPBINW3,CBIN4 RET IN032 MOVE SPBINW3,CBIN6 RET IN033 MOVE SPBINW3,CBIN5 RET IN035 TBWD TAB OVER LAST FIELD MOVE SPBINW3,CBIN2 RET * IN22 TRANS SELECTED MOVE SPBINW3,CBIN3 RET * PEND EJECT TRPAGE PROC ******************** * * TRPAGE - AFTER SELECTION OF TRANSTYPE, SET CORRECT * INFORMATION ABOUT THE SIZE AND TYPE OF * THE TRANSACTION * ******************** * SET GTTRSEL TRANSACTION SELECTED CLEAR GTTYPE2 CLEAR GTTYPE3 MOVE GTPAGE,CBIN1 * TRANSTYPE 01, 02, 03, 04, 05, 06, 07, 08, 09, 10, * 12, 40, 41, 42, 45, 46, 47, 48, 49, 50, * 51, 52, 53, 54 IB GTREGDEX, C PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG02,PG02,PG01, C PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01, C PG02,PG01,PG02,PG01 * PG01 RET * PG02 SET GTTYPE2 RET * PG03 SET GTTYPE3 RET * PEND * * * END