|
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: 7956 (0x1f14)
Notes: pts_type(SC)
Names: »DEDICO.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DEDICO.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DEDICO.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/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 'EL * OUTPUT: PINDTB=POOLINDEX TO BUFFER-ELEMENTS IN RPOOL AND BP * THE DATARECORD, CONTAINING THE WANTED ELEMENT OF THE WANTED * WILL BE PASSED TO RPOOL AND BPOOL WITH INDEX 'PINDTB'. * * * 25 DELEWTE TABLE. THE TABLE, INDICATED BY ITS NAME IN 'TABLE' * DELETED ON DISC. * * 26 ENTER TABLE. INPUT: TABLENAME IN 'TABLE', ELEMENT-NUMBER IN * 'ELMNO', INDEX TO POOL IN 'PINDTB. THE CONTENTS OF BPOOL(PI * 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…10a4 Head {h00=0x004c, h01=0x0050, text=»* 24 GET TABLE. INPUT:TABLE-NAME IN 'TABLE',ELEMENTNUMBER IN 'EL«, t00=0x000a, t01=0x00bc}
0x10a4…10f4 Head {h00=0x004c, h01=0x0050, text=»* OUTPUT: PINDTB=POOLINDEX TO BUFFER-ELEMENTS IN RPOOL AND BP«, t00=0x000a, t01=0x010c}
0x10f4…1144 Head {h00=0x004c, h01=0x0050, text=»* THE DATARECORD, CONTAINING THE WANTED ELEMENT OF THE WANTED«, t00=0x000a, t01=0x015c}
0x1144…1190 Head {h00=0x0048, h01=0x0050, text=»* WILL BE PASSED TO RPOOL AND BPOOL WITH INDEX 'PINDTB'. «, t00=0x000b, t01=0x001c}
0x1190…119a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0068}
0x119a…11a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0072}
0x11a4…11f4 Head {h00=0x004c, h01=0x0050, text=»* 25 DELEWTE TABLE. THE TABLE, INDICATED BY ITS NAME IN 'TABLE' «, t00=0x000b, t01=0x007c}
0x11f4…121a Head {h00=0x0022, h01=0x0050, text=»* DELETED ON DISC. «, t00=0x000b, t01=0x00cc}
0x121a…1224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f2}
0x1224…1274 Head {h00=0x004c, h01=0x0050, text=»* 26 ENTER TABLE. INPUT: TABLENAME IN 'TABLE', ELEMENT-NUMBER IN«, t00=0x000b, t01=0x00fc}
0x1274…12c4 Head {h00=0x004c, h01=0x0050, text=»* 'ELMNO', INDEX TO POOL IN 'PINDTB. THE CONTENTS OF BPOOL(PI«, t00=0x000b, t01=0x014c}
0x12c4…1300 Head {h00=0x0038, h01=0x0050, text=»* AND RPOOL(PINDTB) ARE WRITTEN TO DISC. «, t00=0x000c, t01=0x000c}
0x1300…130a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0048}
0x130a…1354 Head {h00=0x0046, h01=0x0050, text=»* 27 DELETE BATCH. DATA-ITEM BATCH INDICATES THE BATCH TO «, t00=0x000c, t01=0x0052}
0x1354…139c Head {h00=0x0044, h01=0x0050, text=»* BE DELETED. ALL RECORDS BELONGING TO THIS BATCH ARE«, t00=0x000c, t01=0x009c}
0x139c…13ce Head {h00=0x002e, h01=0x0050, text=»* RETURNED TO FREESPACE-TABLE. «, t00=0x000c, t01=0x00e4}
0x13ce…13d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0116}
0x13d8…1420 Head {h00=0x0044, h01=0x0050, text=»* 28 GET NO OF FREE RECORDS ON DISC(S). AFTER EXECUTION,«, t00=0x000c, t01=0x0120}
0x1420…146a Head {h00=0x0046, h01=0x0050, text=»* THE BINARY DATA-ITEM DEBINW1 IS LOADED WITH NUMBER OF«, t00=0x000c, t01=0x0168}
0x146a…14b2 Head {h00=0x0044, h01=0x0050, text=»* FREE RECORDS IN SYSTEM-FILE AND DEBINW2 WITH NUMBER«, t00=0x000d, t01=0x0022}
0x14b2…14f4 Head {h00=0x003e, h01=0x0050, text=»* OF FREE RECORDS IN USERFILE OF RUNNING TASK. «, t00=0x000d, t01=0x006a}
0x14f4…14fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ac}
0x14fe…1542 Head {h00=0x0040, h01=0x0050, text=»* 29 GET NEXT JOBDEFINITION. THE NEXT JOBDEFINITION «, t00=0x000d, t01=0x00b6}
0x1542…1588 Head {h00=0x0042, h01=0x0050, text=»* IN CHAIN IS PASSED TO THE CALLING TASK. IF 'JOB- «, t00=0x000d, t01=0x00fa}
0x1588…15ce Head {h00=0x0042, h01=0x0050, text=»* NAME' IS EMPTY, THE FIRST JOBDEFINITION IN CHAIN «, t00=0x000d, t01=0x0140}
0x15ce…15ee Head {h00=0x001c, h01=0x0050, text=»* IS PASSED. «, t00=0x000d, t01=0x0186}
0x15ee…15f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0016}
0x15f8…163a Head {h00=0x003e, h01=0x0050, text=»* 30 GET PREVIOUS JOBDEFINITION. THE PREVIOUS JOB-«, t00=0x000e, t01=0x0020}
0x163a…167c Head {h00=0x003e, h01=0x0050, text=»* DEFINITION IN CHAIN IS PASSED TO THE CALLING «, t00=0x000e, t01=0x0062}
0x167c…16c0 Head {h00=0x0040, h01=0x0050, text=»* TASK. IF 'JOBNAME' IS EMPTY, THE FIRST JOBDEFI-«, t00=0x000e, t01=0x00a4}
0x16c0…16f0 Head {h00=0x002c, h01=0x0050, text=»* NITION IN CHAIN IS PASSED. «, t00=0x000e, t01=0x00e8}
0x16f0…16fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0118}
0x16fa…173e Head {h00=0x0040, h01=0x0050, text=»* 31 GET NEXT FORMAT. THE NEXT FORMAT IN FORMATCHAIN«, t00=0x000e, t01=0x0122}
0x173e…1780 Head {h00=0x003e, h01=0x0050, text=»* IS PASSED TO THE CALLING TASK. IF 'FORMAT' IS«, t00=0x000e, t01=0x0166}
0x1780…17c0 Head {h00=0x003c, h01=0x0050, text=»* EMPTY, THE FIRST FORMAT IN CHAIN IS PASSED.«, t00=0x000f, t01=0x0018}
0x17c0…17ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0058}
0x17ca…1810 Head {h00=0x0042, h01=0x0050, text=»* 32 GET PREVIOUS FORMAT. THE PREVIOUS FORMAT IN CHAIN«, t00=0x000f, t01=0x0062}
0x1810…1856 Head {h00=0x0042, h01=0x0050, text=»* IS PASSED TO CALLING TASK. IF 'FORMAT' IS EMPTY, «, t00=0x000f, t01=0x00a8}
0x1856…1890 Head {h00=0x0036, h01=0x0050, text=»* THE FIRST FORMAT IN CHAIN IS PASSED. «, t00=0x000f, t01=0x00ee}
0x1890…189a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0128}
0x189a…18c2 Head {h00=0x0024, h01=0x0050, text=»* 33 GET CURRENT SECTOR «, t00=0x000f, t01=0x0132}
0x18c2…18cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015a}
0x18cc…191a Head {h00=0x004a, h01=0x0050, text=»* 34 GET NEXT BATCHNAME. THE NAME OF NEXT BATCH ON USERFILE IS«, t00=0x000f, t01=0x0164}
0x191a…194c Head {h00=0x002e, h01=0x0050, text=»* OUTPUT TO DATA-ITEM 'BATCH'. «, t00=0x0010, t01=0x0022}
0x194c…1956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0054}
0x1956…1982 Head {h00=0x0028, h01=0x0050, text=»* 35 GET PREVIOUS BATCHNAME.«, t00=0x0010, t01=0x005e}
0x1982…198c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008a}
0x198c…19ba Head {h00=0x002a, h01=0x0050, text=»* RETURNCODE IN DEBINW4: 0 = OK«, t00=0x0010, t01=0x0094}
0x19ba…1a0a Head {h00=0x004c, h01=0x0050, text=»* -1 = WARNING. 95 PROC OF FILESPACE USED. «, t00=0x0010, t01=0x00c2}
0x1a0a…1a44 Head {h00=0x0036, h01=0x0050, text=»* 9 = NOT IN SYSTEM «, t00=0x0010, t01=0x0112}
0x1a44…1a7e Head {h00=0x0036, h01=0x0050, text=»* 10 = NO DISC SPACE «, t00=0x0010, t01=0x014c}
0x1a7e…1aae Head {h00=0x002c, h01=0x0050, text=»* 11 = USED«, t00=0x0010, t01=0x0186}
0x1aae…1ae0 Head {h00=0x002e, h01=0x0050, text=»* 12 = LOCKED«, t00=0x0011, t01=0x0026}
0x1ae0…1b20 Head {h00=0x003c, h01=0x0050, text=»* 13 = NO WORKSPACE IN CORE«, t00=0x0011, t01=0x0058}
0x1b20…1b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0098}
0x1b2a…1b74 Head {h00=0x0046, h01=0x0050, text=»* CONDITION-REGISTER IS SET TO 2 (=ERROR), IF DEBINW4 NOT ZERO«, t00=0x0011, t01=0x00a2}
0x1b74…1bc4 Head {h00=0x004c, h01=0x0050, text=»* SET TO 1 (=EOF), IF DEBINW4 IS LESS THH AN 0«, t00=0x0011, t01=0x00ec}
0x1bc4…1c0c Head {h00=0x0044, h01=0x0050, text=»* SET TO 0 (=OK), IF DEBINW4 IS ZERO. «, t00=0x0011, t01=0x013c}
0x1c0c…1c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0184}
0x1c16…1c5e Head {h00=0x0044, h01=0x0050, text=»* USED WORKAREAS ARE DEBIN1, DEBIN2, DEBIN3, DEBIN4, DEBIN5,«, t00=0x0011, t01=0x018e}
0x1c5e…1cac Head {h00=0x004a, h01=0x0050, text=»* SWIT01, SWIT02, SWIT03, STRG10A, STR6A, STR6B«, t00=0x0012, t01=0x0046}
0x1cac…1cf2 Head {h00=0x0042, h01=0x0050, text=»* DKBIN1, DKBIN2, DKBIN3, SYSBUF, RBUF «, t00=0x0012, t01=0x0094}
0x1cf2…1cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00da}
0x1cfc…1d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e4}
0x1d06…1d44 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0012, t01=0x00ee}
0x1d44…1d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012c}
0x1d4e…1d5c Head {h00=0x000a, h01=0x0050, text=» DDIV «, t00=0x0012, t01=0x0136}
0x1d5c…1d6a Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0012, t01=0x0144}
0x1d6a…1d76 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0012, t01=0x0152}
0x1d76…1d7a Head {h00=0x4004, h01=0x0000}
0x1d7a…1d7e 00 12 01 5e ┆ ^┆
0x1d7e…1d86 (19, 1, 8) 20 04 00 00 00 13 00 04 ┆ ┆
0x1d86…1dd6 (20, 0, 398) 2c 53 54 52 36 41 00 13 01 84 00 0c 00 50 5c 42 5c 53 54 41 52 54 00 14 00 0e 00 0a 00 50 5c 45 4a 45 43 54 00 14 00 1e 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 14 00 2c 00 18 00 50 2a 20 20 56 4f 4c 55 4d ┆,STR6A P B START P EJECT P******************* , P* VOLUM┆
0x1dd6…1e26 45 20 53 55 52 56 45 59 20 20 2a 20 00 14 00 48 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 14 00 64 00 08 00 50 43 38 30 20 00 14 00 80 00 14 00 50 5c 41 54 54 46 4d 54 5c 46 53 55 52 56 45 59 20 00 14 00 8c ┆E SURVEY * H P******************* d PC80 P ATTFMT FSURVEY ┆
0x1e26…1e76 00 12 00 50 5c 53 45 54 5c 44 45 50 52 4f 4d 50 54 20 00 14 00 a4 00 08 00 50 43 38 31 20 00 14 00 ba 00 10 00 50 5c 50 45 52 46 5c 44 45 43 4c 52 41 00 14 00 c6 00 1e 00 50 5c 49 42 5c 44 45 42 49 4e 57 32 2c 43 38 31 2c 53 54 41 52 54 2c ┆ P SET DEPROMPT PC81 P PERF DECLRA P IB DEBINW2,C81,START,┆
0x1e76…1ec6 43 38 32 20 00 14 00 da 00 0a 00 50 5c 42 5c 43 38 31 00 14 00 fc 00 08 00 50 43 38 32 20 00 14 01 0a 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 58 27 35 30 27 20 00 14 01 16 00 2c 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 57 36 ┆C82 P B C81 PC82 P MOVE BIN1,=X'50' , P XCOPY PBLOCK,W6┆
0x1ec6…1f14 2c 57 31 2c 42 49 4e 31 2c 57 31 5c 50 52 49 4e 54 2d 44 45 56 49 43 45 00 14 01 30 00 2e 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 57 37 2c 57 31 2c 46 43 4f 44 2c 57 31 5c 44 49 53 4b 2d 46 49 4c 45 2d 43 4f 44 45 00 14 01 60 ┆,W1,BIN1,W1 PRINT-DEVICE 0 . P XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE-CODE `┆