|
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: 4138 (0x102a)
Notes: pts_type(SC)
Names: »DE24ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE24ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE24ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE24ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE24ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE24ST.SC«
IDENT DE24ST REL 10.0 80-04-11 79-12-14/JAER * * THIS FORMAT PROCESS FOLLOWING FUNTION * - COPY OF FORMAT * ************************************************************************ DDUM DEDDIV PDIV ENTRY DE24ST * EXT DEAPPL APPLE VALUE HANDLING EXT DECLRA EXT DERR EXT DEDISC DISC-ROUTINE EXT DERROR ERROR-MESSAGES EXT RESTOR RESTORE ORIG.-DESC-POINTER EXT DEPOOL BUFFERRESERVATION-MODUL EXT FEDIT EXT ATTDB ATTACH FORMAT-DESCRIPTOR INCLUDE DEKEYS,LIST EJECT * * KEYTABLES * * DEKTAB6 KTAB CLR,CAN,RET * DEKTAB7 KTAB CLR,CAN,RET,ENT * * EJECT DE24ST PROC DEST24 CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER MOVE PINDFR,W0 ATTFMT F24CF SET DEPROMPT PROMTTEXT-DISPLAY DE24CA PERF DECLRA DATA-ENTRY-SCREEN DE24ER IB DEBINW2,CANCEL,RELRET,CHANGE MOVE DEBINW4,W0 'FUNCTION NOT ALLOWED' PERF DERR B DE24ER CANCEL CLEAR DEPROMPT B DE24CA ERROR PERF DERROR,DEKTAB6 IB DEBINW2,CHANGE,DEST24 B RELRET EJECT * * LOCK FORMAT IN BUFFERS * * DUPL = FORMAT TO BE COPIED * CHANGE MOVE DEINPUT,DUPL LOAD OLD FORMAT NAME PERF DEDISC,W10 GET OLD FORMAT IN BUFFERS BNOK ERROR JUMP IF NOT OK MOVE STRG10A,='F' XCOPY STRG10A,W1,W6,DUPL,W0 LOAD OLD FORMAT NAME CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCRIPTOR MOVE ELMNO,FLIND(W1) STORE FORMATBUFFER-POINTER ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT PERF FEDIT FORMAT EDITING DISPLAY 0,W1,W0 DISPLAY FORMAT MOVE DEBINW3,W0 GETFLD 0,DEBINW3,DEBINW4 SET CURSOR ON LAST FIELD MOVE DEBINW4,=W'30' PRESS ENTER TO CONFIRM' PERF DERROR,DEKTAB7 IB DEBINW2,CHAN20,CHAN20,RELRET CHAN10 PERF DEPOOL,W8,PINDFR,BIN16,STRG10A FORMAT LOCK BNOK CHERR XCOPY STRG10A,W1,W6,FORMAT,W0 CHANGE FORMAT NAME XCOPY RPOOL(PINDFR),W1,W6,STRG10A,W1 PERF DEDISC,W9 ENTER NEW FORMAT BOK RELRET BERR CHERR PERF DERROR,DEKTAB6 B RELRET CHERR PERF DERROR,DEKTAB6 IB DEBINW2,CHAN10,CHAN20 B RELRET CHAN20 PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS B DEST24 EJECT RELRET PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER RET PEND EJECT F24CF FRMT FSL FTEXT '24 COPY ' FCOPY ='FORMAT' FNL FCOPY ='FORMAT' FTEXT ' TO BE COPIED:' FKI 21,APPL=113,MINL=1,MAXL=6,ALPHA,NEOI,ME,NCLR FCOPY DUPL FNL FTEXT ' NEW ' FCOPY ='FORMAT' FTEXT 'NAME:' FKI 21,APPL=118,MINL=1,MAXL=6,ALPHA,NEOI,ME,NCLR FCOPY FORMAT FNL FKI 1 FCOPY HEX00 FMEND END