|
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: 9572 (0x2564)
Notes: pts_type(SC)
Names: »TDISP.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/TDISP.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/TDISP.SC«
IDENT TDISP REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TDISP = TERMINAL DISPATCHER * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ************************************************** * * * * 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 DWTVOL VOLUME NAME ENTRY ECBBA,ECBRL,ECBEL ENTRY ECBRC,ECBCW 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 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 * * 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 * LDKL A1,/8000 SET RETURN CODE * DISEND EQU * CF A15,TENDIO EJECT * * * T D I S P * * THIS IS THE DISPATCHER ENTRY * TDISP EQU * INH LD A5,DISQUE RF(Z) RETUR8 NO QUEUE,RETURN LD A1,18,A15 LOAD PSW FROM STACK SRL A1,10 GET LEVEL CC A1,TTB:ST+1,A5 AND COMPARE WITH QUEUED LEVEL RF(NG) RETUR8 RETURN TO INTERRUPTED PROGRAM STR A9,A15 SAVE A9-A14 ON STACK STR A10,A15 STR A11,A15 STR A12,A15 STR A13,A15 STR A14,A15 LD A1,PRUN STR A1,A15 SAVE PRUN ON STACK AND DISPATCH QUEUED PROGRAM EJECT * * * DISPATCH PROGRAM FIRST IN DISPATCHER QUEUE * * A5 = TTAB-ADDRESS OF PROGRAM TO BE DISPATCHED * DIS100 EQU * LDR* A1,A5 REMOVE JOB FROM DISPATCHER QUEUE ST A1,DISQUE LD A1,TTB:SA,A5 LOAD DISPATCH ADDRESS LD A2,TTB:ST+1,A5 LOAD LEVEL SLL A2,10 CWK A2,/C000 MONITOR JOB ? RF(E) DIS200 YES STR A1,A15 STORE DISPATCH ADDRESS STR A2,A15 AND LEVEL ON STACK LDR A3,A5 ADK A3,14 SET ADDRESS TO A1 IN SAVE AREA LDK A1,14 SET COUNTER DIS110 LDR* A2,A3 SET UP A1-A14 ON STACK STR A2,A15 ADK A3,2 SUK A1,1 RB(NZ) DIS110 DIS120 ST A5,PRUN SET TABB-ADDRES FOR DISPATCHED PROG. START QUEUED PROGRAM (A1-A14 ON STACK) EJECT * * * R E T U R * * ENTRYPOINTS RETU14-RETUR1 :RELOAD REGISTERS FROM STACK * AND RETURN VIA A15 * RETU14 LDR* A14,A15 RETU13 LDR* A13,A15 RETU12 LDR* A12,A15 RETU11 LDR* A11,A15 RETU10 LDR* A10,A15 RETUR9 LDR* A9,A15 RETUR8 LDR* A8,A15 RETUR7 LDR* A7,A15 RETUR6 LDR* A6,A15 RETUR5 LDR* A5,A15 RETUR4 LDR* A4,A15 RETUR3 LDR* A3,A15 RETUR2 LDR* A2,A15 RF RETUR1 RTNA15 STR A1,A15 RETUR1 LDK A1,/40 BIT 9 ORS A1,4,A15 SET PSW IN A15 STACK TO ENB LDR* A1,A15 RTN A15 EJECT * * * MONITOR JOB DISPATCHING * DIS200 EQU * LDKL A3,LKMDIS STORE ADDRESS TO BE DISPATCHED AFTER MONITOR STR A3,A15 JOB ON STACK STR A2,A15 STORE LEVEL 48 ON STACK SUKL A15,16 ADJUST STACK POINTER STR A1,A15 SET MONITOR JOB DISPATCH ADDRESS ON STACK STR A2,A15 SET LEVEL LD A1,TTB:SA+2,A5 LOAD PARAMETER IN A1 STR A1,A15 AND SET ON STACK CF A15,EXIT DO EXIT ON MONITOR JOB AND RB RETUR1 THEN START IT EJECT * * * L K M D I S * * THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST * NO REGISTERS ON STACK * * LKMDIS EQU * INH LD A5,DISQUE RF(Z) DIS010 NO QUEUE,RETURN LD A1,32,A15 LOAD PSW FROM STACK SRL A1,10 GET LEVEL CC A1,TTB:ST+1,A5 AND COMPARE WITH QUEUED LEVEL RB(G) DIS100 DISPATCH FROM QUEUE DIS010 LDR* A5,A15 RB DIS120 RETURN TO INTERRUPTED PROGRAM * * END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT TDISP REL=7.2 DATE=77-09-09 «, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…0094 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x005e}
0x0094…009e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0098}
0x009e…00c6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a2}
0x00c6…00d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ca}
0x00d0…00f8 Head {h00=0x0024, h01=0x0050, text=»* TDISP = TERMINAL DISPATCHER «, t00=0x0000, t01=0x00d4}
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…012e Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0110}
0x012e…0138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…015a Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x013c}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…019e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0168}
0x019e…01a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0012}
0x01a8…01b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001c}
0x01b2…01bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0026}
0x01bc…01f0 Head {h00=0x0030, h01=0x0050, text=»* THIS IS THE TERMINAL DISPATCHER IN TOSS.«, t00=0x0001, t01=0x0030}
0x01f0…0232 Head {h00=0x003e, h01=0x0050, text=»* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. «, t00=0x0001, t01=0x0064}
0x0232…0274 Head {h00=0x003e, h01=0x0050, text=»* THE DISPATCHER CHECKS IF THERE IS A JOB IN DISPATCHER-«, t00=0x0001, t01=0x00a6}
0x0274…02b4 Head {h00=0x003c, h01=0x0050, text=»* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM.«, t00=0x0001, t01=0x00e8}
0x02b4…02f4 Head {h00=0x003c, h01=0x0050, text=»* - IF SO THE QUEUED PROGRAM IS STARTED AND REGISTERS «, t00=0x0001, t01=0x0128}
0x02f4…0338 Head {h00=0x0040, h01=0x0050, text=»* A1-A14 OF INTERRUPTED PROGRAM ARE SAVED ON A15 STACK. «, t00=0x0001, t01=0x0168}
0x0338…0380 Head {h00=0x0044, h01=0x0050, text=»* - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETUR8. «, t00=0x0002, t01=0x001c}
0x0380…038a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0064}
0x038a…03ce Head {h00=0x0040, h01=0x0050, text=»* AN ENTRYPOINT 'LKMDIS' IS ALSO INCLUDED IN THIS MODULE. «, t00=0x0002, t01=0x006e}
0x03ce…0416 Head {h00=0x0044, h01=0x0050, text=»* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST.(NO REGISTERS«, t00=0x0002, t01=0x00b2}
0x0416…0462 Head {h00=0x0048, h01=0x0050, text=»* ON STACK) A CHECK IS MADE IF THERE IS A JOB IN DISPATCHER QUEUE «, t00=0x0002, t01=0x00fa}
0x0462…049c Head {h00=0x0036, h01=0x0050, text=»* WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM.«, t00=0x0002, t01=0x0146}
0x049c…04c2 Head {h00=0x0022, h01=0x0050, text=»* - IF QUEUED JOB IS STARTED«, t00=0x0002, t01=0x0180}
0x04c2…050a Head {h00=0x0044, h01=0x0050, text=»* - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETU14. «, t00=0x0003, t01=0x0016}
0x050a…0514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005e}
0x0514…051e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0068}
0x051e…0560 Head {h00=0x003e, h01=0x0050, text=»* AN OPTIONALY ENTRYPOINT 'DISIOE' IS ALSO PROVIDED FOR «, t00=0x0003, t01=0x0072}
0x0560…05a2 Head {h00=0x003e, h01=0x0050, text=»* ERRORS IN I/O DRIVERS. BIT 0 IS SET IN A1 AND THE SUB-«, t00=0x0003, t01=0x00b4}
0x05a2…05e2 Head {h00=0x003c, h01=0x0050, text=»* ROUTINE 'TENDIO' IS CALLED BEFORE THE 'TDISP'-ENTRY «, t00=0x0003, t01=0x00f6}
0x05e2…05fa Head {h00=0x0014, h01=0x0050, text=»* IS ENTERED. «, t00=0x0003, t01=0x0136}
0x05fa…063e Head {h00=0x0040, h01=0x0050, text=»* ENTRY 'DISEND' ONLY CALLS 'TENDIO' BEFORE 'TDISP'-ENTRY.«, t00=0x0003, t01=0x014e}
0x063e…064c (4, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0004}
0x064c…0656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0656…066a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0004, t01=0x001c}
0x066a…067e Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0004, t01=0x0030}
0x067e…0692 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0004, t01=0x0044}
0x0692…069c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0058}
0x069c…06c2 Head {h00=0x0022, h01=0x0050, text=» ENTRY TDISP DISPATCHER ENTRY «, t00=0x0004, t01=0x0062}
0x06c2…06ec Head {h00=0x0026, h01=0x0050, text=» ENTRY LKMDIS DISPATCHED AFTER LKM«, t00=0x0004, t01=0x0088}
0x06ec…0712 Head {h00=0x0022, h01=0x0050, text=» ENTRY DISIOE I/O ERROR ENTRY «, t00=0x0004, t01=0x00b2}
0x0712…073c Head {h00=0x0026, h01=0x0050, text=» ENTRY DISEND END I/O AND DISPATCH«, t00=0x0004, t01=0x00d8}
0x073c…077c Head {h00=0x003c, h01=0x0050, text=» ENTRY DISQUE POINTER TO FIRST PLACE IN DISPATCHER-QUEUE«, t00=0x0004, t01=0x0102}
0x077c…07b6 Head {h00=0x0036, h01=0x0050, text=» ENTRY GBQUE POINTER TO FIRST TTAB IN BUFFER QUEUE«, t00=0x0004, t01=0x0142}
0x07b6…07e8 Head {h00=0x002e, h01=0x0050, text=» ENTRY PRUN TTAB-ADDRESS OF RUNING PROGRAM«, t00=0x0004, t01=0x017c}
0x07e8…080c Head {h00=0x0020, h01=0x0050, text=» ENTRY SRUN RUNNING SEGMENT «, t00=0x0005, t01=0x001e}
0x080c…0848 Head {h00=0x0038, h01=0x0050, text=» ENTRY RETU14 RESTORE REGISTER A14-A1 VIA A15 STACK «, t00=0x0005, t01=0x0042}
0x0848…085e Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU13 «, t00=0x0005, t01=0x007e}
0x085e…0874 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU12 «, t00=0x0005, t01=0x0094}
0x0874…088a Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU11 «, t00=0x0005, t01=0x00aa}
0x088a…08a0 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU10 «, t00=0x0005, t01=0x00c0}
0x08a0…08b6 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR9 «, t00=0x0005, t01=0x00d6}
0x08b6…08cc Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR8 «, t00=0x0005, t01=0x00ec}
0x08cc…08e2 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR7 «, t00=0x0005, t01=0x0102}
0x08e2…08f8 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR6 «, t00=0x0005, t01=0x0118}
0x08f8…090e Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR5 «, t00=0x0005, t01=0x012e}
0x090e…0924 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR4 «, t00=0x0005, t01=0x0144}
0x0924…093a Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR3 «, t00=0x0005, t01=0x015a}
0x093a…0950 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR2 «, t00=0x0005, t01=0x0170}
0x0950…0966 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR1 «, t00=0x0005, t01=0x0186}
0x0966…097c Head {h00=0x0012, h01=0x0050, text=» ENTRY RTNA15 «, t00=0x0006, t01=0x000c}
0x097c…0992 Head {h00=0x0012, h01=0x0050, text=» ENTRY FREQUE «, t00=0x0006, t01=0x0022}
0x0992…09a8 Head {h00=0x0012, h01=0x0050, text=» ENTRY BLOCKL «, t00=0x0006, t01=0x0038}
0x09a8…09b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x004e}
0x09b6…09de Head {h00=0x0024, h01=0x0050, text=» ENTRY DWTCHP CHANNEL PARAMETER «, t00=0x0006, t01=0x005c}
0x09de…09fa Head {h00=0x0018, h01=0x0050, text=» ENTRY DWTST STATUS «, t00=0x0006, t01=0x0084}
0x09fa…0a1c Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTECB ECB ADDRESS «, t00=0x0006, t01=0x00a0}
0x0a1c…0a36 Head {h00=0x0016, h01=0x0050, text=» ENTRY DWTOR ORDER«, t00=0x0006, t01=0x00c2}
0x0a36…0a64 Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTADR POINTER TO ADDRESS-BLOCK«, t00=0x0006, t01=0x00dc}
0x0a64…0a86 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTTAB TTAB-ADDRESS«, t00=0x0006, t01=0x010a}
0x0a86…0ab4 Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTWAT WAIT ACTIVATE INDICATOR «, t00=0x0006, t01=0x012c}
0x0ab4…0ad8 Head {h00=0x0020, h01=0x0050, text=» ENTRY DWTTQ TERMINAL QUEUE «, t00=0x0006, t01=0x015a}
0x0ad8…0af6 Head {h00=0x001a, h01=0x0050, text=» ENTRY DWTWA WORK AREA«, t00=0x0006, t01=0x017e}
0x0af6…0b18 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTVOL VOLUME NAME «, t00=0x0007, t01=0x000c}
0x0b18…0b38 Head {h00=0x001c, h01=0x0050, text=» ENTRY ECBBA,ECBRL,ECBEL«, t00=0x0007, t01=0x002e}
0x0b38…0b52 Head {h00=0x0016, h01=0x0050, text=» ENTRY ECBRC,ECBCW«, t00=0x0007, t01=0x004e}
0x0b52…0b60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0068}
0x0b60…0b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0076}
0x0b6a…0b80 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x0080}
0x0b80…0b96 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0007, t01=0x0096}
0x0b96…0bac Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x00ac}
0x0bac…0bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c2}
0x0bb6…0bd6 Head {h00=0x001c, h01=0x0050, text=»* DISPLACEMENT IN TTAB«, t00=0x0007, t01=0x00cc}
0x0bd6…0be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ec}
0x0be0…0c00 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0007, t01=0x00f6}
0x0c00…0c1c Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:ST STATUS«, t00=0x0007, t01=0x0116}
0x0c1c…0c3a Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0007, t01=0x0132}
0x0c3a…0c5a Head {h00=0x001c, h01=0x0050, text=» EXTRN EXIT PROGRAM EXIT«, t00=0x0007, t01=0x0150}
0x0c5a…0c84 Head {h00=0x0026, h01=0x0050, text=» EXTRN BLOK:S START OF BLOCK POOL «, t00=0x0007, t01=0x0170}
0x0c84…0cac Head {h00=0x0024, h01=0x0050, text=» EXTRN BLOCKE BLOCK POOL LENGTH «, t00=0x0008, t01=0x000a}
0x0cac…0cba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0032}
0x0cba…0cc2 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0040}
0x0cc2…0ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0048}
0x0ccc…0cfe Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0008, t01=0x0052}
0x0cfe…0d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0084}
0x0d08…0d32 Head {h00=0x0026, h01=0x0050, text=»* DWT-DISPLACEMENT DECLARATIONS «, t00=0x0008, t01=0x008e}
0x0d32…0d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b8}
0x0d3c…0d6e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x00c2}
0x0d6e…0d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f4}
0x0d78…0d80 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00fe}
0x0d80…0da6 Head {h00=0x0022, h01=0x0050, text=»DWTCHP EQU 0 CHANNEL PARAMETER«, t00=0x0008, t01=0x0106}
0x0da6…0dc0 Head {h00=0x0016, h01=0x0050, text=»DWTST EQU 2 STSTUS«, t00=0x0008, t01=0x012c}
0x0dc0…0de0 Head {h00=0x001c, h01=0x0050, text=»DWTECB EQU 4 ECB-ADDRESS«, t00=0x0008, t01=0x0146}
0x0de0…0dfa Head {h00=0x0016, h01=0x0050, text=»DWTOR EQU 6 ORDER «, t00=0x0008, t01=0x0166}
0x0dfa…0e24 Head {h00=0x0026, h01=0x0050, text=»DWTADR EQU 8 ADDRESS BLOCK POINTER«, t00=0x0008, t01=0x0180}
0x0e24…0e46 Head {h00=0x001e, h01=0x0050, text=»DWTTAB EQU 10 TTAB-ADDRESS«, t00=0x0009, t01=0x001a}
0x0e46…0e74 Head {h00=0x002a, h01=0x0050, text=»DWTWAT EQU 12 WAIT/ACTIVATE INDICATOR «, t00=0x0009, t01=0x003c}
0x0e74…0e98 Head {h00=0x0020, h01=0x0050, text=»DWTTQ EQU 14 TERMINAL QUEUE «, t00=0x0009, t01=0x006a}
0x0e98…0eb6 Head {h00=0x001a, h01=0x0050, text=»DWTWA EQU 16 WORK AREA«, t00=0x0009, t01=0x008e}
0x0eb6…0ed8 Head {h00=0x001e, h01=0x0050, text=»DWTVOL EQU 44 VOLUME NAME «, t00=0x0009, t01=0x00ac}
0x0ed8…0ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ce}
0x0ee2…0f08 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0009, t01=0x00d8}
0x0f08…0f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fe}
0x0f12…0f30 Head {h00=0x001a, h01=0x0050, text=»* ECB-DISPLACEMENTS«, t00=0x0009, t01=0x0108}
0x0f30…0f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0126}
0x0f3a…0f60 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0009, t01=0x0130}
0x0f60…0f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0156}
0x0f6a…0f80 Head {h00=0x0012, h01=0x0050, text=»ECBBA EQU /02 «, t00=0x0009, t01=0x0160}
0x0f80…0f96 Head {h00=0x0012, h01=0x0050, text=»ECBRL EQU /04 «, t00=0x0009, t01=0x0176}
0x0f96…0fac Head {h00=0x0012, h01=0x0050, text=»ECBEL EQU /06 «, t00=0x0009, t01=0x018c}
0x0fac…0fc2 Head {h00=0x0012, h01=0x0050, text=»ECBRC EQU /08 «, t00=0x000a, t01=0x0012}
0x0fc2…0fd8 Head {h00=0x0012, h01=0x0050, text=»ECBCW EQU /0A «, t00=0x000a, t01=0x0028}
0x0fd8…0fe6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x003e}
0x0fe6…0ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004c}
0x0ff0…1008 Head {h00=0x0014, h01=0x0050, text=»* D I S Q U E «, t00=0x000a, t01=0x0056}
0x1008…1012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006e}
0x1012…1048 Head {h00=0x0032, h01=0x0050, text=»* POINTER TO FIRST PLACE IN DISPATCHER QUEUE«, t00=0x000a, t01=0x0078}
0x1048…1052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ae}
0x1052…1066 Head {h00=0x0010, h01=0x0050, text=»DISQUE EQU *«, t00=0x000a, t01=0x00b8}
0x1066…1076 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000a, t01=0x00cc}
0x1076…1080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00dc}
0x1080…1094 Head {h00=0x0010, h01=0x0050, text=»* P R U N «, t00=0x000a, t01=0x00e6}
0x1094…109e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00fa}
0x109e…10c8 Head {h00=0x0026, h01=0x0050, text=»* TTAB-ADDRESS OF RUNING PROGRAM«, t00=0x000a, t01=0x0104}
0x10c8…10d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012e}
0x10d2…10e4 Head {h00=0x000e, h01=0x0050, text=»PRUN EQU *«, t00=0x000a, t01=0x0138}
0x10e4…10f4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000a, t01=0x014a}
0x10f4…10fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015a}
0x10fe…1112 Head {h00=0x0010, h01=0x0050, text=»* S R U N «, t00=0x000a, t01=0x0164}
0x1112…111c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0178}
0x111c…1140 Head {h00=0x0020, h01=0x0050, text=»* RUNNING SEGMENT POINTER «, t00=0x000a, t01=0x0182}
0x1140…114a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0016}
0x114a…115c Head {h00=0x000e, h01=0x0050, text=»SRUN EQU *«, t00=0x000b, t01=0x0020}
0x115c…116c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000b, t01=0x0032}
0x116c…1176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0042}
0x1176…118c Head {h00=0x0012, h01=0x0050, text=»* G B Q U E «, t00=0x000b, t01=0x004c}
0x118c…1196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0062}
0x1196…11ce Head {h00=0x0034, h01=0x0050, text=»* POINTER TO FIRST TASK TABLE IN BUFFER QUEUE «, t00=0x000b, t01=0x006c}
0x11ce…11d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a4}
0x11d8…11ec Head {h00=0x0010, h01=0x0050, text=»GBQUE EQU * «, t00=0x000b, t01=0x00ae}
0x11ec…11fc Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000b, t01=0x00c2}
0x11fc…1216 Head {h00=0x0016, h01=0x0050, text=»FREQUE DATA BLOK:S«, t00=0x000b, t01=0x00d2}
0x1216…1230 Head {h00=0x0016, h01=0x0050, text=»BLOCKL DATA BLOCKE«, t00=0x000b, t01=0x00ec}
0x1230…123a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0106}
0x123a…1248 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0110}
0x1248…1252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011e}
0x1252…126a Head {h00=0x0014, h01=0x0050, text=»* D I S I O E «, t00=0x000b, t01=0x0128}
0x126a…1274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0140}
0x1274…12b2 Head {h00=0x003a, h01=0x0050, text=»* SET BIT 0 IN ECB RETURN CODE AND GO TO TDISP-ENTRY«, t00=0x000b, t01=0x014a}
0x12b2…12bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0188}
0x12bc…12d0 (12, 0, 400) Head {h00=0x0010, h01=0x0050, text=»DISIOE EQU *«, t00=0x000c, t01=0x0004}
0x12d0…12f6 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 SET RETURN CODE«, t00=0x000c, t01=0x0018}
0x12f6…1300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003e}
0x1300…1314 Head {h00=0x0010, h01=0x0050, text=»DISEND EQU *«, t00=0x000c, t01=0x0048}
0x1314…132a Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x000c, t01=0x005c}
0x132a…1338 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0072}
0x1338…1342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1342…134c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008a}
0x134c…1362 Head {h00=0x0012, h01=0x0050, text=»* T D I S P «, t00=0x000c, t01=0x0094}
0x1362…136c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00aa}
0x136c…1394 Head {h00=0x0024, h01=0x0050, text=»* THIS IS THE DISPATCHER ENTRY«, t00=0x000c, t01=0x00b4}
0x1394…139e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00dc}
0x139e…13b2 Head {h00=0x0010, h01=0x0050, text=»TDISP EQU * «, t00=0x000c, t01=0x00e6}
0x13b2…13be Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000c, t01=0x00fa}
0x13be…13d4 Head {h00=0x0012, h01=0x0050, text=» LD A5,DISQUE «, t00=0x000c, t01=0x0106}
0x13d4…13fa Head {h00=0x0022, h01=0x0050, text=» RF(Z) RETUR8 NO QUEUE,RETURN «, t00=0x000c, t01=0x011c}
0x13fa…1424 Head {h00=0x0026, h01=0x0050, text=» LD A1,18,A15 LOAD PSW FROM STACK «, t00=0x000c, t01=0x0142}
0x1424…1440 Head {h00=0x0018, h01=0x0050, text=» SRL A1,10 GET LEVEL«, t00=0x000c, t01=0x016c}
0x1440…1478 Head {h00=0x0034, h01=0x0050, text=» CC A1,TTB:ST+1,A5 AND COMPARE WITH QUEUED LEVEL«, t00=0x000c, t01=0x0188}
0x1478…14ac Head {h00=0x0030, h01=0x0050, text=» RF(NG) RETUR8 RETURN TO INTERRUPTED PROGRAM«, t00=0x000d, t01=0x0030}
0x14ac…14d4 Head {h00=0x0024, h01=0x0050, text=» STR A9,A15 SAVE A9-A14 ON STACK«, t00=0x000d, t01=0x0064}
0x14d4…14e8 Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x000d, t01=0x008c}
0x14e8…14fc Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x000d, t01=0x00a0}
0x14fc…1510 Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x000d, t01=0x00b4}
0x1510…1524 Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x000d, t01=0x00c8}
0x1524…1538 Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x000d, t01=0x00dc}
0x1538…154c Head {h00=0x0010, h01=0x0050, text=» LD A1,PRUN «, t00=0x000d, t01=0x00f0}
0x154c…1572 Head {h00=0x0022, h01=0x0050, text=» STR A1,A15 SAVE PRUN ON STACK«, t00=0x000d, t01=0x0104}
0x1572…1598 Head {h00=0x0022, h01=0x0050, text=» AND DISPATCH QUEUED PROGRAM«, t00=0x000d, t01=0x012a}
0x1598…15a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0150}
0x15a6…15b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015e}
0x15b0…15ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0168}
0x15ba…15f0 Head {h00=0x0032, h01=0x0050, text=»* DISPATCH PROGRAM FIRST IN DISPATCHER QUEUE«, t00=0x000d, t01=0x0172}
0x15f0…15fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0018}
0x15fa…1634 Head {h00=0x0036, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF PROGRAM TO BE DISPATCHED «, t00=0x000e, t01=0x0022}
0x1634…163e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005c}
0x163e…1652 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x000e, t01=0x0066}
0x1652…1686 Head {h00=0x0030, h01=0x0050, text=» LDR* A1,A5 REMOVE JOB FROM DISPATCHER QUEUE«, t00=0x000e, t01=0x007a}
0x1686…169c Head {h00=0x0012, h01=0x0050, text=» ST A1,DISQUE «, t00=0x000e, t01=0x00ae}
0x169c…16ca Head {h00=0x002a, h01=0x0050, text=» LD A1,TTB:SA,A5 LOAD DISPATCH ADDRESS«, t00=0x000e, t01=0x00c4}
0x16ca…16f0 Head {h00=0x0022, h01=0x0050, text=» LD A2,TTB:ST+1,A5 LOAD LEVEL «, t00=0x000e, t01=0x00f2}
0x16f0…1702 Head {h00=0x000e, h01=0x0050, text=» SLL A2,10«, t00=0x000e, t01=0x0118}
0x1702…1726 Head {h00=0x0020, h01=0x0050, text=» CWK A2,/C000 MONITOR JOB ? «, t00=0x000e, t01=0x012a}
0x1726…1740 Head {h00=0x0016, h01=0x0050, text=» RF(E) DIS200 YES «, t00=0x000e, t01=0x014e}
0x1740…176a Head {h00=0x0026, h01=0x0050, text=» STR A1,A15 STORE DISPATCH ADDRESS«, t00=0x000e, t01=0x0168}
0x176a…1790 (15, 0, 398) Head {h00=0x0022, h01=0x0050, text=» STR A2,A15 AND LEVEL ON STACK«, t00=0x000f, t01=0x0004}
0x1790…17a2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x000f, t01=0x002a}
0x17a2…17d4 Head {h00=0x002e, h01=0x0050, text=» ADK A3,14 SET ADDRESS TO A1 IN SAVE AREA «, t00=0x000f, t01=0x003c}
0x17d4…17f2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,14 SET COUNTER«, t00=0x000f, t01=0x006e}
0x17f2…1822 Head {h00=0x002c, h01=0x0050, text=»DIS110 LDR* A2,A3 SET UP A1-A14 ON STACK«, t00=0x000f, t01=0x008c}
0x1822…1836 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x000f, t01=0x00bc}
0x1836…1848 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x000f, t01=0x00d0}
0x1848…185a Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000f, t01=0x00e2}
0x185a…1870 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIS110«, t00=0x000f, t01=0x00f4}
0x1870…18ae Head {h00=0x003a, h01=0x0050, text=»DIS120 ST A5,PRUN SET TABB-ADDRES FOR DISPATCHED PROG.«, t00=0x000f, t01=0x010a}
0x18ae…18e0 Head {h00=0x002e, h01=0x0050, text=» START QUEUED PROGRAM (A1-A14 ON STACK) «, t00=0x000f, t01=0x0148}
0x18e0…18ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x017a}
0x18ee…18f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0188}
0x18f8…1902 (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x1902…1918 Head {h00=0x0012, h01=0x0050, text=»* R E T U R «, t00=0x0010, t01=0x000e}
0x1918…1922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0024}
0x1922…1966 Head {h00=0x0040, h01=0x0050, text=»* ENTRYPOINTS RETU14-RETUR1 :RELOAD REGISTERS FROM STACK «, t00=0x0010, t01=0x002e}
0x1966…1984 Head {h00=0x001a, h01=0x0050, text=»* AND RETURN VIA A15«, t00=0x0010, t01=0x0072}
0x1984…198e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0090}
0x198e…19aa Head {h00=0x0018, h01=0x0050, text=»RETU14 LDR* A14,A15 «, t00=0x0010, t01=0x009a}
0x19aa…19c6 Head {h00=0x0018, h01=0x0050, text=»RETU13 LDR* A13,A15 «, t00=0x0010, t01=0x00b6}
0x19c6…19e2 Head {h00=0x0018, h01=0x0050, text=»RETU12 LDR* A12,A15 «, t00=0x0010, t01=0x00d2}
0x19e2…19fe Head {h00=0x0018, h01=0x0050, text=»RETU11 LDR* A11,A15 «, t00=0x0010, t01=0x00ee}
0x19fe…1a1a Head {h00=0x0018, h01=0x0050, text=»RETU10 LDR* A10,A15 «, t00=0x0010, t01=0x010a}
0x1a1a…1a34 Head {h00=0x0016, h01=0x0050, text=»RETUR9 LDR* A9,A15«, t00=0x0010, t01=0x0126}
0x1a34…1a4e Head {h00=0x0016, h01=0x0050, text=»RETUR8 LDR* A8,A15«, t00=0x0010, t01=0x0140}
0x1a4e…1a68 Head {h00=0x0016, h01=0x0050, text=»RETUR7 LDR* A7,A15«, t00=0x0010, t01=0x015a}
0x1a68…1a82 Head {h00=0x0016, h01=0x0050, text=»RETUR6 LDR* A6,A15«, t00=0x0010, t01=0x0174}
0x1a82…1a9c Head {h00=0x0016, h01=0x0050, text=»RETUR5 LDR* A5,A15«, t00=0x0010, t01=0x018e}
0x1a9c…1ab6 Head {h00=0x0016, h01=0x0050, text=»RETUR4 LDR* A4,A15«, t00=0x0011, t01=0x0018}
0x1ab6…1ad0 Head {h00=0x0016, h01=0x0050, text=»RETUR3 LDR* A3,A15«, t00=0x0011, t01=0x0032}
0x1ad0…1aea Head {h00=0x0016, h01=0x0050, text=»RETUR2 LDR* A2,A15«, t00=0x0011, t01=0x004c}
0x1aea…1afc Head {h00=0x000e, h01=0x0050, text=» RF RETUR1«, t00=0x0011, t01=0x0066}
0x1afc…1b16 Head {h00=0x0016, h01=0x0050, text=»RTNA15 STR A1,A15 «, t00=0x0011, t01=0x0078}
0x1b16…1b36 Head {h00=0x001c, h01=0x0050, text=»RETUR1 LDK A1,/40 BIT 9 «, t00=0x0011, t01=0x0092}
0x1b36…1b68 Head {h00=0x002e, h01=0x0050, text=» ORS A1,4,A15 SET PSW IN A15 STACK TO ENB «, t00=0x0011, t01=0x00b2}
0x1b68…1b7c Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0011, t01=0x00e4}
0x1b7c…1b8c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0011, t01=0x00f8}
0x1b8c…1b9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0108}
0x1b9a…1ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0116}
0x1ba4…1bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0120}
0x1bae…1bd2 Head {h00=0x0020, h01=0x0050, text=»* MONITOR JOB DISPATCHING «, t00=0x0011, t01=0x012a}
0x1bd2…1bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014e}
0x1bdc…1bf0 Head {h00=0x0010, h01=0x0050, text=»DIS200 EQU *«, t00=0x0011, t01=0x0158}
0x1bf0…1c34 Head {h00=0x0040, h01=0x0050, text=» LDKL A3,LKMDIS STORE ADDRESS TO BE DISPATCHED AFTER MONITOR«, t00=0x0011, t01=0x016c}
0x1c34…1c54 Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 JOB ON STACK«, t00=0x0012, t01=0x0020}
0x1c54…1c80 Head {h00=0x0028, h01=0x0050, text=» STR A2,A15 STORE LEVEL 48 ON STACK «, t00=0x0012, t01=0x0040}
0x1c80…1caa Head {h00=0x0026, h01=0x0050, text=» SUKL A15,16 ADJUST STACK POINTER «, t00=0x0012, t01=0x006c}
0x1caa…1ce8 Head {h00=0x003a, h01=0x0050, text=» STR A1,A15 SET MONITOR JOB DISPATCH ADDRESS ON STACK «, t00=0x0012, t01=0x0096}
0x1ce8…1d06 Head {h00=0x001a, h01=0x0050, text=» STR A2,A15 SET LEVEL «, t00=0x0012, t01=0x00d4}
0x1d06…1d36 Head {h00=0x002c, h01=0x0050, text=» LD A1,TTB:SA+2,A5 LOAD PARAMETER IN A1 «, t00=0x0012, t01=0x00f2}
0x1d36…1d5a Head {h00=0x0020, h01=0x0050, text=» STR A1,A15 AND SET ON STACK«, t00=0x0012, t01=0x0122}
0x1d5a…1d8a Head {h00=0x002c, h01=0x0050, text=» CF A15,EXIT DO EXIT ON MONITOR JOB AND «, t00=0x0012, t01=0x0146}
0x1d8a…1daa Head {h00=0x001c, h01=0x0050, text=» RB RETUR1 THEN START IT«, t00=0x0012, t01=0x0176}
0x1daa…1db8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0008}
0x1db8…1dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0016}
0x1dc2…1dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0020}
0x1dcc…1de4 Head {h00=0x0014, h01=0x0050, text=»* L K M D I S «, t00=0x0013, t01=0x002a}
0x1de4…1dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0042}
0x1dee…1e28 Head {h00=0x0036, h01=0x0050, text=»* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST«, t00=0x0013, t01=0x004c}
0x1e28…1e4a Head {h00=0x001e, h01=0x0050, text=»* NO REGISTERS ON STACK «, t00=0x0013, t01=0x0086}
0x1e4a…1e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e54…1e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b2}
0x1e5e…1e72 Head {h00=0x0010, h01=0x0050, text=»LKMDIS EQU *«, t00=0x0013, t01=0x00bc}
0x1e72…1e7e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0013, t01=0x00d0}
0x1e7e…1e94 Head {h00=0x0012, h01=0x0050, text=» LD A5,DISQUE «, t00=0x0013, t01=0x00dc}
0x1e94…1eba Head {h00=0x0022, h01=0x0050, text=» RF(Z) DIS010 NO QUEUE,RETURN «, t00=0x0013, t01=0x00f2}
0x1eba…1ee4 Head {h00=0x0026, h01=0x0050, text=» LD A1,32,A15 LOAD PSW FROM STACK «, t00=0x0013, t01=0x0118}
0x1ee4…1f00 Head {h00=0x0018, h01=0x0050, text=» SRL A1,10 GET LEVEL«, t00=0x0013, t01=0x0142}
0x1f00…1f38 Head {h00=0x0034, h01=0x0050, text=» CC A1,TTB:ST+1,A5 AND COMPARE WITH QUEUED LEVEL«, t00=0x0013, t01=0x015e}
0x1f38…1f62 Head {h00=0x0026, h01=0x0050, text=» RB(G) DIS100 DISPATCH FROM QUEUE «, t00=0x0014, t01=0x0008}
0x1f62…1f7c Head {h00=0x0016, h01=0x0050, text=»DIS010 LDR* A5,A15«, t00=0x0014, t01=0x0032}
0x1f7c…1fac Head {h00=0x002c, h01=0x0050, text=» RB DIS120 RETURN TO INTERRUPTED PROGRAM«, t00=0x0014, t01=0x004c}
0x1fac…1fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007c}
0x1fb6…1fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0086}
0x1fc0…1fcc Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0014, t01=0x0090}
0x1fcc…1fd0 Head {h00=0x4004, h01=0x0000}
0x1fd0…1fd4 00 14 00 9c ┆ ┆
0x1fd4…1fdc (21, 1, 8) 20 04 00 00 00 15 00 04 ┆ ┆
0x1fdc…202c (22, 0, 400) 00 12 00 50 5c 43 4d 5c 42 55 46 44 4d 49 2c 41 33 20 00 06 00 04 00 12 00 50 5c 43 4d 5c 42 55 46 53 4e 52 2c 41 33 20 00 06 00 1a 00 10 00 50 5c 43 4d 5c 42 55 46 4f 52 2c 41 33 00 06 00 30 00 12 00 50 5c 43 57 5c 41 33 2c 43 55 52 42 55 ┆ P CM BUFDMI,A3 P CM BUFSNR,A3 P CM BUFOR,A3 0 P CW A3,CURBU┆
0x202c…207c 46 20 00 06 00 44 00 12 00 50 5c 52 42 28 4e 45 29 5c 44 4d 49 4e 35 30 00 06 00 5a 00 06 00 50 2a 20 00 06 00 70 00 38 00 50 2a 20 20 20 43 4c 45 41 52 20 55 53 45 20 42 49 54 20 41 4e 44 20 51 55 45 55 45 20 41 4e 43 48 4f 52 20 41 44 44 ┆F D P RB(NE) DMIN50 Z P* p 8 P* CLEAR USE BIT AND QUEUE ANCHOR ADD┆
0x207c…20cc 52 45 53 53 20 49 4e 20 54 41 53 42 4c 4b 00 06 00 7a 00 0e 00 50 5c 43 4d 5c 54 41 53 42 4c 4b 00 06 00 b6 00 0e 00 50 5c 43 4d 5c 54 41 53 51 55 45 00 06 00 c8 00 06 00 50 2a 20 00 06 00 da 00 2c 00 50 2a 20 20 20 43 4c 45 41 52 20 44 4d ┆RESS IN TASBLK z P CM TASBLK P CM TASQUE P* , P* CLEAR DM┆
0x20cc…211c 20 46 49 4c 45 20 43 4f 44 45 20 45 4e 54 52 49 45 53 20 49 4e 20 43 44 3a 54 41 42 00 06 00 e4 00 06 00 50 2a 20 00 06 01 14 00 12 00 50 5c 4c 44 5c 41 32 2c 43 44 3a 54 41 42 20 00 06 01 1e 00 14 00 50 44 4d 49 4e 36 30 5c 53 55 4b 5c 41 ┆ FILE CODE ENTRIES IN CD:TAB P* P LD A2,CD:TAB PDMIN60 SUK A┆
0x211c…216c 32 2c 34 20 00 06 01 34 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 00 06 01 4c 00 14 00 50 5c 41 44 4b 4c 5c 41 33 2c 43 44 3a 54 41 42 20 00 06 01 5e 00 12 00 50 5c 43 57 4b 5c 41 33 2c 43 44 54 41 42 46 00 06 01 76 00 12 00 50 5c 52 46 28 ┆2,4 4 P LDR A3,A2 L P ADKL A3,CD:TAB ^ P CWK A3,CDTABF v P RF(┆
0x216c…21bc (23, 2, 194) 4c 29 5c 44 4d 49 4e 45 58 20 00 06 01 8c 00 1c 00 50 5c 43 4d 5c 43 44 3a 54 41 42 2c 41 32 5c 46 49 4c 45 20 43 4f 44 45 20 00 07 00 12 00 20 00 50 5c 43 4d 5c 43 44 3a 54 41 42 2b 32 2c 41 32 5c 46 44 42 20 41 44 44 52 45 53 53 20 00 07 ┆L) DMINEX P CM CD:TAB,A2 FILE CODE P CM CD:TAB+2,A2 FDB ADDRESS ┆
0x21bc…220c 00 32 00 0e 00 50 5c 52 42 5c 44 4d 49 4e 36 30 00 07 00 56 00 06 00 50 2a 20 00 07 00 68 00 06 00 50 2a 20 00 07 00 72 00 10 00 50 44 4d 49 4e 45 58 5c 45 51 55 5c 2a 00 07 00 7c 00 1e 00 50 5c 41 42 4c 5c 52 54 4e 41 31 35 5c 52 45 54 55 ┆ 2 P RB DMIN60 V P* h P* r PDMINEX EQU * | P ABL RTNA15 RETU┆
0x220c…222e 52 4e 20 41 4e 44 20 45 4e 42 00 07 00 90 00 08 00 50 5c 45 4e 44 00 07 00 b2 40 04 00 00 00 07 00 be ┆RN AND ENB P END @ ┆
0x222e…2236 (24, 1, 8) 20 04 00 00 00 08 00 04 ┆ ┆
0x2236…2286 (25, 0, 400) 00 26 00 50 5c 49 44 45 4e 54 20 43 44 3a 54 41 42 20 5c 52 45 4c 20 37 2e 32 20 20 31 39 37 37 2d 30 36 2d 32 30 00 00 00 04 00 06 00 50 2a 20 00 00 00 2e 00 1c 00 50 2a 20 20 20 43 4f 4d 4d 4f 4e 20 44 45 56 49 43 45 20 54 41 42 4c 45 20 ┆ & P IDENT CD:TAB REL 7.2 1977-06-20 P* . P* COMMON DEVICE TABLE ┆
0x2286…22d6 00 00 00 38 00 06 00 50 2a 20 00 00 00 58 00 30 00 50 2a 20 20 20 54 48 49 53 20 54 41 42 4c 45 20 48 4f 4c 44 53 20 44 45 56 49 43 45 53 20 54 48 41 54 20 41 52 45 20 43 4f 4d 4d 4f 4e 00 00 00 62 00 14 00 50 2a 20 20 20 54 4f 20 41 4c 4c ┆ 8 P* X 0 P* THIS TABLE HOLDS DEVICES THAT ARE COMMON b P* TO ALL┆
0x22d6…2326 20 54 41 53 4b 53 00 00 00 96 00 06 00 50 2a 20 00 00 00 ae 00 12 00 50 5c 45 4e 54 52 59 5c 43 44 3a 54 41 42 20 00 00 00 b8 00 12 00 50 5c 45 4e 54 52 59 5c 43 44 54 41 42 46 20 00 00 00 ce 00 12 00 50 5c 45 58 54 52 4e 5c 44 57 44 55 30 ┆ TASKS P* P ENTRY CD:TAB P ENTRY CDTABF P EXTRN DWDU0┆
0x2326…2376 31 20 00 00 00 e4 00 06 00 50 2a 2a 00 00 00 fa 00 1e 00 50 5c 45 58 54 52 4e 5c 44 57 46 44 30 31 5c 4a 4f 53 20 37 37 2d 30 35 2d 31 30 00 00 01 04 00 06 00 50 2a 20 00 00 01 26 00 06 00 50 2a 20 00 00 01 30 00 06 00 50 2a 20 00 00 01 3a ┆1 P** P EXTRN DWFD01 JOS 77-05-10 P* & P* 0 P* :┆
0x2376…23c6 00 06 00 50 2a 20 00 00 01 44 00 06 00 50 2a 20 00 00 01 4e 00 06 00 50 2a 20 00 00 01 58 00 06 00 50 2a 20 00 00 01 62 00 06 00 50 2a 20 00 00 01 6c 00 06 00 50 2a 20 00 00 01 76 00 18 00 50 43 44 3a 54 41 42 5c 44 41 54 41 5c 43 44 54 41 ┆ P* D P* N P* X P* b P* l P* v PCD:TAB DATA CDTA┆
0x23c6…2416 (26, 0, 398) 42 45 2d 2a 00 00 01 80 00 10 00 50 5c 44 41 54 41 5c 2f 30 30 46 30 20 00 01 00 0c 00 10 00 50 5c 44 41 54 41 5c 44 57 44 55 30 31 00 01 00 20 00 10 00 50 5c 44 41 54 41 5c 2f 30 31 46 31 20 00 01 00 34 00 10 00 50 5c 44 41 54 41 5c 44 57 ┆BE-* P DATA /00F0 P DATA DWDU01 P DATA /01F1 4 P DATA DW┆
0x2416…2466 44 55 30 31 00 01 00 48 00 14 00 50 5c 44 41 54 41 5c 2f 30 30 46 38 5c 4a 4f 53 20 00 01 00 5c 00 14 00 50 5c 44 41 54 41 5c 44 57 46 44 30 31 5c 4a 4f 53 00 01 00 74 00 14 00 50 5c 44 41 54 41 5c 2f 30 31 46 39 5c 4a 4f 53 20 00 01 00 8c ┆DU01 H P DATA /00F8 JOS P DATA DWFD01 JOS t P DATA /01F9 JOS ┆
0x2466…24b6 00 10 00 50 5c 44 41 54 41 5c 44 57 46 44 30 31 00 01 00 a4 00 14 00 50 5c 44 41 54 41 5c 2f 30 32 46 41 5c 4a 4f 53 20 00 01 00 b8 00 10 00 50 5c 44 41 54 41 5c 44 57 46 44 30 31 00 01 00 d0 00 10 00 50 5c 44 41 54 41 5c 2f 30 33 46 42 5c ┆ P DATA DWFD01 P DATA /02FA JOS P DATA DWFD01 P DATA /03FB ┆
0x24b6…2506 00 01 00 e4 00 10 00 50 5c 44 41 54 41 5c 44 57 46 44 30 31 00 01 00 f8 00 10 00 50 43 44 54 41 42 46 5c 45 51 55 5c 2a 00 01 01 0c 00 1a 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 01 01 20 00 12 00 50 5c 44 ┆ P DATA DWFD01 PCDTABF EQU * P DATA 0,0,0,0,0,0,0,0 P D┆
0x2506…2554 41 54 41 5c 30 2c 30 2c 30 2c 30 20 00 01 01 3e 00 06 00 50 2a 20 00 01 01 54 00 10 00 50 43 44 54 41 42 45 5c 45 51 55 5c 2a 00 01 01 5e 00 06 00 50 2a 20 00 01 01 72 00 06 00 50 2a 20 00 01 01 7c 00 08 00 50 5c 45 4e 44 00 01 01 86 ┆ATA 0,0,0,0 > P* T PCDTABE EQU * ^ P* r P* | P END ┆
0x2554…255c (27, 2, 8) 40 04 00 00 00 02 00 04 ┆@ ┆
0x255c…2564 (28, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆