|
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: 4696 (0x1258)
Notes: pts_type(SC)
Names: »TABORT.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/TABORT.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/TABORT.SC«
IDENT TABORT REL 11.0 81-01-26 870105041100 * * ************************************************* * * 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 DWTECB ECB ADDRESS EXTRN DWTSB2 2ND STACK BASE IN DWT EXTRN DWTECH ECHO DEVICE DWT ADDRESS EXTRN TENDIO END I/O EXTRN ABTADR ABORT ROUTINE ADDRESS EXTRN DISEND TENDIO AND TDISP EXTRN LKMRQE LKM REQUEST ERROR EXTRN FREBLK FREE ONE BLOCK EXTRN ECBRC ECN RETURN CODE 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 FIRST WORD OF ECB XIF * IFT MMUPAG=1 ELR A3,A8 FIRST WORD OF ECB XIF * RF(N) TABRQE REQUEST ALREADY COMPLETED CF A15,FNDDWT LOOK FOR DWT ADDRESS LDR A7,A6 SAVE DWT ADDRESS RF(Z) TABRQE DWT UNKNOWN * EJECT TABORT * * CW A5,DWTTAB,A6 RF(NE) TABRQE ILLEGAL TASK LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK LD A9,ABTADR,A2 ABORT ROUTINE ADDRESS CWK A9,1 RF(E) TABRQE ABORT NOT ALLOWED LD A4,DWTST,A6 RF(N) TABRQE DEVICE NOT BUSY SLC A4,2 RF(NN) TAB:20 NOT ECHO REQUEST LD A6,DWTECH,A6 ECHO DWT ADDRESS LD A3,DWTADR,A6 ADDRESS TO ECHO DRIVER ADDRESS BLOCK LD A3,ABTADR,A3 ABORT ROUTINE ADDRESS RF(NZ) TAB:10 CF A15,TENDIO SET ECHO DEVICE FREE * TAB:10 EQU * SUK A3,1 RF(Z) TABRQE ABORT NOT ALLOWED ON ECHO DEVICE LDR A6,A7 RESTORE DWT ADDRESS * TAB:20 EQU * LD A4,DWTWAT,A6 RF(Z) TAB:30 I/O WITH NO WAIT CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK * EJECT TABORT * * TAB:30 EQU * LD A8,DWTECB,A6 ACTUAL ECB ADDRESS LDK A1,1 ST A1,DWTWAT,A6 INDICATE WAIT SRC A1,2 A1 := /4000 ORS A1,ECBRC,A8 SET RETURN CODE TO ABORTED LDKL A5,DWTSB2 2ND STACK BASE DISPLACEMENT IN DWT ADR A5,A6 ADD DWT ADDRESS * * EXIT IS MADE TO DRIVER ABORT ROUTINE * WITH THE FOLLOWING PARAMETERS: * * A5 = 2ND STACK BASE IN DWT * A6 = DWT ADDRESS * A8 = ECB ADDRESS (IN SYSTEM AREA IF MMU) * LDR A9,A9 ABORT ROUTINE ADDRESS ABR(NZ) A9 PERFORM ABORT ROUTINE (IF ANY) ABL DISEND TENDIO AND TDISP * TABRQE ABL LKMRQE GO AND INDICATE LKM ERROR * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TABORT REL 11.0 81-01-26 870105041100 «, 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…03e0 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0002, t01=0x00a2}
0x03e0…040c Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTSB2 2ND STACK BASE IN DWT «, t00=0x0002, t01=0x00c4}
0x040c…043a Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTECH ECHO DEVICE DWT ADDRESS «, t00=0x0002, t01=0x00f0}
0x043a…0458 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0002, t01=0x011e}
0x0458…0484 Head {h00=0x0028, h01=0x0050, text=» EXTRN ABTADR ABORT ROUTINE ADDRESS «, t00=0x0002, t01=0x013c}
0x0484…04aa Head {h00=0x0022, h01=0x0050, text=» EXTRN DISEND TENDIO AND TDISP«, t00=0x0002, t01=0x0168}
0x04aa…04d2 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x018e}
0x04d2…04f6 Head {h00=0x0020, h01=0x0050, text=» EXTRN FREBLK FREE ONE BLOCK«, t00=0x0003, t01=0x0026}
0x04f6…051a Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECN RETURN CODE«, t00=0x0003, t01=0x004a}
0x051a…0532 Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0003, t01=0x006e}
0x0532…053c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0086}
0x053c…0546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0090}
0x0546…0578 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x009a}
0x0578…0582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00cc}
0x0582…05a0 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0003, t01=0x00d6}
0x05a0…05aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f4}
0x05aa…05dc Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x00fe}
0x05dc…05e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0130}
0x05e6…0618 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0003, t01=0x013a}
0x0618…0646 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0003, t01=0x016c}
0x0646…0650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000a}
0x0650…0664 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0004, t01=0x0014}
0x0664…066e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0028}
0x066e…0686 Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0004, t01=0x0032}
0x0686…0690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004a}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0054}
0x069a…06ac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0004, t01=0x005e}
0x06ac…06be Head {h00=0x000e, h01=0x0050, text=»* TABORT *«, t00=0x0004, t01=0x0070}
0x06be…06d0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0004, t01=0x0082}
0x06d0…06da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0094}
0x06da…06e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e4…071c Head {h00=0x0034, h01=0x0050, text=»* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR.«, t00=0x0004, t01=0x00a8}
0x071c…0726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e0}
0x0726…0754 Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0004, t01=0x00ea}
0x0754…077e Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0004, t01=0x0118}
0x077e…0788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0142}
0x0788…07a6 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0004, t01=0x014c}
0x07a6…07c2 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0004, t01=0x016a}
0x07c2…07cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0186}
0x07cc…07fa Head {h00=0x002a, h01=0x0050, text=»* A PENDING I/O REQUEST IS ABORTED. «, t00=0x0004, t01=0x0190}
0x07fa…083a Head {h00=0x003c, h01=0x0050, text=»* THE ABORT REQUEST MUST BE ISSUED FROM THE SAME TASK «, t00=0x0005, t01=0x002e}
0x083a…0878 Head {h00=0x003a, h01=0x0050, text=»* THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN «, t00=0x0005, t01=0x006e}
0x0878…0894 Head {h00=0x0018, h01=0x0050, text=»* NOT BE ABORTED. «, t00=0x0005, t01=0x00ac}
0x0894…089e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c8}
0x089e…08a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d2}
0x08a8…08bc Head {h00=0x0010, h01=0x0050, text=»TABORT EQU *«, t00=0x0005, t01=0x00dc}
0x08bc…08d2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0005, t01=0x00f0}
0x08d2…08f8 Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A8 FIRST WORD OF ECB «, t00=0x0005, t01=0x0106}
0x08f8…0904 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x012c}
0x0904…090e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0138}
0x090e…0924 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0005, t01=0x0142}
0x0924…0948 Head {h00=0x0020, h01=0x0050, text=» ELR A3,A8 FIRST WORD OF ECB«, t00=0x0005, t01=0x0158}
0x0948…0954 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x017c}
0x0954…095e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0188}
0x095e…098e (6, 0, 400) Head {h00=0x002c, h01=0x0050, text=» RF(N) TABRQE REQUEST ALREADY COMPLETED «, t00=0x0006, t01=0x0004}
0x098e…09ba Head {h00=0x0028, h01=0x0050, text=» CF A15,FNDDWT LOOK FOR DWT ADDRESS «, t00=0x0006, t01=0x0034}
0x09ba…09de Head {h00=0x0020, h01=0x0050, text=» LDR A7,A6 SAVE DWT ADDRESS «, t00=0x0006, t01=0x0060}
0x09de…0a00 Head {h00=0x001e, h01=0x0050, text=» RF(Z) TABRQE DWT UNKNOWN «, t00=0x0006, t01=0x0084}
0x0a00…0a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a6}
0x0a0a…0a22 Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0006, t01=0x00b0}
0x0a22…0a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x0a2c…0a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d2}
0x0a36…0a4e Head {h00=0x0014, h01=0x0050, text=» CW A5,DWTTAB,A6«, t00=0x0006, t01=0x00dc}
0x0a4e…0a72 Head {h00=0x0020, h01=0x0050, text=» RF(NE) TABRQE ILLEGAL TASK «, t00=0x0006, t01=0x00f4}
0x0a72…0aaa Head {h00=0x0034, h01=0x0050, text=» LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK«, t00=0x0006, t01=0x0118}
0x0aaa…0ad8 Head {h00=0x002a, h01=0x0050, text=» LD A9,ABTADR,A2 ABORT ROUTINE ADDRESS«, t00=0x0006, t01=0x0150}
0x0ad8…0aea Head {h00=0x000e, h01=0x0050, text=» CWK A9,1 «, t00=0x0006, t01=0x017e}
0x0aea…0b12 Head {h00=0x0024, h01=0x0050, text=» RF(E) TABRQE ABORT NOT ALLOWED «, t00=0x0006, t01=0x0190}
0x0b12…0b2a Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTST,A6 «, t00=0x0007, t01=0x0028}
0x0b2a…0b50 Head {h00=0x0022, h01=0x0050, text=» RF(N) TABRQE DEVICE NOT BUSY «, t00=0x0007, t01=0x0040}
0x0b50…0b62 Head {h00=0x000e, h01=0x0050, text=» SLC A4,2 «, t00=0x0007, t01=0x0066}
0x0b62…0b8a Head {h00=0x0024, h01=0x0050, text=» RF(NN) TAB:20 NOT ECHO REQUEST «, t00=0x0007, t01=0x0078}
0x0b8a…0bb4 Head {h00=0x0026, h01=0x0050, text=» LD A6,DWTECH,A6 ECHO DWT ADDRESS «, t00=0x0007, t01=0x00a0}
0x0bb4…0bf2 Head {h00=0x003a, h01=0x0050, text=» LD A3,DWTADR,A6 ADDRESS TO ECHO DRIVER ADDRESS BLOCK «, t00=0x0007, t01=0x00ca}
0x0bf2…0c20 Head {h00=0x002a, h01=0x0050, text=» LD A3,ABTADR,A3 ABORT ROUTINE ADDRESS«, t00=0x0007, t01=0x0108}
0x0c20…0c36 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TAB:10«, t00=0x0007, t01=0x0136}
0x0c36…0c62 Head {h00=0x0028, h01=0x0050, text=» CF A15,TENDIO SET ECHO DEVICE FREE «, t00=0x0007, t01=0x014c}
0x0c62…0c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0178}
0x0c6c…0c80 Head {h00=0x0010, h01=0x0050, text=»TAB:10 EQU *«, t00=0x0007, t01=0x0182}
0x0c80…0c92 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0008, t01=0x0008}
0x0c92…0cc8 Head {h00=0x0032, h01=0x0050, text=» RF(Z) TABRQE ABORT NOT ALLOWED ON ECHO DEVICE«, t00=0x0008, t01=0x001a}
0x0cc8…0cee Head {h00=0x0022, h01=0x0050, text=» LDR A6,A7 RESTORE DWT ADDRESS«, t00=0x0008, t01=0x0050}
0x0cee…0cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0076}
0x0cf8…0d0c Head {h00=0x0010, h01=0x0050, text=»TAB:20 EQU *«, t00=0x0008, t01=0x0080}
0x0d0c…0d24 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTWAT,A6«, t00=0x0008, t01=0x0094}
0x0d24…0d4a Head {h00=0x0022, h01=0x0050, text=» RF(Z) TAB:30 I/O WITH NO WAIT«, t00=0x0008, t01=0x00ac}
0x0d4a…0d88 Head {h00=0x003a, h01=0x0050, text=» CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK«, t00=0x0008, t01=0x00d2}
0x0d88…0d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0110}
0x0d92…0daa Head {h00=0x0014, h01=0x0050, text=» EJECT TABORT «, t00=0x0008, t01=0x011a}
0x0daa…0db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0132}
0x0db4…0dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013c}
0x0dbe…0dd2 Head {h00=0x0010, h01=0x0050, text=»TAB:30 EQU *«, t00=0x0008, t01=0x0146}
0x0dd2…0dfe Head {h00=0x0028, h01=0x0050, text=» LD A8,DWTECB,A6 ACTUAL ECB ADDRESS «, t00=0x0008, t01=0x015a}
0x0dfe…0e10 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0008, t01=0x0186}
0x0e10…0e36 Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTWAT,A6 INDICATE WAIT«, t00=0x0009, t01=0x0008}
0x0e36…0e54 Head {h00=0x001a, h01=0x0050, text=» SRC A1,2 A1 := /4000 «, t00=0x0009, t01=0x002e}
0x0e54…0e88 Head {h00=0x0030, h01=0x0050, text=» ORS A1,ECBRC,A8 SET RETURN CODE TO ABORTED «, t00=0x0009, t01=0x004c}
0x0e88…0ec2 Head {h00=0x0036, h01=0x0050, text=» LDKL A5,DWTSB2 2ND STACK BASE DISPLACEMENT IN DWT«, t00=0x0009, t01=0x0080}
0x0ec2…0ee4 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 ADD DWT ADDRESS«, t00=0x0009, t01=0x00ba}
0x0ee4…0eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00dc}
0x0eee…0f1e Head {h00=0x002c, h01=0x0050, text=»* EXIT IS MADE TO DRIVER ABORT ROUTINE«, t00=0x0009, t01=0x00e6}
0x0f1e…0f48 Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0009, t01=0x0116}
0x0f48…0f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0140}
0x0f52…0f78 Head {h00=0x0022, h01=0x0050, text=»* A5 = 2ND STACK BASE IN DWT«, t00=0x0009, t01=0x014a}
0x0f78…0f94 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0009, t01=0x0170}
0x0f94…0fc8 Head {h00=0x0030, h01=0x0050, text=»* A8 = ECB ADDRESS (IN SYSTEM AREA IF MMU)«, t00=0x0009, t01=0x018c}
0x0fc8…0fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0030}
0x0fd2…0ffa Head {h00=0x0024, h01=0x0050, text=» LDR A9,A9 ABORT ROUTINE ADDRESS«, t00=0x000a, t01=0x003a}
0x0ffa…102c Head {h00=0x002e, h01=0x0050, text=» ABR(NZ) A9 PERFORM ABORT ROUTINE (IF ANY)«, t00=0x000a, t01=0x0062}
0x102c…1050 Head {h00=0x0020, h01=0x0050, text=» ABL DISEND TENDIO AND TDISP«, t00=0x000a, t01=0x0094}
0x1050…105a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b8}
0x105a…108e Head {h00=0x0030, h01=0x0050, text=»TABRQE ABL LKMRQE GO AND INDICATE LKM ERROR «, t00=0x000a, t01=0x00c2}
0x108e…1098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f6}
0x1098…10a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0100}
0x10a2…10ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010a}
0x10ac…10b8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000a, t01=0x0114}
0x10b8…10bc Head {h00=0x4004, h01=0x0000}
0x10bc…10c0 00 0a 01 20 ┆ ┆
0x10c0…10c8 (11, 1, 8) 20 04 00 00 00 0b 00 04 ┆ ┆
0x10c8…1118 (12, 0, 400) 3d 32 00 2b 01 6a 00 16 00 50 5c 52 46 28 45 29 5c 41 50 32 33 34 35 5c 20 5c 3d 32 00 2c 00 0a 00 36 00 50 5c 41 4e 5c 41 34 2c 4f 50 54 49 4f 4e 2b 53 54 4b 45 4e 44 5c 4c 4f 4f 4b 20 49 46 20 54 48 49 53 20 54 59 50 45 20 41 4c 4c 4f 57 ┆=2 + j P RF(E) AP2345 =2 , 6 P AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOW┆
0x1118…1168 45 44 5c 3d 32 20 00 2c 00 24 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 41 50 32 33 34 35 5c 59 45 53 5c 3d 32 20 00 2c 00 5e 00 2c 00 50 5c 4c 44 4b 5c 41 31 2c 4c 4d 50 39 5c 4e 4f 2c 20 57 52 4f 4e 47 20 4d 4f 4e 49 54 4f 52 20 4f 50 54 49 4f ┆ED =2 , $ P RF(NZ) AP2345 YES =2 , ^ , P LDK A1,LMP9 NO, WRONG MONITOR OPTIO┆
0x1168…11b8 4e 5c 3d 32 00 2c 00 7c 00 14 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 5c 20 5c 3d 32 00 2c 00 ac 00 16 00 50 41 50 32 33 34 35 5c 45 51 55 5c 2a 5c 20 5c 3d 32 20 00 2c 00 c4 00 26 00 50 5c 4f 52 52 5c 41 32 2c 41 34 5c 53 45 54 20 42 49 54 ┆N =2 , | P CALL ERROR =2 , PAP2345 EQU * =2 , & P ORR A2,A4 SET BIT┆
0x11b8…1208 20 49 4e 20 4f 50 54 49 4f 4e 20 57 4f 52 44 20 00 2c 00 de 00 1a 00 50 5c 53 54 5c 41 32 2c 53 43 54 4f 50 54 5c 41 4e 44 20 53 41 56 45 00 2c 01 08 00 10 00 50 5c 43 57 4b 5c 41 36 2c 27 41 53 27 00 2c 01 26 00 2a 00 50 5c 52 46 28 45 29 ┆ IN OPTION WORD , P ST A2,SCTOPT AND SAVE , P CWK A6,'AS' , & * P RF(E)┆
0x1208…1258 5c 41 50 32 33 35 30 5c 53 4b 49 50 20 49 46 20 41 53 53 45 4d 42 4c 45 52 20 41 50 50 4c 2e 20 00 2c 01 3a 00 06 00 50 2a 20 00 2c 01 68 00 2c 00 50 5c 4c 44 5c 41 33 2c 50 41 47 4c 47 2b 38 2c 41 39 5c 47 45 54 20 44 45 46 49 4e 45 44 20 ┆ AP2350 SKIP IF ASSEMBLER APPL. , : P* , h , P LD A3,PAGLG+8,A9 GET DEFINED ┆