|
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: 7954 (0x1f12)
Notes: pts_type(SC)
Names: »REMBDS.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/REMBDS.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/REMBDS.SC«
IDENT REMBDS DDUM KMD08 PDIV EXT RAWRIT EXT KFWRIT EXT CLEAR8 EXT CYRD EXT SPLIN8 EXT GRASPV EXT WRITJT ENTRY BCHKPR ENTRY BGIRPR ENTRY BSAMPR ENTRY WSTRCH ENTRY 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 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 STREDT PROC MOVE GSWSTR20,=X'00' MOVE SPINPUT,=X'00' MOVE GSWBIN7,GTTXTTKO MOVE TEXTCODE IB GSWBIN7,STRE03,STRE04,STRE05,STRE06,STRE07,STRE08 STRE03 MOVE SPINPUT,CBLANKS B STRE80 STRE04 MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 EDIT SPINPUT,FREMINF2 B STRE80 STRE05 MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 MOVE GSWBCD7,GTDUPF(CBIN14) NR-2 EDIT SPINPUT,FREMINF3 B STRE80 STRE06 MOVE GSWBCD6,GTDUPF(CBIN18) DATO-1 EDIT SPINPUT,FREMINF4 B STRE80 STRE07 MOVE GSWBCD6,GTDUPF(CBIN18) MOVE GSWBCD7,GTDUPF(CBIN19) DATO-2 EDIT SPINPUT,FREMINF5 B STRE80 STRE08 MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 MOVE GSWBCD7,GTDUPF(CBIN18) DATO-1 EDIT SPINPUT,FREMINF6 STRE80 EDIT GSWSTR20,FREMBEL 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 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 '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