|
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: 10186 (0x27ca)
Notes: pts_type(SC)
Names: »TPROC.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/TPROC.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/TPROC.SC«
IDENT TPROC REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TPROC = TOSS LKM PROCESSORS * TIO,TWAIT,TEXIT,TACTOT,TPAUSE * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ************************************************** * * * * THIS MODULE CONTAINS MANDATORY LKM PROCESSORS * FOR TOSS. THESE ARE: * * -TIO INPUT/OUTPUT * * -TWAIT WAIT * * -TEXIT EXIT * * -TACTOT ACTIVATE/RESTART TERMINAL ** * -TPAUSE PAUSE TERMINAL * EJECT * *********** * ENTRIES * *********** * * ENTRY TIO I/O PROCESSOR * ENTRY TWAIT WAIT PROCESSOR * ENTRY TEXIT EXIT PROCESSOR * ENTRY TACTOT ACTIVATE/RESTART PROCESSOR * ENTRY TPAUSE PAUSE PROCESSOR * * EJECT * ************* * EXTERNALS * ************* * * EXTRN DWTADR DWT ADDRESS BLOCK POINTER EXTRN DWTTAB DWT TTAB ADDRESS EXTRN DWTWAT WAIT/ACTIVATE INDICATOR EXTRN FNDDWT SEARCH DWT EXTRN QTJOB QUEUE TERM.PROG. FOR DISP. EXTRN DWTOR ORDER EXTRN DWTECB ECB ADDRESS EXTRN DWTST STATUS EXTRN TDISP DISPATCHER EXTRN SRUN POINTER TO RUNNING SEGMENT IN LSBT EXTRN LKMRQE LKM REQUEST ERROR EXTRN GETBLK PUT BLOCK IN PENDING QUEUE EXTRN FREBLK RELEASE BLOCK FROM PENDING QUEUE EXTRN EXIT PROGRAM EXIT EXTRN TTMJOB TTAB-ADDRESS OF MJOBS EXTRN TTB:PP PENDING PROGRAM POINTER EXTRN TTB:ID TERMINAL IDENTIFICATION EXTRN FNDTID SEARCH TERMINAL IDENTIFICATION EXTRN ACTOT 'ACTIVATE' TERMINAL EXTRN TTB:ST TASK STATUS AND LEVEL EXTRN TTB:SA SAVE AREA EJECT * * ************* * CONSTANTS * ************* * * DISPLACEMENT IN DEVICE WORK TABLE AND EVENT CONTROL BLOCK * DWTTQ EQU /0E TASK QUEUE IN DWT DWTSB2 EQU /1E STACK BASE 2 IN DWT DWTECH EQU /22 ECHO-DEVICE DWT ECBEL EQU /06 EFFECTIVE LENGTH IN ECB ECBRC EQU /08 RETURN CODE IN ECB EJECT * * * T I O * * * THIS MODULE IS ENTERED WHEN TERMINAL I/O * IS REQUIRED. IF A REQUEST CANNOT BE SERVICED * DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED * AND THE TERMINAL PROGRAM SET IN WAIT STATE. * THIS MODULE IS CALLED BY THE LKM HANDLING MODULE * WITH THE FOLLOWING PARAMETERS:- * * A1 = PARAMETER WHEN I/O AND ACTIVATION * * A4 = ZERO, NORMAL I/O REQUEST * NOT ZERO, I/O AND ACTIVATION * * A5 = TTAB ADDRESS * * A7 = CODE * * A8 = ECB ADDRESS * * * THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER * WITH THE FOLLOWING REGISTER VAULES:- * * A5 = STACK BASE 2 IN DWT * * A6 = DWT-ADDRESS * * A7 = ORDER * * A8 = ECB-ADDRESS * EJECT * * THE FOLLOWING DWT FIELDS ARE UPDATED:- * * -DWTOR DWT-INDEX AND ORDER * -DWTECB ECB ADDRESS * -DWTST READY AND ECHO FIELDS * -DWTTAB TTAB ADDRESS * -DWTWAT WAIT/ACTIVE INDICATOR * * * THE FOLLOWING ECB FIELDS ARE RESET:- * * -BITS 0-7 IN THE FIRST WORD * -ECBEL EFFECTIVE LENGTH * -ECBRC RETURN CODE * * * GET DWT ADDRESS AND CHECK IF DEVICE IS BUSY * TIO CF A15,FNDDWT SEARCH DWT ADDRESS LDKL A3,/8000 LDR A6,A6 RF(Z) TIOERR FILE CODE UNKNOWN AN A3,DWTST,A6 RF(Z) TIOQ20 DEVICE BUSY SC A2,DWTOR,A6 STORE DWT INDEX LDK A2,/40 CHECK IF ECHO ANR A2,A7 RF(Z) TIO100 NOT ECHO LD A2,DWTECH,A6 LOAD ECHO DEVICE RF(Z) TIO100 NO ECHO DEVICE AN A3,DWTST,A2 RF(Z) TIOQ10 ECHO DEVICE BUSY LDKL A3,/A000 XRS A3,DWTST,A2 UPDATE BUSY AND ECHO IN DWT * * UPDATE ECB AND DWT FIELDS * TIO100 XRS A3,DWTST,A6 UPDATE BUSY AND ECHO IN DWT LDKL A3,/7FFF ANRS A3,A8 RESET BIT 0 IN ECB FILE-CODE CM ECBEL,A8 -EFFECTIVE LENGTH CM ECBRC,A8 -RETURN CODE LDR A3,A7 SAVE CODE ANK A7,/3F SC A7,DWTOR+1,A6 STORE ORDER IN DWT ST A5,DWTTAB,A6 -TTAB ADDRESS ST A8,DWTECB,A6 -ECB ADDRESS EJECT * * UPDATE DWTWAT (WAIT/ACTIVE INDICATOR) * LDR A2,A4 CHECK PARAMETER RF(NZ) TIO200 I/O AND ACTIVATION ANK A3,/80 NORMAL I/O CHECK IF WAIT REQUESTED RF(Z) TIO220 NOT WAIT LDK A4,1 INDICATE WAIT RF TIO230 TIO200 LD A3,SRUN SEGM. POINTER RF(Z) TIO210 JUMP IF ROOT SU A2,2,A3 RELATIVE ADDRESS TIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS TIO220 CF A15,QTJOB QUEUE TASK FOR DISPATCHING TIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVE INDICATOR LDK A5,DWTSB2 LOAD STACK BASE 2 IN A5 ADR A5,A6 ABI* DWTADR,A6 GO TO DRIVER ACTIVATION EJECT * * QUEUE BUSY DEVICE * TIOQ10 LDR A6,A2 QUEUE ECHO DEVICE TIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR LC A1,TTB:ST+1,A5 GET LEVEL TIOQ30 LDR A2,A6 LDR* A6,A6 FOLLOW QUEUE TO END RF(Z) TIOQ40 END FOUND CC A1,TTB:ST+1,A6 COMPARE LEVELS RB(NL) TIOQ30 TRY NEXT TIOQ40 STR A6,A5 INSERT IN QUEUE STR A5,A2 SUK A3,4 LDR A4,A4 CHECK IF ACTIVATION RF(Z) TIOQ50 NO SUK A3,2 YES TIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM RF TPDIS * * ERROR FILE CODE UNKNOWN * TIOERR ST A3,ECBRC,A8 INDICATE ERROR IN ECB TPQUE CF A15,QTJOB QUEUE TASK FOR DISPATCING TPDIS ABL TDISP EJECT * * * W A I T * * THIS MODULE IS ENTERED WHEN THE APPLICATION PROGRAM * WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. * IT IS CALLED BY THE LKM HANDLER WITH THE FOLLOWING * PARAMETERS:- * * A5 = TTAB ADDRESS * * A8 = ECB ADDRESS * * * TWAIT EQU * CF A15,FNDDWT SEARCH DWT ADDRESS LDR A6,A6 RF(Z) TAC010 FILE CODE UNKNOWN LDR* A1,A8 RETURN IF EVENT COMPLETED RB(N) TPQUE COMPLETED IM DWTWAT,A6 SET WAIT INDICATOR IN DWT RB TPDIS GO TO DISPATCHER EJECT * * * E X I T * * * THIS MODULE IS ENTERED WHEN A TERMINAL PROGRAM * EXITS. IF ANY PROGRAM IS PENDING FOR THE * TERMINAL IT IS STARTED. * THIS MODULE IS CALLED BY THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS:- * * A5 = TTAB ADDRESS * * TEXIT EQU * CF A15,EXIT CALL PROGRAM EXIT RB TPDIS GO TO DISPATCHER EJECT * * * T A C T O T * * * THIS MODULE IS ENTERED FROM THE LKM HANDLER * WHEN A TERMINAL HAS TO BE ACTIVATED. * * THE FOLLOWING PARAMETERS ARE SUPPLIED:- * A1 = PARAMETER WHEN A4 NOT ZERO * A4 = START ADDRESS AT ACTIVATION, ELSE ZERO * A5 = TTAB * A7 = IDENTIFICATION FOR TERMINAL TO BE ACTIVATED * * TACTOT EQU * CF A15,FNDTID FIND TTAB ADDRESS LDR A2,A2 TAC010 EQU * ABL(Z) LKMRQE TERMINAL NOT IN SYSTEM CF A15,QTJOB QUEUE CALLING TERMINAL FOR DISPATCHING LDR A5,A2 LDR A2,A4 RB(Z) TPQUE RESTART: QUEUE FOR DISPATCHING LD A3,SRUN SEGMENT POINTER RF(E) TAC020 JUMP IF ROOT SU A2,2,A3 RELATIVE ADDRESS TAC020 EQU * CF A15,ACTOT ACTIVATION RB TPDIS GO TO DISPACHER EJECT * * * T P A U S E * * TPAUSE EQU TPDIS GO TO DISPATCHER * END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT TPROC 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…00f8 Head {h00=0x0024, h01=0x0050, text=»* TPROC = TOSS LKM PROCESSORS «, t00=0x0000, t01=0x00d4}
0x00f8…012a Head {h00=0x002e, h01=0x0050, text=»* TIO,TWAIT,TEXIT,TACTOT,TPAUSE «, t00=0x0000, t01=0x00fc}
0x012a…0134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012e}
0x0134…0156 Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0138}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…0182 Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x0164}
0x0182…018c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0186}
0x018c…01c6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0190}
0x01c6…01d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003a}
0x01d0…01da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0044}
0x01da…01e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004e}
0x01e4…021e Head {h00=0x0036, h01=0x0050, text=»* THIS MODULE CONTAINS MANDATORY LKM PROCESSORS «, t00=0x0001, t01=0x0058}
0x021e…023e Head {h00=0x001c, h01=0x0050, text=»* FOR TOSS. THESE ARE:«, t00=0x0001, t01=0x0092}
0x023e…0248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b2}
0x0248…026a Head {h00=0x001e, h01=0x0050, text=»* -TIO INPUT/OUTPUT «, t00=0x0001, t01=0x00bc}
0x026a…0274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00de}
0x0274…028e Head {h00=0x0016, h01=0x0050, text=»* -TWAIT WAIT «, t00=0x0001, t01=0x00e8}
0x028e…0298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x0298…02b2 Head {h00=0x0016, h01=0x0050, text=»* -TEXIT EXIT «, t00=0x0001, t01=0x010c}
0x02b2…02bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x02bc…02ea Head {h00=0x002a, h01=0x0050, text=»* -TACTOT ACTIVATE/RESTART TERMINAL«, t00=0x0001, t01=0x0130}
0x02ea…02f4 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0001, t01=0x015e}
0x02f4…0318 Head {h00=0x0020, h01=0x0050, text=»* -TPAUSE PAUSE TERMINAL «, t00=0x0001, t01=0x0168}
0x0318…0322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018c}
0x0322…0330 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0008}
0x0330…033a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0016}
0x033a…034e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0020}
0x034e…0362 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0034}
0x0362…0376 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0048}
0x0376…0380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005c}
0x0380…038a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0066}
0x038a…03aa Head {h00=0x001c, h01=0x0050, text=» ENTRY TIO I/O PROCESSOR«, t00=0x0002, t01=0x0070}
0x03aa…03b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0090}
0x03b4…03d8 Head {h00=0x0020, h01=0x0050, text=» ENTRY TWAIT WAIT PROCESSOR «, t00=0x0002, t01=0x009a}
0x03d8…03e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00be}
0x03e2…0406 Head {h00=0x0020, h01=0x0050, text=» ENTRY TEXIT EXIT PROCESSOR «, t00=0x0002, t01=0x00c8}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ec}
0x0410…0440 Head {h00=0x002c, h01=0x0050, text=» ENTRY TACTOT ACTIVATE/RESTART PROCESSOR«, t00=0x0002, t01=0x00f6}
0x0440…044a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0126}
0x044a…0470 Head {h00=0x0022, h01=0x0050, text=» ENTRY TPAUSE PAUSE PROCESSOR «, t00=0x0002, t01=0x0130}
0x0470…047a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0156}
0x047a…0484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0160}
0x0484…0492 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x016a}
0x0492…049c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0178}
0x049c…04b2 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x0182}
0x04b2…04c8 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x0008}
0x04c8…04de Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x001e}
0x04de…04e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0034}
0x04e8…04f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003e}
0x04f2…0522 Head {h00=0x002c, h01=0x0050, text=» EXTRN DWTADR DWT ADDRESS BLOCK POINTER «, t00=0x0003, t01=0x0048}
0x0522…0548 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTTAB DWT TTAB ADDRESS«, t00=0x0003, t01=0x0078}
0x0548…0576 Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTWAT WAIT/ACTIVATE INDICATOR «, t00=0x0003, t01=0x009e}
0x0576…0596 Head {h00=0x001c, h01=0x0050, text=» EXTRN FNDDWT SEARCH DWT«, t00=0x0003, t01=0x00cc}
0x0596…05c6 Head {h00=0x002c, h01=0x0050, text=» EXTRN QTJOB QUEUE TERM.PROG. FOR DISP. «, t00=0x0003, t01=0x00ec}
0x05c6…05e0 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0003, t01=0x011c}
0x05e0…0602 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0003, t01=0x0136}
0x0602…061e Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0003, t01=0x0158}
0x061e…063e Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x0174}
0x063e…0674 (4, 0, 400) Head {h00=0x0032, h01=0x0050, text=» EXTRN SRUN POINTER TO RUNNING SEGMENT IN LSBT«, t00=0x0004, t01=0x0004}
0x0674…069c Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0004, t01=0x003a}
0x069c…06cc Head {h00=0x002c, h01=0x0050, text=» EXTRN GETBLK PUT BLOCK IN PENDING QUEUE«, t00=0x0004, t01=0x0062}
0x06cc…0702 Head {h00=0x0032, h01=0x0050, text=» EXTRN FREBLK RELEASE BLOCK FROM PENDING QUEUE«, t00=0x0004, t01=0x0092}
0x0702…0722 Head {h00=0x001c, h01=0x0050, text=» EXTRN EXIT PROGRAM EXIT«, t00=0x0004, t01=0x00c8}
0x0722…074e Head {h00=0x0028, h01=0x0050, text=» EXTRN TTMJOB TTAB-ADDRESS OF MJOBS «, t00=0x0004, t01=0x00e8}
0x074e…077c Head {h00=0x002a, h01=0x0050, text=» EXTRN TTB:PP PENDING PROGRAM POINTER «, t00=0x0004, t01=0x0114}
0x077c…07aa Head {h00=0x002a, h01=0x0050, text=» EXTRN TTB:ID TERMINAL IDENTIFICATION «, t00=0x0004, t01=0x0142}
0x07aa…07de Head {h00=0x0030, h01=0x0050, text=» EXTRN FNDTID SEARCH TERMINAL IDENTIFICATION«, t00=0x0004, t01=0x0170}
0x07de…0806 Head {h00=0x0024, h01=0x0050, text=» EXTRN ACTOT 'ACTIVATE' TERMINAL«, t00=0x0005, t01=0x0014}
0x0806…0832 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:ST TASK STATUS AND LEVEL «, t00=0x0005, t01=0x003c}
0x0832…0852 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0005, t01=0x0068}
0x0852…0860 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0088}
0x0860…086a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0096}
0x086a…0874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a0}
0x0874…088a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x00aa}
0x088a…08a0 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0005, t01=0x00c0}
0x08a0…08b6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x00d6}
0x08b6…08c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ec}
0x08c0…0906 Head {h00=0x0042, h01=0x0050, text=»* DISPLACEMENT IN DEVICE WORK TABLE AND EVENT CONTROL BLOCK «, t00=0x0005, t01=0x00f6}
0x0906…0910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013c}
0x0910…0938 Head {h00=0x0024, h01=0x0050, text=»DWTTQ EQU /0E TASK QUEUE IN DWT «, t00=0x0005, t01=0x0146}
0x0938…0962 Head {h00=0x0026, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE 2 IN DWT«, t00=0x0005, t01=0x016e}
0x0962…0988 Head {h00=0x0022, h01=0x0050, text=»DWTECH EQU /22 ECHO-DEVICE DWT«, t00=0x0006, t01=0x0008}
0x0988…09b6 Head {h00=0x002a, h01=0x0050, text=»ECBEL EQU /06 EFFECTIVE LENGTH IN ECB «, t00=0x0006, t01=0x002e}
0x09b6…09de Head {h00=0x0024, h01=0x0050, text=»ECBRC EQU /08 RETURN CODE IN ECB«, t00=0x0006, t01=0x005c}
0x09de…09ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0084}
0x09ec…09f4 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0092}
0x09f4…09fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009a}
0x09fe…0a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a4}
0x0a08…0a18 Head {h00=0x000c, h01=0x0050, text=»* T I O «, t00=0x0006, t01=0x00ae}
0x0a18…0a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00be}
0x0a22…0a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x0a2c…0a5e Head {h00=0x002e, h01=0x0050, text=»* THIS MODULE IS ENTERED WHEN TERMINAL I/O«, t00=0x0006, t01=0x00d2}
0x0a5e…0a94 Head {h00=0x0032, h01=0x0050, text=»* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED«, t00=0x0006, t01=0x0104}
0x0a94…0acc Head {h00=0x0034, h01=0x0050, text=»* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED«, t00=0x0006, t01=0x013a}
0x0acc…0b02 Head {h00=0x0032, h01=0x0050, text=»* AND THE TERMINAL PROGRAM SET IN WAIT STATE. «, t00=0x0006, t01=0x0172}
0x0b02…0b3c Head {h00=0x0036, h01=0x0050, text=»* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE«, t00=0x0007, t01=0x0018}
0x0b3c…0b66 Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:- «, t00=0x0007, t01=0x0052}
0x0b66…0b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b70…0ba2 Head {h00=0x002e, h01=0x0050, text=»* A1 = PARAMETER WHEN I/O AND ACTIVATION «, t00=0x0007, t01=0x0086}
0x0ba2…0bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b8}
0x0bac…0bd4 Head {h00=0x0024, h01=0x0050, text=»* A4 = ZERO, NORMAL I/O REQUEST«, t00=0x0007, t01=0x00c2}
0x0bd4…0c00 Head {h00=0x0028, h01=0x0050, text=»* NOT ZERO, I/O AND ACTIVATION«, t00=0x0007, t01=0x00ea}
0x0c00…0c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0116}
0x0c0a…0c26 Head {h00=0x0018, h01=0x0050, text=»* A5 = TTAB ADDRESS«, t00=0x0007, t01=0x0120}
0x0c26…0c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013c}
0x0c30…0c44 Head {h00=0x0010, h01=0x0050, text=»* A7 = CODE«, t00=0x0007, t01=0x0146}
0x0c44…0c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015a}
0x0c4e…0c6a Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS «, t00=0x0007, t01=0x0164}
0x0c6a…0c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0180}
0x0c74…0c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018a}
0x0c7e…0cbe (8, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER«, t00=0x0008, t01=0x0004}
0x0cbe…0cec Head {h00=0x002a, h01=0x0050, text=»* WITH THE FOLLOWING REGISTER VAULES:-«, t00=0x0008, t01=0x0044}
0x0cec…0cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0072}
0x0cf6…0d1a Head {h00=0x0020, h01=0x0050, text=»* A5 = STACK BASE 2 IN DWT «, t00=0x0008, t01=0x007c}
0x0d1a…0d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a0}
0x0d24…0d40 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0008, t01=0x00aa}
0x0d40…0d4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c6}
0x0d4a…0d60 Head {h00=0x0012, h01=0x0050, text=»* A7 = ORDER «, t00=0x0008, t01=0x00d0}
0x0d60…0d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e6}
0x0d6a…0d86 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x0008, t01=0x00f0}
0x0d86…0d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d90…0d9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0116}
0x0d9e…0da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0124}
0x0da8…0dd8 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING DWT FIELDS ARE UPDATED:-«, t00=0x0008, t01=0x012e}
0x0dd8…0de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015e}
0x0de2…0e08 Head {h00=0x0022, h01=0x0050, text=»* -DWTOR DWT-INDEX AND ORDER«, t00=0x0008, t01=0x0168}
0x0e08…0e26 Head {h00=0x001a, h01=0x0050, text=»* -DWTECB ECB ADDRESS«, t00=0x0008, t01=0x018e}
0x0e26…0e4e Head {h00=0x0024, h01=0x0050, text=»* -DWTST READY AND ECHO FIELDS«, t00=0x0009, t01=0x001c}
0x0e4e…0e6e Head {h00=0x001c, h01=0x0050, text=»* -DWTTAB TTAB ADDRESS «, t00=0x0009, t01=0x0044}
0x0e6e…0e96 Head {h00=0x0024, h01=0x0050, text=»* -DWTWAT WAIT/ACTIVE INDICATOR«, t00=0x0009, t01=0x0064}
0x0e96…0ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008c}
0x0ea0…0eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0096}
0x0eaa…0ed8 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ECB FIELDS ARE RESET:-«, t00=0x0009, t01=0x00a0}
0x0ed8…0ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ce}
0x0ee2…0f08 Head {h00=0x0022, h01=0x0050, text=»* -BITS 0-7 IN THE FIRST WORD«, t00=0x0009, t01=0x00d8}
0x0f08…0f2c Head {h00=0x0020, h01=0x0050, text=»* -ECBEL EFFECTIVE LENGTH «, t00=0x0009, t01=0x00fe}
0x0f2c…0f4a Head {h00=0x001a, h01=0x0050, text=»* -ECBRC RETURN CODE«, t00=0x0009, t01=0x0122}
0x0f4a…0f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0140}
0x0f54…0f5c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x014a}
0x0f5c…0f64 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0152}
0x0f64…0f6c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x015a}
0x0f6c…0f76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0162}
0x0f76…0fac Head {h00=0x0032, h01=0x0050, text=»* GET DWT ADDRESS AND CHECK IF DEVICE IS BUSY «, t00=0x0009, t01=0x016c}
0x0fac…0fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb6…0fbe Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x001c}
0x0fbe…0fc6 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0024}
0x0fc6…0ff2 Head {h00=0x0028, h01=0x0050, text=»TIO CF A15,FNDDWT SEARCH DWT ADDRESS«, t00=0x000a, t01=0x002c}
0x0ff2…1008 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/8000«, t00=0x000a, t01=0x0058}
0x1008…101a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x000a, t01=0x006e}
0x101a…1042 Head {h00=0x0024, h01=0x0050, text=» RF(Z) TIOERR FILE CODE UNKNOWN «, t00=0x000a, t01=0x0080}
0x1042…104a Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00a8}
0x104a…1062 Head {h00=0x0014, h01=0x0050, text=» AN A3,DWTST,A6 «, t00=0x000a, t01=0x00b0}
0x1062…1084 Head {h00=0x001e, h01=0x0050, text=» RF(Z) TIOQ20 DEVICE BUSY «, t00=0x000a, t01=0x00c8}
0x1084…10ac Head {h00=0x0024, h01=0x0050, text=» SC A2,DWTOR,A6 STORE DWT INDEX «, t00=0x000a, t01=0x00ea}
0x10ac…10ce Head {h00=0x001e, h01=0x0050, text=» LDK A2,/40 CHECK IF ECHO «, t00=0x000a, t01=0x0112}
0x10ce…10e0 Head {h00=0x000e, h01=0x0050, text=» ANR A2,A7«, t00=0x000a, t01=0x0134}
0x10e0…10fe Head {h00=0x001a, h01=0x0050, text=» RF(Z) TIO100 NOT ECHO«, t00=0x000a, t01=0x0146}
0x10fe…1128 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTECH,A6 LOAD ECHO DEVICE «, t00=0x000a, t01=0x0164}
0x1128…114c Head {h00=0x0020, h01=0x0050, text=» RF(Z) TIO100 NO ECHO DEVICE«, t00=0x000a, t01=0x018e}
0x114c…1164 Head {h00=0x0014, h01=0x0050, text=» AN A3,DWTST,A2 «, t00=0x000b, t01=0x0022}
0x1164…118a Head {h00=0x0022, h01=0x0050, text=» RF(Z) TIOQ10 ECHO DEVICE BUSY«, t00=0x000b, t01=0x003a}
0x118a…11a0 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/A000«, t00=0x000b, t01=0x0060}
0x11a0…11d4 Head {h00=0x0030, h01=0x0050, text=» XRS A3,DWTST,A2 UPDATE BUSY AND ECHO IN DWT«, t00=0x000b, t01=0x0076}
0x11d4…11dc Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00aa}
0x11dc…11e4 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00b2}
0x11e4…11ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ba}
0x11ee…1212 Head {h00=0x0020, h01=0x0050, text=»* UPDATE ECB AND DWT FIELDS «, t00=0x000b, t01=0x00c4}
0x1212…121c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e8}
0x121c…1224 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00f2}
0x1224…122c Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00fa}
0x122c…1266 Head {h00=0x0036, h01=0x0050, text=»TIO100 XRS A3,DWTST,A6 UPDATE BUSY AND ECHO IN DWT«, t00=0x000b, t01=0x0102}
0x1266…127c Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/7FFF«, t00=0x000b, t01=0x013c}
0x127c…12ac Head {h00=0x002c, h01=0x0050, text=» ANRS A3,A8 RESET BIT 0 IN ECB FILE-CODE«, t00=0x000b, t01=0x0152}
0x12ac…12d4 Head {h00=0x0024, h01=0x0050, text=» CM ECBEL,A8 -EFFECTIVE LENGTH «, t00=0x000b, t01=0x0182}
0x12d4…12f6 Head {h00=0x001e, h01=0x0050, text=» CM ECBRC,A8 -RETURN CODE«, t00=0x000c, t01=0x001a}
0x12f6…1312 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A7 SAVE CODE«, t00=0x000c, t01=0x003c}
0x1312…1326 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x000c, t01=0x0058}
0x1326…1352 Head {h00=0x0028, h01=0x0050, text=» SC A7,DWTOR+1,A6 STORE ORDER IN DWT«, t00=0x000c, t01=0x006c}
0x1352…137a Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTTAB,A6 -TTAB ADDRESS «, t00=0x000c, t01=0x0098}
0x137a…13a0 Head {h00=0x0022, h01=0x0050, text=» ST A8,DWTECB,A6 -ECB ADDRESS«, t00=0x000c, t01=0x00c0}
0x13a0…13ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00e6}
0x13ae…13b6 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00f4}
0x13b6…13c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fc}
0x13c0…13f0 Head {h00=0x002c, h01=0x0050, text=»* UPDATE DWTWAT (WAIT/ACTIVE INDICATOR) «, t00=0x000c, t01=0x0106}
0x13f0…13fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0136}
0x13fa…1402 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0140}
0x1402…1424 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 CHECK PARAMETER«, t00=0x000c, t01=0x0148}
0x1424…144e Head {h00=0x0026, h01=0x0050, text=» RF(NZ) TIO200 I/O AND ACTIVATION «, t00=0x000c, t01=0x016a}
0x144e…1456 (13, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0004}
0x1456…148c Head {h00=0x0032, h01=0x0050, text=» ANK A3,/80 NORMAL I/O CHECK IF WAIT REQUESTED«, t00=0x000d, t01=0x000c}
0x148c…14aa Head {h00=0x001a, h01=0x0050, text=» RF(Z) TIO220 NOT WAIT«, t00=0x000d, t01=0x0042}
0x14aa…14ca Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 INDICATE WAIT «, t00=0x000d, t01=0x0060}
0x14ca…14dc Head {h00=0x000e, h01=0x0050, text=» RF TIO230«, t00=0x000d, t01=0x0080}
0x14dc…1504 Head {h00=0x0024, h01=0x0050, text=»TIO200 LD A3,SRUN SEGM. POINTER «, t00=0x000d, t01=0x0092}
0x1504…1526 Head {h00=0x001e, h01=0x0050, text=» RF(Z) TIO210 JUMP IF ROOT«, t00=0x000d, t01=0x00ba}
0x1526…154a Head {h00=0x0020, h01=0x0050, text=» SU A2,2,A3 RELATIVE ADDRESS«, t00=0x000d, t01=0x00dc}
0x154a…1552 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0100}
0x1552…1592 Head {h00=0x003c, h01=0x0050, text=»TIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS«, t00=0x000d, t01=0x0108}
0x1592…15c8 Head {h00=0x0032, h01=0x0050, text=»TIO220 CF A15,QTJOB QUEUE TASK FOR DISPATCHING«, t00=0x000d, t01=0x0148}
0x15c8…15d0 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x017e}
0x15d0…160a Head {h00=0x0036, h01=0x0050, text=»TIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVE INDICATOR«, t00=0x000d, t01=0x0186}
0x160a…1638 Head {h00=0x002a, h01=0x0050, text=» LDK A5,DWTSB2 LOAD STACK BASE 2 IN A5«, t00=0x000e, t01=0x0030}
0x1638…164a Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x000e, t01=0x005e}
0x164a…167a Head {h00=0x002c, h01=0x0050, text=» ABI* DWTADR,A6 GO TO DRIVER ACTIVATION «, t00=0x000e, t01=0x0070}
0x167a…1688 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00a0}
0x1688…1690 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00ae}
0x1690…169a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b6}
0x169a…16b6 Head {h00=0x0018, h01=0x0050, text=»* QUEUE BUSY DEVICE «, t00=0x000e, t01=0x00c0}
0x16b6…16c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00dc}
0x16c0…16c8 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00e6}
0x16c8…16f2 Head {h00=0x0026, h01=0x0050, text=»TIOQ10 LDR A6,A2 QUEUE ECHO DEVICE«, t00=0x000e, t01=0x00ee}
0x16f2…16fa Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0118}
0x16fa…1726 Head {h00=0x0028, h01=0x0050, text=»TIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR«, t00=0x000e, t01=0x0120}
0x1726…174a Head {h00=0x0020, h01=0x0050, text=» LC A1,TTB:ST+1,A5 GET LEVEL«, t00=0x000e, t01=0x014c}
0x174a…1762 Head {h00=0x0014, h01=0x0050, text=»TIOQ30 LDR A2,A6«, t00=0x000e, t01=0x0170}
0x1762…178a Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 FOLLOW QUEUE TO END «, t00=0x000e, t01=0x0188}
0x178a…17aa Head {h00=0x001c, h01=0x0050, text=» RF(Z) TIOQ40 END FOUND «, t00=0x000f, t01=0x0020}
0x17aa…17d4 Head {h00=0x0026, h01=0x0050, text=» CC A1,TTB:ST+1,A6 COMPARE LEVELS «, t00=0x000f, t01=0x0040}
0x17d4…17f4 Head {h00=0x001c, h01=0x0050, text=» RB(NL) TIOQ30 TRY NEXT «, t00=0x000f, t01=0x006a}
0x17f4…17fc Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x008a}
0x17fc…1824 Head {h00=0x0024, h01=0x0050, text=»TIOQ40 STR A6,A5 INSERT IN QUEUE«, t00=0x000f, t01=0x0092}
0x1824…1836 Head {h00=0x000e, h01=0x0050, text=» STR A5,A2«, t00=0x000f, t01=0x00ba}
0x1836…1848 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x000f, t01=0x00cc}
0x1848…186e Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 CHECK IF ACTIVATION«, t00=0x000f, t01=0x00de}
0x186e…1886 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TIOQ50 NO«, t00=0x000f, t01=0x0104}
0x1886…189c Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 YES «, t00=0x000f, t01=0x011c}
0x189c…18d4 Head {h00=0x0034, h01=0x0050, text=»TIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM «, t00=0x000f, t01=0x0132}
0x18d4…18e6 Head {h00=0x000e, h01=0x0050, text=» RF TPDIS «, t00=0x000f, t01=0x016a}
0x18e6…18ee Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x017c}
0x18ee…18f6 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0184}
0x18f6…1900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x018c}
0x1900…1922 Head {h00=0x001e, h01=0x0050, text=»* ERROR FILE CODE UNKNOWN «, t00=0x0010, t01=0x0008}
0x1922…192c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x192c…1934 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0034}
0x1934…1968 Head {h00=0x0030, h01=0x0050, text=»TIOERR ST A3,ECBRC,A8 INDICATE ERROR IN ECB «, t00=0x0010, t01=0x003c}
0x1968…199c Head {h00=0x0030, h01=0x0050, text=»TPQUE CF A15,QTJOB QUEUE TASK FOR DISPATCING«, t00=0x0010, t01=0x0070}
0x199c…19b4 Head {h00=0x0014, h01=0x0050, text=»TPDIS ABL TDISP «, t00=0x0010, t01=0x00a4}
0x19b4…19c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00bc}
0x19c2…19cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ca}
0x19cc…19d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d4}
0x19d6…19e8 Head {h00=0x000e, h01=0x0050, text=»* W A I T «, t00=0x0010, t01=0x00de}
0x19e8…19f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f0}
0x19f2…1a30 Head {h00=0x003a, h01=0x0050, text=»* THIS MODULE IS ENTERED WHEN THE APPLICATION PROGRAM «, t00=0x0010, t01=0x00fa}
0x1a30…1a68 Head {h00=0x0034, h01=0x0050, text=»* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. «, t00=0x0010, t01=0x0138}
0x1a68…1aa4 Head {h00=0x0038, h01=0x0050, text=»* IT IS CALLED BY THE LKM HANDLER WITH THE FOLLOWING«, t00=0x0010, t01=0x0170}
0x1aa4…1aba Head {h00=0x0012, h01=0x0050, text=»* PARAMETERS:-«, t00=0x0011, t01=0x001c}
0x1aba…1ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0032}
0x1ac4…1ae0 Head {h00=0x0018, h01=0x0050, text=»* A5 = TTAB ADDRESS«, t00=0x0011, t01=0x003c}
0x1ae0…1aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0058}
0x1aea…1b06 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS «, t00=0x0011, t01=0x0062}
0x1b06…1b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007e}
0x1b10…1b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0088}
0x1b1a…1b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0092}
0x1b24…1b38 Head {h00=0x0010, h01=0x0050, text=»TWAIT EQU * «, t00=0x0011, t01=0x009c}
0x1b38…1b62 Head {h00=0x0026, h01=0x0050, text=» CF A15,FNDDWT SEARCH DWT ADDRESS «, t00=0x0011, t01=0x00b0}
0x1b62…1b74 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x0011, t01=0x00da}
0x1b74…1b9c Head {h00=0x0024, h01=0x0050, text=» RF(Z) TAC010 FILE CODE UNKNOWN «, t00=0x0011, t01=0x00ec}
0x1b9c…1bca Head {h00=0x002a, h01=0x0050, text=» LDR* A1,A8 RETURN IF EVENT COMPLETED «, t00=0x0011, t01=0x0114}
0x1bca…1be8 Head {h00=0x001a, h01=0x0050, text=» RB(N) TPQUE COMPLETED«, t00=0x0011, t01=0x0142}
0x1be8…1c18 Head {h00=0x002c, h01=0x0050, text=» IM DWTWAT,A6 SET WAIT INDICATOR IN DWT «, t00=0x0011, t01=0x0160}
0x1c18…1c3a Head {h00=0x001e, h01=0x0050, text=» RB TPDIS GO TO DISPATCHER«, t00=0x0011, t01=0x0190}
0x1c3a…1c48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0022}
0x1c48…1c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0030}
0x1c52…1c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003a}
0x1c5c…1c6e Head {h00=0x000e, h01=0x0050, text=»* E X I T «, t00=0x0012, t01=0x0044}
0x1c6e…1c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0056}
0x1c78…1c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0060}
0x1c82…1cba Head {h00=0x0034, h01=0x0050, text=»* THIS MODULE IS ENTERED WHEN A TERMINAL PROGRAM«, t00=0x0012, t01=0x006a}
0x1cba…1cec Head {h00=0x002e, h01=0x0050, text=»* EXITS. IF ANY PROGRAM IS PENDING FOR THE«, t00=0x0012, t01=0x00a2}
0x1cec…1d0e Head {h00=0x001e, h01=0x0050, text=»* TERMINAL IT IS STARTED. «, t00=0x0012, t01=0x00d4}
0x1d0e…1d40 Head {h00=0x002e, h01=0x0050, text=»* THIS MODULE IS CALLED BY THE LKM HANDLER«, t00=0x0012, t01=0x00f6}
0x1d40…1d6a Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:- «, t00=0x0012, t01=0x0128}
0x1d6a…1d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x1d74…1d90 Head {h00=0x0018, h01=0x0050, text=»* A5 = TTAB ADDRESS«, t00=0x0012, t01=0x015c}
0x1d90…1d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0178}
0x1d9a…1da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0182}
0x1da4…1db8 Head {h00=0x0010, h01=0x0050, text=»TEXIT EQU * «, t00=0x0012, t01=0x018c}
0x1db8…1dde Head {h00=0x0022, h01=0x0050, text=» CF A15,EXIT CALL PROGRAM EXIT«, t00=0x0013, t01=0x0010}
0x1dde…1e00 Head {h00=0x001e, h01=0x0050, text=» RB TPDIS GO TO DISPATCHER«, t00=0x0013, t01=0x0036}
0x1e00…1e0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0058}
0x1e0e…1e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0066}
0x1e18…1e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0070}
0x1e22…1e38 Head {h00=0x0012, h01=0x0050, text=»* T A C T O T «, t00=0x0013, t01=0x007a}
0x1e38…1e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0090}
0x1e42…1e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009a}
0x1e4c…1e82 Head {h00=0x0032, h01=0x0050, text=»* THIS MODULE IS ENTERED FROM THE LKM HANDLER «, t00=0x0013, t01=0x00a4}
0x1e82…1eb0 Head {h00=0x002a, h01=0x0050, text=»* WHEN A TERMINAL HAS TO BE ACTIVATED.«, t00=0x0013, t01=0x00da}
0x1eb0…1eba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0108}
0x1eba…1eec Head {h00=0x002e, h01=0x0050, text=»* THE FOLLOWING PARAMETERS ARE SUPPLIED:- «, t00=0x0013, t01=0x0112}
0x1eec…1f16 Head {h00=0x0026, h01=0x0050, text=»* A1 = PARAMETER WHEN A4 NOT ZERO«, t00=0x0013, t01=0x0144}
0x1f16…1f4c Head {h00=0x0032, h01=0x0050, text=»* A4 = START ADDRESS AT ACTIVATION, ELSE ZERO«, t00=0x0013, t01=0x016e}
0x1f4c…1f60 Head {h00=0x0010, h01=0x0050, text=»* A5 = TTAB«, t00=0x0014, t01=0x0014}
0x1f60…1f9c Head {h00=0x0038, h01=0x0050, text=»* A7 = IDENTIFICATION FOR TERMINAL TO BE ACTIVATED «, t00=0x0014, t01=0x0028}
0x1f9c…1fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0064}
0x1fa6…1fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006e}
0x1fb0…1fc4 Head {h00=0x0010, h01=0x0050, text=»TACTOT EQU *«, t00=0x0014, t01=0x0078}
0x1fc4…1fec Head {h00=0x0024, h01=0x0050, text=» CF A15,FNDTID FIND TTAB ADDRESS«, t00=0x0014, t01=0x008c}
0x1fec…1ffe Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0014, t01=0x00b4}
0x1ffe…2012 Head {h00=0x0010, h01=0x0050, text=»TAC010 EQU *«, t00=0x0014, t01=0x00c6}
0x2012…2040 Head {h00=0x002a, h01=0x0050, text=» ABL(Z) LKMRQE TERMINAL NOT IN SYSTEM «, t00=0x0014, t01=0x00da}
0x2040…207c Head {h00=0x0038, h01=0x0050, text=» CF A15,QTJOB QUEUE CALLING TERMINAL FOR DISPATCHING«, t00=0x0014, t01=0x0108}
0x207c…208e Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0014, t01=0x0144}
0x208e…20a0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0014, t01=0x0156}
0x20a0…20d4 Head {h00=0x0030, h01=0x0050, text=» RB(Z) TPQUE RESTART: QUEUE FOR DISPATCHING «, t00=0x0014, t01=0x0168}
0x20d4…20f8 Head {h00=0x0020, h01=0x0050, text=» LD A3,SRUN SEGMENT POINTER «, t00=0x0015, t01=0x000c}
0x20f8…211a Head {h00=0x001e, h01=0x0050, text=» RF(E) TAC020 JUMP IF ROOT«, t00=0x0015, t01=0x0030}
0x211a…213e Head {h00=0x0020, h01=0x0050, text=» SU A2,2,A3 RELATIVE ADDRESS«, t00=0x0015, t01=0x0052}
0x213e…2152 Head {h00=0x0010, h01=0x0050, text=»TAC020 EQU *«, t00=0x0015, t01=0x0076}
0x2152…2172 Head {h00=0x001c, h01=0x0050, text=» CF A15,ACTOT ACTIVATION«, t00=0x0015, t01=0x008a}
0x2172…2194 Head {h00=0x001e, h01=0x0050, text=» RB TPDIS GO TO DISPACHER «, t00=0x0015, t01=0x00aa}
0x2194…21a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00cc}
0x21a2…21ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00da}
0x21ac…21b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e4}
0x21b6…21cc Head {h00=0x0012, h01=0x0050, text=»* T P A U S E «, t00=0x0015, t01=0x00ee}
0x21cc…21d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0104}
0x21d6…21e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010e}
0x21e0…220a Head {h00=0x0026, h01=0x0050, text=»TPAUSE EQU TPDIS GO TO DISPATCHER «, t00=0x0015, t01=0x0118}
0x220a…2214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0142}
0x2214…2220 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0015, t01=0x014c}
0x2220…2224 Head {h00=0x4004, h01=0x0000}
0x2224…2228 00 15 01 58 ┆ X┆
0x2228…2230 (22, 1, 8) 20 04 00 00 00 16 00 04 ┆ ┆
0x2230…2232 (23, 0, 2) 07 98 ┆ ┆
0x2232…2282 (24, 0, 400) 00 0a 00 50 24 52 45 4c 41 20 00 00 00 04 00 0a 00 50 4d 45 53 20 40 50 00 00 00 12 00 14 00 50 4c 45 44 20 40 50 2c 2f 53 2c 2f 45 45 2c 23 23 00 00 00 20 00 0a 00 50 23 23 44 4c 20 30 00 00 00 38 00 26 00 50 5c 49 44 45 4e 54 20 20 40 50 ┆ P$RELA PMES @P PLED @P,/S,/EE,## P##DL 0 8 & P IDENT @P┆
0x2282…22d2 20 5c 52 45 4c 3d 37 2e 32 2c 44 41 54 45 3d 37 37 2d 30 39 2d 30 39 20 00 00 00 46 00 0a 00 50 23 23 44 4c 20 31 00 00 00 70 00 1a 00 50 5c 5c 5c 55 50 44 41 54 45 20 20 23 30 20 37 36 2e 31 30 2e 30 37 00 00 00 7e 00 0c 00 50 23 23 44 4c ┆ REL=7.2,DATE=77-09-09 F P##DL 1 p P UPDATE #0 76.10.07 ~ P##DL┆
0x22d2…2322 20 31 30 20 00 00 00 9c 00 1e 00 50 2a 20 20 20 4c 45 56 45 4c 20 20 20 20 20 23 32 20 20 37 36 2e 31 30 2e 30 37 00 00 00 ac 00 08 00 50 23 23 45 4e 00 00 00 ce 00 0e 00 50 42 45 41 20 2f 53 2c 4e 4c 20 00 00 00 da 00 0a 00 50 4b 50 46 20 ┆ 10 P* LEVEL #2 76.10.07 P##EN PBEA /S,NL PKPF ┆
0x2322…2372 2f 53 00 00 00 ec 00 0a 00 50 4b 50 46 20 2f 4f 00 00 00 fa 00 0a 00 50 53 43 52 20 2f 4f 00 00 01 08 00 08 00 50 45 4e 44 20 00 00 01 16 00 0a 00 50 24 52 45 4c 42 20 00 00 01 22 00 14 00 50 4c 45 44 20 40 50 2c 2f 53 2c 2f 45 45 2c 23 23 ┆/S PKPF /O PSCR /O PEND P$RELB " PLED @P,/S,/EE,##┆
0x2372…23c2 00 00 01 30 00 0a 00 50 23 23 44 4c 20 30 00 00 01 48 00 26 00 50 5c 49 44 45 4e 54 20 20 40 50 20 5c 52 45 4c 3d 37 2e 32 2c 44 41 54 45 3d 37 37 2d 30 39 2d 30 39 20 00 00 01 56 00 08 00 50 23 23 45 4e 00 00 01 80 00 0a 00 50 4b 50 46 20 ┆ 0 P##DL 0 H & P IDENT @P REL=7.2,DATE=77-09-09 V P##EN PKPF ┆
0x23c2…2412 (25, 0, 224) 2f 53 00 00 01 8c 00 0a 00 50 42 45 41 20 2f 53 00 01 00 0a 00 0a 00 50 4b 50 46 20 2f 4f 00 01 00 18 00 08 00 50 45 4e 44 20 00 01 00 26 00 0c 00 50 24 4d 4f 56 43 43 49 20 00 01 00 32 00 0a 00 50 53 43 52 20 2f 53 00 01 00 42 00 1a 00 50 ┆/S PBEA /S PKPF /O PEND & P$MOVCCI 2 PSCR /S B P┆
0x2412…2462 4d 4f 56 20 40 50 2c 2f 53 2c 4d 45 4d 55 54 49 4c 2c 2f 46 31 20 00 01 00 50 00 0e 00 50 4b 50 46 20 2f 53 2c 40 50 20 00 01 00 6e 00 0a 00 50 53 43 52 20 2f 4f 00 01 00 80 00 0a 00 50 42 45 41 20 40 50 00 01 00 8e 00 0a 00 50 4b 50 46 20 ┆MOV @P,/S,MEMUTIL,/F1 P PKPF /S,@P n PSCR /O PBEA @P PKPF ┆
0x2462…24a2 2f 4f 00 01 00 9c 00 08 00 50 45 4e 44 20 00 01 00 aa 00 08 00 50 24 52 45 54 00 01 00 b6 00 12 00 50 50 52 54 20 2f 53 2c 40 50 2c 30 2c 32 30 00 01 00 c2 00 08 00 50 45 4e 44 20 00 01 00 d8 ┆/O PEND P$RET PPRT /S,@P,0,20 PEND ┆
0x24a2…24aa (26, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x24aa…24fa (27, 0, 400) 20 20 20 45 20 43 20 48 20 4f 20 44 20 59 20 20 20 45 43 48 4f 20 46 55 4e 43 54 49 4f 4e 53 20 00 02 01 8e 00 06 00 50 2a 20 00 03 00 28 00 0a 00 50 5c 45 4a 45 43 54 00 03 00 32 00 06 00 50 2a 20 00 03 00 40 00 2a 00 50 2a 20 20 20 20 54 ┆ E C H O D Y ECHO FUNCTIONS P* ( P EJECT 2 P* @ * P* T┆
0x24fa…254a 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 4f 52 44 45 52 53 20 41 52 45 20 54 52 45 41 54 45 44 3a 00 03 00 4a 00 06 00 50 2a 20 00 03 00 78 00 1e 00 50 2a 20 20 20 20 4f 52 44 45 52 20 30 30 3a 20 54 45 53 54 20 53 54 41 54 55 53 00 03 00 82 ┆HE FOLLOWING ORDERS ARE TREATED: J P* x P* ORDER 00: TEST STATUS ┆
0x254a…259a 00 1e 00 50 2a 20 20 20 20 20 20 20 20 20 20 30 35 3a 20 42 41 53 49 43 20 57 52 49 54 45 00 03 00 a4 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 30 36 3a 20 53 54 41 4e 44 41 52 44 20 57 52 49 54 45 20 00 03 00 c6 00 28 00 50 2a 20 20 20 ┆ P* 05: BASIC WRITE " P* 06: STANDARD WRITE ( P* ┆
0x259a…25ea 20 20 20 20 20 20 20 30 37 3a 20 57 52 49 54 45 20 47 52 41 50 48 49 43 20 44 49 53 50 4c 41 59 00 03 00 ec 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 30 42 3a 20 43 55 52 53 4f 52 20 50 4f 53 49 54 49 4f 4e 49 4e 47 20 00 03 01 18 00 18 ┆ 07: WRITE GRAPHIC DISPLAY & P* 0B: CURSOR POSITIONING ┆
0x25ea…263a 00 50 2a 20 20 20 20 20 20 20 20 20 20 33 31 3a 20 45 52 41 53 45 00 03 01 42 00 06 00 50 2a 20 00 03 01 5e 00 1e 00 50 2a 20 20 20 20 4e 4f 52 4d 41 4c 20 52 45 47 49 53 54 45 52 20 55 53 41 47 45 00 03 01 68 00 06 00 50 2a 20 00 03 01 8a ┆ P* 31: ERASE B P* ^ P* NORMAL REGISTER USAGE h P* ┆
0x263a…268a (28, 0, 400) 00 22 00 50 2a 20 20 20 20 52 45 47 49 53 54 45 52 20 41 31 20 3d 20 52 45 54 55 52 4e 20 43 4f 44 45 00 04 00 04 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 32 20 3d 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 20 00 04 ┆ " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER ┆
0x268a…26da 00 2a 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 33 20 3d 20 42 55 46 46 45 52 20 49 4e 44 45 58 20 00 04 00 56 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 34 20 3d 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 00 04 ┆ * $ P* A3 = BUFFER INDEX V $ P* A4 = WORK REGISTER ┆
0x26da…272a 00 7e 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 35 20 3d 20 53 54 41 43 4b 20 42 41 53 45 20 00 04 00 a6 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 36 20 3d 20 44 57 54 2d 41 44 44 52 45 53 53 00 04 00 cc 00 1c ┆ ~ " P* A5 = STACK BASE " P* A6 = DWT-ADDRESS ┆
0x272a…277a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 37 20 3d 20 4f 52 44 45 52 00 04 00 f2 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 38 20 3d 20 45 43 42 2d 41 44 44 52 45 53 53 00 04 01 12 00 06 00 50 2a 20 00 04 01 38 00 0a ┆ P* A7 = ORDER " P* A8 = ECB-ADDRESS P* 8 ┆
0x277a…27ca 00 50 5c 45 4a 45 43 54 00 04 01 42 00 06 00 50 2a 20 00 04 01 50 00 06 00 50 2a 20 00 04 01 5a 00 1a 00 50 2a 20 20 20 20 53 59 53 54 45 4d 20 41 44 41 50 54 41 54 49 4f 4e 00 04 01 64 00 06 00 50 2a 20 00 04 01 82 00 3c 00 50 2a 20 20 20 ┆ P EJECT B P* P P* Z P* SYSTEM ADAPTATION d P* < P* ┆