|
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: 4680 (0x1248)
Notes: pts_type(SC)
Names: »ADM5X.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/ADM5X.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/ADM5X.SC«
IDENT ADM5 04.01.XXX.1 DDUM KMD08 PDIV ENTRY A5KONV EXT A5RET1 EXT A5RET2 EXT LAMPON EXT LAMPOF EXT ASGVOL EXT RAREAD EXT STRTID EXT WRITID EXT SQWRIT EXT SPCLRA EXT SLUTID EXT SPLIN8 * INCLUDE EQUATE * * A5KONV PERF LAMPON,=W'1024' LAMP 1 ON DSC1 FD01,LOAD,CBIN7 LOAD IBM BBEOD ADM0535 BNOK A5RET1 ADM0535 DSC0 FD01,RWIND PERF LAMPOF,=W'1024' LAMP 1 OFF PERF LAMPON,=W'512' LAMP 2 ON PERF ASGVOL,CBIN2 BNOK A5RET1 PERF LAMPOF,=W'512' LAMP 2 OFF PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'64' LAMP 5 ON MOVE GSWBIN6,CBIN1 MOVE GSWBIN1,=W'128' READ HEADER PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 BOK ADM0536 PERF STRTID,CVOLNO SET UP STRTID PERF WRITID,CBIN3,CBIN1 B ADM0540 ADM0536 PERF WRITID,CBIN3,CBIN1 PRINT HEADER MOVE GSWBIN6,CBIN0 MOVE GSWBIN1,=W'40' DELETE AND WRITE HEADER MOVE GSWSTR20,CBLANKS COPY CPCKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 ADM0540 PERF SQWRIT,FD01,=D'1',CPCKBUF BNOK ADM0568 CLEAR CERRORFL MOVE GSWBCD6,=D'0' FOR TEST PURPOSE MOVE CRECNR,CBIN1 ADM0550 START LOOP MOVE GTWBCD2,CRECNR PERF SPLIN8,CBIN10,CBIN3 ADD CRECNR,CBIN1 MOVE GSWBIN1,=W'128' PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR BNOK ADM0560 NOT OK TBT CERRORFL,ADM0560 CBE GTWBCD1,=D'4',ADM0565 END OF DATA MOVE GSWSTR20,=C'SLUTD' MOVE GSWBIN5,CBIN0 MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 BE ADM0570 SLUTD: END OF CONVERT TBF CTESTFLG,ADM0578 * THIS PART CAN BE USED TO CHANGE * TTLBNR DURING CONVERSION. * CAN ONLY BE USED IN DEBUGGER MODE MOVE GSWSTR20,=C'&02311280' LOOK FOR DATE MOVE GSWBIN5,CBIN15 FROM MOVE GSWBIN2,CBIN0 MATCH CPCKBUF,GSWBIN5,CBIN20,GSWSTR20,GSWBIN2,CBIN9 BNOK ADM0578 NOT FOUND * INSERT DATE MOVE GSWSTR20,=C'&02020181' COPY CPCKBUF,GSWBIN5,CBIN9,GSWSTR20,CBIN0 * FIND END MARK MOVE GSWSTR20,=X'7F20202020' MOVE GSWBIN5,CBIN0 MOVE GSWBIN2,=W'123' MATCH CPCKBUF,GSWBIN5,GSWBIN2,GSWSTR20,CBIN0,CBIN5 BOK ADM0577 B ADM0578 ADM0577 MOVE GSWSTR20,=X'263130307F' COPY CPCKBUF,GSWBIN5,CBIN5,GSWSTR20,CBIN0 ADM0578 PERF SQWRIT,FD01,=D'1',CPCKBUF BOK ADM0550 ADM0568 PERF LAMPOF,=W'2047' SWITCH OFF LAMPS PERF LAMPON,=W'2' LAMP 10 ON B A5RET2 READ SOP ADM0570 PERF SQWRIT,FD01,=D'1',CPCKBUF WRITE SLUTD BNOK ADM0568 PERF WRITID,CBIN3,CBIN2 B A5RET1 LAMPS ON ADM0560 NOT OK PERF WRITID,CBIN4,CBIN2 PRINT FIRST PART OF LAST CORRECT RECORD SET SPPROMPT ATTFMT KONV4FMT PERF SPCLRA CONTINUE ? IB SPBINW2,A0561,A0561,A0562,A0563,A0561, C A0561,A0561,A0561,A0564 B ADM0560 A0561 MAK B ADM0560 * A0562 SLUT, CONTINUE READ AGAIN SUB CRECNR,CBIN1 CLEAR CERRORFL B ADM0550 * A0563 KRE, TRY NEXT SET CERRORFL B ADM0550 * A0564 KVIT CLEAR CERRORFL B ADM0565 WRITE SLUTD * * ADM0565 END OF DATA MOVE GSWBCD3,CRECNR SUB GSWBCD3,=D'2' SET UP SLUTD PERF SLUTID,GSWBCD3 B ADM0570 * * * EJECT * * ************************************************* * * FORMATS * ************************************************* * * KONV4FMT FRMT FSL FCOPY ='KORREKT' FILLR '?',1 FILLR X'07',1 FKI 1 FMEL 'B',TSWBCD2 FMEND * END