|
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: 7556 (0x1d84)
Notes: pts_type(SC)
Names: »DATDIV.SC«
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
└─⟦this⟧ »IBM3270/DATDIV.SC«
IDENT DATDIV REL 1.2 78-09-15 870150540120 ************************************************************************ * * D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. * THIS MODULE ALSO CONTAINS THE CREDIT CODED * START-UP ROUTINES. * ******************************************************************** EJECT DDIV * * * DATA DIVISION * * * * KBAN TERMINAL * * TERM K0 * UWB UB1 CWB CB1 * START KBGO * DSDC DSET FC=61 DSDCT DSET FC=61 DSVDU DSET FC=50,DEV=DY,BUFL=162 DSKBAN DSET FC=20,DEV=KA,BUFL=2 DSKBSD DSET FC=40,DEV=KI,BUFL=2 EJECT * * * VDU TERMINAL * * TERM V0 * UWB UB1 CWB CB1 * START VDUGO * EJECT * * * GTP TERMINAL * * TERM G0 * UWB UB2 CWB CB1 * START GTPGO * DSDC DSET FC=61 DSDCT DSET FC=61 DSGTP DSET FC=30,DEV=GP,BUFL=162 EJECT * * * DCTASK * * TERM DC * UWB UB1 DUMMY START DCGO EJECT * * * WORK AREA FOR KEYBOARD AND DISPLAY TASKS * * UB1 BLK * TCT01 STRG 4X'0' TID AND STACKBASE PRINTER STRG 4X'0' KEYBARD/VDU/PRINTER BVDU STRG 3840X'0' VDU SCREEN BUFF PCURS STRG 4X'0' CURSOR ADDR. BINARY ATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER CURATT STRG 4X'0' CURSOR ATTRIBUTE WCC STRG 4X'0' WCC/CCC CHARACTER KBINH STRG 4X'0' KEYBOARD INHIBIT INDIC. LINCNT STRG 4X'0' DCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH DCADDR STRG 4X'0' DC SUBTERMINAL ADDR. TCTGPL STRG 4X'0' INTATT STRG 4X'0' INTENSITY ATTRIBUTE OFFFLG STRG 4X'0' OFFLINE FLAG COPL STRG 4X'0' COPY LOCK VDUBSY STRG 20X'0' VDUBSY,COPNO,CRE,VDUT.A,CCC EJECT * * * GTP TERMINAL AREA * * UB2 BLK * A1 STRG 4X'0' TID AND STACKBASE A2 STRG 4X'0001' PRINTER DEF. A3 STRG 3840X'0' VDU SCREEN BUFFER A4 STRG 4X'0' PCURS A5 STRG 4X'0' LAST ATTRIBUTE CHAR A6 STRG 4X'0' CURSOR ATTRIBUTE A7 STRG 4X'0' WCC/CCC CHARACTER A8 STRG 4X'0' KEYBOARD INHIBIT A9 STRG 4X'0' AA STRG 4X'0' DC READ EFFECTIVE LENGTH AB STRG 4X'0' DC SUBTERMINAL ADDRESS AC STRG 4X'0' AD STRG 4X'0' INTENSITY ATTRIBUTE AE STRG 4X'0' OFFLINE FLAG AF STRG 4X'0' COPY LOCK AG STRG 20X'0' VDUBSY,COPNO,CRE,VDUT.A,CCC EJECT ************** * * COMMON WORK BLOCK FOR ALL TASKS * ***************************************** CB1 BLK BINTID BIN W'0' BCDTID BCD '+001' STRTID STRG 4X'0' PDIV * * * ENTRY KBGO ENTRY VDUGO ENTRY GTPGO ENTRY DCGO EXT VDUKB EXT VDTASK EXT PRINT EXT DCTASK EXT GETTID GET TASK IDENTITY * EXT CREDIT CREDIT APPLICATION START ADDRESS * * * EJECT DSC0 DSDC,2 DUMMY REFERENCE T:IO **************************************** * * START ADDRESS FOR KEYBOARD TASK * **************************************** KBGO PERF TIDNR GET TASK IDENTITY NUMBER USE UB1,BINTID ASSIGN A WORK BLOCK SUB BINTID,=W'1' CALL VDUKB,TCT01,BINTID BRANCH TO ASSEMBLY CODE * PERF CREDIT BRANCH TO CREDIT CODE * SB KBGO RETURN TO IBM-3270 EMULATION EJECT ******************************************** * * START ADDRESS FOR DISPLAY TASK * **************************************** VDUGO PERF TIDNR GET TASK IDENTITY NUMBER USE UB1,BINTID ASSIGN A WORK BLOCK SUB BINTID,=W'1' CALL VDTASK,TCT01,BINTID BRANCH TO IBM-3270 EMULATION EJECT ********************************************* * * START ADDRESS FOR GENERAL PRINTER TASK * ********************************************* GTPGO PERF TIDNR GET TASK IDENTITY NUMBER USE UB2,BINTID ASSIGN A WORK BLOCK SUB BINTID,=W'1' CALL PRINT,TCT01,BINTID START IBM-3270 EMULATION EJECT *********************************************** * * START ADDRESS FOR DC-TASK * ********************************* DCGO CALL DCTASK START IBM-3270 EMULATION EJECT *************************************************** * * T I D N R : GET TASK IDENTITY NUMBER * ************************************************ TIDNR PROC CALL GETTID,STRTID GET TASK IDENTITY MOVE BCDTID,STRTID SAVE TASK NUMBER MOVE BINTID,BCDTID CONVERT TO BINARY ADD BINTID,=W'1' RET PEND END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DATDIV REL 1.2 78-09-15 870150540120 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…008e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0042}
0x008e…0098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00e2 Head {h00=0x0046, h01=0x0050, text=»* D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. «, t00=0x0000, t01=0x009c}
0x00e2…0128 Head {h00=0x0042, h01=0x0050, text=»* THIS MODULE ALSO CONTAINS THE CREDIT CODED«, t00=0x0000, t01=0x00e6}
0x0128…0156 Head {h00=0x002a, h01=0x0050, text=»* START-UP ROUTINES.«, t00=0x0000, t01=0x012c}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…01ac Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0000, t01=0x0164}
0x01ac…01b4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0020}
0x01b4…01c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0028}
0x01c2…01d0 Head {h00=0x000a, h01=0x0050, text=» DDIV «, t00=0x0001, t01=0x0036}
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…01fc Head {h00=0x0014, h01=0x0050, text=»* DATA DIVISION «, t00=0x0001, t01=0x0058}
0x01fc…0206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0206…0210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007a}
0x0210…021a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0084}
0x021a…0232 Head {h00=0x0014, h01=0x0050, text=»* KBAN TERMINAL «, t00=0x0001, t01=0x008e}
0x0232…023c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a6}
0x023c…0246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b0}
0x0246…0256 Head {h00=0x000c, h01=0x0050, text=» TERM K0«, t00=0x0001, t01=0x00ba}
0x0256…0260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ca}
0x0260…0270 Head {h00=0x000c, h01=0x0050, text=» UWB UB1«, t00=0x0001, t01=0x00d4}
0x0270…0280 Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0001, t01=0x00e4}
0x0280…028a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f4}
0x028a…029e Head {h00=0x0010, h01=0x0050, text=» START KBGO «, t00=0x0001, t01=0x00fe}
0x029e…02a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0112}
0x02a8…02c0 Head {h00=0x0014, h01=0x0050, text=»DSDC DSET FC=61 «, t00=0x0001, t01=0x011c}
0x02c0…02d8 Head {h00=0x0014, h01=0x0050, text=»DSDCT DSET FC=61«, t00=0x0001, t01=0x0134}
0x02d8…0300 Head {h00=0x0024, h01=0x0050, text=»DSVDU DSET FC=50,DEV=DY,BUFL=162«, t00=0x0001, t01=0x014c}
0x0300…0328 Head {h00=0x0024, h01=0x0050, text=»DSKBAN DSET FC=20,DEV=KA,BUFL=2 «, t00=0x0001, t01=0x0174}
0x0328…0350 Head {h00=0x0024, h01=0x0050, text=»DSKBSD DSET FC=40,DEV=KI,BUFL=2 «, t00=0x0002, t01=0x000c}
0x0350…035e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0034}
0x035e…0368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0042}
0x0368…0372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004c}
0x0372…0388 Head {h00=0x0012, h01=0x0050, text=»* VDU TERMINAL«, t00=0x0002, t01=0x0056}
0x0388…0392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0392…039c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0076}
0x039c…03ac Head {h00=0x000c, h01=0x0050, text=» TERM V0«, t00=0x0002, t01=0x0080}
0x03ac…03b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0090}
0x03b6…03c6 Head {h00=0x000c, h01=0x0050, text=» UWB UB1«, t00=0x0002, t01=0x009a}
0x03c6…03d6 Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0002, t01=0x00aa}
0x03d6…03e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ba}
0x03e0…03f4 Head {h00=0x0010, h01=0x0050, text=» START VDUGO«, t00=0x0002, t01=0x00c4}
0x03f4…03fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d8}
0x03fe…040c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e2}
0x040c…0416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f0}
0x0416…0420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fa}
0x0420…0436 Head {h00=0x0012, h01=0x0050, text=»* GTP TERMINAL«, t00=0x0002, t01=0x0104}
0x0436…0440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011a}
0x0440…044a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0124}
0x044a…045a Head {h00=0x000c, h01=0x0050, text=» TERM G0«, t00=0x0002, t01=0x012e}
0x045a…0464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…0474 Head {h00=0x000c, h01=0x0050, text=» UWB UB2«, t00=0x0002, t01=0x0148}
0x0474…0484 Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0002, t01=0x0158}
0x0484…048e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0168}
0x048e…04a2 Head {h00=0x0010, h01=0x0050, text=» START GTPGO«, t00=0x0002, t01=0x0172}
0x04a2…04ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0186}
0x04ac…04c4 Head {h00=0x0014, h01=0x0050, text=»DSDC DSET FC=61 «, t00=0x0002, t01=0x0190}
0x04c4…04dc Head {h00=0x0014, h01=0x0050, text=»DSDCT DSET FC=61«, t00=0x0003, t01=0x0018}
0x04dc…0504 Head {h00=0x0024, h01=0x0050, text=»DSGTP DSET FC=30,DEV=GP,BUFL=162«, t00=0x0003, t01=0x0030}
0x0504…0512 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0058}
0x0512…051c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0066}
0x051c…0526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0070}
0x0526…0536 Head {h00=0x000c, h01=0x0050, text=»* DCTASK«, t00=0x0003, t01=0x007a}
0x0536…0540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008a}
0x0540…054a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0094}
0x054a…055a Head {h00=0x000c, h01=0x0050, text=» TERM DC«, t00=0x0003, t01=0x009e}
0x055a…0564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ae}
0x0564…057a Head {h00=0x0012, h01=0x0050, text=» UWB UB1 DUMMY«, t00=0x0003, t01=0x00b8}
0x057a…058e Head {h00=0x0010, h01=0x0050, text=» START DCGO «, t00=0x0003, t01=0x00ce}
0x058e…059c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00e2}
0x059c…05a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f0}
0x05a6…05b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05b0…05e8 Head {h00=0x0034, h01=0x0050, text=»* WORK AREA FOR KEYBOARD AND DISPLAY TASKS «, t00=0x0003, t01=0x0104}
0x05e8…05f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013c}
0x05f2…05fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0146}
0x05fc…060c Head {h00=0x000c, h01=0x0050, text=»UB1 BLK «, t00=0x0003, t01=0x0150}
0x060c…0616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0160}
0x0616…0640 Head {h00=0x0026, h01=0x0050, text=»TCT01 STRG 4X'0' TID AND STACKBASE«, t00=0x0003, t01=0x016a}
0x0640…066e (4, 0, 400) Head {h00=0x002a, h01=0x0050, text=»PRINTER STRG 4X'0' KEYBARD/VDU/PRINTER«, t00=0x0004, t01=0x0004}
0x066e…0698 Head {h00=0x0026, h01=0x0050, text=»BVDU STRG 3840X'0' VDU SCREEN BUFF«, t00=0x0004, t01=0x0032}
0x0698…06c4 Head {h00=0x0028, h01=0x0050, text=»PCURS STRG 4X'0' CURSOR ADDR. BINARY«, t00=0x0004, t01=0x005c}
0x06c4…06f6 Head {h00=0x002e, h01=0x0050, text=»ATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER«, t00=0x0004, t01=0x0088}
0x06f6…0720 Head {h00=0x0026, h01=0x0050, text=»CURATT STRG 4X'0' CURSOR ATTRIBUTE«, t00=0x0004, t01=0x00ba}
0x0720…0748 Head {h00=0x0024, h01=0x0050, text=»WCC STRG 4X'0' WCC/CCC CHARACTER«, t00=0x0004, t01=0x00e4}
0x0748…0778 Head {h00=0x002c, h01=0x0050, text=»KBINH STRG 4X'0' KEYBOARD INHIBIT INDIC.«, t00=0x0004, t01=0x010c}
0x0778…0792 Head {h00=0x0016, h01=0x0050, text=»LINCNT STRG 4X'0' «, t00=0x0004, t01=0x013c}
0x0792…07c4 Head {h00=0x002e, h01=0x0050, text=»DCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH«, t00=0x0004, t01=0x0156}
0x07c4…07f2 Head {h00=0x002a, h01=0x0050, text=»DCADDR STRG 4X'0' DC SUBTERMINAL ADDR.«, t00=0x0004, t01=0x0188}
0x07f2…080c Head {h00=0x0016, h01=0x0050, text=»TCTGPL STRG 4X'0' «, t00=0x0005, t01=0x0026}
0x080c…083a Head {h00=0x002a, h01=0x0050, text=»INTATT STRG 4X'0' INTENSITY ATTRIBUTE «, t00=0x0005, t01=0x0040}
0x083a…0860 Head {h00=0x0022, h01=0x0050, text=»OFFFLG STRG 4X'0' OFFLINE FLAG«, t00=0x0005, t01=0x006e}
0x0860…0882 Head {h00=0x001e, h01=0x0050, text=»COPL STRG 4X'0' COPY LOCK «, t00=0x0005, t01=0x0094}
0x0882…08b8 Head {h00=0x0032, h01=0x0050, text=»VDUBSY STRG 20X'0' VDUBSY,COPNO,CRE,VDUT.A,CCC«, t00=0x0005, t01=0x00b6}
0x08b8…08c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00ec}
0x08c6…08ce Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00fa}
0x08ce…08d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0102}
0x08d8…08e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010c}
0x08e2…08fe Head {h00=0x0018, h01=0x0050, text=»* GTP TERMINAL AREA «, t00=0x0005, t01=0x0116}
0x08fe…0908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0132}
0x0908…0912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013c}
0x0912…0922 Head {h00=0x000c, h01=0x0050, text=»UB2 BLK «, t00=0x0005, t01=0x0146}
0x0922…092c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0156}
0x092c…0954 Head {h00=0x0024, h01=0x0050, text=»A1 STRG 4X'0' TID AND STACKBASE «, t00=0x0005, t01=0x0160}
0x0954…097a Head {h00=0x0022, h01=0x0050, text=»A2 STRG 4X'0001' PRINTER DEF. «, t00=0x0005, t01=0x0188}
0x097a…09a4 Head {h00=0x0026, h01=0x0050, text=»A3 STRG 3840X'0' VDU SCREEN BUFFER«, t00=0x0006, t01=0x001e}
0x09a4…09c0 Head {h00=0x0018, h01=0x0050, text=»A4 STRG 4X'0' PCURS «, t00=0x0006, t01=0x0048}
0x09c0…09ea Head {h00=0x0026, h01=0x0050, text=»A5 STRG 4X'0' LAST ATTRIBUTE CHAR «, t00=0x0006, t01=0x0064}
0x09ea…0a10 Head {h00=0x0022, h01=0x0050, text=»A6 STRG 4X'0' CURSOR ATTRIBUTE«, t00=0x0006, t01=0x008e}
0x0a10…0a38 Head {h00=0x0024, h01=0x0050, text=»A7 STRG 4X'0' WCC/CCC CHARACTER «, t00=0x0006, t01=0x00b4}
0x0a38…0a5e Head {h00=0x0022, h01=0x0050, text=»A8 STRG 4X'0' KEYBOARD INHIBIT«, t00=0x0006, t01=0x00dc}
0x0a5e…0a74 Head {h00=0x0012, h01=0x0050, text=»A9 STRG 4X'0' «, t00=0x0006, t01=0x0102}
0x0a74…0aa2 Head {h00=0x002a, h01=0x0050, text=»AA STRG 4X'0' DC READ EFFECTIVE LENGTH«, t00=0x0006, t01=0x0118}
0x0aa2…0ace Head {h00=0x0028, h01=0x0050, text=»AB STRG 4X'0' DC SUBTERMINAL ADDRESS«, t00=0x0006, t01=0x0146}
0x0ace…0ae4 Head {h00=0x0012, h01=0x0050, text=»AC STRG 4X'0' «, t00=0x0006, t01=0x0172}
0x0ae4…0b0e Head {h00=0x0026, h01=0x0050, text=»AD STRG 4X'0' INTENSITY ATTRIBUTE «, t00=0x0006, t01=0x0188}
0x0b0e…0b30 Head {h00=0x001e, h01=0x0050, text=»AE STRG 4X'0' OFFLINE FLAG«, t00=0x0007, t01=0x0022}
0x0b30…0b50 Head {h00=0x001c, h01=0x0050, text=»AF STRG 4X'0' COPY LOCK «, t00=0x0007, t01=0x0044}
0x0b50…0b82 Head {h00=0x002e, h01=0x0050, text=»AG STRG 20X'0' VDUBSY,COPNO,CRE,VDUT.A,CCC«, t00=0x0007, t01=0x0064}
0x0b82…0b90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0096}
0x0b90…0b98 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00a4}
0x0b98…0bae Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0007, t01=0x00ac}
0x0bae…0bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c2}
0x0bb8…0be4 Head {h00=0x0028, h01=0x0050, text=»* COMMON WORK BLOCK FOR ALL TASKS «, t00=0x0007, t01=0x00cc}
0x0be4…0bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f8}
0x0bee…0c20 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x0102}
0x0c20…0c28 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0134}
0x0c28…0c38 Head {h00=0x000c, h01=0x0050, text=»CB1 BLK «, t00=0x0007, t01=0x013c}
0x0c38…0c50 Head {h00=0x0014, h01=0x0050, text=»BINTID BIN W'0' «, t00=0x0007, t01=0x014c}
0x0c50…0c6a Head {h00=0x0016, h01=0x0050, text=»BCDTID BCD '+001' «, t00=0x0007, t01=0x0164}
0x0c6a…0c84 Head {h00=0x0016, h01=0x0050, text=»STRTID STRG 4X'0' «, t00=0x0007, t01=0x017e}
0x0c84…0c92 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0008, t01=0x0008}
0x0c92…0c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0016}
0x0c9c…0ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0020}
0x0ca6…0cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002a}
0x0cb0…0cc4 Head {h00=0x0010, h01=0x0050, text=» ENTRY KBGO «, t00=0x0008, t01=0x0034}
0x0cc4…0cd8 Head {h00=0x0010, h01=0x0050, text=» ENTRY VDUGO«, t00=0x0008, t01=0x0048}
0x0cd8…0cec Head {h00=0x0010, h01=0x0050, text=» ENTRY GTPGO«, t00=0x0008, t01=0x005c}
0x0cec…0d00 Head {h00=0x0010, h01=0x0050, text=» ENTRY DCGO «, t00=0x0008, t01=0x0070}
0x0d00…0d12 Head {h00=0x000e, h01=0x0050, text=» EXT VDUKB«, t00=0x0008, t01=0x0084}
0x0d12…0d26 Head {h00=0x0010, h01=0x0050, text=» EXT VDTASK «, t00=0x0008, t01=0x0096}
0x0d26…0d38 Head {h00=0x000e, h01=0x0050, text=» EXT PRINT«, t00=0x0008, t01=0x00aa}
0x0d38…0d4c Head {h00=0x0010, h01=0x0050, text=» EXT DCTASK «, t00=0x0008, t01=0x00bc}
0x0d4c…0d72 Head {h00=0x0022, h01=0x0050, text=» EXT GETTID GET TASK IDENTITY «, t00=0x0008, t01=0x00d0}
0x0d72…0da8 Head {h00=0x0032, h01=0x0050, text=»* EXT CREDIT CREDIT APPLICATION START ADDRESS «, t00=0x0008, t01=0x00f6}
0x0da8…0db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012c}
0x0db2…0dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0136}
0x0dbc…0dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0140}
0x0dc6…0dce Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x014a}
0x0dce…0dd6 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0152}
0x0dd6…0de4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x015a}
0x0de4…0e0e Head {h00=0x0026, h01=0x0050, text=» DSC0 DSDC,2 DUMMY REFERENCE T:IO «, t00=0x0008, t01=0x0168}
0x0e0e…0e16 (9, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0004}
0x0e16…0e46 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0009, t01=0x000c}
0x0e46…0e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003c}
0x0e50…0e7c Head {h00=0x0028, h01=0x0050, text=»* START ADDRESS FOR KEYBOARD TASK «, t00=0x0009, t01=0x0046}
0x0e7c…0e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0072}
0x0e86…0eb6 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0009, t01=0x007c}
0x0eb6…0ebe Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00ac}
0x0ebe…0eee Head {h00=0x002c, h01=0x0050, text=»KBGO PERF TIDNR GET TASK IDENTITY NUMBER«, t00=0x0009, t01=0x00b4}
0x0eee…0f1a Head {h00=0x0028, h01=0x0050, text=» USE UB1,BINTID ASSIGN A WORK BLOCK «, t00=0x0009, t01=0x00e4}
0x0f1a…0f34 Head {h00=0x0016, h01=0x0050, text=» SUB BINTID,=W'1' «, t00=0x0009, t01=0x0110}
0x0f34…0f6c Head {h00=0x0034, h01=0x0050, text=» CALL VDUKB,TCT01,BINTID BRANCH TO ASSEMBLY CODE«, t00=0x0009, t01=0x012a}
0x0f6c…0f98 Head {h00=0x0028, h01=0x0050, text=»* PERF CREDIT BRANCH TO CREDIT CODE «, t00=0x0009, t01=0x0162}
0x0f98…0fc6 Head {h00=0x002a, h01=0x0050, text=»* SB KBGO RETURN TO IBM-3270 EMULATION«, t00=0x0009, t01=0x018e}
0x0fc6…0fce Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x002c}
0x0fce…0fdc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0034}
0x0fdc…0fe4 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0042}
0x0fe4…1018 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000a, t01=0x004a}
0x1018…1022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007e}
0x1022…104c Head {h00=0x0026, h01=0x0050, text=»* START ADDRESS FOR DISPLAY TASK«, t00=0x000a, t01=0x0088}
0x104c…1056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b2}
0x1056…1086 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000a, t01=0x00bc}
0x1086…108e Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00ec}
0x108e…10c0 Head {h00=0x002e, h01=0x0050, text=»VDUGO PERF TIDNR GET TASK IDENTITY NUMBER «, t00=0x000a, t01=0x00f4}
0x10c0…10ec Head {h00=0x0028, h01=0x0050, text=» USE UB1,BINTID ASSIGN A WORK BLOCK «, t00=0x000a, t01=0x0126}
0x10ec…1106 Head {h00=0x0016, h01=0x0050, text=» SUB BINTID,=W'1' «, t00=0x000a, t01=0x0152}
0x1106…1144 Head {h00=0x003a, h01=0x0050, text=» CALL VDTASK,TCT01,BINTID BRANCH TO IBM-3270 EMULATION«, t00=0x000a, t01=0x016c}
0x1144…114c Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x001a}
0x114c…1154 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0022}
0x1154…1162 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x002a}
0x1162…116a Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0038}
0x116a…1172 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0040}
0x1172…11a8 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000b, t01=0x0048}
0x11a8…11b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007e}
0x11b2…11e4 Head {h00=0x002e, h01=0x0050, text=»* START ADDRESS FOR GENERAL PRINTER TASK«, t00=0x000b, t01=0x0088}
0x11e4…11ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ba}
0x11ee…1224 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000b, t01=0x00c4}
0x1224…122c Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00fa}
0x122c…125e Head {h00=0x002e, h01=0x0050, text=»GTPGO PERF TIDNR GET TASK IDENTITY NUMBER «, t00=0x000b, t01=0x0102}
0x125e…128a Head {h00=0x0028, h01=0x0050, text=» USE UB2,BINTID ASSIGN A WORK BLOCK «, t00=0x000b, t01=0x0134}
0x128a…12a4 Head {h00=0x0016, h01=0x0050, text=» SUB BINTID,=W'1' «, t00=0x000b, t01=0x0160}
0x12a4…12de Head {h00=0x0036, h01=0x0050, text=» CALL PRINT,TCT01,BINTID START IBM-3270 EMULATION «, t00=0x000b, t01=0x017a}
0x12de…12e6 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0024}
0x12e6…12f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x002c}
0x12f4…12fc Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x003a}
0x12fc…1304 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0042}
0x1304…133c Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x000c, t01=0x004a}
0x133c…1346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0082}
0x1346…136c Head {h00=0x0022, h01=0x0050, text=»* START ADDRESS FOR DC-TASK «, t00=0x000c, t01=0x008c}
0x136c…1376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b2}
0x1376…13a0 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x000c, t01=0x00bc}
0x13a0…13a8 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00e6}
0x13a8…13da Head {h00=0x002e, h01=0x0050, text=»DCGO CALL DCTASK START IBM-3270 EMULATION «, t00=0x000c, t01=0x00ee}
0x13da…13e2 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0120}
0x13e2…13ea Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0128}
0x13ea…13f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0130}
0x13f8…1400 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x013e}
0x1400…143c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000c, t01=0x0146}
0x143c…1446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0182}
0x1446…1478 Head {h00=0x002e, h01=0x0050, text=»* T I D N R : GET TASK IDENTITY NUMBER«, t00=0x000c, t01=0x018c}
0x1478…1482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002e}
0x1482…14ba Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000d, t01=0x0038}
0x14ba…14c2 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0070}
0x14c2…14d4 Head {h00=0x000e, h01=0x0050, text=»TIDNR PROC«, t00=0x000d, t01=0x0078}
0x14d4…1502 Head {h00=0x002a, h01=0x0050, text=» CALL GETTID,STRTID GET TASK IDENTITY «, t00=0x000d, t01=0x008a}
0x1502…152e Head {h00=0x0028, h01=0x0050, text=» MOVE BCDTID,STRTID SAVE TASK NUMBER«, t00=0x000d, t01=0x00b8}
0x152e…155c Head {h00=0x002a, h01=0x0050, text=» MOVE BINTID,BCDTID CONVERT TO BINARY «, t00=0x000d, t01=0x00e4}
0x155c…1576 Head {h00=0x0016, h01=0x0050, text=» ADD BINTID,=W'1' «, t00=0x000d, t01=0x0112}
0x1576…1582 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x012c}
0x1582…1590 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0138}
0x1590…159c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000d, t01=0x0146}
0x159c…15a0 Head {h00=0x4004, h01=0x0000}
0x15a0…15a4 00 0d 01 52 ┆ R┆
0x15a4…15ac (14, 1, 8) 20 04 00 00 00 0e 00 04 ┆ ┆
0x15ac…15b6 (15, 0, 10) 08 c8 08 d0 11 c8 11 d0 11 d8 ┆ ┆
0x15b6…1606 (16, 0, 400) 00 18 00 50 5c 49 44 45 4e 54 20 50 52 54 20 5c 37 38 2d 30 39 2d 31 32 00 00 00 04 00 04 00 50 00 00 00 20 00 4e 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P IDENT PRT 78-09-12 P N P****************************************┆
0x1606…1656 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 00 00 28 00 06 00 50 2a 20 00 00 00 7a 00 46 00 50 2a 20 20 20 50 20 52 20 54 20 20 3a 20 20 4d 4f 44 55 4c 45 20 50 52 49 4e 54 49 4e ┆********************************* ( P* z F P* P R T : MODULE PRINTIN┆
0x1656…16a6 47 20 4d 41 49 4e 20 46 52 41 4d 45 20 4d 45 53 53 41 47 45 53 20 41 44 44 52 45 53 53 45 44 20 54 4f 20 54 48 45 00 00 00 84 00 42 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 47 45 4e 45 52 41 4c 20 50 52 49 4e 54 45 52 2e 20 4c 4f 43 41 ┆G MAIN FRAME MESSAGES ADDRESSED TO THE B P* GENERAL PRINTER. LOCA┆
0x16a6…16f6 4c 20 48 41 52 44 43 4f 50 59 20 50 52 49 4e 54 49 4e 47 20 49 53 20 41 4c 53 4f 20 00 00 00 ce 00 2c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 43 41 52 52 49 45 44 20 4f 55 54 20 49 4e 20 54 48 49 53 20 4d 4f 44 55 4c 45 20 00 00 01 14 ┆L HARDCOPY PRINTING IS ALSO , P* CARRIED OUT IN THIS MODULE ┆
0x16f6…1746 00 06 00 50 2a 20 00 00 01 44 00 4a 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* D J P******************************************************************┆
0x1746…1796 (17, 0, 400) 2a 2a 2a 2a 00 00 01 4e 00 06 00 50 2a 20 00 01 00 0c 00 0a 00 50 5c 45 4a 45 43 54 00 01 00 16 00 04 00 50 00 01 00 24 00 04 00 50 00 01 00 2c 00 06 00 50 2a 20 00 01 00 34 00 06 00 50 2a 20 00 01 00 3e 00 16 00 50 2a 5c 45 4e 54 52 59 20 ┆**** N P* P EJECT P $ P , P* 4 P* > P* ENTRY ┆
0x1796…17e6 50 41 52 41 4d 45 54 45 52 53 00 01 00 48 00 06 00 50 2a 20 00 01 00 62 00 06 00 50 2a 20 00 01 00 6c 00 12 00 50 5c 45 4e 54 52 59 5c 48 41 52 44 43 50 20 00 01 00 76 00 12 00 50 5c 45 4e 54 52 59 5c 53 4e 42 55 53 59 20 00 01 00 8c 00 10 ┆PARAMETERS H P* b P* l P ENTRY HARDCP v P ENTRY SNBUSY ┆
0x17e6…1836 00 50 5c 45 4e 54 52 59 5c 50 52 49 4e 54 00 01 00 a2 00 06 00 50 2a 20 00 01 00 b6 00 06 00 50 2a 20 00 01 00 c0 00 1a 00 50 2a 5c 45 58 54 45 52 4e 41 4c 20 50 41 52 41 4d 45 54 45 52 53 20 00 01 00 ca 00 06 00 50 2a 20 00 01 00 e8 00 06 ┆ P ENTRY PRINT P* P* P* EXTERNAL PARAMETERS P* ┆
0x1836…1886 00 50 2a 20 00 01 00 f2 00 1e 00 50 5c 45 58 54 52 4e 5c 44 43 52 45 44 5c 52 45 41 44 20 44 43 2d 4c 49 4e 45 20 00 01 00 fc 00 28 00 50 5c 45 58 54 52 4e 5c 55 50 44 41 54 45 5c 55 50 44 41 54 45 20 42 55 46 46 45 52 20 43 4f 4e 54 45 4e ┆ P* P EXTRN DCRED READ DC-LINE ( P EXTRN UPDATE UPDATE BUFFER CONTEN┆
0x1886…18d6 54 53 00 01 01 1e 00 28 00 50 5c 45 58 54 52 4e 5c 52 45 4c 3a 42 55 5c 52 45 4c 45 41 53 45 20 52 45 43 45 49 56 45 20 42 55 46 46 45 52 00 01 01 4a 00 06 00 50 2a 20 00 01 01 76 00 2c 00 50 5c 45 58 54 52 4e 5c 49 3a 45 56 41 30 5c 43 52 ┆TS ( P EXTRN REL:BU RELEASE RECEIVE BUFFER J P* v , P EXTRN I:EVA0 CR┆
0x18d6…1926 (18, 0, 398) 45 44 49 54 20 45 56 41 4c 55 41 54 49 4f 4e 20 52 4f 55 54 49 4e 45 20 00 01 01 80 00 06 00 50 2a 20 00 02 00 20 00 16 00 50 5c 45 58 54 52 4e 5c 45 4d 55 4c 41 5c 53 54 41 52 54 00 02 00 2a 00 0a 00 50 5c 45 4a 45 43 54 00 02 00 44 00 06 ┆EDIT EVALUATION ROUTINE P* P EXTRN EMULA START * P EJECT D ┆
0x1926…1976 00 50 2a 20 00 02 00 52 00 06 00 50 2a 20 00 02 00 5c 00 0e 00 50 2a 5c 45 51 55 41 54 45 53 20 00 02 00 66 00 06 00 50 2a 20 00 02 00 78 00 06 00 50 2a 20 00 02 00 82 00 06 00 50 2a 20 00 02 00 8c 00 2a 00 50 54 49 4d 44 43 5c 45 51 55 5c ┆ P* R P* P* EQUATES f P* x P* P* * PTIMDC EQU ┆
0x1976…19c6 33 30 30 5c 44 43 20 54 49 4d 45 20 4f 55 54 20 56 41 4c 55 45 3a 20 33 30 20 53 20 00 02 00 96 00 10 00 50 45 53 43 5c 45 51 55 5c 2f 31 42 20 00 02 00 c4 00 10 00 50 53 42 41 5c 45 51 55 5c 2f 31 31 20 00 02 00 d8 00 20 00 50 4e 55 4c 4c ┆300 DC TIME OUT VALUE: 30 S PESC EQU /1B PSBA EQU /11 PNULL┆
0x19c6…1a16 5c 45 51 55 5c 2f 37 46 5c 4e 55 4c 4c 20 43 48 41 52 41 43 54 45 52 20 00 02 00 ec 00 26 00 50 4e 45 57 4c 49 4e 5c 45 51 55 5c 2f 37 45 5c 4e 45 57 20 4c 49 4e 45 20 43 48 41 52 41 43 54 45 52 20 00 02 01 10 00 24 00 50 45 4e 44 4d 45 53 ┆ EQU /7F NULL CHARACTER & PNEWLIN EQU /7E NEW LINE CHARACTER $ PENDMES┆
0x1a16…1a64 5c 45 51 55 5c 2f 37 44 5c 45 4e 44 20 4d 45 53 53 41 47 45 20 43 48 41 52 20 00 02 01 3a 00 22 00 50 46 4f 52 4d 46 44 5c 45 51 55 5c 2f 37 43 5c 46 4f 52 4d 46 45 45 44 20 43 48 41 52 2e 20 00 02 01 62 00 06 00 50 2a 20 00 02 01 88 ┆ EQU /7D END MESSAGE CHAR : " PFORMFD EQU /7C FORMFEED CHAR. b P* ┆
0x1a64…1ab4 (19, 0, 400) 00 06 00 50 2a 20 00 03 00 04 00 22 00 50 2a 5c 43 4f 4d 4d 4f 4e 20 45 51 55 20 46 4f 52 20 45 43 42 20 48 41 4e 44 4c 49 4e 47 20 00 03 00 0e 00 06 00 50 2a 20 00 03 00 34 00 04 00 50 00 03 00 3e 00 10 00 50 45 43 42 42 41 5c 45 51 55 5c ┆ P* " P* COMMON EQU FOR ECB HANDLING P* 4 P > PECBBA EQU ┆
0x1ab4…1b04 32 20 00 03 00 46 00 10 00 50 45 43 42 52 4c 5c 45 51 55 5c 34 20 00 03 00 5a 00 10 00 50 45 43 42 45 4c 5c 45 51 55 5c 36 20 00 03 00 6e 00 10 00 50 45 43 42 52 43 5c 45 51 55 5c 38 20 00 03 00 82 00 10 00 50 45 43 42 43 57 5c 45 51 55 5c ┆2 F PECBRL EQU 4 Z PECBEL EQU 6 n PECBRC EQU 8 PECBCW EQU ┆
0x1b04…1b54 31 30 00 03 00 96 00 0a 00 50 5c 45 4a 45 43 54 00 03 00 aa 00 04 00 50 00 03 00 b8 00 06 00 50 2a 20 00 03 00 c0 00 06 00 50 2a 20 00 03 00 ca 00 16 00 50 2a 5c 43 52 45 44 49 54 20 55 53 45 44 20 45 51 55 20 00 03 00 d4 00 06 00 50 2a 20 ┆10 P EJECT P P* P* P* CREDIT USED EQU P* ┆
0x1b54…1ba4 00 03 00 ee 00 06 00 50 2a 20 00 03 00 f8 00 18 00 50 2a 5c 45 43 42 20 52 45 4c 2e 20 41 44 44 52 45 53 53 45 53 00 03 01 02 00 06 00 50 2a 20 00 03 01 1e 00 06 00 50 2a 20 00 03 01 28 00 0e 00 50 44 49 53 5c 45 51 55 5c 32 30 00 03 01 32 ┆ P* P* ECB REL. ADDRESSES P* P* ( PDIS EQU 20 2┆
0x1ba4…1bf4 00 06 00 50 2a 20 00 03 01 44 00 14 00 50 45 43 42 31 5c 45 51 55 5c 2d 44 49 53 2d 38 20 00 03 01 4e 00 16 00 50 45 43 42 32 5c 45 51 55 5c 45 43 42 31 2d 44 49 53 20 00 03 01 66 00 16 00 50 45 43 42 33 5c 45 51 55 5c 45 43 42 32 2d 44 49 ┆ P* D PECB1 EQU -DIS-8 N PECB2 EQU ECB1-DIS f PECB3 EQU ECB2-DI┆
0x1bf4…1c44 (20, 0, 400) 53 20 00 03 01 80 00 16 00 50 45 43 42 34 5c 45 51 55 5c 45 43 42 33 2d 44 49 53 20 00 04 00 0a 00 16 00 50 45 43 42 35 5c 45 51 55 5c 45 43 42 34 2d 44 49 53 20 00 04 00 24 00 06 00 50 2a 20 00 04 00 3e 00 12 00 50 45 43 42 44 43 5c 45 51 ┆S PECB4 EQU ECB3-DIS PECB5 EQU ECB4-DIS $ P* > PECBDC EQ┆
0x1c44…1c94 55 5c 45 43 42 31 00 04 00 48 00 14 00 50 45 43 42 44 43 54 5c 45 51 55 5c 45 43 42 32 20 00 04 00 5e 00 14 00 50 45 43 42 56 44 55 5c 45 51 55 5c 45 43 42 33 20 00 04 00 76 00 12 00 50 45 43 42 4b 42 5c 45 51 55 5c 45 43 42 34 00 04 00 8e ┆U ECB1 H PECBDCT EQU ECB2 ^ PECBVDU EQU ECB3 v PECBKB EQU ECB4 ┆
0x1c94…1ce4 00 12 00 50 45 43 42 53 44 5c 45 51 55 5c 45 43 42 35 00 04 00 a4 00 12 00 50 45 43 42 50 52 5c 45 51 55 5c 45 43 42 33 00 04 00 ba 00 06 00 50 2a 20 00 04 00 d0 00 06 00 50 2a 20 00 04 00 da 00 22 00 50 2a 5c 42 41 53 45 20 41 44 44 52 45 ┆ PECBSD EQU ECB5 PECBPR EQU ECB3 P* P* " P* BASE ADDRE┆
0x1ce4…1d34 53 53 20 46 4f 52 20 54 43 41 20 41 4e 44 20 45 43 42 00 04 00 e4 00 06 00 50 2a 20 00 04 01 0a 00 12 00 50 54 43 41 42 41 53 5c 45 51 55 5c 41 31 31 00 04 01 14 00 16 00 50 43 52 45 42 41 53 5c 45 51 55 5c 41 31 33 5c 45 43 42 00 04 01 2a ┆SS FOR TCA AND ECB P* PTCABAS EQU A11 PCREBAS EQU A13 ECB *┆
0x1d34…1d84 00 0a 00 50 5c 45 4a 45 43 54 00 04 01 44 00 04 00 50 00 04 01 52 00 06 00 50 2a 20 00 04 01 5a 00 06 00 50 2a 20 00 04 01 64 00 18 00 50 2a 5c 54 43 41 20 52 45 4c 2e 20 41 44 44 52 45 53 53 45 53 00 04 01 6e 00 06 00 50 2a 20 00 04 01 8a ┆ P EJECT D P R P* Z P* d P* TCA REL. ADDRESSES n P* ┆