|
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: 11032 (0x2b18)
Notes: pts_type(SC)
Names: »TDISP.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/TDISP.SC«
IDENT TDISP REL 11.0 81-01-26 870105041100 * * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TDISP = TOSS DISPATCHER * ************************************************** * * * THIS IS THE TASK DISPATCHER IN TOSS. * ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. * THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER * QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. * - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER * PRIORITY TASK IS STARTED. * - IF NOT, RETURN IS GIVEN TO INTERRUPTED PROGRAM. * * ENTRY 'DISEND' CALLS TENDIO BEFORE TDISP. * * ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. * * ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. * * ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. * * ENTRY 'TEXIT' EXITS A TASK BEFORE TDISP. * * ENTRY 'TPAUSE' SETS A TASK IN PAUSE STATE BEFORE TDISP. * * ENTRY 'ACTDIS' ACTIVATES A TASK BEFORE TDISP. * * ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. * EJECT TDISP * * *********** * ENTRIES * *********** * * ENTRY TDISP DISPATCHER ENTRY ENTRY TPAUSE PAUSE TASK ENTRY TEXIT EXIT TASK ENTRY MEXIT EXIT MONITOR TASK ENTRY QMEXIT QUEUE TASK AND EXIT MONITOR TASK ENTRY ACTDIS ACTIVATE TASK AND DISPATCH ENTRY DISIOE I/O ERROR ENTRY ENTRY DISEND END I/O AND DISPATCH ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE ENTRY PRUN TTAB ADDRESS OF RUNNING TASK ENTRY RETUR8 LOAD 8 REGISTERS AND RETURN EJECT TDISP * * ************* * EXTERNALS * ************* * * EXTRN ACTOT ACTIVATE TASK EXTRN TTB:AP ACB ADDRESS EXTRN TTB:SA SAVE AREA EXTRN TTB:ST STATUS EXTRN TTB:PW PROGRAM STATUS WORD EXTRN TTB:MT MMUTAB EXTRN TTB:CB CURRENT SEGMENT BASE EXTRN TTB:SB SEGMENT BLOCK ADDRESS EXTRN SEG:PB SEGMENT PAGE BLOCK ADDRESS EXTRN PAG:PA PAGE ADDRESS EXTRN PAG:QB PAGE QUEUE BACKWARD POINTER EXTRN TENDIO END I/O EXTRN EXIT PROGRAM EXIT EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK EXTRN QTJOB QUEUE TASK FOR DISPATCHING EXTRN ACBLAP LOGICAL ADDRESS OF CODE PAGE EXTRN ACBMMP MMU TABLE PAGE ENTRY EXTRN ACBNPE NUMBER OF PAGE ENTRIES EJECT TDISP * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * * A PROGRAM VERSION USING TOSS DISC PAGING * IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 1 * * * A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING * APPLICATION TASKS AT DIFFERENT PRIORITY LEVELS USING THE * SAME SEGMENT IS OBTAINED BY SETTING DIFPRI EQU 1. * DIFPRI EQU 0 * EJECT TDISP * * D I S Q U E * * POINTER TO FIRST TASK IN DISPATCHER QUEUE * DISQUE DATA 0 * * P R U N * * TTAB ADDRESS OF RUNNING TASK * PRUN DATA 0 EJECT TDISP * * R E T U R 8 * * LOAD 8 REGISTERS FROM STACK AND RETURN * RETUR8 EQU * IFT CPU852=0 MLR 8,A15 XIF IFT CPU852=1 LDR* A8,A15 LDR* A7,A15 LDR* A6,A15 LDR* A5,A15 LDR* A4,A15 LDR* A3,A15 LDR* A2,A15 LDR* A1,A15 XIF RTN A15 EJECT TDISP * * Q M E X I T, M E X I T, T E X I T * * DO EXIT ON (MONITOR) TASK AND GO TO TDISP * QMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING * MEXIT INH LD A5,PRUN CM PRUN * TEXIT EQU * CF A15,EXIT RF TDISP * * A C T D I S * * ACTIVATE TASK AND GO TO TDISP * ACTDIS CF A15,ACTOT RF TDISP EJECT TDISP * * D I S I O E * * SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND * DISIOE LDKL A1,/8000 * * D I S E N D * * CALL TENDIO AND GO TO TDISP * DISEND CF A15,TENDIO * * T P A U S E * * PAUSE TASK (I. E. GO TO TDISP) * TPAUSE EQU * EJECT TDISP * * T D I S P * * THIS IS THE DISPATCHER ENTRY * TDISP INH LC A1,18,A15 LOAD PSW FROM STACK ANK A1,/FC SUK A1,/C4 RB(L) RETUR8 LEVEL < 49, MONITOR ROUTINE * * CHECK DISPATCHER QUEUE * TDISCQ LDKL A2,DISQUE LDR* A3,A2 RB(Z) RETUR8 QUEUE EMPTY LD A5,PRUN RF(Z) TDCQ10 IDLE LOOP RUNNING LD A4,TTB:ST+1,A5 COMPARE RUNNING CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES RB(NG) RETUR8 RUNNING HIGHER OR SAME TDCQ10 LDR* A6,A3 QUEUED HIGHER STR A6,A2 REMOVE IT FROM QUEUE IFT DSKPAG=1 LD A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR RF(Z) TDISSW NONE LDR* A7,A1 RF(N) TDISSW SEGMENT LOADED CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK RB TDISCQ TAKE NEXT TASK INSTEAD XIF EJECT TDISP * * SWITCH TASKS * TDISSW ST A3,PRUN SET NEW RUNNING TASK ADK A5,0 CHECK OLD RUNNING TASK RF(Z) TDISST IDLE LOOP ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY RF(Z) TDSW20 EMPTY QUEUE TDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND LDR A2,A6 LDR* A6,A2 RB(NZ) TDSW10 STILL SOMETHING IN QUEUE TDSW20 STR A5,A2 PUT IN QUEUE STR A6,A5 ST A14,TTB:SA+28,A5 SAVE REGISTERS LDR A14,A5 IFT CPU852=0 MLR 8,A15 MS 13,TTB:SA+2,A14 MLR 2,A15 XIF IFT CPU852=1 LDR* A8,A15 LDR* A7,A15 LDR* A6,A15 LDR* A5,A15 LDR* A4,A15 LDR* A3,A15 LDR* A2,A15 LDR* A1,A15 ST A13,TTB:SA+26,A14 ST A12,TTB:SA+24,A14 ST A11,TTB:SA+22,A14 ST A10,TTB:SA+20,A14 ST A9,TTB:SA+18,A14 ST A8,TTB:SA+16,A14 ST A7,TTB:SA+14,A14 ST A6,TTB:SA+12,A14 ST A5,TTB:SA+10,A14 ST A4,TTB:SA+8,A14 ST A3,TTB:SA+6,A14 ST A2,TTB:SA+4,A14 ST A1,TTB:SA+2,A14 LDR* A2,A15 LDR* A1,A15 XIF ST A1,TTB:SA,A14 AND PC ST A2,TTB:PW,A14 AND PSW IN TTAB IFT DSKPAG+DIFPRI=2 LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR RF(Z) TDISST NONE LDR* A2,A1 GET SEGM STATUS LDKL A3,/1000 TM A2,A3 CHECK IF SEGM USED BY INT TASK RF(NZ) TDISST YES ORRS A3,A1 SET SEGM USED BY INT TASK LD A3,SEG:PB,A1 ST A14,PAG:QB,A3 AND THAT IT WAS THIS TASK XIF EJECT TDISP * * START NEW TASK * TDISST LD A14,PRUN IFT DSKPAG=1 LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR RF(Z) TDST30 NONE LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR IFT DIFPRI=0 LDR* A2,A4 CHECK IF PAGE IN PAGQUE RF(Z) TDST20 NOT IN QUEUE XIF IFT DSKPAG+DIFPRI=2 LDR* A2,A4 CHECK IF PAGE IN PAGQUE RF(NZ) TDST10 YES LDR* A3,A1 NO GET SEGM STATUS ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK RF(Z) TDST20 NO CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK RF(NE) TDST20 NO XRRS A3,A1 YES RESET USED BY INT TASK RF TDST20 XIF IFT DSKPAG=1 TDST10 LD A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE STR A2,A3 ST A3,PAG:QB,A2 CMR A4 TDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS IFT MMUPAG=1 ECR A2,A1 CALC PHYS PAGE ADDR ANK A2,/FC LDR A3,A14 AND MMU PAGE ENTRY IN TTAB LD A6,TTB:AP,A14 ACB ADDRESS AD A3,ACBMMP,A6 LD A4,ACBNPE,A6 AND GET NUMBER OF ENTRIES TDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE SUK A4,1 RF(Z) TDST25 ADK A2,4 ADK A3,2 RB TDST22 TDST25 EQU * TL TTB:MT,A14 LOAD MMU TABLE SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE ANKL A1,/FFE OR A1,ACBLAP,A6 ES* A1,TTB:CB,A14 UPDATE CURRENT SEGMENT BASE RF TDST35 XIF IFT DSKPAG-MMUPAG=1 ST* A1,TTB:CB,A14 UPDATE CURRENT SEGMENT BASE XIF TDST30 EQU * IFT MMUPAG=1 TL TTB:MT,A14 LOAD MMU TABLE XIF TDST35 LD A1,TTB:SA,A14 GET NEW PC LD A2,TTB:PW,A14 AND PSW IFT CPU852=0 MSR 2,A15 PUT PC AND PSW ON STACK ML 14,TTB:SA+2,A14 LOAD REGISTERS XIF IFT CPU852=1 STR A1,A15 PUT PC STR A2,A15 AND PSW ON STACK LD A1,TTB:SA+2,A14 LOAD REGISTERS LD A2,TTB:SA+4,A14 LD A3,TTB:SA+6,A14 LD A4,TTB:SA+8,A14 LD A5,TTB:SA+10,A14 LD A6,TTB:SA+12,A14 LD A7,TTB:SA+14,A14 LD A8,TTB:SA+16,A14 LD A9,TTB:SA+18,A14 LD A10,TTB:SA+20,A14 LD A11,TTB:SA+22,A14 LD A12,TTB:SA+24,A14 LD A13,TTB:SA+26,A14 LD A14,TTB:SA+28,A14 XIF RTN A15 START THE TASK END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT TDISP REL 11.0 81-01-26 870105041100«, 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…0050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004a}
0x0050…008a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0054}
0x008a…0094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008e}
0x0094…00bc Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0098}
0x00bc…00c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c0}
0x00c6…00ea Head {h00=0x0020, h01=0x0050, text=»* TDISP = TOSS DISPATCHER «, t00=0x0000, t01=0x00ca}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…012e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x00f8}
0x012e…0138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…0142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013c}
0x0142…0172 Head {h00=0x002c, h01=0x0050, text=»* THIS IS THE TASK DISPATCHER IN TOSS.«, t00=0x0000, t01=0x0146}
0x0172…01b4 Head {h00=0x003e, h01=0x0050, text=»* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. «, t00=0x0000, t01=0x0176}
0x01b4…01f6 Head {h00=0x003e, h01=0x0050, text=»* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER«, t00=0x0001, t01=0x0028}
0x01f6…0236 Head {h00=0x003c, h01=0x0050, text=»* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM.«, t00=0x0001, t01=0x006a}
0x0236…0274 Head {h00=0x003a, h01=0x0050, text=»* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER«, t00=0x0001, t01=0x00aa}
0x0274…029c Head {h00=0x0024, h01=0x0050, text=»* PRIORITY TASK IS STARTED. «, t00=0x0001, t01=0x00e8}
0x029c…02da Head {h00=0x003a, h01=0x0050, text=»* - IF NOT, RETURN IS GIVEN TO INTERRUPTED PROGRAM. «, t00=0x0001, t01=0x0110}
0x02da…02e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014e}
0x02e4…031a Head {h00=0x0032, h01=0x0050, text=»* ENTRY 'DISEND' CALLS TENDIO BEFORE TDISP. «, t00=0x0001, t01=0x0158}
0x031a…0324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018e}
0x0324…035e Head {h00=0x0036, h01=0x0050, text=»* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND.«, t00=0x0002, t01=0x0008}
0x035e…0368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0042}
0x0368…03a4 Head {h00=0x0038, h01=0x0050, text=»* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP.«, t00=0x0002, t01=0x004c}
0x03a4…03ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0088}
0x03ae…03fa Head {h00=0x0048, h01=0x0050, text=»* ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. «, t00=0x0002, t01=0x0092}
0x03fa…0404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00de}
0x0404…0438 Head {h00=0x0030, h01=0x0050, text=»* ENTRY 'TEXIT' EXITS A TASK BEFORE TDISP.«, t00=0x0002, t01=0x00e8}
0x0438…0442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011c}
0x0442…0486 Head {h00=0x0040, h01=0x0050, text=»* ENTRY 'TPAUSE' SETS A TASK IN PAUSE STATE BEFORE TDISP. «, t00=0x0002, t01=0x0126}
0x0486…0490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016a}
0x0490…04ca Head {h00=0x0036, h01=0x0050, text=»* ENTRY 'ACTDIS' ACTIVATES A TASK BEFORE TDISP. «, t00=0x0002, t01=0x0174}
0x04ca…04d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001e}
0x04d4…051c Head {h00=0x0044, h01=0x0050, text=»* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS.«, t00=0x0003, t01=0x0028}
0x051c…0526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0070}
0x0526…053c Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0003, t01=0x007a}
0x053c…0546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0090}
0x0546…0550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009a}
0x0550…0564 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00a4}
0x0564…0578 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x00b8}
0x0578…058c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00cc}
0x058c…0596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e0}
0x0596…05a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ea}
0x05a0…05c6 Head {h00=0x0022, h01=0x0050, text=» ENTRY TDISP DISPATCHER ENTRY «, t00=0x0003, t01=0x00f4}
0x05c6…05e6 Head {h00=0x001c, h01=0x0050, text=» ENTRY TPAUSE PAUSE TASK«, t00=0x0003, t01=0x011a}
0x05e6…0604 Head {h00=0x001a, h01=0x0050, text=» ENTRY TEXIT EXIT TASK«, t00=0x0003, t01=0x013a}
0x0604…062a Head {h00=0x0022, h01=0x0050, text=» ENTRY MEXIT EXIT MONITOR TASK«, t00=0x0003, t01=0x0158}
0x062a…0660 Head {h00=0x0032, h01=0x0050, text=» ENTRY QMEXIT QUEUE TASK AND EXIT MONITOR TASK«, t00=0x0003, t01=0x017e}
0x0660…0690 Head {h00=0x002c, h01=0x0050, text=» ENTRY ACTDIS ACTIVATE TASK AND DISPATCH«, t00=0x0004, t01=0x0024}
0x0690…06b6 Head {h00=0x0022, h01=0x0050, text=» ENTRY DISIOE I/O ERROR ENTRY «, t00=0x0004, t01=0x0054}
0x06b6…06e0 Head {h00=0x0026, h01=0x0050, text=» ENTRY DISEND END I/O AND DISPATCH«, t00=0x0004, t01=0x007a}
0x06e0…071a Head {h00=0x0036, h01=0x0050, text=» ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE«, t00=0x0004, t01=0x00a4}
0x071a…074a Head {h00=0x002c, h01=0x0050, text=» ENTRY PRUN TTAB ADDRESS OF RUNNING TASK«, t00=0x0004, t01=0x00de}
0x074a…077c Head {h00=0x002e, h01=0x0050, text=» ENTRY RETUR8 LOAD 8 REGISTERS AND RETURN «, t00=0x0004, t01=0x010e}
0x077c…0792 Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0004, t01=0x0140}
0x0792…079c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0156}
0x079c…07a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0160}
0x07a6…07bc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x016a}
0x07bc…07d2 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0180}
0x07d2…07e8 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0008}
0x07e8…07f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001e}
0x07f2…07fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0028}
0x07fc…081e Head {h00=0x001e, h01=0x0050, text=» EXTRN ACTOT ACTIVATE TASK«, t00=0x0005, t01=0x0032}
0x081e…0840 Head {h00=0x001e, h01=0x0050, text=» EXTRN TTB:AP ACB ADDRESS «, t00=0x0005, t01=0x0054}
0x0840…0860 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0005, t01=0x0076}
0x0860…087c Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:ST STATUS«, t00=0x0005, t01=0x0096}
0x087c…08a6 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:PW PROGRAM STATUS WORD «, t00=0x0005, t01=0x00b2}
0x08a6…08c2 Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:MT MMUTAB«, t00=0x0005, t01=0x00dc}
0x08c2…08ec Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:CB CURRENT SEGMENT BASE«, t00=0x0005, t01=0x00f8}
0x08ec…0918 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK ADDRESS «, t00=0x0005, t01=0x0122}
0x0918…0948 Head {h00=0x002c, h01=0x0050, text=» EXTRN SEG:PB SEGMENT PAGE BLOCK ADDRESS«, t00=0x0005, t01=0x014e}
0x0948…096a Head {h00=0x001e, h01=0x0050, text=» EXTRN PAG:PA PAGE ADDRESS«, t00=0x0005, t01=0x017e}
0x096a…099c Head {h00=0x002e, h01=0x0050, text=» EXTRN PAG:QB PAGE QUEUE BACKWARD POINTER «, t00=0x0006, t01=0x0010}
0x099c…09ba Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0006, t01=0x0042}
0x09ba…09da Head {h00=0x001c, h01=0x0050, text=» EXTRN EXIT PROGRAM EXIT«, t00=0x0006, t01=0x0060}
0x09da…0a10 Head {h00=0x0032, h01=0x0050, text=» EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK «, t00=0x0006, t01=0x0080}
0x0a10…0a40 Head {h00=0x002c, h01=0x0050, text=» EXTRN QTJOB QUEUE TASK FOR DISPATCHING «, t00=0x0006, t01=0x00b6}
0x0a40…0a72 Head {h00=0x002e, h01=0x0050, text=» EXTRN ACBLAP LOGICAL ADDRESS OF CODE PAGE«, t00=0x0006, t01=0x00e6}
0x0a72…0a9c Head {h00=0x0026, h01=0x0050, text=» EXTRN ACBMMP MMU TABLE PAGE ENTRY«, t00=0x0006, t01=0x0118}
0x0a9c…0ac8 Head {h00=0x0028, h01=0x0050, text=» EXTRN ACBNPE NUMBER OF PAGE ENTRIES«, t00=0x0006, t01=0x0142}
0x0ac8…0ade Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0006, t01=0x016e}
0x0ade…0ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0184}
0x0ae8…0af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018e}
0x0af2…0b24 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x0008}
0x0b24…0b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003a}
0x0b2e…0b4c Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0007, t01=0x0044}
0x0b4c…0b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0062}
0x0b56…0b88 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x006c}
0x0b88…0b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009e}
0x0b92…0bc4 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0007, t01=0x00a8}
0x0bc4…0bf2 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x00da}
0x0bf2…0bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0108}
0x0bfc…0c10 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0007, t01=0x0112}
0x0c10…0c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0126}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0130}
0x0c24…0c5e Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0007, t01=0x013a}
0x0c5e…0c90 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0007, t01=0x0174}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0016}
0x0c9a…0cae Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0008, t01=0x0020}
0x0cae…0cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0034}
0x0cb8…0cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cc2…0cf4 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0008, t01=0x0048}
0x0cf4…0d22 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0008, t01=0x007a}
0x0d22…0d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a8}
0x0d2c…0d40 Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 1«, t00=0x0008, t01=0x00b2}
0x0d40…0d4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c6}
0x0d4a…0d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d0}
0x0d54…0d98 Head {h00=0x0040, h01=0x0050, text=»* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING «, t00=0x0008, t01=0x00da}
0x0d98…0dda Head {h00=0x003e, h01=0x0050, text=»* APPLICATION TASKS AT DIFFERENT PRIORITY LEVELS USING THE«, t00=0x0008, t01=0x011e}
0x0dda…0e16 Head {h00=0x0038, h01=0x0050, text=»* SAME SEGMENT IS OBTAINED BY SETTING DIFPRI EQU 1. «, t00=0x0008, t01=0x0160}
0x0e16…0e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000c}
0x0e20…0e34 Head {h00=0x0010, h01=0x0050, text=»DIFPRI EQU 0«, t00=0x0009, t01=0x0016}
0x0e34…0e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002a}
0x0e3e…0e54 Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0009, t01=0x0034}
0x0e54…0e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004a}
0x0e5e…0e76 Head {h00=0x0014, h01=0x0050, text=»* D I S Q U E «, t00=0x0009, t01=0x0054}
0x0e76…0e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006c}
0x0e80…0eb6 Head {h00=0x0032, h01=0x0050, text=»* POINTER TO FIRST TASK IN DISPATCHER QUEUE «, t00=0x0009, t01=0x0076}
0x0eb6…0ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ac}
0x0ec0…0ed6 Head {h00=0x0012, h01=0x0050, text=»DISQUE DATA 0 «, t00=0x0009, t01=0x00b6}
0x0ed6…0ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00cc}
0x0ee0…0ef4 Head {h00=0x0010, h01=0x0050, text=»* P R U N «, t00=0x0009, t01=0x00d6}
0x0ef4…0efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ea}
0x0efe…0f26 Head {h00=0x0024, h01=0x0050, text=»* TTAB ADDRESS OF RUNNING TASK«, t00=0x0009, t01=0x00f4}
0x0f26…0f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011c}
0x0f30…0f44 Head {h00=0x0010, h01=0x0050, text=»PRUN DATA 0 «, t00=0x0009, t01=0x0126}
0x0f44…0f5a Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0009, t01=0x013a}
0x0f5a…0f62 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0150}
0x0f62…0f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0158}
0x0f6c…0f84 Head {h00=0x0014, h01=0x0050, text=»* R E T U R 8 «, t00=0x0009, t01=0x0162}
0x0f84…0f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017a}
0x0f8e…0fc0 Head {h00=0x002e, h01=0x0050, text=»* LOAD 8 REGISTERS FROM STACK AND RETURN«, t00=0x0009, t01=0x0184}
0x0fc0…0fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0026}
0x0fca…0fde Head {h00=0x0010, h01=0x0050, text=»RETUR8 EQU *«, t00=0x000a, t01=0x0030}
0x0fde…0fe6 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0044}
0x0fe6…0ffc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000a, t01=0x004c}
0x0ffc…100e Head {h00=0x000e, h01=0x0050, text=» MLR 8,A15«, t00=0x000a, t01=0x0062}
0x100e…101a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0074}
0x101a…1022 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0080}
0x1022…1038 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000a, t01=0x0088}
0x1038…104c Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A15«, t00=0x000a, t01=0x009e}
0x104c…1060 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A15«, t00=0x000a, t01=0x00b2}
0x1060…1074 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x000a, t01=0x00c6}
0x1074…1088 Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A15«, t00=0x000a, t01=0x00da}
0x1088…109c Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A15«, t00=0x000a, t01=0x00ee}
0x109c…10b0 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x000a, t01=0x0102}
0x10b0…10c4 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x000a, t01=0x0116}
0x10c4…10d8 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x000a, t01=0x012a}
0x10d8…10e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x013e}
0x10e4…10ec Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x014a}
0x10ec…10fc Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000a, t01=0x0152}
0x10fc…1112 Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x000a, t01=0x0162}
0x1112…111a Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0178}
0x111a…1124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0180}
0x1124…1152 Head {h00=0x002a, h01=0x0050, text=»* Q M E X I T, M E X I T, T E X I T «, t00=0x000a, t01=0x018a}
0x1152…115c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0028}
0x115c…1192 Head {h00=0x0032, h01=0x0050, text=»* DO EXIT ON (MONITOR) TASK AND GO TO TDISP «, t00=0x000b, t01=0x0032}
0x1192…119c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0068}
0x119c…11d2 Head {h00=0x0032, h01=0x0050, text=»QMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING«, t00=0x000b, t01=0x0072}
0x11d2…11dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a8}
0x11dc…11ee Head {h00=0x000e, h01=0x0050, text=»MEXIT INH «, t00=0x000b, t01=0x00b2}
0x11ee…1202 Head {h00=0x0010, h01=0x0050, text=» LD A5,PRUN «, t00=0x000b, t01=0x00c4}
0x1202…1212 Head {h00=0x000c, h01=0x0050, text=» CM PRUN«, t00=0x000b, t01=0x00d8}
0x1212…121c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e8}
0x121c…1230 Head {h00=0x0010, h01=0x0050, text=»TEXIT EQU * «, t00=0x000b, t01=0x00f2}
0x1230…1244 Head {h00=0x0010, h01=0x0050, text=» CF A15,EXIT«, t00=0x000b, t01=0x0106}
0x1244…1256 Head {h00=0x000e, h01=0x0050, text=» RF TDISP «, t00=0x000b, t01=0x011a}
0x1256…125e Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x012c}
0x125e…1268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0134}
0x1268…1280 Head {h00=0x0014, h01=0x0050, text=»* A C T D I S «, t00=0x000b, t01=0x013e}
0x1280…128a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0156}
0x128a…12b4 Head {h00=0x0026, h01=0x0050, text=»* ACTIVATE TASK AND GO TO TDISP «, t00=0x000b, t01=0x0160}
0x12b4…12be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x018a}
0x12be…12da (12, 0, 398) Head {h00=0x0018, h01=0x0050, text=»ACTDIS CF A15,ACTOT «, t00=0x000c, t01=0x0004}
0x12da…12ec Head {h00=0x000e, h01=0x0050, text=» RF TDISP «, t00=0x000c, t01=0x0020}
0x12ec…1302 Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x000c, t01=0x0032}
0x1302…130a Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0048}
0x130a…1314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0050}
0x1314…132c Head {h00=0x0014, h01=0x0050, text=»* D I S I O E «, t00=0x000c, t01=0x005a}
0x132c…1336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0072}
0x1336…1370 Head {h00=0x0036, h01=0x0050, text=»* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND «, t00=0x000c, t01=0x007c}
0x1370…137a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b6}
0x137a…1396 Head {h00=0x0018, h01=0x0050, text=»DISIOE LDKL A1,/8000«, t00=0x000c, t01=0x00c0}
0x1396…139e Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00dc}
0x139e…13a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e4}
0x13a8…13c0 Head {h00=0x0014, h01=0x0050, text=»* D I S E N D «, t00=0x000c, t01=0x00ee}
0x13c0…13ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0106}
0x13ca…13f2 Head {h00=0x0024, h01=0x0050, text=»* CALL TENDIO AND GO TO TDISP «, t00=0x000c, t01=0x0110}
0x13f2…13fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13fc…1418 Head {h00=0x0018, h01=0x0050, text=»DISEND CF A15,TENDIO«, t00=0x000c, t01=0x0142}
0x1418…1420 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x015e}
0x1420…142a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0166}
0x142a…1442 Head {h00=0x0014, h01=0x0050, text=»* T P A U S E «, t00=0x000c, t01=0x0170}
0x1442…144c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0188}
0x144c…1476 (13, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* PAUSE TASK (I. E. GO TO TDISP)«, t00=0x000d, t01=0x0004}
0x1476…1480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002e}
0x1480…1494 Head {h00=0x0010, h01=0x0050, text=»TPAUSE EQU *«, t00=0x000d, t01=0x0038}
0x1494…14aa Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x000d, t01=0x004c}
0x14aa…14b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0062}
0x14b4…14ca Head {h00=0x0012, h01=0x0050, text=»* T D I S P «, t00=0x000d, t01=0x006c}
0x14ca…14d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0082}
0x14d4…14fc Head {h00=0x0024, h01=0x0050, text=»* THIS IS THE DISPATCHER ENTRY«, t00=0x000d, t01=0x008c}
0x14fc…1506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b4}
0x1506…1518 Head {h00=0x000e, h01=0x0050, text=»TDISP INH «, t00=0x000d, t01=0x00be}
0x1518…1542 Head {h00=0x0026, h01=0x0050, text=» LC A1,18,A15 LOAD PSW FROM STACK «, t00=0x000d, t01=0x00d0}
0x1542…1556 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FC «, t00=0x000d, t01=0x00fa}
0x1556…156a Head {h00=0x0010, h01=0x0050, text=» SUK A1,/C4 «, t00=0x000d, t01=0x010e}
0x156a…159c Head {h00=0x002e, h01=0x0050, text=» RB(L) RETUR8 LEVEL < 49, MONITOR ROUTINE «, t00=0x000d, t01=0x0122}
0x159c…15a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0154}
0x15a6…15c6 Head {h00=0x001c, h01=0x0050, text=»* CHECK DISPATCHER QUEUE«, t00=0x000d, t01=0x015e}
0x15c6…15d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017e}
0x15d0…15ee Head {h00=0x001a, h01=0x0050, text=»TDISCQ LDKL A2,DISQUE «, t00=0x000d, t01=0x0188}
0x15ee…1602 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x000e, t01=0x0016}
0x1602…1624 Head {h00=0x001e, h01=0x0050, text=» RB(Z) RETUR8 QUEUE EMPTY «, t00=0x000e, t01=0x002a}
0x1624…162c Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x004c}
0x162c…1640 Head {h00=0x0010, h01=0x0050, text=» LD A5,PRUN «, t00=0x000e, t01=0x0054}
0x1640…1668 Head {h00=0x0024, h01=0x0050, text=» RF(Z) TDCQ10 IDLE LOOP RUNNING «, t00=0x000e, t01=0x0068}
0x1668…1692 Head {h00=0x0026, h01=0x0050, text=» LD A4,TTB:ST+1,A5 COMPARE RUNNING«, t00=0x000e, t01=0x0090}
0x1692…16ca Head {h00=0x0034, h01=0x0050, text=» CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES «, t00=0x000e, t01=0x00ba}
0x16ca…16f8 Head {h00=0x002a, h01=0x0050, text=» RB(NG) RETUR8 RUNNING HIGHER OR SAME «, t00=0x000e, t01=0x00f2}
0x16f8…1720 Head {h00=0x0024, h01=0x0050, text=»TDCQ10 LDR* A6,A3 QUEUED HIGHER «, t00=0x000e, t01=0x0120}
0x1720…1748 Head {h00=0x0024, h01=0x0050, text=» STR A6,A2 REMOVE IT FROM QUEUE «, t00=0x000e, t01=0x0148}
0x1748…1750 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0170}
0x1750…1766 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000e, t01=0x0178}
0x1766…1796 Head {h00=0x002c, h01=0x0050, text=» LD A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR «, t00=0x000e, t01=0x018e}
0x1796…17b0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TDISSW NONE«, t00=0x000f, t01=0x002e}
0x17b0…17c4 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A1 «, t00=0x000f, t01=0x0048}
0x17c4…17e8 Head {h00=0x0020, h01=0x0050, text=» RF(N) TDISSW SEGMENT LOADED«, t00=0x000f, t01=0x005c}
0x17e8…181e Head {h00=0x0032, h01=0x0050, text=» CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK«, t00=0x000f, t01=0x0080}
0x181e…1848 Head {h00=0x0026, h01=0x0050, text=» RB TDISCQ TAKE NEXT TASK INSTEAD «, t00=0x000f, t01=0x00b6}
0x1848…1854 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00e0}
0x1854…186a Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x000f, t01=0x00ec}
0x186a…1874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0102}
0x1874…188a Head {h00=0x0012, h01=0x0050, text=»* SWITCH TASKS«, t00=0x000f, t01=0x010c}
0x188a…1894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0122}
0x1894…18c2 Head {h00=0x002a, h01=0x0050, text=»TDISSW ST A3,PRUN SET NEW RUNNING TASK«, t00=0x000f, t01=0x012c}
0x18c2…18ea Head {h00=0x0024, h01=0x0050, text=» ADK A5,0 CHECK OLD RUNNING TASK«, t00=0x000f, t01=0x015a}
0x18ea…190a Head {h00=0x001c, h01=0x0050, text=» RF(Z) TDISST IDLE LOOP «, t00=0x000f, t01=0x0182}
0x190a…1912 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0012}
0x1912…1944 Head {h00=0x002e, h01=0x0050, text=» ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY«, t00=0x0010, t01=0x001a}
0x1944…1966 Head {h00=0x001e, h01=0x0050, text=» RF(Z) TDSW20 EMPTY QUEUE «, t00=0x0010, t01=0x004c}
0x1966…199a Head {h00=0x0030, h01=0x0050, text=»TDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES «, t00=0x0010, t01=0x006e}
0x199a…19ce Head {h00=0x0030, h01=0x0050, text=» RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND «, t00=0x0010, t01=0x00a2}
0x19ce…19e0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x0010, t01=0x00d6}
0x19e0…19f4 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A2 «, t00=0x0010, t01=0x00e8}
0x19f4…1a24 Head {h00=0x002c, h01=0x0050, text=» RB(NZ) TDSW10 STILL SOMETHING IN QUEUE «, t00=0x0010, t01=0x00fc}
0x1a24…1a2c Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x012c}
0x1a2c…1a52 Head {h00=0x0022, h01=0x0050, text=»TDSW20 STR A5,A2 PUT IN QUEUE «, t00=0x0010, t01=0x0134}
0x1a52…1a64 Head {h00=0x000e, h01=0x0050, text=» STR A6,A5«, t00=0x0010, t01=0x015a}
0x1a64…1a90 Head {h00=0x0028, h01=0x0050, text=» ST A14,TTB:SA+28,A5 SAVE REGISTERS «, t00=0x0010, t01=0x016c}
0x1a90…1aa4 Head {h00=0x0010, h01=0x0050, text=» LDR A14,A5 «, t00=0x0011, t01=0x0008}
0x1aa4…1aac Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x001c}
0x1aac…1ac2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0011, t01=0x0024}
0x1ac2…1ad4 Head {h00=0x000e, h01=0x0050, text=» MLR 8,A15«, t00=0x0011, t01=0x003a}
0x1ad4…1af0 Head {h00=0x0018, h01=0x0050, text=» MS 13,TTB:SA+2,A14 «, t00=0x0011, t01=0x004c}
0x1af0…1b02 Head {h00=0x000e, h01=0x0050, text=» MLR 2,A15«, t00=0x0011, t01=0x0068}
0x1b02…1b0a Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x007a}
0x1b0a…1b16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0082}
0x1b16…1b2c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0011, t01=0x008e}
0x1b2c…1b40 Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A15«, t00=0x0011, t01=0x00a4}
0x1b40…1b54 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A15«, t00=0x0011, t01=0x00b8}
0x1b54…1b68 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x0011, t01=0x00cc}
0x1b68…1b7c Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A15«, t00=0x0011, t01=0x00e0}
0x1b7c…1b90 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A15«, t00=0x0011, t01=0x00f4}
0x1b90…1ba4 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x0011, t01=0x0108}
0x1ba4…1bb8 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0011, t01=0x011c}
0x1bb8…1bcc Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0011, t01=0x0130}
0x1bcc…1bea Head {h00=0x001a, h01=0x0050, text=» ST A13,TTB:SA+26,A14 «, t00=0x0011, t01=0x0144}
0x1bea…1c08 Head {h00=0x001a, h01=0x0050, text=» ST A12,TTB:SA+24,A14 «, t00=0x0011, t01=0x0162}
0x1c08…1c26 Head {h00=0x001a, h01=0x0050, text=» ST A11,TTB:SA+22,A14 «, t00=0x0011, t01=0x0180}
0x1c26…1c44 Head {h00=0x001a, h01=0x0050, text=» ST A10,TTB:SA+20,A14 «, t00=0x0012, t01=0x000e}
0x1c44…1c60 Head {h00=0x0018, h01=0x0050, text=» ST A9,TTB:SA+18,A14«, t00=0x0012, t01=0x002c}
0x1c60…1c7c Head {h00=0x0018, h01=0x0050, text=» ST A8,TTB:SA+16,A14«, t00=0x0012, t01=0x0048}
0x1c7c…1c98 Head {h00=0x0018, h01=0x0050, text=» ST A7,TTB:SA+14,A14«, t00=0x0012, t01=0x0064}
0x1c98…1cb4 Head {h00=0x0018, h01=0x0050, text=» ST A6,TTB:SA+12,A14«, t00=0x0012, t01=0x0080}
0x1cb4…1cd0 Head {h00=0x0018, h01=0x0050, text=» ST A5,TTB:SA+10,A14«, t00=0x0012, t01=0x009c}
0x1cd0…1cec Head {h00=0x0018, h01=0x0050, text=» ST A4,TTB:SA+8,A14 «, t00=0x0012, t01=0x00b8}
0x1cec…1d08 Head {h00=0x0018, h01=0x0050, text=» ST A3,TTB:SA+6,A14 «, t00=0x0012, t01=0x00d4}
0x1d08…1d24 Head {h00=0x0018, h01=0x0050, text=» ST A2,TTB:SA+4,A14 «, t00=0x0012, t01=0x00f0}
0x1d24…1d40 Head {h00=0x0018, h01=0x0050, text=» ST A1,TTB:SA+2,A14 «, t00=0x0012, t01=0x010c}
0x1d40…1d54 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0012, t01=0x0128}
0x1d54…1d68 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0012, t01=0x013c}
0x1d68…1d74 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0150}
0x1d74…1d7c Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x015c}
0x1d7c…1d9c Head {h00=0x001c, h01=0x0050, text=» ST A1,TTB:SA,A14 AND PC«, t00=0x0012, t01=0x0164}
0x1d9c…1dc6 Head {h00=0x0026, h01=0x0050, text=» ST A2,TTB:PW,A14 AND PSW IN TTAB «, t00=0x0012, t01=0x0184}
0x1dc6…1de2 Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG+DIFPRI=2«, t00=0x0013, t01=0x001e}
0x1de2…1dea Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x003a}
0x1dea…1e18 Head {h00=0x002a, h01=0x0050, text=» LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR «, t00=0x0013, t01=0x0042}
0x1e18…1e32 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TDISST NONE«, t00=0x0013, t01=0x0070}
0x1e32…1e56 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A1 GET SEGM STATUS «, t00=0x0013, t01=0x008a}
0x1e56…1e6c Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/1000«, t00=0x0013, t01=0x00ae}
0x1e6c…1e9c Head {h00=0x002c, h01=0x0050, text=» TM A2,A3 CHECK IF SEGM USED BY INT TASK«, t00=0x0013, t01=0x00c4}
0x1e9c…1eb6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TDISST YES«, t00=0x0013, t01=0x00f4}
0x1eb6…1ee4 Head {h00=0x002a, h01=0x0050, text=» ORRS A3,A1 SET SEGM USED BY INT TASK «, t00=0x0013, t01=0x010e}
0x1ee4…1efc Head {h00=0x0014, h01=0x0050, text=» LD A3,SEG:PB,A1«, t00=0x0013, t01=0x013c}
0x1efc…1f30 Head {h00=0x0030, h01=0x0050, text=» ST A14,PAG:QB,A3 AND THAT IT WAS THIS TASK «, t00=0x0013, t01=0x0154}
0x1f30…1f3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0188}
0x1f3c…1f52 (20, 0, 398) Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0014, t01=0x0004}
0x1f52…1f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001a}
0x1f5c…1f74 Head {h00=0x0014, h01=0x0050, text=»* START NEW TASK«, t00=0x0014, t01=0x0024}
0x1f74…1f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003c}
0x1f7e…1f98 Head {h00=0x0016, h01=0x0050, text=»TDISST LD A14,PRUN«, t00=0x0014, t01=0x0046}
0x1f98…1fae Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x0014, t01=0x0060}
0x1fae…1fb6 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0076}
0x1fb6…1fe4 Head {h00=0x002a, h01=0x0050, text=» LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR «, t00=0x0014, t01=0x007e}
0x1fe4…1ffe Head {h00=0x0016, h01=0x0050, text=» RF(Z) TDST30 NONE«, t00=0x0014, t01=0x00ac}
0x1ffe…202a Head {h00=0x0028, h01=0x0050, text=» LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR«, t00=0x0014, t01=0x00c6}
0x202a…2040 Head {h00=0x0012, h01=0x0050, text=» IFT DIFPRI=0 «, t00=0x0014, t01=0x00f2}
0x2040…2048 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0108}
0x2048…2074 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A4 CHECK IF PAGE IN PAGQUE «, t00=0x0014, t01=0x0110}
0x2074…2096 Head {h00=0x001e, h01=0x0050, text=» RF(Z) TDST20 NOT IN QUEUE«, t00=0x0014, t01=0x013c}
0x2096…209e Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x015e}
0x209e…20aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0166}
0x20aa…20c6 Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG+DIFPRI=2«, t00=0x0014, t01=0x0172}
0x20c6…20ce Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x018e}
0x20ce…20fa Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A4 CHECK IF PAGE IN PAGQUE «, t00=0x0015, t01=0x0008}
0x20fa…2114 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TDST10 YES«, t00=0x0015, t01=0x0034}
0x2114…213a Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A1 NO GET SEGM STATUS«, t00=0x0015, t01=0x004e}
0x213a…2170 Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK «, t00=0x0015, t01=0x0074}
0x2170…2188 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TDST20 NO«, t00=0x0015, t01=0x00aa}
0x2188…21c0 Head {h00=0x0034, h01=0x0050, text=» CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK «, t00=0x0015, t01=0x00c2}
0x21c0…21da Head {h00=0x0016, h01=0x0050, text=» RF(NE) TDST20 NO «, t00=0x0015, t01=0x00fa}
0x21da…2208 Head {h00=0x002a, h01=0x0050, text=» XRRS A3,A1 YES RESET USED BY INT TASK«, t00=0x0015, t01=0x0114}
0x2208…221a Head {h00=0x000e, h01=0x0050, text=» RF TDST20«, t00=0x0015, t01=0x0142}
0x221a…2222 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0154}
0x2222…222e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x015c}
0x222e…2244 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x0015, t01=0x0168}
0x2244…224c Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x017e}
0x224c…2282 Head {h00=0x0032, h01=0x0050, text=»TDST10 LD A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE «, t00=0x0015, t01=0x0186}
0x2282…2294 Head {h00=0x000e, h01=0x0050, text=» STR A2,A3«, t00=0x0016, t01=0x002c}
0x2294…22ac Head {h00=0x0014, h01=0x0050, text=» ST A3,PAG:QB,A2«, t00=0x0016, t01=0x003e}
0x22ac…22bc Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0016, t01=0x0056}
0x22bc…22c4 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0066}
0x22c4…22f4 Head {h00=0x002c, h01=0x0050, text=»TDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS «, t00=0x0016, t01=0x006e}
0x22f4…22fc Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x009e}
0x22fc…2312 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0016, t01=0x00a6}
0x2312…231a Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00bc}
0x231a…2340 Head {h00=0x0022, h01=0x0050, text=» ECR A2,A1 CALC PHYS PAGE ADDR«, t00=0x0016, t01=0x00c4}
0x2340…2354 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FC «, t00=0x0016, t01=0x00ea}
0x2354…2382 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A14 AND MMU PAGE ENTRY IN TTAB«, t00=0x0016, t01=0x00fe}
0x2382…23a8 Head {h00=0x0022, h01=0x0050, text=» LD A6,TTB:AP,A14 ACB ADDRESS «, t00=0x0016, t01=0x012c}
0x23a8…23c0 Head {h00=0x0014, h01=0x0050, text=» AD A3,ACBMMP,A6«, t00=0x0016, t01=0x0152}
0x23c0…23f2 Head {h00=0x002e, h01=0x0050, text=» LD A4,ACBNPE,A6 AND GET NUMBER OF ENTRIES«, t00=0x0016, t01=0x016a}
0x23f2…23fa Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x000c}
0x23fa…2430 Head {h00=0x0032, h01=0x0050, text=»TDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE«, t00=0x0017, t01=0x0014}
0x2430…2442 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0017, t01=0x004a}
0x2442…2458 Head {h00=0x0012, h01=0x0050, text=» RF(Z) TDST25 «, t00=0x0017, t01=0x005c}
0x2458…246a Head {h00=0x000e, h01=0x0050, text=» ADK A2,4 «, t00=0x0017, t01=0x0072}
0x246a…247c Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0017, t01=0x0084}
0x247c…248e Head {h00=0x000e, h01=0x0050, text=» RB TDST22«, t00=0x0017, t01=0x0096}
0x248e…2496 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x00a8}
0x2496…24aa Head {h00=0x0010, h01=0x0050, text=»TDST25 EQU *«, t00=0x0017, t01=0x00b0}
0x24aa…24d0 Head {h00=0x0022, h01=0x0050, text=» TL TTB:MT,A14 LOAD MMU TABLE «, t00=0x0017, t01=0x00c4}
0x24d0…2506 Head {h00=0x0032, h01=0x0050, text=» SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE«, t00=0x0017, t01=0x00ea}
0x2506…251c Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFE «, t00=0x0017, t01=0x0120}
0x251c…2534 Head {h00=0x0014, h01=0x0050, text=» OR A1,ACBLAP,A6«, t00=0x0017, t01=0x0136}
0x2534…256a Head {h00=0x0032, h01=0x0050, text=» ES* A1,TTB:CB,A14 UPDATE CURRENT SEGMENT BASE«, t00=0x0017, t01=0x014e}
0x256a…257c Head {h00=0x000e, h01=0x0050, text=» RF TDST35«, t00=0x0017, t01=0x0184}
0x257c…2588 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0008}
0x2588…2590 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0014}
0x2590…25ac Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG-MMUPAG=1«, t00=0x0018, t01=0x001c}
0x25ac…25e2 Head {h00=0x0032, h01=0x0050, text=» ST* A1,TTB:CB,A14 UPDATE CURRENT SEGMENT BASE«, t00=0x0018, t01=0x0038}
0x25e2…25ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x006e}
0x25ee…25f6 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x007a}
0x25f6…260a Head {h00=0x0010, h01=0x0050, text=»TDST30 EQU *«, t00=0x0018, t01=0x0082}
0x260a…2620 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0018, t01=0x0096}
0x2620…2646 Head {h00=0x0022, h01=0x0050, text=» TL TTB:MT,A14 LOAD MMU TABLE «, t00=0x0018, t01=0x00ac}
0x2646…2652 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00d2}
0x2652…265a Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00de}
0x265a…2684 Head {h00=0x0026, h01=0x0050, text=»TDST35 LD A1,TTB:SA,A14 GET NEW PC«, t00=0x0018, t01=0x00e6}
0x2684…26a6 Head {h00=0x001e, h01=0x0050, text=» LD A2,TTB:PW,A14 AND PSW «, t00=0x0018, t01=0x0110}
0x26a6…26bc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0018, t01=0x0132}
0x26bc…26c4 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0148}
0x26c4…26ee Head {h00=0x0026, h01=0x0050, text=» MSR 2,A15 PUT PC AND PSW ON STACK«, t00=0x0018, t01=0x0150}
0x26ee…2718 Head {h00=0x0026, h01=0x0050, text=» ML 14,TTB:SA+2,A14 LOAD REGISTERS«, t00=0x0018, t01=0x017a}
0x2718…2720 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0014}
0x2720…272c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x001c}
0x272c…2742 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0019, t01=0x0028}
0x2742…274a Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x003e}
0x274a…2764 Head {h00=0x0016, h01=0x0050, text=» STR A1,A15 PUT PC«, t00=0x0019, t01=0x0046}
0x2764…2788 Head {h00=0x0020, h01=0x0050, text=» STR A2,A15 AND PSW ON STACK«, t00=0x0019, t01=0x0060}
0x2788…27b2 Head {h00=0x0026, h01=0x0050, text=» LD A1,TTB:SA+2,A14 LOAD REGISTERS«, t00=0x0019, t01=0x0084}
0x27b2…27ce Head {h00=0x0018, h01=0x0050, text=» LD A2,TTB:SA+4,A14 «, t00=0x0019, t01=0x00ae}
0x27ce…27ea Head {h00=0x0018, h01=0x0050, text=» LD A3,TTB:SA+6,A14 «, t00=0x0019, t01=0x00ca}
0x27ea…2806 Head {h00=0x0018, h01=0x0050, text=» LD A4,TTB:SA+8,A14 «, t00=0x0019, t01=0x00e6}
0x2806…2822 Head {h00=0x0018, h01=0x0050, text=» LD A5,TTB:SA+10,A14«, t00=0x0019, t01=0x0102}
0x2822…283e Head {h00=0x0018, h01=0x0050, text=» LD A6,TTB:SA+12,A14«, t00=0x0019, t01=0x011e}
0x283e…285a Head {h00=0x0018, h01=0x0050, text=» LD A7,TTB:SA+14,A14«, t00=0x0019, t01=0x013a}
0x285a…2876 Head {h00=0x0018, h01=0x0050, text=» LD A8,TTB:SA+16,A14«, t00=0x0019, t01=0x0156}
0x2876…2892 Head {h00=0x0018, h01=0x0050, text=» LD A9,TTB:SA+18,A14«, t00=0x0019, t01=0x0172}
0x2892…28b0 Head {h00=0x001a, h01=0x0050, text=» LD A10,TTB:SA+20,A14 «, t00=0x0019, t01=0x018e}
0x28b0…28ce Head {h00=0x001a, h01=0x0050, text=» LD A11,TTB:SA+22,A14 «, t00=0x001a, t01=0x001c}
0x28ce…28ec Head {h00=0x001a, h01=0x0050, text=» LD A12,TTB:SA+24,A14 «, t00=0x001a, t01=0x003a}
0x28ec…290a Head {h00=0x001a, h01=0x0050, text=» LD A13,TTB:SA+26,A14 «, t00=0x001a, t01=0x0058}
0x290a…2928 Head {h00=0x001a, h01=0x0050, text=» LD A14,TTB:SA+28,A14 «, t00=0x001a, t01=0x0076}
0x2928…2930 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0094}
0x2930…293c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x009c}
0x293c…2944 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00a8}
0x2944…2964 Head {h00=0x001c, h01=0x0050, text=» RTN A15 START THE TASK «, t00=0x001a, t01=0x00b0}
0x2964…296c Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00d0}
0x296c…2978 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001a, t01=0x00d8}
0x2978…297c Head {h00=0x4004, h01=0x0000}
0x297c…2980 00 1a 00 e4 ┆ ┆
0x2980…2988 (27, 1, 8) 20 04 00 00 00 1b 00 04 ┆ ┆
0x2988…29d8 (28, 0, 400) 5c 45 51 55 5c 2a 00 2b 01 8a 00 1e 00 50 5c 43 46 5c 41 35 2c 46 44 3a 52 45 41 5c 50 45 52 46 4f 52 4d 20 52 45 41 44 00 2c 00 0e 00 06 00 50 2a 20 00 2c 00 30 00 14 00 50 5c 49 46 54 5c 54 4f 53 53 2b 49 42 4d 3d 32 20 00 2c 00 3a 00 14 ┆ EQU * + P CF A5,FD:REA PERFORM READ , P* , 0 P IFT TOSS+IBM=2 , : ┆
0x29d8…2a28 00 50 5c 4c 44 5c 41 31 2c 44 57 54 46 49 42 2c 41 36 00 2c 00 52 00 1a 00 50 5c 52 46 28 5a 29 5c 46 44 3a 30 39 30 5c 4e 4f 54 20 49 42 4d 20 00 2c 00 6a 00 08 00 50 5c 58 49 46 00 2c 00 88 00 06 00 50 2a 20 00 2c 00 94 00 0e 00 50 5c 49 ┆ P LD A1,DWTFIB,A6 , R P RF(Z) FD:090 NOT IBM , j P XIF , P* , P I┆
0x2a28…2a78 46 54 5c 49 42 4d 3d 31 00 2c 00 9e 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 00 2c 00 b0 00 28 00 50 5c 4c 44 5c 41 34 2c 44 57 54 42 41 2c 41 36 5c 41 53 43 49 49 20 4f 55 54 50 55 54 20 41 44 44 52 45 53 53 00 2c 00 c6 00 08 ┆FT IBM=1 , P IFT MMUPAG=0 , ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS , ┆
0x2a78…2ac8 00 50 5c 58 49 46 00 2c 00 f2 00 06 00 50 2a 20 00 2c 00 fe 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 2c 01 08 00 1c 00 50 5c 4c 44 5c 41 37 2c 44 57 54 52 4c 2c 41 36 5c 52 45 51 2e 20 4c 45 4e 00 2c 01 1a 00 10 00 50 5c 43 46 5c 41 35 ┆ P XIF , P* , P IFT IBM=1 , P LD A7,DWTRL,A6 REQ. LEN , P CF A5┆
0x2ac8…2b18 2c 41 53 43 49 49 00 2c 01 3a 00 10 00 50 46 44 3a 30 39 30 5c 45 51 55 5c 2a 00 2c 01 4e 00 08 00 50 5c 58 49 46 00 2c 01 62 00 06 00 50 2a 20 00 2c 01 6e 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 2c 01 78 00 06 00 50 ┆,ASCII , : PFD:090 EQU * , N P XIF , b P* , n P EJECT DRFD01 , x P┆