|
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: 7734 (0x1e36)
Notes: pts_type(SC)
Names: »DATBSC.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PT3272/DATBSC.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PT3272/DATBSC.SC«
IDENT DATBSC REL 11.0 82-07-07 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=256 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=256 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 * PRCCCT 4X PRINTER CONTROL CHAR. COUNTER * PRBA 4X PRINTER BUFFER ADDRESS =24 * PRLMAR 4X LEFT MARGIN FOR PRINTER =24 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 82-07-07 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=256 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=256 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…12be Head {h00=0x002e, h01=0x0050, text=»* PRCCCT 4X PRINTER CONTROL CHAR. COUNTER «, t00=0x000b, t01=0x0162}
0x12be…12ea (12, 0, 398) Head {h00=0x0028, h01=0x0050, text=»* PRBA 4X PRINTER BUFFER ADDRESS =24«, t00=0x000c, t01=0x0004}
0x12ea…131a Head {h00=0x002c, h01=0x0050, text=»* PRLMAR 4X LEFT MARGIN FOR PRINTER =24 «, t00=0x000c, t01=0x0030}
0x131a…1328 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0060}
0x1328…1372 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x000c, t01=0x006e}
0x1372…13bc Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x000c, t01=0x00b8}
0x13bc…1406 Head {h00=0x0046, h01=0x0050, text=»* COMMON WORK AREA FOR ALL TASKS *«, t00=0x000c, t01=0x0102}
0x1406…1450 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x000c, t01=0x014c}
0x1450…149a Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x000d, t01=0x0008}
0x149a…14aa Head {h00=0x000c, h01=0x0050, text=»CB1 BLK «, t00=0x000d, t01=0x0052}
0x14aa…14b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0062}
0x14b4…14e8 Head {h00=0x0030, h01=0x0050, text=»MF1CU STRG X'4142' SYMBOLIC CLUSTER ADDRESS «, t00=0x000d, t01=0x006c}
0x14e8…151a Head {h00=0x002e, h01=0x0050, text=»MF2CU STRG X'4344' SYMBOLIC CLUSTER ADDR. «, t00=0x000d, t01=0x00a0}
0x151a…1558 Head {h00=0x003a, h01=0x0050, text=»IDTEXT STRG 22'IDENT NOT OPERABLE ' IDENT KEY TEXT«, t00=0x000d, t01=0x00d2}
0x1558…158e Head {h00=0x0032, h01=0x0050, text=»***STATXT STRG 15'DTE ADDRESS ' STAT LAYOUT«, t00=0x000d, t01=0x0110}
0x158e…15b4 Head {h00=0x0022, h01=0x0050, text=»***SA STRG 15'STAT OVERFLOW '«, t00=0x000d, t01=0x0146}
0x15b4…15da Head {h00=0x0022, h01=0x0050, text=»***SB STRG 15'PRO REC BLOCKS '«, t00=0x000d, t01=0x016c}
0x15da…1600 (14, 0, 400) Head {h00=0x0022, h01=0x0050, text=»***SC STRG 15'PRO REC REJ-BSY'«, t00=0x000e, t01=0x0004}
0x1600…1626 Head {h00=0x0022, h01=0x0050, text=»***SD STRG 15'PRO REC REJ-OVF'«, t00=0x000e, t01=0x002a}
0x1626…164c Head {h00=0x0022, h01=0x0050, text=»***SE STRG 15'PRO REC REJ-PAR'«, t00=0x000e, t01=0x0050}
0x164c…1672 Head {h00=0x0022, h01=0x0050, text=»***SF STRG 15'PRO SND BLOCKS '«, t00=0x000e, t01=0x0076}
0x1672…1698 Head {h00=0x0022, h01=0x0050, text=»***SG STRG 15'PRO SND RESND '«, t00=0x000e, t01=0x009c}
0x1698…16be Head {h00=0x0022, h01=0x0050, text=»***SH STRG 15'PRO PROC-TIMOUT'«, t00=0x000e, t01=0x00c2}
0x16be…16e4 Head {h00=0x0022, h01=0x0050, text=»***SI STRG 15'PRO POLL-TIMOUT'«, t00=0x000e, t01=0x00e8}
0x16e4…170a Head {h00=0x0022, h01=0x0050, text=»***SJ STRG 15'DTE REC ERROR '«, t00=0x000e, t01=0x010e}
0x170a…1740 Head {h00=0x0032, h01=0x0050, text=»***SK STRG 30'DTE SND ERROR DCE ERROR ' «, t00=0x000e, t01=0x0134}
0x1740…1772 Head {h00=0x002e, h01=0x0050, text=»TSKTAB STRG 256X'0' TASK TABLE WITH STATUS«, t00=0x000e, t01=0x016a}
0x1772…1798 Head {h00=0x0022, h01=0x0050, text=»ENDTAB STRG 4X'FFFF' END MARK «, t00=0x000f, t01=0x000c}
0x1798…17a6 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x000f, t01=0x0032}
0x17a6…17b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0040}
0x17b0…17e6 Head {h00=0x0032, h01=0x0050, text=»* ENTRY POINTS AND EXTERNAL REFERENCES «, t00=0x000f, t01=0x004a}
0x17e6…17f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0080}
0x17f0…1804 Head {h00=0x0010, h01=0x0050, text=» ENTRY KBVGO«, t00=0x000f, t01=0x008a}
0x1804…1818 Head {h00=0x0010, h01=0x0050, text=» ENTRY PRTGO«, t00=0x000f, t01=0x009e}
0x1818…182a Head {h00=0x000e, h01=0x0050, text=» EXT VDUKB«, t00=0x000f, t01=0x00b2}
0x182a…183c Head {h00=0x000e, h01=0x0050, text=» EXT PRINT«, t00=0x000f, t01=0x00c4}
0x183c…1862 Head {h00=0x0022, h01=0x0050, text=» EXT GETTID GET TASK IDENTITY «, t00=0x000f, t01=0x00d6}
0x1862…1898 Head {h00=0x0032, h01=0x0050, text=»* EXT OFFLNE CREDIT APPLICATION START ADDRESS «, t00=0x000f, t01=0x00fc}
0x1898…18a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0132}
0x18a6…18d6 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000f, t01=0x0140}
0x18d6…18e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0170}
0x18e0…1906 Head {h00=0x0022, h01=0x0050, text=»* START ADDRESS FOR VDU TASK«, t00=0x000f, t01=0x017a}
0x1906…1910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0010}
0x1910…1940 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0010, t01=0x001a}
0x1940…1948 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x004a}
0x1948…1956 Head {h00=0x000a, h01=0x0050, text=»KBVGO «, t00=0x0010, t01=0x0052}
0x1956…1972 Head {h00=0x0018, h01=0x0050, text=» CALL GETTID,TCT01 «, t00=0x0010, t01=0x0060}
0x1972…1980 Head {h00=0x000a, h01=0x0050, text=»KB050 «, t00=0x0010, t01=0x007c}
0x1980…199a Head {h00=0x0016, h01=0x0050, text=» CALL VDUKB,TCT01 «, t00=0x0010, t01=0x008a}
0x199a…19c6 Head {h00=0x0028, h01=0x0050, text=»* PERF OFFLNE BRANCH TO CREDIT CODE «, t00=0x0010, t01=0x00a4}
0x19c6…19f4 Head {h00=0x002a, h01=0x0050, text=» B KB050 RETURN TO IBM-3270 EMULATION «, t00=0x0010, t01=0x00d0}
0x19f4…1a02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00fe}
0x1a02…1a38 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0010, t01=0x010c}
0x1a38…1a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0142}
0x1a42…1a6e Head {h00=0x0028, h01=0x0050, text=»* START ADDRESS FOR PRINTER TASK «, t00=0x0010, t01=0x014c}
0x1a6e…1a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0178}
0x1a78…1aae Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0010, t01=0x0182}
0x1aae…1ab6 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0028}
0x1ab6…1ac4 Head {h00=0x000a, h01=0x0050, text=»PRTGO «, t00=0x0011, t01=0x0030}
0x1ac4…1ae0 Head {h00=0x0018, h01=0x0050, text=» CALL GETTID,TCT01 «, t00=0x0011, t01=0x003e}
0x1ae0…1afa Head {h00=0x0016, h01=0x0050, text=» CALL PRINT,TCT01 «, t00=0x0011, t01=0x005a}
0x1afa…1b06 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0011, t01=0x0074}
0x1b06…1b0a Head {h00=0x4004, h01=0x0000}
0x1b0a…1b0e 00 11 00 80 ┆ ┆
0x1b0e…1b16 (18, 1, 8) 20 04 00 00 00 12 00 04 ┆ ┆
0x1b16…1b66 (19, 0, 400) 00 32 00 50 5c 41 4e 4b 4c 5c 41 31 30 2c 2f 46 46 46 46 2d 4e 58 54 43 48 41 5c 52 45 53 45 54 20 54 41 4b 45 20 4e 45 58 54 20 43 48 41 52 5c 3d 33 00 33 00 04 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 31 20 00 33 00 3a 00 0e 00 50 5c 41 44 4b ┆ 2 P ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3 3 P ADK A3,1 3 : P ADK┆
0x1b66…1bb6 5c 41 34 2c 31 20 00 33 00 4c 00 0e 00 50 5c 52 42 5c 43 4f 50 32 30 30 00 33 00 5e 00 10 00 50 43 4f 50 38 35 30 5c 45 51 55 5c 2a 00 33 00 70 00 18 00 50 5c 49 46 46 5c 42 41 53 57 52 49 3d 31 5c 2e 5c 3d 32 34 20 00 33 00 84 00 28 00 50 ┆ A4,1 3 L P RB COP200 3 ^ PCOP850 EQU * 3 p P IFF BASWRI=1 . =24 3 ( P┆
0x1bb6…1c06 5c 4c 44 52 5c 41 39 2c 41 39 5c 53 4f 4d 45 54 48 49 4e 47 20 4c 45 46 54 20 54 4f 20 50 52 49 4e 54 3f 20 00 33 00 a0 00 1a 00 50 5c 52 46 28 5a 29 5c 43 4f 50 39 35 30 5c 4e 4f 21 5c 3d 31 39 20 00 33 00 cc 00 22 00 50 5c 43 46 5c 41 31 ┆ LDR A9,A9 SOMETHING LEFT TO PRINT? 3 P RF(Z) COP950 NO! =19 3 " P CF A1┆
0x1c06…1c56 34 2c 50 52 4c 49 4e 45 5c 50 52 49 4e 54 20 4c 41 53 54 20 4c 49 4e 45 00 33 00 ea 00 20 00 50 5c 41 4e 4b 4c 5c 41 31 30 2c 45 4e 44 50 52 54 5c 45 4e 44 20 4d 45 53 53 2e 3f 20 00 33 01 10 00 1c 00 50 5c 52 46 28 5a 29 5c 43 4f 50 39 30 ┆4,PRLINE PRINT LAST LINE 3 P ANKL A10,ENDPRT END MESS.? 3 P RF(Z) COP90┆
0x1c56…1ca6 30 5c 4e 4f 20 53 54 4f 50 20 49 54 00 33 01 34 00 28 00 50 5c 4f 52 4b 4c 5c 41 31 30 2c 4e 54 4f 4e 4c 59 5c 49 4e 44 49 43 41 54 45 20 50 52 49 4e 54 41 42 4c 45 20 00 33 01 54 00 22 00 50 5c 43 46 5c 41 31 34 2c 50 52 4c 49 4e 45 5c 45 ┆0 NO STOP IT 3 4 ( P ORKL A10,NTONLY INDICATE PRINTABLE 3 T " P CF A14,PRLINE E┆
0x1ca6…1cf6 (20, 0, 400) 58 54 52 41 20 4c 49 4e 45 20 46 45 45 44 00 33 01 80 00 10 00 50 5c 58 49 46 5c 5c 2e 5c 3d 32 34 20 00 34 00 16 00 18 00 50 5c 49 46 54 5c 42 41 53 57 52 49 3d 31 5c 2e 5c 3d 32 34 20 00 34 00 2a 00 2c 00 50 5c 4c 44 52 5c 41 39 2c 41 39 ┆XTRA LINE FEED 3 P XIF . =24 4 P IFT BASWRI=1 . =24 4 * , P LDR A9,A9┆
0x1cf6…1d46 5c 53 4f 4d 45 20 54 45 58 54 20 4c 45 46 54 20 54 4f 20 50 52 49 4e 54 3f 5c 3d 32 34 20 00 34 00 46 00 1a 00 50 5c 52 46 28 5a 29 5c 43 4f 50 38 36 30 5c 4e 4f 21 5c 3d 32 34 20 00 34 00 76 00 22 00 50 5c 43 46 5c 41 31 34 2c 50 52 4c 49 ┆ SOME TEXT LEFT TO PRINT? =24 4 F P RF(Z) COP860 NO! =24 4 v " P CF A14,PRLI┆
0x1d46…1d96 4e 45 5c 50 52 49 4e 54 20 54 45 58 54 5c 3d 32 34 20 00 34 00 94 00 16 00 50 43 4f 50 38 36 30 5c 45 51 55 5c 2a 5c 2e 5c 3d 32 34 00 34 00 ba 00 14 00 50 5c 49 46 46 5c 53 43 53 3d 31 5c 2e 5c 3d 32 36 00 34 00 d4 00 24 00 50 5c 41 4e 4b ┆NE PRINT TEXT =24 4 PCOP860 EQU * . =24 4 P IFF SCS=1 . =26 4 $ P ANK┆
0x1d96…1de6 4c 5c 41 31 30 2c 45 4e 44 50 52 54 5c 45 4e 44 20 4d 45 53 53 2e 3f 5c 3d 32 34 20 00 34 00 ec 00 1a 00 50 5c 52 46 28 5a 29 5c 43 4f 50 38 37 30 5c 4e 4f 21 5c 3d 32 34 20 00 34 01 14 00 2c 00 50 5c 4f 52 4b 4c 5c 41 31 30 2c 4e 54 4f 4e ┆L A10,ENDPRT END MESS.? =24 4 P RF(Z) COP870 NO! =24 4 , P ORKL A10,NTON┆
0x1de6…1e36 4c 59 5c 49 4e 44 49 43 41 54 45 20 50 52 49 4e 54 41 42 4c 45 5c 3d 32 34 20 00 34 01 32 00 26 00 50 5c 43 46 5c 41 31 34 2c 50 52 4c 49 4e 45 5c 45 58 54 52 41 20 4c 49 4e 45 46 45 45 44 5c 3d 32 34 20 00 34 01 62 00 10 00 50 5c 58 49 46 ┆LY INDICATE PRINTABLE =24 4 2 & P CF A14,PRLINE EXTRA LINEFEED =24 4 b P XIF┆