|
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: 7976 (0x1f28)
Notes: pts_type(SC)
Names: »RKAPPL.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/RKAPPL.SC«
IDENT RKAPPL R]KONVERTERING 9.2 810126 NJ OPTNS LINES=46 DDUM KMD08 PDIV ENTRY RKAPPL EXT SPCHK1 INCLUDE EQUATE RKAPPL PROC IB SPBINW3,APPL1,APPL2,APPL3,APPL4,APPL5,APPL6 B ARET01 INVALID APPLVALUE APPL1 APPL2 APPL4 APPL5 B ARET01 APPL6 * FIND OUT IF THE FIELD IS VALID. * SAVE THE FIELDNBR MOVE GSWBCD6,SPINPUT MOVE GSWBIN1,GSWBCD6 MOVE GSWBIN2,CBIN1 APPL61 CBG CSLUTFLD(GSWBIN2,CBIN1),GSWBIN1,APPL62 CBE CSLUTFLD(GSWBIN2,CBIN1),GSWBIN1,APPL63 ADD GSWBIN2,CBIN1 B APPL61 APPL62 FIELDNR INVALID MOVE SPBINW4,CBIN1 MOVE GSWBCD4,=D'3536' MOVE SPBINW3,CBIN3 B ARET01 APPL63 MOVE SPBINW3,CBIN0 B ARET01 APPL3 * * FIND OUT IF A CHECK IS TO BE PERFORMED * PERF GETLC CBNE FIELD(SPBINW3,SPBINW4),=D'0',APPL300 B APPL3ER APPL300 MOVE GSWBCD1,FIELD(SPBINW3,SPBINW4) MOVE SPBINW3,GSWBCD1 MOVE GSWBIN8,CBIN1 APPL301 CBE CSLUTFLD(GSWBIN8,CBIN1),SPBINW3,APPL302 ADD GSWBIN8,CBIN1 B APPL301 APPL302 MOVE GSWSTR1,SPINPUT CBNE GSWSTR1,='X',APPL303 FIELD TO BE DELETED? TBWD BACKWARD TAB DSC1 SCREEN,ERASE,CBIN3 ERASE 3 POS PERF GETLC MOVE FIELD(SPBINW3,SPBINW4),CBIN0 MOVE SAVEF(SPBINW3,SPBINW4),=X'00' TFWD DSC1 SCREEN,ERASE,CBIN10 MOVE SPINPUT,=X'00' B APPL310 NORMAL EXIT APPL303 MOVE GSWBCD1,SPINPUT MOVE GSWBIN8,CSLUTFLD(GSWBIN8,CBIN2) MOVE CHECKVALUE ADD GSWBIN8,CBIN1 IB GSWBIN8, C APPL310, C APPL311, C APPL312, C APPL313, C APPL314, C APPL315, C APPL316, C APPL317, C APPL318, C APPL319, C APPL320, C APPL321, C APPL322, C APPL323, C APPL324, C APPL325, C APPL326, C APPL327, C APPL328, C APPL329, C APPL330, C APPL331, C APPL332, C APPL333 APPL310 NO CHECK AT ALL (OR OK) MOVE SPBINW3,CBIN0 B ARET01 APPL311 PERSONFRADRAGSKODE MOVE GSWSTR1,SPINPUT CBE SPINPUT,='S',APPL310 MOVE SPBINW3,GSWBCD1 IB SPBINW3,APPL310,APPL3ER,APPL310,APPL310,APPL3ER, C APPL3ER,APPL310,APPL310,APPL310 B APPL3ER APPL312 >= 0 CBNL GSWBCD1,=D'0',APPL310 B APPL3ER APPL313 AKTIEUDBYTTE CBL GSWBCD1,=D'0',APPL313A CBG GSWBCD1,=D'25000',APPL313A B APPL310 APPL313A B APPL3ER APPL314 RENTENEDSLAGSBELOB CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'50000',APPL3ER B APPL310 APPL315 S[RLIG UDB CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'10000',APPL3ER B APPL310 APPL316 CPRNR PERF SPCHK1 CBNE SPBINW3,CBIN3,APPL310 MOVE SPBINW4,CBIN1 MOVE GSWBCD4,=D'3540' B APPL3ER APPL317 CIRNR PERF SPCHK1 CBNE SPBINW3,CBIN3,APPL310 MOVE SPBINW4,CBIN1 MOVE GSWBCD4,=D'3514' B APPL3ER APPL318 SAMBESKATNINGSKODE CBL GSWBCD1,=D'1',APPL3ER CBG GSWBCD1,=D'2',APPL3ER B APPL310 APPL319 SKATTEPL OMFANG CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'7',APPL3ER B APPL310 APPL320 FORSKUDT REGNSKABS]R MOVE GSWSTR1,SPINPUT CBE GSWSTR1,='S',APPL310 S ALLOWED CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'12',APPL3ER B APPL310 APPL321 SKONSPOSTER MOVE GSWSTR1,SPINPUT CBE GSWSTR1,='S',APPL310 CBNE GSWBCD1,=D'1',APPL3ER B APPL310 APPL322 ERKL[RINGSKODE MOVE GSWSTR1,SPINPUT CBE GSWSTR1,='S',APPL310 CBE GSWBCD1,=D'0',APPL310 CBE GSWBCD1,=D'3',APPL310 B APPL3ER APPL323 KIRKEDATO CBL GSWBCD1,=D'0101',APPL3ER CBG GSWBCD1,=D'3112',APPL3ER B APPL310 APPL324 KONTROLLOV MOVE GSWSTR1,SPINPUT CBE GSWSTR1,='S',APPL310 'S' ALLOWED CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'5',APPL3ER B APPL310 APPL325 LIGNINGSART MOVE GSWSTR1,SPINPUT CBE GSWSTR1,='S',APPL310 CBE GSWSTR1,=' ',APPL310 CBL GSWBCD1,=D'1',APPL3ER CBG GSWBCD1,=D'7',APPL3ER B APPL310 APPL326 SLETTEKODE CBNE GSWBCD1,=D'1',APPL3ER B APPL310 APPL327 ENKEKODE MOVE GSWBIN1,GSWBCD1 IB GSWBIN1,APPL310,APPL3ER,APPL310,APPL310,APPL310, C APPL310,APPL310,APPL310 B APPL3ER APPL328 S[RBEHANDLINGSKODE MOVE GSWSTR1,SPINPUT CBE GSWSTR1,=' ',APPL310 MOVE GSWBIN1,GSWBCD1 CBL GSWBCD1,=D'1',APPL3ER CBG GSWBCD1,=D'8',APPL3ER B APPL310 APPL329 MEDHJ [GTEF[LLE CBG GSWBCD1,MEDHJ,APPL3ER B APPL310 APPL330 SELVANG. FORMUE B APPL3ER APPL331 SOMANDSDAGE CBL GSWBCD1,=D'0',APPL3ER CBE GSWBCD1,=D'999',APPL332A CBG GSWBCD1,=D'365',APPL3ER B APPL310 APPL332 MOVE GSWSTR1,SPINPUT TILL[GSSKPL BELOB CBE GSWSTR1,='S',APPL332A 'S' ALLOWED CBL GSWBCD1,=D'0',APPL3ER APPL332A B APPL310 APPL333 CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'6000',APPL3ER B APPL310 APPL3ER MOVE SPBINW4,CBIN1 MOVE GSWBCD4,=D'3539' MOVE SPBINW3,CBIN3 ARET01 RET PEND EJECT GETLC PROC GETABX SPBINW3 GET NUMBER OF INPUTFIELD ADD SPBINW3,CBIN7 MOVE SPBINW4,SPBINW3 COMPUTE ROW/COLUMN DIV SPBINW3,CBIN8 LINENBR MOVE GSWBIN1,SPBINW3 MUL GSWBIN1,CBIN8 SUB SPBINW4,GSWBIN1 COLUMN ADD SPBINW4,CBIN1 DIV SPBINW4,CBIN2 CBNE SPBINW4,CBIN0,GETLC10 MOVE SPBINW4,CBIN4 SUB SPBINW3,CBIN1 GETLC10 RET PEND END