|
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: 10514 (0x2912)
Notes: pts_type(SC)
Names: »TDISP.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/TDISP.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/TDISP.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/TDISP.SC«
IDENT TDISP REL 8.2 78-09-15 870105040820 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TDISP = TERMINAL DISPATCHER * * * * * * ************************************************** * * * * THIS IS THE TERMINAL DISPATCHER IN TOSS. * ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. * THE DISPATCHER CHECKS IF THERE IS A JOB IN DISPATCHER- * QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. * - IF SO THE QUEUED PROGRAM IS STARTED AND REGISTERS * A1-A14 OF INTERRUPTED PROGRAM ARE SAVED ON A15 STACK. * - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETUR8. * * AN ENTRYPOINT 'LKMDIS' IS ALSO INCLUDED IN THIS MODULE. * THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST.(NO REGISTERS * ON STACK) A CHECK IS MADE IF THERE IS A JOB IN DISPATCHER QUEUE * WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. * - IF QUEUED JOB IS STARTED * - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETU14. * * * AN OPTIONALY ENTRYPOINT 'DISIOE' IS ALSO PROVIDED FOR * ERRORS IN I/O DRIVERS. BIT 0 IS SET IN A1 AND THE SUB- * ROUTINE 'TENDIO' IS CALLED BEFORE THE 'TDISP'-ENTRY * IS ENTERED. * ENTRY 'DISEND' ONLY CALLS 'TENDIO' BEFORE 'TDISP'-ENTRY. EJECT * *********** * ENTRIES * *********** * ENTRY TDISP DISPATCHER ENTRY ENTRY LKMDIS DISPATCHED AFTER LKM ENTRY DISIOE I/O ERROR ENTRY ENTRY DISEND END I/O AND DISPATCH ENTRY DISQUE POINTER TO FIRST PLACE IN DISPATCHER-QUEUE ENTRY GBQUE POINTER TO FIRST TTAB IN BUFFER QUEUE ENTRY PRUN TTAB-ADDRESS OF RUNING PROGRAM ENTRY SRUN RUNNING SEGMENT ENTRY RETU14 RESTORE REGISTER A14-A1 VIA A15 STACK ENTRY RETU13 ENTRY RETU12 ENTRY RETU11 ENTRY RETU10 ENTRY RETUR9 ENTRY RETUR8 ENTRY RETUR7 ENTRY RETUR6 ENTRY RETUR5 ENTRY RETUR4 ENTRY RETUR3 ENTRY RETUR2 ENTRY RETUR1 ENTRY RTNA15 ENTRY FREQUE ENTRY BLOCKL EJECT ENTRY DWTCHP CHANNEL PARAMETER ENTRY DWTST STATUS ENTRY DWTECB ECB ADDRESS ENTRY DWTOR ORDER ENTRY DWTADR POINTER TO ADDRESS-BLOCK ENTRY DWTTAB TTAB-ADDRESS ENTRY DWTWAT WAIT ACTIVATE INDICATOR ENTRY DWTTQ TERMINAL QUEUE ENTRY DWTWA WORK AREA ENTRY DWTTDM DM REQUEST TTAB ADDRESS ENTRY DWTVOL VOLUME NAME ENTRY ECBBA,ECBRL,ECBEL ENTRY ECBRC,ECBCW ENTRY SACT ACTIVE SEGMENT POINTER ENTRY LRUNEW DUMMY FOR MEMORY MANAGEMENT (OVERLAY) EJECT * ************* * EXTERNALS * ************* * * DISPLACEMENT IN TTAB * EXTRN TTB:SA SAVE AREA EXTRN TTB:ST STATUS EXTRN TENDIO END I/O EXTRN EXIT PROGRAM EXIT EXTRN BLOK:S START OF BLOCK POOL EXTRN BLOCKE BLOCK POOL LENGTH EJECT * ****************************************** * * DWT-DISPLACEMENT DECLARATIONS * ***************************************** * DWTCHP EQU 0 CHANNEL PARAMETER DWTST EQU 2 STSTUS DWTECB EQU 4 ECB-ADDRESS DWTOR EQU 6 ORDER DWTADR EQU 8 ADDRESS BLOCK POINTER DWTTAB EQU 10 TTAB-ADDRESS DWTWAT EQU 12 WAIT/ACTIVATE INDICATOR DWTTQ EQU 14 TERMINAL QUEUE DWTWA EQU 16 WORK AREA DWTTDM EQU 16 DM RQEUEST TTAB ADDRESS DWTVOL EQU 44 VOLUME NAME * ****************************** * * ECB-DISPLACEMENTS * ****************************** * ECBBA EQU /02 ECBRL EQU /04 ECBEL EQU /06 ECBRC EQU /08 ECBCW EQU /0A EJECT * * D I S Q U E * * POINTER TO FIRST PLACE IN DISPATCHER QUEUE * DISQUE EQU * DATA 0 * * P R U N * * TTAB-ADDRESS OF RUNING PROGRAM * PRUN EQU * DATA 0 * * S R U N * * RUNNING SEGMENT POINTER * SRUN EQU * DATA 0 ******************************* * * S A C T * **************** SACT DATA 0 ACTIVE SEGMENT POINTER * * L R U N E W * LRUNEW EQU * * * G B Q U E * * POINTER TO FIRST TASK TABLE IN BUFFER QUEUE * GBQUE EQU * DATA 0 FREQUE DATA BLOK:S BLOCKL DATA BLOCKE * EJECT * * D I S I O E * * SET BIT 0 IN ECB RETURN CODE AND GO TO TDISP-ENTRY * DISIOE EQU * 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…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT TDISP REL 8.2 78-09-15 870105040820«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0040}
0x0046…0080 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x004a}
0x0080…008a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0084}
0x008a…00b2 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x008e}
0x00b2…00bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b6}
0x00bc…00e4 Head {h00=0x0024, h01=0x0050, text=»* TDISP = TERMINAL DISPATCHER «, t00=0x0000, t01=0x00c0}
0x00e4…00ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…00f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x00f8…0102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…015a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0124}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…01ac Head {h00=0x0030, h01=0x0050, text=»* THIS IS THE TERMINAL DISPATCHER IN TOSS.«, t00=0x0000, t01=0x017c}
0x01ac…01ee Head {h00=0x003e, h01=0x0050, text=»* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. «, t00=0x0001, t01=0x0020}
0x01ee…0230 Head {h00=0x003e, h01=0x0050, text=»* THE DISPATCHER CHECKS IF THERE IS A JOB IN DISPATCHER-«, t00=0x0001, t01=0x0062}
0x0230…0270 Head {h00=0x003c, h01=0x0050, text=»* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM.«, t00=0x0001, t01=0x00a4}
0x0270…02b0 Head {h00=0x003c, h01=0x0050, text=»* - IF SO THE QUEUED PROGRAM IS STARTED AND REGISTERS «, t00=0x0001, t01=0x00e4}
0x02b0…02f4 Head {h00=0x0040, h01=0x0050, text=»* A1-A14 OF INTERRUPTED PROGRAM ARE SAVED ON A15 STACK. «, t00=0x0001, t01=0x0124}
0x02f4…033c Head {h00=0x0044, h01=0x0050, text=»* - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETUR8. «, t00=0x0001, t01=0x0168}
0x033c…0346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0020}
0x0346…038a Head {h00=0x0040, h01=0x0050, text=»* AN ENTRYPOINT 'LKMDIS' IS ALSO INCLUDED IN THIS MODULE. «, t00=0x0002, t01=0x002a}
0x038a…03d2 Head {h00=0x0044, h01=0x0050, text=»* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST.(NO REGISTERS«, t00=0x0002, t01=0x006e}
0x03d2…041e Head {h00=0x0048, h01=0x0050, text=»* ON STACK) A CHECK IS MADE IF THERE IS A JOB IN DISPATCHER QUEUE «, t00=0x0002, t01=0x00b6}
0x041e…0458 Head {h00=0x0036, h01=0x0050, text=»* WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM.«, t00=0x0002, t01=0x0102}
0x0458…047e Head {h00=0x0022, h01=0x0050, text=»* - IF QUEUED JOB IS STARTED«, t00=0x0002, t01=0x013c}
0x047e…04c6 Head {h00=0x0044, h01=0x0050, text=»* - IF NOT RETURN IS GIVEN TO INTERRUPTED PROGRAM VIA RETU14. «, t00=0x0002, t01=0x0162}
0x04c6…04d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001a}
0x04d0…04da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…051c Head {h00=0x003e, h01=0x0050, text=»* AN OPTIONALY ENTRYPOINT 'DISIOE' IS ALSO PROVIDED FOR «, t00=0x0003, t01=0x002e}
0x051c…055e Head {h00=0x003e, h01=0x0050, text=»* ERRORS IN I/O DRIVERS. BIT 0 IS SET IN A1 AND THE SUB-«, t00=0x0003, t01=0x0070}
0x055e…059e Head {h00=0x003c, h01=0x0050, text=»* ROUTINE 'TENDIO' IS CALLED BEFORE THE 'TDISP'-ENTRY «, t00=0x0003, t01=0x00b2}
0x059e…05b6 Head {h00=0x0014, h01=0x0050, text=»* IS ENTERED. «, t00=0x0003, t01=0x00f2}
0x05b6…05fa Head {h00=0x0040, h01=0x0050, text=»* ENTRY 'DISEND' ONLY CALLS 'TENDIO' BEFORE 'TDISP'-ENTRY.«, t00=0x0003, t01=0x010a}
0x05fa…0608 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x014e}
0x0608…0612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015c}
0x0612…0626 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0166}
0x0626…063a Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x017a}
0x063a…064e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x018e}
0x064e…0658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0658…067e Head {h00=0x0022, h01=0x0050, text=» ENTRY TDISP DISPATCHER ENTRY «, t00=0x0004, t01=0x001c}
0x067e…06a8 Head {h00=0x0026, h01=0x0050, text=» ENTRY LKMDIS DISPATCHED AFTER LKM«, t00=0x0004, t01=0x0042}
0x06a8…06ce Head {h00=0x0022, h01=0x0050, text=» ENTRY DISIOE I/O ERROR ENTRY «, t00=0x0004, t01=0x006c}
0x06ce…06f8 Head {h00=0x0026, h01=0x0050, text=» ENTRY DISEND END I/O AND DISPATCH«, t00=0x0004, t01=0x0092}
0x06f8…0738 Head {h00=0x003c, h01=0x0050, text=» ENTRY DISQUE POINTER TO FIRST PLACE IN DISPATCHER-QUEUE«, t00=0x0004, t01=0x00bc}
0x0738…0772 Head {h00=0x0036, h01=0x0050, text=» ENTRY GBQUE POINTER TO FIRST TTAB IN BUFFER QUEUE«, t00=0x0004, t01=0x00fc}
0x0772…07a4 Head {h00=0x002e, h01=0x0050, text=» ENTRY PRUN TTAB-ADDRESS OF RUNING PROGRAM«, t00=0x0004, t01=0x0136}
0x07a4…07c8 Head {h00=0x0020, h01=0x0050, text=» ENTRY SRUN RUNNING SEGMENT «, t00=0x0004, t01=0x0168}
0x07c8…0804 Head {h00=0x0038, h01=0x0050, text=» ENTRY RETU14 RESTORE REGISTER A14-A1 VIA A15 STACK «, t00=0x0004, t01=0x018c}
0x0804…081a Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU13 «, t00=0x0005, t01=0x0038}
0x081a…0830 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU12 «, t00=0x0005, t01=0x004e}
0x0830…0846 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU11 «, t00=0x0005, t01=0x0064}
0x0846…085c Head {h00=0x0012, h01=0x0050, text=» ENTRY RETU10 «, t00=0x0005, t01=0x007a}
0x085c…0872 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR9 «, t00=0x0005, t01=0x0090}
0x0872…0888 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR8 «, t00=0x0005, t01=0x00a6}
0x0888…089e Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR7 «, t00=0x0005, t01=0x00bc}
0x089e…08b4 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR6 «, t00=0x0005, t01=0x00d2}
0x08b4…08ca Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR5 «, t00=0x0005, t01=0x00e8}
0x08ca…08e0 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR4 «, t00=0x0005, t01=0x00fe}
0x08e0…08f6 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR3 «, t00=0x0005, t01=0x0114}
0x08f6…090c Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR2 «, t00=0x0005, t01=0x012a}
0x090c…0922 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETUR1 «, t00=0x0005, t01=0x0140}
0x0922…0938 Head {h00=0x0012, h01=0x0050, text=» ENTRY RTNA15 «, t00=0x0005, t01=0x0156}
0x0938…094e Head {h00=0x0012, h01=0x0050, text=» ENTRY FREQUE «, t00=0x0005, t01=0x016c}
0x094e…0964 Head {h00=0x0012, h01=0x0050, text=» ENTRY BLOCKL «, t00=0x0005, t01=0x0182}
0x0964…0972 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0008}
0x0972…099a Head {h00=0x0024, h01=0x0050, text=» ENTRY DWTCHP CHANNEL PARAMETER «, t00=0x0006, t01=0x0016}
0x099a…09b6 Head {h00=0x0018, h01=0x0050, text=» ENTRY DWTST STATUS «, t00=0x0006, t01=0x003e}
0x09b6…09d8 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTECB ECB ADDRESS «, t00=0x0006, t01=0x005a}
0x09d8…09f2 Head {h00=0x0016, h01=0x0050, text=» ENTRY DWTOR ORDER«, t00=0x0006, t01=0x007c}
0x09f2…0a20 Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTADR POINTER TO ADDRESS-BLOCK«, t00=0x0006, t01=0x0096}
0x0a20…0a42 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTTAB TTAB-ADDRESS«, t00=0x0006, t01=0x00c4}
0x0a42…0a70 Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTWAT WAIT ACTIVATE INDICATOR «, t00=0x0006, t01=0x00e6}
0x0a70…0a94 Head {h00=0x0020, h01=0x0050, text=» ENTRY DWTTQ TERMINAL QUEUE «, t00=0x0006, t01=0x0114}
0x0a94…0ab2 Head {h00=0x001a, h01=0x0050, text=» ENTRY DWTWA WORK AREA«, t00=0x0006, t01=0x0138}
0x0ab2…0ae0 Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTTDM DM REQUEST TTAB ADDRESS «, t00=0x0006, t01=0x0156}
0x0ae0…0b02 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWTVOL VOLUME NAME «, t00=0x0006, t01=0x0184}
0x0b02…0b22 Head {h00=0x001c, h01=0x0050, text=» ENTRY ECBBA,ECBRL,ECBEL«, t00=0x0007, t01=0x0016}
0x0b22…0b3c Head {h00=0x0016, h01=0x0050, text=» ENTRY ECBRC,ECBCW«, t00=0x0007, t01=0x0036}
0x0b3c…0b66 Head {h00=0x0026, h01=0x0050, text=» ENTRY SACT ACTIVE SEGMENT POINTER«, t00=0x0007, t01=0x0050}
0x0b66…0ba2 Head {h00=0x0038, h01=0x0050, text=» ENTRY LRUNEW DUMMY FOR MEMORY MANAGEMENT (OVERLAY) «, t00=0x0007, t01=0x007a}
0x0ba2…0bb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00b6}
0x0bb0…0bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bba…0bd0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x00ce}
0x0bd0…0be6 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0007, t01=0x00e4}
0x0be6…0bfc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x00fa}
0x0bfc…0c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0110}
0x0c06…0c26 Head {h00=0x001c, h01=0x0050, text=»* DISPLACEMENT IN TTAB«, t00=0x0007, t01=0x011a}
0x0c26…0c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013a}
0x0c30…0c50 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0007, t01=0x0144}
0x0c50…0c6c Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:ST STATUS«, t00=0x0007, t01=0x0164}
0x0c6c…0c8a Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0007, t01=0x0180}
0x0c8a…0caa Head {h00=0x001c, h01=0x0050, text=» EXTRN EXIT PROGRAM EXIT«, t00=0x0008, t01=0x000e}
0x0caa…0cd4 Head {h00=0x0026, h01=0x0050, text=» EXTRN BLOK:S START OF BLOCK POOL «, t00=0x0008, t01=0x002e}
0x0cd4…0cfc Head {h00=0x0024, h01=0x0050, text=» EXTRN BLOCKE BLOCK POOL LENGTH «, t00=0x0008, t01=0x0058}
0x0cfc…0d0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0080}
0x0d0a…0d12 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x008e}
0x0d12…0d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0096}
0x0d1c…0d4e Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0008, t01=0x00a0}
0x0d4e…0d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d2}
0x0d58…0d82 Head {h00=0x0026, h01=0x0050, text=»* DWT-DISPLACEMENT DECLARATIONS «, t00=0x0008, t01=0x00dc}
0x0d82…0d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0106}
0x0d8c…0dbe Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x0110}
0x0dbe…0dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0142}
0x0dc8…0dd0 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x014c}
0x0dd0…0df6 Head {h00=0x0022, h01=0x0050, text=»DWTCHP EQU 0 CHANNEL PARAMETER«, t00=0x0008, t01=0x0154}
0x0df6…0e10 Head {h00=0x0016, h01=0x0050, text=»DWTST EQU 2 STSTUS«, t00=0x0008, t01=0x017a}
0x0e10…0e30 (9, 0, 400) Head {h00=0x001c, h01=0x0050, text=»DWTECB EQU 4 ECB-ADDRESS«, t00=0x0009, t01=0x0004}
0x0e30…0e4a Head {h00=0x0016, h01=0x0050, text=»DWTOR EQU 6 ORDER «, t00=0x0009, t01=0x0024}
0x0e4a…0e74 Head {h00=0x0026, h01=0x0050, text=»DWTADR EQU 8 ADDRESS BLOCK POINTER«, t00=0x0009, t01=0x003e}
0x0e74…0e96 Head {h00=0x001e, h01=0x0050, text=»DWTTAB EQU 10 TTAB-ADDRESS«, t00=0x0009, t01=0x0068}
0x0e96…0ec4 Head {h00=0x002a, h01=0x0050, text=»DWTWAT EQU 12 WAIT/ACTIVATE INDICATOR «, t00=0x0009, t01=0x008a}
0x0ec4…0ee8 Head {h00=0x0020, h01=0x0050, text=»DWTTQ EQU 14 TERMINAL QUEUE «, t00=0x0009, t01=0x00b8}
0x0ee8…0f06 Head {h00=0x001a, h01=0x0050, text=»DWTWA EQU 16 WORK AREA«, t00=0x0009, t01=0x00dc}
0x0f06…0f34 Head {h00=0x002a, h01=0x0050, text=»DWTTDM EQU 16 DM RQEUEST TTAB ADDRESS «, t00=0x0009, t01=0x00fa}
0x0f34…0f56 Head {h00=0x001e, h01=0x0050, text=»DWTVOL EQU 44 VOLUME NAME «, t00=0x0009, t01=0x0128}
0x0f56…0f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014a}
0x0f60…0f86 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0009, t01=0x0154}
0x0f86…0f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017a}
0x0f90…0fae Head {h00=0x001a, h01=0x0050, text=»* ECB-DISPLACEMENTS«, t00=0x0009, t01=0x0184}
0x0fae…0fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb8…0fde Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000a, t01=0x001c}
0x0fde…0fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0042}
0x0fe8…0ffe Head {h00=0x0012, h01=0x0050, text=»ECBBA EQU /02 «, t00=0x000a, t01=0x004c}
0x0ffe…1014 Head {h00=0x0012, h01=0x0050, text=»ECBRL EQU /04 «, t00=0x000a, t01=0x0062}
0x1014…102a Head {h00=0x0012, h01=0x0050, text=»ECBEL EQU /06 «, t00=0x000a, t01=0x0078}
0x102a…1040 Head {h00=0x0012, h01=0x0050, text=»ECBRC EQU /08 «, t00=0x000a, t01=0x008e}
0x1040…1056 Head {h00=0x0012, h01=0x0050, text=»ECBCW EQU /0A «, t00=0x000a, t01=0x00a4}
0x1056…1064 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00ba}
0x1064…106e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c8}
0x106e…1086 Head {h00=0x0014, h01=0x0050, text=»* D I S Q U E «, t00=0x000a, t01=0x00d2}
0x1086…1090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ea}
0x1090…10c6 Head {h00=0x0032, h01=0x0050, text=»* POINTER TO FIRST PLACE IN DISPATCHER QUEUE«, t00=0x000a, t01=0x00f4}
0x10c6…10d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012a}
0x10d0…10e4 Head {h00=0x0010, h01=0x0050, text=»DISQUE EQU *«, t00=0x000a, t01=0x0134}
0x10e4…10f4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000a, t01=0x0148}
0x10f4…10fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0158}
0x10fe…1112 Head {h00=0x0010, h01=0x0050, text=»* P R U N «, t00=0x000a, t01=0x0162}
0x1112…111c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0176}
0x111c…1146 Head {h00=0x0026, h01=0x0050, text=»* TTAB-ADDRESS OF RUNING PROGRAM«, t00=0x000a, t01=0x0180}
0x1146…1150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001a}
0x1150…1162 Head {h00=0x000e, h01=0x0050, text=»PRUN EQU *«, t00=0x000b, t01=0x0024}
0x1162…1172 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000b, t01=0x0036}
0x1172…117c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0046}
0x117c…1190 Head {h00=0x0010, h01=0x0050, text=»* S R U N «, t00=0x000b, t01=0x0050}
0x1190…119a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0064}
0x119a…11be Head {h00=0x0020, h01=0x0050, text=»* RUNNING SEGMENT POINTER «, t00=0x000b, t01=0x006e}
0x11be…11c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0092}
0x11c8…11da Head {h00=0x000e, h01=0x0050, text=»SRUN EQU *«, t00=0x000b, t01=0x009c}
0x11da…11ea Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000b, t01=0x00ae}
0x11ea…1212 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x000b, t01=0x00be}
0x1212…121c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e6}
0x121c…1230 Head {h00=0x0010, h01=0x0050, text=»* S A C T «, t00=0x000b, t01=0x00f0}
0x1230…123a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0104}
0x123a…1252 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000b, t01=0x010e}
0x1252…125a Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0126}
0x125a…1284 Head {h00=0x0026, h01=0x0050, text=»SACT DATA 0 ACTIVE SEGMENT POINTER«, t00=0x000b, t01=0x012e}
0x1284…128c Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0158}
0x128c…1296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0160}
0x1296…12ae Head {h00=0x0014, h01=0x0050, text=»* L R U N E W «, t00=0x000b, t01=0x016a}
0x12ae…12b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0182}
0x12b8…12cc Head {h00=0x0010, h01=0x0050, text=»LRUNEW EQU *«, t00=0x000b, t01=0x018c}
0x12cc…12d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0010}
0x12d6…12ec Head {h00=0x0012, h01=0x0050, text=»* G B Q U E «, t00=0x000c, t01=0x001a}
0x12ec…12f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f6…132e Head {h00=0x0034, h01=0x0050, text=»* POINTER TO FIRST TASK TABLE IN BUFFER QUEUE «, t00=0x000c, t01=0x003a}
0x132e…1338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0072}
0x1338…134c Head {h00=0x0010, h01=0x0050, text=»GBQUE EQU * «, t00=0x000c, t01=0x007c}
0x134c…135c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000c, t01=0x0090}
0x135c…1376 Head {h00=0x0016, h01=0x0050, text=»FREQUE DATA BLOK:S«, t00=0x000c, t01=0x00a0}
0x1376…1390 Head {h00=0x0016, h01=0x0050, text=»BLOCKL DATA BLOCKE«, t00=0x000c, t01=0x00ba}
0x1390…139a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d4}
0x139a…13a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00de}
0x13a8…13b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ec}
0x13b2…13ca Head {h00=0x0014, h01=0x0050, text=»* D I S I O E «, t00=0x000c, t01=0x00f6}
0x13ca…13d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010e}
0x13d4…1412 Head {h00=0x003a, h01=0x0050, text=»* SET BIT 0 IN ECB RETURN CODE AND GO TO TDISP-ENTRY«, t00=0x000c, t01=0x0118}
0x1412…141c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0156}
0x141c…1430 Head {h00=0x0010, h01=0x0050, text=»DISIOE EQU *«, t00=0x000c, t01=0x0160}
0x1430…1456 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 SET RETURN CODE«, t00=0x000c, t01=0x0174}
0x1456…1460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000a}
0x1460…1474 Head {h00=0x0010, h01=0x0050, text=»DISEND EQU *«, t00=0x000d, t01=0x0014}
0x1474…148a Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x000d, t01=0x0028}
0x148a…1498 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x003e}
0x1498…14a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004c}
0x14a2…14ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0056}
0x14ac…14c2 Head {h00=0x0012, h01=0x0050, text=»* T D I S P «, t00=0x000d, t01=0x0060}
0x14c2…14cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0076}
0x14cc…14f4 Head {h00=0x0024, h01=0x0050, text=»* THIS IS THE DISPATCHER ENTRY«, t00=0x000d, t01=0x0080}
0x14f4…14fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a8}
0x14fe…1512 Head {h00=0x0010, h01=0x0050, text=»TDISP EQU * «, t00=0x000d, t01=0x00b2}
0x1512…151e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000d, t01=0x00c6}
0x151e…1534 Head {h00=0x0012, h01=0x0050, text=» LD A5,DISQUE «, t00=0x000d, t01=0x00d2}
0x1534…155a Head {h00=0x0022, h01=0x0050, text=» RF(Z) RETUR8 NO QUEUE,RETURN «, t00=0x000d, t01=0x00e8}
0x155a…1584 Head {h00=0x0026, h01=0x0050, text=» LD A1,18,A15 LOAD PSW FROM STACK «, t00=0x000d, t01=0x010e}
0x1584…15a0 Head {h00=0x0018, h01=0x0050, text=» SRL A1,10 GET LEVEL«, t00=0x000d, t01=0x0138}
0x15a0…15d8 Head {h00=0x0034, h01=0x0050, text=» CC A1,TTB:ST+1,A5 AND COMPARE WITH QUEUED LEVEL«, t00=0x000d, t01=0x0154}
0x15d8…160c Head {h00=0x0030, h01=0x0050, text=» RF(NG) RETUR8 RETURN TO INTERRUPTED PROGRAM«, t00=0x000d, t01=0x018c}
0x160c…1634 Head {h00=0x0024, h01=0x0050, text=» STR A9,A15 SAVE A9-A14 ON STACK«, t00=0x000e, t01=0x0030}
0x1634…1648 Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x000e, t01=0x0058}
0x1648…165c Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x000e, t01=0x006c}
0x165c…1670 Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x000e, t01=0x0080}
0x1670…1684 Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x000e, t01=0x0094}
0x1684…1698 Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x000e, t01=0x00a8}
0x1698…16ac Head {h00=0x0010, h01=0x0050, text=» LD A1,PRUN «, t00=0x000e, t01=0x00bc}
0x16ac…16d2 Head {h00=0x0022, h01=0x0050, text=» STR A1,A15 SAVE PRUN ON STACK«, t00=0x000e, t01=0x00d0}
0x16d2…16f8 Head {h00=0x0022, h01=0x0050, text=» AND DISPATCH QUEUED PROGRAM«, t00=0x000e, t01=0x00f6}
0x16f8…1706 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x011c}
0x1706…1710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012a}
0x1710…171a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0134}
0x171a…1750 Head {h00=0x0032, h01=0x0050, text=»* DISPATCH PROGRAM FIRST IN DISPATCHER QUEUE«, t00=0x000e, t01=0x013e}
0x1750…175a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0174}
0x175a…1794 Head {h00=0x0036, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF PROGRAM TO BE DISPATCHED «, t00=0x000e, t01=0x017e}
0x1794…179e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0028}
0x179e…17b2 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x000f, t01=0x0032}
0x17b2…17e6 Head {h00=0x0030, h01=0x0050, text=» LDR* A1,A5 REMOVE JOB FROM DISPATCHER QUEUE«, t00=0x000f, t01=0x0046}
0x17e6…17fc Head {h00=0x0012, h01=0x0050, text=» ST A1,DISQUE «, t00=0x000f, t01=0x007a}
0x17fc…182a Head {h00=0x002a, h01=0x0050, text=» LD A1,TTB:SA,A5 LOAD DISPATCH ADDRESS«, t00=0x000f, t01=0x0090}
0x182a…1850 Head {h00=0x0022, h01=0x0050, text=» LD A2,TTB:ST+1,A5 LOAD LEVEL «, t00=0x000f, t01=0x00be}
0x1850…1862 Head {h00=0x000e, h01=0x0050, text=» SLL A2,10«, t00=0x000f, t01=0x00e4}
0x1862…1886 Head {h00=0x0020, h01=0x0050, text=» CWK A2,/C000 MONITOR JOB ? «, t00=0x000f, t01=0x00f6}
0x1886…18a0 Head {h00=0x0016, h01=0x0050, text=» RF(E) DIS200 YES «, t00=0x000f, t01=0x011a}
0x18a0…18ca Head {h00=0x0026, h01=0x0050, text=» STR A1,A15 STORE DISPATCH ADDRESS«, t00=0x000f, t01=0x0134}
0x18ca…18f0 Head {h00=0x0022, h01=0x0050, text=» STR A2,A15 AND LEVEL ON STACK«, t00=0x000f, t01=0x015e}
0x18f0…1902 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x000f, t01=0x0184}
0x1902…1934 Head {h00=0x002e, h01=0x0050, text=» ADK A3,14 SET ADDRESS TO A1 IN SAVE AREA «, t00=0x0010, t01=0x0008}
0x1934…1952 Head {h00=0x001a, h01=0x0050, text=» LDK A1,14 SET COUNTER«, t00=0x0010, t01=0x003a}
0x1952…1982 Head {h00=0x002c, h01=0x0050, text=»DIS110 LDR* A2,A3 SET UP A1-A14 ON STACK«, t00=0x0010, t01=0x0058}
0x1982…1996 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0010, t01=0x0088}
0x1996…19a8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0010, t01=0x009c}
0x19a8…19ba Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0010, t01=0x00ae}
0x19ba…19d0 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIS110«, t00=0x0010, t01=0x00c0}
0x19d0…1a0e Head {h00=0x003a, h01=0x0050, text=»DIS120 ST A5,PRUN SET TABB-ADDRES FOR DISPATCHED PROG.«, t00=0x0010, t01=0x00d6}
0x1a0e…1a40 Head {h00=0x002e, h01=0x0050, text=» START QUEUED PROGRAM (A1-A14 ON STACK) «, t00=0x0010, t01=0x0114}
0x1a40…1a4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0146}
0x1a4e…1a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0154}
0x1a58…1a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015e}
0x1a62…1a78 Head {h00=0x0012, h01=0x0050, text=»* R E T U R «, t00=0x0010, t01=0x0168}
0x1a78…1a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017e}
0x1a82…1ac6 Head {h00=0x0040, h01=0x0050, text=»* ENTRYPOINTS RETU14-RETUR1 :RELOAD REGISTERS FROM STACK «, t00=0x0010, t01=0x0188}
0x1ac6…1ae4 Head {h00=0x001a, h01=0x0050, text=»* AND RETURN VIA A15«, t00=0x0011, t01=0x003c}
0x1ae4…1aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x005a}
0x1aee…1b0a Head {h00=0x0018, h01=0x0050, text=»RETU14 LDR* A14,A15 «, t00=0x0011, t01=0x0064}
0x1b0a…1b26 Head {h00=0x0018, h01=0x0050, text=»RETU13 LDR* A13,A15 «, t00=0x0011, t01=0x0080}
0x1b26…1b42 Head {h00=0x0018, h01=0x0050, text=»RETU12 LDR* A12,A15 «, t00=0x0011, t01=0x009c}
0x1b42…1b5e Head {h00=0x0018, h01=0x0050, text=»RETU11 LDR* A11,A15 «, t00=0x0011, t01=0x00b8}
0x1b5e…1b7a Head {h00=0x0018, h01=0x0050, text=»RETU10 LDR* A10,A15 «, t00=0x0011, t01=0x00d4}
0x1b7a…1b94 Head {h00=0x0016, h01=0x0050, text=»RETUR9 LDR* A9,A15«, t00=0x0011, t01=0x00f0}
0x1b94…1bae Head {h00=0x0016, h01=0x0050, text=»RETUR8 LDR* A8,A15«, t00=0x0011, t01=0x010a}
0x1bae…1bc8 Head {h00=0x0016, h01=0x0050, text=»RETUR7 LDR* A7,A15«, t00=0x0011, t01=0x0124}
0x1bc8…1be2 Head {h00=0x0016, h01=0x0050, text=»RETUR6 LDR* A6,A15«, t00=0x0011, t01=0x013e}
0x1be2…1bfc Head {h00=0x0016, h01=0x0050, text=»RETUR5 LDR* A5,A15«, t00=0x0011, t01=0x0158}
0x1bfc…1c16 Head {h00=0x0016, h01=0x0050, text=»RETUR4 LDR* A4,A15«, t00=0x0011, t01=0x0172}
0x1c16…1c30 Head {h00=0x0016, h01=0x0050, text=»RETUR3 LDR* A3,A15«, t00=0x0011, t01=0x018c}
0x1c30…1c4a Head {h00=0x0016, h01=0x0050, text=»RETUR2 LDR* A2,A15«, t00=0x0012, t01=0x0016}
0x1c4a…1c5c Head {h00=0x000e, h01=0x0050, text=» RF RETUR1«, t00=0x0012, t01=0x0030}
0x1c5c…1c76 Head {h00=0x0016, h01=0x0050, text=»RTNA15 STR A1,A15 «, t00=0x0012, t01=0x0042}
0x1c76…1c96 Head {h00=0x001c, h01=0x0050, text=»RETUR1 LDK A1,/40 BIT 9 «, t00=0x0012, t01=0x005c}
0x1c96…1cc8 Head {h00=0x002e, h01=0x0050, text=» ORS A1,4,A15 SET PSW IN A15 STACK TO ENB «, t00=0x0012, t01=0x007c}
0x1cc8…1cdc Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0012, t01=0x00ae}
0x1cdc…1cec Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0012, t01=0x00c2}
0x1cec…1cfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00d2}
0x1cfa…1d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e0}
0x1d04…1d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ea}
0x1d0e…1d32 Head {h00=0x0020, h01=0x0050, text=»* MONITOR JOB DISPATCHING «, t00=0x0012, t01=0x00f4}
0x1d32…1d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0118}
0x1d3c…1d50 Head {h00=0x0010, h01=0x0050, text=»DIS200 EQU *«, t00=0x0012, t01=0x0122}
0x1d50…1d94 Head {h00=0x0040, h01=0x0050, text=» LDKL A3,LKMDIS STORE ADDRESS TO BE DISPATCHED AFTER MONITOR«, t00=0x0012, t01=0x0136}
0x1d94…1db4 Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 JOB ON STACK«, t00=0x0012, t01=0x017a}
0x1db4…1de0 Head {h00=0x0028, h01=0x0050, text=» STR A2,A15 STORE LEVEL 48 ON STACK «, t00=0x0013, t01=0x000a}
0x1de0…1e0a Head {h00=0x0026, h01=0x0050, text=» SUKL A15,16 ADJUST STACK POINTER «, t00=0x0013, t01=0x0036}
0x1e0a…1e48 Head {h00=0x003a, h01=0x0050, text=» STR A1,A15 SET MONITOR JOB DISPATCH ADDRESS ON STACK «, t00=0x0013, t01=0x0060}
0x1e48…1e66 Head {h00=0x001a, h01=0x0050, text=» STR A2,A15 SET LEVEL «, t00=0x0013, t01=0x009e}
0x1e66…1e96 Head {h00=0x002c, h01=0x0050, text=» LD A1,TTB:SA+2,A5 LOAD PARAMETER IN A1 «, t00=0x0013, t01=0x00bc}
0x1e96…1eba Head {h00=0x0020, h01=0x0050, text=» STR A1,A15 AND SET ON STACK«, t00=0x0013, t01=0x00ec}
0x1eba…1eea Head {h00=0x002c, h01=0x0050, text=» CF A15,EXIT DO EXIT ON MONITOR JOB AND «, t00=0x0013, t01=0x0110}
0x1eea…1f0a Head {h00=0x001c, h01=0x0050, text=» RB RETUR1 THEN START IT«, t00=0x0013, t01=0x0140}
0x1f0a…1f18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0160}
0x1f18…1f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016e}
0x1f22…1f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0178}
0x1f2c…1f44 Head {h00=0x0014, h01=0x0050, text=»* L K M D I S «, t00=0x0013, t01=0x0182}
0x1f44…1f4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000a}
0x1f4e…1f88 Head {h00=0x0036, h01=0x0050, text=»* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST«, t00=0x0014, t01=0x0014}
0x1f88…1faa Head {h00=0x001e, h01=0x0050, text=»* NO REGISTERS ON STACK «, t00=0x0014, t01=0x004e}
0x1faa…1fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0070}
0x1fb4…1fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007a}
0x1fbe…1fd2 Head {h00=0x0010, h01=0x0050, text=»LKMDIS EQU *«, t00=0x0014, t01=0x0084}
0x1fd2…1fde Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0014, t01=0x0098}
0x1fde…1ff4 Head {h00=0x0012, h01=0x0050, text=» LD A5,DISQUE «, t00=0x0014, t01=0x00a4}
0x1ff4…201a Head {h00=0x0022, h01=0x0050, text=» RF(Z) DIS010 NO QUEUE,RETURN «, t00=0x0014, t01=0x00ba}
0x201a…2044 Head {h00=0x0026, h01=0x0050, text=» LD A1,32,A15 LOAD PSW FROM STACK «, t00=0x0014, t01=0x00e0}
0x2044…2060 Head {h00=0x0018, h01=0x0050, text=» SRL A1,10 GET LEVEL«, t00=0x0014, t01=0x010a}
0x2060…2098 Head {h00=0x0034, h01=0x0050, text=» CC A1,TTB:ST+1,A5 AND COMPARE WITH QUEUED LEVEL«, t00=0x0014, t01=0x0126}
0x2098…20c2 Head {h00=0x0026, h01=0x0050, text=» RB(G) DIS100 DISPATCH FROM QUEUE «, t00=0x0014, t01=0x015e}
0x20c2…20dc Head {h00=0x0016, h01=0x0050, text=»DIS010 LDR* A5,A15«, t00=0x0014, t01=0x0188}
0x20dc…210c Head {h00=0x002c, h01=0x0050, text=» RB DIS120 RETURN TO INTERRUPTED PROGRAM«, t00=0x0015, t01=0x0012}
0x210c…2116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0042}
0x2116…2120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004c}
0x2120…212c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0015, t01=0x0056}
0x212c…2130 Head {h00=0x4004, h01=0x0000}
0x2130…2134 00 15 00 62 ┆ b┆
0x2134…213c (22, 1, 8) 20 04 00 00 00 16 00 04 ┆ ┆
0x213c…2144 (23, 0, 8) 04 a8 04 b0 04 b8 04 c0 ┆ ┆
0x2144…2194 (24, 0, 398) 00 32 00 50 5c 49 44 45 4e 54 20 4c 52 50 49 4e 54 20 5c 52 45 4c 20 38 2e 31 20 37 38 2d 30 34 2d 32 31 20 20 38 37 30 31 30 35 30 34 30 38 31 30 20 00 00 00 04 00 04 00 50 00 00 00 3a 00 06 00 50 2a 20 00 00 00 42 00 36 00 50 2a 2a 2a 2a ┆ 2 P IDENT LRPINT REL 8.1 78-04-21 870105040810 P : P* B 6 P****┆
0x2194…21e4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 4c 00 06 00 50 2a 20 00 00 00 86 00 24 00 50 2a 20 20 20 50 48 49 4c 49 50 53 20 54 45 52 4d ┆********************************************** L P* $ P* PHILIPS TERM┆
0x21e4…2234 49 4e 41 4c 20 53 59 53 54 45 4d 20 50 54 53 20 00 00 00 90 00 06 00 50 2a 20 00 00 00 b8 00 30 00 50 2a 20 20 20 4c 52 50 49 4e 54 20 3d 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 53 20 46 4f 52 20 4c 4b 4d 2c 20 52 54 43 00 00 ┆INAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC ┆
0x2234…2284 00 c2 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 50 4f 57 45 52 20 46 41 49 4c 55 52 45 00 00 00 f6 00 06 00 50 2a 20 00 00 01 1c 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 ┆ " P* AND POWER FAILURE P* P* & P* 0 P* :┆
0x2284…22d2 00 06 00 50 2a 20 00 00 01 44 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 01 4e 00 06 00 50 2a 20 00 00 01 88 ┆ P* D 6 P************************************************** N P* ┆
0x22d2…2322 (25, 0, 400) 00 06 00 50 2a 20 00 01 00 04 00 06 00 50 2a 20 00 01 00 0e 00 3a 00 50 2a 20 20 20 54 48 49 53 20 4d 4f 44 55 4c 45 20 43 4f 4e 54 41 49 4e 53 20 4d 41 4e 44 41 54 4f 52 59 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 53 20 00 01 ┆ P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS ┆
0x2322…2372 00 18 00 1c 00 50 2a 20 20 20 46 4f 52 20 54 4f 53 53 2e 20 54 48 45 53 45 20 41 52 45 3a 00 01 00 56 00 06 00 50 2a 20 00 01 00 76 00 1e 00 50 2a 20 20 20 2d 49 48 4c 4b 4d 3a 20 4c 4b 4d 2d 49 4e 54 45 52 52 55 50 54 20 00 01 00 80 00 06 ┆ P* FOR TOSS. THESE ARE: V P* v P* -IHLKM: LKM-INTERRUPT ┆
0x2372…23c2 00 50 2a 20 00 01 00 a2 00 1e 00 50 2a 20 20 20 2d 49 48 52 54 43 3a 20 52 54 43 2d 49 4e 54 45 52 52 55 50 54 20 00 01 00 ac 00 06 00 50 2a 20 00 01 00 ce 00 28 00 50 2a 20 20 20 2d 49 48 50 46 41 52 3a 20 50 4f 57 45 52 20 46 41 49 4c 55 ┆ P* P* -IHRTC: RTC-INTERRUPT P* ( P* -IHPFAR: POWER FAILU┆
0x23c2…2412 52 45 20 49 4e 54 45 52 52 55 50 54 00 01 00 d8 00 06 00 50 2a 20 00 01 01 04 00 3a 00 50 2a 20 20 20 49 4e 20 54 48 49 53 20 4d 4f 44 55 4c 45 20 45 4e 54 52 49 45 53 20 46 4f 52 20 52 45 51 55 45 53 54 20 45 52 52 4f 52 53 20 41 4c 53 4f ┆RE INTERRUPT P* : P* IN THIS MODULE ENTRIES FOR REQUEST ERRORS ALSO┆
0x2412…2462 20 41 52 45 00 01 01 0e 00 1c 00 50 2a 20 20 20 50 52 4f 56 49 44 45 44 2e 20 54 48 45 53 45 20 41 52 45 3a 00 01 01 4c 00 06 00 50 2a 20 00 01 01 6c 00 32 00 50 2a 20 20 20 2d 4c 4b 4d 52 51 45 3a 20 53 45 54 20 41 37 3d 2d 31 20 51 55 45 ┆ ARE P* PROVIDED. THESE ARE: L P* l 2 P* -LKMRQE: SET A7=-1 QUE┆
0x2462…24b2 (26, 0, 400) 55 45 20 4a 4f 42 20 41 4e 44 20 44 49 53 50 41 54 43 48 20 00 01 01 76 00 06 00 50 2a 20 00 02 00 1c 00 28 00 50 2a 20 20 20 2d 4c 4b 4d 51 44 49 3a 20 51 55 45 55 45 20 4a 4f 42 20 41 4e 44 20 44 49 53 50 41 54 43 48 20 00 02 00 26 00 06 ┆UE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH & ┆
0x24b2…2502 00 50 2a 20 00 02 00 52 00 0a 00 50 5c 45 4a 45 43 54 00 02 00 5c 00 10 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 02 00 6a 00 10 00 50 2a 20 45 4e 54 52 49 45 53 20 2a 20 00 02 00 7e 00 10 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 02 ┆ P* R P EJECT P*********** j P* ENTRIES * ~ P*********** ┆
0x2502…2552 00 92 00 06 00 50 2a 20 00 02 00 a6 00 26 00 50 5c 45 4e 54 52 59 5c 49 48 4c 4b 4d 5c 4c 4b 4d 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 00 02 00 b0 00 24 00 50 5c 45 4e 54 52 59 5c 4c 4b 4d 52 51 45 5c 4c 4b 4d 20 52 45 51 55 ┆ P* & P ENTRY IHLKM LKM INTERRUPT HANDLER $ P ENTRY LKMRQE LKM REQU┆
0x2552…25a2 45 53 54 20 45 52 52 4f 52 20 00 02 00 da 00 24 00 50 5c 45 4e 54 52 59 5c 4c 4b 4d 51 44 49 5c 51 55 45 55 45 20 41 4e 44 20 44 49 53 50 41 54 43 48 00 02 01 02 00 06 00 50 2a 20 00 02 01 2a 00 26 00 50 5c 45 4e 54 52 59 5c 49 48 52 54 43 ┆EST ERROR $ P ENTRY LKMQDI QUEUE AND DISPATCH P* * & P ENTRY IHRTC┆
0x25a2…25f2 5c 52 54 43 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 00 02 01 34 00 38 00 50 5c 45 4e 54 52 59 5c 54 49 4d 51 55 45 5c 50 4f 49 4e 54 45 52 20 54 4f 20 46 49 52 53 54 20 42 4c 4f 43 4b 20 49 4e 20 54 49 4d 45 52 20 51 55 45 55 ┆ RTC INTERRUPT HANDLER 4 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEU┆
0x25f2…2642 (27, 0, 400) 45 20 00 02 01 5e 00 20 00 50 5c 45 4e 54 52 59 5c 4d 4f 4e 43 4c 4f 5c 4d 4f 4e 49 54 4f 52 20 43 4c 4f 43 4b 20 00 03 00 0a 00 32 00 50 5c 45 4e 54 52 59 5c 49 48 50 46 41 52 5c 50 4f 57 45 52 20 46 41 49 4c 55 52 45 20 49 4e 54 45 52 52 ┆E ^ P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERR┆
0x2642…2692 55 50 54 20 48 41 4e 44 4c 45 52 20 00 03 00 2e 00 26 00 50 5c 45 4e 54 52 59 5c 49 4e 49 46 4c 47 5c 49 4e 49 54 49 41 4c 49 5a 41 54 49 4f 4e 20 46 4c 41 47 20 00 03 00 64 00 06 00 50 2a 20 00 03 00 8e 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a ┆UPT HANDLER . & P ENTRY INIFLG INITIALIZATION FLAG d P* P********┆
0x2692…26e2 2a 2a 2a 2a 2a 20 00 03 00 98 00 12 00 50 2a 20 45 58 54 45 52 4e 41 4c 53 20 2a 20 00 03 00 ae 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 00 c4 00 06 00 50 2a 20 00 03 00 da 00 1c 00 50 5c 45 58 54 52 4e 5c 54 44 49 53 50 ┆***** P* EXTERNALS * P************* P* P EXTRN TDISP┆
0x26e2…2732 5c 44 49 53 50 41 54 43 48 45 52 20 00 03 00 e4 00 3a 00 50 5c 45 58 54 52 4e 5c 4c 4b 4d 44 49 53 5c 45 4e 54 52 59 20 54 4f 20 42 45 20 44 49 53 50 41 54 43 48 45 44 20 41 46 54 52 20 4c 4b 4d 2d 52 45 51 55 45 53 54 20 00 03 01 04 00 26 ┆ DISPATCHER : P EXTRN LKMDIS ENTRY TO BE DISPATCHED AFTR LKM-REQUEST &┆
0x2732…2782 00 50 5c 45 58 54 52 4e 5c 50 52 55 4e 5c 54 54 41 42 20 4f 46 20 52 55 4e 49 4e 47 20 50 52 4f 47 52 41 4d 00 03 01 42 00 24 00 50 5c 45 58 54 52 4e 5c 51 54 4a 4f 42 5c 51 55 45 55 45 20 54 45 52 4d 49 4e 41 4c 20 4a 4f 42 20 00 03 01 6c ┆ P EXTRN PRUN TTAB OF RUNING PROGRAM B $ P EXTRN QTJOB QUEUE TERMINAL JOB l┆
0x2782…27d2 (28, 0, 400) 00 24 00 50 5c 45 58 54 52 4e 5c 53 57 4c 34 38 5c 53 57 49 54 43 48 20 54 4f 20 4c 45 56 45 4c 20 34 38 20 00 04 00 04 00 32 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 53 41 5c 46 49 52 53 54 20 57 4f 52 44 20 4f 46 20 53 41 56 45 20 41 52 45 ┆ $ P EXTRN SWL48 SWITCH TO LEVEL 48 2 P EXTRN TTB:SA FIRST WORD OF SAVE ARE┆
0x27d2…2822 41 20 49 4e 20 54 54 41 42 20 00 04 00 2c 00 2c 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 54 44 5c 53 54 41 52 54 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 44 45 56 49 43 45 53 20 00 04 00 62 00 22 00 50 5c 45 58 54 52 4e 5c 4c 4b 4d 41 4c 5c 4c ┆A IN TTAB , , P EXTRN TTB:TD START OF TERMINAL DEVICES b " P EXTRN LKMAL L┆
0x2822…2872 4b 4d 20 52 45 51 55 45 53 54 20 54 41 42 4c 45 00 04 00 92 00 20 00 50 5c 45 58 54 52 4e 5c 46 52 45 42 4c 4b 5c 53 45 54 20 42 4c 4f 43 4b 20 46 52 45 45 00 04 00 b8 00 22 00 50 5c 45 58 54 52 4e 5c 51 4d 4a 4f 42 5c 51 55 45 55 45 20 4d ┆KM REQUEST TABLE P EXTRN FREBLK SET BLOCK FREE " P EXTRN QMJOB QUEUE M┆
0x2872…28c2 4f 4e 49 54 4f 52 20 4a 4f 42 00 04 00 dc 00 36 00 50 5c 45 58 54 52 4e 5c 52 45 54 55 31 34 5c 52 45 53 54 4f 52 45 20 41 31 2d 41 31 34 20 46 52 4f 4d 20 49 4e 54 45 52 52 55 50 54 20 53 54 41 43 4b 20 00 04 01 02 00 22 00 50 5c 45 58 54 ┆ONITOR JOB 6 P EXTRN RETU14 RESTORE A1-A14 FROM INTERRUPT STACK " P EXT┆
0x28c2…2912 52 4e 5c 43 56 54 43 4c 4b 5c 52 45 41 4c 20 54 49 4d 45 20 43 4c 4f 43 4b 20 00 04 01 3c 00 24 00 50 5c 45 58 54 52 4e 5c 50 46 49 4e 49 54 5c 52 45 53 54 41 52 54 20 4f 46 20 44 45 56 49 43 45 53 00 04 01 62 00 22 00 50 5c 45 58 54 52 4e ┆RN CVTCLK REAL TIME CLOCK < $ P EXTRN PFINIT RESTART OF DEVICES b " P EXTRN┆