|
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: 4808 (0x12c8)
Notes: pts_type(SC)
Names: »TABORT.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/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 1 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 1«, 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) 00 1e 00 50 5c 49 46 54 5c 43 4f 44 45 2b 50 36 38 30 35 3d 30 5c 5c 53 41 4c 43 55 5a 20 00 88 00 04 00 0e 00 50 5c 45 43 52 5c 41 31 2c 41 32 00 88 00 26 00 12 00 50 52 45 31 30 30 5c 53 4c 4c 5c 41 31 2c 31 00 88 00 38 00 10 00 50 5c 52 ┆ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 & PRE100 SLL A1,1 8 P R┆
0x0b48…0b98 46 28 5a 29 5c 52 45 31 31 30 00 88 00 4e 00 12 00 50 5c 52 42 28 4e 4e 29 5c 52 45 31 30 30 20 00 88 00 62 00 10 00 50 5c 58 52 4b 5c 41 32 2c 2f 38 30 20 00 88 00 78 00 0e 00 50 5c 52 42 5c 52 45 31 30 30 20 00 88 00 8c 00 14 00 50 52 45 ┆F(Z) RE110 N P RB(NN) RE100 b P XRK A2,/80 x P RB RE100 PRE┆
0x0b98…0be8 31 31 30 5c 4c 44 52 5c 41 31 2c 41 32 20 00 88 00 9e 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 37 46 20 00 88 00 b6 00 08 00 50 5c 58 49 46 00 88 00 ca 00 1e 00 50 5c 49 46 46 5c 43 4f 44 45 2b 50 36 38 30 35 3d 30 5c 5c 53 41 4c 43 55 5a 20 ┆110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ ┆
0x0be8…0c38 00 88 00 d6 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 2f 38 30 20 00 88 00 f8 00 08 00 50 5c 58 49 46 00 88 01 0c 00 0e 00 50 5c 41 44 4b 5c 41 35 2c 34 20 00 88 01 18 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 38 30 20 00 88 01 2a 00 10 00 50 5c 58 ┆ P LDK A1,/80 P XIF P ADK A5,4 P ANK A1,/80 * P X┆
0x0c38…0c88 52 4b 5c 41 31 2c 2f 38 30 20 00 88 01 3e 00 0c 00 50 5c 41 42 52 2a 5c 41 35 00 88 01 52 00 06 00 50 2a 20 00 88 01 62 00 06 00 50 2a 20 00 88 01 6c 00 0a 00 50 5c 45 4a 45 43 54 00 88 01 76 00 06 00 50 2a 20 00 88 01 84 00 3c 00 50 2a 5c ┆RK A1,/80 > P ABR* A5 R P* b P* l P EJECT v P* < P* ┆
0x0c88…0cd8 (9, 0, 400) 46 49 4e 44 20 44 57 54 20 43 4f 4e 54 41 49 4e 49 4e 47 20 53 55 42 54 45 52 4d 49 4e 41 4c 20 41 44 44 52 45 53 53 20 41 53 20 47 49 56 45 4e 20 49 4e 20 41 32 00 88 01 8e 00 06 00 50 2a 20 00 89 00 3e 00 24 00 50 2a 5c 43 41 4c 4c 49 4e ┆FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* > $ P* CALLIN┆
0x0cd8…0d28 47 20 53 45 51 55 45 4e 43 45 3a 20 43 46 20 41 35 2c 46 49 4e 54 45 52 00 89 00 48 00 1c 00 50 2a 5c 41 32 3d 53 55 42 54 45 52 4d 49 4e 41 4c 20 41 44 44 52 45 53 53 00 89 00 70 00 12 00 50 2a 5c 41 34 20 44 45 53 54 52 4f 59 45 44 00 89 ┆G SEQUENCE: CF A5,FINTER H P* A2=SUBTERMINAL ADDRESS p P* A4 DESTROYED ┆
0x0d28…0d78 00 90 00 22 00 50 2a 5c 41 33 23 30 3a 20 44 57 54 20 54 4f 20 46 4f 55 4e 44 20 54 45 52 4d 49 4e 41 4c 20 00 89 00 a6 00 06 00 50 2a 20 00 89 00 cc 00 42 00 50 2a 20 4e 4f 54 45 3a 5c 46 4f 52 20 53 49 45 4d 45 4e 53 20 4d 53 56 31 20 2d ┆ " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 -┆
0x0d78…0dc8 20 53 45 50 41 52 41 54 45 20 53 45 4c 45 43 54 20 41 4e 44 20 50 4f 4c 4c 20 41 44 44 52 45 53 53 45 53 20 00 89 00 d6 00 2a 00 50 2a 5c 45 4e 54 52 59 3a 5c 46 49 4e 54 45 52 20 2d 20 43 48 45 43 4b 20 53 45 4c 45 43 54 20 41 44 44 52 45 ┆ SEPARATE SELECT AND POLL ADDRESSES * P* ENTRY: FINTER - CHECK SELECT ADDRE┆
0x0dc8…0e18 53 53 00 89 01 1c 00 2c 00 50 2a 5c 5c 46 49 4e 54 45 50 20 2d 20 43 48 45 43 4b 20 53 50 45 43 49 46 49 43 20 50 4f 4c 4c 20 41 44 44 52 45 53 53 20 00 89 01 4a 00 06 00 50 2a 20 00 89 01 7a 00 2e 00 50 52 42 59 54 45 5c 44 41 54 41 5c 30 ┆SS , P* FINTEP - CHECK SPECIFIC POLL ADDRESS J P* z . PRBYTE DATA 0┆
0x0e18…0e68 (10, 0, 400) 5c 49 46 20 31 20 43 4f 4d 50 41 52 45 20 57 49 54 48 20 52 49 47 54 48 20 42 59 54 45 20 00 89 01 84 00 06 00 50 2a 20 00 8a 00 26 00 06 00 50 2a 20 00 8a 00 30 00 10 00 50 46 49 4e 54 45 50 5c 45 51 55 5c 2a 00 8a 00 3a 00 10 00 50 5c 49 ┆ IF 1 COMPARE WITH RIGTH BYTE P* & P* 0 PFINTEP EQU * : P I┆
0x0e68…0eb8 46 54 5c 4d 53 56 31 3d 30 20 00 8a 00 4e 00 10 00 50 46 49 4e 54 45 52 5c 45 51 55 5c 2a 00 8a 00 62 00 08 00 50 5c 58 49 46 00 8a 00 76 00 0e 00 50 5c 49 4d 5c 52 42 59 54 45 20 00 8a 00 82 00 10 00 50 5c 49 46 54 5c 4d 53 56 31 3d 31 20 ┆FT MSV1=0 N PFINTER EQU * b P XIF v P IM RBYTE P IFT MSV1=1 ┆
0x0eb8…0f08 00 8a 00 94 00 10 00 50 46 49 4e 54 45 52 5c 45 51 55 5c 2a 00 8a 00 a8 00 08 00 50 5c 58 49 46 00 8a 00 bc 00 26 00 50 5c 4c 44 5c 41 34 2c 44 43 54 41 42 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 44 43 3a 54 41 42 00 8a 00 c8 00 2a ┆ PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB *┆
0x0f08…0f58 00 50 5c 41 44 2a 5c 41 34 2c 44 43 54 41 42 5c 41 44 44 52 45 53 53 20 54 4f 20 45 4e 44 20 4f 46 20 44 43 3a 54 41 42 00 8a 00 f2 00 14 00 50 46 49 4e 54 31 30 5c 53 55 4b 5c 41 34 2c 32 20 00 8a 01 20 00 1c 00 50 5c 4c 44 4b 5c 41 33 2c ┆ P AD* A4,DCTAB ADDRESS TO END OF DC:TAB PFINT10 SUK A4,2 P LDK A3,┆
0x0f58…0fa8 30 5c 44 45 46 41 55 4c 54 20 56 41 4c 55 45 20 00 8a 01 38 00 1e 00 50 5c 43 57 5c 41 34 2c 44 43 54 41 42 5c 45 4e 44 20 4f 46 20 54 41 42 4c 45 20 00 8a 01 58 00 28 00 50 5c 52 46 28 45 29 5c 46 49 4e 54 32 30 5c 53 55 42 54 45 52 4d 49 ┆0 DEFAULT VALUE 8 P CW A4,DCTAB END OF TABLE X ( P RF(E) FINT20 SUBTERMI┆
0x0fa8…0ff8 (11, 0, 400) 4e 41 4c 20 4e 4f 54 20 46 4f 55 4e 44 20 00 8a 01 7a 00 20 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 34 5c 4c 4f 41 44 20 44 57 54 20 41 44 44 52 45 53 53 00 8b 00 16 00 10 00 50 5c 49 46 54 5c 4d 53 56 31 3d 31 20 00 8b 00 3a 00 24 00 50 5c 41 ┆NAL NOT FOUND z P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 : $ P A┆
0x0ff8…1048 44 5c 41 33 2c 52 42 59 54 45 5c 43 48 4f 4f 53 45 20 41 44 44 52 45 53 53 20 54 59 50 45 00 8b 00 4e 00 2a 00 50 5c 43 43 52 5c 41 32 2c 41 33 5c 43 4f 4d 50 41 52 45 20 53 55 42 54 45 52 4d 49 4e 41 4c 20 41 44 44 52 45 53 53 00 8b 00 76 ┆D A3,RBYTE CHOOSE ADDRESS TYPE N * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS v┆
0x1048…1098 00 08 00 50 5c 58 49 46 00 8b 00 a4 00 10 00 50 5c 49 46 54 5c 4d 53 56 31 3d 30 20 00 8b 00 b0 00 2e 00 50 5c 43 43 5c 41 32 2c 31 2c 41 33 5c 43 4f 4d 50 41 52 45 20 54 4f 20 53 55 42 54 45 52 4d 49 4e 41 4c 20 41 44 44 52 45 53 53 00 8b ┆ P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS ┆
0x1098…10e8 00 c4 00 08 00 50 5c 58 49 46 00 8b 00 f6 00 26 00 50 5c 52 42 28 4e 45 29 5c 46 49 4e 54 31 30 5c 54 41 4b 45 20 4e 45 58 54 20 54 45 52 4d 49 4e 41 4c 20 00 8b 01 02 00 14 00 50 46 49 4e 54 32 30 5c 43 4d 5c 52 42 59 54 45 20 00 8b 01 2c ┆ P XIF & P RB(NE) FINT10 TAKE NEXT TERMINAL PFINT20 CM RBYTE ,┆
0x10e8…1138 00 12 00 50 5c 41 4e 4b 4c 5c 41 33 2c 2f 46 46 46 45 00 8b 01 44 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 8b 01 5a 00 0a 00 50 5c 45 4a 45 43 54 00 8b 01 6a 00 06 00 50 2a 20 00 8b 01 78 00 06 00 50 2a 20 00 8b 01 82 00 18 00 50 2a 5c 50 4f ┆ P ANKL A3,/FFFE D P RTN A5 Z P EJECT j P* x P* P* PO┆
0x1138…1188 (12, 0, 400) 57 45 52 20 4f 4e 20 46 55 4e 43 54 49 4f 4e 53 00 8b 01 8c 00 06 00 50 2a 20 00 8c 00 18 00 06 00 50 2a 20 00 8c 00 22 00 24 00 50 44 43 31 35 4f 4e 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 41 31 20 2d 20 41 38 00 8c 00 2c ┆WER ON FUNCTIONS P* P* " $ PDC15ON CF A15,SAVE8 SAVE A1 - A8 ,┆
0x1188…11d8 00 10 00 50 5c 49 46 54 5c 53 54 41 54 3d 31 20 00 8c 00 54 00 1c 00 50 5c 4c 44 4b 5c 41 35 2c 34 5c 53 45 54 20 44 45 56 49 43 45 20 45 4e 44 00 8c 00 68 00 10 00 50 5c 4c 44 5c 41 31 2c 44 43 54 41 42 00 8c 00 88 00 2e 00 50 5c 41 44 2a ┆ P IFT STAT=1 T P LDK A5,4 SET DEVICE END h P LD A1,DCTAB . P AD*┆
0x11d8…1228 5c 41 31 2c 44 43 54 41 42 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 45 4e 44 20 4f 46 20 54 41 42 4c 45 20 00 8c 00 9c 00 14 00 50 44 52 44 43 30 35 5c 53 55 4b 5c 41 31 2c 32 20 00 8c 00 ce 00 10 00 50 5c 43 57 5c 41 31 2c 44 43 54 ┆ A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 P CW A1,DCT┆
0x1228…1278 41 42 00 8c 00 e6 00 1e 00 50 5c 52 46 28 45 29 5c 44 52 44 43 30 36 5c 45 4e 44 20 4f 46 20 54 41 42 4c 45 00 8c 00 fa 00 20 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 31 5c 47 45 54 20 44 57 54 20 41 44 44 52 45 53 53 20 00 8c 01 1c 00 30 00 50 ┆AB P RF(E) DRDC06 END OF TABLE P LDR* A6,A1 GET DWT ADDRESS 0 P┆
0x1278…12c8 5c 4f 52 53 5c 41 35 2c 44 57 54 53 54 2c 41 36 5c 53 54 4f 52 45 20 44 45 56 49 43 45 20 45 4e 44 20 46 4f 52 20 44 45 56 49 43 45 00 8c 01 40 00 28 00 50 5c 43 46 5c 41 31 35 2c 49 4e 53 53 51 5c 49 4e 53 45 52 54 20 49 4e 20 53 54 41 54 ┆ ORS A5,DWTST,A6 STORE DEVICE END FOR DEVICE @ ( P CF A15,INSSQ INSERT IN STAT┆