|
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: 7900 (0x1edc)
Notes: pts_type(SC)
Names: »DATBSC.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »U3270.2/DATBSC.SC«
IDENT DATBSC REL 11.1 82-02-12 870150541110 =1 SYNTAX ERROR 81-04-08 ************************************************************************ * * * 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' 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 152X'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 * ECBDC2 4X ECB DC LINE 2 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 ADDR =1 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.1 82-02-12 870150541110«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0056 Head {h00=0x0016, h01=0x0050, text=» =1 SYNTAX ERROR«, t00=0x0000, t01=0x0040}
0x0056…006a Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0000, t01=0x005a}
0x006a…0072 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x006e}
0x0072…00c2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0076}
0x00c2…0112 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00c6}
0x0112…0162 Head {h00=0x004c, h01=0x0050, text=»* DATBSC DATA DIVISION FOR IBM-3270 EMULATION PACKAGE *«, t00=0x0000, t01=0x0116}
0x0162…01ae Head {h00=0x0048, h01=0x0050, text=»* (BSC). THIS MODULE ALSO CONTAINS THE * «, t00=0x0000, t01=0x0166}
0x01ae…01fe Head {h00=0x004c, h01=0x0050, text=»* CREDIT CODED START-UP ROUTINES. *«, t00=0x0001, t01=0x0022}
0x01fe…024e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0072}
0x024e…029e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x00c2}
0x029e…02ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0112}
0x02ac…02ba Head {h00=0x000a, h01=0x0050, text=» DDIV «, t00=0x0001, t01=0x0120}
0x02ba…02f6 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x012e}
0x02f6…0300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016a}
0x0300…0332 Head {h00=0x002e, h01=0x0050, text=»* KB/VDU TERMINAL WITH ONE DC-LINE «, t00=0x0001, t01=0x0174}
0x0332…033c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0016}
0x033c…0378 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0002, t01=0x0020}
0x0378…0388 Head {h00=0x000c, h01=0x0050, text=» TERM K1«, t00=0x0002, t01=0x005c}
0x0388…0392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0392…03a2 Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0002, t01=0x0076}
0x03a2…03b2 Head {h00=0x000c, h01=0x0050, text=» TWB TB1«, t00=0x0002, t01=0x0086}
0x03b2…03bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0096}
0x03bc…03d0 Head {h00=0x0010, h01=0x0050, text=» START KBVGO«, t00=0x0002, t01=0x00a0}
0x03d0…03da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b4}
0x03da…0404 Head {h00=0x0026, h01=0x0050, text=»DSKBAN DSET FC=X'20',DEV=KA,BUFL=2«, t00=0x0002, t01=0x00be}
0x0404…042e Head {h00=0x0026, h01=0x0050, text=»DSKBSD DSET FC=X'40',DEV=KI,BUFL=2«, t00=0x0002, t01=0x00e8}
0x042e…045a Head {h00=0x0028, h01=0x0050, text=»DSVDU DSET FC=X'42',DEV=DY,BUFL=162 «, t00=0x0002, t01=0x0112}
0x045a…047c Head {h00=0x001e, h01=0x0050, text=»DSICR DSET FC=X'50',DEV=II«, t00=0x0002, t01=0x013e}
0x047c…049e Head {h00=0x001e, h01=0x0050, text=»DSICW DSET FC=X'51',DEV=IO«, t00=0x0002, t01=0x0160}
0x049e…04ba Head {h00=0x0018, h01=0x0050, text=»DSDC1 DSET FC=X'61' «, t00=0x0002, t01=0x0182}
0x04ba…04c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x000e}
0x04c8…0504 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0003, t01=0x001c}
0x0504…050e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0058}
0x050e…0540 Head {h00=0x002e, h01=0x0050, text=»* KB/VDU TERMINAL WITH TWO DC-LINES«, t00=0x0003, t01=0x0062}
0x0540…054a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0094}
0x054a…0586 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0003, t01=0x009e}
0x0586…0598 Head {h00=0x000e, h01=0x0050, text=»* TERM K2 «, t00=0x0003, t01=0x00da}
0x0598…05a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ec}
0x05a2…05b4 Head {h00=0x000e, h01=0x0050, text=»* CWB CB1 «, t00=0x0003, t01=0x00f6}
0x05b4…05c6 Head {h00=0x000e, h01=0x0050, text=»* TWB TB1 «, t00=0x0003, t01=0x0108}
0x05c6…05d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011a}
0x05d0…05e6 Head {h00=0x0012, h01=0x0050, text=»* START KBVGO «, t00=0x0003, t01=0x0124}
0x05e6…05f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013a}
0x05f0…061c Head {h00=0x0028, h01=0x0050, text=»*DSKBAN DSET FC=X'20',DEV=KA,BUFL=2 «, t00=0x0003, t01=0x0144}
0x061c…0648 Head {h00=0x0028, h01=0x0050, text=»*DSKBSD DSET FC=X'40',DEV=KI,BUFL=2 «, t00=0x0003, t01=0x0170}
0x0648…0674 Head {h00=0x0028, h01=0x0050, text=»*DSVDU DSET FC=X'42',DEV=DY,BUFL=162«, t00=0x0004, t01=0x000c}
0x0674…0698 Head {h00=0x0020, h01=0x0050, text=»*DSICR DSET FC=X'50',DEV=II «, t00=0x0004, t01=0x0038}
0x0698…06bc Head {h00=0x0020, h01=0x0050, text=»*DSICW DSET FC=X'51',DEV=IO «, t00=0x0004, t01=0x005c}
0x06bc…06d8 Head {h00=0x0018, h01=0x0050, text=»*DSDC1 DSET FC=X'61'«, t00=0x0004, t01=0x0080}
0x06d8…06f4 Head {h00=0x0018, h01=0x0050, text=»*DSDC2 DSET FC=X'62'«, t00=0x0004, t01=0x009c}
0x06f4…0702 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00b8}
0x0702…073e Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0004, t01=0x00c6}
0x073e…0748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0102}
0x0748…077a Head {h00=0x002e, h01=0x0050, text=»* PRINTER TERMINAL WITH ONE DC-LINE«, t00=0x0004, t01=0x010c}
0x077a…0784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013e}
0x0784…07c0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0004, t01=0x0148}
0x07c0…07d0 Head {h00=0x000c, h01=0x0050, text=» TERM P1«, t00=0x0004, t01=0x0184}
0x07d0…07da (5, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07da…07ea Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0005, t01=0x000e}
0x07ea…07fa Head {h00=0x000c, h01=0x0050, text=» TWB TB1«, t00=0x0005, t01=0x001e}
0x07fa…0804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002e}
0x0804…0818 Head {h00=0x0010, h01=0x0050, text=» START PRTGO«, t00=0x0005, t01=0x0038}
0x0818…0822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004c}
0x0822…0866 Head {h00=0x0040, h01=0x0050, text=»PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS «, t00=0x0005, t01=0x0056}
0x0866…088a Head {h00=0x0020, h01=0x0050, text=»PDSICR DSET FC=X'50',DEV=II «, t00=0x0005, t01=0x009a}
0x088a…08ae Head {h00=0x0020, h01=0x0050, text=»PDSICW DSET FC=X'51',DEV=IO «, t00=0x0005, t01=0x00be}
0x08ae…08ca Head {h00=0x0018, h01=0x0050, text=»PDSDC1 DSET FC=X'61'«, t00=0x0005, t01=0x00e2}
0x08ca…08d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00fe}
0x08d8…0916 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0005, t01=0x010c}
0x0916…0920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014a}
0x0920…0954 Head {h00=0x0030, h01=0x0050, text=»* PRINTER TERMINAL WITH TWO DC-LINES «, t00=0x0005, t01=0x0154}
0x0954…095e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0188}
0x095e…099c (6, 0, 400) Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0006, t01=0x0004}
0x099c…09ae Head {h00=0x000e, h01=0x0050, text=»* TERM P2 «, t00=0x0006, t01=0x0042}
0x09ae…09b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0054}
0x09b8…09ca Head {h00=0x000e, h01=0x0050, text=»* CWB CB1 «, t00=0x0006, t01=0x005e}
0x09ca…09dc Head {h00=0x000e, h01=0x0050, text=»* TWB TB1 «, t00=0x0006, t01=0x0070}
0x09dc…09e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0082}
0x09e6…09fc Head {h00=0x0012, h01=0x0050, text=»* START PRTGO «, t00=0x0006, t01=0x008c}
0x09fc…0a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a2}
0x0a06…0a4a Head {h00=0x0040, h01=0x0050, text=»*PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS«, t00=0x0006, t01=0x00ac}
0x0a4a…0a6e Head {h00=0x0020, h01=0x0050, text=»*PDSICR DSET FC=X'50',DEV=II«, t00=0x0006, t01=0x00f0}
0x0a6e…0a92 Head {h00=0x0020, h01=0x0050, text=»*PDSICW DSET FC=X'51',DEV=IO«, t00=0x0006, t01=0x0114}
0x0a92…0ab0 Head {h00=0x001a, h01=0x0050, text=»*PDSDC1 DSET FC=X'61' «, t00=0x0006, t01=0x0138}
0x0ab0…0ace Head {h00=0x001a, h01=0x0050, text=»*PDSDC2 DSET FC=X'62' «, t00=0x0006, t01=0x0156}
0x0ace…0adc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0174}
0x0adc…0b2c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x0182}
0x0b2c…0b7c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0042}
0x0b7c…0bcc Head {h00=0x004c, h01=0x0050, text=»* WORK AREA FOR KB/VDU TASKS *«, t00=0x0007, t01=0x0092}
0x0bcc…0c1c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00e2}
0x0c1c…0c6c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x0132}
0x0c6c…0c7c Head {h00=0x000c, h01=0x0050, text=»TB1 BLK «, t00=0x0007, t01=0x0182}
0x0c7c…0c86 (8, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0004}
0x0c86…0cb0 Head {h00=0x0026, h01=0x0050, text=»TCT01 BIN 4X'0' TID AND STACKBASE «, t00=0x0008, t01=0x000e}
0x0cb0…0cdc Head {h00=0x0028, h01=0x0050, text=»BVDU STRG 3840X'0' VDU SCREEN BUFFER«, t00=0x0008, t01=0x0038}
0x0cdc…0d0a Head {h00=0x002a, h01=0x0050, text=»LINFLG STRG 48X'0' INTERNAL LINE FLAGS«, t00=0x0008, t01=0x0064}
0x0d0a…0d36 Head {h00=0x0028, h01=0x0050, text=»PCURS STRG 4X'0' REL. CURSOR ADDRESS«, t00=0x0008, t01=0x0092}
0x0d36…0d68 Head {h00=0x002e, h01=0x0050, text=»ATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER«, t00=0x0008, t01=0x00be}
0x0d68…0d98 Head {h00=0x002c, h01=0x0050, text=»CURATT STRG 4X'0' REL. ATTRIBUTE ADDRESS«, t00=0x0008, t01=0x00f0}
0x0d98…0db8 Head {h00=0x001c, h01=0x0050, text=»WCC STRG 4X'0' WCC CHAR.«, t00=0x0008, t01=0x0120}
0x0db8…0de8 Head {h00=0x002c, h01=0x0050, text=»KBINH STRG 4X'0' KEYBOARD INHIBIT INDIC.«, t00=0x0008, t01=0x0140}
0x0de8…0e02 Head {h00=0x0016, h01=0x0050, text=»LINCNT STRG 4X'0' «, t00=0x0008, t01=0x0170}
0x0e02…0e34 Head {h00=0x002e, h01=0x0050, text=»DCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH«, t00=0x0008, t01=0x018a}
0x0e34…0e62 Head {h00=0x002a, h01=0x0050, text=»INTATT STRG 4X'0' INTENSITY ATTRIBUTE «, t00=0x0009, t01=0x002c}
0x0e62…0e88 Head {h00=0x0022, h01=0x0050, text=»OFFFLG STRG 4X'0' OFFLINE FLAG«, t00=0x0009, t01=0x005a}
0x0e88…0eb4 Head {h00=0x0028, h01=0x0050, text=»PRTID STRG 4X'0' TASKID FOR HARDCOPY«, t00=0x0009, t01=0x0080}
0x0eb4…0ed6 Head {h00=0x001e, h01=0x0050, text=»BRAGE STRG 152X'0' LEKSAND«, t00=0x0009, t01=0x00ac}
0x0ed6…0ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ce}
0x0ee0…0f06 Head {h00=0x0022, h01=0x0050, text=»* FORMATION OF BRAGE - LEKSAND«, t00=0x0009, t01=0x00d8}
0x0f06…0f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fe}
0x0f10…0f38 Head {h00=0x0024, h01=0x0050, text=»* PRTTYP 4X TYPE OF PRINTER «, t00=0x0009, t01=0x0108}
0x0f38…0f4e Head {h00=0x0012, h01=0x0050, text=»* CCC 4X «, t00=0x0009, t01=0x0130}
0x0f4e…0f64 Head {h00=0x0012, h01=0x0050, text=»* MAIN 4X «, t00=0x0009, t01=0x0146}
0x0f64…0f8c Head {h00=0x0024, h01=0x0050, text=»* MODE 4X INSERT INDICATOR«, t00=0x0009, t01=0x015c}
0x0f8c…0fb4 Head {h00=0x0024, h01=0x0050, text=»* KEYS 4X KEY LOCK STATUS «, t00=0x0009, t01=0x0184}
0x0fb4…0fe8 Head {h00=0x0030, h01=0x0050, text=»* ECBBLK 20X ECB BLOCK FOR MULTIPLE WAIT «, t00=0x000a, t01=0x001c}
0x0fe8…101e Head {h00=0x0032, h01=0x0050, text=»* RDMORE 4X NEXT ADDRESS OF READ MORE KEYS«, t00=0x000a, t01=0x0050}
0x101e…1046 Head {h00=0x0024, h01=0x0050, text=»* CURPOS 4X CURSOR POSITION «, t00=0x000a, t01=0x0086}
0x1046…106c Head {h00=0x0022, h01=0x0050, text=»* BUFPNT 4X BUFFER POINTER«, t00=0x000a, t01=0x00ae}
0x106c…108e Head {h00=0x001e, h01=0x0050, text=»* REGI 4X SAVE AREA «, t00=0x000a, t01=0x00d4}
0x108e…10b0 Head {h00=0x001e, h01=0x0050, text=»* STACK1 28X SAVE AREA «, t00=0x000a, t01=0x00f6}
0x10b0…10d2 Head {h00=0x001e, h01=0x0050, text=»* STACK2 28X SAVE AREA «, t00=0x000a, t01=0x0118}
0x10d2…10f6 Head {h00=0x0020, h01=0x0050, text=»* UNPMOD 4X UNPACK MODE «, t00=0x000a, t01=0x013a}
0x10f6…1116 Head {h00=0x001c, h01=0x0050, text=»* BSCMOD 4X BSC MODE«, t00=0x000a, t01=0x015e}
0x1116…1138 Head {h00=0x001e, h01=0x0050, text=»* ECBTAB ECB TABLE «, t00=0x000a, t01=0x017e}
0x1138…1156 Head {h00=0x001a, h01=0x0050, text=»* ECBKB 4X ECB KB«, t00=0x000b, t01=0x0010}
0x1156…117a Head {h00=0x0020, h01=0x0050, text=»* ECBPRT 4X ECB PRINTER «, t00=0x000b, t01=0x002e}
0x117a…11a4 Head {h00=0x0026, h01=0x0050, text=»* ECBSD 4X ECB SIGNAL DISPLAY«, t00=0x000b, t01=0x0052}
0x11a4…11c4 Head {h00=0x001c, h01=0x0050, text=»* ECBVDU 4X ECB VDU «, t00=0x000b, t01=0x007c}
0x11c4…11ee Head {h00=0x0026, h01=0x0050, text=»* ECBICR 4X ECB INTERTASK READ«, t00=0x000b, t01=0x009c}
0x11ee…121a Head {h00=0x0028, h01=0x0050, text=»* ECBICW 4X ECB INTERTASK WRITE «, t00=0x000b, t01=0x00c6}
0x121a…1240 Head {h00=0x0022, h01=0x0050, text=»* ECBDC1 4X ECB DC LINE 1 «, t00=0x000b, t01=0x00f2}
0x1240…1266 Head {h00=0x0022, h01=0x0050, text=»* ECBDC2 4X ECB DC LINE 2 «, t00=0x000b, t01=0x0118}
0x1266…1274 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x013e}
0x1274…12be Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x000b, t01=0x014c}
0x12be…1308 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0008}
0x1308…1352 Head {h00=0x0046, h01=0x0050, text=»* COMMON WORK AREA FOR ALL TASKS *«, t00=0x000c, t01=0x0052}
0x1352…139c Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x000c, t01=0x009c}
0x139c…13e6 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x000c, t01=0x00e6}
0x13e6…13f6 Head {h00=0x000c, h01=0x0050, text=»CB1 BLK «, t00=0x000c, t01=0x0130}
0x13f6…1400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0140}
0x1400…1434 Head {h00=0x0030, h01=0x0050, text=»MF1CU STRG X'4142' SYMBOLIC CLUSTER ADDRESS «, t00=0x000c, t01=0x014a}
0x1434…1472 Head {h00=0x003a, h01=0x0050, text=»IDTEXT STRG 22'IDENT NOT OPERABLE ' IDENT KEY TEXT«, t00=0x000c, t01=0x017e}
0x1472…14a8 Head {h00=0x0032, h01=0x0050, text=»***STATXT STRG 15'DTE ADDRESS ' STAT LAYOUT«, t00=0x000d, t01=0x002c}
0x14a8…14ce Head {h00=0x0022, h01=0x0050, text=»***SA STRG 15'STAT OVERFLOW '«, t00=0x000d, t01=0x0062}
0x14ce…14f4 Head {h00=0x0022, h01=0x0050, text=»***SB STRG 15'PRO REC BLOCKS '«, t00=0x000d, t01=0x0088}
0x14f4…151a Head {h00=0x0022, h01=0x0050, text=»***SC STRG 15'PRO REC REJ-BSY'«, t00=0x000d, t01=0x00ae}
0x151a…1540 Head {h00=0x0022, h01=0x0050, text=»***SD STRG 15'PRO REC REJ-OVF'«, t00=0x000d, t01=0x00d4}
0x1540…1566 Head {h00=0x0022, h01=0x0050, text=»***SE STRG 15'PRO REC REJ-PAR'«, t00=0x000d, t01=0x00fa}
0x1566…158c Head {h00=0x0022, h01=0x0050, text=»***SF STRG 15'PRO SND BLOCKS '«, t00=0x000d, t01=0x0120}
0x158c…15b2 Head {h00=0x0022, h01=0x0050, text=»***SG STRG 15'PRO SND RESND '«, t00=0x000d, t01=0x0146}
0x15b2…15d8 Head {h00=0x0022, h01=0x0050, text=»***SH STRG 15'PRO PROC-TIMOUT'«, t00=0x000d, t01=0x016c}
0x15d8…15fe (14, 0, 400) Head {h00=0x0022, h01=0x0050, text=»***SI STRG 15'PRO POLL-TIMOUT'«, t00=0x000e, t01=0x0004}
0x15fe…1624 Head {h00=0x0022, h01=0x0050, text=»***SJ STRG 15'DTE REC ERROR '«, t00=0x000e, t01=0x002a}
0x1624…165a Head {h00=0x0032, h01=0x0050, text=»***SK STRG 30'DTE SND ERROR DCE ERROR ' «, t00=0x000e, t01=0x0050}
0x165a…168c Head {h00=0x002e, h01=0x0050, text=»TSKTAB STRG 256X'0' TASK TABLE WITH STATUS«, t00=0x000e, t01=0x0086}
0x168c…16b2 Head {h00=0x0022, h01=0x0050, text=»ENDTAB STRG 4X'FFFF' END MARK «, t00=0x000e, t01=0x00b8}
0x16b2…16c0 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x000e, t01=0x00de}
0x16c0…16ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ec}
0x16ca…1700 Head {h00=0x0032, h01=0x0050, text=»* ENTRY POINTS AND EXTERNAL REFERENCES «, t00=0x000e, t01=0x00f6}
0x1700…170a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012c}
0x170a…171e Head {h00=0x0010, h01=0x0050, text=» ENTRY KBVGO«, t00=0x000e, t01=0x0136}
0x171e…1732 Head {h00=0x0010, h01=0x0050, text=» ENTRY PRTGO«, t00=0x000e, t01=0x014a}
0x1732…1744 Head {h00=0x000e, h01=0x0050, text=» EXT VDUKB«, t00=0x000e, t01=0x015e}
0x1744…1756 Head {h00=0x000e, h01=0x0050, text=» EXT PRINT«, t00=0x000e, t01=0x0170}
0x1756…177c Head {h00=0x0022, h01=0x0050, text=» EXT GETTID GET TASK IDENTITY «, t00=0x000e, t01=0x0182}
0x177c…17b4 Head {h00=0x0034, h01=0x0050, text=»** EXT OFFLNE CREDIT APPLICATION START ADDR =1 «, t00=0x000f, t01=0x0018}
0x17b4…17c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0050}
0x17c2…17f2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000f, t01=0x005e}
0x17f2…17fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008e}
0x17fc…1822 Head {h00=0x0022, h01=0x0050, text=»* START ADDRESS FOR VDU TASK«, t00=0x000f, t01=0x0098}
0x1822…182c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00be}
0x182c…185c Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000f, t01=0x00c8}
0x185c…1864 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00f8}
0x1864…1872 Head {h00=0x000a, h01=0x0050, text=»KBVGO «, t00=0x000f, t01=0x0100}
0x1872…188c Head {h00=0x0016, h01=0x0050, text=» CALL GETTID,TCT01«, t00=0x000f, t01=0x010e}
0x188c…189a Head {h00=0x000a, h01=0x0050, text=»KB050 «, t00=0x000f, t01=0x0128}
0x189a…18b4 Head {h00=0x0016, h01=0x0050, text=» CALL VDUKB,TCT01 «, t00=0x000f, t01=0x0136}
0x18b4…18e0 Head {h00=0x0028, h01=0x0050, text=»** PERF OFFLNE BRANCH TO CREDIT CODE«, t00=0x000f, t01=0x0150}
0x18e0…190e Head {h00=0x002a, h01=0x0050, text=» B KB050 RETURN TO IBM-3270 EMULATION «, t00=0x000f, t01=0x017c}
0x190e…191c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x001a}
0x191c…1952 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0010, t01=0x0028}
0x1952…195c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005e}
0x195c…1988 Head {h00=0x0028, h01=0x0050, text=»* START ADDRESS FOR PRINTER TASK «, t00=0x0010, t01=0x0068}
0x1988…1992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0094}
0x1992…19c8 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0010, t01=0x009e}
0x19c8…19d0 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00d4}
0x19d0…19de Head {h00=0x000a, h01=0x0050, text=»PRTGO «, t00=0x0010, t01=0x00dc}
0x19de…19f8 Head {h00=0x0016, h01=0x0050, text=» CALL GETTID,TCT01«, t00=0x0010, t01=0x00ea}
0x19f8…1a12 Head {h00=0x0016, h01=0x0050, text=» CALL PRINT,TCT01 «, t00=0x0010, t01=0x0104}
0x1a12…1a1e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0010, t01=0x011e}
0x1a1e…1a22 Head {h00=0x4004, h01=0x0000}
0x1a22…1a26 00 10 01 2a ┆ *┆
0x1a26…1a2e (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x1a2e…1a7e (18, 0, 400) 47 20 49 4e 49 54 49 41 54 45 44 20 00 21 01 72 00 22 00 50 2a 20 20 20 20 20 20 20 20 42 49 54 20 31 35 20 3d 30 20 4c 49 4e 45 20 43 4c 4f 53 45 44 00 22 00 14 00 22 00 50 2a 20 20 20 20 20 20 20 20 42 49 54 20 31 35 20 3d 31 20 4c 49 4e ┆G INITIATED ! r " P* BIT 15 =0 LINE CLOSED " " P* BIT 15 =1 LIN┆
0x1a7e…1ace 45 20 4f 50 45 4e 45 44 00 22 00 3a 00 06 00 50 2a 20 00 22 00 60 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 22 00 6a 00 1a 00 50 2a 20 43 48 4c 43 20 52 45 43 45 49 56 45 52 20 53 54 41 54 55 53 00 22 00 84 00 16 ┆E OPENED " : P* " ` P****************** " j P* CHLC RECEIVER STATUS " ┆
0x1ace…1b1e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 22 00 a2 00 06 00 50 2a 20 00 22 00 bc 00 30 00 50 2a 20 20 53 54 41 54 55 53 20 20 3a 2f 30 30 20 4d 4f 44 45 4d 20 52 45 41 44 59 2c 43 41 52 52 49 45 52 20 44 45 54 45 43 54 ┆ P****************** " P* " 0 P* STATUS :/00 MODEM READY,CARRIER DETECT┆
0x1b1e…1b6e 45 44 00 22 00 c6 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 3a 2f 30 31 20 4d 4f 44 45 4d 20 4e 4f 54 20 52 45 41 44 59 20 00 22 00 fa 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 3a 2f 30 32 20 54 48 52 4f 55 47 50 55 54 20 45 52 52 4f ┆ED " $ P* :/01 MODEM NOT READY " $ P* :/02 THROUGPUT ERRO┆
0x1b6e…1bbe 52 20 00 22 01 22 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 3a 2f 32 30 20 43 41 52 52 49 45 52 20 4e 4f 54 20 44 45 54 45 43 54 45 44 00 22 01 4a 00 2e 00 50 2a 20 20 20 20 20 20 20 20 20 20 3a 2f 33 30 30 30 20 49 44 4c 45 20 4f 4e 45 ┆R " " ( P* :/20 CARRIER NOT DETECTED " J . P* :/3000 IDLE ONE┆
0x1bbe…1c0e (19, 0, 400) 2c 41 42 4f 52 54 20 44 45 54 45 43 54 45 44 20 00 22 01 76 00 06 00 50 2a 20 00 23 00 18 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 23 00 22 00 06 00 50 2a 20 00 23 00 3e 00 0a 00 50 5c 45 4a 45 43 54 00 23 ┆,ABORT DETECTED " v P* # P******************* # " P* # > P EJECT #┆
0x1c0e…1c5e 00 48 00 06 00 50 2a 20 00 23 00 56 00 18 00 50 2a 20 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 00 23 00 60 00 06 00 50 2a 20 00 23 00 7c 00 12 00 50 5c 49 46 46 5c 4c 49 4e 45 30 31 3d 30 20 00 23 00 86 00 06 00 50 2a 20 00 23 ┆ H P* # V P* DEVICE WORK TABLE # ` P* # | P IFF LINE01=0 # P* #┆
0x1c5e…1cae 00 9c 00 28 00 50 2a 20 44 57 54 20 46 4f 52 20 4c 49 4e 45 20 30 31 2c 4f 55 54 50 55 54 20 41 4e 44 20 43 4f 4e 54 52 4f 4c 00 23 00 a6 00 06 00 50 2a 20 00 23 00 d2 00 1c 00 50 44 57 38 32 30 32 5c 45 51 55 5c 2a 5c 54 41 42 4c 45 20 45 ┆ ( P* DWT FOR LINE 01,OUTPUT AND CONTROL # P* # PDW8202 EQU * TABLE E┆
0x1cae…1cfe 4e 54 52 59 00 23 00 dc 00 20 00 50 5c 44 41 54 41 5c 44 41 4d 55 30 31 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 00 23 00 fc 00 24 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 53 54 41 54 55 53 2c 44 45 56 49 43 45 20 52 45 41 44 59 20 ┆NTRY # P DATA DAMU01 DEVICE ADDRESS # $ P DATA /8000 STATUS,DEVICE READY ┆
0x1cfe…1d4e 00 23 01 20 00 18 00 50 5c 44 41 54 41 5c 30 5c 45 43 42 20 41 44 44 52 45 53 53 20 00 23 01 48 00 12 00 50 5c 44 41 54 41 5c 30 5c 4f 52 44 45 52 20 00 23 01 64 00 2a 00 50 5c 44 41 54 41 5c 44 52 4d 55 41 44 5c 50 4f 49 4e 54 45 52 20 54 ┆ # P DATA 0 ECB ADDRESS # H P DATA 0 ORDER # d * P DATA DRMUAD POINTER T┆
0x1d4e…1d9e (20, 0, 398) 4f 20 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 20 00 23 01 7a 00 18 00 50 5c 44 41 54 41 5c 30 5c 54 54 41 42 20 41 44 44 52 45 53 53 00 24 00 18 00 1a 00 50 5c 44 41 54 41 5c 30 5c 57 2f 41 20 49 4e 44 49 43 41 54 4f 52 20 00 24 00 34 00 16 ┆O ADDRESS BLOCK # z P DATA 0 TTAB ADDRESS $ P DATA 0 W/A INDICATOR $ 4 ┆
0x1d9e…1dee 00 50 5c 44 41 54 41 5c 30 5c 54 41 53 4b 20 51 55 45 55 45 00 24 00 52 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 24 00 6c 00 20 00 50 5c 44 41 54 41 5c 30 5c 41 44 44 52 45 53 53 20 4f 46 20 55 53 45 52 20 45 43 42 20 00 24 ┆ P DATA 0 TASK QUEUE $ R P IFT MMUPAG=1 $ l P DATA 0 ADDRESS OF USER ECB $┆
0x1dee…1e3e 00 82 00 26 00 50 5c 44 41 54 41 5c 4d 45 43 42 30 32 5c 41 44 44 52 45 53 53 20 4f 46 20 44 52 49 56 45 52 20 45 43 42 00 24 00 a6 00 08 00 50 5c 58 49 46 00 24 00 d0 00 12 00 50 5c 49 46 54 5c 4d 4c 49 4e 30 31 3d 31 20 00 24 00 dc 00 1a ┆ & P DATA MECB02 ADDRESS OF DRIVER ECB $ P XIF $ P IFT MLIN01=1 $ ┆
0x1e3e…1e8e 00 50 5c 44 41 54 41 5c 30 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 00 24 00 f2 00 1a 00 50 5c 44 41 54 41 5c 30 5c 41 43 54 49 56 49 54 59 20 54 49 4d 45 52 00 24 01 10 00 24 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c ┆ P DATA 0 TIMER POINTER $ P DATA 0 ACTIVITY TIMER $ $ P DATA 0,0,0,0,0,0,┆
0x1e8e…1edc 30 2c 30 5c 53 54 41 43 4b 20 42 41 53 45 00 24 01 2e 00 1c 00 50 5c 52 45 53 5c 33 5c 53 41 56 45 20 52 45 47 49 53 54 45 52 20 33 2d 35 00 24 01 56 00 1c 00 50 5c 44 41 54 41 5c 44 57 38 32 30 32 5c 4f 55 54 50 55 54 20 44 57 54 20 ┆0,0 STACK BASE $ . P RES 3 SAVE REGISTER 3-5 $ V P DATA DW8202 OUTPUT DWT ┆