|
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: 7992 (0x1f38)
Notes: pts_type(SC)
Names: »DATBSC.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »DRGP02/DATBSC.SC«
IDENT DATBSC REL 11.0 81-10-18 870150541100 ************************************************************************ * * * DATBSC DATA DIVISION FOR IBM-3270 EMULATION PACKAGE * * (BSC). THIS MODULE ALSO CONTAINS THE * * CREDIT CODED START-UP ROUTINES. * * * ************************************************************************ EJECT DDIV **************************************************** * * KB/VDU TERMINAL WITH ONE DC-LINE * **************************************************** TERM K1 * CWB CB1 TWB TB1 * START KBVGO * DSKBAN DSET FC=X'20',DEV=KA,BUFL=2 DSKBSD DSET FC=X'40',DEV=KI,BUFL=2 DSVDU DSET FC=X'42',DEV=DY,BUFL=162 DSICR DSET FC=X'50',DEV=II DSICW DSET FC=X'51',DEV=IO DSDC1 DSET FC=X'61' DSKBN DSET FC=X'21',DEV=KBN,BUFL=2 NUMERIC FOR P&T EJECT *************************************************** * * KB/VDU TERMINAL WITH TWO DC-LINES * *************************************************** TERM K2 * CWB CB1 TWB TB1 * START KBVGO * DSKBAN DSET FC=X'20',DEV=KA,BUFL=2 DSKBSD DSET FC=X'40',DEV=KI,BUFL=2 DSVDU DSET FC=X'42',DEV=DY,BUFL=162 DSICR DSET FC=X'50',DEV=II DSICW DSET FC=X'51',DEV=IO DSDC1 DSET FC=X'61' DSDC2 DSET FC=X'62' DSKBN2 DSET FC=X'21',DEV=KBN,BUFL=2 EJECT **************************************************** * * PRINTER TERMINAL WITH ONE DC-LINE * **************************************************** TERM P1 * CWB CB1 TWB TB1 * START PRTGO * PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS PDSICR DSET FC=X'50',DEV=II PDSICW DSET FC=X'51',DEV=IO PDSDC1 DSET FC=X'61' EJECT ***************************************************** * * PRINTER TERMINAL WITH TWO DC-LINES * ****************************************************** TERM P2 * CWB CB1 TWB TB1 * START PRTGO * PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS PDSICR DSET FC=X'50',DEV=II PDSICW DSET FC=X'51',DEV=IO PDSDC1 DSET FC=X'61' PDSDC2 DSET FC=X'62' EJECT ************************************************************************ * * * WORK AREA FOR KB/VDU TASKS * * * ************************************************************************ TB1 BLK * TCT01 BIN 4X'0' TID AND STACKBASE BVDU STRG 3840X'0' VDU SCREEN BUFFER LINFLG STRG 48X'0' INTERNAL LINE FLAGS PCURS STRG 4X'0' REL. CURSOR ADDRESS ATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER CURATT STRG 4X'0' REL. ATTRIBUTE ADDRESS WCC STRG 4X'0' WCC CHAR. KBINH STRG 4X'0' KEYBOARD INHIBIT INDIC. LINCNT STRG 4X'0' DCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH INTATT STRG 4X'0' INTENSITY ATTRIBUTE OFFFLG STRG 4X'0' OFFLINE FLAG PRTID STRG 4X'0' TASKID FOR HARDCOPY BRAGE STRG 192X'0' LEKSAND * * FORMATION OF BRAGE - LEKSAND * * PRTTYP 4X TYPE OF PRINTER * CCC 4X * MAIN 4X * MODE 4X INSERT INDICATOR * KEYS 4X KEY LOCK STATUS * ECBBLK 20X ECB BLOCK FOR MULTIPLE WAIT * RDMORE 4X NEXT ADDRESS OF READ MORE KEYS * CURPOS 4X CURSOR POSITION * BUFPNT 4X BUFFER POINTER * REGI 4X SAVE AREA * STACK1 28X SAVE AREA * STACK2 28X SAVE AREA * UNPMOD 4X UNPACK MODE * BSCMOD 4X BSC MODE * ECBTAB ECB TABLE * ECBKB 4X ECB KB * ECBPRT 4X ECB PRINTER * ECBSD 4X ECB SIGNAL DISPLAY * ECBVDU 4X ECB VDU * ECBICR 4X ECB INTERTASK READ * ECBICW 4X ECB INTERTASK WRITE * ECBDC1 4X ECB DC LINE 1 * ECBKB2 4X ECB NUMERIC KB, P & T EJECT ****************************************************************** * * * COMMON WORK AREA FOR ALL TASKS * * * ****************************************************************** CB1 BLK * MF1CU STRG X'4142' SYMBOLIC CLUSTER ADDRESS MF2CU STRG X'4344' SYMBOLIC CLUSTER ADDR. IDTEXT STRG 22'IDENT NOT OPERABLE ' IDENT KEY TEXT ***STATXT STRG 15'DTE ADDRESS ' STAT LAYOUT ***SA STRG 15'STAT OVERFLOW ' ***SB STRG 15'PRO REC BLOCKS ' ***SC STRG 15'PRO REC REJ-BSY' ***SD STRG 15'PRO REC REJ-OVF' ***SE STRG 15'PRO REC REJ-PAR' ***SF STRG 15'PRO SND BLOCKS ' ***SG STRG 15'PRO SND RESND ' ***SH STRG 15'PRO PROC-TIMOUT' ***SI STRG 15'PRO POLL-TIMOUT' ***SJ STRG 15'DTE REC ERROR ' ***SK STRG 30'DTE SND ERROR DCE ERROR ' TSKTAB STRG 256X'0' TASK TABLE WITH STATUS ENDTAB STRG 4X'FFFF' END MARK PDIV * * ENTRY POINTS AND EXTERNAL REFERENCES * ENTRY KBVGO ENTRY PRTGO EXT VDUKB EXT PRINT EXT GETTID GET TASK IDENTITY * EXT OFFLNE CREDIT APPLICATION START ADDRESS EJECT **************************************** * * START ADDRESS FOR VDU TASK * **************************************** KBVGO CALL GETTID,TCT01 KB050 CALL VDUKB,TCT01 * PERF OFFLNE BRANCH TO CREDIT CODE B KB050 RETURN TO IBM-3270 EMULATION EJECT ********************************************* * * START ADDRESS FOR PRINTER TASK * ********************************************* PRTGO CALL GETTID,TCT01 CALL PRINT,TCT01 END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DATBSC REL 11.0 81-10-18 870150541100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…008c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0040}
0x008c…00dc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0000, t01=0x0090}
0x00dc…012c Head {h00=0x004c, h01=0x0050, text=»* DATBSC DATA DIVISION FOR IBM-3270 EMULATION PACKAGE *«, t00=0x0000, t01=0x00e0}
0x012c…0178 Head {h00=0x0048, h01=0x0050, text=»* (BSC). THIS MODULE ALSO CONTAINS THE * «, t00=0x0000, t01=0x0130}
0x0178…01c8 Head {h00=0x004c, h01=0x0050, text=»* CREDIT CODED START-UP ROUTINES. *«, t00=0x0000, t01=0x017c}
0x01c8…0218 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x003c}
0x0218…0268 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x008c}
0x0268…0276 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00dc}
0x0276…0284 Head {h00=0x000a, h01=0x0050, text=» DDIV «, t00=0x0001, t01=0x00ea}
0x0284…02c0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x00f8}
0x02c0…02ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…02fc Head {h00=0x002e, h01=0x0050, text=»* KB/VDU TERMINAL WITH ONE DC-LINE «, t00=0x0001, t01=0x013e}
0x02fc…0306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0170}
0x0306…0342 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x017a}
0x0342…0352 Head {h00=0x000c, h01=0x0050, text=» TERM K1«, t00=0x0002, t01=0x0026}
0x0352…035c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x035c…036c Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0002, t01=0x0040}
0x036c…037c Head {h00=0x000c, h01=0x0050, text=» TWB TB1«, t00=0x0002, t01=0x0050}
0x037c…0386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0060}
0x0386…039a Head {h00=0x0010, h01=0x0050, text=» START KBVGO«, t00=0x0002, t01=0x006a}
0x039a…03a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007e}
0x03a4…03ce Head {h00=0x0026, h01=0x0050, text=»DSKBAN DSET FC=X'20',DEV=KA,BUFL=2«, t00=0x0002, t01=0x0088}
0x03ce…03f8 Head {h00=0x0026, h01=0x0050, text=»DSKBSD DSET FC=X'40',DEV=KI,BUFL=2«, t00=0x0002, t01=0x00b2}
0x03f8…0424 Head {h00=0x0028, h01=0x0050, text=»DSVDU DSET FC=X'42',DEV=DY,BUFL=162 «, t00=0x0002, t01=0x00dc}
0x0424…0446 Head {h00=0x001e, h01=0x0050, text=»DSICR DSET FC=X'50',DEV=II«, t00=0x0002, t01=0x0108}
0x0446…0468 Head {h00=0x001e, h01=0x0050, text=»DSICW DSET FC=X'51',DEV=IO«, t00=0x0002, t01=0x012a}
0x0468…0484 Head {h00=0x0018, h01=0x0050, text=»DSDC1 DSET FC=X'61' «, t00=0x0002, t01=0x014c}
0x0484…04be Head {h00=0x0036, h01=0x0050, text=»DSKBN DSET FC=X'21',DEV=KBN,BUFL=2 NUMERIC FOR P&T«, t00=0x0002, t01=0x0168}
0x04be…04cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0012}
0x04cc…0508 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0003, t01=0x0020}
0x0508…0512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005c}
0x0512…0544 Head {h00=0x002e, h01=0x0050, text=»* KB/VDU TERMINAL WITH TWO DC-LINES«, t00=0x0003, t01=0x0066}
0x0544…054e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0098}
0x054e…058a Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0003, t01=0x00a2}
0x058a…059a Head {h00=0x000c, h01=0x0050, text=» TERM K2«, t00=0x0003, t01=0x00de}
0x059a…05a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x05a4…05b4 Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0003, t01=0x00f8}
0x05b4…05c4 Head {h00=0x000c, h01=0x0050, text=» TWB TB1«, t00=0x0003, t01=0x0108}
0x05c4…05ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0118}
0x05ce…05e2 Head {h00=0x0010, h01=0x0050, text=» START KBVGO«, t00=0x0003, t01=0x0122}
0x05e2…05ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0136}
0x05ec…0616 Head {h00=0x0026, h01=0x0050, text=»DSKBAN DSET FC=X'20',DEV=KA,BUFL=2«, t00=0x0003, t01=0x0140}
0x0616…0640 Head {h00=0x0026, h01=0x0050, text=»DSKBSD DSET FC=X'40',DEV=KI,BUFL=2«, t00=0x0003, t01=0x016a}
0x0640…066c (4, 0, 400) Head {h00=0x0028, h01=0x0050, text=»DSVDU DSET FC=X'42',DEV=DY,BUFL=162 «, t00=0x0004, t01=0x0004}
0x066c…068e Head {h00=0x001e, h01=0x0050, text=»DSICR DSET FC=X'50',DEV=II«, t00=0x0004, t01=0x0030}
0x068e…06b0 Head {h00=0x001e, h01=0x0050, text=»DSICW DSET FC=X'51',DEV=IO«, t00=0x0004, t01=0x0052}
0x06b0…06cc Head {h00=0x0018, h01=0x0050, text=»DSDC1 DSET FC=X'61' «, t00=0x0004, t01=0x0074}
0x06cc…06e8 Head {h00=0x0018, h01=0x0050, text=»DSDC2 DSET FC=X'62' «, t00=0x0004, t01=0x0090}
0x06e8…0714 Head {h00=0x0028, h01=0x0050, text=»DSKBN2 DSET FC=X'21',DEV=KBN,BUFL=2 «, t00=0x0004, t01=0x00ac}
0x0714…071c Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00d8}
0x071c…072a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00e0}
0x072a…0766 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0004, t01=0x00ee}
0x0766…0770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012a}
0x0770…07a2 Head {h00=0x002e, h01=0x0050, text=»* PRINTER TERMINAL WITH ONE DC-LINE«, t00=0x0004, t01=0x0134}
0x07a2…07ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0166}
0x07ac…07e8 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0004, t01=0x0170}
0x07e8…07f8 Head {h00=0x000c, h01=0x0050, text=» TERM P1«, t00=0x0005, t01=0x001c}
0x07f8…0802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002c}
0x0802…0812 Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0005, t01=0x0036}
0x0812…0822 Head {h00=0x000c, h01=0x0050, text=» TWB TB1«, t00=0x0005, t01=0x0046}
0x0822…082c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0056}
0x082c…0840 Head {h00=0x0010, h01=0x0050, text=» START PRTGO«, t00=0x0005, t01=0x0060}
0x0840…084a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0074}
0x084a…088e Head {h00=0x0040, h01=0x0050, text=»PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS «, t00=0x0005, t01=0x007e}
0x088e…08b2 Head {h00=0x0020, h01=0x0050, text=»PDSICR DSET FC=X'50',DEV=II «, t00=0x0005, t01=0x00c2}
0x08b2…08d6 Head {h00=0x0020, h01=0x0050, text=»PDSICW DSET FC=X'51',DEV=IO «, t00=0x0005, t01=0x00e6}
0x08d6…08f2 Head {h00=0x0018, h01=0x0050, text=»PDSDC1 DSET FC=X'61'«, t00=0x0005, t01=0x010a}
0x08f2…0900 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0126}
0x0900…093e Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0005, t01=0x0134}
0x093e…0948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0172}
0x0948…097c Head {h00=0x0030, h01=0x0050, text=»* PRINTER TERMINAL WITH TWO DC-LINES «, t00=0x0005, t01=0x017c}
0x097c…0986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0020}
0x0986…09c4 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0006, t01=0x002a}
0x09c4…09d4 Head {h00=0x000c, h01=0x0050, text=» TERM P2«, t00=0x0006, t01=0x0068}
0x09d4…09de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0078}
0x09de…09ee Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0006, t01=0x0082}
0x09ee…09fe Head {h00=0x000c, h01=0x0050, text=» TWB TB1«, t00=0x0006, t01=0x0092}
0x09fe…0a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a2}
0x0a08…0a1c Head {h00=0x0010, h01=0x0050, text=» START PRTGO«, t00=0x0006, t01=0x00ac}
0x0a1c…0a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c0}
0x0a26…0a6a Head {h00=0x0040, h01=0x0050, text=»PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS «, t00=0x0006, t01=0x00ca}
0x0a6a…0a8e Head {h00=0x0020, h01=0x0050, text=»PDSICR DSET FC=X'50',DEV=II «, t00=0x0006, t01=0x010e}
0x0a8e…0ab2 Head {h00=0x0020, h01=0x0050, text=»PDSICW DSET FC=X'51',DEV=IO «, t00=0x0006, t01=0x0132}
0x0ab2…0ace Head {h00=0x0018, h01=0x0050, text=»PDSDC1 DSET FC=X'61'«, t00=0x0006, t01=0x0156}
0x0ace…0aea Head {h00=0x0018, h01=0x0050, text=»PDSDC2 DSET FC=X'62'«, t00=0x0006, t01=0x0172}
0x0aea…0af8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x018e}
0x0af8…0b48 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x000c}
0x0b48…0b98 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x005c}
0x0b98…0be8 Head {h00=0x004c, h01=0x0050, text=»* WORK AREA FOR KB/VDU TASKS *«, t00=0x0007, t01=0x00ac}
0x0be8…0c38 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00fc}
0x0c38…0c88 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x014c}
0x0c88…0c98 Head {h00=0x000c, h01=0x0050, text=»TB1 BLK «, t00=0x0008, t01=0x000c}
0x0c98…0ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001c}
0x0ca2…0ccc Head {h00=0x0026, h01=0x0050, text=»TCT01 BIN 4X'0' TID AND STACKBASE «, t00=0x0008, t01=0x0026}
0x0ccc…0cf8 Head {h00=0x0028, h01=0x0050, text=»BVDU STRG 3840X'0' VDU SCREEN BUFFER«, t00=0x0008, t01=0x0050}
0x0cf8…0d26 Head {h00=0x002a, h01=0x0050, text=»LINFLG STRG 48X'0' INTERNAL LINE FLAGS«, t00=0x0008, t01=0x007c}
0x0d26…0d52 Head {h00=0x0028, h01=0x0050, text=»PCURS STRG 4X'0' REL. CURSOR ADDRESS«, t00=0x0008, t01=0x00aa}
0x0d52…0d84 Head {h00=0x002e, h01=0x0050, text=»ATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER«, t00=0x0008, t01=0x00d6}
0x0d84…0db4 Head {h00=0x002c, h01=0x0050, text=»CURATT STRG 4X'0' REL. ATTRIBUTE ADDRESS«, t00=0x0008, t01=0x0108}
0x0db4…0dd4 Head {h00=0x001c, h01=0x0050, text=»WCC STRG 4X'0' WCC CHAR.«, t00=0x0008, t01=0x0138}
0x0dd4…0e04 Head {h00=0x002c, h01=0x0050, text=»KBINH STRG 4X'0' KEYBOARD INHIBIT INDIC.«, t00=0x0008, t01=0x0158}
0x0e04…0e1e Head {h00=0x0016, h01=0x0050, text=»LINCNT STRG 4X'0' «, t00=0x0008, t01=0x0188}
0x0e1e…0e50 Head {h00=0x002e, h01=0x0050, text=»DCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH«, t00=0x0009, t01=0x0012}
0x0e50…0e7e Head {h00=0x002a, h01=0x0050, text=»INTATT STRG 4X'0' INTENSITY ATTRIBUTE «, t00=0x0009, t01=0x0044}
0x0e7e…0ea4 Head {h00=0x0022, h01=0x0050, text=»OFFFLG STRG 4X'0' OFFLINE FLAG«, t00=0x0009, t01=0x0072}
0x0ea4…0ed0 Head {h00=0x0028, h01=0x0050, text=»PRTID STRG 4X'0' TASKID FOR HARDCOPY«, t00=0x0009, t01=0x0098}
0x0ed0…0ef2 Head {h00=0x001e, h01=0x0050, text=»BRAGE STRG 192X'0' LEKSAND«, t00=0x0009, t01=0x00c4}
0x0ef2…0efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e6}
0x0efc…0f22 Head {h00=0x0022, h01=0x0050, text=»* FORMATION OF BRAGE - LEKSAND«, t00=0x0009, t01=0x00f0}
0x0f22…0f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0116}
0x0f2c…0f54 Head {h00=0x0024, h01=0x0050, text=»* PRTTYP 4X TYPE OF PRINTER «, t00=0x0009, t01=0x0120}
0x0f54…0f6a Head {h00=0x0012, h01=0x0050, text=»* CCC 4X «, t00=0x0009, t01=0x0148}
0x0f6a…0f80 Head {h00=0x0012, h01=0x0050, text=»* MAIN 4X «, t00=0x0009, t01=0x015e}
0x0f80…0fa8 Head {h00=0x0024, h01=0x0050, text=»* MODE 4X INSERT INDICATOR«, t00=0x0009, t01=0x0174}
0x0fa8…0fd0 Head {h00=0x0024, h01=0x0050, text=»* KEYS 4X KEY LOCK STATUS «, t00=0x000a, t01=0x000c}
0x0fd0…1004 Head {h00=0x0030, h01=0x0050, text=»* ECBBLK 20X ECB BLOCK FOR MULTIPLE WAIT «, t00=0x000a, t01=0x0034}
0x1004…103a Head {h00=0x0032, h01=0x0050, text=»* RDMORE 4X NEXT ADDRESS OF READ MORE KEYS«, t00=0x000a, t01=0x0068}
0x103a…1062 Head {h00=0x0024, h01=0x0050, text=»* CURPOS 4X CURSOR POSITION «, t00=0x000a, t01=0x009e}
0x1062…1088 Head {h00=0x0022, h01=0x0050, text=»* BUFPNT 4X BUFFER POINTER«, t00=0x000a, t01=0x00c6}
0x1088…10aa Head {h00=0x001e, h01=0x0050, text=»* REGI 4X SAVE AREA «, t00=0x000a, t01=0x00ec}
0x10aa…10cc Head {h00=0x001e, h01=0x0050, text=»* STACK1 28X SAVE AREA «, t00=0x000a, t01=0x010e}
0x10cc…10ee Head {h00=0x001e, h01=0x0050, text=»* STACK2 28X SAVE AREA «, t00=0x000a, t01=0x0130}
0x10ee…1112 Head {h00=0x0020, h01=0x0050, text=»* UNPMOD 4X UNPACK MODE «, t00=0x000a, t01=0x0152}
0x1112…1132 Head {h00=0x001c, h01=0x0050, text=»* BSCMOD 4X BSC MODE«, t00=0x000a, t01=0x0176}
0x1132…1154 Head {h00=0x001e, h01=0x0050, text=»* ECBTAB ECB TABLE «, t00=0x000b, t01=0x0008}
0x1154…1172 Head {h00=0x001a, h01=0x0050, text=»* ECBKB 4X ECB KB«, t00=0x000b, t01=0x002a}
0x1172…1196 Head {h00=0x0020, h01=0x0050, text=»* ECBPRT 4X ECB PRINTER «, t00=0x000b, t01=0x0048}
0x1196…11c0 Head {h00=0x0026, h01=0x0050, text=»* ECBSD 4X ECB SIGNAL DISPLAY«, t00=0x000b, t01=0x006c}
0x11c0…11e0 Head {h00=0x001c, h01=0x0050, text=»* ECBVDU 4X ECB VDU «, t00=0x000b, t01=0x0096}
0x11e0…120a Head {h00=0x0026, h01=0x0050, text=»* ECBICR 4X ECB INTERTASK READ«, t00=0x000b, t01=0x00b6}
0x120a…1236 Head {h00=0x0028, h01=0x0050, text=»* ECBICW 4X ECB INTERTASK WRITE «, t00=0x000b, t01=0x00e0}
0x1236…125c Head {h00=0x0022, h01=0x0050, text=»* ECBDC1 4X ECB DC LINE 1 «, t00=0x000b, t01=0x010c}
0x125c…128c Head {h00=0x002c, h01=0x0050, text=»* ECBKB2 4X ECB NUMERIC KB, P & T «, t00=0x000b, t01=0x0132}
0x128c…129a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0162}
0x129a…12e4 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x000b, t01=0x0170}
0x12e4…132e Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x000c, t01=0x002a}
0x132e…1378 Head {h00=0x0046, h01=0x0050, text=»* COMMON WORK AREA FOR ALL TASKS *«, t00=0x000c, t01=0x0074}
0x1378…13c2 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x000c, t01=0x00be}
0x13c2…140c Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x000c, t01=0x0108}
0x140c…141c Head {h00=0x000c, h01=0x0050, text=»CB1 BLK «, t00=0x000c, t01=0x0152}
0x141c…1426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0162}
0x1426…145a Head {h00=0x0030, h01=0x0050, text=»MF1CU STRG X'4142' SYMBOLIC CLUSTER ADDRESS «, t00=0x000c, t01=0x016c}
0x145a…148c Head {h00=0x002e, h01=0x0050, text=»MF2CU STRG X'4344' SYMBOLIC CLUSTER ADDR. «, t00=0x000d, t01=0x0010}
0x148c…14ca Head {h00=0x003a, h01=0x0050, text=»IDTEXT STRG 22'IDENT NOT OPERABLE ' IDENT KEY TEXT«, t00=0x000d, t01=0x0042}
0x14ca…1500 Head {h00=0x0032, h01=0x0050, text=»***STATXT STRG 15'DTE ADDRESS ' STAT LAYOUT«, t00=0x000d, t01=0x0080}
0x1500…1526 Head {h00=0x0022, h01=0x0050, text=»***SA STRG 15'STAT OVERFLOW '«, t00=0x000d, t01=0x00b6}
0x1526…154c Head {h00=0x0022, h01=0x0050, text=»***SB STRG 15'PRO REC BLOCKS '«, t00=0x000d, t01=0x00dc}
0x154c…1572 Head {h00=0x0022, h01=0x0050, text=»***SC STRG 15'PRO REC REJ-BSY'«, t00=0x000d, t01=0x0102}
0x1572…1598 Head {h00=0x0022, h01=0x0050, text=»***SD STRG 15'PRO REC REJ-OVF'«, t00=0x000d, t01=0x0128}
0x1598…15be Head {h00=0x0022, h01=0x0050, text=»***SE STRG 15'PRO REC REJ-PAR'«, t00=0x000d, t01=0x014e}
0x15be…15e4 Head {h00=0x0022, h01=0x0050, text=»***SF STRG 15'PRO SND BLOCKS '«, t00=0x000d, t01=0x0174}
0x15e4…160a Head {h00=0x0022, h01=0x0050, text=»***SG STRG 15'PRO SND RESND '«, t00=0x000e, t01=0x000a}
0x160a…1630 Head {h00=0x0022, h01=0x0050, text=»***SH STRG 15'PRO PROC-TIMOUT'«, t00=0x000e, t01=0x0030}
0x1630…1656 Head {h00=0x0022, h01=0x0050, text=»***SI STRG 15'PRO POLL-TIMOUT'«, t00=0x000e, t01=0x0056}
0x1656…167c Head {h00=0x0022, h01=0x0050, text=»***SJ STRG 15'DTE REC ERROR '«, t00=0x000e, t01=0x007c}
0x167c…16b2 Head {h00=0x0032, h01=0x0050, text=»***SK STRG 30'DTE SND ERROR DCE ERROR ' «, t00=0x000e, t01=0x00a2}
0x16b2…16e4 Head {h00=0x002e, h01=0x0050, text=»TSKTAB STRG 256X'0' TASK TABLE WITH STATUS«, t00=0x000e, t01=0x00d8}
0x16e4…170a Head {h00=0x0022, h01=0x0050, text=»ENDTAB STRG 4X'FFFF' END MARK «, t00=0x000e, t01=0x010a}
0x170a…1718 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x000e, t01=0x0130}
0x1718…1722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013e}
0x1722…1758 Head {h00=0x0032, h01=0x0050, text=»* ENTRY POINTS AND EXTERNAL REFERENCES «, t00=0x000e, t01=0x0148}
0x1758…1762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017e}
0x1762…1776 Head {h00=0x0010, h01=0x0050, text=» ENTRY KBVGO«, t00=0x000e, t01=0x0188}
0x1776…178a Head {h00=0x0010, h01=0x0050, text=» ENTRY PRTGO«, t00=0x000f, t01=0x000c}
0x178a…179c Head {h00=0x000e, h01=0x0050, text=» EXT VDUKB«, t00=0x000f, t01=0x0020}
0x179c…17ae Head {h00=0x000e, h01=0x0050, text=» EXT PRINT«, t00=0x000f, t01=0x0032}
0x17ae…17d4 Head {h00=0x0022, h01=0x0050, text=» EXT GETTID GET TASK IDENTITY «, t00=0x000f, t01=0x0044}
0x17d4…180a Head {h00=0x0032, h01=0x0050, text=»* EXT OFFLNE CREDIT APPLICATION START ADDRESS «, t00=0x000f, t01=0x006a}
0x180a…1818 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00a0}
0x1818…1848 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000f, t01=0x00ae}
0x1848…1852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00de}
0x1852…1878 Head {h00=0x0022, h01=0x0050, text=»* START ADDRESS FOR VDU TASK«, t00=0x000f, t01=0x00e8}
0x1878…1882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010e}
0x1882…18b2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000f, t01=0x0118}
0x18b2…18ba Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0148}
0x18ba…18c8 Head {h00=0x000a, h01=0x0050, text=»KBVGO «, t00=0x000f, t01=0x0150}
0x18c8…18e4 Head {h00=0x0018, h01=0x0050, text=» CALL GETTID,TCT01 «, t00=0x000f, t01=0x015e}
0x18e4…18f2 Head {h00=0x000a, h01=0x0050, text=»KB050 «, t00=0x000f, t01=0x017a}
0x18f2…190c Head {h00=0x0016, h01=0x0050, text=» CALL VDUKB,TCT01 «, t00=0x000f, t01=0x0188}
0x190c…1938 Head {h00=0x0028, h01=0x0050, text=»* PERF OFFLNE BRANCH TO CREDIT CODE «, t00=0x0010, t01=0x0012}
0x1938…1966 Head {h00=0x002a, h01=0x0050, text=» B KB050 RETURN TO IBM-3270 EMULATION «, t00=0x0010, t01=0x003e}
0x1966…1974 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x006c}
0x1974…19aa Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0010, t01=0x007a}
0x19aa…19b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b0}
0x19b4…19e0 Head {h00=0x0028, h01=0x0050, text=»* START ADDRESS FOR PRINTER TASK «, t00=0x0010, t01=0x00ba}
0x19e0…19ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e6}
0x19ea…1a20 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0010, t01=0x00f0}
0x1a20…1a28 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0126}
0x1a28…1a36 Head {h00=0x000a, h01=0x0050, text=»PRTGO «, t00=0x0010, t01=0x012e}
0x1a36…1a52 Head {h00=0x0018, h01=0x0050, text=» CALL GETTID,TCT01 «, t00=0x0010, t01=0x013c}
0x1a52…1a6c Head {h00=0x0016, h01=0x0050, text=» CALL PRINT,TCT01 «, t00=0x0010, t01=0x0158}
0x1a6c…1a78 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0010, t01=0x0172}
0x1a78…1a7c Head {h00=0x4004, h01=0x0000}
0x1a7c…1a80 00 10 01 7e ┆ ~┆
0x1a80…1a88 (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x1a88…1ad8 (18, 0, 400) 00 00 f0 22 82 41 00 00 b8 41 00 00 81 04 50 00 52 00 e9 20 3a 55 54 00 00 0a 01 80 00 2c 00 28 03 13 40 00 0b 0d 00 00 b8 40 00 fc 57 00 02 1e 39 44 29 0f 39 e6 81 49 00 00 39 c6 19 01 1a 02 5e 0e b8 40 00 00 57 00 00 0b 00 20 00 0e 00 0a ┆ " A A P R :UT , ( @ @ W 9D) 9 I 9 ^ @ W ┆
0x1ad8…1b28 02 04 c2 54 54 42 3a 4d 54 ea 00 0b 00 50 00 24 00 20 03 0f 00 00 0b 2d 12 00 87 3f 87 04 f7 a1 00 00 00 06 b8 48 00 00 00 0c 87 3e 82 20 00 00 f0 22 00 0b 00 62 00 2c 00 28 03 13 00 00 0b 81 00 00 00 00 21 0f 19 0a 52 00 11 07 11 3a 57 00 ┆ TTB:MT P $ - ? H > " b , ( ! R :W ┆
0x1b28…1b78 01 20 f0 a1 00 00 01 20 57 00 01 0d f0 a1 00 00 01 0a 00 0b 00 8a 00 2c 00 28 03 13 00 00 0b a1 00 00 57 00 01 0d 57 00 01 3f 57 00 01 2f 57 00 01 3a 81 41 00 00 01 00 57 00 01 21 81 41 00 00 41 d0 00 0b 00 ba 00 2c 00 28 03 13 04 00 0b c1 ┆ W , ( W W ?W /W : A W ! A A , ( ┆
0x1b78…1bc8 00 00 50 00 f0 a1 00 00 5f 0e f7 a1 09 18 01 40 a9 5f 00 12 82 20 00 00 83 20 00 00 84 20 00 00 85 20 00 0b 00 ea 00 2c 00 28 03 13 00 00 0b e1 00 00 00 00 86 20 00 00 87 20 00 00 80 a0 00 00 49 d0 54 00 81 20 00 00 f0 22 81 20 00 00 54 00 ┆ P _ @ _ , ( I T " T ┆
0x1bc8…1c18 81 20 00 0b 01 1a 00 2c 00 28 03 13 00 aa 0c 01 00 00 00 00 41 10 50 00 49 10 54 00 21 7f 41 90 81 41 0b f4 82 41 0b d4 83 41 0b d8 84 41 0b dc 85 41 00 0b 01 4a 00 2c 00 28 03 13 aa 80 0c 21 00 00 0b e0 86 41 0b e4 87 41 0b e8 80 c1 0b ec ┆ , ( A P I T ! A A A A A A J , ( ! A A ┆
0x1c18…1c68 (19, 0, 400) 8f 20 08 ac 81 41 00 00 01 01 41 d0 81 20 00 00 8f 40 00 0b 01 7a 00 2c 00 28 03 13 a8 42 0c 41 00 00 01 98 98 41 01 88 8c 40 01 9a 20 f7 f0 3e 20 df f7 a1 09 18 01 40 a9 5f 00 12 8f 20 02 1a f7 a1 00 0c 00 1a 00 2c 00 28 03 13 a6 22 0c 61 ┆ A A @ z , ( B A A @ > @ _ , ( " a┆
0x1c68…1cb8 00 00 09 7a 80 a0 00 7c 05 49 f0 a1 09 c6 01 1c 52 00 05 4d 98 41 01 8e 50 00 05 54 e9 40 01 8a 54 00 00 0c 00 4a 00 2c 00 28 03 13 44 a8 0c 81 00 00 86 40 01 8c 50 00 1e 01 86 41 01 8c 57 00 87 60 01 94 a7 40 01 92 b7 40 01 90 50 02 07 01 ┆ z | I R M A P T @ T J , ( D @ P A W ` @ @ P ┆
0x1cb8…1d08 97 40 00 0c 00 7a 00 2c 00 28 03 13 8a 91 0c a1 00 00 01 96 1f 02 54 00 f7 a1 07 9a 8f 20 08 ac 98 41 01 86 50 00 a0 41 01 84 3c e7 56 00 90 41 01 84 00 0c 00 aa 00 10 00 0c 03 05 40 00 0c c1 00 00 8f 20 01 ac 00 0c 00 da 00 48 00 44 04 21 ┆ @ z , ( T A P A < V A @ H D !┆
0x1d08…1d58 ff ff 00 05 00 9a 00 09 00 d6 00 0d 00 fc 00 15 00 f6 00 1d 01 a4 00 29 01 a0 00 2d 0c 5e 00 39 01 98 00 3d 0c 32 00 49 01 9a 00 4d 0c 42 00 59 01 9c 00 5d 0c 4e 00 69 01 9e 00 6d 0b c8 00 75 01 a4 00 0c 00 ee 00 48 00 44 04 21 f7 f3 01 bf ┆ ) - ^ 9 = 2 I M B Y ] N i m u H D ! ┆
0x1d58…1da8 0b 98 01 c5 0b b0 01 c9 0b 94 01 d1 0a 88 01 e1 52 12 01 f9 0b b0 01 ff 0a 88 02 05 0b b0 02 0d 0b 82 02 11 0b 8e 02 19 0a 88 02 21 0b 98 02 27 50 04 02 2b 57 02 02 31 0b b0 02 35 0b 94 00 0c 01 3a 00 48 00 44 04 21 ff ff 02 39 02 b6 02 3d ┆ R ! 'P +W 1 5 : H D ! 9 =┆
0x1da8…1df8 (20, 0, 400) 09 c6 02 3f 02 46 02 43 02 b0 02 49 02 86 02 4d 04 1c 02 51 04 2c 02 55 04 f6 02 59 04 6a 02 5d 04 64 02 61 05 6c 02 65 06 2e 02 69 06 3a 02 6d 05 fa 02 71 06 1e 02 75 06 f0 00 0c 01 86 00 48 00 44 04 21 ff d7 02 79 07 06 02 7d 07 34 02 81 ┆ ? F C I M Q , U Y j ] d a l e . i : m q u H D ! y } 4 ┆
0x1df8…1e48 05 70 02 85 04 70 02 89 0b 94 02 8d 0b a6 02 95 02 a0 02 99 0b 80 02 9d 0a 6a 02 d9 0b b8 02 df 54 06 02 e9 09 fe 02 eb 50 04 02 f7 09 c6 02 f9 02 fc 02 ff 03 c2 00 0d 00 42 00 48 00 44 04 21 ff ab 03 03 03 20 03 07 03 30 03 0b 03 64 03 0f ┆ p p j T P B H D ! 0 d ┆
0x1e48…1e98 03 64 03 13 03 7c 03 17 03 48 03 1b 03 4e 03 1f 03 92 03 23 09 fa 03 2f 57 2a 03 33 09 fa 03 47 57 12 03 4b 03 c8 03 4d 57 0c 03 51 03 c8 03 67 03 ee 00 0d 00 8e 00 48 00 44 04 21 6a 7c 03 6d 50 04 03 7f 03 ee 03 95 0b b8 03 9b 50 06 03 9f ┆ d | H N # /W* 3 GW K MW Q g H D !j| mP P ┆
0x1e98…1ee8 03 cc 03 a1 57 1c 03 a5 09 fa 03 a7 50 08 03 af 57 0e 03 bd 0b b8 03 c5 03 ee 03 cb 0b b8 03 d1 0b b8 03 eb 0b b8 03 f7 54 08 04 0f 50 02 00 0d 00 da 00 48 00 44 04 21 ad 78 04 27 0a 88 04 2d 54 06 04 31 05 6a 04 33 57 04 04 3f 05 6a 04 43 ┆ W P W T P H D ! x ' -T 1 j 3W ? j C┆
0x1ee8…1f38 05 98 04 45 57 08 04 4b 0b a2 04 4d 57 06 04 53 0b 98 04 57 0b 8e 04 5d 0a 88 04 61 0b aa 04 69 57 0a 04 6f 57 04 04 77 50 66 00 0d 01 26 00 48 00 44 04 21 d5 bf 04 89 0b aa 04 8f 0a 88 04 95 54 2a 04 99 05 f8 04 9f 50 20 04 a3 0b ae 04 a7 ┆ EW K MW S W ] a iW oW wPf & H D ! T* P ┆