|
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: 14154 (0x374a)
Notes: pts_type(SC)
Names: »REMBDT.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/REMBDT.SC«
IDENT REMBDT 820806 NJ DDUM KMD08 PDIV ENTRY BGIRPR ENTRY BSAMPR ENTRY WSTRCH ENTRY TXTEDT EXT RAWRIT EXT TXTRD EXT LEVRD EXT FMREMP EXT GENWRF EXT GENWRS EXT KFWRIT EXT CLEAR8 EXT CYRD EXT SPLIN8 EXT GRASPV EXT WRITJT EXT FSOLVE EXT FMOD EXT NEWLIN EXT WAITF EXT STREDT INCLUDE EQUATE EJECT WSTRCH PROC P ********** * * P=0: CREATE A RECORD ON CYSET CONTAINING ONE SPEC. LINE FOR * STRAKSCHECK * P=1: WRITE A STRAKSCHECK * CLEAR CYSET * PREPARE FOR NEXT STRAKSCHECK * ********** CBE P,CBIN1,WSTR050 EXPL. WRITE? MOVE GSWBIN8,TTASKNR FIND PHYS. RECORD SUB GSWBIN8,CBIN1 MUL GSWBIN8,CCYSIZE ADD GSWBIN8,GTCHKCY ADD GSWBIN8,=W'30' CBNE GTCHKCY,CBIN1,WSTR005 MOVE GTCYSUM,=D'0' WSTR005 PERF WAITF,CCYPFLG MOVE CCYBUF,=X'00' PERF STREDT EDIT CCYBUF,CHKFRM2 PERF RAWRIT,DK03,=D'3',CCYBUF,GSWBIN8 BNOK WSTR094 ADD GTCHKCY,CBIN1 CLEAR CCYPFLG ADD GTCYSUM,GTDUPF(CBIN4) CBNG GTCHKCY,CBIN6,WSTR090 ROOM FOR NEXT LINE? TBF C821FLG,WSTR050 CBNG GTCHKCY,CBIN12,WSTR090 HJORRING ONLY WSTR050 WRITE A CHECK CBE GTCHKCY,CBIN1,WSTR090 EMPTY? CBL GTCYSUM,=D'1',WSTR080 ADD CCHKLBNR,=D'1' PERF WRITJT,=W'16' PERF SPLIN8,CBIN13,CBIN2 PERF GRASPV MOVE GSWBIN8,=W'40' TBF C821FLG,WSTR052 ADD GSWBIN8,CBIN10 WSTR052 DSC1 KVOUCH,POS,GSWBIN8 MOVE GTKFVAL,CCHKLBNR REWRITE CHECKLOBENR PERF KFWRIT,CBIN4,CBIN1,CBIN0,GTKFVAL EDWRT KVOUCH,CHKFRM1 MOVE GTCYSUM,=D'0' MOVE GSWBIN8,GTCHKCY LOOP CONTROL SUB GSWBIN8,CBIN1 MOVE GSWBCD6,GTCYIN SAVE GTCYIN MOVE GTCYIN,TTASKNR MUL GTCYIN,CCYSIZE SUB GTCYIN,CBIN5 MOVE GSWBIN7,CBIN15 TBF C821FLG,WSTR060 ADD GSWBIN7,CBIN10 WSTR060 SUB GSWBIN7,CBIN2 DSC1 KVOUCH,POS,GSWBIN7 PERF CYRD SUB GSWBIN8,CBIN1 BNZ WSTR060 FINISHED? DSC0 KVOUCH,RLEAS MOVE GTCYIN,GSWBCD6 RESTORE GTCYIN WSTR080 MOVE GTCYSUM,=D'0' MOVE GTCHKCY,CBIN1 * WSTR090 PERF CLEAR8 CMP CBIN0,CBIN0 B WSTR099 WSTR094 DISK ERROR CLEAR CCYPFLG CMP CBIN0,CBIN1 B WSTR099 WSTR099 RET PEND EJECT BGIRPR PROC P * BGIRPR10 - ADJUST PRINTER * BGIRPR20 - LEV 1 + TRANS 1 * BGIR30 - TRANS 2 * BGIR40 TRANS 3 * BGIR50 - LEV 2 + TRANS 1 * BGIR60 - TRANS 2 * BGIR70 - TRANS 3 + WRITE * BGIR80 - WRITE MOVE GSWBIN8,P ADD GSWBIN8,CBIN1 IB GSWBIN8,BGIR10,BGIR20,BGIR30,BGIR40, C BGIR50,BGIR60,BGIR70,BGIR80 B BGIR90 * BGIR10 PERF FMREMP,CBIN2 GET FORMAT FBDTGIR MOVE SPINPUT,='X' MOVE GSWBIN5,CBIN1 BGIR15 PERF FMOD,GSWBIN5,SPINPUT ADD GSWBIN5,CBIN1 CBG GSWBIN5,=W'32',BGIR86 B BGIR15 * BGIR20 PERF FMREMP,CBIN2 GET FORMAT FBDTGIR MOVE GTBSUM2,=D'0' GIRO TOTAL RIGHT EDIT GSWSTR20,FSAMLEV PERF FMOD,CBIN2,GSWSTR20 MOVE GIRONR PERF FMOD,CBIN9,GTLEVNVN PERF FMOD,CBIN12,GTLEVADR PERF FMOD,CBIN16,GTLEVBY PERF FMOD,CBIN21,GTLEVPDI EDIT GSWSTR9,FPNR PERF FMOD,CBIN20,GSWSTR9 * MOVE GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN2,CBIN1 B BGIR90 * BGIR30 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN2,CBIN2 B BGIR90 * BGIR40 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN2,CBIN3 B BGIR90 * BGIR50 EDIT GSWSTR20,FSAMLEV PERF FMOD,CBIN4,GSWSTR20 MOVE GIRONR PERF FMOD,CBIN10,GTLEVNVN PERF FMOD,CBIN14,GTLEVADR PERF FMOD,CBIN18,GTLEVBY MOVE GSWBIN7,=W'24' PERF FMOD,GSWBIN7,GTLEVPDI EDIT GSWSTR9,FPNR MOVE GSWBIN7,=W'23' PERF FMOD,GSWBIN7,GSWSTR9 * MOVE GTBSUM2,GTDUPF(CBIN4) PERF TXTEDT,CBIN2,CBIN4 B BGIR90 * BGIR60 ADD GTBSUM2,GTDUPF(CBIN4) PERF TXTEDT,CBIN2,CBIN5 B BGIR90 * BGIR70 ADD GTBSUM2,GTDUPF(CBIN4) PERF TXTEDT,CBIN2,CBIN6 B BGIR85 * BGIR80 BGIR85 EDIT SPINPUT,FREMTOT1 MOVE GSWBIN7,=W'31' PERF FMOD,GSWBIN7,SPINPUT MOVE GSWBIN7,=W'32' EDIT SPINPUT,FREMTOT2 PERF FMOD,GSWBIN7,SPINPUT PERF FSOLVE BGIR86 MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' PERF GENWRS,GTHCDEV,EDITBUF PERF NEWLIN,CBIN13 * BGIR90 CMP CBIN0,CBIN0 RET PEND EJECT BSAMPR PROC P * P = 0 - BSAM10 - HEADER * P = 1 - BSAM20 - LEV + TRANS 1 * P = 2 - BSAM30 - TRANS 2 * P = 3 - BSAM40 - TRANS 3 + PRINT + HEADER (EVTL) * P = 4 - BSAM70 - PRINT * P = 5 - BSAM50 - PRINT TOTAL MOVE GSWBIN8,P ADD GSWBIN8,CBIN1 IB GSWBIN8,BSAM10,BSAM20,BSAM30,BSAM40, C BSAM70,BSAM50 B BSAM90 BSAM10 MOVE GSWBIN10,CBIN1 TBT CADVIS,BSAM15 TBF CBDTGIR,BSAM15 MOVE GTLEVNR,GTPRTTIL PERF LEVRD READ HEADING BSAM15 MOVE GSWBCD4,GSWBIN10 PERF GENWRF,GTHCDEV,FBDTOVSK MOVE GSWBIN3,=W'40' B BSAM90 BSAM20 PERF FMREMP,CBIN3 GET FORMAT FBDTSAM PERF FMOD,CBIN3,GTLEVNVN EDIT GSWSTR20,FSAMLEV PERF FMOD,CBIN2,GSWSTR20 MOVE GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN3,CBIN1 B BSAM90 BSAM30 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN3,CBIN2 B BSAM90 BSAM40 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN3,CBIN3 B BSAM70 BSAM50 CLEAR CSWFLAG PERF GENWRF,GTHCDEV,FBDTSLUT SET CSWFLAG PERF GENWRF,GTHCDEV,FBDTSLUT SUB GSWBIN3,CBIN7 PERF NEWLIN,GSWBIN3 SKIP TO NEW PAGE B BSAM90 BSAM70 CBE GSWBCD5,=D'1',BSAM90 EDIT SPINPUT,FREMTOTS PERF FMOD,CBIN1,SPINPUT PERF FSOLVE CBG GSWBIN3,CBIN3,BSAM85 CLEAR CSWFLAG PERF GENWRF,GTHCDEV,FBDTSLUT PERF NEWLIN,CBIN6 ADD GSWBIN10,CBIN1 TBT CADVIS,BSAM75 MOVE GTLEVNR,GTPRTTIL PERF LEVRD READ HEADING BSAM75 MOVE GSWBCD4,GSWBIN10 PERF GENWRF,GTHCDEV,FBDTOVSK MOVE GTBSUM2,=D'0' MOVE GSWBIN3,=W'40' BSAM85 PERF GENWRS,GTHCDEV,EDITBUF SUB GSWBIN3,CBIN2 ADD GTBSUM2,GTBSUM1 ADD GTBSUM3,GTBSUM1 MOVE GTBSUM1,=D'0' BSAM90 CMP CBIN0,CBIN0 CLEAR CSWFLAG RET PEND EJECT TXTEDT PROC ART,SEQ * ART=1 - BUNDTCHECK * ART=2 - BUNDTGIRO * ART=3 - SAMLERLISTE * MOVE GSWBIN7,GTDUPF(CBIN15) TEXTNR PERF TXTRD,GSWBIN7 * PERF STREDT * SPINPUT CONTAINS NOW NUMMER-1 NUMMER2 DATO1 DATO2 * (IN A COMBINATION GOVERNED BY TEXTCODE) * GSWSTR20 CONTAINS AMOUNT MOVE GSWBIN7,ART IB GSWBIN7,TXTE20,TXTE30,TXTE40 * TXTE20 EDIT BUNDTCHECK MOVE GSWBIN7,SEQ IB GSWBIN7,TXTE21,TXTE22,TXTE23 TXTE21 PERF FMOD,CBIN1,GTLEVTXT TEXT PERF FMOD,CBIN2,SPINPUT INFO PERF FMOD,CBIN3,GSWSTR20 AMOUNT B TXTE90 TXTE22 PERF FMOD,CBIN5,GTLEVTXT PERF FMOD,CBIN6,SPINPUT PERF FMOD,CBIN7,GSWSTR20 B TXTE90 TXTE23 PERF FMOD,CBIN9,GTLEVTXT PERF FMOD,CBIN10,SPINPUT PERF FMOD,CBIN12,GSWSTR20 B TXTE90 * TXTE30 EDIT GIRO MOVE GSWBIN7,SEQ IB GSWBIN7,TXTE31,TXTE32,TXTE33,TXTE34,TXTE35,TXTE36 TXTE31 PERF FMOD,CBIN1,GTLEVTXT PERF FMOD,CBIN5,SPINPUT PERF FMOD,CBIN7,GSWSTR20 B TXTE90 TXTE32 PERF FMOD,CBIN11,GTLEVTXT PERF FMOD,CBIN15,SPINPUT PERF FMOD,CBIN19,GSWSTR20 B TXTE90 TXTE33 MOVE GSWBIN7,=W'25' PERF FMOD,GSWBIN7,GTLEVTXT MOVE GSWBIN7,=W'27' PERF FMOD,GSWBIN7,SPINPUT MOVE GSWBIN7,=W'29' PERF FMOD,GSWBIN7,GSWSTR20 B TXTE90 TXTE34 PERF FMOD,CBIN3,GTLEVTXT PERF FMOD,CBIN6,SPINPUT PERF FMOD,CBIN8,GSWSTR20 B TXTE90 TXTE35 PERF FMOD,CBIN13,GTLEVTXT PERF FMOD,CBIN17,SPINPUT PERF FMOD,CBIN22,GSWSTR20 B TXTE90 TXTE36 MOVE GSWBIN7,=W'26' PERF FMOD,GSWBIN7,GTLEVTXT MOVE GSWBIN7,=W'28' PERF FMOD,GSWBIN7,SPINPUT MOVE GSWBIN7,=W'30' PERF FMOD,GSWBIN7,GSWSTR20 B TXTE90 * TXTE40 EDIT BUNDTLISTE MOVE GSWBIN7,SEQ ADD GSWBIN7,CBIN3 PERF FMOD,GSWBIN7,SPINPUT TXTE90 CMP CBIN0,CBIN0 RET PEND EJECT FREMTOTS FRMT FMEL 'ZZZZZZZVZZ9,99-',GTBSUM1 FMEND FREMTOT1 FRMT FBT CBDTGIR,FRE110 FMEL '*******V**9,99-',GTBSUM1 FB FRE120 FRE110 FMEL 'ZZZZZZVZZ9BB99-',GTBSUM1 FRE120 FMEND FREMTOT2 FRMT FBT CBDTGIR,FRE210 FMEL '*******V**9,99-',GTBSUM2 FB FRE220 FRE210 FMEL 'ZZZZZZVZZ9BB99-',GTBSUM2 FRE220 FMEND FSAMLEV FRMT FBT CBDTGIR,FSAM10 FMEL '9999999999',GTLEVNR FB FSAM20 FSAM10 FMEL '9B99B99B99',GTLEVGI FSAM20 FMEND FPNR FRMT FMEL 'ZZZZ',GTLEVPNR FMEND EJECT ******************** STRAKSCHECK ******************** CHKFRM1 FRMT FILLR '+',2 FMEL '99V99V99',GTDATO FILLR ' ',40 FMEL '*.***.***.**9,99-',GTCYSUM BELOB FILLR ' ',2 FEOR FILLR '3',2 FMEL '*.***.***.**9,99-',GTCYSUM BELOB FILLR ' ',38 FEOR FILLR '4',2 FCOPY GTLEVNVN FILLR ' ',32 FEOR FILLR '2',2 FCOPY GTLEVADR FILLR ' ',30 FEOR FILLR '2',2 FCOPY GTLEVBY FILLR ' ',42 FEOR FILLR '2',2 FMEL 'ZZZZ',GTLEVPNR FILLR ' ',2 FCOPY GTLEVPDI FILLR ' ',43 FEOR FILLR '4',2 FEOR FILLR '4',2 FEOR FILLR '4',2 FBT TTCY1FLG,CHKF10 FMEL '999E-999E-99E-99',GTDUPF(CBIN1) FB CHKF20 CHKF10 FMEL '999E-999E-99E-99',TTARKSAV CHKF20 FILLR ' ',7 FMEL '****9',CCHKLBNR CHECKLOBENR FILLR ' ',36 FMEND * * CHKFRM2 FRMT FSL FBT CWORK1,CHKFRM2A FMEL '****9',TTLBNR CHKFRM2A FILLR ' ',1 FCOPY GTLEVTXT FILLR ' ',1 FCOPY SPINPUT FILLR ' ',1 FCOPY GSWSTR20 FMEND ********** BUNDTREMITTERINGSLISTEOVERSKRIFT ********** FBDTOVSK FRMT FILLR '+',2 FBT CADVIS,FBDT010 FBT CKRESP,FBDT020 FBF CBDTGIR,FBDT005 FCOPY ='SAMLERGIRO-FORTEGNELSE' FILLR ' ',15 FCOPY GTLEVNVN FILLR ' ',5 FMEL '9B99B99B99',GTLEVGI FILLR ' ',10 FB FBDT040 FBDT005 CHECK IF ADVIS FCOPY ='BUNDTREMITTERING' FCOPY ='SLISTE' FB FBDT030 FBDT010 FCOPY ='ADVI' FCOPY ='SLISTE' FILLR ' ',12 FB FBDT030 FBDT020 FCOPY ='SPECIFIKATION ' FILLR ' ',8 FBDT030 FILLR ' ',19 FBDT040 FCOPY ='DEN ' FMEL '99V99V99',GTPRTDAT FNL FNL FILLR ' ',9 FTEXT X'42454C5C42' FILLR ' ',6 FTEXT 'LEV-NR' FILLR ' ',5 FTEXT 'NAVN' FILLR ' ',32 FILLR ' ',32 FCOPY ='SIDE' FMEL 'ZZZZ',GSWBCD4 FNL FMEND ********** BUNDTREMITTERINGSSLUTLINIE *********** FBDTSLUT FRMT FNL FBT CSWFLAG,FBDTSL10 GRAND TOTAL ? FNL FMEL 'ZZZZZZZVZZ9,99-',GTBSUM2 FILLR ' ',14 FCOPY ='SIDE' FCOPY ='TOTAL' FB FBDTSL99 FBDTSL10 FMEL 'ZZZZZZZVZZ9,99-',GTBSUM3 PAGETOTAL FILLR ' ',14 FCOPY ='TOTAL' FTEXT ' IALT' FMEL 'ZZZZ',GSWBCD4 FTEXT ' SIDE(R)' FBDTSL99 FNL FNL FMEND END