|
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: 7918 (0x1eee)
Notes: pts_type(SC)
Names: »DATBSC.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »MODIFY/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' 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 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…059c Head {h00=0x000e, h01=0x0050, text=»* TERM K2 «, t00=0x0003, t01=0x00de}
0x059c…05a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f0}
0x05a6…05b8 Head {h00=0x000e, h01=0x0050, text=»* CWB CB1 «, t00=0x0003, t01=0x00fa}
0x05b8…05ca Head {h00=0x000e, h01=0x0050, text=»* TWB TB1 «, t00=0x0003, t01=0x010c}
0x05ca…05d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011e}
0x05d4…05ea Head {h00=0x0012, h01=0x0050, text=»* START KBVGO «, t00=0x0003, t01=0x0128}
0x05ea…05f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013e}
0x05f4…0620 Head {h00=0x0028, h01=0x0050, text=»*DSKBAN DSET FC=X'20',DEV=KA,BUFL=2 «, t00=0x0003, t01=0x0148}
0x0620…064c Head {h00=0x0028, h01=0x0050, text=»*DSKBSD DSET FC=X'40',DEV=KI,BUFL=2 «, t00=0x0003, t01=0x0174}
0x064c…0678 Head {h00=0x0028, h01=0x0050, text=»*DSVDU DSET FC=X'42',DEV=DY,BUFL=162«, t00=0x0004, t01=0x0010}
0x0678…069c Head {h00=0x0020, h01=0x0050, text=»*DSICR DSET FC=X'50',DEV=II «, t00=0x0004, t01=0x003c}
0x069c…06c0 Head {h00=0x0020, h01=0x0050, text=»*DSICW DSET FC=X'51',DEV=IO «, t00=0x0004, t01=0x0060}
0x06c0…06dc Head {h00=0x0018, h01=0x0050, text=»*DSDC1 DSET FC=X'61'«, t00=0x0004, t01=0x0084}
0x06dc…06f8 Head {h00=0x0018, h01=0x0050, text=»*DSDC2 DSET FC=X'62'«, t00=0x0004, t01=0x00a0}
0x06f8…0706 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00bc}
0x0706…0742 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0004, t01=0x00ca}
0x0742…074c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0106}
0x074c…077e Head {h00=0x002e, h01=0x0050, text=»* PRINTER TERMINAL WITH ONE DC-LINE«, t00=0x0004, t01=0x0110}
0x077e…0788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0142}
0x0788…07c4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0004, t01=0x014c}
0x07c4…07d4 Head {h00=0x000c, h01=0x0050, text=» TERM P1«, t00=0x0004, t01=0x0188}
0x07d4…07de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07de…07ee Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0005, t01=0x0012}
0x07ee…07fe Head {h00=0x000c, h01=0x0050, text=» TWB TB1«, t00=0x0005, t01=0x0022}
0x07fe…0808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0032}
0x0808…081c Head {h00=0x0010, h01=0x0050, text=» START PRTGO«, t00=0x0005, t01=0x003c}
0x081c…0826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0050}
0x0826…086a Head {h00=0x0040, h01=0x0050, text=»PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS «, t00=0x0005, t01=0x005a}
0x086a…088e Head {h00=0x0020, h01=0x0050, text=»PDSICR DSET FC=X'50',DEV=II «, t00=0x0005, t01=0x009e}
0x088e…08b2 Head {h00=0x0020, h01=0x0050, text=»PDSICW DSET FC=X'51',DEV=IO «, t00=0x0005, t01=0x00c2}
0x08b2…08ce Head {h00=0x0018, h01=0x0050, text=»PDSDC1 DSET FC=X'61'«, t00=0x0005, t01=0x00e6}
0x08ce…08dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0102}
0x08dc…091a Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0005, t01=0x0110}
0x091a…0924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014e}
0x0924…0958 Head {h00=0x0030, h01=0x0050, text=»* PRINTER TERMINAL WITH TWO DC-LINES «, t00=0x0005, t01=0x0158}
0x0958…0962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018c}
0x0962…09a0 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0006, t01=0x0008}
0x09a0…09b2 Head {h00=0x000e, h01=0x0050, text=»* TERM P2 «, t00=0x0006, t01=0x0046}
0x09b2…09bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09bc…09ce Head {h00=0x000e, h01=0x0050, text=»* CWB CB1 «, t00=0x0006, t01=0x0062}
0x09ce…09e0 Head {h00=0x000e, h01=0x0050, text=»* TWB TB1 «, t00=0x0006, t01=0x0074}
0x09e0…09ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0086}
0x09ea…0a00 Head {h00=0x0012, h01=0x0050, text=»* START PRTGO «, t00=0x0006, t01=0x0090}
0x0a00…0a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a6}
0x0a0a…0a4e Head {h00=0x0040, h01=0x0050, text=»*PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS«, t00=0x0006, t01=0x00b0}
0x0a4e…0a72 Head {h00=0x0020, h01=0x0050, text=»*PDSICR DSET FC=X'50',DEV=II«, t00=0x0006, t01=0x00f4}
0x0a72…0a96 Head {h00=0x0020, h01=0x0050, text=»*PDSICW DSET FC=X'51',DEV=IO«, t00=0x0006, t01=0x0118}
0x0a96…0ab4 Head {h00=0x001a, h01=0x0050, text=»*PDSDC1 DSET FC=X'61' «, t00=0x0006, t01=0x013c}
0x0ab4…0ad2 Head {h00=0x001a, h01=0x0050, text=»*PDSDC2 DSET FC=X'62' «, t00=0x0006, t01=0x015a}
0x0ad2…0ae0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0178}
0x0ae0…0b30 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x0186}
0x0b30…0b80 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0046}
0x0b80…0bd0 Head {h00=0x004c, h01=0x0050, text=»* WORK AREA FOR KB/VDU TASKS *«, t00=0x0007, t01=0x0096}
0x0bd0…0c20 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00e6}
0x0c20…0c70 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x0136}
0x0c70…0c80 Head {h00=0x000c, h01=0x0050, text=»TB1 BLK «, t00=0x0007, t01=0x0186}
0x0c80…0c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0008}
0x0c8a…0cb4 Head {h00=0x0026, h01=0x0050, text=»TCT01 BIN 4X'0' TID AND STACKBASE «, t00=0x0008, t01=0x0012}
0x0cb4…0ce0 Head {h00=0x0028, h01=0x0050, text=»BVDU STRG 3840X'0' VDU SCREEN BUFFER«, t00=0x0008, t01=0x003c}
0x0ce0…0d0e Head {h00=0x002a, h01=0x0050, text=»LINFLG STRG 48X'0' INTERNAL LINE FLAGS«, t00=0x0008, t01=0x0068}
0x0d0e…0d3a Head {h00=0x0028, h01=0x0050, text=»PCURS STRG 4X'0' REL. CURSOR ADDRESS«, t00=0x0008, t01=0x0096}
0x0d3a…0d6c Head {h00=0x002e, h01=0x0050, text=»ATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER«, t00=0x0008, t01=0x00c2}
0x0d6c…0d9c Head {h00=0x002c, h01=0x0050, text=»CURATT STRG 4X'0' REL. ATTRIBUTE ADDRESS«, t00=0x0008, t01=0x00f4}
0x0d9c…0dbc Head {h00=0x001c, h01=0x0050, text=»WCC STRG 4X'0' WCC CHAR.«, t00=0x0008, t01=0x0124}
0x0dbc…0dec Head {h00=0x002c, h01=0x0050, text=»KBINH STRG 4X'0' KEYBOARD INHIBIT INDIC.«, t00=0x0008, t01=0x0144}
0x0dec…0e06 Head {h00=0x0016, h01=0x0050, text=»LINCNT STRG 4X'0' «, t00=0x0008, t01=0x0174}
0x0e06…0e38 Head {h00=0x002e, h01=0x0050, text=»DCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH«, t00=0x0008, t01=0x018e}
0x0e38…0e66 Head {h00=0x002a, h01=0x0050, text=»INTATT STRG 4X'0' INTENSITY ATTRIBUTE «, t00=0x0009, t01=0x0030}
0x0e66…0e8c Head {h00=0x0022, h01=0x0050, text=»OFFFLG STRG 4X'0' OFFLINE FLAG«, t00=0x0009, t01=0x005e}
0x0e8c…0eb8 Head {h00=0x0028, h01=0x0050, text=»PRTID STRG 4X'0' TASKID FOR HARDCOPY«, t00=0x0009, t01=0x0084}
0x0eb8…0eda Head {h00=0x001e, h01=0x0050, text=»BRAGE STRG 192X'0' LEKSAND«, t00=0x0009, t01=0x00b0}
0x0eda…0ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d2}
0x0ee4…0f0a Head {h00=0x0022, h01=0x0050, text=»* FORMATION OF BRAGE - LEKSAND«, t00=0x0009, t01=0x00dc}
0x0f0a…0f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0102}
0x0f14…0f3c Head {h00=0x0024, h01=0x0050, text=»* PRTTYP 4X TYPE OF PRINTER «, t00=0x0009, t01=0x010c}
0x0f3c…0f52 Head {h00=0x0012, h01=0x0050, text=»* CCC 4X «, t00=0x0009, t01=0x0134}
0x0f52…0f68 Head {h00=0x0012, h01=0x0050, text=»* MAIN 4X «, t00=0x0009, t01=0x014a}
0x0f68…0f90 Head {h00=0x0024, h01=0x0050, text=»* MODE 4X INSERT INDICATOR«, t00=0x0009, t01=0x0160}
0x0f90…0fb8 Head {h00=0x0024, h01=0x0050, text=»* KEYS 4X KEY LOCK STATUS «, t00=0x0009, t01=0x0188}
0x0fb8…0fec Head {h00=0x0030, h01=0x0050, text=»* ECBBLK 20X ECB BLOCK FOR MULTIPLE WAIT «, t00=0x000a, t01=0x0020}
0x0fec…1022 Head {h00=0x0032, h01=0x0050, text=»* RDMORE 4X NEXT ADDRESS OF READ MORE KEYS«, t00=0x000a, t01=0x0054}
0x1022…104a Head {h00=0x0024, h01=0x0050, text=»* CURPOS 4X CURSOR POSITION «, t00=0x000a, t01=0x008a}
0x104a…1070 Head {h00=0x0022, h01=0x0050, text=»* BUFPNT 4X BUFFER POINTER«, t00=0x000a, t01=0x00b2}
0x1070…1092 Head {h00=0x001e, h01=0x0050, text=»* REGI 4X SAVE AREA «, t00=0x000a, t01=0x00d8}
0x1092…10b4 Head {h00=0x001e, h01=0x0050, text=»* STACK1 28X SAVE AREA «, t00=0x000a, t01=0x00fa}
0x10b4…10d6 Head {h00=0x001e, h01=0x0050, text=»* STACK2 28X SAVE AREA «, t00=0x000a, t01=0x011c}
0x10d6…10fa Head {h00=0x0020, h01=0x0050, text=»* UNPMOD 4X UNPACK MODE «, t00=0x000a, t01=0x013e}
0x10fa…111a Head {h00=0x001c, h01=0x0050, text=»* BSCMOD 4X BSC MODE«, t00=0x000a, t01=0x0162}
0x111a…113c Head {h00=0x001e, h01=0x0050, text=»* ECBTAB ECB TABLE «, t00=0x000a, t01=0x0182}
0x113c…115a Head {h00=0x001a, h01=0x0050, text=»* ECBKB 4X ECB KB«, t00=0x000b, t01=0x0014}
0x115a…117e Head {h00=0x0020, h01=0x0050, text=»* ECBPRT 4X ECB PRINTER «, t00=0x000b, t01=0x0032}
0x117e…11a8 Head {h00=0x0026, h01=0x0050, text=»* ECBSD 4X ECB SIGNAL DISPLAY«, t00=0x000b, t01=0x0056}
0x11a8…11c8 Head {h00=0x001c, h01=0x0050, text=»* ECBVDU 4X ECB VDU «, t00=0x000b, t01=0x0080}
0x11c8…11f2 Head {h00=0x0026, h01=0x0050, text=»* ECBICR 4X ECB INTERTASK READ«, t00=0x000b, t01=0x00a0}
0x11f2…121e Head {h00=0x0028, h01=0x0050, text=»* ECBICW 4X ECB INTERTASK WRITE «, t00=0x000b, t01=0x00ca}
0x121e…1244 Head {h00=0x0022, h01=0x0050, text=»* ECBDC1 4X ECB DC LINE 1 «, t00=0x000b, t01=0x00f6}
0x1244…1274 Head {h00=0x002c, h01=0x0050, text=»* ECBKB2 4X ECB NUMERIC KB, P & T «, t00=0x000b, t01=0x011c}
0x1274…1282 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x014c}
0x1282…12cc Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x000b, t01=0x015a}
0x12cc…1316 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0014}
0x1316…1360 Head {h00=0x0046, h01=0x0050, text=»* COMMON WORK AREA FOR ALL TASKS *«, t00=0x000c, t01=0x005e}
0x1360…13aa Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x000c, t01=0x00a8}
0x13aa…13f4 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x000c, t01=0x00f2}
0x13f4…1404 Head {h00=0x000c, h01=0x0050, text=»CB1 BLK «, t00=0x000c, t01=0x013c}
0x1404…140e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014c}
0x140e…1442 Head {h00=0x0030, h01=0x0050, text=»MF1CU STRG X'4142' SYMBOLIC CLUSTER ADDRESS «, t00=0x000c, t01=0x0156}
0x1442…1480 Head {h00=0x003a, h01=0x0050, text=»IDTEXT STRG 22'IDENT NOT OPERABLE ' IDENT KEY TEXT«, t00=0x000c, t01=0x018a}
0x1480…14b6 Head {h00=0x0032, h01=0x0050, text=»***STATXT STRG 15'DTE ADDRESS ' STAT LAYOUT«, t00=0x000d, t01=0x0038}
0x14b6…14dc Head {h00=0x0022, h01=0x0050, text=»***SA STRG 15'STAT OVERFLOW '«, t00=0x000d, t01=0x006e}
0x14dc…1502 Head {h00=0x0022, h01=0x0050, text=»***SB STRG 15'PRO REC BLOCKS '«, t00=0x000d, t01=0x0094}
0x1502…1528 Head {h00=0x0022, h01=0x0050, text=»***SC STRG 15'PRO REC REJ-BSY'«, t00=0x000d, t01=0x00ba}
0x1528…154e Head {h00=0x0022, h01=0x0050, text=»***SD STRG 15'PRO REC REJ-OVF'«, t00=0x000d, t01=0x00e0}
0x154e…1574 Head {h00=0x0022, h01=0x0050, text=»***SE STRG 15'PRO REC REJ-PAR'«, t00=0x000d, t01=0x0106}
0x1574…159a Head {h00=0x0022, h01=0x0050, text=»***SF STRG 15'PRO SND BLOCKS '«, t00=0x000d, t01=0x012c}
0x159a…15c0 Head {h00=0x0022, h01=0x0050, text=»***SG STRG 15'PRO SND RESND '«, t00=0x000d, t01=0x0152}
0x15c0…15e6 Head {h00=0x0022, h01=0x0050, text=»***SH STRG 15'PRO PROC-TIMOUT'«, t00=0x000d, t01=0x0178}
0x15e6…160c Head {h00=0x0022, h01=0x0050, text=»***SI STRG 15'PRO POLL-TIMOUT'«, t00=0x000e, t01=0x000e}
0x160c…1632 Head {h00=0x0022, h01=0x0050, text=»***SJ STRG 15'DTE REC ERROR '«, t00=0x000e, t01=0x0034}
0x1632…1668 Head {h00=0x0032, h01=0x0050, text=»***SK STRG 30'DTE SND ERROR DCE ERROR ' «, t00=0x000e, t01=0x005a}
0x1668…169a Head {h00=0x002e, h01=0x0050, text=»TSKTAB STRG 256X'0' TASK TABLE WITH STATUS«, t00=0x000e, t01=0x0090}
0x169a…16c0 Head {h00=0x0022, h01=0x0050, text=»ENDTAB STRG 4X'FFFF' END MARK «, t00=0x000e, t01=0x00c2}
0x16c0…16ce Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x000e, t01=0x00e8}
0x16ce…16d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f6}
0x16d8…170e Head {h00=0x0032, h01=0x0050, text=»* ENTRY POINTS AND EXTERNAL REFERENCES «, t00=0x000e, t01=0x0100}
0x170e…1718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0136}
0x1718…172c Head {h00=0x0010, h01=0x0050, text=» ENTRY KBVGO«, t00=0x000e, t01=0x0140}
0x172c…1740 Head {h00=0x0010, h01=0x0050, text=» ENTRY PRTGO«, t00=0x000e, t01=0x0154}
0x1740…1752 Head {h00=0x000e, h01=0x0050, text=» EXT VDUKB«, t00=0x000e, t01=0x0168}
0x1752…1764 Head {h00=0x000e, h01=0x0050, text=» EXT PRINT«, t00=0x000e, t01=0x017a}
0x1764…178a Head {h00=0x0022, h01=0x0050, text=» EXT GETTID GET TASK IDENTITY «, t00=0x000e, t01=0x018c}
0x178a…17c0 Head {h00=0x0032, h01=0x0050, text=»** EXT OFFLNE CREDIT APPLICATION START ADDRESS«, t00=0x000f, t01=0x0022}
0x17c0…17ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0058}
0x17ce…17fe Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000f, t01=0x0066}
0x17fe…1808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0096}
0x1808…182e Head {h00=0x0022, h01=0x0050, text=»* START ADDRESS FOR VDU TASK«, t00=0x000f, t01=0x00a0}
0x182e…1838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c6}
0x1838…1868 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000f, t01=0x00d0}
0x1868…1870 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0100}
0x1870…187e Head {h00=0x000a, h01=0x0050, text=»KBVGO «, t00=0x000f, t01=0x0108}
0x187e…189a Head {h00=0x0018, h01=0x0050, text=» CALL GETTID,TCT01 «, t00=0x000f, t01=0x0116}
0x189a…18a8 Head {h00=0x000a, h01=0x0050, text=»KB050 «, t00=0x000f, t01=0x0132}
0x18a8…18c2 Head {h00=0x0016, h01=0x0050, text=» CALL VDUKB,TCT01 «, t00=0x000f, t01=0x0140}
0x18c2…18ee Head {h00=0x0028, h01=0x0050, text=»** PERF OFFLNE BRANCH TO CREDIT CODE«, t00=0x000f, t01=0x015a}
0x18ee…191c Head {h00=0x002a, h01=0x0050, text=» B KB050 RETURN TO IBM-3270 EMULATION «, t00=0x000f, t01=0x0186}
0x191c…192a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0024}
0x192a…1960 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0010, t01=0x0032}
0x1960…196a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0068}
0x196a…1996 Head {h00=0x0028, h01=0x0050, text=»* START ADDRESS FOR PRINTER TASK «, t00=0x0010, t01=0x0072}
0x1996…19a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009e}
0x19a0…19d6 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0010, t01=0x00a8}
0x19d6…19de Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00de}
0x19de…19ec Head {h00=0x000a, h01=0x0050, text=»PRTGO «, t00=0x0010, t01=0x00e6}
0x19ec…1a08 Head {h00=0x0018, h01=0x0050, text=» CALL GETTID,TCT01 «, t00=0x0010, t01=0x00f4}
0x1a08…1a22 Head {h00=0x0016, h01=0x0050, text=» CALL PRINT,TCT01 «, t00=0x0010, t01=0x0110}
0x1a22…1a2e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0010, t01=0x012a}
0x1a2e…1a32 Head {h00=0x4004, h01=0x0000}
0x1a32…1a36 00 10 01 36 ┆ 6┆
0x1a36…1a3e (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x1a3e…1a8e (18, 0, 400) 87 04 50 00 f6 97 00 00 91 04 80 c0 00 02 00 0c 82 22 1a 02 e9 08 55 00 81 20 00 80 f6 97 00 03 01 86 00 2a 00 26 03 12 00 00 02 7d 80 00 00 00 00 18 90 84 80 a2 80 a2 98 a0 00 02 92 82 96 02 91 a0 00 07 1f 01 5f 32 16 02 87 40 00 04 00 26 ┆ P " U * & } _2 @ &┆
0x1a8e…1ade 00 2c 00 28 03 13 00 00 02 99 91 22 00 04 00 0c 80 c0 00 0c 00 0c 50 00 81 c1 00 2e 00 0c 83 c1 00 30 00 0c 81 8a 91 c0 00 0a 00 0c 00 04 00 54 00 2c 00 28 03 13 00 00 02 af 49 04 81 c1 00 0a 00 0c 83 c0 00 1a 00 0c f6 97 00 00 00 0e 56 00 ┆ , ( " P . 0 T , ( I V ┆
0x1ade…1b2e 81 20 01 00 f6 97 00 00 00 18 81 c0 00 04 00 84 00 0e 00 0a 02 04 c2 54 54 42 3a 53 54 06 00 04 00 b4 00 2c 00 28 03 13 00 00 02 c7 92 48 00 2e 00 0c 83 c0 00 30 00 0c 86 53 00 00 00 24 85 40 00 14 00 0c 85 53 00 00 00 2c 3d 4a ad 20 00 04 ┆ TTB:ST , ( H . 0 S $ @ S ,=J ┆
0x1b2e…1b7e 00 c6 00 0e 00 0a 02 04 c2 54 54 42 3a 50 57 0b 00 04 00 f6 00 0e 00 0a 02 04 c2 54 54 42 3a 49 44 20 00 04 01 08 00 2a 00 26 03 12 00 00 02 dd 21 08 00 c0 82 40 00 00 00 10 22 01 ad 08 85 53 00 00 00 2e f6 97 00 00 85 40 00 0e 00 0c 85 53 ┆ TTB:PW TTB:ID * & ! @ " S . @ S┆
0x1b7e…1bce 00 04 01 1a 00 0e 00 0a 02 04 c2 54 54 42 3a 41 50 a2 00 04 01 48 00 2c 00 28 03 13 00 00 02 f5 89 20 00 00 00 30 15 01 85 41 00 0e 00 0c 85 40 00 08 00 0c 85 53 00 00 00 32 85 54 00 08 ed 20 43 52 00 04 01 5a 00 0e 00 0a 02 04 c2 54 54 42 ┆ TTB:AP H , ( 0 A @ S 2 T CR Z TTB┆
0x1bce…1c1e (19, 0, 400) 3a 50 50 7c 00 04 01 8a 00 2c 00 28 03 13 00 00 03 0d 24 42 54 00 85 40 00 12 00 0c 85 53 00 00 00 34 15 01 85 41 00 12 00 0c 84 bd 17 02 87 41 00 04 00 0c 00 05 00 0c 00 2c 00 28 03 13 00 00 03 25 04 82 94 8a 98 a0 00 01 5f 8e 84 c0 00 0a ┆:PP| , ( $BT @ S 4 A A , ( % _ ┆
0x1c1e…1c6e 00 0c f6 97 00 00 00 1a ea 21 54 54 54 00 80 40 00 2c 00 0c 00 05 00 3c 00 0c 00 08 02 03 82 50 55 53 48 4e 00 05 00 6c 00 2c 00 28 03 13 00 00 03 3f 09 24 f6 97 00 00 50 00 80 40 00 2a 00 0c 84 c1 00 00 00 14 9f 40 00 00 00 16 87 61 00 00 ┆ !TTT @ , < PUSHN l , ( ? $ P @ * @ a ┆
0x1c6e…1cbe 00 16 f0 3a 00 05 00 7c 00 2c 00 28 03 13 00 00 03 57 41 04 f6 97 00 00 00 36 f6 97 00 00 81 80 82 c0 00 08 00 0c f6 97 00 00 54 00 82 60 00 00 00 16 92 40 00 05 00 ac 00 2c 00 28 03 13 00 00 03 71 82 00 00 00 00 16 57 00 82 48 00 0a 82 41 ┆ : | , ( WA 6 T ` @ , ( q W H A┆
0x1cbe…1d0e 00 0c 00 0c 80 80 90 a0 00 00 85 4a 00 08 ed 20 41 53 88 02 00 05 00 dc 00 0e 00 0a 02 04 c2 53 43 54 4e 4f 53 00 00 05 01 0c 00 2c 00 28 03 13 00 00 03 8d 00 84 80 ca 00 0a ed 20 42 41 54 00 9a 02 3a 61 82 41 00 2a 00 0c 82 4b 00 06 83 40 ┆ J AS SCTNOS , ( BAT :a A * K @┆
0x1d0e…1d5e 00 00 00 38 3b 43 00 05 01 1e 00 0c 00 08 02 03 82 4d 55 4c 54 4e 00 05 01 4e 00 2c 00 28 03 13 00 00 03 a9 11 04 13 0c 84 0c f6 97 00 00 00 3a 57 00 82 40 00 00 00 10 22 01 50 00 87 22 b8 5c 00 00 00 28 82 4a 00 05 01 5e 00 2a 00 26 03 12 ┆ 8;C MULTN N , ( :W @ " P " ( J ^ * & ┆
0x1d5e…1dae (20, 0, 400) 00 00 03 c3 00 40 00 0e 12 0a f6 97 00 00 86 04 83 04 3b 43 13 0c 84 c0 00 00 00 14 82 0e 83 92 93 8c f6 97 00 05 01 8e 00 2c 00 28 03 13 00 00 03 df 82 40 00 00 00 0e 55 00 81 20 01 00 f6 97 00 00 00 18 83 c1 00 00 00 14 83 88 ed 20 42 41 ┆ @ ;C , ( @ U BA┆
0x1dae…1dfe 54 00 82 40 00 06 00 2c 00 2c 00 28 03 13 00 00 03 f9 91 10 00 2a 00 0c 83 40 00 00 00 38 13 0c f6 97 00 00 00 3a 82 0c 92 41 00 2e 00 04 84 cb 00 04 82 40 00 06 00 5c 00 2c 00 28 03 13 00 00 04 11 80 80 00 00 00 14 1a 02 a0 29 ea 12 5c 08 ┆T @ , , ( * @ 8 : A . @ , ( ) ┆
0x1dfe…1e4e 92 10 ea 40 00 00 00 14 50 00 12 08 82 53 00 08 94 90 82 12 00 06 00 8c 00 0e 00 0a 02 04 c2 53 43 54 49 50 4c e8 00 06 00 bc 00 2c 00 28 03 13 00 00 04 2d 04 80 5f 14 86 53 00 02 83 18 93 41 00 2e 00 04 83 40 00 00 00 3c 83 33 94 a0 00 04 ┆ @ P S SCTIPL , ( - _ S A . @ < 3 ┆
0x1e4e…1e9e 84 12 82 20 84 00 00 06 00 ce 00 2c 00 28 03 13 00 00 04 49 00 00 82 33 82 4a 00 0e f6 97 00 00 82 04 12 06 f6 97 00 00 81 53 00 02 82 4a 00 0e 12 0a 94 a0 00 08 00 06 00 fe 00 2c 00 28 03 13 00 00 04 69 00 04 1e 01 52 00 07 00 12 02 f6 97 ┆ , ( I 3 J S J , ( i R ┆
0x1e9e…1eee 00 00 83 04 23 ff 39 68 e9 21 52 52 50 00 81 40 00 00 00 10 21 02 00 06 01 2e 00 2c 00 28 03 13 00 00 04 87 00 00 54 00 b3 0c 87 20 88 00 12 02 57 00 87 20 88 00 12 02 f6 97 00 00 91 4a 00 18 53 00 57 00 13 01 00 06 01 5e 00 2c 00 28 03 13 ┆ # 9h !RRP @ ! . , ( T W J S W ^ , ( ┆