|
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: 7924 (0x1ef4)
Notes: pts_type(SC)
Names: »REMPRT.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/REMPRT.SC«
IDENT REMPRT 820823 NJ DDUM KMD08 PDIV ENTRY AD4100 ENTRY AD4200 ENTRY AD4300 EXT ADMRET EXT SPCLRA EXT CHDATO EXT BDTSCA EXT BDTPRT EXT BDTDEL EXT YYMMDD EJECT AD4100 * CREATE PRINTLEV TBT CAD41FLG,AD41EX OCCUPIED? SET CAD41FLG NO, RESERVE ALL FILES TBF CBUDTFLG,AD41END SET SPPROMPT ATTFMT ADM41FRM PERF SPCLRA CBNE SPBINW2,CBIN3,AD41END ADD TRANSACTIONS TO PRINTLEV CBL GTPRTTIL,=D'1',ADM4120 SET CADVIS MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' TBT GTGTPFLG,ADM4125 TBT GTLPFLG,ADM4125 B AD41RET ADM4120 TBF GTTTPFLG,AD41RET ADM4125 CBNL GTLEVNR,=D'19',ADM4130 MOVE GTLEVNR,=D'19' 1. LEVNR ADM4130 PERF YYMMDD,GTPRTDAT MOVE GTPRTDAT,GSWBCD7 PERF BDTSCA AD41RET CLEAR CADVIS MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' AD41END CLEAR CAD41FLG AD41EX B ADMRET EJECT AD4200 * PRINT PRINTLEV TBF CBUDTFLG,AD42RET TBT GTGTPFLG,ADM4210 TBT GTLPFLG,ADM4210 B AD42RET ADM4210 CLEAR CKRESP SET SPPROMPT ATTFMT ADM42FRM PERF SPCLRA CBNE SPBINW2,CBIN3,AD42RET CLEAR CBDTGIR CBNE GTPRTTIL,=D'2',ADM4222 SET CBDTGIR ADM4222 CBNL GTPRTFRA,=D'1',ADM4225 MOVE GTPRTFRA,=D'10000000000' ADM4225 MOVE GTLEVNR,GTPRTTIL CBL GTLEVNR,=D'6',ADM4230 SUB GTLEVNR,=D'5' ADM4230 MOVE GTPRTTIL,GTLEVNR MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' PERF BDTPRT,CBIN1 CHECK/GIRO BNOK AD42RET MOVE GSWSTR20,='SAMLERLISTE ' ATTFMT ADM42FM2 PERF SPCLRA CBNE SPBINW2,CBIN3,AD42RET MOVE GTLEVNR,GTPRTTIL MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' PERF BDTPRT,CBIN2 BNOK AD42RET MOVE GSWSTR20,='SPECIFIKATION ' ATTFMT ADM42FM2 PERF SPCLRA CBNE SPBINW2,CBIN3,AD42RET MOVE GTLEVNR,GTPRTTIL SET CKRESP ADD GTLEVNR,=D'10' POINT TO SPECIFICATIONS MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' PERF BDTPRT,CBIN3 KREDIT SPECIFICATIONS CLEAR CKRESP * AD42RET CLEAR CBDTGIR B ADMRET EJECT AD4300 * CLEAN PRINTLEV TBF CBUDTFLG,AD43END TBT CAD41FLG,AD43END SET CAD41FLG SET SPPROMPT ATTFMT ADM43FRM PERF SPCLRA CBNE SPBINW2,CBIN3,AD43RET MOVE GTLEVNR,GTPRTFRA CBL GTLEVNR,=D'6',ADM4320 SUB GTLEVNR,=D'5' ADM4320 PERF BDTDEL BNOK AD43RET MOVE GTLEVNR,GTPRTFRA CBL GTLEVNR,=D'6',ADM4330 SUB GTLEVNR,=D'5' ADM4330 ADD GTLEVNR,=D'10' PERF BDTDEL DELETE CREDIT SPECIFICATIONS * AD43RET CLEAR CAD41FLG AD43END B ADMRET EJECT ********** * * FORMATS * ********** * ADM41FRM FRMT FSL FCOPY ='DAN ' FCOPY ='PRINT' FCOPY ='FIL' FILLR ' ',1 FCOPY ='BUNDTREMITTERING' FNL FCOPY ='VAL' FILLR X'5C',1 FILLR 'R',1 FCOPY ='DATO' FLINK ADM4X1 FNL FCOPY ='BFO' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTFRA FNL FCOPY ='ADVI' FCOPY ='SLISTE' FCOPY =' (0-1)' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTTIL FNL FCOPY ='FRA LEV. ' FCOPY ='NR' FKI 20,MINL=7,MAXL=10,NUM,SCHK=7 FMEL 'XXXXXXXXXX',GTLEVNR FMEND * ADM42FRM FRMT FSL FCOPY ='PRINT' FCOPY ='RUTINE ' FCOPY ='BUNDTREMITTERING' FNL FCOPY ='UDSKRIFT ' FCOPY ='DATO' FLINK ADM4X1 FNL FCOPY ='BFO' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTTIL FNL FCOPY ='FRA LEV. ' FCOPY ='NR' FKI 20,MINL=7,MAXL=10,NUM,SCHK=7 FMEL 'XXXXXXXXXX',GTPRTFRA FMEND * ADM42FM2 FRMT FSL FCOPY GSWSTR20 FNL FKI 1 FMEL 'B',TSWBCD2 FMEND * ADM43FRM FRMT FSL FCOPY ='SLET ' FCOPY ='RUTINE ' FCOPY ='BUNDTREMITTERING' FNL FCOPY ='BFO' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTFRA FMEND * ADM4X1 FRMT FKI 20,MINL=6,MAXL=6,NUM,SCHK=2,REWRT,ME FMEL 'XXVXXVXX',GTPRTDAT FMEND * * END