|
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: 4600 (0x11f8)
Notes: pts_type(SC)
Names: »TABORT.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:LP/TABORT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:LP/TABORT.SC«
IDENT TABORT REL 10.0 80-03-14 870105041000 * * ************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * TABORT = ABORT I/O REQUEST * * * * * * ************************************************* * * * THIS MODULE CONTAINS THE * ABORT I/O REQUEST LKM PROCESSOR. * * EJECT TABORT * * *********** * ENTRIES * *********** * * ENTRY TABORT EJECT TABORT * * ************* * EXTERNALS * ************* * * EXTRN FNDDWT FIND DWT ADDRESS EXTRN DWTST DWT STATUS EXTRN DWTADR DRIVER ADDRESS BLOCK EXTRN DWTTAB TTAB ADDRESS IN DWT EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT EXTRN DWTECH ECHO DEVICE DWT EXTRN ABTADR ABORT ROUTINE ADDRESS EXTRN TENDIO END I/O EXTRN LKMQDI QUEUE JOB AND DISPATCH EXTRN LKMRQE LKM REQUEST ERROR EXTRN FREBLK FREE ONE BLOCK EJECT TABORT * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * EJECT TABORT * * ********** * TABORT * ********** * * * THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. * * IT IS ENTERED FROM THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS: * * A5 = TTAB ADDRESS * A8 = ECB ADDRESS * * A PENDING I/O REQUEST IS ABORTED. * THE ABORT REQUEST MUST BE ISSUED FROM THE SAME TASK * THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN * NOT BE ABORTED. * * TABORT EQU * IFT MMUPAG=0 LDR* A3,A8 GET FIRST WORD OF ECB XIF * IFT MMUPAG=1 ELR A3,A8 GET FIRST WORD OF ECB XIF * RF(N) TABOER REQUEST ALREADY COMPLETED CF A15,FNDDWT LOOK FOR DWT ADDRESS LDR A8,A6 RF(Z) TABOER DWT UNKNOWN * EJECT TABORT * * CW A5,DWTTAB,A6 RF(NE) TABOER ILLEGAL TASK LD A7,DWTST,A6 RF(N) TABOER DEVICE NOT BUSY SLC A7,2 RF(NN) TABO20 NOT ECHO REQUEST * * ABORT ECHO DEVICE * LD A6,DWTECH,A6 GET ECHO DWT LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) RF(Z) TABO10 NO SPECIAL ABORT ROUTINE CFR A15,A2 PERFORM ABORT ROUTINE * TABO10 EQU * CF A15,TENDIO ABORT ECHO DEVICE LDR A6,A8 RESTORE DWT * EJECT TABORT * * TABO20 EQU * LD A4,DWTWAT,A6 RF(Z) TABO30 I/O WITH NO WAIT CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK CM DWTWAT,A6 INDICATE NO WAIT * TABO30 EQU * LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) RF(Z) TABO40 NO SPECIAL ABORT ROUTINE CFR A15,A2 PERFORM ABORT ROUTINE * TABO40 EQU * LDKL A1,/4000 RETURN CODE CF A15,TENDIO ABORT ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER * TABOER ABL LKMRQE GO AND INDICATE LKM ERROR * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TABORT REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…008c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x0056}
0x008c…0096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00be Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009a}
0x00be…00c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…00ee Head {h00=0x0022, h01=0x0050, text=»* TABORT = ABORT I/O REQUEST«, t00=0x0000, t01=0x00cc}
0x00ee…00f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x00f8…0102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…012a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x012a…0164 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x012e}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…019c Head {h00=0x0020, h01=0x0050, text=»* THIS MODULE CONTAINS THE«, t00=0x0000, t01=0x017c}
0x019c…01c8 Head {h00=0x0028, h01=0x0050, text=»* ABORT I/O REQUEST LKM PROCESSOR.«, t00=0x0001, t01=0x0010}
0x01c8…01d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003c}
0x01d2…01dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0046}
0x01dc…01f4 Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0001, t01=0x0050}
0x01f4…01fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0068}
0x01fe…0208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0072}
0x0208…021c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x007c}
0x021c…0230 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x0090}
0x0230…0244 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x00a4}
0x0244…024e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b8}
0x024e…0258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c2}
0x0258…026e Head {h00=0x0012, h01=0x0050, text=» ENTRY TABORT «, t00=0x0001, t01=0x00cc}
0x026e…0286 Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0001, t01=0x00e2}
0x0286…0290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x0290…029a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x029a…02b0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0001, t01=0x010e}
0x02b0…02c6 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0001, t01=0x0124}
0x02c6…02dc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0001, t01=0x013a}
0x02dc…02e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0150}
0x02e6…02f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015a}
0x02f0…0316 Head {h00=0x0022, h01=0x0050, text=» EXTRN FNDDWT FIND DWT ADDRESS«, t00=0x0001, t01=0x0164}
0x0316…0336 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0001, t01=0x018a}
0x0336…0360 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTADR DRIVER ADDRESS BLOCK«, t00=0x0002, t01=0x001a}
0x0360…038a Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS IN DWT «, t00=0x0002, t01=0x0044}
0x038a…03be Head {h00=0x0030, h01=0x0050, text=» EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT«, t00=0x0002, t01=0x006e}
0x03be…03e4 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTECH ECHO DEVICE DWT «, t00=0x0002, t01=0x00a2}
0x03e4…0410 Head {h00=0x0028, h01=0x0050, text=» EXTRN ABTADR ABORT ROUTINE ADDRESS «, t00=0x0002, t01=0x00c8}
0x0410…042e Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0002, t01=0x00f4}
0x042e…045a Head {h00=0x0028, h01=0x0050, text=» EXTRN LKMQDI QUEUE JOB AND DISPATCH«, t00=0x0002, t01=0x0112}
0x045a…0482 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x013e}
0x0482…04a6 Head {h00=0x0020, h01=0x0050, text=» EXTRN FREBLK FREE ONE BLOCK«, t00=0x0002, t01=0x0166}
0x04a6…04be Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0002, t01=0x018a}
0x04be…04c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0012}
0x04c8…04d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001c}
0x04d2…0504 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x0026}
0x0504…050e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0058}
0x050e…052c Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0003, t01=0x0062}
0x052c…0536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0080}
0x0536…0568 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x008a}
0x0568…0572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00bc}
0x0572…05a4 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0003, t01=0x00c6}
0x05a4…05d2 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0003, t01=0x00f8}
0x05d2…05dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0126}
0x05dc…05f0 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0003, t01=0x0130}
0x05f0…05fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0144}
0x05fa…0612 Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0003, t01=0x014e}
0x0612…061c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0166}
0x061c…0626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0170}
0x0626…0638 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0003, t01=0x017a}
0x0638…064a Head {h00=0x000e, h01=0x0050, text=»* TABORT *«, t00=0x0003, t01=0x018c}
0x064a…065c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0004, t01=0x000e}
0x065c…0666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0020}
0x0666…0670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002a}
0x0670…06a8 Head {h00=0x0034, h01=0x0050, text=»* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR.«, t00=0x0004, t01=0x0034}
0x06a8…06b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006c}
0x06b2…06e0 Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0004, t01=0x0076}
0x06e0…070a Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0004, t01=0x00a4}
0x070a…0714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ce}
0x0714…0732 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0004, t01=0x00d8}
0x0732…074e Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0004, t01=0x00f6}
0x074e…0758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0112}
0x0758…0786 Head {h00=0x002a, h01=0x0050, text=»* A PENDING I/O REQUEST IS ABORTED. «, t00=0x0004, t01=0x011c}
0x0786…07c6 Head {h00=0x003c, h01=0x0050, text=»* THE ABORT REQUEST MUST BE ISSUED FROM THE SAME TASK «, t00=0x0004, t01=0x014a}
0x07c6…0804 Head {h00=0x003a, h01=0x0050, text=»* THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN «, t00=0x0004, t01=0x018a}
0x0804…0820 Head {h00=0x0018, h01=0x0050, text=»* NOT BE ABORTED. «, t00=0x0005, t01=0x0038}
0x0820…082a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0054}
0x082a…0834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005e}
0x0834…0848 Head {h00=0x0010, h01=0x0050, text=»TABORT EQU *«, t00=0x0005, t01=0x0068}
0x0848…085e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0005, t01=0x007c}
0x085e…0888 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A8 GET FIRST WORD OF ECB «, t00=0x0005, t01=0x0092}
0x0888…0894 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x00bc}
0x0894…089e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c8}
0x089e…08b4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0005, t01=0x00d2}
0x08b4…08dc Head {h00=0x0024, h01=0x0050, text=» ELR A3,A8 GET FIRST WORD OF ECB«, t00=0x0005, t01=0x00e8}
0x08dc…08e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x0110}
0x08e8…08f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011c}
0x08f2…0922 Head {h00=0x002c, h01=0x0050, text=» RF(N) TABOER REQUEST ALREADY COMPLETED «, t00=0x0005, t01=0x0126}
0x0922…094e Head {h00=0x0028, h01=0x0050, text=» CF A15,FNDDWT LOOK FOR DWT ADDRESS «, t00=0x0005, t01=0x0156}
0x094e…0960 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A6«, t00=0x0005, t01=0x0182}
0x0960…0982 (6, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RF(Z) TABOER DWT UNKNOWN «, t00=0x0006, t01=0x0004}
0x0982…098c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0026}
0x098c…09a4 Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0006, t01=0x0030}
0x09a4…09ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0048}
0x09ae…09b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0052}
0x09b8…09d0 Head {h00=0x0014, h01=0x0050, text=» CW A5,DWTTAB,A6«, t00=0x0006, t01=0x005c}
0x09d0…09f4 Head {h00=0x0020, h01=0x0050, text=» RF(NE) TABOER ILLEGAL TASK «, t00=0x0006, t01=0x0074}
0x09f4…0a0c Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTST,A6 «, t00=0x0006, t01=0x0098}
0x0a0c…0a32 Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOER DEVICE NOT BUSY «, t00=0x0006, t01=0x00b0}
0x0a32…0a44 Head {h00=0x000e, h01=0x0050, text=» SLC A7,2 «, t00=0x0006, t01=0x00d6}
0x0a44…0a6c Head {h00=0x0024, h01=0x0050, text=» RF(NN) TABO20 NOT ECHO REQUEST «, t00=0x0006, t01=0x00e8}
0x0a6c…0a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0110}
0x0a76…0a92 Head {h00=0x0018, h01=0x0050, text=»* ABORT ECHO DEVICE «, t00=0x0006, t01=0x011a}
0x0a92…0a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0136}
0x0a9c…0ac2 Head {h00=0x0022, h01=0x0050, text=» LD A6,DWTECH,A6 GET ECHO DWT «, t00=0x0006, t01=0x0140}
0x0ac2…0afe Head {h00=0x0038, h01=0x0050, text=» LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK«, t00=0x0006, t01=0x0166}
0x0afe…0b3a Head {h00=0x0038, h01=0x0050, text=» LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) «, t00=0x0007, t01=0x0012}
0x0b3a…0b68 Head {h00=0x002a, h01=0x0050, text=» RF(Z) TABO10 NO SPECIAL ABORT ROUTINE«, t00=0x0007, t01=0x004e}
0x0b68…0b92 Head {h00=0x0026, h01=0x0050, text=» CFR A15,A2 PERFORM ABORT ROUTINE «, t00=0x0007, t01=0x007c}
0x0b92…0b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a6}
0x0b9c…0bb0 Head {h00=0x0010, h01=0x0050, text=»TABO10 EQU *«, t00=0x0007, t01=0x00b0}
0x0bb0…0bd8 Head {h00=0x0024, h01=0x0050, text=» CF A15,TENDIO ABORT ECHO DEVICE«, t00=0x0007, t01=0x00c4}
0x0bd8…0bf6 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A8 RESTORE DWT«, t00=0x0007, t01=0x00ec}
0x0bf6…0c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010a}
0x0c00…0c18 Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0007, t01=0x0114}
0x0c18…0c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012c}
0x0c22…0c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0136}
0x0c2c…0c40 Head {h00=0x0010, h01=0x0050, text=»TABO20 EQU *«, t00=0x0007, t01=0x0140}
0x0c40…0c58 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTWAT,A6«, t00=0x0007, t01=0x0154}
0x0c58…0c7e Head {h00=0x0022, h01=0x0050, text=» RF(Z) TABO30 I/O WITH NO WAIT«, t00=0x0007, t01=0x016c}
0x0c7e…0cbc (8, 0, 398) Head {h00=0x003a, h01=0x0050, text=» CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK«, t00=0x0008, t01=0x0004}
0x0cbc…0ce2 Head {h00=0x0022, h01=0x0050, text=» CM DWTWAT,A6 INDICATE NO WAIT«, t00=0x0008, t01=0x0042}
0x0ce2…0cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0068}
0x0cec…0d00 Head {h00=0x0010, h01=0x0050, text=»TABO30 EQU *«, t00=0x0008, t01=0x0072}
0x0d00…0d3c Head {h00=0x0038, h01=0x0050, text=» LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK«, t00=0x0008, t01=0x0086}
0x0d3c…0d78 Head {h00=0x0038, h01=0x0050, text=» LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) «, t00=0x0008, t01=0x00c2}
0x0d78…0da6 Head {h00=0x002a, h01=0x0050, text=» RF(Z) TABO40 NO SPECIAL ABORT ROUTINE«, t00=0x0008, t01=0x00fe}
0x0da6…0dd0 Head {h00=0x0026, h01=0x0050, text=» CFR A15,A2 PERFORM ABORT ROUTINE «, t00=0x0008, t01=0x012c}
0x0dd0…0dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0156}
0x0dda…0dee Head {h00=0x0010, h01=0x0050, text=»TABO40 EQU *«, t00=0x0008, t01=0x0160}
0x0dee…0e10 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/4000 RETURN CODE«, t00=0x0008, t01=0x0174}
0x0e10…0e2c Head {h00=0x0018, h01=0x0050, text=» CF A15,TENDIO ABORT«, t00=0x0009, t01=0x0008}
0x0e2c…0e60 Head {h00=0x0030, h01=0x0050, text=» ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER «, t00=0x0009, t01=0x0024}
0x0e60…0e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0058}
0x0e6a…0e9e Head {h00=0x0030, h01=0x0050, text=»TABOER ABL LKMRQE GO AND INDICATE LKM ERROR «, t00=0x0009, t01=0x0062}
0x0e9e…0ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0096}
0x0ea8…0eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a0}
0x0eb2…0ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00aa}
0x0ebc…0ec8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0009, t01=0x00b4}
0x0ec8…0ecc Head {h00=0x4004, h01=0x0000}
0x0ecc…0ed0 00 09 00 c0 ┆ ┆
0x0ed0…0ed8 (10, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x0ed8…0f28 (11, 0, 400) 5c 54 50 52 4f 43 00 0a 01 88 00 06 00 50 2a 20 00 0b 00 0e 00 06 00 50 2a 20 00 0b 00 18 00 24 00 50 54 4d 57 41 49 54 5c 45 51 55 5c 2a 5c 4d 55 4c 54 49 50 4c 45 20 57 41 49 54 20 45 4e 54 52 59 00 0b 00 22 00 0e 00 50 5c 4c 44 4b 5c 41 ┆ TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY " P LDK A┆
0x0f28…0f78 33 2c 30 20 00 0b 00 4a 00 06 00 50 2a 20 00 0b 00 5c 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 00 0b 00 66 00 2a 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 37 5c 47 45 54 20 4e 4f 20 4f 46 20 45 43 42 3a 53 20 49 4e 20 45 43 42 42 4c ┆3,0 J P* P IFT MMUPAG=0 f * P LDR* A1,A7 GET NO OF ECB:S IN ECBBL┆
0x0f78…0fc8 4b 20 00 0b 00 7c 00 08 00 50 5c 58 49 46 00 0b 00 aa 00 06 00 50 2a 20 00 0b 00 b6 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 0b 00 c0 00 28 00 50 5c 45 4c 52 5c 41 31 2c 41 37 5c 47 45 54 20 4e 4f 20 4f 46 20 45 43 42 3a 53 ┆K | P XIF P* P IFT MMUPAG=1 ( P ELR A1,A7 GET NO OF ECB:S┆
0x0fc8…1018 20 49 4e 20 45 43 42 42 4c 4b 00 0b 00 d6 00 08 00 50 5c 58 49 46 00 0b 01 02 00 06 00 50 2a 20 00 0b 01 0e 00 28 00 50 5c 52 46 28 4e 50 29 5c 54 50 3a 52 51 45 5c 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 49 46 20 3c 3d 20 30 00 0b 01 18 ┆ IN ECBBLK P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 ┆
0x1018…1068 00 06 00 50 2a 20 00 0b 01 44 00 10 00 50 54 4d 57 3a 31 30 5c 45 51 55 5c 2a 00 0b 01 4e 00 32 00 50 5c 41 44 4b 5c 41 37 2c 32 5c 50 4f 49 4e 54 20 54 4f 20 4e 45 58 54 20 45 43 42 20 41 44 44 52 45 53 53 20 49 4e 20 45 43 42 42 4c 4b 20 ┆ P* D PTMW:10 EQU * N 2 P ADK A7,2 POINT TO NEXT ECB ADDRESS IN ECBBLK ┆
0x1068…10b8 (12, 0, 400) 00 0b 01 62 00 06 00 50 2a 20 00 0c 00 08 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 00 0c 00 12 00 20 00 50 5c 4c 44 52 2a 5c 41 38 2c 41 37 5c 47 45 54 20 45 43 42 20 41 44 44 52 45 53 53 20 00 0c 00 28 00 26 00 50 5c 4c 44 52 ┆ b P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS ( & P LDR┆
0x10b8…1108 2a 5c 41 32 2c 41 38 5c 47 45 54 20 46 49 52 53 54 20 57 4f 52 44 20 4f 46 20 45 43 42 20 00 0c 00 4c 00 08 00 50 5c 58 49 46 00 0c 00 76 00 06 00 50 2a 20 00 0c 00 82 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 0c 00 8c 00 1e ┆* A2,A8 GET FIRST WORD OF ECB L P XIF v P* P IFT MMUPAG=1 ┆
0x1108…1158 00 50 5c 45 4c 52 5c 41 38 2c 41 37 5c 47 45 54 20 45 43 42 20 41 44 44 52 45 53 53 00 0c 00 a2 00 24 00 50 5c 45 4c 52 5c 41 32 2c 41 38 5c 47 45 54 20 46 49 52 53 54 20 57 4f 52 44 20 4f 46 20 45 43 42 00 0c 00 c4 00 08 00 50 5c 58 49 46 ┆ P ELR A8,A7 GET ECB ADDRESS $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF┆
0x1158…11a8 00 0c 00 ec 00 06 00 50 2a 20 00 0c 00 f8 00 28 00 50 5c 52 46 28 4e 29 5c 54 4d 57 3a 33 30 5c 49 2f 4f 20 41 4c 52 45 41 44 59 20 43 4f 4d 50 4c 45 54 45 44 20 00 0c 01 02 00 38 00 50 5c 43 46 5c 41 31 35 2c 46 4e 44 44 57 54 5c 4e 4f 2c ┆ P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED 8 P CF A15,FNDDWT NO,┆
0x11a8…11f8 20 53 45 41 52 43 48 20 44 57 54 20 41 44 44 52 45 53 53 20 46 52 4f 4d 20 46 49 4c 45 20 43 4f 44 45 00 0c 01 2e 00 14 00 50 5c 41 44 4b 5c 41 36 2c 30 5c 53 45 54 20 43 52 00 0c 01 6a 00 1c 00 50 5c 52 46 28 5a 29 5c 54 50 3a 52 51 45 5c ┆ SEARCH DWT ADDRESS FROM FILE CODE . P ADK A6,0 SET CR j P RF(Z) TP:RQE ┆