|
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: 4606 (0x11fe)
Notes: pts_type(SC)
Names: »TABORT.SC«
└─⟦7f25f14aa⟧ Bits:30009683 Philips computer tape "600307"
└─⟦this⟧ »M:92F4/TABORT.SC«
└─⟦f740ae34d⟧ Bits:30009708 Philips computer tape "M_92F3"
└─⟦this⟧ »M:92F3/TABORT.SC«
IDENT TABORT REL 9.2 79-11-16 870105040920 * * ************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * TABORT = ABORT I/O REQUEST * * * * * * ************************************************* * * * THIS MODULE CONTAINS THE * ABORT I/O REQUEST LKM PROCESSOR. * * EJECT TABORT * * *********** * ENTRIES * *********** * * ENTRY 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,/C000 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 9.2 79-11-16 870105040920 «, 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…0276 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00e2}
0x0276…027e Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00ea}
0x027e…0286 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00f2}
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…0b6a Head {h00=0x002c, h01=0x0050, text=» RF(Z) TABO10 NO SPECIAL ABORT ROUTINE? «, t00=0x0007, t01=0x004e}
0x0b6a…0b94 Head {h00=0x0026, h01=0x0050, text=» CFR A15,A2 PERFORM ABORT ROUTINE «, t00=0x0007, t01=0x007e}
0x0b94…0b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a8}
0x0b9e…0bb2 Head {h00=0x0010, h01=0x0050, text=»TABO10 EQU *«, t00=0x0007, t01=0x00b2}
0x0bb2…0bda Head {h00=0x0024, h01=0x0050, text=» CF A15,TENDIO ABORT ECHO DEVICE«, t00=0x0007, t01=0x00c6}
0x0bda…0bf8 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A8 RESTORE DWT«, t00=0x0007, t01=0x00ee}
0x0bf8…0c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010c}
0x0c02…0c1a Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0007, t01=0x0116}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012e}
0x0c24…0c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0138}
0x0c2e…0c42 Head {h00=0x0010, h01=0x0050, text=»TABO20 EQU *«, t00=0x0007, t01=0x0142}
0x0c42…0c5a Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTWAT,A6«, t00=0x0007, t01=0x0156}
0x0c5a…0c82 Head {h00=0x0024, h01=0x0050, text=» RF(Z) TABO30 I/O WITH NO WAIT? «, t00=0x0007, t01=0x016e}
0x0c82…0cc0 Head {h00=0x003a, h01=0x0050, text=» CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK«, t00=0x0008, t01=0x0008}
0x0cc0…0ce6 Head {h00=0x0022, h01=0x0050, text=» CM DWTWAT,A6 INDICATE NO WAIT«, t00=0x0008, t01=0x0046}
0x0ce6…0cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006c}
0x0cf0…0d04 Head {h00=0x0010, h01=0x0050, text=»TABO30 EQU *«, t00=0x0008, t01=0x0076}
0x0d04…0d40 Head {h00=0x0038, h01=0x0050, text=» LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK«, t00=0x0008, t01=0x008a}
0x0d40…0d7c Head {h00=0x0038, h01=0x0050, text=» LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) «, t00=0x0008, t01=0x00c6}
0x0d7c…0dac Head {h00=0x002c, h01=0x0050, text=» RF(Z) TABO40 NO SPECIAL ABORT ROUTINE? «, t00=0x0008, t01=0x0102}
0x0dac…0dd6 Head {h00=0x0026, h01=0x0050, text=» CFR A15,A2 PERFORM ABORT ROUTINE «, t00=0x0008, t01=0x0132}
0x0dd6…0de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015c}
0x0de0…0df4 Head {h00=0x0010, h01=0x0050, text=»TABO40 EQU *«, t00=0x0008, t01=0x0166}
0x0df4…0e16 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 RETURN CODE«, t00=0x0008, t01=0x017a}
0x0e16…0e32 Head {h00=0x0018, h01=0x0050, text=» CF A15,TENDIO ABORT«, t00=0x0009, t01=0x000c}
0x0e32…0e66 Head {h00=0x0030, h01=0x0050, text=» ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER «, t00=0x0009, t01=0x0028}
0x0e66…0e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005c}
0x0e70…0ea4 Head {h00=0x0030, h01=0x0050, text=»TABOER ABL LKMRQE GO AND INDICATE LKM ERROR «, t00=0x0009, t01=0x0066}
0x0ea4…0eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009a}
0x0eae…0eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a4}
0x0eb8…0ec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ae}
0x0ec2…0ece Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0009, t01=0x00b8}
0x0ece…0ed2 Head {h00=0x4004, h01=0x0000}
0x0ed2…0ed6 00 09 00 c4 ┆ ┆
0x0ed6…0ede (10, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x0ede…0f2e (11, 0, 400) 2c 54 54 42 3a 53 42 2c 41 33 5c 52 45 53 45 54 20 53 45 47 4d 45 4e 54 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 00 0a 01 8a 00 36 00 50 5c 4c 44 5c 41 31 2c 53 45 47 3a 44 53 2c 41 31 5c 47 45 54 20 4c 4f 47 49 43 41 4c 20 41 44 44 52 45 ┆,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRE┆
0x0f2e…0f7e 53 53 20 4f 46 20 53 45 47 4d 45 4e 54 20 30 20 00 0b 00 2e 00 06 00 50 2a 20 00 0b 00 68 00 12 00 50 5c 49 46 54 5c 44 53 4b 50 41 47 3d 31 20 00 0b 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 ┆SS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACK┆
0x0f7e…0fce 50 4f 49 4e 54 45 52 20 00 0b 00 88 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 b0 00 08 00 50 5c 58 49 46 00 0b 00 e2 00 06 00 50 2a 20 ┆POINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* ┆
0x0fce…101e 00 0b 00 ee 00 0e 00 50 5c 52 46 5c 54 4c 44 53 34 30 00 0b 00 f8 00 06 00 50 2a 20 00 0b 01 0a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4c 44 53 45 47 20 00 0b 01 14 00 06 00 50 2a 20 00 0b 01 2c 00 06 00 50 2a 20 00 0b 01 36 00 10 00 50 ┆ P RF TLDS40 P* P EJECT TLDSEG P* , P* 6 P┆
0x101e…106e 54 4c 44 53 30 35 5c 45 51 55 5c 2a 00 0b 01 40 00 12 00 50 5c 49 46 54 5c 44 53 4b 50 41 47 3d 31 20 00 0b 01 54 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 ┆TLDS05 EQU * @ P IFT DSKPAG=1 T 2 P ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ┆
0x106e…10be (12, 0, 400) 41 44 44 52 45 53 53 20 00 0b 01 6a 00 22 00 50 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 0c 00 10 00 2a 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 ┆ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOAD┆
0x10be…110e 45 44 20 49 4e 20 43 4f 52 45 3f 20 00 0c 00 36 00 14 00 50 5c 53 54 5c 41 32 2c 54 54 42 3a 53 41 2c 41 33 00 0c 00 64 00 0c 00 50 5c 43 4d 5c 50 52 55 4e 00 0c 00 7c 00 06 00 50 2a 20 00 0c 00 8c 00 18 00 50 2a 5c 41 43 54 49 56 41 54 45 ┆ED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE┆
0x110e…115e 20 4c 4f 41 44 20 54 41 53 4b 00 0c 00 96 00 06 00 50 2a 20 00 0c 00 b2 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 ┆ LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK ┆
0x115e…11ae 00 bc 00 20 00 50 5c 41 42 4c 5c 54 44 49 53 50 5c 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 00 0c 00 f6 00 08 00 50 5c 58 49 46 00 0c 01 1a 00 06 00 50 2a 20 00 0c 01 26 00 32 00 50 54 4c 44 53 31 30 5c 4c 44 5c 41 31 2c 53 45 47 ┆ P ABL TDISP GO TO DISPATCHER P XIF P* & 2 PTLDS10 LD A1,SEG┆
0x11ae…11fe 3a 50 42 2c 41 31 5c 47 45 54 20 50 41 47 45 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 20 00 0c 01 30 00 06 00 50 2a 20 00 0c 01 66 00 12 00 50 5c 49 46 54 5c 44 53 4b 50 41 47 3d 31 20 00 0c 01 70 00 24 00 50 5c 53 55 4b 4c 5c 41 31 35 2c ┆:PB,A1 GET PAGE BLOCK ADDRESS 0 P* f P IFT DSKPAG=1 p $ P SUKL A15,┆