|
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: 11060 (0x2b34)
Notes: pts_type(SC)
Names: »TDISP.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/TDISP.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/TDISP.SC«
IDENT TDISP REL 9.2 79-11-16 870105040920 * * ************************************************** * * 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 TDSIP * * ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. * * ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. * * ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. * EJECT TDISP * * *********** * ENTRIES * *********** * * ENTRY TDISP DISPATCHER ENTRY ENTRY MEXIT EXIT FOR MONITOR TASKS ENTRY DISIOE I/O ERROR ENTRY ENTRY DISEND END I/O AND DISPATCH ENTRY DISQUE POINTER TO FIRST PLACE IN DISP. QUEUE ENTRY PRUN TTAB ADDRESS OF RUNNING PROGRAM ENTRY RETUR8 LOAD 8 REGISTERS AND RETURN EJECT TDISP * * ************* * EXTERNALS * ************* * * EXTRN TTB:SA SAVE AREA EXTRN TTB:ST STATUS EXTRN TTB:PW PROGRAM STATUS WORD EXTRN TTB:MT MMUTAB 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 T:ACSB CURRENT SEGMENT BASE IN T:A EXTRN TENDIO END I/O EXTRN EXIT PROGRAM EXIT EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE EXTRN SCTMMP MMU TABLE PAGE ENTRY EXTRN SCTNPE NUMBER OF PAGE ENTRIES EJECT TDISP * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * A PROGRAM VERSION USING TOSS DISC PAGING * IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 0 * * * 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 * * * A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY * IS OBTAINED BY SETTING ASSOLY EQU 1 * ASSOLY EQU 0 * EJECT TDISP * * D I S Q U E * * POINTER TO FIRST PLACE IN DISPATCHER QUEUE * DISQUE DATA 0 * * P R U N * * TTAB ADDRESS OF RUNNING PROGRAM * 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 * * M E X I T * * DO EXIT ON MONITOR TASK AND GO TO TDISP * MEXIT INH LD A5,PRUN CF A15,EXIT CM PRUN RF 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 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 LD A5,TTB:SA+26,A14 AND T:A ADDRESS IFT MMUPAG=1 ECR A2,A1 CALC PHYS PAGE ADDR ANK A2,/FC LDR A3,A14 AND MMU PAGE ENTRY IN TTAB AD A3,SCTMMP LD A4,SCTNPE 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 * IFT ASSOLY=0 TL TTB:MT,A14 LOAD MMU TABLE SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE ANKL A1,/FFE OR A1,SCTLAP ES A1,T:ACSB,A5 RF TDST35 XIF IFT DSKPAG-MMUPAG=1 ST A1,T:ACSB,A5 UPDATE BASE IN T:A JUST IN CASE 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 9.2 79-11-16 870105040920«, 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…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…011c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x0126…0160 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x012a}
0x0160…016a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…0174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…01a4 Head {h00=0x002c, h01=0x0050, text=»* THIS IS THE TASK DISPATCHER IN TOSS.«, t00=0x0000, t01=0x0178}
0x01a4…01e6 Head {h00=0x003e, h01=0x0050, text=»* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. «, t00=0x0001, t01=0x0018}
0x01e6…0228 Head {h00=0x003e, h01=0x0050, text=»* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER«, t00=0x0001, t01=0x005a}
0x0228…0268 Head {h00=0x003c, h01=0x0050, text=»* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM.«, t00=0x0001, t01=0x009c}
0x0268…02a6 Head {h00=0x003a, h01=0x0050, text=»* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER«, t00=0x0001, t01=0x00dc}
0x02a6…02ce Head {h00=0x0024, h01=0x0050, text=»* PRIORITY TASK IS STARTED. «, t00=0x0001, t01=0x011a}
0x02ce…030c Head {h00=0x003a, h01=0x0050, text=»* - IF NOT, RETURN IS GIVEN TO INTERRUPTED PROGRAM. «, t00=0x0001, t01=0x0142}
0x030c…0316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0180}
0x0316…034a Head {h00=0x0030, h01=0x0050, text=»* ENTRY 'DISEND' CALLS TENDIO BEFORE TDSIP«, t00=0x0001, t01=0x018a}
0x034a…0354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0354…038e Head {h00=0x0036, h01=0x0050, text=»* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND.«, t00=0x0002, t01=0x0038}
0x038e…0398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0072}
0x0398…03d4 Head {h00=0x0038, h01=0x0050, text=»* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP.«, t00=0x0002, t01=0x007c}
0x03d4…03de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b8}
0x03de…0426 Head {h00=0x0044, h01=0x0050, text=»* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS.«, t00=0x0002, t01=0x00c2}
0x0426…0430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010a}
0x0430…0446 Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0002, t01=0x0114}
0x0446…0450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x0450…045a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x045a…046e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x013e}
0x046e…0482 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0152}
0x0482…0496 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0166}
0x0496…04a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017a}
0x04a0…04aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0184}
0x04aa…04d0 Head {h00=0x0022, h01=0x0050, text=» ENTRY TDISP DISPATCHER ENTRY «, t00=0x0002, t01=0x018e}
0x04d0…04fc Head {h00=0x0028, h01=0x0050, text=» ENTRY MEXIT EXIT FOR MONITOR TASKS «, t00=0x0003, t01=0x0024}
0x04fc…0522 Head {h00=0x0022, h01=0x0050, text=» ENTRY DISIOE I/O ERROR ENTRY «, t00=0x0003, t01=0x0050}
0x0522…054c Head {h00=0x0026, h01=0x0050, text=» ENTRY DISEND END I/O AND DISPATCH«, t00=0x0003, t01=0x0076}
0x054c…0588 Head {h00=0x0038, h01=0x0050, text=» ENTRY DISQUE POINTER TO FIRST PLACE IN DISP. QUEUE «, t00=0x0003, t01=0x00a0}
0x0588…05bc Head {h00=0x0030, h01=0x0050, text=» ENTRY PRUN TTAB ADDRESS OF RUNNING PROGRAM «, t00=0x0003, t01=0x00dc}
0x05bc…05ee Head {h00=0x002e, h01=0x0050, text=» ENTRY RETUR8 LOAD 8 REGISTERS AND RETURN «, t00=0x0003, t01=0x0110}
0x05ee…0604 Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0003, t01=0x0142}
0x0604…060e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0158}
0x060e…0618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0162}
0x0618…062e Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x016c}
0x062e…0644 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x0182}
0x0644…065a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0008}
0x065a…0664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001e}
0x0664…066e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0028}
0x066e…068e Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0004, t01=0x0032}
0x068e…06aa Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:ST STATUS«, t00=0x0004, t01=0x0052}
0x06aa…06d4 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:PW PROGRAM STATUS WORD «, t00=0x0004, t01=0x006e}
0x06d4…06f0 Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:MT MMUTAB«, t00=0x0004, t01=0x0098}
0x06f0…071c Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK ADDRESS «, t00=0x0004, t01=0x00b4}
0x071c…074c Head {h00=0x002c, h01=0x0050, text=» EXTRN SEG:PB SEGMENT PAGE BLOCK ADDRESS«, t00=0x0004, t01=0x00e0}
0x074c…076e Head {h00=0x001e, h01=0x0050, text=» EXTRN PAG:PA PAGE ADDRESS«, t00=0x0004, t01=0x0110}
0x076e…07a0 Head {h00=0x002e, h01=0x0050, text=» EXTRN PAG:QB PAGE QUEUE BACKWARD POINTER «, t00=0x0004, t01=0x0132}
0x07a0…07d2 Head {h00=0x002e, h01=0x0050, text=» EXTRN T:ACSB CURRENT SEGMENT BASE IN T:A «, t00=0x0004, t01=0x0164}
0x07d2…07f0 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0005, t01=0x0008}
0x07f0…0810 Head {h00=0x001c, h01=0x0050, text=» EXTRN EXIT PROGRAM EXIT«, t00=0x0005, t01=0x0026}
0x0810…0846 Head {h00=0x0032, h01=0x0050, text=» EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK «, t00=0x0005, t01=0x0046}
0x0846…0878 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE«, t00=0x0005, t01=0x007c}
0x0878…08a2 Head {h00=0x0026, h01=0x0050, text=» EXTRN SCTMMP MMU TABLE PAGE ENTRY«, t00=0x0005, t01=0x00ae}
0x08a2…08ce Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTNPE NUMBER OF PAGE ENTRIES«, t00=0x0005, t01=0x00d8}
0x08ce…08e4 Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0005, t01=0x0104}
0x08e4…08ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011a}
0x08ee…08f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0124}
0x08f8…092a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0005, t01=0x012e}
0x092a…0934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0160}
0x0934…0952 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0005, t01=0x016a}
0x0952…095c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0188}
0x095c…098e (6, 0, 400) Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x0004}
0x098e…0998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0036}
0x0998…09ca Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x0040}
0x09ca…09f8 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0006, t01=0x0072}
0x09f8…0a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a0}
0x0a02…0a16 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0006, t01=0x00aa}
0x0a16…0a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00be}
0x0a20…0a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x0a2a…0a64 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0006, t01=0x00d2}
0x0a64…0a96 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0006, t01=0x010c}
0x0a96…0aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013e}
0x0aa0…0ab4 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0006, t01=0x0148}
0x0ab4…0abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015c}
0x0abe…0ac8 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0006, t01=0x0166}
0x0ac8…0afa Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0006, t01=0x0170}
0x0afa…0b28 Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0007, t01=0x0012}
0x0b28…0b32 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x0040}
0x0b32…0b46 Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0007, t01=0x004a}
0x0b46…0b50 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x005e}
0x0b50…0b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0068}
0x0b5a…0b9e Head {h00=0x0040, h01=0x0050, text=»* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING «, t00=0x0007, t01=0x0072}
0x0b9e…0be0 Head {h00=0x003e, h01=0x0050, text=»* APPLICATION TASKS AT DIFFERENT PRIORITY LEVELS USING THE«, t00=0x0007, t01=0x00b6}
0x0be0…0c1c Head {h00=0x0038, h01=0x0050, text=»* SAME SEGMENT IS OBTAINED BY SETTING DIFPRI EQU 1. «, t00=0x0007, t01=0x00f8}
0x0c1c…0c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0134}
0x0c26…0c3a Head {h00=0x0010, h01=0x0050, text=»DIFPRI EQU 0«, t00=0x0007, t01=0x013e}
0x0c3a…0c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0152}
0x0c44…0c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015c}
0x0c4e…0c86 Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY«, t00=0x0007, t01=0x0166}
0x0c86…0cb4 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING ASSOLY EQU 1 «, t00=0x0008, t01=0x000e}
0x0cb4…0cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003c}
0x0cbe…0cd2 Head {h00=0x0010, h01=0x0050, text=»ASSOLY EQU 0«, t00=0x0008, t01=0x0046}
0x0cd2…0cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x005a}
0x0cdc…0cf2 Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0008, t01=0x0064}
0x0cf2…0cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007a}
0x0cfc…0d14 Head {h00=0x0014, h01=0x0050, text=»* D I S Q U E «, t00=0x0008, t01=0x0084}
0x0d14…0d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009c}
0x0d1e…0d54 Head {h00=0x0032, h01=0x0050, text=»* POINTER TO FIRST PLACE IN DISPATCHER QUEUE«, t00=0x0008, t01=0x00a6}
0x0d54…0d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00dc}
0x0d5e…0d74 Head {h00=0x0012, h01=0x0050, text=»DISQUE DATA 0 «, t00=0x0008, t01=0x00e6}
0x0d74…0d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00fc}
0x0d7e…0d92 Head {h00=0x0010, h01=0x0050, text=»* P R U N «, t00=0x0008, t01=0x0106}
0x0d92…0d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011a}
0x0d9c…0dc8 Head {h00=0x0028, h01=0x0050, text=»* TTAB ADDRESS OF RUNNING PROGRAM «, t00=0x0008, t01=0x0124}
0x0dc8…0dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0150}
0x0dd2…0de6 Head {h00=0x0010, h01=0x0050, text=»PRUN DATA 0 «, t00=0x0008, t01=0x015a}
0x0de6…0dfc Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0008, t01=0x016e}
0x0dfc…0e04 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0184}
0x0e04…0e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018c}
0x0e0e…0e26 Head {h00=0x0014, h01=0x0050, text=»* R E T U R 8 «, t00=0x0009, t01=0x0008}
0x0e26…0e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0020}
0x0e30…0e62 Head {h00=0x002e, h01=0x0050, text=»* LOAD 8 REGISTERS FROM STACK AND RETURN«, t00=0x0009, t01=0x002a}
0x0e62…0e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005c}
0x0e6c…0e80 Head {h00=0x0010, h01=0x0050, text=»RETUR8 EQU *«, t00=0x0009, t01=0x0066}
0x0e80…0e88 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x007a}
0x0e88…0e9e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0009, t01=0x0082}
0x0e9e…0eb0 Head {h00=0x000e, h01=0x0050, text=» MLR 8,A15«, t00=0x0009, t01=0x0098}
0x0eb0…0ebc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x00aa}
0x0ebc…0ec4 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00b6}
0x0ec4…0eda Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0009, t01=0x00be}
0x0eda…0eee Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A15«, t00=0x0009, t01=0x00d4}
0x0eee…0f02 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A15«, t00=0x0009, t01=0x00e8}
0x0f02…0f16 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x0009, t01=0x00fc}
0x0f16…0f2a Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A15«, t00=0x0009, t01=0x0110}
0x0f2a…0f3e Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A15«, t00=0x0009, t01=0x0124}
0x0f3e…0f52 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x0009, t01=0x0138}
0x0f52…0f66 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0009, t01=0x014c}
0x0f66…0f7a Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0009, t01=0x0160}
0x0f7a…0f86 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0174}
0x0f86…0f8e Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0180}
0x0f8e…0f9e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0009, t01=0x0188}
0x0f9e…0fb4 Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x000a, t01=0x0008}
0x0fb4…0fbc Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x001e}
0x0fbc…0fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0026}
0x0fc6…0fdc Head {h00=0x0012, h01=0x0050, text=»* M E X I T «, t00=0x000a, t01=0x0030}
0x0fdc…0fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0046}
0x0fe6…101a Head {h00=0x0030, h01=0x0050, text=»* DO EXIT ON MONITOR TASK AND GO TO TDISP «, t00=0x000a, t01=0x0050}
0x101a…1024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0084}
0x1024…1036 Head {h00=0x000e, h01=0x0050, text=»MEXIT INH «, t00=0x000a, t01=0x008e}
0x1036…104a Head {h00=0x0010, h01=0x0050, text=» LD A5,PRUN «, t00=0x000a, t01=0x00a0}
0x104a…105e Head {h00=0x0010, h01=0x0050, text=» CF A15,EXIT«, t00=0x000a, t01=0x00b4}
0x105e…106e Head {h00=0x000c, h01=0x0050, text=» CM PRUN«, t00=0x000a, t01=0x00c8}
0x106e…1080 Head {h00=0x000e, h01=0x0050, text=» RF TDISP «, t00=0x000a, t01=0x00d8}
0x1080…1088 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00ea}
0x1088…1092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f2}
0x1092…10aa Head {h00=0x0014, h01=0x0050, text=»* D I S I O E «, t00=0x000a, t01=0x00fc}
0x10aa…10b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0114}
0x10b4…10ee Head {h00=0x0036, h01=0x0050, text=»* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND «, t00=0x000a, t01=0x011e}
0x10ee…10f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0158}
0x10f8…1114 Head {h00=0x0018, h01=0x0050, text=»DISIOE LDKL A1,/8000«, t00=0x000a, t01=0x0162}
0x1114…111c Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x017e}
0x111c…1126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0186}
0x1126…113e Head {h00=0x0014, h01=0x0050, text=»* D I S E N D «, t00=0x000a, t01=0x0190}
0x113e…1148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0018}
0x1148…1170 Head {h00=0x0024, h01=0x0050, text=»* CALL TENDIO AND GO TO TDISP «, t00=0x000b, t01=0x0022}
0x1170…117a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x004a}
0x117a…1196 Head {h00=0x0018, h01=0x0050, text=»DISEND CF A15,TENDIO«, t00=0x000b, t01=0x0054}
0x1196…11ac Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x000b, t01=0x0070}
0x11ac…11b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0086}
0x11b6…11cc Head {h00=0x0012, h01=0x0050, text=»* T D I S P «, t00=0x000b, t01=0x0090}
0x11cc…11d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a6}
0x11d6…11fe Head {h00=0x0024, h01=0x0050, text=»* THIS IS THE DISPATCHER ENTRY«, t00=0x000b, t01=0x00b0}
0x11fe…1208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d8}
0x1208…121a Head {h00=0x000e, h01=0x0050, text=»TDISP INH «, t00=0x000b, t01=0x00e2}
0x121a…1244 Head {h00=0x0026, h01=0x0050, text=» LC A1,18,A15 LOAD PSW FROM STACK «, t00=0x000b, t01=0x00f4}
0x1244…1258 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FC «, t00=0x000b, t01=0x011e}
0x1258…126c Head {h00=0x0010, h01=0x0050, text=» SUK A1,/C4 «, t00=0x000b, t01=0x0132}
0x126c…129e Head {h00=0x002e, h01=0x0050, text=» RB(L) RETUR8 LEVEL < 49, MONITOR ROUTINE «, t00=0x000b, t01=0x0146}
0x129e…12a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0178}
0x12a8…12c8 Head {h00=0x001c, h01=0x0050, text=»* CHECK DISPATCHER QUEUE«, t00=0x000b, t01=0x0182}
0x12c8…12d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0012}
0x12d2…12f0 Head {h00=0x001a, h01=0x0050, text=»TDISCQ LDKL A2,DISQUE «, t00=0x000c, t01=0x001c}
0x12f0…1304 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x000c, t01=0x003a}
0x1304…1326 Head {h00=0x001e, h01=0x0050, text=» RB(Z) RETUR8 QUEUE EMPTY «, t00=0x000c, t01=0x004e}
0x1326…132e Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0070}
0x132e…1342 Head {h00=0x0010, h01=0x0050, text=» LD A5,PRUN «, t00=0x000c, t01=0x0078}
0x1342…136a Head {h00=0x0024, h01=0x0050, text=» RF(Z) TDCQ10 IDLE LOOP RUNNING «, t00=0x000c, t01=0x008c}
0x136a…1394 Head {h00=0x0026, h01=0x0050, text=» LD A4,TTB:ST+1,A5 COMPARE RUNNING«, t00=0x000c, t01=0x00b4}
0x1394…13cc Head {h00=0x0034, h01=0x0050, text=» CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES «, t00=0x000c, t01=0x00de}
0x13cc…13fa Head {h00=0x002a, h01=0x0050, text=» RB(NG) RETUR8 RUNNING HIGHER OR SAME «, t00=0x000c, t01=0x0116}
0x13fa…1422 Head {h00=0x0024, h01=0x0050, text=»TDCQ10 LDR* A6,A3 QUEUED HIGHER «, t00=0x000c, t01=0x0144}
0x1422…144a Head {h00=0x0024, h01=0x0050, text=» STR A6,A2 REMOVE IT FROM QUEUE «, t00=0x000c, t01=0x016c}
0x144a…1452 (13, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0004}
0x1452…1468 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000d, t01=0x000c}
0x1468…1498 Head {h00=0x002c, h01=0x0050, text=» LD A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR «, t00=0x000d, t01=0x0022}
0x1498…14b2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TDISSW NONE«, t00=0x000d, t01=0x0052}
0x14b2…14c6 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A1 «, t00=0x000d, t01=0x006c}
0x14c6…14ea Head {h00=0x0020, h01=0x0050, text=» RF(N) TDISSW SEGMENT LOADED«, t00=0x000d, t01=0x0080}
0x14ea…1520 Head {h00=0x0032, h01=0x0050, text=» CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK«, t00=0x000d, t01=0x00a4}
0x1520…154a Head {h00=0x0026, h01=0x0050, text=» RB TDISCQ TAKE NEXT TASK INSTEAD «, t00=0x000d, t01=0x00da}
0x154a…1556 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0104}
0x1556…156c Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x000d, t01=0x0110}
0x156c…1576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0126}
0x1576…158c Head {h00=0x0012, h01=0x0050, text=»* SWITCH TASKS«, t00=0x000d, t01=0x0130}
0x158c…1596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0146}
0x1596…15c4 Head {h00=0x002a, h01=0x0050, text=»TDISSW ST A3,PRUN SET NEW RUNNING TASK«, t00=0x000d, t01=0x0150}
0x15c4…15ec Head {h00=0x0024, h01=0x0050, text=» ADK A5,0 CHECK OLD RUNNING TASK«, t00=0x000d, t01=0x017e}
0x15ec…160c Head {h00=0x001c, h01=0x0050, text=» RF(Z) TDISST IDLE LOOP «, t00=0x000e, t01=0x0016}
0x160c…1614 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0036}
0x1614…1646 Head {h00=0x002e, h01=0x0050, text=» ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY«, t00=0x000e, t01=0x003e}
0x1646…1668 Head {h00=0x001e, h01=0x0050, text=» RF(Z) TDSW20 EMPTY QUEUE «, t00=0x000e, t01=0x0070}
0x1668…169c Head {h00=0x0030, h01=0x0050, text=»TDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES «, t00=0x000e, t01=0x0092}
0x169c…16d0 Head {h00=0x0030, h01=0x0050, text=» RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND «, t00=0x000e, t01=0x00c6}
0x16d0…16e2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x000e, t01=0x00fa}
0x16e2…16f6 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A2 «, t00=0x000e, t01=0x010c}
0x16f6…1726 Head {h00=0x002c, h01=0x0050, text=» RB(NZ) TDSW10 STILL SOMETHING IN QUEUE «, t00=0x000e, t01=0x0120}
0x1726…172e Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0150}
0x172e…1754 Head {h00=0x0022, h01=0x0050, text=»TDSW20 STR A5,A2 PUT IN QUEUE «, t00=0x000e, t01=0x0158}
0x1754…1766 Head {h00=0x000e, h01=0x0050, text=» STR A6,A5«, t00=0x000e, t01=0x017e}
0x1766…1792 Head {h00=0x0028, h01=0x0050, text=» ST A14,TTB:SA+28,A5 SAVE REGISTERS «, t00=0x000e, t01=0x0190}
0x1792…17a6 Head {h00=0x0010, h01=0x0050, text=» LDR A14,A5 «, t00=0x000f, t01=0x002c}
0x17a6…17ae Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0040}
0x17ae…17c4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000f, t01=0x0048}
0x17c4…17d6 Head {h00=0x000e, h01=0x0050, text=» MLR 8,A15«, t00=0x000f, t01=0x005e}
0x17d6…17f2 Head {h00=0x0018, h01=0x0050, text=» MS 13,TTB:SA+2,A14 «, t00=0x000f, t01=0x0070}
0x17f2…1804 Head {h00=0x000e, h01=0x0050, text=» MLR 2,A15«, t00=0x000f, t01=0x008c}
0x1804…180c Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x009e}
0x180c…1818 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00a6}
0x1818…182e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000f, t01=0x00b2}
0x182e…1842 Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A15«, t00=0x000f, t01=0x00c8}
0x1842…1856 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A15«, t00=0x000f, t01=0x00dc}
0x1856…186a Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x000f, t01=0x00f0}
0x186a…187e Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A15«, t00=0x000f, t01=0x0104}
0x187e…1892 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A15«, t00=0x000f, t01=0x0118}
0x1892…18a6 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x000f, t01=0x012c}
0x18a6…18ba Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x000f, t01=0x0140}
0x18ba…18ce Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x000f, t01=0x0154}
0x18ce…18ec Head {h00=0x001a, h01=0x0050, text=» ST A13,TTB:SA+26,A14 «, t00=0x000f, t01=0x0168}
0x18ec…190a Head {h00=0x001a, h01=0x0050, text=» ST A12,TTB:SA+24,A14 «, t00=0x000f, t01=0x0186}
0x190a…1928 Head {h00=0x001a, h01=0x0050, text=» ST A11,TTB:SA+22,A14 «, t00=0x0010, t01=0x0014}
0x1928…1946 Head {h00=0x001a, h01=0x0050, text=» ST A10,TTB:SA+20,A14 «, t00=0x0010, t01=0x0032}
0x1946…1962 Head {h00=0x0018, h01=0x0050, text=» ST A9,TTB:SA+18,A14«, t00=0x0010, t01=0x0050}
0x1962…197e Head {h00=0x0018, h01=0x0050, text=» ST A8,TTB:SA+16,A14«, t00=0x0010, t01=0x006c}
0x197e…199a Head {h00=0x0018, h01=0x0050, text=» ST A7,TTB:SA+14,A14«, t00=0x0010, t01=0x0088}
0x199a…19b6 Head {h00=0x0018, h01=0x0050, text=» ST A6,TTB:SA+12,A14«, t00=0x0010, t01=0x00a4}
0x19b6…19d2 Head {h00=0x0018, h01=0x0050, text=» ST A5,TTB:SA+10,A14«, t00=0x0010, t01=0x00c0}
0x19d2…19ee Head {h00=0x0018, h01=0x0050, text=» ST A4,TTB:SA+8,A14 «, t00=0x0010, t01=0x00dc}
0x19ee…1a0a Head {h00=0x0018, h01=0x0050, text=» ST A3,TTB:SA+6,A14 «, t00=0x0010, t01=0x00f8}
0x1a0a…1a26 Head {h00=0x0018, h01=0x0050, text=» ST A2,TTB:SA+4,A14 «, t00=0x0010, t01=0x0114}
0x1a26…1a42 Head {h00=0x0018, h01=0x0050, text=» ST A1,TTB:SA+2,A14 «, t00=0x0010, t01=0x0130}
0x1a42…1a56 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0010, t01=0x014c}
0x1a56…1a6a Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0010, t01=0x0160}
0x1a6a…1a76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0174}
0x1a76…1a7e Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0180}
0x1a7e…1a9e Head {h00=0x001c, h01=0x0050, text=» ST A1,TTB:SA,A14 AND PC«, t00=0x0010, t01=0x0188}
0x1a9e…1ac8 Head {h00=0x0026, h01=0x0050, text=» ST A2,TTB:PW,A14 AND PSW IN TTAB «, t00=0x0011, t01=0x0018}
0x1ac8…1ae4 Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG+DIFPRI=2«, t00=0x0011, t01=0x0042}
0x1ae4…1aec Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x005e}
0x1aec…1b1a Head {h00=0x002a, h01=0x0050, text=» LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR «, t00=0x0011, t01=0x0066}
0x1b1a…1b34 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TDISST NONE«, t00=0x0011, t01=0x0094}
0x1b34…1b58 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A1 GET SEGM STATUS «, t00=0x0011, t01=0x00ae}
0x1b58…1b6e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/1000«, t00=0x0011, t01=0x00d2}
0x1b6e…1b9e Head {h00=0x002c, h01=0x0050, text=» TM A2,A3 CHECK IF SEGM USED BY INT TASK«, t00=0x0011, t01=0x00e8}
0x1b9e…1bb8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TDISST YES«, t00=0x0011, t01=0x0118}
0x1bb8…1be6 Head {h00=0x002a, h01=0x0050, text=» ORRS A3,A1 SET SEGM USED BY INT TASK «, t00=0x0011, t01=0x0132}
0x1be6…1bfe Head {h00=0x0014, h01=0x0050, text=» LD A3,SEG:PB,A1«, t00=0x0011, t01=0x0160}
0x1bfe…1c32 Head {h00=0x0030, h01=0x0050, text=» ST A14,PAG:QB,A3 AND THAT IT WAS THIS TASK «, t00=0x0011, t01=0x0178}
0x1c32…1c3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x001c}
0x1c3e…1c54 Head {h00=0x0012, h01=0x0050, text=» EJECT TDISP«, t00=0x0012, t01=0x0028}
0x1c54…1c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003e}
0x1c5e…1c76 Head {h00=0x0014, h01=0x0050, text=»* START NEW TASK«, t00=0x0012, t01=0x0048}
0x1c76…1c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0060}
0x1c80…1c9a Head {h00=0x0016, h01=0x0050, text=»TDISST LD A14,PRUN«, t00=0x0012, t01=0x006a}
0x1c9a…1cb0 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x0012, t01=0x0084}
0x1cb0…1cb8 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x009a}
0x1cb8…1ce6 Head {h00=0x002a, h01=0x0050, text=» LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR «, t00=0x0012, t01=0x00a2}
0x1ce6…1d00 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TDST30 NONE«, t00=0x0012, t01=0x00d0}
0x1d00…1d2c Head {h00=0x0028, h01=0x0050, text=» LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR«, t00=0x0012, t01=0x00ea}
0x1d2c…1d42 Head {h00=0x0012, h01=0x0050, text=» IFT DIFPRI=0 «, t00=0x0012, t01=0x0116}
0x1d42…1d4a Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x012c}
0x1d4a…1d76 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A4 CHECK IF PAGE IN PAGQUE «, t00=0x0012, t01=0x0134}
0x1d76…1d98 Head {h00=0x001e, h01=0x0050, text=» RF(Z) TDST20 NOT IN QUEUE«, t00=0x0012, t01=0x0160}
0x1d98…1da0 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0182}
0x1da0…1dac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x018a}
0x1dac…1dc8 Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG+DIFPRI=2«, t00=0x0013, t01=0x0008}
0x1dc8…1dd0 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0024}
0x1dd0…1dfc Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A4 CHECK IF PAGE IN PAGQUE «, t00=0x0013, t01=0x002c}
0x1dfc…1e16 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TDST10 YES«, t00=0x0013, t01=0x0058}
0x1e16…1e3c Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A1 NO GET SEGM STATUS«, t00=0x0013, t01=0x0072}
0x1e3c…1e72 Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK «, t00=0x0013, t01=0x0098}
0x1e72…1e8a Head {h00=0x0014, h01=0x0050, text=» RF(Z) TDST20 NO«, t00=0x0013, t01=0x00ce}
0x1e8a…1ec2 Head {h00=0x0034, h01=0x0050, text=» CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK «, t00=0x0013, t01=0x00e6}
0x1ec2…1edc Head {h00=0x0016, h01=0x0050, text=» RF(NE) TDST20 NO «, t00=0x0013, t01=0x011e}
0x1edc…1f0a Head {h00=0x002a, h01=0x0050, text=» XRRS A3,A1 YES RESET USED BY INT TASK«, t00=0x0013, t01=0x0138}
0x1f0a…1f1c Head {h00=0x000e, h01=0x0050, text=» RF TDST20«, t00=0x0013, t01=0x0166}
0x1f1c…1f24 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0178}
0x1f24…1f30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0180}
0x1f30…1f46 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x0013, t01=0x018c}
0x1f46…1f4e Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0012}
0x1f4e…1f84 Head {h00=0x0032, h01=0x0050, text=»TDST10 LD A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE «, t00=0x0014, t01=0x001a}
0x1f84…1f96 Head {h00=0x000e, h01=0x0050, text=» STR A2,A3«, t00=0x0014, t01=0x0050}
0x1f96…1fae Head {h00=0x0014, h01=0x0050, text=» ST A3,PAG:QB,A2«, t00=0x0014, t01=0x0062}
0x1fae…1fbe Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0014, t01=0x007a}
0x1fbe…1fc6 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x008a}
0x1fc6…1ff6 Head {h00=0x002c, h01=0x0050, text=»TDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS «, t00=0x0014, t01=0x0092}
0x1ff6…2022 Head {h00=0x0028, h01=0x0050, text=» LD A5,TTB:SA+26,A14 AND T:A ADDRESS«, t00=0x0014, t01=0x00c2}
0x2022…202a Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x00ee}
0x202a…2040 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0014, t01=0x00f6}
0x2040…2048 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x010c}
0x2048…206e Head {h00=0x0022, h01=0x0050, text=» ECR A2,A1 CALC PHYS PAGE ADDR«, t00=0x0014, t01=0x0114}
0x206e…2082 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FC «, t00=0x0014, t01=0x013a}
0x2082…20b0 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A14 AND MMU PAGE ENTRY IN TTAB«, t00=0x0014, t01=0x014e}
0x20b0…20c6 Head {h00=0x0012, h01=0x0050, text=» AD A3,SCTMMP «, t00=0x0014, t01=0x017c}
0x20c6…20f6 (21, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LD A4,SCTNPE AND GET NUMBER OF ENTRIES «, t00=0x0015, t01=0x0004}
0x20f6…20fe Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0034}
0x20fe…2134 Head {h00=0x0032, h01=0x0050, text=»TDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE«, t00=0x0015, t01=0x003c}
0x2134…2146 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0015, t01=0x0072}
0x2146…215c Head {h00=0x0012, h01=0x0050, text=» RF(Z) TDST25 «, t00=0x0015, t01=0x0084}
0x215c…216e Head {h00=0x000e, h01=0x0050, text=» ADK A2,4 «, t00=0x0015, t01=0x009a}
0x216e…2180 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0015, t01=0x00ac}
0x2180…2192 Head {h00=0x000e, h01=0x0050, text=» RB TDST22«, t00=0x0015, t01=0x00be}
0x2192…219a Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x00d0}
0x219a…21ae Head {h00=0x0010, h01=0x0050, text=»TDST25 EQU *«, t00=0x0015, t01=0x00d8}
0x21ae…21c4 Head {h00=0x0012, h01=0x0050, text=» IFT ASSOLY=0 «, t00=0x0015, t01=0x00ec}
0x21c4…21ea Head {h00=0x0022, h01=0x0050, text=» TL TTB:MT,A14 LOAD MMU TABLE «, t00=0x0015, t01=0x0102}
0x21ea…2220 Head {h00=0x0032, h01=0x0050, text=» SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE«, t00=0x0015, t01=0x0128}
0x2220…2236 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFE «, t00=0x0015, t01=0x015e}
0x2236…224c Head {h00=0x0012, h01=0x0050, text=» OR A1,SCTLAP «, t00=0x0015, t01=0x0174}
0x224c…2264 Head {h00=0x0014, h01=0x0050, text=» ES A1,T:ACSB,A5«, t00=0x0015, t01=0x018a}
0x2264…2276 Head {h00=0x000e, h01=0x0050, text=» RF TDST35«, t00=0x0016, t01=0x0012}
0x2276…227e Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0024}
0x227e…228a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x002c}
0x228a…22a6 Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG-MMUPAG=1«, t00=0x0016, t01=0x0038}
0x22a6…22de Head {h00=0x0034, h01=0x0050, text=» ST A1,T:ACSB,A5 UPDATE BASE IN T:A JUST IN CASE«, t00=0x0016, t01=0x0054}
0x22de…22ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x008c}
0x22ea…22f2 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0098}
0x22f2…2306 Head {h00=0x0010, h01=0x0050, text=»TDST30 EQU *«, t00=0x0016, t01=0x00a0}
0x2306…231c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0016, t01=0x00b4}
0x231c…2342 Head {h00=0x0022, h01=0x0050, text=» TL TTB:MT,A14 LOAD MMU TABLE «, t00=0x0016, t01=0x00ca}
0x2342…234e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00f0}
0x234e…2356 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00fc}
0x2356…2380 Head {h00=0x0026, h01=0x0050, text=»TDST35 LD A1,TTB:SA,A14 GET NEW PC«, t00=0x0016, t01=0x0104}
0x2380…23a2 Head {h00=0x001e, h01=0x0050, text=» LD A2,TTB:PW,A14 AND PSW «, t00=0x0016, t01=0x012e}
0x23a2…23b8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0016, t01=0x0150}
0x23b8…23c0 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0166}
0x23c0…23ea Head {h00=0x0026, h01=0x0050, text=» MSR 2,A15 PUT PC AND PSW ON STACK«, t00=0x0016, t01=0x016e}
0x23ea…2414 Head {h00=0x0026, h01=0x0050, text=» ML 14,TTB:SA+2,A14 LOAD REGISTERS«, t00=0x0017, t01=0x0008}
0x2414…241c Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0032}
0x241c…2428 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x003a}
0x2428…243e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0017, t01=0x0046}
0x243e…2446 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x005c}
0x2446…2460 Head {h00=0x0016, h01=0x0050, text=» STR A1,A15 PUT PC«, t00=0x0017, t01=0x0064}
0x2460…2484 Head {h00=0x0020, h01=0x0050, text=» STR A2,A15 AND PSW ON STACK«, t00=0x0017, t01=0x007e}
0x2484…24ae Head {h00=0x0026, h01=0x0050, text=» LD A1,TTB:SA+2,A14 LOAD REGISTERS«, t00=0x0017, t01=0x00a2}
0x24ae…24ca Head {h00=0x0018, h01=0x0050, text=» LD A2,TTB:SA+4,A14 «, t00=0x0017, t01=0x00cc}
0x24ca…24e6 Head {h00=0x0018, h01=0x0050, text=» LD A3,TTB:SA+6,A14 «, t00=0x0017, t01=0x00e8}
0x24e6…2502 Head {h00=0x0018, h01=0x0050, text=» LD A4,TTB:SA+8,A14 «, t00=0x0017, t01=0x0104}
0x2502…251e Head {h00=0x0018, h01=0x0050, text=» LD A5,TTB:SA+10,A14«, t00=0x0017, t01=0x0120}
0x251e…253a Head {h00=0x0018, h01=0x0050, text=» LD A6,TTB:SA+12,A14«, t00=0x0017, t01=0x013c}
0x253a…2556 Head {h00=0x0018, h01=0x0050, text=» LD A7,TTB:SA+14,A14«, t00=0x0017, t01=0x0158}
0x2556…2572 Head {h00=0x0018, h01=0x0050, text=» LD A8,TTB:SA+16,A14«, t00=0x0017, t01=0x0174}
0x2572…258e Head {h00=0x0018, h01=0x0050, text=» LD A9,TTB:SA+18,A14«, t00=0x0017, t01=0x0190}
0x258e…25ac Head {h00=0x001a, h01=0x0050, text=» LD A10,TTB:SA+20,A14 «, t00=0x0018, t01=0x001c}
0x25ac…25ca Head {h00=0x001a, h01=0x0050, text=» LD A11,TTB:SA+22,A14 «, t00=0x0018, t01=0x003a}
0x25ca…25e8 Head {h00=0x001a, h01=0x0050, text=» LD A12,TTB:SA+24,A14 «, t00=0x0018, t01=0x0058}
0x25e8…2606 Head {h00=0x001a, h01=0x0050, text=» LD A13,TTB:SA+26,A14 «, t00=0x0018, t01=0x0076}
0x2606…2624 Head {h00=0x001a, h01=0x0050, text=» LD A14,TTB:SA+28,A14 «, t00=0x0018, t01=0x0094}
0x2624…262c Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00b2}
0x262c…2638 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00ba}
0x2638…2640 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00c6}
0x2640…2660 Head {h00=0x001c, h01=0x0050, text=» RTN A15 START THE TASK «, t00=0x0018, t01=0x00ce}
0x2660…2668 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00ee}
0x2668…2674 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0018, t01=0x00f6}
0x2674…2678 Head {h00=0x4004, h01=0x0000}
0x2678…267c 00 18 01 02 ┆ ┆
0x267c…2684 (25, 1, 8) 20 04 00 00 00 19 00 04 ┆ ┆
0x2684…26d4 (26, 0, 400) 37 2c 49 4e 43 41 52 44 5c 49 4e 53 45 52 54 20 43 41 52 44 00 29 01 8a 00 14 00 50 5c 52 46 28 45 29 5c 49 48 52 45 54 5c 59 45 53 00 2a 00 1c 00 12 00 50 5c 41 44 4b 5c 41 37 2c 49 4e 43 41 52 44 00 2a 00 34 00 26 00 50 5c 53 55 4b 5c 41 ┆7,INCARD INSERT CARD ) P RF(E) IHRET YES * P ADK A7,INCARD * 4 & P SUK A┆
0x26d4…2724 37 2c 45 4e 4f 46 4f 50 5c 45 4e 44 20 4f 46 20 4f 50 45 52 41 54 49 4f 4e 20 3f 20 00 2a 00 4a 00 10 00 50 5c 52 46 28 45 29 5c 49 48 52 45 54 00 2a 00 74 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 2a 00 88 00 26 00 50 5c 53 55 4b 5c 41 ┆7,ENOFOP END OF OPERATION ? * J P RF(E) IHRET * t P LDR A4,A2 * & P SUK A┆
0x2724…2774 34 2c 44 4f 43 45 53 43 5c 44 4f 43 55 4d 45 4e 54 20 45 53 43 41 50 45 44 20 3f 20 00 2a 00 9a 00 16 00 50 5c 52 46 28 45 29 5c 49 48 4d 31 34 30 5c 59 45 53 20 00 2a 00 c4 00 3c 00 50 49 48 52 45 54 5c 41 42 4c 5c 4c 44 52 45 47 5c 4c 4f ┆4,DOCESC DOCUMENT ESCAPED ? * P RF(E) IHM140 YES * < PIHRET ABL LDREG LO┆
0x2774…27c4 41 44 20 52 45 47 2e 20 41 4e 44 20 52 45 54 55 52 4e 20 43 41 4c 4c 49 4e 47 20 53 45 51 20 56 49 41 20 41 35 20 00 2a 00 de 00 06 00 50 2a 20 00 2a 01 1e 00 18 00 50 49 48 4d 31 34 30 5c 4c 44 4b 5c 41 34 2c 44 4f 43 45 53 43 00 2a 01 28 ┆AD REG. AND RETURN CALLING SEQ VIA A5 * P* * PIHM140 LDK A4,DOCESC * (┆
0x27c4…2814 00 28 00 50 5c 53 43 5c 41 34 2c 44 57 54 53 54 2b 31 2c 41 36 5c 55 50 44 41 54 45 20 53 54 41 54 55 53 20 57 4f 52 44 00 2a 01 44 00 20 00 50 5c 4c 44 4b 5c 41 31 2c 43 41 52 4d 49 53 5c 43 41 52 44 20 4d 49 53 53 49 4e 47 20 00 2a 01 70 ┆ ( P SC A4,DWTST+1,A6 UPDATE STATUS WORD * D P LDK A1,CARMIS CARD MISSING * p┆
0x2814…2864 (27, 0, 400) 00 14 00 50 45 4e 44 49 4f 34 5c 52 42 5c 45 4e 44 49 4f 33 00 2b 00 04 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 4d 53 30 32 20 00 2b 00 1c 00 06 00 50 2a 20 00 2b 00 34 00 06 00 50 2a 20 00 2b 00 3e 00 10 00 50 2a 20 20 20 52 20 43 20 ┆ PENDIO4 RB ENDIO3 + P EJECT DRMS02 + P* + 4 P* + > P* R C ┆
0x2864…28b4 4d 20 53 20 00 2b 00 48 00 06 00 50 2a 20 00 2b 00 5c 00 18 00 50 2a 20 20 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 00 2b 00 66 00 06 00 50 2a 20 00 2b 00 82 00 06 00 50 2a 20 00 2b 00 8c 00 0e 00 50 52 43 4d 53 5c 45 51 55 5c 2a ┆M S + H P* + P* RECOVERY ROUTINE + f P* + P* + PRCMS EQU *┆
0x28b4…2904 00 2b 00 96 00 06 00 50 2a 20 00 2b 00 a8 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 2b 00 b2 00 2a 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 41 31 35 20 53 54 41 43 4b 20 00 2b ┆ + P* + P IFT CPU852=1 + * P CF A15,SAVE8 SAVE A1-A8 ON A15 STACK +┆
0x2904…2954 00 c8 00 08 00 50 5c 58 49 46 00 2b 00 f6 00 06 00 50 2a 20 00 2b 01 02 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 2b 01 0c 00 1a 00 50 5c 4d 53 52 5c 38 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 38 20 00 2b 01 22 00 08 00 50 ┆ P XIF + P* + P IFT CPU852=0 + P MSR 8,A15 SAVE A1-A8 + " P┆
0x2954…29a4 5c 58 49 46 00 2b 01 40 00 06 00 50 2a 20 00 2b 01 4c 00 12 00 50 5c 4c 44 4b 5c 41 32 2c 44 4f 43 45 53 43 00 2b 01 56 00 28 00 50 5c 53 43 5c 41 32 2c 44 57 54 53 54 2b 31 2c 41 36 5c 52 45 53 45 54 20 53 54 41 54 55 53 20 57 4f 52 44 20 ┆ XIF + @ P* + L P LDK A2,DOCESC + V ( P SC A2,DWTST+1,A6 RESET STATUS WORD ┆
0x29a4…29f4 (28, 0, 400) 00 2b 01 6c 00 1a 00 50 5c 4c 44 5c 41 37 2c 44 57 54 53 54 2c 41 36 5c 42 55 53 59 3f 20 00 2c 00 08 00 12 00 50 5c 52 42 28 4e 29 5c 45 58 49 54 5c 4e 4f 00 2c 00 26 00 24 00 50 5c 4c 44 4b 5c 41 31 2c 54 48 52 45 52 52 5c 54 48 52 4f 55 ┆ + l P LD A7,DWTST,A6 BUSY? , P RB(N) EXIT NO , & $ P LDK A1,THRERR THROU┆
0x29f4…2a44 47 48 50 55 54 20 45 52 52 4f 52 20 00 2c 00 3c 00 0e 00 50 5c 52 42 5c 45 4e 44 49 4f 34 00 2c 00 64 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 4d 53 30 32 20 00 2c 00 76 00 06 00 50 2a 20 00 2c 00 8e 00 2e 00 50 2a 20 20 20 53 54 4f 52 ┆GHPUT ERROR , < P RB ENDIO4 , d P EJECT DRMS02 , v P* , . P* STOR┆
0x2a44…2a94 45 20 3d 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 53 54 4f 52 45 20 43 48 41 52 41 43 54 45 52 20 00 2c 00 98 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 49 4e 20 45 43 42 2d 42 55 46 46 45 52 20 41 4e 44 20 49 4e 43 52 45 4d 45 4e ┆E = SUBROUTINE TO STORE CHARACTER , : P* IN ECB-BUFFER AND INCREMEN┆
0x2a94…2ae4 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 2e 20 00 2c 00 ca 00 06 00 50 2a 20 00 2c 01 08 00 10 00 50 53 54 4f 52 45 5c 45 51 55 5c 2a 20 00 2c 01 12 00 22 00 50 5c 4c 44 5c 41 37 2c 45 43 42 42 41 2c 41 38 5c 42 55 46 46 45 52 20 41 44 44 ┆T BUFFER INDEX. , P* , PSTORE EQU * , " P LD A7,ECBBA,A8 BUFFER ADD┆
0x2ae4…2b34 52 45 53 53 00 2c 01 26 00 20 00 50 5c 41 44 52 5c 41 37 2c 41 33 5c 41 44 44 20 42 55 46 46 45 52 20 49 4e 44 45 58 20 00 2c 01 4c 00 1a 00 50 5c 53 43 52 5c 41 32 2c 41 37 5c 53 54 4f 52 45 20 43 48 41 52 20 00 2c 01 70 00 1a 00 50 5c 41 ┆RESS , & P ADR A7,A3 ADD BUFFER INDEX , L P SCR A2,A7 STORE CHAR , p P A┆