|
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: 7866 (0x1eba)
Notes: pts_type(SC)
Names: »BASPCT.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/BASPCT.SC«
IDENT BASPCT TERMINAL SPECIFICATION
DDUM DEMODD
PDIV
EXPROC CASTTS
EXPROC CBSTTS
EXPROC XBFMT
EXPROC ZBCLSD
EXPROC ZKOPNF
EXPROC ZAOPND
EXPROC ZLCLSF
EXPROC TNDOPN
ENTRY BASPCT
ENTRY SPAP15
ENTRY SPAP31
*********************************************************************
*
* TERMINAL SPECIFICATION
*
************************************************************************
BASPCT PROC
*
* KEY 2 IS ON
* RDSTATUS = 0 AND YDSTATUS = 0 OR 2
*
BA000
TBF SBFT80,BA010 NO COMPACT TERMINAL
CBNE YDSTATUS,=D'2',BA000 SYSTEM NOT STARTED
MOVE SPLSTLNE,=D'2'
MOVE RDSCRLNS,=D'1'
MOVE RDALFKB,=D'0'
MOVE RDPRTTYP,=D'1'
MOVE RDBCR,=D'1'
PERF ZKOPNF OPEN FORMATFILE
TBT SBCANCEL,BA800
PERF ZAOPND OPEN DATABASE
TBT SBCANCEL,BA800
MOVE NDTRMLGG,YDSYSLGG INIT LANGUAGE
MOVE IDNR1,=D'6'
B BA200
BA010
* *
* INITIALISE SCREEN PARAMETERS*
* *
0x0000…0046 (0, 0, 400) Head {h00=0x0042, h01=0x0050, text=» IDENT BASPCT TERMINAL SPECIFICATION«, t00=0x0000, t01=0x0004}
0x0046…005a Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x004a}
0x005a…0068 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x005e}
0x0068…007e Head {h00=0x0012, h01=0x0050, text=» EXPROC CASTTS«, t00=0x0000, t01=0x006c}
0x007e…0094 Head {h00=0x0012, h01=0x0050, text=» EXPROC CBSTTS«, t00=0x0000, t01=0x0082}
0x0094…00aa Head {h00=0x0012, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x0098}
0x00aa…00c0 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZBCLSD«, t00=0x0000, t01=0x00ae}
0x00c0…00d6 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZKOPNF«, t00=0x0000, t01=0x00c4}
0x00d6…00ec Head {h00=0x0012, h01=0x0050, text=» EXPROC ZAOPND«, t00=0x0000, t01=0x00da}
0x00ec…0102 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZLCLSF«, t00=0x0000, t01=0x00f0}
0x0102…0118 Head {h00=0x0012, h01=0x0050, text=» EXPROC TNDOPN«, t00=0x0000, t01=0x0106}
0x0118…012e Head {h00=0x0012, h01=0x000d, text=» ENTRY BASPCT «, t00=0x0000, t01=0x011c}
0x012e…0144 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP15 «, t00=0x0000, t01=0x0132}
0x0144…015a Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP31 «, t00=0x0000, t01=0x0148}
0x015a…01a8 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0000, t01=0x015e}
0x01a8…01b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001c}
0x01b2…01d4 Head {h00=0x001e, h01=0x0050, text=»* TERMINAL SPECIFICATION«, t00=0x0001, t01=0x0026}
0x01d4…01de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0048}
0x01de…022e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x0052}
0x022e…0242 Head {h00=0x0010, h01=0x000b, text=»BASPCT PROC «, t00=0x0001, t01=0x00a2}
0x0242…024c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b6}
0x024c…0262 Head {h00=0x0012, h01=0x0050, text=»* KEY 2 IS ON «, t00=0x0001, t01=0x00c0}
0x0262…028e Head {h00=0x0028, h01=0x0050, text=»* RDSTATUS = 0 AND YDSTATUS = 0 OR 2«, t00=0x0001, t01=0x00d6}
0x028e…0298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x0298…02a6 Head {h00=0x000a, h01=0x0005, text=»BA000 «, t00=0x0001, t01=0x010c}
0x02a6…02d4 Head {h00=0x002a, h01=0x0050, text=» TBF SBFT80,BA010 NO COMPACT TERMINAL «, t00=0x0001, t01=0x011a}
0x02d4…030a Head {h00=0x0032, h01=0x0050, text=» CBNE YDSTATUS,=D'2',BA000 SYSTEM NOT STARTED «, t00=0x0001, t01=0x0148}
0x030a…0326 Head {h00=0x0018, h01=0x0050, text=» MOVE SPLSTLNE,=D'2'«, t00=0x0001, t01=0x017e}
0x0326…0342 Head {h00=0x0018, h01=0x0050, text=» MOVE RDSCRLNS,=D'1'«, t00=0x0002, t01=0x000a}
0x0342…035e Head {h00=0x0018, h01=0x0050, text=» MOVE RDALFKB,=D'0' «, t00=0x0002, t01=0x0026}
0x035e…037a Head {h00=0x0018, h01=0x0050, text=» MOVE RDPRTTYP,=D'1'«, t00=0x0002, t01=0x0042}
0x037a…0394 Head {h00=0x0016, h01=0x0050, text=» MOVE RDBCR,=D'1' «, t00=0x0002, t01=0x005e}
0x0394…03b8 Head {h00=0x0020, h01=0x0050, text=» PERF ZKOPNF OPEN FORMATFILE«, t00=0x0002, t01=0x0078}
0x03b8…03d4 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,BA800 «, t00=0x0002, t01=0x009c}
0x03d4…03f6 Head {h00=0x001e, h01=0x0050, text=» PERF ZAOPND OPEN DATABASE«, t00=0x0002, t01=0x00b8}
0x03f6…0412 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,BA800 «, t00=0x0002, t01=0x00da}
0x0412…0440 Head {h00=0x002a, h01=0x0050, text=» MOVE NDTRMLGG,YDSYSLGG INIT LANGUAGE «, t00=0x0002, t01=0x00f6}
0x0440…045a Head {h00=0x0016, h01=0x0050, text=» MOVE IDNR1,=D'6' «, t00=0x0002, t01=0x0124}
0x045a…046a Head {h00=0x000c, h01=0x0050, text=» B BA200«, t00=0x0002, t01=0x013e}
0x046a…0478 Head {h00=0x000a, h01=0x0050, text=»BA010 «, t00=0x0002, t01=0x014e}
0x0478…04c8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x015c}
0x04c8…0518 Head {h00=0x004c, h01=0x0050, text=»* INITIALISE SCREEN PARAMETERS *«, t00=0x0003, t01=0x001c}
0x0518…0568 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x006c}
0x0568…056c Head {h00=0x0054, h01=0x0050}
0x056c…0570 Head {h00=0x5c4d, h01=0x4f56}
0x0570…05a0 45 5c 52 44 53 43 52 4c 4e 53 2c 3d 44 27 31 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆E RDSCRLNS,=D'1' ┆
0x05a0…05f0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 00 bc 00 54 00 50 5c 4d 4f 56 45 5c 53 50 4c 53 54 4c 4e 45 2c 3d 44 27 31 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T P MOVE SPLSTLNE,=D'1' ┆
0x05f0…0640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 01 14 00 2c 00 50 20 43 42 45 20 59 44 53 54 41 54 55 53 2c 3d 44 27 32 27 2c 42 41 31 30 30 5c 53 59 53 54 45 4d 20 53 54 41 ┆ , P CBE YDSTATUS,=D'2',BA100 SYSTEM STA┆
0x0640…0690 (4, 0, 400) 52 54 45 44 00 03 01 6c 00 06 00 50 2a 20 00 04 00 0c 00 1c 00 50 2a 20 53 59 53 54 45 4d 20 53 54 41 52 54 20 2d 20 50 41 52 54 20 31 20 00 04 00 16 00 06 00 50 2a 20 00 04 00 36 00 2c 00 50 20 50 45 52 46 20 43 41 53 54 54 53 5c 47 45 54 ┆RTED l P* P* SYSTEM START - PART 1 P* 6 , P PERF CASTTS GET┆
0x0690…06e0 20 4c 41 4e 47 55 41 47 45 20 2b 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 53 00 04 00 40 00 18 00 50 20 54 42 54 20 53 42 43 41 4e 43 45 4c 2c 42 41 39 30 30 20 00 04 00 70 00 0a 00 05 42 41 31 30 30 20 00 04 00 8c 00 06 00 50 2a 20 00 04 00 9a ┆ LANGUAGE + VOLUME NAMES @ P TBT SBCANCEL,BA900 p BA100 P* ┆
0x06e0…0730 00 1c 00 50 2a 20 54 45 52 4d 49 4e 41 4c 20 53 50 45 43 49 46 49 43 41 54 49 4f 4e 00 04 00 a4 00 06 00 50 2a 20 00 04 00 c4 00 20 00 50 5c 50 45 52 46 5c 5a 4b 4f 50 4e 46 5c 4f 50 45 4e 20 46 4f 52 4d 41 54 46 49 4c 45 00 04 00 ce 00 18 ┆ P* TERMINAL SPECIFICATION P* P PERF ZKOPNF OPEN FORMATFILE ┆
0x0730…0780 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 42 41 38 30 30 20 00 04 00 f2 00 1e 00 50 5c 50 45 52 46 5c 5a 41 4f 50 4e 44 5c 4f 50 45 4e 20 44 41 54 41 42 41 53 45 00 04 01 0e 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 42 41 ┆ P TBT SBCANCEL,BA800 P PERF ZAOPND OPEN DATABASE P TBT SBCANCEL,BA┆
0x0780…07d0 38 30 30 20 00 04 01 30 00 2a 00 50 5c 4d 4f 56 45 5c 4e 44 54 52 4d 4c 47 47 2c 59 44 53 59 53 4c 47 47 5c 49 4e 49 54 20 4c 41 4e 47 55 41 47 45 20 00 04 01 4c 00 20 00 50 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 49 44 4e 52 31 ┆800 0 * P MOVE NDTRMLGG,YDSYSLGG INIT LANGUAGE L P MOVE IDNR1┆
0x07d0…0820 (5, 0, 400) 2c 3d 44 27 36 27 00 04 01 7a 00 24 00 50 20 50 45 52 46 20 58 42 46 4d 54 2c 3d 57 27 31 31 27 5c 44 49 53 50 4c 41 59 20 54 59 50 45 20 00 05 00 0e 00 18 00 50 20 54 42 54 20 53 42 43 41 4e 43 45 4c 2c 42 41 38 30 30 20 00 05 00 36 00 06 ┆,=D'6' z $ P PERF XBFMT,=W'11' DISPLAY TYPE P TBT SBCANCEL,BA800 6 ┆
0x0820…0870 00 50 2a 20 00 05 00 52 00 38 00 50 2a 20 43 41 4c 43 55 4c 41 54 45 20 4e 55 4d 42 45 52 20 4f 46 20 41 56 41 49 4c 41 42 4c 45 20 4c 49 4e 45 53 20 4f 4e 20 54 48 45 20 53 43 52 45 45 4e 20 00 05 00 5c 00 06 00 50 2a 20 00 05 00 98 00 24 ┆ P* R 8 P* CALCULATE NUMBER OF AVAILABLE LINES ON THE SCREEN P* $┆
0x0870…08c0 00 50 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 53 50 4c 53 54 4c 4e 45 2c 49 44 4e 52 31 20 00 05 00 a2 00 18 00 50 5c 4d 4f 56 45 5c 52 44 53 43 52 4c 4e 53 2c 49 44 4e 52 31 00 05 00 ca 00 2c 00 50 5c 43 42 45 5c 52 44 53 43 52 ┆ P MOVE SPLSTLNE,IDNR1 P MOVE RDSCRLNS,IDNR1 , P CBE RDSCR┆
0x08c0…0910 4c 4e 53 2c 3d 44 27 31 27 2c 42 41 32 30 30 5c 53 43 52 45 45 4e 20 49 53 20 41 44 38 35 00 05 00 e6 00 18 00 50 5c 53 55 42 5c 52 44 53 43 52 4c 4e 53 2c 3d 44 27 31 27 20 00 05 01 16 00 0a 00 50 42 41 32 30 30 20 00 05 01 32 00 18 00 50 ┆LNS,=D'1',BA200 SCREEN IS AD85 P SUB RDSCRLNS,=D'1' PBA200 2 P┆
0x0910…0960 20 41 44 44 20 4e 44 4c 41 53 54 52 4d 2c 3d 44 27 31 27 20 00 05 01 40 00 1a 00 50 20 4d 4f 56 45 20 4e 44 54 52 4d 4e 52 2c 4e 44 4c 41 53 54 52 4d 00 05 01 5c 00 1a 00 50 20 4d 4f 56 45 20 52 44 54 52 4d 52 4e 52 2c 4e 44 54 52 4d 4e 52 ┆ ADD NDLASTRM,=D'1' @ P MOVE NDTRMNR,NDLASTRM P MOVE RDTRMRNR,NDTRMNR┆
0x0960…09b0 (6, 0, 398) 00 05 01 7a 00 26 00 50 20 4d 55 4c 20 52 44 54 52 4d 52 4e 52 2c 4b 44 53 48 49 46 54 5c 53 48 49 46 54 20 4e 55 4d 42 45 52 00 06 00 08 00 16 00 50 5c 54 42 54 5c 53 42 46 54 38 30 2c 42 41 38 35 30 20 00 06 00 32 00 2e 00 50 20 50 45 52 ┆ z & P MUL RDTRMRNR,KDSHIFT SHIFT NUMBER P TBT SBFT80,BA850 2 . P PER┆
0x09b0…0a00 46 20 58 42 46 4d 54 2c 3d 57 27 31 33 27 5c 54 45 52 4d 49 4e 41 4c 20 53 50 45 43 49 46 49 43 41 54 49 4f 4e 20 00 06 00 4c 00 18 00 50 20 54 42 54 20 53 42 43 41 4e 43 45 4c 2c 42 41 38 30 30 20 00 06 00 7e 00 2c 00 50 20 4d 4f 56 45 20 ┆F XBFMT,=W'13' TERMINAL SPECIFICATION L P TBT SBCANCEL,BA800 ~ , P MOVE ┆
0x0a00…0a50 52 44 53 54 41 54 55 53 2c 3d 44 27 31 27 5c 54 45 52 4d 49 4e 41 4c 20 53 50 45 43 49 46 49 45 44 20 00 06 00 9a 00 0a 00 50 42 41 32 35 30 20 00 06 00 ca 00 06 00 50 2a 20 00 06 00 d8 00 1c 00 50 5c 43 42 4e 45 5c 52 44 42 43 52 2c 3d 44 ┆RDSTATUS,=D'1' TERMINAL SPECIFIED PBA250 P* P CBNE RDBCR,=D┆
0x0a50…0aa0 27 32 27 2c 42 41 33 30 30 20 00 06 00 e2 00 24 00 50 5c 53 45 54 5c 53 42 4d 53 55 5c 4d 41 47 4e 45 54 49 43 20 53 54 52 49 50 45 20 55 4e 49 54 20 00 06 01 02 00 0a 00 50 42 41 33 30 30 20 00 06 01 2a 00 1c 00 50 5c 43 42 4e 45 5c 52 44 ┆'2',BA300 $ P SET SBMSU MAGNETIC STRIPE UNIT PBA300 * P CBNE RD┆
0x0aa0…0aee 43 4f 50 59 2c 3d 44 27 31 27 2c 42 41 34 30 30 00 06 01 38 00 28 00 50 5c 53 45 54 5c 53 42 43 50 38 30 5c 48 41 52 44 43 4f 50 59 20 50 52 49 4e 54 45 52 20 41 56 41 49 4c 2e 20 00 06 01 58 00 0a 00 50 42 41 34 30 30 20 00 06 01 84 ┆COPY,=D'1',BA400 8 ( P SET SBCP80 HARDCOPY PRINTER AVAIL. X PBA400 ┆
0x0aee…0b3e (7, 0, 400) 00 1c 00 50 5c 43 42 4e 45 5c 52 44 54 4e 44 2c 3d 44 27 31 27 2c 42 41 35 30 30 20 00 07 00 04 00 1a 00 50 5c 53 45 54 5c 53 42 54 4e 44 5c 54 4e 44 20 50 52 45 53 45 4e 54 00 07 00 24 00 04 00 50 00 07 00 42 00 06 00 50 2a 20 00 07 00 4a ┆ P CBNE RDTND,=D'1',BA500 P SET SBTND TND PRESENT $ P B P* J┆
0x0b3e…0b8e 00 42 00 50 2a 20 54 4e 44 20 53 54 41 52 54 20 20 2d 20 20 4c 4f 41 44 20 43 41 53 53 45 54 54 45 53 20 41 4e 44 20 47 45 54 20 41 4d 4f 55 4e 54 20 50 45 52 20 44 45 4e 4f 4d 49 4e 41 54 49 4f 4e 00 07 00 54 00 06 00 50 2a 20 00 07 00 9a ┆ B P* TND START - LOAD CASSETTES AND GET AMOUNT PER DENOMINATION T P* ┆
0x0b8e…0bde 00 10 00 50 5c 50 45 52 46 5c 54 4e 44 4f 50 4e 00 07 00 a4 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 42 41 38 30 30 20 00 07 00 b8 00 0a 00 50 42 41 35 30 30 20 00 07 00 d4 00 1a 00 50 2a 20 45 4e 44 20 4f 46 20 54 45 52 4d 49 ┆ P PERF TNDOPN P TBT SBCANCEL,BA800 PBA500 P* END OF TERMI┆
0x0bde…0c2e 4e 41 4c 20 53 50 45 43 00 07 00 e2 00 06 00 50 2a 20 00 07 01 00 00 2c 00 50 20 43 42 45 20 59 44 53 54 41 54 55 53 2c 3d 44 27 32 27 2c 42 41 39 39 39 5c 53 59 53 54 45 4d 20 53 54 41 52 54 45 44 00 07 01 0a 00 06 00 01 2a 20 00 07 01 3a ┆NAL SPEC P* , P CBE YDSTATUS,=D'2',BA999 SYSTEM STARTED * :┆
0x0c2e…0c7e 00 1c 00 50 2a 20 53 59 53 54 45 4d 20 53 54 41 52 54 20 2d 20 50 41 52 54 20 32 20 00 07 01 44 00 06 00 01 2a 20 00 07 01 64 00 10 00 50 20 50 45 52 46 20 43 42 53 54 54 53 00 07 01 6e 00 4c 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c ┆ P* SYSTEM START - PART 2 D * d P PERF CBSTTS n L P TBT SBCANCEL,┆
0x0c7e…0cce (8, 0, 400) 42 41 39 30 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 01 82 00 4c 00 50 5c 42 5c 42 41 39 39 39 5c 5c 5c 00 00 00 ┆BA900 L P B BA999 ┆
0x0cce…0d1e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 42 00 06 00 50 2a 20 00 08 00 92 00 3a 00 50 2a 20 43 41 ┆ B P* : P* CA┆
0x0d1e…0d6e 4e 43 45 4c 20 45 58 49 54 2c 20 49 46 20 54 48 49 53 20 54 45 52 4d 49 4e 41 4c 20 49 53 20 53 54 41 52 54 49 4e 47 20 54 48 45 20 53 59 53 54 45 4d 00 08 00 9c 00 34 00 50 2a 20 20 20 20 52 45 53 54 4f 52 45 20 53 59 53 54 45 4d 20 53 54 ┆NCEL EXIT, IF THIS TERMINAL IS STARTING THE SYSTEM 4 P* RESTORE SYSTEM ST┆
0x0d6e…0dbe 41 54 55 53 20 41 4e 44 20 43 4c 4f 53 45 20 46 49 4c 45 53 20 41 47 41 49 4e 00 08 00 da 00 06 00 50 2a 20 00 08 01 12 00 0a 00 50 42 41 38 30 30 20 00 08 01 1c 00 30 00 50 5c 43 42 4e 45 5c 59 44 53 54 41 54 55 53 2c 3d 44 27 31 27 2c 42 ┆ATUS AND CLOSE FILES AGAIN P* PBA800 0 P CBNE YDSTATUS,=D'1',B┆
0x0dbe…0e0e 41 39 30 30 5c 4e 4f 54 20 53 59 53 54 45 4d 20 53 54 41 52 54 20 00 08 01 2a 00 20 00 50 5c 50 45 52 46 5c 5a 42 43 4c 53 44 5c 43 4c 4f 53 45 20 44 41 54 41 42 41 53 45 20 00 08 01 5e 00 22 00 50 5c 50 45 52 46 5c 5a 4c 43 4c 53 46 5c 43 ┆A900 NOT SYSTEM START * P PERF ZBCLSD CLOSE DATABASE ^ " P PERF ZLCLSF C┆
0x0e0e…0e5e (9, 0, 398) 4c 4f 53 45 20 46 4f 52 4d 41 54 46 49 4c 45 20 00 08 01 82 00 24 00 50 5c 4d 4f 56 45 20 59 44 53 54 41 54 55 53 2c 3d 44 27 30 27 5c 4e 4f 54 20 53 54 41 52 54 45 44 00 09 00 18 00 0c 00 50 5c 42 5c 42 41 39 30 30 00 09 00 40 00 0a 00 50 ┆LOSE FORMATFILE $ P MOVE YDSTATUS,=D'0' NOT STARTED P B BA900 @ P┆
0x0e5e…0eae 42 41 38 35 30 20 00 09 00 50 00 16 00 50 5c 50 45 52 46 5c 58 42 46 4d 54 2c 3d 57 27 36 38 27 00 09 00 5e 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 42 41 39 39 39 20 00 09 00 78 00 2c 00 50 5c 4d 4f 56 45 5c 52 44 53 54 41 54 ┆BA850 P P PERF XBFMT,=W'68' ^ P TBT SBCANCEL,BA999 x , P MOVE RDSTAT┆
0x0eae…0efe 55 53 2c 3d 44 27 31 27 5c 54 45 52 4d 49 4e 41 4c 20 53 50 45 43 49 46 49 45 44 20 00 09 00 94 00 0c 00 50 5c 42 5c 42 41 39 39 39 00 09 00 c4 00 06 00 50 2a 20 00 09 00 d4 00 4c 00 50 2a 20 43 41 4e 43 45 4c 20 45 58 49 54 2c 20 52 45 53 ┆US,=D'1' TERMINAL SPECIFIED P B BA999 P* L P* CANCEL EXIT, RES┆
0x0efe…0f4e 54 4f 52 45 20 53 54 41 54 55 53 20 46 49 45 4c 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 20 00 09 00 de 00 06 00 50 2a 20 00 09 01 2e 00 0a 00 50 42 41 39 30 30 20 00 09 ┆TORE STATUS FIELD * P* . PBA900 ┆
0x0f4e…0f9c 01 38 00 4c 00 50 5c 4d 4f 56 45 5c 52 44 53 54 41 54 55 53 2c 3d 44 27 30 27 5c 52 45 53 45 54 20 54 4f 20 4e 4f 54 20 53 50 45 43 49 46 49 45 44 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 8 L P MOVE RDSTATUS,=D'0' RESET TO NOT SPECIFIED ┆
0x0f9c…0fec (10, 0, 400) 00 09 01 46 00 0a 00 05 42 41 39 39 39 20 00 0a 00 08 00 08 00 04 20 52 45 54 00 0a 00 16 00 0a 00 05 20 50 45 4e 44 20 00 0a 00 22 00 4c 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 ┆ F BA999 RET PEND " L P********************************┆
0x0fec…103c 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 0a 00 30 00 4c 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 ┆**************************************** 0 L P********************************┆
0x103c…108c 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 0a 00 80 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆**************************************** L P* ┆
0x108c…10dc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0a 00 d0 00 4c 00 50 2a 20 43 48 45 43 4b 20 53 43 52 45 45 4e 20 50 41 52 41 4d 45 54 45 52 20 45 4e 54 45 52 45 44 ┆ * L P* CHECK SCREEN PARAMETER ENTERED┆
0x10dc…112c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0a 01 20 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P* ┆
0x112c…117c (11, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0a 01 70 00 4c 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 ┆ * p L P********************************┆
0x117c…11cc 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 0b 00 30 00 54 00 50 53 50 41 50 31 35 5c 50 52 4f 43 5c 58 57 52 45 54 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 ┆**************************************** 0 T PSPAP15 PROC XWRET ┆
0x11cc…121c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 00 80 00 10 00 50 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 0b 00 d8 00 54 00 50 53 31 35 30 ┆ P PBIN XWRET T PS150┆
0x121c…126c 30 30 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 00 ec ┆00 ┆
0x126c…12bc 00 52 00 50 5c 43 42 45 5c 49 44 4e 52 31 2c 3d 44 27 31 27 2c 53 31 35 39 30 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ R P CBE IDNR1,=D'1',S15900 ┆
0x12bc…130c (12, 0, 400) 00 20 00 0b 01 44 00 1c 00 50 5c 43 42 45 5c 49 44 4e 52 31 2c 3d 44 27 32 27 2c 53 31 35 39 30 30 20 00 0c 00 0a 00 52 00 50 5c 43 42 45 5c 49 44 4e 52 31 2c 3d 44 27 36 27 2c 53 31 35 39 30 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 ┆ D P CBE IDNR1,=D'2',S15900 R P CBE IDNR1,=D'6',S15900 ┆
0x130c…135c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 0c 00 2a 00 52 00 50 5c 43 42 45 5c 49 44 4e 52 31 2c 3d 44 27 38 27 2c 53 31 35 39 30 30 5c 5c 5c 00 00 00 00 00 00 ┆ * R P CBE IDNR1,=D'8',S15900 ┆
0x135c…13ac 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 0c 00 80 00 52 00 50 5c 43 42 45 5c 49 44 4e 52 31 2c 3d 44 27 32 30 27 2c 53 31 35 39 30 30 5c 5c ┆ R P CBE IDNR1,=D'20',S15900 ┆
0x13ac…13fc 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 0c 00 d6 00 52 00 50 5c 43 42 45 5c 49 44 4e 52 31 2c 3d 44 27 32 34 27 2c 53 31 ┆ R P CBE IDNR1,=D'24',S1┆
0x13fc…144c 35 39 30 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 0c 01 2c 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆5900 , L P* ┆
0x144c…149c (13, 0, 398) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0c 01 82 00 4c 00 50 2a 20 53 43 52 45 45 4e 20 50 41 52 41 4d ┆ * L P* SCREEN PARAM┆
0x149c…14ec 45 54 45 52 20 49 53 20 4e 4f 54 20 56 41 4c 49 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0d 00 42 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ETER IS NOT VALID * B L P* ┆
0x14ec…153c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0d 00 92 00 54 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 ┆ * T P MOVE XWRET,=W┆
0x153c…158c 27 31 27 5c 49 4e 44 49 43 41 54 45 20 45 52 52 4f 52 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 00 e2 00 54 00 50 5c 4d 4f 56 45 5c ┆'1' INDICATE ERROR T P MOVE ┆
0x158c…15da 53 50 42 49 4e 57 34 2c 3d 57 27 31 27 5c 27 52 41 4e 47 45 20 45 52 52 4f 52 27 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 01 3a ┆SPBINW4,=W'1' 'RANGE ERROR' :┆
0x15da…162a (14, 0, 400) 00 54 00 50 53 31 35 39 30 30 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T PS15900 ┆
0x162a…167a 00 00 00 00 00 0e 00 04 00 54 00 50 5c 52 45 54 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T P RET ┆
0x167a…16ca 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 00 5c 00 0a 00 50 5c 50 45 4e 44 20 00 0e 00 b4 00 4c 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 PEND L P**********************************************┆
0x16ca…171a 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 0e 00 c2 00 06 00 50 2a 20 00 0e 01 12 00 3a 00 50 2a 20 43 48 45 43 4b 20 41 4e 53 57 45 52 20 54 4f 20 41 4c 50 48 41 4e 55 4d 45 52 49 43 20 4b 45 59 42 4f ┆************************** P* : P* CHECK ANSWER TO ALPHANUMERIC KEYBO┆
0x171a…176a 41 52 44 20 49 4e 20 54 45 52 4d 2e 20 53 50 45 43 2e 00 0e 01 1c 00 06 00 50 2a 20 00 0e 01 5a 00 4c 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 ┆ARD IN TERM. SPEC. P* Z L P********************************************┆
0x176a…17ba (15, 0, 400) 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 0e 01 64 00 16 00 50 53 50 41 50 33 31 5c 50 52 4f 43 5c 58 57 52 45 54 20 00 0f 00 24 00 10 00 50 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 0f 00 3e 00 0a ┆**************************** d PSPAP31 PROC XWRET $ P PBIN XWRET > ┆
0x17ba…180a 00 50 53 33 31 30 30 30 00 0f 00 52 00 18 00 50 5c 4d 4f 56 45 5c 57 44 45 43 31 2c 53 50 49 4e 50 55 54 20 00 0f 00 60 00 1e 00 50 5c 43 42 47 5c 52 44 41 4c 46 4b 42 2c 3d 44 27 31 27 2c 53 33 31 39 30 30 20 00 0f 00 7c 00 06 00 50 2a 20 ┆ PS31000 R P MOVE WDEC1,SPINPUT ` P CBG RDALFKB,=D'1',S31900 | P* ┆
0x180a…185a 00 0f 00 9e 00 2c 00 50 2a 20 56 41 4c 55 45 20 45 4e 54 45 52 45 44 20 49 53 20 4f 4b 45 2c 20 52 45 44 49 53 50 4c 41 59 20 4c 49 4e 45 20 37 00 0f 00 a8 00 06 00 50 2a 20 00 0f 00 d8 00 30 00 50 5c 4d 4f 56 45 5c 52 43 54 52 4d 4e 4d 45 ┆ , P* VALUE ENTERED IS OKE, REDISPLAY LINE 7 P* 0 P MOVE RCTRMNME┆
0x185a…18aa 2c 3d 58 27 30 30 27 5c 4d 41 4b 45 20 46 49 45 4c 44 20 4d 55 53 54 2d 45 4e 54 45 52 20 00 0f 00 e2 00 2c 00 50 5c 43 42 4c 5c 52 44 53 43 52 4c 4e 53 2c 3d 44 27 37 27 2c 53 33 31 39 39 39 5c 4e 4f 54 20 4f 4e 20 53 43 52 45 45 4e 00 0f ┆,=X'00' MAKE FIELD MUST-ENTER , P CBL RDSCRLNS,=D'7',S31999 NOT ON SCREEN ┆
0x18aa…18fa 01 16 00 14 00 50 5c 4d 4f 56 45 5c 57 57 31 2c 3d 57 27 37 27 20 00 0f 01 46 00 22 00 50 5c 45 52 41 53 45 5c 30 2c 57 57 31 2c 57 57 31 5c 45 52 41 53 45 20 4c 49 4e 45 20 37 20 00 0f 01 5e 00 20 00 50 5c 44 49 53 50 4c 41 59 5c 34 2c 57 ┆ P MOVE WW1,=W'7' F " P ERASE 0,WW1,WW1 ERASE LINE 7 ^ P DISPLAY 4,W┆
0x18fa…194a (16, 2, 264) 57 31 2c 57 57 31 5c 52 45 44 49 53 50 4c 41 59 00 0f 01 84 00 0e 00 50 5c 42 5c 53 33 31 39 39 39 20 00 10 00 18 00 0a 00 50 53 33 31 39 30 30 00 10 00 2a 00 16 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 27 31 27 20 00 10 00 38 00 2a ┆W1,WW1 REDISPLAY P B S31999 PS31900 * P MOVE XWRET,=W'1' 8 *┆
0x194a…199a 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 31 27 5c 56 41 4c 55 45 20 4e 4f 54 20 49 4e 20 52 41 4e 47 45 00 10 00 52 00 0a 00 50 53 33 31 39 39 39 00 10 00 80 00 08 00 50 5c 52 45 54 00 10 00 8e 00 0a 00 50 5c 50 45 4e 44 20 ┆ P MOVE SPBINW4,=W'1' VALUE NOT IN RANGE R PS31999 P RET P PEND ┆
0x199a…19ea 00 10 00 9a 00 4c 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ L P************************************************************************┆
0x19ea…1a02 00 10 00 a8 00 08 00 04 5c 45 4e 44 00 10 00 f8 40 04 00 00 00 10 01 04 ┆ END @ ┆
0x1a02…1a0a (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x1a0a…1a5a (18, 0, 400) 00 00 00 00 00 00 80 41 00 00 00 01 01 74 00 2a 00 26 03 12 00 00 01 0f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 20 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 12 00 2a 00 26 03 12 00 00 01 2d 00 00 00 00 00 00 00 00 c0 50 ┆ A t * & * & - P┆
0x1a5a…1aaa 00 00 00 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 40 00 2c 00 28 03 13 00 00 01 4b 40 aa 00 00 00 00 00 02 00 00 41 30 00 00 00 00 01 00 00 00 00 04 00 00 00 06 00 00 00 08 00 00 00 0a 00 02 00 6e 00 2c 00 28 03 13 ┆ R @ , ( K@ A0 n , ( ┆
0x1aaa…1afa 00 00 01 61 aa aa 00 00 00 0c 00 00 00 0e 00 00 00 10 00 00 00 12 00 00 00 14 00 00 00 16 00 00 00 18 00 00 00 1a 00 02 00 9e 00 2c 00 28 03 13 00 00 01 71 aa aa 00 00 00 1c 00 00 00 1e 00 00 00 20 00 00 00 22 00 00 00 24 00 00 00 26 00 00 ┆ a , ( q " $ & ┆
0x1afa…1b4a 00 28 00 00 00 2a 00 02 00 ce 00 2c 00 28 03 13 00 00 01 81 aa aa 00 00 00 2c 00 00 00 2e 00 00 00 30 00 00 00 32 00 00 00 34 00 00 00 36 00 00 00 38 00 00 00 3a 00 02 00 fe 00 14 00 10 03 07 00 00 01 91 a0 00 00 00 00 3c 00 00 00 3e 00 02 ┆ ( * , ( , . 0 2 4 6 8 : < > ┆
0x1b4a…1b9a 01 2e 00 0e 00 0a 07 04 00 00 01 81 01 94 00 00 00 02 01 46 00 3c 00 48 20 49 44 45 4e 54 20 54 3a 44 41 30 30 20 20 54 52 41 20 31 30 2e 30 20 20 20 2d 20 20 2d 20 20 20 46 31 20 4f 31 31 31 31 20 20 44 41 54 41 20 44 49 56 49 53 49 4f 4e ┆ . F < H IDENT T:DA00 TRA 10.0 - - F1 O1111 DATA DIVISION┆
0x1b9a…1bea (19, 0, 400) 00 02 01 58 00 0e 00 0a 01 04 c8 54 3a 44 41 30 30 00 00 03 00 08 00 10 00 0c 05 05 c8 54 3a 44 41 30 30 44 00 00 00 03 00 1a 00 0e 00 0a 02 04 c8 41 41 4d 41 49 4e 00 00 03 00 2e 00 2a 00 26 03 12 00 00 00 01 00 00 fe ac 41 30 00 0d 00 0f ┆ X T:DA00 T:DA00D AAMAIN . * & A0 ┆
0x1bea…1c3a 30 00 00 00 c0 0c 0f f2 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 00 40 00 1a 00 16 03 0a 00 00 00 1f 04 00 00 00 ff ff 00 00 00 01 00 00 00 00 00 02 00 03 00 6e 00 0e 00 0a 07 04 00 00 00 01 00 2a 00 00 00 03 00 8c 00 3c 00 48 20 49 ┆0 * @ n * < H I┆
0x1c3a…1c8a 44 45 4e 54 20 54 3a 41 54 41 42 20 20 54 52 41 20 31 30 2e 30 20 20 20 2d 20 20 2d 20 20 20 46 31 20 4f 31 31 31 31 20 20 44 41 54 41 20 44 49 56 49 53 49 4f 4e 00 03 00 9e 00 0e 00 0a 01 04 c8 54 3a 41 54 41 42 00 00 03 00 de 00 10 00 0c ┆DENT T:ATAB TRA 10.0 - - F1 O1111 DATA DIVISION T:ATAB ┆
0x1c8a…1cda 05 05 c8 54 3a 41 54 41 42 41 00 02 00 03 00 f0 00 0e 00 0a 02 04 c8 54 3a 41 41 30 30 00 00 03 01 04 00 12 00 0e 03 06 00 00 00 01 40 00 00 04 00 00 00 02 00 03 01 16 00 0e 00 0a 07 04 00 00 3a 41 00 04 00 00 00 03 01 2c 00 3c 00 48 20 49 ┆ T:ATABA T:AA00 @ :A , < H I┆
0x1cda…1d2a 44 45 4e 54 20 55 3a 42 54 41 42 20 20 54 52 41 20 31 30 2e 30 20 20 20 2d 20 20 2d 20 20 20 46 31 20 4f 31 31 31 31 20 20 44 41 54 41 20 44 49 56 49 53 49 4f 4e 00 03 01 3e 00 0e 00 0a 01 04 c8 55 3a 42 54 41 42 00 00 03 01 7e 00 10 00 0c ┆DENT U:BTAB TRA 10.0 - - F1 O1111 DATA DIVISION > U:BTAB ~ ┆
0x1d2a…1d7a (20, 0, 400) 05 05 c8 55 3a 42 54 41 42 42 00 02 00 03 01 90 00 3e 00 3a 02 1c c8 55 3a 55 42 46 30 00 c8 55 3a 55 49 46 30 00 c8 55 3a 55 43 59 30 00 c8 55 3a 55 4f 50 30 00 c8 55 3a 55 41 31 30 20 c8 55 3a 55 41 32 30 49 c8 55 3a 55 54 31 30 20 00 04 ┆ U:BTABB > : U:UBF0 U:UIF0 U:UCY0 U:UOP0 U:UA10 U:UA20I U:UT10 ┆
0x1d7a…1dca 00 14 00 16 00 12 02 08 c8 55 3a 55 54 32 30 42 c8 55 3a 55 51 51 30 41 00 04 00 56 00 2a 00 26 03 12 00 00 00 01 44 44 00 38 00 00 00 02 55 42 46 00 00 00 00 04 55 49 46 00 00 00 00 06 55 43 59 00 00 00 00 08 00 04 00 70 00 2c 00 28 03 13 ┆ U:UT20B U:UQQ0A V * & DD 8 UBF UIF UCY p , ( ┆
0x1dca…1e1a 00 00 00 17 22 22 55 4f 50 00 00 00 00 0a 55 41 31 00 00 00 00 0c 55 41 32 00 00 00 00 0e 55 54 31 00 00 00 00 10 00 04 00 9e 00 18 00 14 03 09 00 00 00 2f 20 00 55 54 32 00 00 00 00 12 55 51 51 00 00 04 00 ce 00 0e 00 0a 07 04 00 00 00 17 ┆ ""UOP UA1 UA2 UT1 / UT2 UQQ ┆
0x1e1a…1e6a 00 38 00 00 00 04 00 ea 00 3c 00 48 20 49 44 45 4e 54 20 53 3a 42 54 41 42 20 20 54 52 41 20 31 30 2e 30 20 20 20 2d 20 20 2d 20 20 20 46 31 20 4f 31 31 31 31 20 20 44 41 54 41 20 44 49 56 49 53 49 4f 4e 00 04 00 fc 00 0e 00 0a 01 04 c8 53 ┆ 8 < H IDENT S:BTAB TRA 10.0 - - F1 O1111 DATA DIVISION S┆
0x1e6a…1eba 3a 42 54 41 42 00 00 04 01 3c 00 10 00 0c 05 05 c8 53 3a 42 54 41 42 42 00 02 00 04 01 4e 00 0e 00 0a 03 04 00 00 00 01 00 00 00 02 00 04 01 62 00 0e 00 0a 07 04 00 00 3a 42 00 02 00 00 00 04 01 74 00 3c 00 48 20 49 44 45 4e 54 20 43 3a 43 ┆:BTAB < S:BTABB N b :B t < H IDENT C:C┆