|
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: 7702 (0x1e16)
Notes: pts_type(SC)
Names: »REMBDS.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/REMBDS.SC«
IDENT REMBDS 820720 NJ DDUM KMD08 PDIV EXT RAWRIT EXT KFWRIT EXT CLEAR8 EXT CYRD EXT SPLIN8 EXT GRASPV EXT WRITJT EXT STREDT EXT TXTRD EXT FMOD ENTRY BCHKPR ENTRY BGIRPR ENTRY BSAMPR ENTRY WSTRCH ENTRY TXTEDT 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 TBF CCYPFLG,WSTR010 WAIT FOR BUFFER DELAY CBIN2 B WSTR005 WSTR010 SET 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? * 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' 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 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 * WSTR093 CYSET FILLED UP CLEAR CCYPFLG CMP CBIN1,CBIN0 B WSTR099 * WSTR094 DISK ERROR CLEAR CCYPFLG CMP CBIN0,CBIN1 B WSTR099 * WSTR099 RET PEND EJECT BCHKPR PROC P * PRINT BUNDTCHECKS CMP CBIN0,CBIN0 RET PEND BGIRPR PROC P CMP CBIN0,CBIN0 RET PEND BSAMPR PROC P CMP CBIN0,CBIN0 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 FREMBEL FRMT FMEL 'BZZVZZZVZZ9,99-',GTDUPF(CBIN4) FMEND FREMINF2 FRMT FMEL 'ZZZZZZZZZ9',GSWBCD6 FILLR ' ',11 FMEND FREMINF3 FRMT FMEL 'ZZZZZZZZZ9',GSWBCD6 FILLR ' ',1 FMEL 'ZZZZZZZZZ9',GSWBCD7 FMEND FREMINF4 FRMT FMEL '99V99V99',GSWBCD6 FILLR ' ',13 FMEND FREMINF5 FRMT FMEL '99V99V99',GSWBCD6 FILLR ' ',3 FMEL '99V99V99',GSWBCD7 FILLR ' ',2 FMEND FREMINF6 FRMT FMEL 'ZZZZZZZZZ9',GSWBCD6 FILLR ' ',1 FMEL '99V99V99',GSWBCD7 FILLR ' ',2 FMEND FREMINF7 FRMT FMEL '****9',TTLBNR FMEND ******************** 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 'ZZZZBB',GTLEVPNR 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 '****9BB',CCHKLBNR CHECKLOBENR FILLR ' ',34 FMEND * * CHKFRM2 FRMT FSL FLINK FREMINF7 FILLR ' ',1 FCOPY GTLEVTXT FILLR ' ',1 FCOPY SPINPUT FILLR ' ',1 FCOPY GSWSTR20 FMEND END