|
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: 5200 (0x1450)
Notes: pts_type(SC)
Names: »TDISP.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »SAG/TDISP.SC«
IDENT TDISP REL 8.2 78-09-15 870105040820 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TDISP = TERMINAL DISPATCHER * * * * * * ************************************************** * * * * THIS IS THE TERMINAL DISPATCHER IN TOSS. * ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. * THE DISPATCHER CHECKS IF THERE IS A JOB IN DISPATCHER- * QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. * - IF SO THE QUEUED PROGRAM IS STARTED AND REGISTERS * A1-A14 OF INTERRUPTED PROGRAM ARE SAVED ON A15 STACK. * - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETUR8. * * AN ENTRYPOINT 'LKMDIS' IS ALSO INCLUDED IN THIS MODULE. * THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST.(NO REGISTERS * ON STACK) A CHECK IS MADE IF THERE IS A JOB IN DISPATCHER QUEUE * WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. * - IF QUEUED JOB IS STARTED * - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETU14. * * * AN OPTIONALY ENTRYPOINT 'DISIOE' IS ALSO PROVIDED FOR * ERRORS IN I/O DRIVERS. BIT 0 IS SET IN A1 AND THE SUB- * ROUTINE 'TENDIO' IS CALLED BEFORE THE 'TDISP'-ENTRY * IS ENTERED. * ENTRY 'DISEND' ONLY CALLS 'TENDIO' BEFORE 'TDISP'-ENTRY. EJECT * *********** * ENTRIES * *********** * ENTRY TDISP DISPATCHER ENTRY ENTRY LKMDIS DISPATCHED AFTER LKM ENTRY DISIOE I/O ERROR ENTRY ENTRY DISEND END I/O AND DISPATCH ENTRY DISQUE POINTER TO FIRST PLACE IN DISPATCHER-QUEUE ENTRY GBQUE POINTER TO FIRST TTAB IN BUFFER QUEUE ENTRY PRUN TTAB-ADDRESS OF RUNING PROGRAM ENTRY SRUN RUNNING SEGMENT ENTRY RETU14 RESTORE REGISTER A14-A1 VIA A15 STACK ENTRY RETU13 ENTRY RETU12 ENTRY RETU11 ENTRY RETU10 ENTRY RETUR9 ENTRY RETUR8 ENTRY RETUR7 ENTRY RETUR6 ENTRY RETUR5 ENTRY RETUR4 ENTRY RETUR3 ENTRY RETUR2 ENTRY RETUR1 ENTRY RTNA15 ENTRY FREQUE ENTRY BLOCKL EJECT ENTRY DWTCHP CHANNEL PARAMETER ENTRY DWTST STATUS ENTRY DWTECB ECB ADDRESS ENTRY DWTOR ORDER ENTRY DWTADR POINTER TO ADDRESS-BLOCK ENTRY DWTTAB TTAB-ADDRESS ENTRY DWTWAT WAIT ACTIVATE INDICATOR ENTRY DWTTQ TERMINAL QUEUE ENTRY DWTWA WORK AREA ENTRY DWTTDM DM REQUEST TTAB ADDRESS ENTRY DWTVOL VOLUME NAME ENTRY ECBBA,ECBRL,ECBEL ENTRY ECBRC,ECBCW ENTRY SACT ACTIVE SEGMENT POINTER ENTRY LRUNEW DUMMY FOR MEMORY MANAGEMENT (OVERLAY) EJECT * ************* * EXTERNALS * ************* * * DISPLACEMENT IN TTAB * EXTRN TTB:SA SAVE AREA EXTRN TTB:ST STATUS EXTRN TENDIO END I/O EXTRN EXIT PROGRAM EXIT EXTRN BLOK:S START OF BLOCK POOL EXTRN BLOCKE BLOCK POOL LENGTH EJECT * ****************************************** * * DWT-DISPLACEMENT DECLARATIONS * ***************************************** * DWTCHP EQU 0 CHANNEL PARAMETER DWTST EQU 2 STSTUS DWTECB EQU 4 ECB-ADDRESS DWTOR EQU 6 ORDER DWTADR EQU 8 ADDRESS BLOCK POINTER DWTTAB EQU 10 TTAB-ADDRESS DWTWAT EQU 12 WAIT/ACTIVATE INDICATOR DWTTQ EQU 14 TERMINAL QUEUE DWTWA EQU 16 WORK AREA DWTTDM EQU 16 DM RQEUEST TTAB ADDRESS DWTVOL EQU 44 VOLUME NAME * ****************************** * * ECB-DISPLACEMENTS * ****************************** * ECBBA EQU /02 ECBRL EQU /04 ECBEL EQU /06 ECBRC EQU /08 ECBCW EQU /0A EJECT * * D I S Q U E * * POINTER TO FIRST PLACE IN DISPATCHER QUEUE * DISQUE EQU * DATA 0 * * P R U N * * TTAB-ADDRESS OF RUNING PROGRAM * PRUN EQU * DATA 0 * * S R U N * * RUNNING SEGMENT POINTER * SRUN EQU * DATA 0 ******************************* * * S A C T * **************** SACT DATA 0 ACTIVE SEGMENT POINTER * * L R U N E W * LRUNEW EQU * * * G B Q U E * * POINTER TO FIRST TASK TABLE IN BUFFER QUEUE * GBQUE EQU * DATA 0 FREQUE DATA BLOK:S BLOCKL DATA BLOCKE * EJECT * * D I S I O E * * SET BIT 0 IN ECB RETURN CODE AND GO TO TDISP-ENTRY * DISIOE EQU *
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT TDISP REL 8.2 78-09-15 870105040820«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0040}
0x0046…0080 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x004a}
0x0080…008a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0084}
0x008a…00b2 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x008e}
0x00b2…00bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b6}
0x00bc…00e4 Head {h00=0x0024, h01=0x0050, text=»* TDISP = TERMINAL DISPATCHER «, t00=0x0000, t01=0x00c0}
0x00e4…00ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…00f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x00f8…0102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…015a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0124}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…01ac Head {h00=0x0030, h01=0x0050, text=»* THIS IS THE TERMINAL DISPATCHER IN TOSS.«, t00=0x0000, t01=0x017c}
0x01ac…01ee Head {h00=0x003e, h01=0x0050, text=»* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. «, t00=0x0001, t01=0x0020}
0x01ee…0230 Head {h00=0x003e, h01=0x0050, text=»* THE DISPATCHER CHECKS IF THERE IS A JOB IN DISPATCHER-«, t00=0x0001, t01=0x0062}
0x0230…0270 Head {h00=0x003c, h01=0x0050, text=»* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM.«, t00=0x0001, t01=0x00a4}
0x0270…02b0 Head {h00=0x003c, h01=0x0050, text=»* - IF SO THE QUEUED PROGRAM IS STARTED AND REGISTERS «, t00=0x0001, t01=0x00e4}
0x02b0…02f4 Head {h00=0x0040, h01=0x0050, text=»* A1-A14 OF INTERRUPTED PROGRAM ARE SAVED ON A15 STACK. «, t00=0x0001, t01=0x0124}
0x02f4…033c Head {h00=0x0044, h01=0x0050, text=»* - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETUR8. «, t00=0x0001, t01=0x0168}
0x033c…0346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0020}
0x0346…038a Head {h00=0x0040, h01=0x0050, text=»* AN ENTRYPOINT 'LKMDIS' IS ALSO INCLUDED IN THIS MODULE. «, t00=0x0002, t01=0x002a}
0x038a…03d2 Head {h00=0x0044, h01=0x0050, text=»* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST.(NO REGISTERS«, t00=0x0002, t01=0x006e}
0x03d2…041e Head {h00=0x0048, h01=0x0050, text=»* ON STACK) A CHECK IS MADE IF THERE IS A JOB IN DISPATCHER QUEUE «, t00=0x0002, t01=0x00b6}
0x041e…0458 Head {h00=0x0036, h01=0x0050, text=»* WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM.«, t00=0x0002, t01=0x0102}
0x0458…047e Head {h00=0x0022, h01=0x0050, text=»* - IF QUEUED JOB IS STARTED«, t00=0x0002, t01=0x013c}
0x047e…04c6 Head {h00=0x0044, h01=0x0050, text=»* - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETU14. «, t00=0x0002, t01=0x0162}
0x04c6…04d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001a}
0x04d0…04da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…051c Head {h00=0x003e, h01=0x0050, text=»* AN OPTIONALY ENTRYPOINT 'DISIOE' IS ALSO PROVIDED FOR «, t00=0x0003, t01=0x002e}
0x051c…055e Head {h00=0x003e, h01=0x0050, text=»* ERRORS IN I/O DRIVERS. BIT 0 IS SET IN A1 AND THE SUB-«, t00=0x0003, t01=0x0070}
0x055e…059e Head {h00=0x003c, h01=0x0050, text=»* ROUTINE 'TENDIO' IS CALLED BEFORE THE 'TDISP'-ENTRY «, t00=0x0003, t01=0x00b2}
0x059e…05b6 Head {h00=0x0014, h01=0x0050, text=»* IS ENTERED. «, t00=0x0003, t01=0x00f2}
0x05b6…05fa Head {h00=0x0040, h01=0x0050, text=»* ENTRY 'DISEND' ONLY CALLS 'TENDIO' BEFORE 'TDISP'-ENTRY.«, t00=0x0003, t01=0x010a}
0x05fa…0608 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x014e}
0x0608…0612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015c}
0x0612…0626 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0166}
0x0626…063a Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x017a}
0x063a…064e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x018e}
0x064e…0658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0658…067e Head {h00=0x0022, h01=0x0050, text=» ENTRY TDISP DISPATCHER ENTRY «, t00=0x0004, t01=0x001c}
0x067e…06a8 Head {h00=0x0026, h01=0x0050, text=» ENTRY LKMDIS DISPATCHED AFTER LKM«, t00=0x0004, t01=0x0042}
0x06a8…06ce Head {h00=0x0022, h01=0x0050, text=» ENTRY DISIOE I/O ERROR ENTRY «, t00=0x0004, t01=0x006c}
0x06ce…06f8 Head {h00=0x0026, h01=0x0050, text=» ENTRY DISEND END I/O AND DISPATCH«, t00=0x0004, t01=0x0092}
0x06f8…0738 Head {h00=0x003c, h01=0x0050, text=» ENTRY DISQUE POINTER TO FIRST PLACE IN DISPATCHER-QUEUE«, t00=0x0004, t01=0x00bc}
0x0738…0772 Head {h00=0x0036, h01=0x0050, text=» ENTRY GBQUE POINTER TO FIRST TTAB IN BUFFER QUEUE«, t00=0x0004, t01=0x00fc}
0x0772…07a4 Head {h00=0x002e, h01=0x0050, text=» ENTRY PRUN TTAB-ADDRESS OF RUNING PROGRAM«, t00=0x0004, t01=0x0136}
0x07a4…07c8 Head {h00=0x0020, h01=0x0050, text=» ENTRY SRUN RUNNING SEGMENT «, t00=0x0004, t01=0x0168}
0x07c8…0804 Head {h00=0x0038, h01=0x0050, text=» ENTRY RETU14 RESTORE REGISTER A14-A1 VIA A15 STACK «, t00=0x0004, t01=0x018c}
0x0804…081a Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU13 «, t00=0x0005, t01=0x0038}
0x081a…0830 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU12 «, t00=0x0005, t01=0x004e}
0x0830…0846 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU11 «, t00=0x0005, t01=0x0064}
0x0846…085c Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU10 «, t00=0x0005, t01=0x007a}
0x085c…0872 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR9 «, t00=0x0005, t01=0x0090}
0x0872…0888 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR8 «, t00=0x0005, t01=0x00a6}
0x0888…089e Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR7 «, t00=0x0005, t01=0x00bc}
0x089e…08b4 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR6 «, t00=0x0005, t01=0x00d2}
0x08b4…08ca Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR5 «, t00=0x0005, t01=0x00e8}
0x08ca…08e0 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR4 «, t00=0x0005, t01=0x00fe}
0x08e0…08f6 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR3 «, t00=0x0005, t01=0x0114}
0x08f6…090c Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR2 «, t00=0x0005, t01=0x012a}
0x090c…0922 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR1 «, t00=0x0005, t01=0x0140}
0x0922…0938 Head {h00=0x0012, h01=0x0050, text=» ENTRY RTNA15 «, t00=0x0005, t01=0x0156}
0x0938…094e Head {h00=0x0012, h01=0x0050, text=» ENTRY FREQUE «, t00=0x0005, t01=0x016c}
0x094e…0964 Head {h00=0x0012, h01=0x0050, text=» ENTRY BLOCKL «, t00=0x0005, t01=0x0182}
0x0964…0972 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0008}
0x0972…099a Head {h00=0x0024, h01=0x0050, text=» ENTRY DWTCHP CHANNEL PARAMETER «, t00=0x0006, t01=0x0016}
0x099a…09b6 Head {h00=0x0018, h01=0x0050, text=» ENTRY DWTST STATUS «, t00=0x0006, t01=0x003e}
0x09b6…09d8 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTECB ECB ADDRESS «, t00=0x0006, t01=0x005a}
0x09d8…09f2 Head {h00=0x0016, h01=0x0050, text=» ENTRY DWTOR ORDER«, t00=0x0006, t01=0x007c}
0x09f2…0a20 Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTADR POINTER TO ADDRESS-BLOCK«, t00=0x0006, t01=0x0096}
0x0a20…0a42 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTTAB TTAB-ADDRESS«, t00=0x0006, t01=0x00c4}
0x0a42…0a70 Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTWAT WAIT ACTIVATE INDICATOR «, t00=0x0006, t01=0x00e6}
0x0a70…0a94 Head {h00=0x0020, h01=0x0050, text=» ENTRY DWTTQ TERMINAL QUEUE «, t00=0x0006, t01=0x0114}
0x0a94…0ab2 Head {h00=0x001a, h01=0x0050, text=» ENTRY DWTWA WORK AREA«, t00=0x0006, t01=0x0138}
0x0ab2…0ae0 Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTTDM DM REQUEST TTAB ADDRESS «, t00=0x0006, t01=0x0156}
0x0ae0…0b02 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTVOL VOLUME NAME «, t00=0x0006, t01=0x0184}
0x0b02…0b22 Head {h00=0x001c, h01=0x0050, text=» ENTRY ECBBA,ECBRL,ECBEL«, t00=0x0007, t01=0x0016}
0x0b22…0b3c Head {h00=0x0016, h01=0x0050, text=» ENTRY ECBRC,ECBCW«, t00=0x0007, t01=0x0036}
0x0b3c…0b66 Head {h00=0x0026, h01=0x0050, text=» ENTRY SACT ACTIVE SEGMENT POINTER«, t00=0x0007, t01=0x0050}
0x0b66…0ba2 Head {h00=0x0038, h01=0x0050, text=» ENTRY LRUNEW DUMMY FOR MEMORY MANAGEMENT (OVERLAY) «, t00=0x0007, t01=0x007a}
0x0ba2…0bb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00b6}
0x0bb0…0bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bba…0bd0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x00ce}
0x0bd0…0be6 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0007, t01=0x00e4}
0x0be6…0bfc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x00fa}
0x0bfc…0c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0110}
0x0c06…0c26 Head {h00=0x001c, h01=0x0050, text=»* DISPLACEMENT IN TTAB«, t00=0x0007, t01=0x011a}
0x0c26…0c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013a}
0x0c30…0c50 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0007, t01=0x0144}
0x0c50…0c6c Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:ST STATUS«, t00=0x0007, t01=0x0164}
0x0c6c…0c8a Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0007, t01=0x0180}
0x0c8a…0caa Head {h00=0x001c, h01=0x0050, text=» EXTRN EXIT PROGRAM EXIT«, t00=0x0008, t01=0x000e}
0x0caa…0cd4 Head {h00=0x0026, h01=0x0050, text=» EXTRN BLOK:S START OF BLOCK POOL «, t00=0x0008, t01=0x002e}
0x0cd4…0cfc Head {h00=0x0024, h01=0x0050, text=» EXTRN BLOCKE BLOCK POOL LENGTH «, t00=0x0008, t01=0x0058}
0x0cfc…0d0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0080}
0x0d0a…0d12 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x008e}
0x0d12…0d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0096}
0x0d1c…0d4e Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0008, t01=0x00a0}
0x0d4e…0d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d2}
0x0d58…0d82 Head {h00=0x0026, h01=0x0050, text=»* DWT-DISPLACEMENT DECLARATIONS «, t00=0x0008, t01=0x00dc}
0x0d82…0d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0106}
0x0d8c…0dbe Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x0110}
0x0dbe…0dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0142}
0x0dc8…0dd0 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x014c}
0x0dd0…0df6 Head {h00=0x0022, h01=0x0050, text=»DWTCHP EQU 0 CHANNEL PARAMETER«, t00=0x0008, t01=0x0154}
0x0df6…0e10 Head {h00=0x0016, h01=0x0050, text=»DWTST EQU 2 STSTUS«, t00=0x0008, t01=0x017a}
0x0e10…0e30 (9, 0, 400) Head {h00=0x001c, h01=0x0050, text=»DWTECB EQU 4 ECB-ADDRESS«, t00=0x0009, t01=0x0004}
0x0e30…0e4a Head {h00=0x0016, h01=0x0050, text=»DWTOR EQU 6 ORDER «, t00=0x0009, t01=0x0024}
0x0e4a…0e74 Head {h00=0x0026, h01=0x0050, text=»DWTADR EQU 8 ADDRESS BLOCK POINTER«, t00=0x0009, t01=0x003e}
0x0e74…0e96 Head {h00=0x001e, h01=0x0050, text=»DWTTAB EQU 10 TTAB-ADDRESS«, t00=0x0009, t01=0x0068}
0x0e96…0ec4 Head {h00=0x002a, h01=0x0050, text=»DWTWAT EQU 12 WAIT/ACTIVATE INDICATOR «, t00=0x0009, t01=0x008a}
0x0ec4…0ee8 Head {h00=0x0020, h01=0x0050, text=»DWTTQ EQU 14 TERMINAL QUEUE «, t00=0x0009, t01=0x00b8}
0x0ee8…0f06 Head {h00=0x001a, h01=0x0050, text=»DWTWA EQU 16 WORK AREA«, t00=0x0009, t01=0x00dc}
0x0f06…0f34 Head {h00=0x002a, h01=0x0050, text=»DWTTDM EQU 16 DM RQEUEST TTAB ADDRESS «, t00=0x0009, t01=0x00fa}
0x0f34…0f56 Head {h00=0x001e, h01=0x0050, text=»DWTVOL EQU 44 VOLUME NAME «, t00=0x0009, t01=0x0128}
0x0f56…0f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014a}
0x0f60…0f86 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0009, t01=0x0154}
0x0f86…0f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017a}
0x0f90…0fae Head {h00=0x001a, h01=0x0050, text=»* ECB-DISPLACEMENTS«, t00=0x0009, t01=0x0184}
0x0fae…0fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb8…0fde Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000a, t01=0x001c}
0x0fde…0fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0042}
0x0fe8…0ffe Head {h00=0x0012, h01=0x0050, text=»ECBBA EQU /02 «, t00=0x000a, t01=0x004c}
0x0ffe…1014 Head {h00=0x0012, h01=0x0050, text=»ECBRL EQU /04 «, t00=0x000a, t01=0x0062}
0x1014…102a Head {h00=0x0012, h01=0x0050, text=»ECBEL EQU /06 «, t00=0x000a, t01=0x0078}
0x102a…1040 Head {h00=0x0012, h01=0x0050, text=»ECBRC EQU /08 «, t00=0x000a, t01=0x008e}
0x1040…1056 Head {h00=0x0012, h01=0x0050, text=»ECBCW EQU /0A «, t00=0x000a, t01=0x00a4}
0x1056…1064 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00ba}
0x1064…106e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c8}
0x106e…1086 Head {h00=0x0014, h01=0x0050, text=»* D I S Q U E «, t00=0x000a, t01=0x00d2}
0x1086…1090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ea}
0x1090…10c6 Head {h00=0x0032, h01=0x0050, text=»* POINTER TO FIRST PLACE IN DISPATCHER QUEUE«, t00=0x000a, t01=0x00f4}
0x10c6…10d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012a}
0x10d0…10e4 Head {h00=0x0010, h01=0x0050, text=»DISQUE EQU *«, t00=0x000a, t01=0x0134}
0x10e4…10f4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000a, t01=0x0148}
0x10f4…10fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0158}
0x10fe…1112 Head {h00=0x0010, h01=0x0050, text=»* P R U N «, t00=0x000a, t01=0x0162}
0x1112…111c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0176}
0x111c…1146 Head {h00=0x0026, h01=0x0050, text=»* TTAB-ADDRESS OF RUNING PROGRAM«, t00=0x000a, t01=0x0180}
0x1146…1150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001a}
0x1150…1162 Head {h00=0x000e, h01=0x0050, text=»PRUN EQU *«, t00=0x000b, t01=0x0024}
0x1162…1172 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000b, t01=0x0036}
0x1172…117c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0046}
0x117c…1190 Head {h00=0x0010, h01=0x0050, text=»* S R U N «, t00=0x000b, t01=0x0050}
0x1190…119a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0064}
0x119a…11be Head {h00=0x0020, h01=0x0050, text=»* RUNNING SEGMENT POINTER «, t00=0x000b, t01=0x006e}
0x11be…11c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0092}
0x11c8…11da Head {h00=0x000e, h01=0x0050, text=»SRUN EQU *«, t00=0x000b, t01=0x009c}
0x11da…11ea Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000b, t01=0x00ae}
0x11ea…1212 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x000b, t01=0x00be}
0x1212…121c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e6}
0x121c…1230 Head {h00=0x0010, h01=0x0050, text=»* S A C T «, t00=0x000b, t01=0x00f0}
0x1230…123a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0104}
0x123a…1252 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000b, t01=0x010e}
0x1252…125a Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0126}
0x125a…1284 Head {h00=0x0026, h01=0x0050, text=»SACT DATA 0 ACTIVE SEGMENT POINTER«, t00=0x000b, t01=0x012e}
0x1284…128c Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0158}
0x128c…1296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0160}
0x1296…12ae Head {h00=0x0014, h01=0x0050, text=»* L R U N E W «, t00=0x000b, t01=0x016a}
0x12ae…12b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0182}
0x12b8…12cc Head {h00=0x0010, h01=0x0050, text=»LRUNEW EQU *«, t00=0x000b, t01=0x018c}
0x12cc…12d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0010}
0x12d6…12ec Head {h00=0x0012, h01=0x0050, text=»* G B Q U E «, t00=0x000c, t01=0x001a}
0x12ec…12f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f6…132e Head {h00=0x0034, h01=0x0050, text=»* POINTER TO FIRST TASK TABLE IN BUFFER QUEUE «, t00=0x000c, t01=0x003a}
0x132e…1338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0072}
0x1338…134c Head {h00=0x0010, h01=0x0050, text=»GBQUE EQU * «, t00=0x000c, t01=0x007c}
0x134c…135c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000c, t01=0x0090}
0x135c…1376 Head {h00=0x0016, h01=0x0050, text=»FREQUE DATA BLOK:S«, t00=0x000c, t01=0x00a0}
0x1376…1390 Head {h00=0x0016, h01=0x0050, text=»BLOCKL DATA BLOCKE«, t00=0x000c, t01=0x00ba}
0x1390…139a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d4}
0x139a…13a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00de}
0x13a8…13b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ec}
0x13b2…13ca Head {h00=0x0014, h01=0x0050, text=»* D I S I O E «, t00=0x000c, t01=0x00f6}
0x13ca…13d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010e}
0x13d4…1412 Head {h00=0x003a, h01=0x0050, text=»* SET BIT 0 IN ECB RETURN CODE AND GO TO TDISP-ENTRY«, t00=0x000c, t01=0x0118}
0x1412…141c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0156}
0x141c…1430 Head {h00=0x0010, h01=0x0050, text=»DISIOE EQU *«, t00=0x000c, t01=0x0160}
0x1430…1434 Head {h00=0x0022, h01=0x0050}
0x1434…1438 Head {h00=0x5c4c, h01=0x444b}
0x1438…1450 4c 5c 41 31 2c 2f 38 30 30 30 5c 53 45 54 20 52 45 54 55 52 4e 20 43 4f ┆L A1,/8000 SET RETURN CO┆