|
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: 4678 (0x1246)
Notes: pts_type(SC)
Names: »TABORT.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/TABORT.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/TABORT.SC«
IDENT TABORT REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * TABORT = ABORT I/O REQUEST * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ************************************************* * * * 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 TENDIO END I/O EXTRN LKMQDI QUEUE JOB AND DISPATCH EXTRN LKMRQE LKM REQUEST ERROR EXTRN FREBLK FREE ONE BLOCK DWTECH EQU /22 ECHO DEVICE DWT 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 LD A4,DWTWAT,A6 RF(Z) TABO10 I/O NOT WAIT CF A15,FREBLK I/O AND ACTIVATION FREE DISP BLOCK CM DWTWAT,A6 SET NOT WAIT TABO10 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 LDKL A1,/C000 SET STATUS CF A15,TENDIO AND ABORT ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER TABOER ABL LKMRQE GO AND INDICATE LKM ERROR END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT TABORT REL=7.2 DATE=77-09-09«, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…0094 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x005e}
0x0094…009e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0098}
0x009e…00c6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a2}
0x00c6…00d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ca}
0x00d0…00f6 Head {h00=0x0022, h01=0x0050, text=»* TABORT = ABORT I/O REQUEST«, t00=0x0000, t01=0x00d4}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…012c Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x010e}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0158 Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x013a}
0x0158…0162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015c}
0x0162…019c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x0166}
0x019c…01a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0010}
0x01a6…01b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001a}
0x01b0…01f8 Head {h00=0x0044, h01=0x0050, text=»* THIS MODULE IS CALLED BY THE LKM HANDLER WITH THE FOLLOWING «, t00=0x0001, t01=0x0024}
0x01f8…0210 Head {h00=0x0014, h01=0x0050, text=»* PARAMETERS:-«, t00=0x0001, t01=0x006c}
0x0210…021a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0084}
0x021a…024a Head {h00=0x002c, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x0001, t01=0x008e}
0x024a…0254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00be}
0x0254…028e Head {h00=0x0036, h01=0x0050, text=»* A8 = ECB-ADDRESS OF I/O REQUEST TO BE ABORTED «, t00=0x0001, t01=0x00c8}
0x028e…0298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x0298…02c6 Head {h00=0x002a, h01=0x0050, text=»* A PENDING I/O REQUEST IS ABORTED. «, t00=0x0001, t01=0x010c}
0x02c6…0304 Head {h00=0x003a, h01=0x0050, text=»* THE ABORT REQUEST MUST BE DONE FROM THE SAME TASK «, t00=0x0001, t01=0x013a}
0x0304…0342 Head {h00=0x003a, h01=0x0050, text=»* THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN «, t00=0x0001, t01=0x0178}
0x0342…035e Head {h00=0x0018, h01=0x0050, text=»* NOT BE ABORTED. «, t00=0x0002, t01=0x0026}
0x035e…036c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0042}
0x036c…0374 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0050}
0x0374…037c Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0058}
0x037c…0392 Head {h00=0x0012, h01=0x0050, text=» ENTRY TABORT «, t00=0x0002, t01=0x0060}
0x0392…039a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0076}
0x039a…03a2 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x007e}
0x03a2…03c8 Head {h00=0x0022, h01=0x0050, text=» EXTRN FNDDWT FIND DWT-ADDRESS«, t00=0x0002, t01=0x0086}
0x03c8…03e8 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0002, t01=0x00ac}
0x03e8…0412 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTTAB TTAB-ADDRESS IN DWT «, t00=0x0002, t01=0x00cc}
0x0412…0446 Head {h00=0x0030, h01=0x0050, text=» EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT«, t00=0x0002, t01=0x00f6}
0x0446…0464 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0002, t01=0x012a}
0x0464…0490 Head {h00=0x0028, h01=0x0050, text=» EXTRN LKMQDI QUEUE JOB AND DISPATCH«, t00=0x0002, t01=0x0148}
0x0490…04b8 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0174}
0x04b8…04dc Head {h00=0x0020, h01=0x0050, text=» EXTRN FREBLK FREE ONE BLOCK«, t00=0x0003, t01=0x000c}
0x04dc…04e4 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0030}
0x04e4…04ec Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0038}
0x04ec…0512 Head {h00=0x0022, h01=0x0050, text=»DWTECH EQU /22 ECHO DEVICE DWT«, t00=0x0003, t01=0x0040}
0x0512…0520 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0066}
0x0520…0528 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0074}
0x0528…0532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007c}
0x0532…054e Head {h00=0x0018, h01=0x0050, text=»* ABORT I/O REQUEST «, t00=0x0003, t01=0x0086}
0x054e…0558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a2}
0x0558…0560 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00ac}
0x0560…057a Head {h00=0x0016, h01=0x0050, text=»TABORT LDR* A3,A8 «, t00=0x0003, t01=0x00b4}
0x057a…05aa Head {h00=0x002c, h01=0x0050, text=» RF(N) TABOER REQUEST ALREADY COMPLETED «, t00=0x0003, t01=0x00ce}
0x05aa…05b2 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00fe}
0x05b2…05de Head {h00=0x0028, h01=0x0050, text=» CF A15,FNDDWT LOOK FOR DWT ADDRESS «, t00=0x0003, t01=0x0106}
0x05de…05f0 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A6«, t00=0x0003, t01=0x0132}
0x05f0…0612 Head {h00=0x001e, h01=0x0050, text=» RF(Z) TABOER DWT UNKNOWN «, t00=0x0003, t01=0x0144}
0x0612…061a Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0166}
0x061a…0632 Head {h00=0x0014, h01=0x0050, text=» CW A5,DWTTAB,A6«, t00=0x0003, t01=0x016e}
0x0632…0656 Head {h00=0x0020, h01=0x0050, text=» RF(NE) TABOER ILLEGAL TASK «, t00=0x0003, t01=0x0186}
0x0656…065e Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x001a}
0x065e…0676 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTST,A6 «, t00=0x0004, t01=0x0022}
0x0676…069c Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOER DEVICE NOT BUSY «, t00=0x0004, t01=0x003a}
0x069c…06a4 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0060}
0x06a4…06bc Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTWAT,A6«, t00=0x0004, t01=0x0068}
0x06bc…06de Head {h00=0x001e, h01=0x0050, text=» RF(Z) TABO10 I/O NOT WAIT«, t00=0x0004, t01=0x0080}
0x06de…06e6 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00a2}
0x06e6…0720 Head {h00=0x0036, h01=0x0050, text=» CF A15,FREBLK I/O AND ACTIVATION FREE DISP BLOCK «, t00=0x0004, t01=0x00aa}
0x0720…0742 Head {h00=0x001e, h01=0x0050, text=» CM DWTWAT,A6 SET NOT WAIT«, t00=0x0004, t01=0x00e4}
0x0742…074a Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0106}
0x074a…0762 Head {h00=0x0014, h01=0x0050, text=»TABO10 SLC A7,2 «, t00=0x0004, t01=0x010e}
0x0762…078a Head {h00=0x0024, h01=0x0050, text=» RF(NN) TABO20 NOT ECHO REQUEST «, t00=0x0004, t01=0x0126}
0x078a…0792 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x014e}
0x0792…07b8 Head {h00=0x0022, h01=0x0050, text=» LD A6,DWTECH,A6 GET ECHO DWT «, t00=0x0004, t01=0x0156}
0x07b8…07e0 Head {h00=0x0024, h01=0x0050, text=» CF A15,TENDIO ABORT ECHO DEVICE«, t00=0x0004, t01=0x017c}
0x07e0…07fe Head {h00=0x001a, h01=0x0050, text=» LDR A6,A8 RESTORE DWT«, t00=0x0005, t01=0x0014}
0x07fe…0806 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0032}
0x0806…082e Head {h00=0x0024, h01=0x0050, text=»TABO20 LDKL A1,/C000 SET STATUS «, t00=0x0005, t01=0x003a}
0x082e…084e Head {h00=0x001c, h01=0x0050, text=» CF A15,TENDIO AND ABORT«, t00=0x0005, t01=0x0062}
0x084e…0882 Head {h00=0x0030, h01=0x0050, text=» ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER «, t00=0x0005, t01=0x0082}
0x0882…088a Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00b6}
0x088a…08be Head {h00=0x0030, h01=0x0050, text=»TABOER ABL LKMRQE GO AND INDICATE LKM ERROR «, t00=0x0005, t01=0x00be}
0x08be…08c6 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00f2}
0x08c6…08ce Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00fa}
0x08ce…08da Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0005, t01=0x0102}
0x08da…08de Head {h00=0x4004, h01=0x0000}
0x08de…08e2 00 05 01 0e ┆ ┆
0x08e2…08ea (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x08ea…093a (7, 0, 400) 35 2c 41 36 5c 53 54 41 43 4b 20 42 41 53 45 20 00 1e 01 8a 00 04 00 50 00 1f 00 18 00 04 00 50 00 1f 00 20 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 37 46 46 46 00 1f 00 28 00 22 00 50 5c 41 4e 53 5c 41 31 2c 44 57 54 53 54 2c 41 36 5c 53 ┆5,A6 STACK BASE P P P LDKL A1,/7FFF ( " P ANS A1,DWTST,A6 S┆
0x093a…098a 45 54 20 44 57 54 20 42 55 53 59 20 00 1f 00 3e 00 04 00 50 00 1f 00 64 00 04 00 50 00 1f 00 6c 00 22 00 50 5c 43 46 5c 41 35 2c 56 4f 3a 4e 41 4d 5c 47 45 54 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 00 1f 00 74 00 20 00 50 5c 43 46 5c 41 31 ┆ET DWT BUSY > P d P l " P CF A5,VO:NAM GET VOLUME NAME t P CF A1┆
0x098a…09da 35 2c 54 45 4e 44 49 4f 5c 50 45 52 46 4f 52 4d 20 45 4e 44 49 4f 00 1f 00 9a 00 08 00 50 5c 58 49 46 00 1f 00 be 00 04 00 50 00 1f 00 ca 00 18 00 50 5c 52 46 5c 44 55 4f 4e 32 30 5c 44 49 53 50 41 54 43 48 20 00 1f 00 d2 00 0a 00 50 5c 45 ┆5,TENDIO PERFORM ENDIO P XIF P P RF DUON20 DISPATCH P E┆
0x09da…0a2a 4a 45 43 54 00 1f 00 ee 00 10 00 50 44 55 4f 4e 30 38 5c 45 51 55 5c 2a 00 1f 00 fc 00 1e 00 50 5c 4c 44 4b 5c 41 31 2c 32 5c 54 48 52 4f 55 47 48 50 55 54 20 45 52 52 4f 52 00 1f 01 10 00 22 00 50 5c 4c 44 5c 41 32 2c 44 57 54 53 54 2c 41 ┆JECT PDUON08 EQU * P LDK A1,2 THROUGHPUT ERROR " P LD A2,DWTST,A┆
0x0a2a…0a7a 36 5c 47 45 54 20 44 57 54 20 53 54 41 54 55 53 00 1f 01 32 00 1c 00 50 5c 52 46 28 4e 29 5c 44 55 4f 4e 31 30 5c 55 4e 49 54 20 46 52 45 45 20 00 1f 01 58 00 20 00 50 5c 43 46 5c 41 31 35 2c 54 45 4e 44 49 4f 5c 50 45 52 46 4f 52 4d 20 45 ┆6 GET DWT STATUS 2 P RF(N) DUON10 UNIT FREE X P CF A15,TENDIO PERFORM E┆
0x0a7a…0aca (8, 0, 400) 4e 44 49 4f 00 1f 01 78 00 04 00 50 00 20 00 0c 00 04 00 50 00 20 00 14 00 10 00 50 44 55 4f 4e 31 30 5c 45 51 55 5c 2a 00 20 00 1c 00 12 00 50 5c 49 46 54 5c 4e 55 4e 49 54 53 3d 32 20 00 20 00 30 00 24 00 50 5c 4c 44 4b 4c 5c 41 36 2c 44 ┆NDIO x P P PDUON10 EQU * P IFT NUNITS=2 0 $ P LDKL A6,D┆
0x0aca…0b1a 57 44 55 30 32 5c 44 49 53 43 20 55 4e 49 54 20 4e 4f 2e 20 32 20 00 20 00 46 00 1e 00 50 5c 4c 44 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 44 57 54 20 53 54 53 54 55 53 00 20 00 6e 00 1c 00 50 5c 52 46 28 4e 29 5c 44 55 4f 4e 32 30 5c 55 4e ┆WDU02 DISC UNIT NO. 2 F P LD A2,DWTST,A6 DWT STSTUS n P RF(N) DUON20 UN┆
0x0b1a…0b6a 49 54 20 46 52 45 45 20 00 20 00 90 00 20 00 50 5c 43 46 5c 41 31 35 2c 54 45 4e 44 49 4f 5c 50 45 52 46 4f 52 4d 20 45 4e 44 49 4f 00 20 00 b0 00 08 00 50 5c 58 49 46 00 20 00 d4 00 26 00 50 44 55 4f 4e 32 30 5c 52 42 5c 54 3a 44 49 53 50 ┆IT FREE P CF A15,TENDIO PERFORM ENDIO P XIF & PDUON20 RB T:DISP┆
0x0b6a…0bba 5c 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 00 20 00 e0 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 44 55 30 31 20 00 20 01 0a 00 04 00 50 00 20 01 22 00 04 00 50 00 20 01 2a 00 06 00 50 2a 20 00 20 01 32 00 1c 00 50 2a 2a 2a 2a ┆ GO TO DISPATCHER P EJECT DRDU01 P " P * P* 2 P****┆
0x0bba…0c0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 20 01 3c 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 20 01 5c 00 1c 00 50 2a 20 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 ┆******************* < P* * P* INTERRUPT HANDLER┆
0x0c0a…0c5a (9, 0, 400) 20 20 2a 20 00 20 01 7c 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 21 00 0c 00 1c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 21 00 2c 00 06 00 50 2a 20 00 21 ┆ * | P* * ! P*********************** ! , P* !┆
0x0c5a…0caa 00 4c 00 10 00 50 49 48 44 55 32 5c 45 51 55 5c 2a 20 00 21 00 56 00 12 00 50 5c 49 46 54 5c 4e 55 4e 49 54 53 3d 32 20 00 21 00 6a 00 24 00 50 5c 53 54 5c 50 2c 49 4e 54 53 41 56 5c 53 41 56 45 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 ┆ L PIHDU2 EQU * ! V P IFT NUNITS=2 ! j $ P ST P,INTSAV SAVE LAST INTERRUPT┆
0x0caa…0cfa 00 21 00 80 00 12 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 20 00 21 00 a8 00 24 00 50 5c 4c 44 4b 4c 5c 41 36 2c 44 57 44 55 30 32 5c 44 49 53 43 20 55 4e 49 54 20 4e 4f 2e 20 32 20 00 21 00 be 00 0e 00 50 5c 52 46 5c 49 48 44 55 31 30 ┆ ! P CF A15,SAVE8 ! $ P LDKL A6,DWDU02 DISC UNIT NO. 2 ! P RF IHDU10┆
0x0cfa…0d4a 00 21 00 e6 00 08 00 50 5c 58 49 46 00 21 00 f8 00 0e 00 50 49 48 44 55 5c 45 51 55 5c 2a 00 21 01 04 00 10 00 50 49 48 44 55 31 5c 45 51 55 5c 2a 20 00 21 01 16 00 24 00 50 5c 53 54 5c 50 2c 49 4e 54 53 41 56 5c 53 41 56 45 20 4c 41 53 54 ┆ ! P XIF ! PIHDU EQU * ! PIHDU1 EQU * ! $ P ST P,INTSAV SAVE LAST┆
0x0d4a…0d9a 20 49 4e 54 45 52 52 55 50 54 00 21 01 2a 00 12 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 20 00 21 01 52 00 24 00 50 5c 4c 44 4b 4c 5c 41 36 2c 44 57 44 55 30 31 5c 44 49 53 43 20 55 4e 49 54 20 4e 4f 2e 20 31 20 00 21 01 68 00 04 00 50 ┆ INTERRUPT ! * P CF A15,SAVE8 ! R $ P LDKL A6,DWDU01 DISC UNIT NO. 1 ! h P┆
0x0d9a…0dea (10, 0, 398) 00 21 01 90 00 04 00 50 00 22 00 08 00 22 00 50 49 48 44 55 31 30 5c 53 53 54 5c 41 31 2c 43 55 41 44 52 5c 47 45 54 20 53 54 41 54 55 53 00 22 00 10 00 12 00 50 5c 49 46 54 5c 4e 55 4e 49 54 53 3d 32 20 00 22 00 36 00 0e 00 50 5c 4c 44 52 ┆ ! P " " PIHDU10 SST A1,CUADR GET STATUS " P IFT NUNITS=2 " 6 P LDR┆
0x0dea…0e3a 5c 41 32 2c 41 31 00 22 00 4c 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 34 30 20 00 22 00 5e 00 12 00 50 5c 52 46 28 5a 29 5c 49 48 44 55 32 30 20 00 22 00 72 00 14 00 50 5c 4c 44 4b 4c 5c 41 36 2c 44 57 44 55 30 32 20 00 22 00 88 00 08 00 50 ┆ A2,A1 " L P ANK A2,/40 " ^ P RF(Z) IHDU20 " r P LDKL A6,DWDU02 " P┆
0x0e3a…0e8a 5c 58 49 46 00 22 00 a0 00 10 00 50 49 48 44 55 32 30 5c 45 51 55 5c 2a 00 22 00 ac 00 24 00 50 5c 41 4e 4b 4c 5c 41 31 2c 2f 34 34 30 46 5c 4d 41 53 4b 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 22 00 c0 00 0e 00 50 5c 53 4c 4c 5c 41 31 2c ┆ XIF " PIHDU20 EQU * " $ P ANKL A1,/440F MASK RETURN CODE " P SLL A1,┆
0x0e8a…0eda 31 20 00 22 00 e8 00 22 00 50 5c 52 42 28 4e 29 5c 44 55 52 45 44 59 5c 52 45 41 44 59 20 49 4e 54 45 52 52 55 50 54 20 00 22 00 fa 00 0e 00 50 5c 53 52 4c 5c 41 31 2c 31 20 00 22 01 20 00 04 00 50 00 22 01 32 00 04 00 50 00 22 01 3a 00 14 ┆1 " " P RB(N) DUREDY READY INTERRUPT " P SRL A1,1 " P " 2 P " : ┆
0x0eda…0f28 00 50 5c 4c 44 5c 41 32 2c 44 57 54 53 41 56 2c 41 36 00 22 01 42 00 10 00 50 5c 52 46 28 4e 4e 29 5c 47 45 54 20 00 22 01 5a 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 31 00 22 01 6e 00 0e 00 50 5c 41 4e 4b 5c 41 33 2c 31 20 00 22 01 80 ┆ P LD A2,DWTSAV,A6 " B P RF(NN) GET " Z P LDR A3,A1 " n P ANK A3,1 " ┆
0x0f28…0f78 (11, 0, 400) 00 2a 00 50 5c 52 46 28 4e 5a 29 5c 45 4e 44 3a 49 4f 5c 44 49 53 43 20 55 4e 49 54 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 20 00 23 00 04 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 44 55 30 31 20 00 23 00 32 00 04 00 50 00 23 00 4a 00 04 ┆ * P RF(NZ) END:IO DISC UNIT NOT OPERABLE # P EJECT DRDU01 # 2 P # J ┆
0x0f78…0fc8 00 50 00 23 00 52 00 2a 00 50 47 45 54 5c 4c 44 5c 41 35 2c 44 57 54 41 35 2c 41 36 5c 52 45 4c 4f 41 44 20 52 45 47 49 53 54 45 52 53 20 41 35 00 23 00 5a 00 28 00 50 5c 4c 44 5c 41 34 2c 44 57 54 41 34 2c 41 36 5c 20 20 20 20 20 20 20 20 ┆ P # R * PGET LD A5,DWTA5,A6 RELOAD REGISTERS A5 # Z ( P LD A4,DWTA4,A6 ┆
0x0fc8…1018 20 20 20 20 20 20 20 20 20 41 34 20 00 23 00 88 00 28 00 50 5c 4c 44 5c 41 32 2c 44 57 54 41 32 2c 41 36 5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 32 20 00 23 00 b4 00 14 00 50 5c 4c 44 5c 41 37 2c 44 57 54 4f 52 2c 41 36 20 ┆ A4 # ( P LD A2,DWTA2,A6 A2 # P LD A7,DWTOR,A6 ┆
0x1018…1068 00 23 00 e0 00 16 00 50 5c 41 4e 4b 5c 41 37 2c 2f 46 46 5c 4f 52 44 45 52 20 00 23 00 f8 00 20 00 50 5c 4c 44 5c 41 38 2c 44 57 54 45 43 42 2c 41 36 5c 45 43 42 2d 41 44 44 52 45 53 53 00 23 01 12 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 23 ┆ # P ANK A7,/FF ORDER # P LD A8,DWTECB,A6 ECB-ADDRESS # P RTN A5 #┆
0x1068…10b8 01 36 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 44 55 30 31 20 00 23 01 46 00 04 00 50 00 23 01 5e 00 04 00 50 00 23 01 66 00 06 00 50 2a 20 00 23 01 6e 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 23 01 78 ┆ 6 P EJECT DRDU01 # F P # ^ P # f P* # n P******************* # x┆
0x10b8…1108 (12, 0, 398) 00 18 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 24 00 04 00 18 00 50 2a 20 20 50 45 52 46 4f 52 4d 20 45 4e 44 49 4f 20 20 2a 20 00 24 00 20 00 18 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 ┆ P* * $ P* PERFORM ENDIO * $ P* * ┆
0x1108…1158 00 24 00 3c 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 24 00 58 00 06 00 50 2a 20 00 24 00 74 00 10 00 50 45 4e 44 3a 49 4f 5c 45 51 55 5c 2a 00 24 00 7e 00 04 00 50 00 24 00 92 00 22 00 50 5c 41 4e 4b 4c 5c ┆ $ < P******************* $ X P* $ t PEND:IO EQU * $ ~ P $ " P ANKL ┆
0x1158…11a8 41 31 2c 2f 32 38 46 5c 4d 41 53 4b 20 52 45 54 55 52 4e 20 43 4f 44 45 00 24 00 9a 00 18 00 50 5c 52 46 28 4e 5a 29 5c 45 4e 44 3a 31 30 5c 45 52 52 4f 52 00 24 00 c0 00 22 00 50 5c 4c 44 5c 41 32 2c 34 2c 41 38 5c 52 45 51 55 45 53 54 45 ┆A1,/28F MASK RETURN CODE $ P RF(NZ) END:10 ERROR $ " P LD A2,4,A8 REQUESTE┆
0x11a8…11f8 44 20 4c 45 4e 47 54 48 20 3d 00 24 00 dc 00 20 00 50 5c 53 54 5c 41 32 2c 36 2c 41 38 5c 45 46 46 45 43 54 49 56 45 20 4c 45 4e 47 54 48 00 24 01 02 00 04 00 50 00 24 01 26 00 04 00 50 00 24 01 2e 00 20 00 50 45 4e 44 3a 31 30 5c 4c 43 5c ┆D LENGTH = $ P ST A2,6,A8 EFFECTIVE LENGTH $ P $ & P $ . PEND:10 LC ┆
0x11f8…1246 41 32 2c 44 57 54 4f 52 2c 41 36 5c 4f 52 44 45 52 20 00 24 01 36 00 14 00 50 5c 41 4e 4b 5c 41 32 2c 31 5c 49 4e 44 45 58 20 00 24 01 5a 00 0e 00 50 5c 41 44 52 5c 41 32 2c 41 32 00 24 01 72 00 0e 00 50 5c 41 44 52 5c 41 32 2c 41 36 ┆A2,DWTOR,A6 ORDER $ 6 P ANK A2,1 INDEX $ Z P ADR A2,A2 $ r P ADR A2,A6┆