|
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:DE10/TABORT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:DE10/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) 52 20 00 0a 01 72 00 2e 00 50 5c 53 54 5c 41 32 2c 34 2c 41 31 35 5c 53 45 54 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 4f 4e 20 53 54 41 43 4b 00 0b 00 0a 00 08 00 50 5c 58 49 46 00 0b 00 3c 00 0e 00 50 5c 52 46 5c 54 4c 44 53 ┆R r . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF < P RF TLDS┆
0x0f28…0f78 34 30 00 0b 00 48 00 06 00 50 2a 20 00 0b 00 5a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4c 44 53 45 47 20 00 0b 00 64 00 06 00 50 2a 20 00 0b 00 7c 00 06 00 50 2a 20 00 0b 00 86 00 10 00 50 54 4c 44 53 30 35 5c 45 51 55 5c 2a 00 0b 00 90 ┆40 H P* Z P EJECT TLDSEG d P* | P* PTLDS05 EQU * ┆
0x0f78…0fc8 00 12 00 50 5c 49 46 54 5c 44 53 4b 50 41 47 3d 31 20 00 0b 00 a4 00 32 00 50 5c 53 54 5c 41 31 2c 54 54 42 3a 53 42 2c 41 33 5c 55 50 44 41 54 45 20 53 45 47 4d 45 4e 54 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 20 00 0b 00 ba 00 22 00 50 ┆ P IFT DSKPAG=1 2 P ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS " P┆
0x0fc8…1018 5c 4c 44 52 2a 5c 41 34 2c 41 31 5c 47 45 54 20 53 45 47 4d 45 4e 54 20 53 54 41 54 55 53 00 0b 00 f0 00 28 00 50 5c 52 46 28 4e 29 5c 54 4c 44 53 31 30 5c 53 45 47 4d 45 4e 54 20 4c 4f 41 44 45 44 20 49 4e 20 43 4f 52 45 00 0b 01 16 00 14 ┆ LDR* A4,A1 GET SEGMENT STATUS ( P RF(N) TLDS10 SEGMENT LOADED IN CORE ┆
0x1018…1068 00 50 5c 53 54 5c 41 32 2c 54 54 42 3a 53 41 2c 41 33 00 0b 01 42 00 0c 00 50 5c 43 4d 5c 50 52 55 4e 00 0b 01 5a 00 06 00 50 2a 20 00 0b 01 6a 00 18 00 50 2a 5c 41 43 54 49 56 41 54 45 20 4c 4f 41 44 20 54 41 53 4b 00 0b 01 74 00 06 00 50 ┆ P ST A2,TTB:SA,A3 B P CM PRUN Z P* j P* ACTIVATE LOAD TASK t P┆
0x1068…10b8 (12, 0, 400) 2a 20 00 0b 01 90 00 36 00 50 5c 43 46 5c 41 31 35 2c 51 4c 54 44 53 4b 5c 41 43 54 49 56 41 54 45 20 4c 4f 41 44 20 54 41 53 4b 20 41 54 20 45 4e 54 52 59 20 4c 54 3a 44 53 4b 20 00 0c 00 0a 00 20 00 50 5c 41 42 4c 5c 54 44 49 53 50 5c 47 ┆* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP G┆
0x10b8…1108 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 00 0c 00 44 00 06 00 50 2a 20 00 0c 00 68 00 10 00 50 54 4c 44 53 31 30 5c 45 51 55 5c 2a 00 0c 00 72 00 24 00 50 5c 53 55 4b 4c 5c 41 31 35 2c 34 5c 41 44 4a 55 53 54 20 53 54 41 43 4b 50 4f ┆O TO DISPATCHER D P* h PTLDS10 EQU * r $ P SUKL A15,4 ADJUST STACKPO┆
0x1108…1158 49 4e 54 45 52 20 00 0c 00 86 00 2e 00 50 5c 53 54 5c 41 32 2c 34 2c 41 31 35 5c 53 45 54 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 4f 4e 20 53 54 41 43 4b 00 0c 00 ae 00 08 00 50 5c 58 49 46 00 0c 00 e0 00 06 00 50 2a 20 00 0c ┆INTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* ┆
0x1158…11a8 00 ec 00 26 00 50 54 4c 44 53 31 35 5c 45 51 55 5c 2a 5c 45 4e 54 52 59 20 55 53 45 44 20 42 59 20 4c 44 54 41 53 4b 20 00 0c 00 f6 00 28 00 50 5c 4c 44 5c 41 31 2c 53 45 47 3a 50 42 2c 41 31 5c 50 41 47 45 20 42 4c 4f 43 4b 20 41 44 44 52 ┆ & PTLDS15 EQU * ENTRY USED BY LDTASK ( P LD A1,SEG:PB,A1 PAGE BLOCK ADDR┆
0x11a8…11f8 45 53 53 20 00 0c 01 20 00 12 00 50 5c 49 46 54 5c 44 53 4b 50 41 47 3d 31 20 00 0c 01 4c 00 06 00 50 2a 20 00 0c 01 62 00 28 00 50 2a 5c 52 45 4d 4f 56 45 20 50 41 47 45 20 42 4c 4f 43 4b 20 46 52 4f 4d 20 50 41 47 45 20 51 55 45 55 45 20 ┆ESS P IFT DSKPAG=1 L P* b ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE ┆