|
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: 4806 (0x12c6)
Notes: pts_type(SC)
Names: »TABORT.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/TABORT.SC«
IDENT TABORT REL 8.2 78-09-15 870105040820 * ************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * TABORT = ABORT I/O REQUEST * * * * * * ************************************************* * * * THIS MODULE IS CALLED BY THE LKM HANDLER WITH THE FOLLOWING * PARAMETERS:- * * A5 = TTAB-ADDRESS OF CALLING PROGRAM * * A8 = ECB-ADDRESS OF I/O REQUEST TO BE ABORTED * * A PENDING I/O REQUEST IS ABORTED. * THE ABORT REQUEST MUST BE DONE FROM THE SAME TASK * THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN * NOT BE ABORTED. EJECT ENTRY TABORT EXTRN FNDDWT FIND DWT-ADDRESS EXTRN DWTST DWT STATUS EXTRN DWTTAB TTAB-ADDRESS IN DWT EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT EXTRN TABIO ABORT I/O AND ACTIVATE EXTRN TENDIO END I/O EXTRN LKMQDI QUEUE JOB AND DISPATCH EXTRN LKMRQE LKM REQUEST ERROR EXTRN ITABRT ABORT INTERTASK REQUEST EXTRN FREBLK FREE ONE BLOCK DWTECH EQU /22 ECHO DEVICE DWT * * CONDITIONAL ASSEMBLY * * BY SETTING X:A=0 NO ACTIVATION (IF ANY) WILL TAKE PLACE * IF X:A=1 I/O REQUEST WITH ACTIVATION WILL BE ABORTED AND * THE ACTIVATION WILL BE PERFORMED WITH A7=1 TO INDICATE * REQUEST HAS BEEN ABORTED CREDIT EQU 0 EJECT * * ABORT I/O REQUEST * TABORT LDR* A3,A8 RF(N) TABOER REQUEST ALREADY COMPLETED CF A15,FNDDWT LOOK FOR DWT ADDRESS LDR A8,A6 RF(Z) TABOER DWT UNKNOWN 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 LD A6,DWTECH,A6 GET ECHO DWT CF A15,TENDIO ABORT ECHO DEVICE LDR A6,A8 RESTORE DWT TABO20 EQU * CF A15,ITABRT ABORT IF INTERTASK REQUEST IFT CREDIT=1 LDKL A1,/C000 RETURN CODE CF A15,TABIO ABORT AND ACTIVATE IF REQUESTED XIF IFF CREDIT=1 LD A4,DWTWAT,A6 RF(Z) TABO30 I/O NOT WAIT CF A15,FREBLK I/O AND ACTIVATE FREE DISP BLK CM DWTWAT,A6 SET NOT WAIT TABO30 EQU * LDKL A1,/C000 RETURN CODE CF A15,TENDIO ABORT XIF 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 8.2 78-09-15 870105040820 «, 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…0082 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x004c}
0x0082…008c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…00b4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0090}
0x00b4…00be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00e4 Head {h00=0x0022, h01=0x0050, text=»* TABORT = ABORT I/O REQUEST«, t00=0x0000, t01=0x00c2}
0x00e4…00ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
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…015a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x0124}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…01b6 Head {h00=0x0044, h01=0x0050, text=»* THIS MODULE IS CALLED BY THE LKM HANDLER WITH THE FOLLOWING «, t00=0x0000, t01=0x0172}
0x01b6…01ce Head {h00=0x0014, h01=0x0050, text=»* PARAMETERS:-«, t00=0x0001, t01=0x002a}
0x01ce…01d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0042}
0x01d8…0208 Head {h00=0x002c, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x0001, t01=0x004c}
0x0208…0212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007c}
0x0212…024c Head {h00=0x0036, h01=0x0050, text=»* A8 = ECB-ADDRESS OF I/O REQUEST TO BE ABORTED «, t00=0x0001, t01=0x0086}
0x024c…0256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x0256…0284 Head {h00=0x002a, h01=0x0050, text=»* A PENDING I/O REQUEST IS ABORTED. «, t00=0x0001, t01=0x00ca}
0x0284…02c2 Head {h00=0x003a, h01=0x0050, text=»* THE ABORT REQUEST MUST BE DONE FROM THE SAME TASK «, t00=0x0001, t01=0x00f8}
0x02c2…0300 Head {h00=0x003a, h01=0x0050, text=»* THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN «, t00=0x0001, t01=0x0136}
0x0300…031c Head {h00=0x0018, h01=0x0050, text=»* NOT BE ABORTED. «, t00=0x0001, t01=0x0174}
0x031c…032a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0190}
0x032a…0332 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x000e}
0x0332…033a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0016}
0x033a…0350 Head {h00=0x0012, h01=0x0050, text=» ENTRY TABORT «, t00=0x0002, t01=0x001e}
0x0350…0358 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0034}
0x0358…0360 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x003c}
0x0360…0386 Head {h00=0x0022, h01=0x0050, text=» EXTRN FNDDWT FIND DWT-ADDRESS«, t00=0x0002, t01=0x0044}
0x0386…03a6 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0002, t01=0x006a}
0x03a6…03d0 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTTAB TTAB-ADDRESS IN DWT «, t00=0x0002, t01=0x008a}
0x03d0…0404 Head {h00=0x0030, h01=0x0050, text=» EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT«, t00=0x0002, t01=0x00b4}
0x0404…0430 Head {h00=0x0028, h01=0x0050, text=» EXTRN TABIO ABORT I/O AND ACTIVATE «, t00=0x0002, t01=0x00e8}
0x0430…044e Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0002, t01=0x0114}
0x044e…047a Head {h00=0x0028, h01=0x0050, text=» EXTRN LKMQDI QUEUE JOB AND DISPATCH«, t00=0x0002, t01=0x0132}
0x047a…04a2 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x015e}
0x04a2…04d0 Head {h00=0x002a, h01=0x0050, text=» EXTRN ITABRT ABORT INTERTASK REQUEST «, t00=0x0002, t01=0x0186}
0x04d0…04f4 Head {h00=0x0020, h01=0x0050, text=» EXTRN FREBLK FREE ONE BLOCK«, t00=0x0003, t01=0x0024}
0x04f4…04fc Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0048}
0x04fc…0504 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0050}
0x0504…052a Head {h00=0x0022, h01=0x0050, text=»DWTECH EQU /22 ECHO DEVICE DWT«, t00=0x0003, t01=0x0058}
0x052a…0534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007e}
0x0534…0554 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY «, t00=0x0003, t01=0x0088}
0x0554…055e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a8}
0x055e…05a0 Head {h00=0x003e, h01=0x0050, text=»* BY SETTING X:A=0 NO ACTIVATION (IF ANY) WILL TAKE PLACE«, t00=0x0003, t01=0x00b2}
0x05a0…05e4 Head {h00=0x0040, h01=0x0050, text=»* IF X:A=1 I/O REQUEST WITH ACTIVATION WILL BE ABORTED AND «, t00=0x0003, t01=0x00f4}
0x05e4…0626 Head {h00=0x003e, h01=0x0050, text=»* THE ACTIVATION WILL BE PERFORMED WITH A7=1 TO INDICATE «, t00=0x0003, t01=0x0138}
0x0626…064a Head {h00=0x0020, h01=0x0050, text=»* REQUEST HAS BEEN ABORTED «, t00=0x0003, t01=0x017a}
0x064a…065e Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x0004, t01=0x000e}
0x065e…066c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0022}
0x066c…0674 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0030}
0x0674…067e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0038}
0x067e…069a Head {h00=0x0018, h01=0x0050, text=»* ABORT I/O REQUEST «, t00=0x0004, t01=0x0042}
0x069a…06a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005e}
0x06a4…06ac Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0068}
0x06ac…06c6 Head {h00=0x0016, h01=0x0050, text=»TABORT LDR* A3,A8 «, t00=0x0004, t01=0x0070}
0x06c6…06f6 Head {h00=0x002c, h01=0x0050, text=» RF(N) TABOER REQUEST ALREADY COMPLETED «, t00=0x0004, t01=0x008a}
0x06f6…06fe Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00ba}
0x06fe…072a Head {h00=0x0028, h01=0x0050, text=» CF A15,FNDDWT LOOK FOR DWT ADDRESS «, t00=0x0004, t01=0x00c2}
0x072a…073c Head {h00=0x000e, h01=0x0050, text=» LDR A8,A6«, t00=0x0004, t01=0x00ee}
0x073c…075e Head {h00=0x001e, h01=0x0050, text=» RF(Z) TABOER DWT UNKNOWN «, t00=0x0004, t01=0x0100}
0x075e…0766 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0122}
0x0766…077e Head {h00=0x0014, h01=0x0050, text=» CW A5,DWTTAB,A6«, t00=0x0004, t01=0x012a}
0x077e…07a2 Head {h00=0x0020, h01=0x0050, text=» RF(NE) TABOER ILLEGAL TASK «, t00=0x0004, t01=0x0142}
0x07a2…07aa Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0166}
0x07aa…07c2 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTST,A6 «, t00=0x0004, t01=0x016e}
0x07c2…07e8 Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOER DEVICE NOT BUSY «, t00=0x0004, t01=0x0186}
0x07e8…07f0 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x001c}
0x07f0…0802 Head {h00=0x000e, h01=0x0050, text=» SLC A7,2 «, t00=0x0005, t01=0x0024}
0x0802…082a Head {h00=0x0024, h01=0x0050, text=» RF(NN) TABO20 NOT ECHO REQUEST «, t00=0x0005, t01=0x0036}
0x082a…0850 Head {h00=0x0022, h01=0x0050, text=» LD A6,DWTECH,A6 GET ECHO DWT «, t00=0x0005, t01=0x005e}
0x0850…0878 Head {h00=0x0024, h01=0x0050, text=» CF A15,TENDIO ABORT ECHO DEVICE«, t00=0x0005, t01=0x0084}
0x0878…0896 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A8 RESTORE DWT«, t00=0x0005, t01=0x00ac}
0x0896…08aa Head {h00=0x0010, h01=0x0050, text=»TABO20 EQU *«, t00=0x0005, t01=0x00ca}
0x08aa…08dc Head {h00=0x002e, h01=0x0050, text=» CF A15,ITABRT ABORT IF INTERTASK REQUEST «, t00=0x0005, t01=0x00de}
0x08dc…08f2 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0005, t01=0x0110}
0x08f2…0914 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 RETURN CODE«, t00=0x0005, t01=0x0126}
0x0914…094a Head {h00=0x0032, h01=0x0050, text=» CF A15,TABIO ABORT AND ACTIVATE IF REQUESTED «, t00=0x0005, t01=0x0148}
0x094a…0956 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x017e}
0x0956…096c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0005, t01=0x018a}
0x096c…0984 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTWAT,A6«, t00=0x0006, t01=0x0010}
0x0984…09a6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) TABO30 I/O NOT WAIT«, t00=0x0006, t01=0x0028}
0x09a6…09dc Head {h00=0x0032, h01=0x0050, text=» CF A15,FREBLK I/O AND ACTIVATE FREE DISP BLK «, t00=0x0006, t01=0x004a}
0x09dc…09fe Head {h00=0x001e, h01=0x0050, text=» CM DWTWAT,A6 SET NOT WAIT«, t00=0x0006, t01=0x0080}
0x09fe…0a12 Head {h00=0x0010, h01=0x0050, text=»TABO30 EQU *«, t00=0x0006, t01=0x00a2}
0x0a12…0a34 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 RETURN CODE«, t00=0x0006, t01=0x00b6}
0x0a34…0a50 Head {h00=0x0018, h01=0x0050, text=» CF A15,TENDIO ABORT«, t00=0x0006, t01=0x00d8}
0x0a50…0a5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x00f4}
0x0a5c…0a90 Head {h00=0x0030, h01=0x0050, text=» ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER «, t00=0x0006, t01=0x0100}
0x0a90…0a98 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0134}
0x0a98…0acc Head {h00=0x0030, h01=0x0050, text=»TABOER ABL LKMRQE GO AND INDICATE LKM ERROR «, t00=0x0006, t01=0x013c}
0x0acc…0ad4 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0170}
0x0ad4…0adc Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0178}
0x0adc…0ae8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0006, t01=0x0180}
0x0ae8…0aec Head {h00=0x4004, h01=0x0000}
0x0aec…0af0 00 06 01 8c ┆ ┆
0x0af0…0af8 (7, 1, 8) 20 04 00 00 00 07 00 04 ┆ ┆
0x0af8…0b48 (8, 0, 400) 20 4f 4e 20 51 55 45 55 45 20 00 07 01 70 00 22 00 50 5c 45 58 54 52 4e 5c 44 57 54 54 41 42 5c 20 20 20 2d 54 54 41 42 20 41 44 44 52 45 53 53 00 08 00 12 00 26 00 50 5c 45 58 54 52 4e 5c 44 57 54 54 44 4d 5c 44 4d 20 54 41 53 4b 20 54 54 ┆ ON QUEUE p " P EXTRN DWTTAB -TTAB ADDRESS & P EXTRN DWTTDM DM TASK TT┆
0x0b48…0b98 41 42 20 41 44 44 52 45 53 53 00 08 00 38 00 28 00 50 5c 45 58 54 52 4e 5c 54 43 54 41 42 5c 54 45 52 4d 49 4e 41 4c 20 43 4f 4e 54 52 4f 4c 20 54 41 42 4c 45 20 00 08 00 62 00 24 00 50 5c 45 58 54 52 4e 5c 43 44 54 41 42 5c 43 4f 4d 4d 4f ┆AB ADDRESS 8 ( P EXTRN TCTAB TERMINAL CONTROL TABLE b $ P EXTRN CDTAB COMMO┆
0x0b98…0be8 4e 20 44 45 56 49 43 45 20 54 41 42 4c 45 00 08 00 8e 00 32 00 50 5c 45 58 54 52 4e 5c 50 46 54 41 42 5c 54 41 42 4c 45 20 4f 46 20 44 45 56 49 43 45 53 20 54 4f 20 42 45 20 52 45 53 54 41 52 54 45 44 20 00 08 00 b6 00 18 00 50 5c 45 58 54 ┆N DEVICE TABLE 2 P EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED P EXT┆
0x0be8…0c38 52 4e 5c 54 54 42 3a 53 50 2c 54 54 42 3a 53 53 00 08 00 ec 00 24 00 50 5c 45 58 54 52 4e 5c 52 54 4e 41 31 35 5c 52 45 54 55 52 4e 20 41 4e 44 20 45 4e 41 42 4c 45 20 00 08 01 08 00 2a 00 50 5c 45 58 54 52 4e 5c 54 49 4f 44 4d 2c 43 48 4b ┆RN TTB:SP,TTB:SS $ P EXTRN RTNA15 RETURN AND ENABLE * P EXTRN TIODM,CHK┆
0x0c38…0c88 49 4e 44 2c 52 45 51 45 4e 44 5c 44 4d 2d 45 4e 54 52 49 45 53 20 00 08 01 30 00 06 00 50 2a 20 00 08 01 5e 00 06 00 50 2a 20 00 08 01 68 00 22 00 50 53 4f 50 5c 45 51 55 5c 2f 32 45 5c 53 4f 50 20 44 45 56 49 43 45 20 41 44 44 52 45 53 53 ┆IND,REQEND DM-ENTRIES 0 P* ^ P* h " PSOP EQU /2E SOP DEVICE ADDRESS┆
0x0c88…0cd8 (9, 0, 398) 00 08 01 72 00 0a 00 50 5c 45 4a 45 43 54 00 09 00 08 00 06 00 50 2a 20 00 09 00 16 00 06 00 50 2a 20 00 09 00 20 00 12 00 50 2a 20 20 20 53 20 41 20 56 20 45 20 38 20 00 09 00 2a 00 06 00 50 2a 20 00 09 00 40 00 30 00 50 2a 20 20 20 53 55 ┆ r P EJECT P* P* P* S A V E 8 * P* @ 0 P* SU┆
0x0cd8…0d28 42 52 4f 55 54 49 4e 45 20 54 4f 20 53 41 56 45 20 38 20 52 45 47 49 53 54 45 52 53 20 4f 4e 20 53 54 41 43 4b 20 00 09 00 4a 00 24 00 50 2a 20 20 20 57 49 54 48 4f 55 54 20 45 4e 41 42 4c 49 4e 47 20 49 4e 54 45 52 52 55 50 54 53 2e 00 09 ┆BROUTINE TO SAVE 8 REGISTERS ON STACK J $ P* WITHOUT ENABLING INTERRUPTS. ┆
0x0d28…0d78 00 7e 00 06 00 50 2a 20 00 09 00 a6 00 06 00 50 2a 20 00 09 00 b0 00 10 00 50 53 41 56 45 38 5c 45 51 55 5c 2a 20 00 09 00 ba 00 1c 00 50 5c 49 4e 48 5c 5c 49 4e 48 49 42 49 54 20 49 4e 54 45 52 52 55 50 54 53 00 09 00 ce 00 10 00 50 5c 53 ┆ ~ P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS P S┆
0x0d78…0dc8 54 52 5c 41 33 2c 41 31 35 20 00 09 00 ee 00 10 00 50 5c 53 54 52 5c 41 34 2c 41 31 35 20 00 09 01 02 00 10 00 50 5c 53 54 52 5c 41 35 2c 41 31 35 20 00 09 01 16 00 10 00 50 5c 53 54 52 5c 41 36 2c 41 31 35 20 00 09 01 2a 00 10 00 50 5c 53 ┆TR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 * P S┆
0x0dc8…0e16 54 52 5c 41 37 2c 41 31 35 20 00 09 01 3e 00 10 00 50 5c 53 54 52 5c 41 38 2c 41 31 35 20 00 09 01 52 00 2c 00 50 5c 4c 44 5c 41 33 2c 31 36 2c 41 31 35 5c 4c 4f 41 44 20 50 2e 43 2e 20 28 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 29 ┆TR A7,A15 > P STR A8,A15 R , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS)┆
0x0e16…0e66 (10, 0, 400) 00 09 01 66 00 2c 00 50 5c 53 54 5c 41 33 2c 53 41 56 45 38 31 5c 41 4e 44 20 4d 4f 44 49 46 59 20 42 52 41 4e 43 48 20 41 44 44 52 45 53 53 20 00 0a 00 08 00 12 00 50 5c 53 54 5c 41 32 2c 31 34 2c 41 31 35 20 00 0a 00 38 00 12 00 50 5c 53 ┆ f , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 8 P S┆
0x0e66…0eb6 54 5c 41 31 2c 31 36 2c 41 31 35 20 00 0a 00 4e 00 1c 00 50 5c 4c 44 5c 41 33 2c 31 32 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 33 00 0a 00 64 00 26 00 50 5c 41 42 4c 5c 30 5c 54 48 49 53 20 49 53 20 55 53 45 44 20 54 4f 20 42 52 41 4e 43 ┆T A1,16,A15 N P LD A3,12,A15 RESTORE A3 d & P ABL 0 THIS IS USED TO BRANC┆
0x0eb6…0f06 48 20 42 41 43 4b 00 0a 00 84 00 12 00 50 53 41 56 45 38 31 5c 45 51 55 5c 2a 2d 32 00 0a 00 ae 00 06 00 50 2a 20 00 0a 00 c4 00 0a 00 50 5c 45 4a 45 43 54 00 0a 00 ce 00 06 00 50 2a 20 00 0a 00 dc 00 06 00 50 2a 20 00 0a 00 e6 00 12 00 50 ┆H BACK PSAVE81 EQU *-2 P* P EJECT P* P* P┆
0x0f06…0f56 2a 20 20 20 51 20 54 20 4a 20 4f 20 42 20 00 0a 00 f0 00 06 00 50 2a 20 00 0a 01 06 00 38 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 51 55 45 55 45 20 54 45 52 4d 49 4e 41 4c 20 4a 4f 42 20 46 4f 52 20 44 49 53 50 41 54 43 ┆* Q T J O B P* 8 P* SUBROUTINE TO QUEUE TERMINAL JOB FOR DISPATC┆
0x0f56…0fa6 48 49 4e 47 00 0a 01 10 00 1a 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 45 54 45 52 3a 2d 20 00 0a 01 4c 00 06 00 50 2a 20 00 0a 01 6a 00 32 00 50 2a 20 20 20 41 35 20 3d 20 54 54 41 42 2d 41 44 44 52 45 53 53 20 4f 46 20 50 52 4f ┆HING P* ENTRY PARAMETER:- L P* j 2 P* A5 = TTAB-ADDRESS OF PRO┆
0x0fa6…0ff6 (11, 0, 400) 47 52 41 4d 20 54 4f 20 42 45 20 51 55 45 55 45 44 2e 00 0a 01 74 00 06 00 50 2a 20 00 0b 00 1a 00 38 00 50 2a 20 20 20 54 48 45 20 52 45 51 55 45 53 54 45 44 20 4a 4f 42 20 49 53 20 50 55 54 20 49 4e 20 44 49 53 50 41 54 43 48 45 52 20 51 ┆GRAM TO BE QUEUED. t P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER Q┆
0x0ff6…1046 55 45 55 45 20 4f 4e 20 00 0b 00 24 00 38 00 50 2a 20 20 20 50 52 49 4f 52 49 54 59 20 42 41 53 49 53 2e 20 57 49 54 48 49 4e 20 4f 4e 45 20 50 52 49 4f 52 49 54 59 20 4c 45 56 45 4c 20 4a 4f 42 20 49 53 00 0b 00 60 00 1a 00 50 2a 20 20 20 ┆UEUE ON $ 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS ` P* ┆
0x1046…1096 50 55 54 20 4c 41 53 54 20 49 4e 20 51 55 45 55 45 2e 00 0b 00 9c 00 06 00 50 2a 20 00 0b 00 ba 00 06 00 50 2a 20 00 0b 00 c4 00 06 00 50 2a 20 00 0b 00 ce 00 10 00 50 51 54 4a 4f 42 5c 45 51 55 5c 2a 20 00 0b 00 d8 00 08 00 50 5c 49 4e 48 ┆PUT LAST IN QUEUE. P* P* P* PQTJOB EQU * P INH┆
0x1096…10e6 00 0b 00 ec 00 24 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 33 20 4f 4e 20 53 54 41 43 4b 20 00 0b 00 f8 00 10 00 50 5c 53 54 52 5c 41 32 2c 41 31 35 20 00 0b 01 20 00 10 00 50 5c 53 54 52 5c 41 33 2c 41 31 35 20 ┆ $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 P STR A3,A15 ┆
0x10e6…1136 00 0b 01 34 00 2e 00 50 5c 4c 44 4b 4c 5c 41 31 2c 44 49 53 51 55 45 5c 4c 4f 41 44 20 51 55 45 55 45 20 41 4e 43 48 4f 52 20 41 44 44 52 45 53 53 20 00 0b 01 48 00 2e 00 50 5c 4c 43 5c 41 33 2c 54 54 42 3a 53 54 2b 31 2c 41 35 5c 4c 4f 41 ┆ 4 . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS H . P LC A3,TTB:ST+1,A5 LOA┆
0x1136…1186 (12, 0, 400) 44 20 4c 45 56 45 4c 20 54 4f 20 42 45 20 51 55 45 55 45 44 00 0b 01 7a 00 26 00 50 51 54 4a 30 31 30 5c 4c 44 52 5c 41 32 2c 41 31 5c 53 41 56 45 20 4c 41 53 54 20 41 44 44 52 45 53 53 00 0c 00 1c 00 22 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 ┆D LEVEL TO BE QUEUED z & PQTJ010 LDR A2,A1 SAVE LAST ADDRESS " P LDR* A1,A┆
0x1186…11d6 31 5c 46 4f 4c 4c 4f 57 20 54 48 45 20 54 48 52 45 41 44 20 00 0c 00 46 00 22 00 50 5c 52 46 28 5a 29 5c 51 54 4a 30 32 30 5c 45 4e 44 20 51 55 45 55 45 20 46 4f 55 4e 44 20 00 0c 00 6c 00 26 00 50 5c 43 43 5c 41 33 2c 54 54 42 3a 53 54 2b ┆1 FOLLOW THE THREAD F " P RF(Z) QTJ020 END QUEUE FOUND l & P CC A3,TTB:ST+┆
0x11d6…1226 31 2c 41 31 5c 43 4f 4d 50 41 52 45 20 4c 45 56 45 4c 53 20 00 0c 00 92 00 1c 00 50 5c 52 42 28 4e 4c 29 5c 51 54 4a 30 31 30 5c 54 52 59 20 4e 45 58 54 20 00 0c 00 bc 00 24 00 50 51 54 4a 30 32 30 5c 53 54 52 5c 41 31 2c 41 35 5c 49 4e 53 ┆1,A1 COMPARE LEVELS P RB(NL) QTJ010 TRY NEXT $ PQTJ020 STR A1,A5 INS┆
0x1226…1276 45 54 20 49 4e 20 51 55 45 55 45 20 00 0c 00 dc 00 0e 00 50 5c 53 54 52 5c 41 35 2c 41 32 00 0c 01 04 00 10 00 50 5c 41 42 4c 5c 49 48 52 45 54 33 20 00 0c 01 16 00 0a 00 50 5c 45 4a 45 43 54 00 0c 01 2a 00 06 00 50 2a 20 00 0c 01 38 00 06 ┆ET IN QUEUE P STR A5,A2 P ABL IHRET3 P EJECT * P* 8 ┆
0x1276…12c6 00 50 2a 20 00 0c 01 42 00 12 00 50 2a 20 20 20 51 20 4d 20 4a 20 4f 20 42 20 00 0c 01 4c 00 06 00 50 2a 20 00 0c 01 62 00 34 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 51 55 45 55 45 20 4d 4f 4e 49 54 4f 52 20 4a 4f 42 53 ┆ P* B P* Q M J O B L P* b 4 P* SUBROUTINE TO QUEUE MONITOR JOBS┆