|
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: 4772 (0x12a4)
Notes: pts_type(SC)
Names: »ADM5.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/ADM5.SC«
IDENT ADM5 820906 NJ 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 DSC1 FD01,LOAD,CBIN7 LOAD IBM BBEOD ADM0535 BNOK A5RET1 ADM0535 DSC0 FD01,RWIND PERF ASGVOL,CBIN2 BNOK A5RET1 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,=' ' 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 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 TBF CSLUTD,ADM0572 CBNE CRECNR,=D'2',ADM0572 ATTFMT KONV5FMT PERF SPCLRA CBNE SPBINW2,CBIN3,ADM0575 B ADM0550 ADM0572 PERF SQWRIT,FD01,=D'1',CPCKBUF WRITE SLUTD BNOK ADM0568 PERF WRITID,CBIN3,CBIN2 ADM0575 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 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 FKI 1 FMEL 'B',TSWBCD2 FMEND * KONV5FMT FRMT FSL FTEXT 'SLUTMARKERING FUNDET I 1. RECORD' FNL FTEXT 'HVIS "SLUT" SMIDES DEN V[K' FNL FKI 1 FMEL 'B',TSWBCD2 FMEND * END