|
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: 7746 (0x1e42)
Notes: pts_type(SC)
Names: »DEDICO.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DEDICO.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DEDICO.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEDICO.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DEDICO.SC«
IDENT DEDICOMM REL 1.0 79-01-16/AST * ************************************************************* * * SUBROUTINE DEDISC * * CALLING SEQUENCE: PERF DEDISC,FC * * FC ACTION * * 01 ENTER JOBDEFINITION. THE CURRENT JOBDEFINITION, * INDICATED BY ITS NAME IN 'JOBNAME', IS WRITTEN * AS LAST RECORD IN JOBDEFINITION-CHAIN. NO CHECKS * ARE DONE ON JOBDEFINITION.G * * 02 GET JOBDEFINITION. THE JOBDEFINITION, INDICATED * BY ITS NAME IN 'DEINPUT' IS GIVEN TO THE CALLING * TASK. AN INDEX TO THE BUFFER IN POOL IS RETURNED * IN PJOBCUR. * * 03 DUMMY-ENTRY * * 04 SEARCH JOBDEFINITION. A SEARCH IS DONE, WHETHER * THE INDICATED JOBDEFINITION EXISTS IN SYSTEM. * * 05 DELETE JOBDEFINITION. THE JOBDEFINITION, INDICATED * BY ITS NAME IN 'JOBNAME' IS REMOVED FROM JOBCHAIN. * * 06 OPEN NEW BATCH. IF THE CURRENT JOB EXISTS IN * JOBCHAIN ON USERFILE, A NEW ENTRY IA ADDED TO ITS * BATCHCHAIN. ELSE, A JOBCHAIN WITH THE CURRENT JOB * AND A BATCHCHAIN WITH THE CURRENT BATCH ARE CREATED. * THE FIRST DATARECORD AND AN ACCUMULATORRECORD ARE * RESERVED FROM FREESPACE-TABLE AND INITIATED ON DISC. * A POOL IS RESERVED FOR ACCUMULATORS IN CORE AND * ITS INDEX WILL BE FOUND IN 'PINACC'. THE RECORDNUM- * BER OF ACCUMULATORS IS SAVED IN POS 9-10 OF ITS * RPOOL. 'CURSEC' IS LOADED WITH RECORDNUMBER OF THE * FIRST DATARECORD. * * 07 OPEN EXISTING BATCH. A BATCH, ALREADY EXISTING IN * BATCHCHAIN, IS OPENED. 1ST DATARECORD AND ACCUMU- * LATORS ARE READ INTO MEMORY. A CHECK IS DONE, WHE- * THER THE SAME BATCH IS USED BY AN OTHER TASK. OUTPUT * AS FC 06. * * 08 CLOSE BATCH. THE LAST DATARECORD OF THE CUR * RENT BATCH IS WRITTEN TO DISC. * * 09 ENTER FORMAT. THE CURRENT FORMAT, INDICATED BY * A POINTER TO THE BUFFERPOOL IN 'PINDFR' IS WRITTEN TO DISC * * 10 GET FORMAT. THE FORMAT, INDICATED BY ITS NAME * IN 'FORMAT' IS GIVEN TO THE CALLING TASK. * IF DATAITEM FRMTPNTR NOT ZERO, A POINTER TO FIRST RECORD * OF WANTED FORMAT IS EXSPECTED THERE. ELSE, THE SEARCH IS * DONE VIA FORMATCHAIN. AFTER EXECUTION, FRMTPNTR IS LOA- * DED WITH A POINTER TO THE FIRST RECORD OF THE FORMAT. IF * IF NO FORMAT-ADRESS IN FILE IS KNOWN, FRMTPNTR SHOULD BE * SET TO ZERO BEFORE DEDISC IS CALLED. * * 11 DUMMY-ENTRY * * 12 SEARCH FORMAT. A SEARCH IS MADE, IF INDI- * CATED FORMAT EXISTS IN SYSTEM. RETURNED * INFORMATION AS FC 10. * * 13 DELETE FORMAT. THE FORMAT, INDICATED BY ITS * NAME IN 'DEINPUT' IS REMOVED FROM FORMATCHAIN. * * 14 WRITE CURRENT DATA-SECTOR * * 15 GET NEXT DATA-SECTOR * * 16 GET PREVIOUS DATA-SECTOR * * 17 DELETE CURRENT DATA-SECTOR * * 18 WRITE ACCUMULATOR-RECORD * * 19 GET SYSTEM-VARIABLES. SYSTEM-VARIABLES ARE * READ INTO MEMORY. * * 20 ENTER SYSTEM-VARIABLES. SYSTEM-VARIABLES ARE * WRITTEN TO DISC. * * 21 GET NEXT JOBNAME. THE NAME OF NEXT JOBDEFINITION IN CHAIN * IS OUTPUT TO DATA-ITEM 'JOBNAME'. * * 22 GET PREVIOUS JOBNAME. * * 23 WRITE SECTOR (CORR) * * 24 GET TABLE. INPUT:TABLE-NAME IN 'TABLE',ELEMENTNUMBER IN 'ELMNO * OUTPUT: PINDTB=POOLINDEX TO BUFFER-ELEMENTS IN RPOOL AND BPOOL. * THE DATARECORD, CONTAINING THE WANTED ELEMENT OF THE WANTED TABLE * WILL BE PASSED TO RPOOL AND BPOOL WITH INDEX 'PINDTB'. * * * 25 DELEWTE TABLE. THE TABLE, INDICATED BY ITS NAME IN 'TABLE' IS * DELETED ON DISC. * * 26 ENTER TABLE. INPUT: TABLENAME IN 'TABLE', ELEMENT-NUMBER IN * 'ELMNO', INDEX TO POOL IN 'PINDTB. THE CONTENTS OF BPOOL(PINDTB) * AND RPOOL(PINDTB) ARE WRITTEN TO DISC. * * 27 DELETE BATCH. DATA-ITEM BATCH INDICATES THE BATCH TO * BE DELETED. ALL RECORDS BELONGING TO THIS BATCH ARE * RETURNED TO FREESPACE-TABLE. * * 28 GET NO OF FREE RECORDS ON DISC(S). AFTER EXECUTION, * THE BINARY DATA-ITEM DEBINW1 IS LOADED WITH NUMBER OF * FREE RECORDS IN SYSTEM-FILE AND DEBINW2 WITH NUMBER * OF FREE RECORDS IN USERFILE OF RUNNING TASK. * * 29 GET NEXT JOBDEFINITION. THE NEXT JOBDEFINITION * IN CHAIN IS PASSED TO THE CALLING TASK. IF 'JOB- * NAME' IS EMPTY, THE FIRST JOBDEFINITION IN CHAIN * IS PASSED. * * 30 GET PREVIOUS JOBDEFINITION. THE PREVIOUS JOB- * DEFINITION IN CHAIN IS PASSED TO THE CALLING * TASK. IF 'JOBNAME' IS EMPTY, THE FIRST JOBDEFI- * NITION IN CHAIN IS PASSED. * * 31 GET NEXT FORMAT. THE NEXT FORMAT IN FORMATCHAIN * IS PASSED TO THE CALLING TASK. IF 'FORMAT' IS * EMPTY, THE FIRST FORMAT IN CHAIN IS PASSED. * * 32 GET PREVIOUS FORMAT. THE PREVIOUS FORMAT IN CHAIN * IS PASSED TO CALLING TASK. IF 'FORMAT' IS EMPTY, * THE FIRST FORMAT IN CHAIN IS PASSED. * * 33 GET CURRENT SECTOR * * 34 GET NEXT BATCHNAME. THE NAME OF NEXT BATCH ON USERFILE IS * OUTPUT TO DATA-ITEM 'BATCH'. * * 35 GET PREVIOUS BATCHNAME. * * RETURNCODE IN DEBINW4: 0 = OK * -1 = WARNING. 95 PROC OF FILESPACE USED. * 9 = NOT IN SYSTEM * 10 = NO DISC SPACE * 11 = USED * 12 = LOCKED * 13 = NO WORKSPACE IN CORE * * CONDITION-REGISTER IS SET TO 2 (=ERROR), IF DEBINW4 NOT ZERO * SET TO 1 (=EOF), IF DEBINW4 IS LESS THH AN 0 * SET TO 0 (=OK), IF DEBINW4 IS ZERO. * * USED WORKAREAS ARE DEBIN1, DEBIN2, DEBIN3, DEBIN4, DEBIN5, * SWIT01, SWIT02, SWIT03, STRG10A, STR6A, STR6B * DKBIN1, DKBIN2, DKBIN3, SYSBUF, RBUF * * ***************************************************** * DDIV PDIV END
0x0000…002c (0, 0, 400) Head {h00=0x0028, h01=0x0050, text=» IDENT DEDICOMM REL 1.0 79-01-16/AST«, t00=0x0000, t01=0x0004}
0x002c…0036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0030}
0x0036…007c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x003a}
0x007c…0086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0080}
0x0086…00a6 Head {h00=0x001c, h01=0x0050, text=»* SUBROUTINE DEDISC «, t00=0x0000, t01=0x008a}
0x00a6…00b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00aa}
0x00b0…00e0 Head {h00=0x002c, h01=0x0050, text=»* CALLING SEQUENCE: PERF DEDISC,FC «, t00=0x0000, t01=0x00b4}
0x00e0…00ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x00ea…0106 Head {h00=0x0018, h01=0x0050, text=»* FC ACTION «, t00=0x0000, t01=0x00ee}
0x0106…0110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010a}
0x0110…0154 Head {h00=0x0040, h01=0x0050, text=»* 01 ENTER JOBDEFINITION. THE CURRENT JOBDEFINITION,«, t00=0x0000, t01=0x0114}
0x0154…0198 Head {h00=0x0040, h01=0x0050, text=»* INDICATED BY ITS NAME IN 'JOBNAME', IS WRITTEN «, t00=0x0000, t01=0x0158}
0x0198…01de Head {h00=0x0042, h01=0x0050, text=»* AS LAST RECORD IN JOBDEFINITION-CHAIN. NO CHECKS «, t00=0x0001, t01=0x000c}
0x01de…020e Head {h00=0x002c, h01=0x0050, text=»* ARE DONE ON JOBDEFINITION.G«, t00=0x0001, t01=0x0052}
0x020e…0218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0082}
0x0218…025c Head {h00=0x0040, h01=0x0050, text=»* 02 GET JOBDEFINITION. THE JOBDEFINITION, INDICATED«, t00=0x0001, t01=0x008c}
0x025c…02a2 Head {h00=0x0042, h01=0x0050, text=»* BY ITS NAME IN 'DEINPUT' IS GIVEN TO THE CALLING «, t00=0x0001, t01=0x00d0}
0x02a2…02e8 Head {h00=0x0042, h01=0x0050, text=»* TASK. AN INDEX TO THE BUFFER IN POOL IS RETURNED «, t00=0x0001, t01=0x0116}
0x02e8…0308 Head {h00=0x001c, h01=0x0050, text=»* IN PJOBCUR.«, t00=0x0001, t01=0x015c}
0x0308…0312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017c}
0x0312…0332 Head {h00=0x001c, h01=0x0050, text=»* 03 DUMMY-ENTRY«, t00=0x0001, t01=0x0186}
0x0332…033c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0016}
0x033c…0380 Head {h00=0x0040, h01=0x0050, text=»* 04 SEARCH JOBDEFINITION. A SEARCH IS DONE, WHETHER«, t00=0x0002, t01=0x0020}
0x0380…03c2 Head {h00=0x003e, h01=0x0050, text=»* THE INDICATED JOBDEFINITION EXISTS IN SYSTEM.«, t00=0x0002, t01=0x0064}
0x03c2…03cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a6}
0x03cc…0414 Head {h00=0x0044, h01=0x0050, text=»* 05 DELETE JOBDEFINITION. THE JOBDEFINITION, INDICATED «, t00=0x0002, t01=0x00b0}
0x0414…045c Head {h00=0x0044, h01=0x0050, text=»* BY ITS NAME IN 'JOBNAME' IS REMOVED FROM JOBCHAIN. «, t00=0x0002, t01=0x00f8}
0x045c…0466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x0466…04a8 Head {h00=0x003e, h01=0x0050, text=»* 06 OPEN NEW BATCH. IF THE CURRENT JOB EXISTS IN «, t00=0x0002, t01=0x014a}
0x04a8…04ee Head {h00=0x0042, h01=0x0050, text=»* JOBCHAIN ON USERFILE, A NEW ENTRY IA ADDED TO ITS«, t00=0x0002, t01=0x018c}
0x04ee…0534 Head {h00=0x0042, h01=0x0050, text=»* BATCHCHAIN. ELSE, A JOBCHAIN WITH THE CURRENT JOB«, t00=0x0003, t01=0x0042}
0x0534…057e Head {h00=0x0046, h01=0x0050, text=»* AND A BATCHCHAIN WITH THE CURRENT BATCH ARE CREATED. «, t00=0x0003, t01=0x0088}
0x057e…05c4 Head {h00=0x0042, h01=0x0050, text=»* THE FIRST DATARECORD AND AN ACCUMULATORRECORD ARE«, t00=0x0003, t01=0x00d2}
0x05c4…060e Head {h00=0x0046, h01=0x0050, text=»* RESERVED FROM FREESPACE-TABLE AND INITIATED ON DISC. «, t00=0x0003, t01=0x0118}
0x060e…0652 Head {h00=0x0040, h01=0x0050, text=»* A POOL IS RESERVED FOR ACCUMULATORS IN CORE AND«, t00=0x0003, t01=0x0162}
0x0652…069a Head {h00=0x0044, h01=0x0050, text=»* ITS INDEX WILL BE FOUND IN 'PINACC'. THE RECORDNUM-«, t00=0x0004, t01=0x0016}
0x069a…06de Head {h00=0x0040, h01=0x0050, text=»* BER OF ACCUMULATORS IS SAVED IN POS 9-10 OF ITS«, t00=0x0004, t01=0x005e}
0x06de…0726 Head {h00=0x0044, h01=0x0050, text=»* RPOOL. 'CURSEC' IS LOADED WITH RECORDNUMBER OF THE «, t00=0x0004, t01=0x00a2}
0x0726…074c Head {h00=0x0022, h01=0x0050, text=»* FIRST DATARECORD.«, t00=0x0004, t01=0x00ea}
0x074c…0756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0110}
0x0756…079c Head {h00=0x0042, h01=0x0050, text=»* 07 OPEN EXISTING BATCH. A BATCH, ALREADY EXISTING IN«, t00=0x0004, t01=0x011a}
0x079c…07e2 Head {h00=0x0042, h01=0x0050, text=»* BATCHCHAIN, IS OPENED. 1ST DATARECORD AND ACCUMU-«, t00=0x0004, t01=0x0160}
0x07e2…082a Head {h00=0x0044, h01=0x0050, text=»* LATORS ARE READ INTO MEMORY. A CHECK IS DONE, WHE- «, t00=0x0005, t01=0x0016}
0x082a…0874 Head {h00=0x0046, h01=0x0050, text=»* THER THE SAME BATCH IS USED BY AN OTHER TASK. OUTPUT «, t00=0x0005, t01=0x005e}
0x0874…0892 Head {h00=0x001a, h01=0x0050, text=»* AS FC 06.«, t00=0x0005, t01=0x00a8}
0x0892…089c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c6}
0x089c…08dc Head {h00=0x003c, h01=0x0050, text=»* 08 CLOSE BATCH. THE LAST DATARECORD OF THE CUR«, t00=0x0005, t01=0x00d0}
0x08dc…0910 Head {h00=0x0030, h01=0x0050, text=»* RENT BATCH IS WRITTEN TO DISC. «, t00=0x0005, t01=0x0110}
0x0910…091a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0144}
0x091a…095e Head {h00=0x0040, h01=0x0050, text=»* 09 ENTER FORMAT. THE CURRENT FORMAT, INDICATED BY «, t00=0x0005, t01=0x014e}
0x095e…09ae (6, 0, 400) Head {h00=0x004c, h01=0x0050, text=»* A POINTER TO THE BUFFERPOOL IN 'PINDFR' IS WRITTEN TO DISC «, t00=0x0006, t01=0x0004}
0x09ae…09b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0054}
0x09b8…09fa Head {h00=0x003e, h01=0x0050, text=»* 10 GET FORMAT. THE FORMAT, INDICATED BY ITS NAME«, t00=0x0006, t01=0x005e}
0x09fa…0a38 Head {h00=0x003a, h01=0x0050, text=»* IN 'FORMAT' IS GIVEN TO THE CALLING TASK.«, t00=0x0006, t01=0x00a0}
0x0a38…0a86 Head {h00=0x004a, h01=0x0050, text=»* IF DATAITEM FRMTPNTR NOT ZERO, A POINTER TO FIRST RECORD «, t00=0x0006, t01=0x00de}
0x0a86…0ad4 Head {h00=0x004a, h01=0x0050, text=»* OF WANTED FORMAT IS EXSPECTED THERE. ELSE, THE SEARCH IS «, t00=0x0006, t01=0x012c}
0x0ad4…0b22 Head {h00=0x004a, h01=0x0050, text=»* DONE VIA FORMATCHAIN. AFTER EXECUTION, FRMTPNTR IS LOA- «, t00=0x0006, t01=0x017a}
0x0b22…0b70 Head {h00=0x004a, h01=0x0050, text=»* DED WITH A POINTER TO THE FIRST RECORD OF THE FORMAT. IF «, t00=0x0007, t01=0x0038}
0x0b70…0bbe Head {h00=0x004a, h01=0x0050, text=»* IF NO FORMAT-ADRESS IN FILE IS KNOWN, FRMTPNTR SHOULD BE «, t00=0x0007, t01=0x0086}
0x0bbe…0bf8 Head {h00=0x0036, h01=0x0050, text=»* SET TO ZERO BEFORE DEDISC IS CALLED. «, t00=0x0007, t01=0x00d4}
0x0bf8…0c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010e}
0x0c02…0c22 Head {h00=0x001c, h01=0x0050, text=»* 11 DUMMY-ENTRY«, t00=0x0007, t01=0x0118}
0x0c22…0c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0138}
0x0c2c…0c6a Head {h00=0x003a, h01=0x0050, text=»* 12 SEARCH FORMAT. A SEARCH IS MADE, IF INDI-«, t00=0x0007, t01=0x0142}
0x0c6a…0ca6 Head {h00=0x0038, h01=0x0050, text=»* CATED FORMAT EXISTS IN SYSTEM. RETURNED«, t00=0x0007, t01=0x0180}
0x0ca6…0cd0 Head {h00=0x0026, h01=0x0050, text=»* INFORMATION AS FC 10.«, t00=0x0008, t01=0x002c}
0x0cd0…0cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0056}
0x0cda…0d1a Head {h00=0x003c, h01=0x0050, text=»* 13 DELETE FORMAT. THE FORMAT, INDICATED BY ITS«, t00=0x0008, t01=0x0060}
0x0d1a…0d5e Head {h00=0x0040, h01=0x0050, text=»* NAME IN 'DEINPUT' IS REMOVED FROM FORMATCHAIN. «, t00=0x0008, t01=0x00a0}
0x0d5e…0d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e4}
0x0d68…0d96 Head {h00=0x002a, h01=0x0050, text=»* 14 WRITE CURRENT DATA-SECTOR«, t00=0x0008, t01=0x00ee}
0x0d96…0da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011c}
0x0da0…0dca Head {h00=0x0026, h01=0x0050, text=»* 15 GET NEXT DATA-SECTOR «, t00=0x0008, t01=0x0126}
0x0dca…0dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0150}
0x0dd4…0e02 Head {h00=0x002a, h01=0x0050, text=»* 16 GET PREVIOUS DATA-SECTOR «, t00=0x0008, t01=0x015a}
0x0e02…0e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0188}
0x0e0c…0e3c (9, 0, 400) Head {h00=0x002c, h01=0x0050, text=»* 17 DELETE CURRENT DATA-SECTOR «, t00=0x0009, t01=0x0004}
0x0e3c…0e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0034}
0x0e46…0e74 Head {h00=0x002a, h01=0x0050, text=»* 18 WRITE ACCUMULATOR-RECORD «, t00=0x0009, t01=0x003e}
0x0e74…0e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006c}
0x0e7e…0ebe Head {h00=0x003c, h01=0x0050, text=»* 19 GET SYSTEM-VARIABLES. SYSTEM-VARIABLES ARE «, t00=0x0009, t01=0x0076}
0x0ebe…0ee4 Head {h00=0x0022, h01=0x0050, text=»* READ INTO MEMORY.«, t00=0x0009, t01=0x00b6}
0x0ee4…0eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00dc}
0x0eee…0f30 Head {h00=0x003e, h01=0x0050, text=»* 20 ENTER SYSTEM-VARIABLES. SYSTEM-VARIABLES ARE «, t00=0x0009, t01=0x00e6}
0x0f30…0f56 Head {h00=0x0022, h01=0x0050, text=»* WRITTEN TO DISC. «, t00=0x0009, t01=0x0128}
0x0f56…0f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014e}
0x0f60…0fae Head {h00=0x004a, h01=0x0050, text=»* 21 GET NEXT JOBNAME. THE NAME OF NEXT JOBDEFINITION IN CHAIN«, t00=0x0009, t01=0x0158}
0x0fae…0fe4 Head {h00=0x0032, h01=0x0050, text=»* IS OUTPUT TO DATA-ITEM 'JOBNAME'.«, t00=0x000a, t01=0x0016}
0x0fe4…0fee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004c}
0x0fee…1018 Head {h00=0x0026, h01=0x0050, text=»* 22 GET PREVIOUS JOBNAME.«, t00=0x000a, t01=0x0056}
0x1018…1022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0080}
0x1022…104a Head {h00=0x0024, h01=0x0050, text=»* 23 WRITE SECTOR (CORR)«, t00=0x000a, t01=0x008a}
0x104a…1054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b2}
0x1054…10a8 Head {h00=0x0050, h01=0x0050, text=»* 24 GET TABLE. INPUT:TABLE-NAME IN 'TABLE',ELEMENTNUMBER IN 'ELMNO «, t00=0x000a, t01=0x00bc}
0x10a8…10fc Head {h00=0x0050, h01=0x0050, text=»* OUTPUT: PINDTB=POOLINDEX TO BUFFER-ELEMENTS IN RPOOL AND BPOOL.«, t00=0x000a, t01=0x0110}
0x10fc…1152 Head {h00=0x0052, h01=0x0050, text=»* THE DATARECORD, CONTAINING THE WANTED ELEMENT OF THE WANTED TABLE«, t00=0x000a, t01=0x0164}
0x1152…119e Head {h00=0x0048, h01=0x0050, text=»* WILL BE PASSED TO RPOOL AND BPOOL WITH INDEX 'PINDTB'. «, t00=0x000b, t01=0x002a}
0x119e…11a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0076}
0x11a8…11b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0080}
0x11b2…1204 Head {h00=0x004e, h01=0x0050, text=»* 25 DELEWTE TABLE. THE TABLE, INDICATED BY ITS NAME IN 'TABLE' IS«, t00=0x000b, t01=0x008a}
0x1204…122a Head {h00=0x0022, h01=0x0050, text=»* DELETED ON DISC. «, t00=0x000b, t01=0x00dc}
0x122a…1234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0102}
0x1234…1284 Head {h00=0x004c, h01=0x0050, text=»* 26 ENTER TABLE. INPUT: TABLENAME IN 'TABLE', ELEMENT-NUMBER IN«, t00=0x000b, t01=0x010c}
0x1284…12da Head {h00=0x0052, h01=0x0050, text=»* 'ELMNO', INDEX TO POOL IN 'PINDTB. THE CONTENTS OF BPOOL(PINDTB) «, t00=0x000b, t01=0x015c}
0x12da…1316 Head {h00=0x0038, h01=0x0050, text=»* AND RPOOL(PINDTB) ARE WRITTEN TO DISC. «, t00=0x000c, t01=0x0022}
0x1316…1320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005e}
0x1320…136a Head {h00=0x0046, h01=0x0050, text=»* 27 DELETE BATCH. DATA-ITEM BATCH INDICATES THE BATCH TO «, t00=0x000c, t01=0x0068}
0x136a…13b2 Head {h00=0x0044, h01=0x0050, text=»* BE DELETED. ALL RECORDS BELONGING TO THIS BATCH ARE«, t00=0x000c, t01=0x00b2}
0x13b2…13e4 Head {h00=0x002e, h01=0x0050, text=»* RETURNED TO FREESPACE-TABLE. «, t00=0x000c, t01=0x00fa}
0x13e4…13ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012c}
0x13ee…1436 Head {h00=0x0044, h01=0x0050, text=»* 28 GET NO OF FREE RECORDS ON DISC(S). AFTER EXECUTION,«, t00=0x000c, t01=0x0136}
0x1436…1480 Head {h00=0x0046, h01=0x0050, text=»* THE BINARY DATA-ITEM DEBINW1 IS LOADED WITH NUMBER OF«, t00=0x000c, t01=0x017e}
0x1480…14c8 Head {h00=0x0044, h01=0x0050, text=»* FREE RECORDS IN SYSTEM-FILE AND DEBINW2 WITH NUMBER«, t00=0x000d, t01=0x0038}
0x14c8…150a Head {h00=0x003e, h01=0x0050, text=»* OF FREE RECORDS IN USERFILE OF RUNNING TASK. «, t00=0x000d, t01=0x0080}
0x150a…1514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c2}
0x1514…1558 Head {h00=0x0040, h01=0x0050, text=»* 29 GET NEXT JOBDEFINITION. THE NEXT JOBDEFINITION «, t00=0x000d, t01=0x00cc}
0x1558…159e Head {h00=0x0042, h01=0x0050, text=»* IN CHAIN IS PASSED TO THE CALLING TASK. IF 'JOB- «, t00=0x000d, t01=0x0110}
0x159e…15e4 Head {h00=0x0042, h01=0x0050, text=»* NAME' IS EMPTY, THE FIRST JOBDEFINITION IN CHAIN «, t00=0x000d, t01=0x0156}
0x15e4…1604 Head {h00=0x001c, h01=0x0050, text=»* IS PASSED. «, t00=0x000e, t01=0x000c}
0x1604…160e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002c}
0x160e…1650 Head {h00=0x003e, h01=0x0050, text=»* 30 GET PREVIOUS JOBDEFINITION. THE PREVIOUS JOB-«, t00=0x000e, t01=0x0036}
0x1650…1692 Head {h00=0x003e, h01=0x0050, text=»* DEFINITION IN CHAIN IS PASSED TO THE CALLING «, t00=0x000e, t01=0x0078}
0x1692…16d6 Head {h00=0x0040, h01=0x0050, text=»* TASK. IF 'JOBNAME' IS EMPTY, THE FIRST JOBDEFI-«, t00=0x000e, t01=0x00ba}
0x16d6…1706 Head {h00=0x002c, h01=0x0050, text=»* NITION IN CHAIN IS PASSED. «, t00=0x000e, t01=0x00fe}
0x1706…1710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012e}
0x1710…1754 Head {h00=0x0040, h01=0x0050, text=»* 31 GET NEXT FORMAT. THE NEXT FORMAT IN FORMATCHAIN«, t00=0x000e, t01=0x0138}
0x1754…1796 Head {h00=0x003e, h01=0x0050, text=»* IS PASSED TO THE CALLING TASK. IF 'FORMAT' IS«, t00=0x000e, t01=0x017c}
0x1796…17d6 Head {h00=0x003c, h01=0x0050, text=»* EMPTY, THE FIRST FORMAT IN CHAIN IS PASSED.«, t00=0x000f, t01=0x002e}
0x17d6…17e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006e}
0x17e0…1826 Head {h00=0x0042, h01=0x0050, text=»* 32 GET PREVIOUS FORMAT. THE PREVIOUS FORMAT IN CHAIN«, t00=0x000f, t01=0x0078}
0x1826…186c Head {h00=0x0042, h01=0x0050, text=»* IS PASSED TO CALLING TASK. IF 'FORMAT' IS EMPTY, «, t00=0x000f, t01=0x00be}
0x186c…18a6 Head {h00=0x0036, h01=0x0050, text=»* THE FIRST FORMAT IN CHAIN IS PASSED. «, t00=0x000f, t01=0x0104}
0x18a6…18b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013e}
0x18b0…18d8 Head {h00=0x0024, h01=0x0050, text=»* 33 GET CURRENT SECTOR «, t00=0x000f, t01=0x0148}
0x18d8…18e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0170}
0x18e2…1930 Head {h00=0x004a, h01=0x0050, text=»* 34 GET NEXT BATCHNAME. THE NAME OF NEXT BATCH ON USERFILE IS«, t00=0x000f, t01=0x017a}
0x1930…1962 Head {h00=0x002e, h01=0x0050, text=»* OUTPUT TO DATA-ITEM 'BATCH'. «, t00=0x0010, t01=0x0038}
0x1962…196c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006a}
0x196c…1998 Head {h00=0x0028, h01=0x0050, text=»* 35 GET PREVIOUS BATCHNAME.«, t00=0x0010, t01=0x0074}
0x1998…19a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a0}
0x19a2…19d0 Head {h00=0x002a, h01=0x0050, text=»* RETURNCODE IN DEBINW4: 0 = OK«, t00=0x0010, t01=0x00aa}
0x19d0…1a20 Head {h00=0x004c, h01=0x0050, text=»* -1 = WARNING. 95 PROC OF FILESPACE USED. «, t00=0x0010, t01=0x00d8}
0x1a20…1a5a Head {h00=0x0036, h01=0x0050, text=»* 9 = NOT IN SYSTEM «, t00=0x0010, t01=0x0128}
0x1a5a…1a94 Head {h00=0x0036, h01=0x0050, text=»* 10 = NO DISC SPACE «, t00=0x0010, t01=0x0162}
0x1a94…1ac4 Head {h00=0x002c, h01=0x0050, text=»* 11 = USED«, t00=0x0011, t01=0x000c}
0x1ac4…1af6 Head {h00=0x002e, h01=0x0050, text=»* 12 = LOCKED«, t00=0x0011, t01=0x003c}
0x1af6…1b36 Head {h00=0x003c, h01=0x0050, text=»* 13 = NO WORKSPACE IN CORE«, t00=0x0011, t01=0x006e}
0x1b36…1b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ae}
0x1b40…1b8a Head {h00=0x0046, h01=0x0050, text=»* CONDITION-REGISTER IS SET TO 2 (=ERROR), IF DEBINW4 NOT ZERO«, t00=0x0011, t01=0x00b8}
0x1b8a…1bda Head {h00=0x004c, h01=0x0050, text=»* SET TO 1 (=EOF), IF DEBINW4 IS LESS THH AN 0«, t00=0x0011, t01=0x0102}
0x1bda…1c22 Head {h00=0x0044, h01=0x0050, text=»* SET TO 0 (=OK), IF DEBINW4 IS ZERO. «, t00=0x0011, t01=0x0152}
0x1c22…1c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x000a}
0x1c2c…1c74 Head {h00=0x0044, h01=0x0050, text=»* USED WORKAREAS ARE DEBIN1, DEBIN2, DEBIN3, DEBIN4, DEBIN5,«, t00=0x0012, t01=0x0014}
0x1c74…1cc2 Head {h00=0x004a, h01=0x0050, text=»* SWIT01, SWIT02, SWIT03, STRG10A, STR6A, STR6B«, t00=0x0012, t01=0x005c}
0x1cc2…1d08 Head {h00=0x0042, h01=0x0050, text=»* DKBIN1, DKBIN2, DKBIN3, SYSBUF, RBUF «, t00=0x0012, t01=0x00aa}
0x1d08…1d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f0}
0x1d12…1d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00fa}
0x1d1c…1d5a Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0012, t01=0x0104}
0x1d5a…1d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0142}
0x1d64…1d72 Head {h00=0x000a, h01=0x0050, text=» DDIV «, t00=0x0012, t01=0x014c}
0x1d72…1d80 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0012, t01=0x015a}
0x1d80…1d8c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0012, t01=0x0168}
0x1d8c…1d90 Head {h00=0x4004, h01=0x0000}
0x1d90…1d94 00 12 01 74 ┆ t┆
0x1d94…1d9c (19, 1, 8) 20 04 00 00 00 13 00 04 ┆ ┆
0x1d9c…1dec (20, 2, 166) 00 3e 00 46 20 49 44 45 4e 54 20 44 3a 44 42 33 30 20 20 54 52 41 20 33 2e 32 20 20 37 39 2d 30 32 2d 32 30 20 4f 31 31 31 20 20 20 20 20 52 45 4c 20 31 2e 30 20 37 39 2d 30 32 2d 30 39 00 0c 00 04 00 0e 00 0a 01 04 c8 44 3a 44 42 33 30 00 ┆ > F IDENT D:DB30 TRA 3.2 79-02-20 O111 REL 1.0 79-02-09 D:DB30 ┆
0x1dec…1e3c 00 0c 00 46 00 10 00 0c 05 05 c8 44 3a 44 42 33 30 44 00 00 00 0c 00 58 00 20 00 1c 03 0d 00 00 00 01 00 00 00 02 a0 02 00 05 00 0c b0 09 00 0a 00 66 80 19 00 03 00 b1 00 0c 00 6c 00 0e 00 0a 07 04 00 00 3a 44 00 14 00 00 00 0c 00 90 40 04 ┆ F D:DB30D X f l :D @ ┆
0x1e3c…1e42 00 00 00 0c 00 a2 ┆ ┆