|
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: 14178 (0x3762)
Notes: pts_type(SC)
Names: »TDISPO.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/TDISPO.SC«
IDENT TDISPO 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 POINTER TO RUNNING SEGMENT IN LSBT ENTRY SACT POINTER TO ACTIVE SEGMENT ENTRY LRUNEW ENTRY LRUQUE POINTER TO FIRST SEGMENT IN LRU-STACK ENTRY LDPEND LOAD PENDING.LDTASK IN PAUSE 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 UPDLRI SUBROUTINE TO UPDATE LRUQUEUE 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 EJECT * ************* * EXTERNALS * ************* * * DISPLACEMENT IN TTAB * EXTRN TTB:SS START OF SEGMENT EXTRN TTB:SP SGMENT POINTER 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 EXTRN ACTOT EXTRN QTJOB EXTRN GETBLK EXTRN LDTASK EXTRN TTABLD * ************* * CONSTANTS * ************* * * CVTLSB EQU /9A START ADDRESS OF LOAD SEGM BLK FIRST WORD CONTAINS LSBT-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 REQUEST TTAB ADDRESS DWTVOL EQU 44 VOLUME NAME EJECT * ****************************** * * 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 * POINTER TO RUNNING SEGMENT IN LSB-TAB * SRUN EQU * DATA 0 * * * POINTER TO ACTIVE SEGMENT * SACT 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 * * L R U Q U E * POINTER TO FIRST SEGMENT IN 'LEAST RECENTLY USED' PARTITION LINK * LRUQUE EQU * DATA 0 * * L D P E N D * SEGMENT LOAD PENDING. LDTASK IN 'PAUSE' LDPEND DATA 0 * 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 A1,18,A15 LOAD PSW FROM STACK SRL A1,10 GET LEVEL LD A5,DISQUE ABL(Z) SEGDIS NO QUEUE,RETURN THROUGH SEGDIS CC A1,TTB:ST+1,A5 AND COMPARE WITH QUEUED LEVEL ABL(NG) SEGDIS RETURN TO INTERRUPTED PROGRM THRU SEGDIS 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 LD A1,SRUN SAVE SRUN ON STACK STR A1,A15 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 A2,TTB:SA,A5 LOAD DISPATCH ADDRESS LD A1,TTB:ST+1,A5 LOAD LEVEL SLL A1,10 CWK A1,/C000 MONITOR JOB ? RF(E) DIS200 YES LD A6,TTB:SP,A5 SEGMENT 0? RF(Z) DIS105 YES PUT JOB ON STACK LDR* A4,A6 SEGMENT LOADED? ABL(N) SEGLD NO LOAD SEGMENT CF A15,UPDLRU UPDATE LRU QUEUE EJECT DIS105 EQU * STR A2,A15 STORE DISPATCH ADDRESS STR A1,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. ST A6,SRUN SET POINTER TO LSBT FOR RUNNING SEGMENT 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 RETUR1 RF DIS130 RTNA15 STR A1,A15 DIS130 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 A1,A15 STORE LEVEL 48 ON STACK SUKL A15,16 ADJUST STACK POINTER STR A2,A15 SET MONITOR JOB DISPATCH ADDRESS ON STACK STR A1,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 A1,34,A15 LOAD PSW FROM STACK SRL A1,10 GET LEVEL LD A5,DISQUE RF(Z) DIS010 NO QUEUE,RETURN CC A1,TTB:ST+1,A5 AND COMPARE WITH QUEUED LEVEL RB(G) DIS100 DISPATCH FROM QUEUE DIS010 EQU * LDR* A6,A15 SRUN FROM STACK LDR* A5,A15 PRUN FROM STACK LDR* A14,A15 LDR* A13,A15 LDR* A12,A15 LDR* A11,A15 LDR* A10,A15 LDR* A9,A15 ST A5,PRUN ST A6,SRUN EJECT * * SEGDIS * LEVEL IN REG A1 SHIFTED RIGHT * SEGDIS CWK A1,49 INTERRUPT ROUTINE? RB(NG) RETUR8 YES RETURN LD A6,SRUN ROOT-SEGMENT? RB(Z) RETUR8 YES RETURN LD A5,PRUN LDR* A2,A6 SEGMENT LOADED? RF(N) SEGTAB JMP IF NOT AND LOAD SEGMENT LD A2,20,A15 DISP ADRESS: EJECT * * UPDATE LRUSTACK AND TASK TABLE * CF A15,UPDLRU ST A2,20,A15 STORE NEW DISPATCH ADDRESS RB RETUR8 EJECT * * SAVE INTO TTAB * SEGTAB EQU * SAVE STACK-DATA IN TTAB ST A14,TTB:SA+28,A5 SAVE A9-A14 IN TTAB ST A13,TTB:SA+26,A5 ST A12,TTB:SA+24,A5 ST A11,TTB:SA+22,A5 ST A10,TTB:SA+20,A5 ST A9,TTB:SA+18,A5 LDR A4,A5 SAVE A1-A8 FROM STACK INTO TTAB ADK A4,28 LDK A3,8 SEGNXT LDR* A1,A15 STR A1,A4 SUK A4,2 SUK A3,1 RB(NZ) SEGNXT LDR* A1,A15 REMOVE PSW FROM STACK LDR* A2,A15 SAVE PROGRAM COUNTER ST A2,TTB:SA,A5 EJECT * * LOAD SEGMENT * * * GET PARAMETER BLOCK AND FILL IN * SEGMNT POINTER,DISPL AND TTAB-ADDRESS * SEGLD EQU * LDR A3,A6 LOAD SEGMENT POINTER IN LSBT SU A2,TTB:SS,A5 RELATIVE ADDRESS NGR A2,A2 SET NEGATIVE DISPLACEMENT LDR A1,A5 LOAD TTAB-ADDRESS CF A15,GETBLK GET MONITOR BLOCK * * ACTIVATE LOAD TASK AND PUT IT IN THE DISPATCHER QUEUE * LDR A1,A4 LOAD PARAMETER LDKL A2,LDTASK LOAD DISPATCH ADDRESS LDKL A5,TTABLD LDK A3,0 CF A15,ACTOT ACTIVATE LOAD TASK * * EXIT TO TERMINAL DISPATCHER * LD200 EQU * RB LKMDIS EJECT * * UPDATE TASK TABLE * UPDLRU EQU * LD A7,2,A6 NEW LOAD ADDRESS LD A4,TTB:SS,A5 OLD SEG ADDRESS ST A7,TTB:SS,A5 SAVE NEW ADDRESS SUR A7,A4 ADRESS DIFFERENCE ADR A2,A7 NEW DISPATCH ADDRESS ST A2,TTB:SA,A5 STORE DISP ADDRESS ST A6,TTB:SP,A5 SEGMENT POINTER * * UPDATE LRU-STACK * UPDLRI EQU * LD A3,SACT RF(E) LRUNDA CWR A3,A6 SAME AS ACTIVE SEGMENT? RF(E) LRUNDA YES CF A15,LRUNEW NO LRUNDA EQU * LDKL A7,/2000 QUEUE INDICATOR ST A6,SACT SET ACTIVE POINTER LDR A4,A7 ANR* A7,A6 RF(E) LRUEND XRRS A4,A6 SET ACTIVE LD A7,8,A6 FIRST IN QUEUE LD A3,10,A6 LAST IN QUEUE ? RF(Z) LRULST ST A7,-2,A3 UPDATE PRECEDENT OF SUCCEDENT LRULST LDR A7,A7 RF(NZ) LRU100 ST A3,LRUQUE RF LRUMOD LRU100 ST A3,2,A7 LRUMOD CM 8,A6 CM 10,A6 RF LRUEND LRUNEW EQU * STR A7,A15 LDR A7,A3 LD A4,LRUQUE UPDATE FIRST IN QUEUE RF(NZ) LRUFOR LD A3,LDPEND LOAD TASK PENDING? RF(Z) NOPEND JMP IF NOT CM LDPEND CLEAR PENDING INDICATOR LDR A3,A5 SAVE A5 LDKL A5,TTABLD CF A15,QTJOB RESTART LOAD TASK LDR A5,A3 RESTORE A5 NOPEND EQU * ADK A7,10 RF LRUUPD LRUFOR ADK A7,8 ST A7,-2,A4 UPDATE PRECEDENT OF SECOND IN QUEUE CMR A7 CLEAR PRECEDENT POINTER ADK A7,2 STR A4,A7 SUCCEDENT POINTER LRUUPD ST A7,LRUQUE LDKL A3,/2000 ORS A3,-10,A7 LDR* A7,A15 LRUEND ADKL A15,2 LDR* P,A15 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TDISPO REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0082 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x004c}
0x0082…008c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…00b4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0090}
0x00b4…00be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00e6 Head {h00=0x0024, h01=0x0050, text=»* TDISP = TERMINAL DISPATCHER «, t00=0x0000, t01=0x00c2}
0x00e6…00f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ea}
0x00f0…00fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f4}
0x00fa…0104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…010e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0108}
0x010e…0118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0112}
0x0118…0122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…015c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0126}
0x015c…0166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0160}
0x0166…0170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016a}
0x0170…017a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0174}
0x017a…01ae Head {h00=0x0030, h01=0x0050, text=»* THIS IS THE TERMINAL DISPATCHER IN TOSS.«, t00=0x0000, t01=0x017e}
0x01ae…01f0 Head {h00=0x003e, h01=0x0050, text=»* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. «, t00=0x0001, t01=0x0022}
0x01f0…0232 Head {h00=0x003e, h01=0x0050, text=»* THE DISPATCHER CHECKS IF THERE IS A JOB IN DISPATCHER-«, t00=0x0001, t01=0x0064}
0x0232…0272 Head {h00=0x003c, h01=0x0050, text=»* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM.«, t00=0x0001, t01=0x00a6}
0x0272…02b2 Head {h00=0x003c, h01=0x0050, text=»* - IF SO THE QUEUED PROGRAM IS STARTED AND REGISTERS «, t00=0x0001, t01=0x00e6}
0x02b2…02f6 Head {h00=0x0040, h01=0x0050, text=»* A1-A14 OF INTERRUPTED PROGRAM ARE SAVED ON A15 STACK. «, t00=0x0001, t01=0x0126}
0x02f6…033e Head {h00=0x0044, h01=0x0050, text=»* - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETUR8. «, t00=0x0001, t01=0x016a}
0x033e…0348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0022}
0x0348…038c Head {h00=0x0040, h01=0x0050, text=»* AN ENTRYPOINT 'LKMDIS' IS ALSO INCLUDED IN THIS MODULE. «, t00=0x0002, t01=0x002c}
0x038c…03d4 Head {h00=0x0044, h01=0x0050, text=»* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST.(NO REGISTERS«, t00=0x0002, t01=0x0070}
0x03d4…0420 Head {h00=0x0048, h01=0x0050, text=»* ON STACK) A CHECK IS MADE IF THERE IS A JOB IN DISPATCHER QUEUE «, t00=0x0002, t01=0x00b8}
0x0420…045a Head {h00=0x0036, h01=0x0050, text=»* WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM.«, t00=0x0002, t01=0x0104}
0x045a…0480 Head {h00=0x0022, h01=0x0050, text=»* - IF QUEUED JOB IS STARTED«, t00=0x0002, t01=0x013e}
0x0480…04c8 Head {h00=0x0044, h01=0x0050, text=»* - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETU14. «, t00=0x0002, t01=0x0164}
0x04c8…04d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001c}
0x04d2…04dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0026}
0x04dc…051e Head {h00=0x003e, h01=0x0050, text=»* AN OPTIONALY ENTRYPOINT 'DISIOE' IS ALSO PROVIDED FOR «, t00=0x0003, t01=0x0030}
0x051e…0560 Head {h00=0x003e, h01=0x0050, text=»* ERRORS IN I/O DRIVERS. BIT 0 IS SET IN A1 AND THE SUB-«, t00=0x0003, t01=0x0072}
0x0560…05a0 Head {h00=0x003c, h01=0x0050, text=»* ROUTINE 'TENDIO' IS CALLED BEFORE THE 'TDISP'-ENTRY «, t00=0x0003, t01=0x00b4}
0x05a0…05b8 Head {h00=0x0014, h01=0x0050, text=»* IS ENTERED. «, t00=0x0003, t01=0x00f4}
0x05b8…05fc Head {h00=0x0040, h01=0x0050, text=»* ENTRY 'DISEND' ONLY CALLS 'TENDIO' BEFORE 'TDISP'-ENTRY.«, t00=0x0003, t01=0x010c}
0x05fc…060a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0150}
0x060a…0614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015e}
0x0614…0628 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0168}
0x0628…063c Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x017c}
0x063c…0650 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0190}
0x0650…065a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x065a…0680 Head {h00=0x0022, h01=0x0050, text=» ENTRY TDISP DISPATCHER ENTRY «, t00=0x0004, t01=0x001e}
0x0680…06aa Head {h00=0x0026, h01=0x0050, text=» ENTRY LKMDIS DISPATCHED AFTER LKM«, t00=0x0004, t01=0x0044}
0x06aa…06d0 Head {h00=0x0022, h01=0x0050, text=» ENTRY DISIOE I/O ERROR ENTRY «, t00=0x0004, t01=0x006e}
0x06d0…06fa Head {h00=0x0026, h01=0x0050, text=» ENTRY DISEND END I/O AND DISPATCH«, t00=0x0004, t01=0x0094}
0x06fa…073a Head {h00=0x003c, h01=0x0050, text=» ENTRY DISQUE POINTER TO FIRST PLACE IN DISPATCHER-QUEUE«, t00=0x0004, t01=0x00be}
0x073a…0774 Head {h00=0x0036, h01=0x0050, text=» ENTRY GBQUE POINTER TO FIRST TTAB IN BUFFER QUEUE«, t00=0x0004, t01=0x00fe}
0x0774…07a6 Head {h00=0x002e, h01=0x0050, text=» ENTRY PRUN TTAB-ADDRESS OF RUNING PROGRAM«, t00=0x0004, t01=0x0138}
0x07a6…07dc Head {h00=0x0032, h01=0x0050, text=» ENTRY SRUN POINTER TO RUNNING SEGMENT IN LSBT«, t00=0x0004, t01=0x016a}
0x07dc…080a Head {h00=0x002a, h01=0x0050, text=» ENTRY SACT POINTER TO ACTIVE SEGMENT «, t00=0x0005, t01=0x0010}
0x080a…0820 Head {h00=0x0012, h01=0x0050, text=» ENTRY LRUNEW «, t00=0x0005, t01=0x003e}
0x0820…085c Head {h00=0x0038, h01=0x0050, text=» ENTRY LRUQUE POINTER TO FIRST SEGMENT IN LRU-STACK «, t00=0x0005, t01=0x0054}
0x085c…088e Head {h00=0x002e, h01=0x0050, text=» ENTRY LDPEND LOAD PENDING.LDTASK IN PAUSE«, t00=0x0005, t01=0x0090}
0x088e…08ca Head {h00=0x0038, h01=0x0050, text=» ENTRY RETU14 RESTORE REGISTER A14-A1 VIA A15 STACK «, t00=0x0005, t01=0x00c2}
0x08ca…08e0 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU13 «, t00=0x0005, t01=0x00fe}
0x08e0…08f6 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU12 «, t00=0x0005, t01=0x0114}
0x08f6…090c Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU11 «, t00=0x0005, t01=0x012a}
0x090c…0922 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU10 «, t00=0x0005, t01=0x0140}
0x0922…0938 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR9 «, t00=0x0005, t01=0x0156}
0x0938…094e Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR8 «, t00=0x0005, t01=0x016c}
0x094e…0964 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR7 «, t00=0x0005, t01=0x0182}
0x0964…097a Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR6 «, t00=0x0006, t01=0x0008}
0x097a…0990 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR5 «, t00=0x0006, t01=0x001e}
0x0990…09a6 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR4 «, t00=0x0006, t01=0x0034}
0x09a6…09bc Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR3 «, t00=0x0006, t01=0x004a}
0x09bc…09d2 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR2 «, t00=0x0006, t01=0x0060}
0x09d2…09e8 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR1 «, t00=0x0006, t01=0x0076}
0x09e8…09fe Head {h00=0x0012, h01=0x0050, text=» ENTRY RTNA15 «, t00=0x0006, t01=0x008c}
0x09fe…0a32 Head {h00=0x0030, h01=0x0050, text=» ENTRY UPDLRI SUBROUTINE TO UPDATE LRUQUEUE «, t00=0x0006, t01=0x00a2}
0x0a32…0a48 Head {h00=0x0012, h01=0x0050, text=» ENTRY FREQUE «, t00=0x0006, t01=0x00d6}
0x0a48…0a5e Head {h00=0x0012, h01=0x0050, text=» ENTRY BLOCKL «, t00=0x0006, t01=0x00ec}
0x0a5e…0a6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0102}
0x0a6c…0a94 Head {h00=0x0024, h01=0x0050, text=» ENTRY DWTCHP CHANNEL PARAMETER «, t00=0x0006, t01=0x0110}
0x0a94…0ab0 Head {h00=0x0018, h01=0x0050, text=» ENTRY DWTST STATUS «, t00=0x0006, t01=0x0138}
0x0ab0…0ad2 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTECB ECB ADDRESS «, t00=0x0006, t01=0x0154}
0x0ad2…0aec Head {h00=0x0016, h01=0x0050, text=» ENTRY DWTOR ORDER«, t00=0x0006, t01=0x0176}
0x0aec…0b1a Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTADR POINTER TO ADDRESS-BLOCK«, t00=0x0006, t01=0x0190}
0x0b1a…0b3c Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTTAB TTAB-ADDRESS«, t00=0x0007, t01=0x002e}
0x0b3c…0b6a Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTWAT WAIT ACTIVATE INDICATOR «, t00=0x0007, t01=0x0050}
0x0b6a…0b8e Head {h00=0x0020, h01=0x0050, text=» ENTRY DWTTQ TERMINAL QUEUE «, t00=0x0007, t01=0x007e}
0x0b8e…0bac Head {h00=0x001a, h01=0x0050, text=» ENTRY DWTWA WORK AREA«, t00=0x0007, t01=0x00a2}
0x0bac…0bda Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTTDM DM REQUEST TTAB ADDRESS «, t00=0x0007, t01=0x00c0}
0x0bda…0bfc Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTVOL VOLUME NAME «, t00=0x0007, t01=0x00ee}
0x0bfc…0c1c Head {h00=0x001c, h01=0x0050, text=» ENTRY ECBBA,ECBRL,ECBEL«, t00=0x0007, t01=0x0110}
0x0c1c…0c36 Head {h00=0x0016, h01=0x0050, text=» ENTRY ECBRC,ECBCW«, t00=0x0007, t01=0x0130}
0x0c36…0c44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x014a}
0x0c44…0c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0158}
0x0c4e…0c64 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x0162}
0x0c64…0c7a Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0007, t01=0x0178}
0x0c7a…0c90 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x018e}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0014}
0x0c9a…0cba Head {h00=0x001c, h01=0x0050, text=»* DISPLACEMENT IN TTAB«, t00=0x0008, t01=0x001e}
0x0cba…0cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cc4…0cea Head {h00=0x0022, h01=0x0050, text=» EXTRN TTB:SS START OF SEGMENT«, t00=0x0008, t01=0x0048}
0x0cea…0d0e Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SP SGMENT POINTER«, t00=0x0008, t01=0x006e}
0x0d0e…0d2e Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0008, t01=0x0092}
0x0d2e…0d4a Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:ST STATUS«, t00=0x0008, t01=0x00b2}
0x0d4a…0d68 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0008, t01=0x00ce}
0x0d68…0d88 Head {h00=0x001c, h01=0x0050, text=» EXTRN EXIT PROGRAM EXIT«, t00=0x0008, t01=0x00ec}
0x0d88…0db2 Head {h00=0x0026, h01=0x0050, text=» EXTRN BLOK:S START OF BLOCK POOL «, t00=0x0008, t01=0x010c}
0x0db2…0dda Head {h00=0x0024, h01=0x0050, text=» EXTRN BLOCKE BLOCK POOL LENGTH «, t00=0x0008, t01=0x0136}
0x0dda…0dee Head {h00=0x0010, h01=0x0050, text=» EXTRN ACTOT«, t00=0x0008, t01=0x015e}
0x0dee…0e02 Head {h00=0x0010, h01=0x0050, text=» EXTRN QTJOB«, t00=0x0008, t01=0x0172}
0x0e02…0e18 Head {h00=0x0012, h01=0x0050, text=» EXTRN GETBLK «, t00=0x0008, t01=0x0186}
0x0e18…0e2e Head {h00=0x0012, h01=0x0050, text=» EXTRN LDTASK «, t00=0x0009, t01=0x000c}
0x0e2e…0e44 Head {h00=0x0012, h01=0x0050, text=» EXTRN TTABLD «, t00=0x0009, t01=0x0022}
0x0e44…0e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e4e…0e64 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0042}
0x0e64…0e7a Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0009, t01=0x0058}
0x0e7a…0e90 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x006e}
0x0e90…0e9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0084}
0x0e9a…0ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008e}
0x0ea4…0eda Head {h00=0x0032, h01=0x0050, text=»CVTLSB EQU /9A START ADDRESS OF LOAD SEGM BLK «, t00=0x0009, t01=0x0098}
0x0eda…0f04 Head {h00=0x0026, h01=0x0050, text=» FIRST WORD CONTAINS LSBT-LENGTH«, t00=0x0009, t01=0x00ce}
0x0f04…0f12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00f8}
0x0f12…0f1a Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0106}
0x0f1a…0f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x010e}
0x0f24…0f56 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0009, t01=0x0118}
0x0f56…0f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014a}
0x0f60…0f8a Head {h00=0x0026, h01=0x0050, text=»* DWT-DISPLACEMENT DECLARATIONS «, t00=0x0009, t01=0x0154}
0x0f8a…0f94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017e}
0x0f94…0fc6 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0009, t01=0x0188}
0x0fc6…0fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002a}
0x0fd0…0fd8 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0034}
0x0fd8…0ffe Head {h00=0x0022, h01=0x0050, text=»DWTCHP EQU 0 CHANNEL PARAMETER«, t00=0x000a, t01=0x003c}
0x0ffe…1018 Head {h00=0x0016, h01=0x0050, text=»DWTST EQU 2 STSTUS«, t00=0x000a, t01=0x0062}
0x1018…1038 Head {h00=0x001c, h01=0x0050, text=»DWTECB EQU 4 ECB-ADDRESS«, t00=0x000a, t01=0x007c}
0x1038…1052 Head {h00=0x0016, h01=0x0050, text=»DWTOR EQU 6 ORDER «, t00=0x000a, t01=0x009c}
0x1052…107c Head {h00=0x0026, h01=0x0050, text=»DWTADR EQU 8 ADDRESS BLOCK POINTER«, t00=0x000a, t01=0x00b6}
0x107c…109e Head {h00=0x001e, h01=0x0050, text=»DWTTAB EQU 10 TTAB-ADDRESS«, t00=0x000a, t01=0x00e0}
0x109e…10cc Head {h00=0x002a, h01=0x0050, text=»DWTWAT EQU 12 WAIT/ACTIVATE INDICATOR «, t00=0x000a, t01=0x0102}
0x10cc…10f0 Head {h00=0x0020, h01=0x0050, text=»DWTTQ EQU 14 TERMINAL QUEUE «, t00=0x000a, t01=0x0130}
0x10f0…110e Head {h00=0x001a, h01=0x0050, text=»DWTWA EQU 16 WORK AREA«, t00=0x000a, t01=0x0154}
0x110e…113c Head {h00=0x002a, h01=0x0050, text=»DWTTDM EQU 16 DM REQUEST TTAB ADDRESS «, t00=0x000a, t01=0x0172}
0x113c…115e Head {h00=0x001e, h01=0x0050, text=»DWTVOL EQU 44 VOLUME NAME «, t00=0x000b, t01=0x0010}
0x115e…116c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0032}
0x116c…1176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0040}
0x1176…119c Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000b, t01=0x004a}
0x119c…11a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0070}
0x11a6…11c4 Head {h00=0x001a, h01=0x0050, text=»* ECB-DISPLACEMENTS «, t00=0x000b, t01=0x007a}
0x11c4…11ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0098}
0x11ce…11f4 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000b, t01=0x00a2}
0x11f4…11fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c8}
0x11fe…1214 Head {h00=0x0012, h01=0x0050, text=»ECBBA EQU /02 «, t00=0x000b, t01=0x00d2}
0x1214…122a Head {h00=0x0012, h01=0x0050, text=»ECBRL EQU /04 «, t00=0x000b, t01=0x00e8}
0x122a…1240 Head {h00=0x0012, h01=0x0050, text=»ECBEL EQU /06 «, t00=0x000b, t01=0x00fe}
0x1240…1256 Head {h00=0x0012, h01=0x0050, text=»ECBRC EQU /08 «, t00=0x000b, t01=0x0114}
0x1256…126c Head {h00=0x0012, h01=0x0050, text=»ECBCW EQU /0A «, t00=0x000b, t01=0x012a}
0x126c…1276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0140}
0x1276…1284 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x014a}
0x1284…128e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0158}
0x128e…12a6 Head {h00=0x0014, h01=0x0050, text=»* D I S Q U E «, t00=0x000b, t01=0x0162}
0x12a6…12dc Head {h00=0x0032, h01=0x0050, text=»* POINTER TO FIRST PLACE IN DISPATCHER QUEUE«, t00=0x000b, t01=0x017a}
0x12dc…12e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0020}
0x12e6…12fa Head {h00=0x0010, h01=0x0050, text=»DISQUE EQU *«, t00=0x000c, t01=0x002a}
0x12fa…130a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000c, t01=0x003e}
0x130a…1314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004e}
0x1314…1328 Head {h00=0x0010, h01=0x0050, text=»* P R U N «, t00=0x000c, t01=0x0058}
0x1328…1352 Head {h00=0x0026, h01=0x0050, text=»* TTAB-ADDRESS OF RUNING PROGRAM«, t00=0x000c, t01=0x006c}
0x1352…135c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0096}
0x135c…136e Head {h00=0x000e, h01=0x0050, text=»PRUN EQU *«, t00=0x000c, t01=0x00a0}
0x136e…137e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000c, t01=0x00b2}
0x137e…1388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c2}
0x1388…139c Head {h00=0x0010, h01=0x0050, text=»* S R U N «, t00=0x000c, t01=0x00cc}
0x139c…13ce Head {h00=0x002e, h01=0x0050, text=»* POINTER TO RUNNING SEGMENT IN LSB-TAB «, t00=0x000c, t01=0x00e0}
0x13ce…13d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0112}
0x13d8…13ea Head {h00=0x000e, h01=0x0050, text=»SRUN EQU *«, t00=0x000c, t01=0x011c}
0x13ea…13fa Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000c, t01=0x012e}
0x13fa…1404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013e}
0x1404…140e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0148}
0x140e…1434 Head {h00=0x0022, h01=0x0050, text=»* POINTER TO ACTIVE SEGMENT «, t00=0x000c, t01=0x0152}
0x1434…143e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0178}
0x143e…1450 Head {h00=0x000e, h01=0x0050, text=»SACT EQU *«, t00=0x000c, t01=0x0182}
0x1450…1460 (13, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000d, t01=0x0004}
0x1460…1476 Head {h00=0x0012, h01=0x0050, text=»* G B Q U E «, t00=0x000d, t01=0x0014}
0x1476…14ae Head {h00=0x0034, h01=0x0050, text=»* POINTER TO FIRST TASK TABLE IN BUFFER QUEUE «, t00=0x000d, t01=0x002a}
0x14ae…14b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0062}
0x14b8…14cc Head {h00=0x0010, h01=0x0050, text=»GBQUE EQU * «, t00=0x000d, t01=0x006c}
0x14cc…14dc Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000d, t01=0x0080}
0x14dc…14f6 Head {h00=0x0016, h01=0x0050, text=»FREQUE DATA BLOK:S«, t00=0x000d, t01=0x0090}
0x14f6…1510 Head {h00=0x0016, h01=0x0050, text=»BLOCKL DATA BLOCKE«, t00=0x000d, t01=0x00aa}
0x1510…151a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c4}
0x151a…1532 Head {h00=0x0014, h01=0x0050, text=»* L R U Q U E «, t00=0x000d, t01=0x00ce}
0x1532…157e Head {h00=0x0048, h01=0x0050, text=»* POINTER TO FIRST SEGMENT IN 'LEAST RECENTLY USED' PARTITION LINK«, t00=0x000d, t01=0x00e6}
0x157e…1588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0132}
0x1588…159c Head {h00=0x0010, h01=0x0050, text=»LRUQUE EQU *«, t00=0x000d, t01=0x013c}
0x159c…15ac Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000d, t01=0x0150}
0x15ac…15b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0160}
0x15b6…15ce Head {h00=0x0014, h01=0x0050, text=»* L D P E N D «, t00=0x000d, t01=0x016a}
0x15ce…1602 Head {h00=0x0030, h01=0x0050, text=»* SEGMENT LOAD PENDING. LDTASK IN 'PAUSE' «, t00=0x000d, t01=0x0182}
0x1602…1618 Head {h00=0x0012, h01=0x0050, text=»LDPEND DATA 0 «, t00=0x000e, t01=0x0026}
0x1618…1622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003c}
0x1622…1630 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0046}
0x1630…163a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0054}
0x163a…1652 Head {h00=0x0014, h01=0x0050, text=»* D I S I O E «, t00=0x000e, t01=0x005e}
0x1652…165c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0076}
0x165c…169a Head {h00=0x003a, h01=0x0050, text=»* SET BIT 0 IN ECB RETURN CODE AND GO TO TDISP-ENTRY«, t00=0x000e, t01=0x0080}
0x169a…16a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00be}
0x16a4…16b8 Head {h00=0x0010, h01=0x0050, text=»DISIOE EQU *«, t00=0x000e, t01=0x00c8}
0x16b8…16de Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 SET RETURN CODE«, t00=0x000e, t01=0x00dc}
0x16de…16e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0102}
0x16e8…16fc Head {h00=0x0010, h01=0x0050, text=»DISEND EQU *«, t00=0x000e, t01=0x010c}
0x16fc…1712 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x000e, t01=0x0120}
0x1712…1720 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0136}
0x1720…172a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0144}
0x172a…1734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014e}
0x1734…174a Head {h00=0x0012, h01=0x0050, text=»* T D I S P «, t00=0x000e, t01=0x0158}
0x174a…1754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016e}
0x1754…177c Head {h00=0x0024, h01=0x0050, text=»* THIS IS THE DISPATCHER ENTRY«, t00=0x000e, t01=0x0178}
0x177c…1786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0010}
0x1786…179a Head {h00=0x0010, h01=0x0050, text=»TDISP EQU * «, t00=0x000f, t01=0x001a}
0x179a…17a6 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000f, t01=0x002e}
0x17a6…17d0 Head {h00=0x0026, h01=0x0050, text=» LD A1,18,A15 LOAD PSW FROM STACK «, t00=0x000f, t01=0x003a}
0x17d0…17ec Head {h00=0x0018, h01=0x0050, text=» SRL A1,10 GET LEVEL«, t00=0x000f, t01=0x0064}
0x17ec…1802 Head {h00=0x0012, h01=0x0050, text=» LD A5,DISQUE «, t00=0x000f, t01=0x0080}
0x1802…1838 Head {h00=0x0032, h01=0x0050, text=» ABL(Z) SEGDIS NO QUEUE,RETURN THROUGH SEGDIS «, t00=0x000f, t01=0x0096}
0x1838…1870 Head {h00=0x0034, h01=0x0050, text=» CC A1,TTB:ST+1,A5 AND COMPARE WITH QUEUED LEVEL«, t00=0x000f, t01=0x00cc}
0x1870…18b0 Head {h00=0x003c, h01=0x0050, text=» ABL(NG) SEGDIS RETURN TO INTERRUPTED PROGRM THRU SEGDIS«, t00=0x000f, t01=0x0104}
0x18b0…18d8 Head {h00=0x0024, h01=0x0050, text=» STR A9,A15 SAVE A9-A14 ON STACK«, t00=0x000f, t01=0x0144}
0x18d8…18ec Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x000f, t01=0x016c}
0x18ec…1900 Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x000f, t01=0x0180}
0x1900…1914 (16, 0, 400) Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x0010, t01=0x0004}
0x1914…1928 Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x0010, t01=0x0018}
0x1928…193c Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x0010, t01=0x002c}
0x193c…1950 Head {h00=0x0010, h01=0x0050, text=» LD A1,PRUN «, t00=0x0010, t01=0x0040}
0x1950…1976 Head {h00=0x0022, h01=0x0050, text=» STR A1,A15 SAVE PRUN ON STACK«, t00=0x0010, t01=0x0054}
0x1976…199c Head {h00=0x0022, h01=0x0050, text=» LD A1,SRUN SAVE SRUN ON STACK«, t00=0x0010, t01=0x007a}
0x199c…19b0 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0010, t01=0x00a0}
0x19b0…19d6 Head {h00=0x0022, h01=0x0050, text=» AND DISPATCH QUEUED PROGRAM«, t00=0x0010, t01=0x00b4}
0x19d6…19e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00da}
0x19e4…19ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e8}
0x19ee…19f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f2}
0x19f8…1a2e Head {h00=0x0032, h01=0x0050, text=»* DISPATCH PROGRAM FIRST IN DISPATCHER QUEUE«, t00=0x0010, t01=0x00fc}
0x1a2e…1a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0132}
0x1a38…1a72 Head {h00=0x0036, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF PROGRAM TO BE DISPATCHED «, t00=0x0010, t01=0x013c}
0x1a72…1a7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0176}
0x1a7c…1a90 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0010, t01=0x0180}
0x1a90…1ac4 (17, 0, 400) Head {h00=0x0030, h01=0x0050, text=» LDR* A1,A5 REMOVE JOB FROM DISPATCHER QUEUE«, t00=0x0011, t01=0x0004}
0x1ac4…1ada Head {h00=0x0012, h01=0x0050, text=» ST A1,DISQUE «, t00=0x0011, t01=0x0038}
0x1ada…1b08 Head {h00=0x002a, h01=0x0050, text=» LD A2,TTB:SA,A5 LOAD DISPATCH ADDRESS«, t00=0x0011, t01=0x004e}
0x1b08…1b2e Head {h00=0x0022, h01=0x0050, text=» LD A1,TTB:ST+1,A5 LOAD LEVEL «, t00=0x0011, t01=0x007c}
0x1b2e…1b40 Head {h00=0x000e, h01=0x0050, text=» SLL A1,10«, t00=0x0011, t01=0x00a2}
0x1b40…1b64 Head {h00=0x0020, h01=0x0050, text=» CWK A1,/C000 MONITOR JOB ? «, t00=0x0011, t01=0x00b4}
0x1b64…1b7e Head {h00=0x0016, h01=0x0050, text=» RF(E) DIS200 YES «, t00=0x0011, t01=0x00d8}
0x1b7e…1ba2 Head {h00=0x0020, h01=0x0050, text=» LD A6,TTB:SP,A5 SEGMENT 0? «, t00=0x0011, t01=0x00f2}
0x1ba2…1bcc Head {h00=0x0026, h01=0x0050, text=» RF(Z) DIS105 YES PUT JOB ON STACK«, t00=0x0011, t01=0x0116}
0x1bcc…1bf0 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A6 SEGMENT LOADED? «, t00=0x0011, t01=0x0140}
0x1bf0…1c16 Head {h00=0x0022, h01=0x0050, text=» ABL(N) SEGLD NO LOAD SEGMENT «, t00=0x0011, t01=0x0164}
0x1c16…1c3e Head {h00=0x0024, h01=0x0050, text=» CF A15,UPDLRU UPDATE LRU QUEUE «, t00=0x0011, t01=0x018a}
0x1c3e…1c4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0022}
0x1c4c…1c60 Head {h00=0x0010, h01=0x0050, text=»DIS105 EQU *«, t00=0x0012, t01=0x0030}
0x1c60…1c8a Head {h00=0x0026, h01=0x0050, text=» STR A2,A15 STORE DISPATCH ADDRESS«, t00=0x0012, t01=0x0044}
0x1c8a…1cb0 Head {h00=0x0022, h01=0x0050, text=» STR A1,A15 AND LEVEL ON STACK«, t00=0x0012, t01=0x006e}
0x1cb0…1cc2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0012, t01=0x0094}
0x1cc2…1cf4 Head {h00=0x002e, h01=0x0050, text=» ADK A3,14 SET ADDRESS TO A1 IN SAVE AREA «, t00=0x0012, t01=0x00a6}
0x1cf4…1d12 Head {h00=0x001a, h01=0x0050, text=» LDK A1,14 SET COUNTER«, t00=0x0012, t01=0x00d8}
0x1d12…1d42 Head {h00=0x002c, h01=0x0050, text=»DIS110 LDR* A2,A3 SET UP A1-A14 ON STACK«, t00=0x0012, t01=0x00f6}
0x1d42…1d56 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0012, t01=0x0126}
0x1d56…1d68 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0012, t01=0x013a}
0x1d68…1d7a Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0012, t01=0x014c}
0x1d7a…1d90 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIS110«, t00=0x0012, t01=0x015e}
0x1d90…1dce Head {h00=0x003a, h01=0x0050, text=»DIS120 ST A5,PRUN SET TABB-ADDRES FOR DISPATCHED PROG.«, t00=0x0012, t01=0x0174}
0x1dce…1e0a Head {h00=0x0038, h01=0x0050, text=» ST A6,SRUN SET POINTER TO LSBT FOR RUNNING SEGMENT «, t00=0x0013, t01=0x0022}
0x1e0a…1e3c Head {h00=0x002e, h01=0x0050, text=» START QUEUED PROGRAM (A1-A14 ON STACK) «, t00=0x0013, t01=0x005e}
0x1e3c…1e4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0090}
0x1e4a…1e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009e}
0x1e54…1e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e5e…1e74 Head {h00=0x0012, h01=0x0050, text=»* R E T U R «, t00=0x0013, t01=0x00b2}
0x1e74…1e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c8}
0x1e7e…1ec2 Head {h00=0x0040, h01=0x0050, text=»* ENTRYPOINTS RETU14-RETUR1 :RELOAD REGISTERS FROM STACK «, t00=0x0013, t01=0x00d2}
0x1ec2…1ee0 Head {h00=0x001a, h01=0x0050, text=»* AND RETURN VIA A15«, t00=0x0013, t01=0x0116}
0x1ee0…1eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0134}
0x1eea…1f06 Head {h00=0x0018, h01=0x0050, text=»RETU14 LDR* A14,A15 «, t00=0x0013, t01=0x013e}
0x1f06…1f22 Head {h00=0x0018, h01=0x0050, text=»RETU13 LDR* A13,A15 «, t00=0x0013, t01=0x015a}
0x1f22…1f3e Head {h00=0x0018, h01=0x0050, text=»RETU12 LDR* A12,A15 «, t00=0x0013, t01=0x0176}
0x1f3e…1f5a (20, 0, 400) Head {h00=0x0018, h01=0x0050, text=»RETU11 LDR* A11,A15 «, t00=0x0014, t01=0x0004}
0x1f5a…1f76 Head {h00=0x0018, h01=0x0050, text=»RETU10 LDR* A10,A15 «, t00=0x0014, t01=0x0020}
0x1f76…1f90 Head {h00=0x0016, h01=0x0050, text=»RETUR9 LDR* A9,A15«, t00=0x0014, t01=0x003c}
0x1f90…1faa Head {h00=0x0016, h01=0x0050, text=»RETUR8 LDR* A8,A15«, t00=0x0014, t01=0x0056}
0x1faa…1fc4 Head {h00=0x0016, h01=0x0050, text=»RETUR7 LDR* A7,A15«, t00=0x0014, t01=0x0070}
0x1fc4…1fde Head {h00=0x0016, h01=0x0050, text=»RETUR6 LDR* A6,A15«, t00=0x0014, t01=0x008a}
0x1fde…1ff8 Head {h00=0x0016, h01=0x0050, text=»RETUR5 LDR* A5,A15«, t00=0x0014, t01=0x00a4}
0x1ff8…2012 Head {h00=0x0016, h01=0x0050, text=»RETUR4 LDR* A4,A15«, t00=0x0014, t01=0x00be}
0x2012…202c Head {h00=0x0016, h01=0x0050, text=»RETUR3 LDR* A3,A15«, t00=0x0014, t01=0x00d8}
0x202c…2046 Head {h00=0x0016, h01=0x0050, text=»RETUR2 LDR* A2,A15«, t00=0x0014, t01=0x00f2}
0x2046…205e Head {h00=0x0014, h01=0x0050, text=»RETUR1 RF DIS130«, t00=0x0014, t01=0x010c}
0x205e…2078 Head {h00=0x0016, h01=0x0050, text=»RTNA15 STR A1,A15 «, t00=0x0014, t01=0x0124}
0x2078…2098 Head {h00=0x001c, h01=0x0050, text=»DIS130 LDK A1,/40 BIT 9 «, t00=0x0014, t01=0x013e}
0x2098…20ca Head {h00=0x002e, h01=0x0050, text=» ORS A1,4,A15 SET PSW IN A15 STACK TO ENB «, t00=0x0014, t01=0x015e}
0x20ca…20de Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0014, t01=0x0190}
0x20de…20ee Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0015, t01=0x0014}
0x20ee…20fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0024}
0x20fc…2106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0032}
0x2106…2110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x003c}
0x2110…2134 Head {h00=0x0020, h01=0x0050, text=»* MONITOR JOB DISPATCHING «, t00=0x0015, t01=0x0046}
0x2134…213e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006a}
0x213e…2152 Head {h00=0x0010, h01=0x0050, text=»DIS200 EQU *«, t00=0x0015, t01=0x0074}
0x2152…2196 Head {h00=0x0040, h01=0x0050, text=» LDKL A3,LKMDIS STORE ADDRESS TO BE DISPATCHED AFTER MONITOR«, t00=0x0015, t01=0x0088}
0x2196…21b6 Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 JOB ON STACK«, t00=0x0015, t01=0x00cc}
0x21b6…21e2 Head {h00=0x0028, h01=0x0050, text=» STR A1,A15 STORE LEVEL 48 ON STACK «, t00=0x0015, t01=0x00ec}
0x21e2…220c Head {h00=0x0026, h01=0x0050, text=» SUKL A15,16 ADJUST STACK POINTER «, t00=0x0015, t01=0x0118}
0x220c…224a Head {h00=0x003a, h01=0x0050, text=» STR A2,A15 SET MONITOR JOB DISPATCH ADDRESS ON STACK «, t00=0x0015, t01=0x0142}
0x224a…2268 Head {h00=0x001a, h01=0x0050, text=» STR A1,A15 SET LEVEL «, t00=0x0015, t01=0x0180}
0x2268…2298 Head {h00=0x002c, h01=0x0050, text=» LD A1,TTB:SA+2,A5 LOAD PARAMETER IN A1 «, t00=0x0016, t01=0x000e}
0x2298…22bc Head {h00=0x0020, h01=0x0050, text=» STR A1,A15 AND SET ON STACK«, t00=0x0016, t01=0x003e}
0x22bc…22ec Head {h00=0x002c, h01=0x0050, text=» CF A15,EXIT DO EXIT ON MONITOR JOB AND «, t00=0x0016, t01=0x0062}
0x22ec…230c Head {h00=0x001c, h01=0x0050, text=» RB RETUR1 THEN START IT«, t00=0x0016, t01=0x0092}
0x230c…231a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00b2}
0x231a…2324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c0}
0x2324…232e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ca}
0x232e…2346 Head {h00=0x0014, h01=0x0050, text=»* L K M D I S «, t00=0x0016, t01=0x00d4}
0x2346…2350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ec}
0x2350…238a Head {h00=0x0036, h01=0x0050, text=»* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST«, t00=0x0016, t01=0x00f6}
0x238a…23ac Head {h00=0x001e, h01=0x0050, text=»* NO REGISTERS ON STACK «, t00=0x0016, t01=0x0130}
0x23ac…23b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0152}
0x23b6…23c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015c}
0x23c0…23d4 Head {h00=0x0010, h01=0x0050, text=»LKMDIS EQU *«, t00=0x0016, t01=0x0166}
0x23d4…23e0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0016, t01=0x017a}
0x23e0…240a Head {h00=0x0026, h01=0x0050, text=» LD A1,34,A15 LOAD PSW FROM STACK «, t00=0x0016, t01=0x0186}
0x240a…2426 Head {h00=0x0018, h01=0x0050, text=» SRL A1,10 GET LEVEL«, t00=0x0017, t01=0x0020}
0x2426…243c Head {h00=0x0012, h01=0x0050, text=» LD A5,DISQUE «, t00=0x0017, t01=0x003c}
0x243c…2462 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DIS010 NO QUEUE,RETURN «, t00=0x0017, t01=0x0052}
0x2462…249a Head {h00=0x0034, h01=0x0050, text=» CC A1,TTB:ST+1,A5 AND COMPARE WITH QUEUED LEVEL«, t00=0x0017, t01=0x0078}
0x249a…24c4 Head {h00=0x0026, h01=0x0050, text=» RB(G) DIS100 DISPATCH FROM QUEUE «, t00=0x0017, t01=0x00b0}
0x24c4…24d8 Head {h00=0x0010, h01=0x0050, text=»DIS010 EQU *«, t00=0x0017, t01=0x00da}
0x24d8…24fc Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A15 SRUN FROM STACK«, t00=0x0017, t01=0x00ee}
0x24fc…2520 Head {h00=0x0020, h01=0x0050, text=» LDR* A5,A15 PRUN FROM STACK«, t00=0x0017, t01=0x0112}
0x2520…2536 Head {h00=0x0012, h01=0x0050, text=» LDR* A14,A15 «, t00=0x0017, t01=0x0136}
0x2536…254c Head {h00=0x0012, h01=0x0050, text=» LDR* A13,A15 «, t00=0x0017, t01=0x014c}
0x254c…2562 Head {h00=0x0012, h01=0x0050, text=» LDR* A12,A15 «, t00=0x0017, t01=0x0162}
0x2562…2578 Head {h00=0x0012, h01=0x0050, text=» LDR* A11,A15 «, t00=0x0017, t01=0x0178}
0x2578…258e Head {h00=0x0012, h01=0x0050, text=» LDR* A10,A15 «, t00=0x0017, t01=0x018e}
0x258e…25a2 Head {h00=0x0010, h01=0x0050, text=» LDR* A9,A15«, t00=0x0018, t01=0x0014}
0x25a2…25b6 Head {h00=0x0010, h01=0x0050, text=» ST A5,PRUN «, t00=0x0018, t01=0x0028}
0x25b6…25ca Head {h00=0x0010, h01=0x0050, text=» ST A6,SRUN «, t00=0x0018, t01=0x003c}
0x25ca…25d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0050}
0x25d8…25e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x005e}
0x25e2…25f4 Head {h00=0x000e, h01=0x0050, text=»* SEGDIS«, t00=0x0018, t01=0x0068}
0x25f4…261e Head {h00=0x0026, h01=0x0050, text=»* LEVEL IN REG A1 SHIFTED RIGHT «, t00=0x0018, t01=0x007a}
0x261e…2628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a4}
0x2628…2654 Head {h00=0x0028, h01=0x0050, text=»SEGDIS CWK A1,49 INTERRUPT ROUTINE? «, t00=0x0018, t01=0x00ae}
0x2654…2676 Head {h00=0x001e, h01=0x0050, text=» RB(NG) RETUR8 YES RETURN «, t00=0x0018, t01=0x00da}
0x2676…2698 Head {h00=0x001e, h01=0x0050, text=» LD A6,SRUN ROOT-SEGMENT? «, t00=0x0018, t01=0x00fc}
0x2698…26b8 Head {h00=0x001c, h01=0x0050, text=» RB(Z) RETUR8 YES RETURN«, t00=0x0018, t01=0x011e}
0x26b8…26cc Head {h00=0x0010, h01=0x0050, text=» LD A5,PRUN «, t00=0x0018, t01=0x013e}
0x26cc…26f0 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A6 SEGMENT LOADED? «, t00=0x0018, t01=0x0152}
0x26f0…2722 Head {h00=0x002e, h01=0x0050, text=» RF(N) SEGTAB JMP IF NOT AND LOAD SEGMENT «, t00=0x0018, t01=0x0176}
0x2722…2744 Head {h00=0x001e, h01=0x0050, text=» LD A2,20,A15 DISP ADRESS:«, t00=0x0019, t01=0x0018}
0x2744…2752 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x003a}
0x2752…275c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0048}
0x275c…2786 Head {h00=0x0026, h01=0x0050, text=»* UPDATE LRUSTACK AND TASK TABLE«, t00=0x0019, t01=0x0052}
0x2786…2790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x007c}
0x2790…27a6 Head {h00=0x0012, h01=0x0050, text=» CF A15,UPDLRU«, t00=0x0019, t01=0x0086}
0x27a6…27d6 Head {h00=0x002c, h01=0x0050, text=» ST A2,20,A15 STORE NEW DISPATCH ADDRESS«, t00=0x0019, t01=0x009c}
0x27d6…27e8 Head {h00=0x000e, h01=0x0050, text=» RB RETUR8«, t00=0x0019, t01=0x00cc}
0x27e8…27f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00de}
0x27f6…2800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ec}
0x2800…281a Head {h00=0x0016, h01=0x0050, text=»* SAVE INTO TTAB«, t00=0x0019, t01=0x00f6}
0x281a…2824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0110}
0x2824…2850 Head {h00=0x0028, h01=0x0050, text=»SEGTAB EQU * SAVE STACK-DATA IN TTAB«, t00=0x0019, t01=0x011a}
0x2850…2880 Head {h00=0x002c, h01=0x0050, text=» ST A14,TTB:SA+28,A5 SAVE A9-A14 IN TTAB«, t00=0x0019, t01=0x0146}
0x2880…289c Head {h00=0x0018, h01=0x0050, text=» ST A13,TTB:SA+26,A5«, t00=0x0019, t01=0x0176}
0x289c…28b8 (26, 0, 400) Head {h00=0x0018, h01=0x0050, text=» ST A12,TTB:SA+24,A5«, t00=0x001a, t01=0x0004}
0x28b8…28d4 Head {h00=0x0018, h01=0x0050, text=» ST A11,TTB:SA+22,A5«, t00=0x001a, t01=0x0020}
0x28d4…28f0 Head {h00=0x0018, h01=0x0050, text=» ST A10,TTB:SA+20,A5«, t00=0x001a, t01=0x003c}
0x28f0…290c Head {h00=0x0018, h01=0x0050, text=» ST A9,TTB:SA+18,A5 «, t00=0x001a, t01=0x0058}
0x290c…293e Head {h00=0x002e, h01=0x0050, text=» LDR A4,A5 SAVE A1-A8 FROM STACK INTO TTAB«, t00=0x001a, t01=0x0074}
0x293e…2950 Head {h00=0x000e, h01=0x0050, text=» ADK A4,28«, t00=0x001a, t01=0x00a6}
0x2950…2962 Head {h00=0x000e, h01=0x0050, text=» LDK A3,8 «, t00=0x001a, t01=0x00b8}
0x2962…297c Head {h00=0x0016, h01=0x0050, text=»SEGNXT LDR* A1,A15«, t00=0x001a, t01=0x00ca}
0x297c…298e Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x001a, t01=0x00e4}
0x298e…29a0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x001a, t01=0x00f6}
0x29a0…29b2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001a, t01=0x0108}
0x29b2…29c8 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) SEGNXT«, t00=0x001a, t01=0x011a}
0x29c8…29f2 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A15 REMOVE PSW FROM STACK«, t00=0x001a, t01=0x0130}
0x29f2…2a1c Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A15 SAVE PROGRAM COUNTER «, t00=0x001a, t01=0x015a}
0x2a1c…2a34 Head {h00=0x0014, h01=0x0050, text=» ST A2,TTB:SA,A5«, t00=0x001a, t01=0x0184}
0x2a34…2a42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x000c}
0x2a42…2a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001a}
0x2a4c…2a64 Head {h00=0x0014, h01=0x0050, text=»* LOAD SEGMENT«, t00=0x001b, t01=0x0024}
0x2a64…2a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x003c}
0x2a6e…2a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0046}
0x2a78…2aa4 Head {h00=0x0028, h01=0x0050, text=»* GET PARAMETER BLOCK AND FILL IN «, t00=0x001b, t01=0x0050}
0x2aa4…2ad6 Head {h00=0x002e, h01=0x0050, text=»* SEGMNT POINTER,DISPL AND TTAB-ADDRESS «, t00=0x001b, t01=0x007c}
0x2ad6…2ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ae}
0x2ae0…2af4 Head {h00=0x0010, h01=0x0050, text=»SEGLD EQU * «, t00=0x001b, t01=0x00b8}
0x2af4…2b24 Head {h00=0x002c, h01=0x0050, text=» LDR A3,A6 LOAD SEGMENT POINTER IN LSBT «, t00=0x001b, t01=0x00cc}
0x2b24…2b4e Head {h00=0x0026, h01=0x0050, text=» SU A2,TTB:SS,A5 RELATIVE ADDRESS «, t00=0x001b, t01=0x00fc}
0x2b4e…2b7a Head {h00=0x0028, h01=0x0050, text=» NGR A2,A2 SET NEGATIVE DISPLACEMENT«, t00=0x001b, t01=0x0126}
0x2b7a…2b9e Head {h00=0x0020, h01=0x0050, text=» LDR A1,A5 LOAD TTAB-ADDRESS«, t00=0x001b, t01=0x0152}
0x2b9e…2bc6 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBLK GET MONITOR BLOCK«, t00=0x001b, t01=0x0176}
0x2bc6…2bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000e}
0x2bd0…2c12 Head {h00=0x003e, h01=0x0050, text=»* ACTIVATE LOAD TASK AND PUT IT IN THE DISPATCHER QUEUE «, t00=0x001c, t01=0x0018}
0x2c12…2c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005a}
0x2c1c…2c3e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A4 LOAD PARAMETER «, t00=0x001c, t01=0x0064}
0x2c3e…2c6c Head {h00=0x002a, h01=0x0050, text=» LDKL A2,LDTASK LOAD DISPATCH ADDRESS «, t00=0x001c, t01=0x0086}
0x2c6c…2c84 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,TTABLD «, t00=0x001c, t01=0x00b4}
0x2c84…2c96 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001c, t01=0x00cc}
0x2c96…2cbe Head {h00=0x0024, h01=0x0050, text=» CF A15,ACTOT ACTIVATE LOAD TASK«, t00=0x001c, t01=0x00de}
0x2cbe…2cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0106}
0x2cc8…2cf0 Head {h00=0x0024, h01=0x0050, text=»* EXIT TO TERMINAL DISPATCHER «, t00=0x001c, t01=0x0110}
0x2cf0…2cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0138}
0x2cfa…2d0e Head {h00=0x0010, h01=0x0050, text=»LD200 EQU * «, t00=0x001c, t01=0x0142}
0x2d0e…2d20 Head {h00=0x000e, h01=0x0050, text=» RB LKMDIS«, t00=0x001c, t01=0x0156}
0x2d20…2d28 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0168}
0x2d28…2d36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0170}
0x2d36…2d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x017e}
0x2d40…2d5e Head {h00=0x001a, h01=0x0050, text=»* UPDATE TASK TABLE«, t00=0x001c, t01=0x0188}
0x2d5e…2d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0016}
0x2d68…2d7c Head {h00=0x0010, h01=0x0050, text=»UPDLRU EQU *«, t00=0x001d, t01=0x0020}
0x2d7c…2da0 Head {h00=0x0020, h01=0x0050, text=» LD A7,2,A6 NEW LOAD ADDRESS«, t00=0x001d, t01=0x0034}
0x2da0…2dc8 Head {h00=0x0024, h01=0x0050, text=» LD A4,TTB:SS,A5 OLD SEG ADDRESS«, t00=0x001d, t01=0x0058}
0x2dc8…2df2 Head {h00=0x0026, h01=0x0050, text=» ST A7,TTB:SS,A5 SAVE NEW ADDRESS «, t00=0x001d, t01=0x0080}
0x2df2…2e16 Head {h00=0x0020, h01=0x0050, text=» SUR A7,A4 ADRESS DIFFERENCE«, t00=0x001d, t01=0x00aa}
0x2e16…2e3e Head {h00=0x0024, h01=0x0050, text=» ADR A2,A7 NEW DISPATCH ADDRESS «, t00=0x001d, t01=0x00ce}
0x2e3e…2e6a Head {h00=0x0028, h01=0x0050, text=» ST A2,TTB:SA,A5 STORE DISP ADDRESS «, t00=0x001d, t01=0x00f6}
0x2e6a…2e92 Head {h00=0x0024, h01=0x0050, text=» ST A6,TTB:SP,A5 SEGMENT POINTER«, t00=0x001d, t01=0x0122}
0x2e92…2e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x014a}
0x2e9c…2eb8 Head {h00=0x0018, h01=0x0050, text=»* UPDATE LRU-STACK«, t00=0x001d, t01=0x0154}
0x2eb8…2ec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0170}
0x2ec2…2ed6 Head {h00=0x0010, h01=0x0050, text=»UPDLRI EQU *«, t00=0x001d, t01=0x017a}
0x2ed6…2eea Head {h00=0x0010, h01=0x0050, text=» LD A3,SACT «, t00=0x001d, t01=0x018e}
0x2eea…2f00 Head {h00=0x0012, h01=0x0050, text=» RF(E) LRUNDA «, t00=0x001e, t01=0x0012}
0x2f00…2f2a Head {h00=0x0026, h01=0x0050, text=» CWR A3,A6 SAME AS ACTIVE SEGMENT?«, t00=0x001e, t01=0x0028}
0x2f2a…2f44 Head {h00=0x0016, h01=0x0050, text=» RF(E) LRUNDA YES «, t00=0x001e, t01=0x0052}
0x2f44…2f5e Head {h00=0x0016, h01=0x0050, text=» CF A15,LRUNEW NO «, t00=0x001e, t01=0x006c}
0x2f5e…2f72 Head {h00=0x0010, h01=0x0050, text=»LRUNDA EQU *«, t00=0x001e, t01=0x0086}
0x2f72…2f98 Head {h00=0x0022, h01=0x0050, text=» LDKL A7,/2000 QUEUE INDICATOR«, t00=0x001e, t01=0x009a}
0x2f98…2fbe Head {h00=0x0022, h01=0x0050, text=» ST A6,SACT SET ACTIVE POINTER«, t00=0x001e, t01=0x00c0}
0x2fbe…2fd0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x001e, t01=0x00e6}
0x2fd0…2fe4 Head {h00=0x0010, h01=0x0050, text=» ANR* A7,A6 «, t00=0x001e, t01=0x00f8}
0x2fe4…2ffa Head {h00=0x0012, h01=0x0050, text=» RF(E) LRUEND «, t00=0x001e, t01=0x010c}
0x2ffa…3018 Head {h00=0x001a, h01=0x0050, text=» XRRS A4,A6 SET ACTIVE«, t00=0x001e, t01=0x0122}
0x3018…303a Head {h00=0x001e, h01=0x0050, text=» LD A7,8,A6 FIRST IN QUEUE«, t00=0x001e, t01=0x0140}
0x303a…305e Head {h00=0x0020, h01=0x0050, text=» LD A3,10,A6 LAST IN QUEUE ?«, t00=0x001e, t01=0x0162}
0x305e…3074 Head {h00=0x0012, h01=0x0050, text=» RF(Z) LRULST «, t00=0x001e, t01=0x0186}
0x3074…30a6 Head {h00=0x002e, h01=0x0050, text=» ST A7,-2,A3 UPDATE PRECEDENT OF SUCCEDENT«, t00=0x001f, t01=0x000c}
0x30a6…30be Head {h00=0x0014, h01=0x0050, text=»LRULST LDR A7,A7«, t00=0x001f, t01=0x003e}
0x30be…30d4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LRU100«, t00=0x001f, t01=0x0056}
0x30d4…30ea Head {h00=0x0012, h01=0x0050, text=» ST A3,LRUQUE «, t00=0x001f, t01=0x006c}
0x30ea…30fc Head {h00=0x000e, h01=0x0050, text=» RF LRUMOD«, t00=0x001f, t01=0x0082}
0x30fc…3116 Head {h00=0x0016, h01=0x0050, text=»LRU100 ST A3,2,A7 «, t00=0x001f, t01=0x0094}
0x3116…312c Head {h00=0x0012, h01=0x0050, text=»LRUMOD CM 8,A6«, t00=0x001f, t01=0x00ae}
0x312c…313e Head {h00=0x000e, h01=0x0050, text=» CM 10,A6 «, t00=0x001f, t01=0x00c4}
0x313e…3150 Head {h00=0x000e, h01=0x0050, text=» RF LRUEND«, t00=0x001f, t01=0x00d6}
0x3150…3164 Head {h00=0x0010, h01=0x0050, text=»LRUNEW EQU *«, t00=0x001f, t01=0x00e8}
0x3164…3178 Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x001f, t01=0x00fc}
0x3178…318a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A3«, t00=0x001f, t01=0x0110}
0x318a…31b6 Head {h00=0x0028, h01=0x0050, text=» LD A4,LRUQUE UPDATE FIRST IN QUEUE «, t00=0x001f, t01=0x0122}
0x31b6…31cc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LRUFOR«, t00=0x001f, t01=0x014e}
0x31cc…31f4 Head {h00=0x0024, h01=0x0050, text=» LD A3,LDPEND LOAD TASK PENDING?«, t00=0x001f, t01=0x0164}
0x31f4…3214 Head {h00=0x001c, h01=0x0050, text=» RF(Z) NOPEND JMP IF NOT«, t00=0x001f, t01=0x018c}
0x3214…323e Head {h00=0x0026, h01=0x0050, text=» CM LDPEND CLEAR PENDING INDICATOR«, t00=0x0020, t01=0x001c}
0x323e…3258 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A5 SAVE A5«, t00=0x0020, t01=0x0046}
0x3258…3270 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,TTABLD «, t00=0x0020, t01=0x0060}
0x3270…3298 Head {h00=0x0024, h01=0x0050, text=» CF A15,QTJOB RESTART LOAD TASK «, t00=0x0020, t01=0x0078}
0x3298…32b6 Head {h00=0x001a, h01=0x0050, text=» LDR A5,A3 RESTORE A5 «, t00=0x0020, t01=0x00a0}
0x32b6…32ca Head {h00=0x0010, h01=0x0050, text=»NOPEND EQU *«, t00=0x0020, t01=0x00be}
0x32ca…32dc Head {h00=0x000e, h01=0x0050, text=» ADK A7,10«, t00=0x0020, t01=0x00d2}
0x32dc…32ee Head {h00=0x000e, h01=0x0050, text=» RF LRUUPD«, t00=0x0020, t01=0x00e4}
0x32ee…3306 Head {h00=0x0014, h01=0x0050, text=»LRUFOR ADK A7,8 «, t00=0x0020, t01=0x00f6}
0x3306…333e Head {h00=0x0034, h01=0x0050, text=» ST A7,-2,A4 UPDATE PRECEDENT OF SECOND IN QUEUE«, t00=0x0020, t01=0x010e}
0x333e…3366 Head {h00=0x0024, h01=0x0050, text=» CMR A7 CLEAR PRECEDENT POINTER «, t00=0x0020, t01=0x0146}
0x3366…3378 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0020, t01=0x016e}
0x3378…339c Head {h00=0x0020, h01=0x0050, text=» STR A4,A7 SUCCEDENT POINTER«, t00=0x0020, t01=0x0180}
0x339c…33b8 Head {h00=0x0018, h01=0x0050, text=»LRUUPD ST A7,LRUQUE «, t00=0x0021, t01=0x0014}
0x33b8…33ce Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/2000«, t00=0x0021, t01=0x0030}
0x33ce…33e4 Head {h00=0x0012, h01=0x0050, text=» ORS A3,-10,A7«, t00=0x0021, t01=0x0046}
0x33e4…33f8 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A15«, t00=0x0021, t01=0x005c}
0x33f8…3412 Head {h00=0x0016, h01=0x0050, text=»LRUEND ADKL A15,2 «, t00=0x0021, t01=0x0070}
0x3412…3426 Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x0021, t01=0x008a}
0x3426…3432 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0021, t01=0x009e}
0x3432…3436 Head {h00=0x4004, h01=0x0000}
0x3436…343a 00 21 00 aa ┆ ! ┆
0x343a…3442 (34, 1, 8) 20 04 00 00 00 22 00 04 ┆ " ┆
0x3442…3492 (35, 0, 400) 5c 4c 44 5c 41 31 2c 44 57 54 53 54 2c 41 36 5c 47 45 54 20 53 54 41 54 55 53 00 52 01 90 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 31 00 53 00 22 00 0e 00 50 5c 41 4e 4b 5c 41 31 2c 31 20 00 53 00 34 00 24 00 50 5c 52 46 28 5a 29 5c 53 45 4c ┆ LD A1,DWTST,A6 GET STATUS R P LDR A3,A1 S " P ANK A1,1 S 4 $ P RF(Z) SEL┆
0x3492…34e2 31 31 30 5c 4e 4f 20 50 45 4e 44 49 4e 47 20 53 54 41 54 55 53 20 00 53 00 46 00 1a 00 50 5c 43 46 5c 41 35 2c 54 52 52 56 49 5c 53 45 4e 44 20 52 56 49 20 00 53 00 6e 00 08 00 50 5c 58 49 46 00 53 00 8c 00 10 00 50 5c 49 46 46 5c 53 54 41 ┆110 NO PENDING STATUS S F P CF A5,TRRVI SEND RVI S n P XIF S P IFF STA┆
0x34e2…3532 54 3d 31 20 00 53 00 98 00 0e 00 50 5c 52 46 5c 53 45 4c 31 31 30 00 53 00 ac 00 08 00 50 5c 58 49 46 00 53 00 be 00 10 00 50 53 45 4c 31 30 30 5c 45 51 55 5c 2a 00 53 00 ca 00 0c 00 50 5c 41 42 4c 5c 42 52 4d 00 53 00 de 00 10 00 50 53 45 ┆T=1 S P RF SEL110 S P XIF S PSEL100 EQU * S P ABL BRM S PSE┆
0x3532…3582 4c 31 31 30 5c 45 51 55 5c 2a 00 53 00 ee 00 10 00 50 5c 49 46 46 5c 53 54 41 54 3d 30 20 00 53 01 02 00 0e 00 50 5c 41 4e 4b 5c 41 33 2c 38 20 00 53 01 16 00 18 00 50 5c 52 46 28 4e 5a 29 5c 53 45 4c 31 31 35 5c 42 55 53 59 20 00 53 01 28 ┆L110 EQU * S P IFF STAT=0 S P ANK A3,8 S P RF(NZ) SEL115 BUSY S (┆
0x3582…35d2 00 08 00 50 5c 58 49 46 00 53 01 44 00 12 00 50 5c 4c 44 5c 41 31 2c 44 43 52 42 55 46 20 00 53 01 50 00 24 00 50 5c 52 46 28 4e 5a 29 5c 53 45 4c 31 32 30 5c 42 55 46 46 45 52 20 41 56 41 49 4c 41 42 4c 45 20 00 53 01 66 00 10 00 50 53 45 ┆ P XIF S D P LD A1,DCRBUF S P $ P RF(NZ) SEL120 BUFFER AVAILABLE S f PSE┆
0x35d2…3622 (36, 0, 400) 4c 31 31 35 5c 45 51 55 5c 2a 00 53 01 8e 00 1c 00 50 5c 43 46 5c 41 35 2c 54 52 57 41 43 4b 5c 53 45 4e 44 20 57 41 43 4b 20 00 54 00 12 00 0e 00 50 5c 52 42 5c 53 45 4c 31 30 30 00 54 00 32 00 10 00 50 53 45 4c 31 32 30 5c 45 51 55 5c 2a ┆L115 EQU * S P CF A5,TRWACK SEND WACK T P RB SEL100 T 2 PSEL120 EQU *┆
0x3622…3672 00 54 00 44 00 2c 00 50 5c 43 46 5c 41 35 2c 50 52 52 45 43 5c 50 52 45 50 41 52 45 20 46 4f 52 20 54 45 58 54 20 52 45 43 45 50 54 49 4f 4e 20 00 54 00 58 00 1c 00 50 5c 43 46 5c 41 35 2c 54 52 41 43 4b 5c 53 45 4e 44 20 41 43 4b 2c 30 20 ┆ T D , P CF A5,PRREC PREPARE FOR TEXT RECEPTION T X P CF A5,TRACK SEND ACK,0 ┆
0x3672…36c2 00 54 00 88 00 0e 00 50 5c 52 42 5c 53 45 4c 31 30 30 00 54 00 a8 00 0a 00 50 5c 45 4a 45 43 54 00 54 00 ba 00 06 00 50 2a 20 00 54 00 c8 00 06 00 50 2a 20 00 54 00 d2 00 20 00 50 2a 5c 50 52 45 50 41 52 45 20 46 4f 52 20 54 45 58 54 20 52 ┆ T P RB SEL100 T P EJECT T P* T P* T P* PREPARE FOR TEXT R┆
0x36c2…3712 45 43 45 50 54 49 4f 4e 00 54 00 dc 00 06 00 50 2a 20 00 54 01 00 00 06 00 50 2a 20 00 54 01 0a 00 10 00 50 50 52 52 45 43 5c 45 51 55 5c 2a 20 00 54 01 14 00 1c 00 50 5c 49 4d 5c 58 53 45 4c 5c 53 45 54 20 27 53 45 4c 45 43 54 45 44 27 20 ┆ECEPTION T P* T P* T PPRREC EQU * T P IM XSEL SET 'SELECTED' ┆
0x3712…3762 00 54 01 28 00 20 00 50 5c 43 4d 5c 46 42 41 58 5c 52 45 53 45 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 20 00 54 01 48 00 10 00 50 5c 49 46 54 5c 43 4f 44 45 3d 31 20 00 54 01 6c 00 2e 00 50 5c 4c 43 5c 41 32 2c 54 45 42 43 44 49 43 2c 41 ┆ T ( P CM FBAX RESET BUFFER INDEX T H P IFT CODE=1 T l . P LC A2,TEBCDIC,A┆