|
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: 11084 (0x2b4c)
Notes: pts_type(SC)
Names: »BCSTTO.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/BCSTTO.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/BCSTTO.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/BCSTTO.SC«
IDENT BCSTTO START OPERATOR
DDUM DEMODD
PDIV
EXPROC PAJRN
EXPROC XBFMT
EXPROC XEERR
EXPROC XAKBIN
EXPROC XCLAMP
EXPROC ZCRDD
EXPROC ZGREA
EXPROC ZDRWRD
ENTRY BCSTTO
ENTRY CCSTTT
ENTRY SPAP07
ENTRY SPAP08
ENTRY SPAP09
************************************************************************
*
* START OPERATOR PROCEDURE*
*
************************************************************************
BCSTTO PROC
BCOOO
MOVE NDTRMLGG,YDSYSLGG INITIALISE LANGUAGE
CBE RDSTATUS,=D'2',BC100 TERMINAL ALREADY STARTED
PERF CCSTTT
TBT SBCANCEL,BC999 IF CANCELED, RETURN
BC100
SET SBSTTO
*
* PRINT LINE TYPE 1: IDENTIFICATION
*
PERF PAJRN,=W'1'
BC150
MOVE IDNR2,=D'0' INIT RETRY COUNT
PERF XBFMT,=W'21' DISPLAY OPERATOR START SCREEN
MOVE NDTRMLGG,ODOPRLGG SET LANGUAGE
TBT SBCANCEL,BC900 IF CANCELED, RETURN
TBF SBTRMBLK,BC400 TERMINAL BLOCKED?
*
* TERMINAL IS BLOCKED*
*
PERF XCLAMP,KW5,KW1 LAMP 5 ON
PERF XEERR,=W'26',KW0 CALL SUPERVISOR
BC200
PERF XAKBIN,=W'0' ASK FOR ANSWER
TBF SBKEY2,BC200 WAIT FOR KEY2
**
* KEY2 ON*
**
PERF XCLAMP,KW3,KW0 ERROR LAMP OFF
PERF XCLAMP,KW5,KW0 LAMP 5 OFF
CLEAR SBTRMBLK
B BC150
BC400
TBF SBFT80,BC410 NO COMPACT TERMINAL
PERF XBFMT,=W'69'
B BC420
BC410
PERF XBFMT,=W'22' DISPLAY OPERATOR BALANCES
BC420
TBT SBCANCEL,BC900 IF CANCELED, RETURN
MOVE RDSTATUS,=D'3' OPERATOR LOGGED ON (TWB)
MOVE ODSTATUS,=D'2' " " " (UWB)
MOVE RDOPRNR,IDNR1 SAVE OPERATOR NUMBER IN TWB
MOVE ODTRMNR,NDTRMNR SAVE TERMINAL NUMBER IN UWB
PERF ZDRWRD,ODOPRRNR,NDLRN1 WRITE OPERATOR RECORD
TBT SBCANCEL,BC900
MOVE TDTRSCDE,=D'901'
ADD YDLASSEQ,=D'1'
MOVE TDTRSSEQ,YDLASSEQ
**
* PRINT THE OPERATOR BALANCES*
* *
MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY
MOVE TDAMOUNT,ODCASH(KW1,KW4) CASH BALANCE
PERF PAJRN,=W'7'
* FOREIGN CURRENCIES*
MOVE IWINDEX1,KW0
BC500
ADD IWINDEX1,=W'1'
MOVE ICTEXT3,YCCCY(IWINDEX1)
MOVE TDAMOUNT,ODCASH(KW1,IWINDEX1)
PERF PAJRN,=W'7'
CBL IWINDEX1,=W'3',BC500
B BC990
*
* CANCEL EXIT
*
BC900
MOVE RDSTATUS,=D'2' RESET STATUS
PERF ZGREA RELEASE EXCL. ACCES
BC990
PERF PAJRN,=W'3' END OF FUNCTION
BC999
CLEAR SBSTTO
RET
PEND
************************************************************************
**
* CHECK OPERATOR IDENTIFICATION IN OPERATOR START*
**
************************************************************************
SPAP08 PROC XWRET
PBIN XWRET
S08000
CBL IDNR1,=D'10001',S08600 RANGE ERROR
CBG IDNR1,=D'19999',S08600 RANGE ERROR
MOVE ODOPRRNR,IDNR1 SAVE OPERATOR NUMBER
MUL ODOPRRNR,KDSHIFT GET RECORD NUMBER
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT BCSTTO START OPERATOR «, t00=0x0000, t01=0x0004}
0x0034…0084 Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x0038}
0x0084…00d4 Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0088}
0x00d4…00ea Head {h00=0x0012, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x00d8}
0x00ea…013e Head {h00=0x0050, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x00ee}
0x013e…0154 Head {h00=0x0012, h01=0x0050, text=» EXPROC XEERR «, t00=0x0000, t01=0x0142}
0x0154…016a Head {h00=0x0012, h01=0x0050, text=» EXPROC XAKBIN«, t00=0x0000, t01=0x0158}
0x016a…0180 Head {h00=0x0012, h01=0x0050, text=» EXPROC XCLAMP«, t00=0x0000, t01=0x016e}
0x0180…0196 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0000, t01=0x0184}
0x0196…01ac Head {h00=0x0012, h01=0x0050, text=» EXPROC ZGREA «, t00=0x0001, t01=0x000a}
0x01ac…01c2 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZDRWRD«, t00=0x0001, t01=0x0020}
0x01c2…01d8 Head {h00=0x0012, h01=0x0050, text=» ENTRY BCSTTO «, t00=0x0001, t01=0x0036}
0x01d8…01ee Head {h00=0x0012, h01=0x0050, text=» ENTRY CCSTTT «, t00=0x0001, t01=0x004c}
0x01ee…0204 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP07 «, t00=0x0001, t01=0x0062}
0x0204…021a Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP08 «, t00=0x0001, t01=0x0078}
0x021a…0230 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP09 «, t00=0x0001, t01=0x008e}
0x0230…0280 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x00a4}
0x0280…028a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f4}
0x028a…02da Head {h00=0x004c, h01=0x0050, text=»* START OPERATOR PROCEDURE *«, t00=0x0001, t01=0x00fe}
0x02da…02e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014e}
0x02e4…0334 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x0158}
0x0334…0384 Head {h00=0x004c, h01=0x0050, text=»BCSTTO PROC «, t00=0x0002, t01=0x0018}
0x0384…03d4 Head {h00=0x004c, h01=0x0050, text=»BCOOO «, t00=0x0002, t01=0x0068}
0x03d4…0408 Head {h00=0x0030, h01=0x0050, text=» MOVE NDTRMLGG,YDSYSLGG INITIALISE LANGUAGE «, t00=0x0002, t01=0x00b8}
0x0408…0458 Head {h00=0x004c, h01=0x0050, text=» CBE RDSTATUS,=D'2',BC100 TERMINAL ALREADY STARTED «, t00=0x0002, t01=0x00ec}
0x0458…04a8 Head {h00=0x004c, h01=0x0050, text=» PERF CCSTTT «, t00=0x0002, t01=0x013c}
0x04a8…04d8 Head {h00=0x002c, h01=0x0050, text=» TBT SBCANCEL,BC999 IF CANCELED, RETURN «, t00=0x0002, t01=0x018c}
0x04d8…0528 Head {h00=0x004c, h01=0x0050, text=»BC100 «, t00=0x0003, t01=0x002c}
0x0528…053c Head {h00=0x0010, h01=0x0050, text=» SET SBSTTO «, t00=0x0003, t01=0x007c}
0x053c…0546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0090}
0x0546…0572 Head {h00=0x0028, h01=0x0050, text=»* PRINT LINE TYPE 1: IDENTIFICATION «, t00=0x0003, t01=0x009a}
0x0572…057c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c6}
0x057c…0596 Head {h00=0x0016, h01=0x0050, text=» PERF PAJRN,=W'1' «, t00=0x0003, t01=0x00d0}
0x0596…05a4 Head {h00=0x000a, h01=0x0050, text=»BC150 «, t00=0x0003, t01=0x00ea}
0x05a4…05ce Head {h00=0x0026, h01=0x0050, text=» MOVE IDNR2,=D'0' INIT RETRY COUNT«, t00=0x0003, t01=0x00f8}
0x05ce…061e Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'21' DISPLAY OPERATOR START SCREEN «, t00=0x0003, t01=0x0122}
0x061e…064a Head {h00=0x0028, h01=0x0050, text=» MOVE NDTRMLGG,ODOPRLGG SET LANGUAGE«, t00=0x0003, t01=0x0172}
0x064a…069a Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,BC900 IF CANCELED, RETURN «, t00=0x0004, t01=0x000e}
0x069a…06ea Head {h00=0x004c, h01=0x0050, text=» TBF SBTRMBLK,BC400 TERMINAL BLOCKED? «, t00=0x0004, t01=0x005e}
0x06ea…06f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ae}
0x06f4…0744 Head {h00=0x004c, h01=0x0050, text=»* TERMINAL IS BLOCKED *«, t00=0x0004, t01=0x00b8}
0x0744…074e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0108}
0x074e…0774 Head {h00=0x0022, h01=0x0050, text=» PERF XCLAMP,KW5,KW1 LAMP 5 ON«, t00=0x0004, t01=0x0112}
0x0774…07a2 Head {h00=0x002a, h01=0x0050, text=» PERF XEERR,=W'26',KW0 CALL SUPERVISOR«, t00=0x0004, t01=0x0138}
0x07a2…07b0 Head {h00=0x000a, h01=0x0050, text=»BC200 «, t00=0x0004, t01=0x0166}
0x07b0…07da Head {h00=0x0026, h01=0x0050, text=» PERF XAKBIN,=W'0' ASK FOR ANSWER «, t00=0x0004, t01=0x0174}
0x07da…082a Head {h00=0x004c, h01=0x0050, text=» TBF SBKEY2,BC200 WAIT FOR KEY2 «, t00=0x0005, t01=0x000e}
0x082a…087a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x005e}
0x087a…08ca Head {h00=0x004c, h01=0x0050, text=»* KEY2 ON *«, t00=0x0005, t01=0x00ae}
0x08ca…091a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x00fe}
0x091a…0946 Head {h00=0x0028, h01=0x0050, text=» PERF XCLAMP,KW3,KW0 ERROR LAMP OFF «, t00=0x0005, t01=0x014e}
0x0946…096e Head {h00=0x0024, h01=0x0050, text=» PERF XCLAMP,KW5,KW0 LAMP 5 OFF «, t00=0x0005, t01=0x017a}
0x096e…0986 Head {h00=0x0014, h01=0x0050, text=» CLEAR SBTRMBLK «, t00=0x0006, t01=0x0012}
0x0986…0996 Head {h00=0x000c, h01=0x0050, text=» B BC150«, t00=0x0006, t01=0x002a}
0x0996…09e6 Head {h00=0x004c, h01=0x0050, text=»BC400 «, t00=0x0006, t01=0x003a}
0x09e6…0a14 Head {h00=0x002a, h01=0x0050, text=» TBF SBFT80,BC410 NO COMPACT TERMINAL «, t00=0x0006, t01=0x008a}
0x0a14…0a2e Head {h00=0x0016, h01=0x0050, text=» PERF XBFMT,=W'69'«, t00=0x0006, t01=0x00b8}
0x0a2e…0a3e Head {h00=0x000c, h01=0x0050, text=» B BC420«, t00=0x0006, t01=0x00d2}
0x0a3e…0a4c Head {h00=0x000a, h01=0x0050, text=»BC410 «, t00=0x0006, t01=0x00e2}
0x0a4c…0a9c Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'22' DISPLAY OPERATOR BALANCES «, t00=0x0006, t01=0x00f0}
0x0a9c…0aaa Head {h00=0x000a, h01=0x0050, text=»BC420 «, t00=0x0006, t01=0x0140}
0x0aaa…0afa Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,BC900 IF CANCELED, RETURN «, t00=0x0006, t01=0x014e}
0x0afa…0b4a Head {h00=0x004c, h01=0x0050, text=» MOVE RDSTATUS,=D'3' OPERATOR LOGGED ON (TWB) «, t00=0x0007, t01=0x000e}
0x0b4a…0b9a Head {h00=0x004c, h01=0x0050, text=» MOVE ODSTATUS,=D'2' " " " (UWB) «, t00=0x0007, t01=0x005e}
0x0b9a…0bd2 Head {h00=0x0034, h01=0x0050, text=» MOVE RDOPRNR,IDNR1 SAVE OPERATOR NUMBER IN TWB «, t00=0x0007, t01=0x00ae}
0x0bd2…0c24 Head {h00=0x004e, h01=0x0050, text=» MOVE ODTRMNR,NDTRMNR SAVE TERMINAL NUMBER IN UWB «, t00=0x0007, t01=0x00e6}
0x0c24…0c5e Head {h00=0x0036, h01=0x0050, text=» PERF ZDRWRD,ODOPRRNR,NDLRN1 WRITE OPERATOR RECORD«, t00=0x0007, t01=0x0138}
0x0c5e…0c7a Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,BC900 «, t00=0x0007, t01=0x0172}
0x0c7a…0cca Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'901' «, t00=0x0007, t01=0x018e}
0x0cca…0d1a Head {h00=0x004c, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x0008, t01=0x004e}
0x0d1a…0d6a Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ «, t00=0x0008, t01=0x009e}
0x0d6a…0dba Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x00ee}
0x0dba…0e0a Head {h00=0x004c, h01=0x0050, text=»* PRINT THE OPERATOR BALANCES *«, t00=0x0008, t01=0x013e}
0x0e0a…0e5a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x018e}
0x0e5a…0e98 Head {h00=0x003a, h01=0x0050, text=» MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY«, t00=0x0009, t01=0x004e}
0x0e98…0ee4 Head {h00=0x0048, h01=0x0050, text=» MOVE TDAMOUNT,ODCASH(KW1,KW4) CASH BALANCE «, t00=0x0009, t01=0x008c}
0x0ee4…0f34 Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'7' «, t00=0x0009, t01=0x00d8}
0x0f34…0f84 Head {h00=0x004c, h01=0x0050, text=»* FOREIGN CURRENCIES *«, t00=0x0009, t01=0x0128}
0x0f84…0fd4 Head {h00=0x004c, h01=0x0050, text=» MOVE IWINDEX1,KW0 «, t00=0x0009, t01=0x0178}
0x0fd4…1024 Head {h00=0x004c, h01=0x0050, text=»BC500 «, t00=0x000a, t01=0x0038}
0x1024…1074 Head {h00=0x004c, h01=0x0050, text=» ADD IWINDEX1,=W'1' «, t00=0x000a, t01=0x0088}
0x1074…10a4 Head {h00=0x002c, h01=0x0050, text=» MOVE ICTEXT3,YCCCY(IWINDEX1)«, t00=0x000a, t01=0x00d8}
0x10a4…10f4 Head {h00=0x004c, h01=0x0050, text=» MOVE TDAMOUNT,ODCASH(KW1,IWINDEX1) «, t00=0x000a, t01=0x0108}
0x10f4…1144 Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'7' «, t00=0x000a, t01=0x0158}
0x1144…1194 Head {h00=0x004c, h01=0x0050, text=» CBL IWINDEX1,=W'3',BC500 «, t00=0x000b, t01=0x0018}
0x1194…11a4 Head {h00=0x000c, h01=0x0050, text=» B BC990«, t00=0x000b, t01=0x0068}
0x11a4…11ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0078}
0x11ae…11c4 Head {h00=0x0012, h01=0x0050, text=»* CANCEL EXIT «, t00=0x000b, t01=0x0082}
0x11c4…11ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0098}
0x11ce…121e Head {h00=0x004c, h01=0x0050, text=»BC900 «, t00=0x000b, t01=0x00a2}
0x121e…1248 Head {h00=0x0026, h01=0x0050, text=» MOVE RDSTATUS,=D'2' RESET STATUS «, t00=0x000b, t01=0x00f2}
0x1248…1270 Head {h00=0x0024, h01=0x0050, text=» PERF ZGREA RELEASE EXCL. ACCES «, t00=0x000b, t01=0x011c}
0x1270…127e Head {h00=0x000a, h01=0x0050, text=»BC990 «, t00=0x000b, t01=0x0144}
0x127e…12a8 Head {h00=0x0026, h01=0x0050, text=» PERF PAJRN,=W'3' END OF FUNCTION «, t00=0x000b, t01=0x0152}
0x12a8…12b6 Head {h00=0x000a, h01=0x0050, text=»BC999 «, t00=0x000b, t01=0x017c}
0x12b6…12cc Head {h00=0x0012, h01=0x0050, text=» CLEAR SBSTTO «, t00=0x000b, t01=0x018a}
0x12cc…131c Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x000c, t01=0x0010}
0x131c…136c Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0060}
0x136c…13bc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000c, t01=0x00b0}
0x13bc…140c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0100}
0x140c…145c Head {h00=0x004c, h01=0x0050, text=»* CHECK OPERATOR IDENTIFICATION IN OPERATOR START *«, t00=0x000c, t01=0x0150}
0x145c…14ac Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0010}
0x14ac…14fc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000d, t01=0x0060}
0x14fc…1516 Head {h00=0x0016, h01=0x0050, text=»SPAP08 PROC XWRET «, t00=0x000d, t01=0x00b0}
0x1516…152a Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x000d, t01=0x00ca}
0x152a…157c Head {h00=0x004e, h01=0x0050, text=»S08000 «, t00=0x000d, t01=0x00de}
0x157c…15ac Head {h00=0x002c, h01=0x0050, text=» CBL IDNR1,=D'10001',S08600 RANGE ERROR «, t00=0x000d, t01=0x0130}
0x15ac…15dc Head {h00=0x002c, h01=0x0050, text=» CBG IDNR1,=D'19999',S08600 RANGE ERROR «, t00=0x000d, t01=0x0160}
0x15dc…160e Head {h00=0x002e, h01=0x0050, text=» MOVE ODOPRRNR,IDNR1 SAVE OPERATOR NUMBER «, t00=0x000d, t01=0x0190}
0x160e…165e Head {h00=0x004c, h01=0x0050, text=» MUL ODOPRRNR,KDSHIFT GET RECORD NUMBER «, t00=0x000e, t01=0x0032}
0x165e…1662 Head {h00=0x0054, h01=0x0050}
0x1662…1666 Head {h00=0x5c50, h01=0x4552}
0x1666…1680 46 5c 5a 43 52 44 44 2c 4f 44 4f 50 52 52 4e 52 2c 4e 44 4c 52 4e 31 2c 4b 57 ┆F ZCRDD,ODOPRRNR,NDLRN1,KW┆
0x1680…16d0 31 5c 52 45 41 44 20 4f 50 45 52 41 54 4f 52 20 52 45 43 4f 52 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 0e 00 82 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 53 30 38 39 30 30 00 0e ┆1 READ OPERATOR RECORD P TBT SBCANCEL,S08900 ┆
0x16d0…1720 00 da 00 2e 00 50 5c 54 42 46 5c 53 42 52 45 43 41 56 42 2c 53 30 38 35 30 30 5c 52 45 43 4f 52 44 20 4e 4f 54 20 41 56 41 49 4c 41 42 4c 45 20 00 0e 00 f6 00 4e 00 50 5c 43 42 45 5c 4f 44 53 54 41 54 55 53 2c 3d 44 27 30 27 2c 53 30 38 35 ┆ . P TBF SBRECAVB,S08500 RECORD NOT AVAILABLE N P CBE ODSTATUS,=D'0',S085┆
0x1720…1770 30 30 5c 4f 50 45 52 41 54 4f 52 20 4e 4f 54 20 49 4e 49 54 49 41 4c 49 53 45 44 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 0e 01 28 00 4e 00 50 5c 43 42 45 5c 4f 44 53 54 41 54 55 53 2c 3d 44 27 32 27 2c 53 30 ┆00 OPERATOR NOT INITIALISED ( N P CBE ODSTATUS,=D'2',S0┆
0x1770…17c0 (15, 0, 400) 38 34 30 30 5c 4f 50 45 52 41 54 4f 52 20 41 4c 52 45 41 44 59 20 4c 4f 47 47 45 44 20 4f 4e 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 0e 01 7a 00 06 00 50 2a 20 00 0f 00 3c 00 36 00 50 2a 20 52 45 44 49 53 50 4c 41 ┆8400 OPERATOR ALREADY LOGGED ON z P* < 6 P* REDISPLA┆
0x17c0…1810 59 20 4c 41 4e 47 55 41 47 45 20 46 49 45 4c 44 2c 20 49 46 20 49 54 20 49 53 20 4f 4e 20 54 48 45 20 53 43 52 45 45 4e 00 0f 00 46 00 06 00 50 2a 20 00 0f 00 80 00 2c 00 50 5c 43 42 4c 5c 52 44 53 43 52 4c 4e 53 2c 3d 44 27 33 27 2c 53 30 ┆Y LANGUAGE FIELD, IF IT IS ON THE SCREEN F P* , P CBL RDSCRLNS,=D'3',S0┆
0x1810…1860 38 39 39 39 5c 4e 4f 54 20 4f 4e 20 53 43 52 45 45 4e 00 0f 00 8a 00 16 00 50 5c 44 49 53 50 4c 41 59 5c 34 2c 4b 57 33 2c 4b 57 33 00 0f 00 ba 00 0e 00 50 5c 42 5c 53 30 38 39 39 39 20 00 0f 00 d4 00 4e 00 50 53 30 38 34 30 30 5c 5c 5c 5c ┆8999 NOT ON SCREEN P DISPLAY 4,KW3,KW3 P B S08999 N PS08400 ┆
0x1860…18b0 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 20 00 0f 00 e6 00 4c 00 50 5c 4d 4f 56 45 5c 53 50 ┆ L P MOVE SP┆
0x18b0…1900 42 49 4e 57 34 2c 3d 57 27 32 34 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 01 38 00 24 00 50 5c 42 5c 53 30 38 38 30 ┆BINW4,=W'24' 8 $ P B S0880┆
0x1900…1950 (16, 0, 400) 30 5c 45 52 52 4f 52 2c 20 43 4c 45 41 52 20 44 41 54 41 2d 49 54 45 4d 00 0f 01 88 00 0a 00 50 53 30 38 35 30 30 00 10 00 20 00 2a 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 32 33 27 5c 4f 50 45 52 41 54 4f 52 20 55 4e 4b 4e ┆0 ERROR, CLEAR DATA-ITEM PS08500 * P MOVE SPBINW4,=W'23' OPERATOR UNKN┆
0x1950…19a0 4f 57 4e 20 00 10 00 2e 00 24 00 50 5c 42 5c 53 30 38 38 30 30 5c 45 52 52 4f 52 2c 20 43 4c 45 41 52 20 44 41 54 41 2d 49 54 45 4d 00 10 00 5c 00 4e 00 50 53 30 38 36 30 30 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆OWN . $ P B S08800 ERROR, CLEAR DATA-ITEM N PS08600 ┆
0x19a0…19f0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 10 00 84 00 24 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 31 27 5c 52 41 4e 47 45 20 ┆ $ P MOVE SPBINW4,=W'1' RANGE ┆
0x19f0…1a40 45 52 52 4f 52 20 00 10 00 d6 00 0a 00 50 53 30 38 38 30 30 00 10 00 fe 00 26 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 27 31 27 5c 49 4e 44 49 43 41 54 45 20 45 52 52 4f 52 31 20 00 10 01 0c 00 0e 00 50 5c 42 5c 53 30 38 39 39 39 20 ┆ERROR PS08800 & P MOVE XWRET,=W'1' INDICATE ERROR1 P B S08999 ┆
0x1a40…1a90 00 10 01 36 00 0a 00 50 53 30 38 39 30 30 00 10 01 48 00 26 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 27 33 27 5c 49 4e 44 49 43 41 54 45 20 43 41 4e 43 45 4c 20 00 10 01 56 00 0a 00 50 53 30 38 39 39 39 00 10 01 80 00 08 00 50 5c 52 ┆ 6 PS08900 H & P MOVE XWRET,=W'3' INDICATE CANCEL V PS08999 P R┆
0x1a90…1ae0 (17, 0, 400) 45 54 00 10 01 8e 00 0a 00 50 5c 50 45 4e 44 20 00 11 00 0a 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 ┆ET P PEND L P********************************************************┆
0x1ae0…1b30 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 11 00 18 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 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* ┆
0x1b30…1b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 11 00 68 00 4c 00 50 2a 20 43 48 45 43 4b 20 4f 50 45 52 41 54 4f 52 20 50 41 53 53 57 4f 52 44 20 49 4e 20 4f 50 45 52 41 54 4f 52 20 53 54 41 52 54 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * h L P* CHECK OPERATOR PASSWORD IN OPERATOR START ┆
0x1b80…1bd0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 11 00 b8 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 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* ┆
0x1bd0…1c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 11 01 08 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 ┆ * L P********************************************************┆
0x1c20…1c70 (18, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 11 01 58 00 16 00 50 53 50 41 50 30 39 5c 50 52 4f 43 5c 58 57 52 45 54 20 00 12 00 18 00 10 00 50 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 12 00 32 00 4e 00 50 53 30 39 30 30 30 5c 5c 5c 5c ┆**************** X PSPAP09 PROC XWRET P PBIN XWRET 2 N PS09000 ┆
0x1c70…1cc0 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 20 00 12 00 46 00 16 00 50 5c 54 42 54 5c 53 42 46 ┆ F P TBT SBF┆
0x1cc0…1d10 54 38 30 2c 53 30 39 39 39 39 00 12 00 98 00 4e 00 50 5c 54 42 54 5c 53 42 4b 45 59 32 2c 53 30 39 39 39 39 5c 4e 4f 20 43 48 45 43 4b 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 ┆T80,S09999 N P TBT SBKEY2,S09999 NO CHECK ┆
0x1d10…1d60 00 00 00 00 00 00 00 00 00 00 00 20 00 12 00 b2 00 4e 00 50 5c 43 42 4e 45 5c 49 43 54 45 58 54 31 2c 4f 43 50 41 53 53 2c 53 30 39 32 30 30 5c 57 52 4f 4e 47 20 50 41 53 53 57 4f 52 44 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ N P CBNE ICTEXT1,OCPASS,S09200 WRONG PASSWORD ┆
0x1d60…1db0 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 12 01 04 00 0e 00 50 5c 42 5c 53 30 39 39 39 39 20 00 12 01 56 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 00 00 00 00 00 00 00 00 ┆ P B S09999 V L P* ┆
0x1db0…1e00 (19, 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 2a 00 12 01 68 00 4c 00 50 2a 20 50 41 53 53 57 4f 52 44 20 4e 4f 54 20 4f 4b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * h L P* PASSWORD NOT OK ┆
0x1e00…1e50 00 00 00 00 00 00 00 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 13 00 28 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 00 00 00 00 00 00 00 00 ┆ * ( L P* ┆
0x1e50…1ea0 00 00 00 00 00 00 00 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 13 00 78 00 4e 00 50 53 30 39 32 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 ┆ * x N PS09200 ┆
0x1ea0…1ef0 00 00 00 00 00 00 00 00 00 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 13 00 c8 00 4c 00 50 5c 41 44 44 5c 49 44 4e 52 32 2c 3d 44 27 31 27 5c 4e 55 4d 42 45 52 20 4f 46 20 52 45 54 52 49 45 53 5c 5c 00 00 ┆ L P ADD IDNR2,=D'1' NUMBER OF RETRIES ┆
0x1ef0…1f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 01 1a 00 4e 00 50 5c 43 42 45 5c 49 44 4e 52 32 2c 3d 44 27 33 27 2c 53 30 39 34 30 30 5c 45 58 43 45 45 44 45 44 5c 5c 00 00 00 00 ┆ N P CBE IDNR2,=D'3',S09400 EXCEEDED ┆
0x1f40…1f90 (20, 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 20 00 13 01 6a 00 4c 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 32 35 27 5c 49 4e 56 41 4c 49 44 20 50 41 53 53 57 4f 52 ┆ j L P MOVE SPBINW4,=W'25' INVALID PASSWOR┆
0x1f90…1fe0 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 00 00 00 00 00 00 00 14 00 2c 00 26 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 27 31 27 5c 49 4e 44 49 43 41 54 45 20 45 52 52 4f 52 31 20 00 14 ┆D , & P MOVE XWRET,=W'1' INDICATE ERROR1 ┆
0x1fe0…2030 00 7c 00 0e 00 50 5c 42 5c 53 30 39 39 39 39 20 00 14 00 a6 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ | P B S09999 L P* ┆
0x2030…2080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 14 00 b8 00 4c 00 50 2a 20 42 4c 4f 43 4b 20 54 45 52 4d 49 4e 41 4c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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* BLOCK TERMINAL ┆
0x2080…20d0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 14 01 08 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 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* ┆
0x20d0…2120 (21, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 14 01 58 00 4e 00 50 53 30 39 34 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 ┆ * X N PS09400 ┆
0x2120…2170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 15 00 18 00 4c 00 50 5c 53 45 54 5c 53 42 54 52 4d 42 4c 4b 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 ┆ L P SET SBTRMBLK ┆
0x2170…21c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 15 00 6a 00 4e 00 50 5c 4d 4f 56 45 20 20 20 5c 53 50 42 49 4e 57 32 2c 4b 57 53 50 43 4f 4e 54 5c 52 45 54 55 52 4e 20 54 4f 20 41 50 50 4c 49 43 41 54 49 4f 4e 5c 5c 00 00 00 00 00 ┆ j N P MOVE SPBINW2,KWSPCONT RETURN TO APPLICATION ┆
0x21c0…2210 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 15 00 ba 00 0a 00 50 53 30 39 39 39 39 00 15 01 0c 00 08 00 50 5c 52 45 54 00 15 01 1a 00 0a 00 50 5c 50 45 4e 44 20 00 15 01 26 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ PS09999 P RET P PEND & L P************┆
0x2210…2260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 15 01 34 00 06 00 50 2a 20 00 15 01 84 00 4c 00 50 2a 20 ┆************************************************************ 4 P* L P* ┆
0x2260…22b0 (22, 0, 400) 20 20 20 20 20 20 20 53 54 41 52 54 20 54 45 52 4d 49 4e 41 4c 20 50 52 4f 43 45 44 55 52 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 15 01 8e 00 06 00 50 2a 20 ┆ START TERMINAL PROCEDURE * P* ┆
0x22b0…2300 00 16 00 4e 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 ┆ N L P************************************************************************┆
0x2300…2350 00 16 00 58 00 4c 00 50 43 43 53 54 54 54 5c 50 52 4f 43 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 ┆ X L PCCSTTT PROC ┆
0x2350…23a0 00 16 00 a8 00 4c 00 50 43 43 30 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 ┆ L PCC000 ┆
0x23a0…23f0 00 16 00 f8 00 4c 00 50 5c 47 45 54 54 49 4d 45 5c 56 43 54 49 4d 45 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 ┆ L P GETTIME VCTIME ┆
0x23f0…2440 (23, 0, 400) 00 16 01 48 00 4c 00 50 5c 4d 4f 56 45 5c 4e 44 54 49 4d 45 2c 56 43 54 49 4d 45 5c 53 59 53 54 45 4d 20 54 49 4d 45 20 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 ┆ H L P MOVE NDTIME,VCTIME SYSTEM TIME ┆
0x2440…2490 00 17 00 08 00 2a 00 50 5c 44 49 56 5c 4e 44 54 49 4d 45 2c 3d 44 27 31 30 30 27 5c 47 45 54 20 52 49 44 20 4f 46 20 53 45 43 4f 4e 44 53 00 17 00 58 00 4c 00 50 5c 50 45 52 46 5c 58 42 46 4d 54 2c 3d 57 27 31 39 27 5c 44 49 53 50 4c 41 59 ┆ * P DIV NDTIME,=D'100' GET RID OF SECONDS X L P PERF XBFMT,=W'19' DISPLAY┆
0x2490…24e0 20 54 45 52 4d 49 4e 41 4c 20 53 54 41 52 54 2d 53 43 52 45 45 4e 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 17 00 86 00 4c 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 43 43 39 30 30 5c 5c 5c 00 00 00 00 ┆ TERMINAL START-SCREEN L P TBT SBCANCEL,CC900 ┆
0x24e0…2530 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 17 00 d6 00 4c 00 50 5c 4d 4f 56 45 5c 52 44 53 54 41 54 55 53 2c 3d 44 27 32 27 5c 53 45 54 20 53 ┆ L P MOVE RDSTATUS,=D'2' SET S┆
0x2530…2580 54 41 54 55 53 20 54 4f 20 54 45 52 4d 49 4e 41 4c 20 53 54 41 52 54 45 44 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 17 01 26 00 4c 00 50 5c 4d 4f 56 45 5c 54 44 54 52 53 43 44 45 2c 3d 44 27 39 31 31 27 5c 5c 5c 00 ┆TATUS TO TERMINAL STARTED & L P MOVE TDTRSCDE,=D'911' ┆
0x2580…25d0 (24, 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 00 00 00 00 00 00 00 00 17 01 76 00 4c 00 50 43 43 39 30 30 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ v L PCC900 ┆
0x25d0…2620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 00 36 00 4c 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 ┆ 6 L P RET ┆
0x2620…2670 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 00 86 00 4c 00 50 5c 50 45 4e 44 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L P PEND ┆
0x2670…26c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 00 d6 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 ┆ L P**************************┆
0x26c0…2710 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 18 01 26 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 ┆********************************************** & L P* ┆
0x2710…2760 (25, 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 00 00 00 00 00 00 2a 00 18 01 76 00 4c 00 50 2a 20 54 45 52 4d 49 4e 41 4c 20 53 54 41 52 54 2c 20 43 48 45 43 4b 20 44 41 ┆ * v L P* TERMINAL START, CHECK DA┆
0x2760…27b0 54 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 19 00 36 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 ┆TE * 6 L P* ┆
0x27b0…2800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 19 00 86 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 ┆ * L P**************************┆
0x2800…2850 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 19 00 d6 00 16 00 50 53 50 41 50 30 37 5c 50 52 4f 43 5c 58 57 52 45 54 20 00 19 01 26 00 10 00 50 ┆********************************************** PSPAP07 PROC XWRET & P┆
0x2850…28a0 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 19 01 40 00 4e 00 50 53 30 37 30 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 ┆ PBIN XWRET @ N PS07000 ┆
0x28a0…28f0 (26, 2, 276) 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 19 01 54 00 24 00 50 5c 43 42 45 5c 4e 44 44 41 54 45 2c 49 44 4e 52 31 2c 53 30 37 39 39 39 5c 44 41 54 45 20 4f 4b 00 1a 00 16 00 2c 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 32 ┆ T $ P CBE NDDATE,IDNR1,S07999 DATE OK , P MOVE SPBINW4,=W'2┆
0x28f0…2940 30 27 5c 49 4e 56 41 4c 49 44 20 43 4f 4d 50 41 52 49 53 4f 4e 20 00 1a 00 3e 00 26 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 27 31 27 5c 49 4e 44 49 43 41 54 45 20 45 52 52 4f 52 31 20 00 1a 00 6e 00 0a 00 50 53 30 37 39 39 39 00 1a ┆0' INVALID COMPARISON > & P MOVE XWRET,=W'1' INDICATE ERROR1 n PS07999 ┆
0x2940…2990 00 98 00 08 00 50 5c 52 45 54 00 1a 00 a6 00 0a 00 50 5c 50 45 4e 44 20 00 1a 00 b2 00 4c 00 50 5c 45 4e 44 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 ┆ P RET P PEND L P END ┆
0x2990…29b4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1a 00 c0 40 04 00 00 00 1a 01 10 ┆ @ ┆
0x29b4…29bc (27, 1, 8) 20 04 00 00 00 1b 00 04 ┆ ┆
0x29bc…2a0c (28, 0, 400) 00 0c 00 08 00 03 07 06 01 16 00 06 00 44 00 04 00 0c 00 08 00 03 07 06 01 1b 00 06 00 44 00 14 00 0c 00 08 00 03 20 06 00 00 00 10 00 44 00 24 00 0c 00 08 00 03 26 06 c3 02 30 31 00 44 00 34 00 0a 00 06 00 02 26 04 c4 03 00 44 00 44 00 12 ┆ D D D $ & 01 D 4 & D D ┆
0x2a0c…2a5c 00 0e 00 06 1a 0c 00 01 10 06 39 39 39 39 39 39 00 44 00 52 00 0c 00 07 00 03 22 05 00 01 61 31 00 44 00 68 00 0a 00 06 00 02 26 04 c4 0c 00 44 00 78 00 0a 00 06 00 02 26 04 c0 6b 00 44 00 86 00 0a 00 06 00 02 26 04 c4 20 00 44 00 94 00 0a ┆ 999999 D R " a1 D h & D x & k D & D ┆
0x2a5c…2aac 00 06 00 02 26 04 88 20 00 44 00 a2 00 08 00 04 00 01 28 02 00 44 00 b0 00 0e 00 09 00 04 14 07 01 2b 30 01 b1 00 00 44 00 bc 00 0e 00 09 00 04 14 07 01 2f 30 01 b7 00 00 44 00 ce 00 0e 00 09 00 04 14 07 01 33 30 01 b2 00 00 44 00 e0 00 0e ┆ & D ( D +0 D /0 D 30 D ┆
0x2aac…2afc 00 0a 00 04 14 08 01 37 30 02 b0 16 00 44 00 f2 00 0e 00 0a 00 04 14 08 01 3b 30 02 b0 12 00 44 01 04 00 0e 00 0a 00 04 14 08 01 3f 30 02 b0 11 00 44 01 16 00 4a 00 46 00 22 00 44 01 00 4c 09 30 58 94 01 80 52 14 57 12 03 2b 4c 00 b6 2b 21 ┆ 70 D ;0 D ?0 D J F " D L 0X R W +L +!┆
0x2afc…2b4c 26 4c 05 80 52 19 57 03 80 52 13 40 68 34 00 40 f5 40 f6 40 f8 40 f7 21 c2 4c 16 21 c2 4c 12 21 c2 4c 12 21 c2 4c 0e 21 c2 4c 0e 21 c2 4c 00 44 01 28 00 0e 00 09 00 04 14 07 01 4f 30 01 00 58 00 44 01 76 00 0e 00 09 00 04 14 07 01 55 30 01 ┆&L R W R @h4 @ @ @ @ ! L ! L ! L ! L ! L ! L D ( O0 X D v U0 ┆