|
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: 7914 (0x1eea)
Notes: pts_type(SC)
Names: »DATBSC.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »UPDATE/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…1898 Head {h00=0x0016, h01=0x0050, text=» CALL GETTID,TCT01«, t00=0x000f, t01=0x0116}
0x1898…18a6 Head {h00=0x000a, h01=0x0050, text=»KB050 «, t00=0x000f, t01=0x0130}
0x18a6…18c0 Head {h00=0x0016, h01=0x0050, text=» CALL VDUKB,TCT01 «, t00=0x000f, t01=0x013e}
0x18c0…18ec Head {h00=0x0028, h01=0x0050, text=»** PERF OFFLNE BRANCH TO CREDIT CODE«, t00=0x000f, t01=0x0158}
0x18ec…191a Head {h00=0x002a, h01=0x0050, text=» B KB050 RETURN TO IBM-3270 EMULATION «, t00=0x000f, t01=0x0184}
0x191a…1928 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0022}
0x1928…195e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0010, t01=0x0030}
0x195e…1968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0066}
0x1968…1994 Head {h00=0x0028, h01=0x0050, text=»* START ADDRESS FOR PRINTER TASK «, t00=0x0010, t01=0x0070}
0x1994…199e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009c}
0x199e…19d4 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0010, t01=0x00a6}
0x19d4…19dc Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00dc}
0x19dc…19ea Head {h00=0x000a, h01=0x0050, text=»PRTGO «, t00=0x0010, t01=0x00e4}
0x19ea…1a04 Head {h00=0x0016, h01=0x0050, text=» CALL GETTID,TCT01«, t00=0x0010, t01=0x00f2}
0x1a04…1a1e Head {h00=0x0016, h01=0x0050, text=» CALL PRINT,TCT01 «, t00=0x0010, t01=0x010c}
0x1a1e…1a2a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0010, t01=0x0126}
0x1a2a…1a2e Head {h00=0x4004, h01=0x0000}
0x1a2e…1a32 00 10 01 32 ┆ 2┆
0x1a32…1a3a (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x1a3a…1a8a (18, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 39 01 66 00 3c 00 50 2a 20 20 20 20 20 20 20 20 53 54 4f 49 4e 46 20 20 20 20 20 20 20 53 54 4f 52 45 20 53 43 52 45 45 4e 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 20 20 20 20 20 20 20 20 2a 00 3a ┆ * 9 f < P* STOINF STORE SCREEN INFORMATION * :┆
0x1a8a…1ada 00 16 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 3a 00 56 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ < P* * : V < P**********┆
0x1ada…1b2a 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 00 3a 00 96 00 10 00 50 2a 5c 5c 52 45 47 49 53 54 45 52 53 00 3a 00 d6 00 06 00 50 2a 20 00 3a 00 ea ┆********************************************** : P* REGISTERS : P* : ┆
0x1b2a…1b7a 00 1a 00 50 2a 5c 41 34 3d 20 52 45 4c 2e 20 43 55 52 53 4f 52 20 50 4f 53 2e 00 3a 00 f4 00 1e 00 50 2a 5c 41 35 3d 20 52 45 4c 2e 20 41 54 54 52 49 42 55 54 45 20 50 4f 53 2e 20 00 3a 01 12 00 1a 00 50 2a 5c 41 36 3d 20 41 54 54 52 49 42 ┆ P* A4= REL. CURSOR POS. : P* A5= REL. ATTRIBUTE POS. : P* A6= ATTRIB┆
0x1b7a…1bca 55 54 45 20 43 48 41 52 2e 20 00 3a 01 34 00 1c 00 50 2a 5c 41 31 31 3d 20 43 52 45 44 49 54 20 57 4f 52 4b 20 41 52 45 41 20 00 3a 01 52 00 14 00 50 2a 5c 41 31 33 3d 20 52 45 53 45 52 56 45 44 20 00 3a 01 72 00 06 00 50 2a 20 00 3a 01 8a ┆UTE CHAR. : 4 P* A11= CREDIT WORK AREA : R P* A13= RESERVED : r P* : ┆
0x1bca…1c1a (19, 0, 400) 00 3c 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 00 3b 00 04 00 10 00 50 53 54 4f 49 4e 46 5c 45 51 55 5c 2a ┆ < P******************************************************** ; PSTOINF EQU *┆
0x1c1a…1c6a 00 3b 00 44 00 14 00 50 5c 53 54 5c 41 34 2c 50 43 55 52 53 2c 41 31 31 00 3b 00 58 00 16 00 50 5c 53 54 5c 41 35 2c 43 55 52 41 54 54 2c 41 31 31 20 00 3b 00 70 00 16 00 50 5c 53 54 5c 41 36 2c 41 54 54 52 49 42 2c 41 31 31 20 00 3b 00 8a ┆ ; D P ST A4,PCURS,A11 ; X P ST A5,CURATT,A11 ; p P ST A6,ATTRIB,A11 ; ┆
0x1c6a…1cba 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 3b 00 a4 00 0a 00 50 5c 45 4a 45 43 54 00 3b 00 b4 00 3c 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 ┆ P RTN A14 ; P EJECT ; < P**********************************************┆
0x1cba…1d0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 3b 00 c2 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 3b 01 02 00 3c ┆********* ; < P* * ; <┆
0x1d0a…1d5a 00 50 2a 20 20 20 20 20 20 20 20 53 4f 55 4e 44 20 20 20 20 20 20 20 53 4f 55 4e 44 20 41 4c 41 52 4d 20 4f 4e 20 56 44 55 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 3b 01 42 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P* SOUND SOUND ALARM ON VDU * ; B < P* ┆
0x1d5a…1daa (20, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 3b 01 82 00 3c 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 ┆ * ; < P******************************┆
0x1daa…1dfa 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 3c 00 32 00 10 00 50 2a 5c 5c 52 45 47 49 53 54 45 52 53 00 3c 00 72 00 06 00 50 2a 20 00 3c 00 86 00 16 00 50 2a 5c 41 31 3d 20 52 45 54 55 52 4e 20 43 4f 44 ┆************************* < 2 P* REGISTERS < r P* < P* A1= RETURN COD┆
0x1dfa…1e4a 45 20 00 3c 00 90 00 10 00 50 2a 5c 41 38 3d 20 45 43 42 56 44 55 00 3c 00 aa 00 1c 00 50 2a 5c 41 31 31 3d 20 43 52 45 44 49 54 20 57 4f 52 4b 20 41 52 45 41 20 00 3c 00 be 00 14 00 50 2a 5c 41 31 33 3d 20 52 45 53 45 52 56 45 44 20 00 3c ┆E < P* A8= ECBVDU < P* A11= CREDIT WORK AREA < P* A13= RESERVED <┆
0x1e4a…1e9a 00 de 00 06 00 50 2a 20 00 3c 00 f6 00 3c 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 20 00 3c 01 00 00 10 00 50 ┆ P* < < P******************************************************* < P┆
0x1e9a…1eea 53 4f 55 4e 44 5c 45 51 55 5c 2a 20 00 3c 01 40 00 16 00 50 5c 4c 44 5c 41 38 2c 45 43 42 56 44 55 2c 41 31 31 20 00 3c 01 54 00 14 00 50 5c 4c 44 5c 41 31 2c 45 43 42 42 41 2c 41 38 20 00 3c 01 6e 00 1e 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 ┆SOUND EQU * < @ P LD A8,ECBVDU,A11 < T P LD A1,ECBBA,A8 < n P LDK A2,/2┆