|
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: 4516 (0x11a4)
Notes: pts_type(SC)
Names: »ADM5.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/ADM5.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/ADM5.SC«
IDENT ADM5 830920 HL DDUM KMD08 PDIV ENTRY A5KONV EXT A5RET1 EXT LAMPON EXT LAMPOF EXT ASGVOL EXT RAREAD EXT STRTID EXT WRITID EXT SQWRIT EXT SPCLRA EXT SLUTID EXT SPLIN8 EXT SOPRD * INCLUDE EQUATE * * A5KONV CLEAR ENDINP PERF LAMPOF,=W'2047' PERF ASGVOL,CBIN2 BNOK A5RET1 PERF LAMPON,=W'64' LAMP 5 ON MOVE CRECNR,CBIN1 B ADM0540 ADM0530 * * LOAD THE IBM FLOPPY * DSC0 FD01,UNLOD PERF LAMPON,=W'1024' LAMP 1 ADM0542 PERF SOPRD CMP GSWBIN2,CBIN1 SOP 10 BE ADM0575 CBNE GSWBIN2,CBIN10,ADM0542 PERF LAMPOF,=W'1026' OFF LAMP 1, 10 ADM0540 DSC1 FD01,LOAD,CBIN7 LOAD IBM BBEOD ADM0543 BOK ADM0543 PERF LAMPON,=W'2' LAMP 10, ERROR B ADM0530 REPEAT ADM0543 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 ADM0535 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 ADM0535 DSC0 FD01,RWIND MOVE GSWBIN6,CBIN0 PERF SQWRIT,FD01,=D'1',CPCKBUF BNOK ADM0568 CLEAR CERRORFL ADM0550 START LOOP MOVE GTWBCD2,CRECNR PERF SPLIN8,CBIN10,CBIN3 ADD CRECNR,CBIN1 ADD GSWBIN6,CBIN1 MOVE GSWBIN1,=W'128' PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR BNOK ADM0560 NOT OK TBT CERRORFL,ADM0560 CBE GTWBCD1,=D'4',ADM0564 END OF DATA MOVE GSWSTR20,=C'SLUTD' MOVE GSWBIN5,CBIN0 MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 BE ADM0564 SLUTD: END OF CONVERT PERF SQWRIT,FD01,=D'1',CPCKBUF BNOK ADM0568 ***** !!!!!! CHANGE 8 TO 1700 !!!!!!! CBL GSWBIN6,=W'1700',ADM0550 MOVE GSWBIN2,CBIN0 MOVE GSWSTR1,=X'7F' MATCH CPCKBUF,GSWBIN2,GSWBIN1,GSWSTR1,CBIN0,CBIN1 BNE ADM0550 B ADM0565 ADM0568 SUB CRECNR,GSWBIN6 PERF LAMPON,=W'2' B ADM0530 ADM0570 CBNE CRECNR,CBIN2,ADM0572 PERF LAMPON,=W'514' LAMP 2+10 ATTFMT KONV5FMT PERF SPCLRA PERF LAMPOF,=W'514' LAMP 2+10 CBNE SPBINW2,CBIN3,ADM0572 CLEAR ENDINP B ADM0550 ADM0572 PERF SQWRIT,FD01,=D'1',CPCKBUF WRITE SLUTD BNOK ADM0568 PERF WRITID,CBIN3,CBIN2 TBT ENDINP,ADM0575 B ADM0530 ADM0575 DSC0 FD01,UNLOD UNLOCK IBM-FD B A5RET1 LAMPS ON ADM0560 NOT OK PERF LAMPON,=W'514' LAMP 2+10 PERF WRITID,CBIN4,CBIN2 PRINT FIRST PART OF LAST CORRECT RECORD SET SPPROMPT ATTFMT KONV4FMT PERF SPCLRA CONTINUE ? PERF LAMPOF,=W'514' LAMP 2+10 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 SUB GSWBIN6,CBIN1 CLEAR CERRORFL B ADM0550 A0563 KRE, TRY NEXT SET CERRORFL B ADM0550 A0564 KVIT CLEAR CERRORFL ADM0564 SET ENDINP ADM0565 END OF DATA MOVE GSWBCD3,GSWBIN6 TBF ENDINP,ADM0566 SUB GSWBCD3,=D'1' ADM0566 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