|
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: 10820 (0x2a44)
Notes: pts_type(SC)
Names: »DLDEP.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DLDEP.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DLDEP.SC«
IDENT DLDEP DEPOSIT
DDUM DEMODD
PDIV
EXPROC PAJRN
EXPROC PBBOOK
EXPROC PCVCH
EXPROC QENTRS
EXPROC XBFMT
EXPROC ZCRDD
EXPROC ZDRWRD
EXPROC ZHWRID
ENTRY DLDEP
ENTRY SPAP10
ENTRY SPAP11
ENTRY SPAP12
************************************************************************
*
* DEPOSIT
**
************************************************************************
DLDEP PROC
DL000
TBT SBNOBOOK,DL100
TBF SBFT80,DL010 NO COMPACT TERMINAL
SET SBNOBOOK
B DL100
DL010
**
* NOBOOK IS OFF*
**
MOVE TDTRSCDE,=D'1'
B DL200
**
* NOBOOK IS ON*
**
DL100
MOVE TDTRSCDE,=D'7'
**
* PRINT LINE TYPE 2*
**
DL200
PERF PAJRN,=W'2'
MOVE TDNEWBAL,=D'0' INITIALISE NEW BALANCE IN FMT
PERF XBFMT,=W'41' DEPOSIT FORMAT
TBT SBCANCEL,DL999
**
* PRINT LINE TYPE 7*
**
MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY
PERF PAJRN,=W'7'
**
* FILL TRANSACTION RECORD*
* GET NEXT TRANSACTION-RECORD KEY*
**
PERF QENTRS,ADLASTRS UPDATE TRANSACTION SEQ. NR
MOVE TDTRSRNR,ADACTRNR ACCOUNT RECORD NR.
ADD TDTRSRNR,ADLASTRS TRANS. RECORD KEY
ADD YDLASSEQ,=D'1' UPDATE LAST TRANS. SEQ. NR.
MOVE TDTRSSEQ,YDLASSEQ MOVE TO TRANS. RECORD
*
* TDAMOUNT CONTAINS THE VALUE ENTERED BY THE OPERATOR
*
TBF SBRVS,DL300
MUL TDAMOUNT,=D'-1' REVERSAL
DL300
**
* FILL ACCOUNT RECORD*
**
MOVE ADBAL,TDNEWBAL NEW BALANCE
ADD ADDEPCUM,TDAMOUNT ACCUMULATED DEPOSITS
MOVE ADLASSEQ,TDTRSSEQ TRANS. SEQUENCE NR.
**
* WRITE RECORDS*
**
PERF ZHWRID,TDTRSRNR,NDLRN2 TRANSACTION RECORD
TBT SBCANCEL,DL999
PERF ZDRWRD,ADACTRNR,NDLRN1 ACCOUNT RECORD
TBT SBCANCEL,DL999
**
* UPDATE OPERATOR ACCUMULATORS*
**
DL400
ADD ODCASH(KW1,KW4),TDAMOUNT BALANCE CASH
ADD ODCASH(KW2,KW3),TDAMOUNT ACCUMULATED DEPOSITS
**
* PRINT VOUCHER OR BOOK*
* IF A TELLER TERMINAL PRINTER IS AVAILABLE
**
CBNL RDPRTTYP,=D'2',DL999
TBT SBNOBOOK,DL600
TBT SBCHQACT,DL600
**
* SAVINGS ACCOUNT WITH BOOK*
**
PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK
TBT SBCANCEL,DL999
PERF PBBOOK PRINT IN BOOK
B DL999
**
* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK*
**
DL600
PERF PCVCH,=W'1' PRINT VOUCHER
**
* CANCEL AND NORMAL EXIT
**
DL999
RET
PEND
************************************************************************
**
0x0000…0038 (0, 0, 400) Head {h00=0x0034, h01=0x0050, text=» IDENT DLDEP DEPOSIT «, t00=0x0000, t01=0x0004}
0x0038…0088 Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x003c}
0x0088…00d8 Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x008c}
0x00d8…012c Head {h00=0x0050, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x00dc}
0x012c…0180 Head {h00=0x0050, h01=0x0050, text=» EXPROC PBBOOK «, t00=0x0000, t01=0x0130}
0x0180…01d4 Head {h00=0x0050, h01=0x0050, text=» EXPROC PCVCH «, t00=0x0000, t01=0x0184}
0x01d4…0228 Head {h00=0x0050, h01=0x0050, text=» EXPROC QENTRS «, t00=0x0001, t01=0x0048}
0x0228…027c Head {h00=0x0050, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0001, t01=0x009c}
0x027c…0292 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0001, t01=0x00f0}
0x0292…02a8 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZDRWRD«, t00=0x0001, t01=0x0106}
0x02a8…02be Head {h00=0x0012, h01=0x0050, text=» EXPROC ZHWRID«, t00=0x0001, t01=0x011c}
0x02be…030e Head {h00=0x004c, h01=0x0050, text=» ENTRY DLDEP «, t00=0x0001, t01=0x0132}
0x030e…0324 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP10 «, t00=0x0001, t01=0x0182}
0x0324…033a Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP11 «, t00=0x0002, t01=0x0008}
0x033a…0350 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP12 «, t00=0x0002, t01=0x001e}
0x0350…03a0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0034}
0x03a0…03aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0084}
0x03aa…03bc Head {h00=0x000e, h01=0x0050, text=»* DEPOSIT «, t00=0x0002, t01=0x008e}
0x03bc…040c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x00a0}
0x040c…045c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x00f0}
0x045c…04ac Head {h00=0x004c, h01=0x0050, text=»DLDEP PROC «, t00=0x0002, t01=0x0140}
0x04ac…04fc Head {h00=0x004c, h01=0x0050, text=»DL000 «, t00=0x0002, t01=0x0190}
0x04fc…054c Head {h00=0x004c, h01=0x0050, text=» TBT SBNOBOOK,DL100 «, t00=0x0003, t01=0x0050}
0x054c…057a Head {h00=0x002a, h01=0x0050, text=» TBF SBFT80,DL010 NO COMPACT TERMINAL «, t00=0x0003, t01=0x00a0}
0x057a…0590 Head {h00=0x0012, h01=0x0050, text=» SET SBNOBOOK «, t00=0x0003, t01=0x00ce}
0x0590…05a0 Head {h00=0x000c, h01=0x0050, text=» B DL100«, t00=0x0003, t01=0x00e4}
0x05a0…05ae Head {h00=0x000a, h01=0x0050, text=»DL010 «, t00=0x0003, t01=0x00f4}
0x05ae…05fe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x0102}
0x05fe…064e Head {h00=0x004c, h01=0x0050, text=»* NOBOOK IS OFF *«, t00=0x0003, t01=0x0152}
0x064e…069e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0012}
0x069e…06ee Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'1' «, t00=0x0004, t01=0x0062}
0x06ee…073e Head {h00=0x004c, h01=0x0050, text=» B DL200 «, t00=0x0004, t01=0x00b2}
0x073e…078e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0102}
0x078e…07de Head {h00=0x004c, h01=0x0050, text=»* NOBOOK IS ON *«, t00=0x0004, t01=0x0152}
0x07de…082e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0012}
0x082e…087e Head {h00=0x004c, h01=0x0050, text=»DL100 «, t00=0x0005, t01=0x0062}
0x087e…08ce Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'7' «, t00=0x0005, t01=0x00b2}
0x08ce…091e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0102}
0x091e…096e Head {h00=0x004c, h01=0x0050, text=»* PRINT LINE TYPE 2 *«, t00=0x0005, t01=0x0152}
0x096e…09be Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0012}
0x09be…0a0e Head {h00=0x004c, h01=0x0050, text=»DL200 «, t00=0x0006, t01=0x0062}
0x0a0e…0a5c Head {h00=0x004a, h01=0x0050, text=» PERF PAJRN,=W'2' «, t00=0x0006, t01=0x00b2}
0x0a5c…0aae Head {h00=0x004e, h01=0x0050, text=» MOVE TDNEWBAL,=D'0' INITIALISE NEW BALANCE IN FMT «, t00=0x0006, t01=0x0100}
0x0aae…0afe Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'41' DEPOSIT FORMAT «, t00=0x0006, t01=0x0152}
0x0afe…0b4e Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DL999 «, t00=0x0007, t01=0x0012}
0x0b4e…0b9e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0062}
0x0b9e…0bee Head {h00=0x004c, h01=0x0050, text=»* PRINT LINE TYPE 7 *«, t00=0x0007, t01=0x00b2}
0x0bee…0c3e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0102}
0x0c3e…0c7c Head {h00=0x003a, h01=0x0050, text=» MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY«, t00=0x0007, t01=0x0152}
0x0c7c…0cc8 Head {h00=0x0048, h01=0x0050, text=» PERF PAJRN,=W'7' «, t00=0x0007, t01=0x0190}
0x0cc8…0d18 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x004c}
0x0d18…0d68 Head {h00=0x004c, h01=0x0050, text=»* FILL TRANSACTION RECORD *«, t00=0x0008, t01=0x009c}
0x0d68…0db8 Head {h00=0x004c, h01=0x0050, text=»* GET NEXT TRANSACTION-RECORD KEY *«, t00=0x0008, t01=0x00ec}
0x0db8…0e08 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x013c}
0x0e08…0e40 Head {h00=0x0034, h01=0x0050, text=» PERF QENTRS,ADLASTRS UPDATE TRANSACTION SEQ. NR«, t00=0x0008, t01=0x018c}
0x0e40…0e72 Head {h00=0x002e, h01=0x0050, text=» MOVE TDTRSRNR,ADACTRNR ACCOUNT RECORD NR.«, t00=0x0009, t01=0x0034}
0x0e72…0ea2 Head {h00=0x002c, h01=0x0050, text=» ADD TDTRSRNR,ADLASTRS TRANS. RECORD KEY«, t00=0x0009, t01=0x0066}
0x0ea2…0eda Head {h00=0x0034, h01=0x0050, text=» ADD YDLASSEQ,=D'1' UPDATE LAST TRANS. SEQ. NR. «, t00=0x0009, t01=0x0096}
0x0eda…0f2a Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ MOVE TO TRANS. RECORD «, t00=0x0009, t01=0x00ce}
0x0f2a…0f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011e}
0x0f34…0f72 Head {h00=0x003a, h01=0x0050, text=»* TDAMOUNT CONTAINS THE VALUE ENTERED BY THE OPERATOR «, t00=0x0009, t01=0x0128}
0x0f72…0f7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0166}
0x0f7c…0fcc Head {h00=0x004c, h01=0x0050, text=» TBF SBRVS,DL300 «, t00=0x0009, t01=0x0170}
0x0fcc…101c Head {h00=0x004c, h01=0x0050, text=» MUL TDAMOUNT,=D'-1' REVERSAL «, t00=0x000a, t01=0x0030}
0x101c…106c Head {h00=0x004c, h01=0x0050, text=»DL300 «, t00=0x000a, t01=0x0080}
0x106c…10bc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00d0}
0x10bc…110c Head {h00=0x004c, h01=0x0050, text=»* FILL ACCOUNT RECORD *«, t00=0x000a, t01=0x0120}
0x110c…115c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0170}
0x115c…1184 Head {h00=0x0024, h01=0x0050, text=» MOVE ADBAL,TDNEWBAL NEW BALANCE«, t00=0x000b, t01=0x0030}
0x1184…11d4 Head {h00=0x004c, h01=0x0050, text=» ADD ADDEPCUM,TDAMOUNT ACCUMULATED DEPOSITS «, t00=0x000b, t01=0x0058}
0x11d4…1224 Head {h00=0x004c, h01=0x0050, text=» MOVE ADLASSEQ,TDTRSSEQ TRANS. SEQUENCE NR. «, t00=0x000b, t01=0x00a8}
0x1224…1274 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x00f8}
0x1274…12c4 Head {h00=0x004c, h01=0x0050, text=»* WRITE RECORDS *«, t00=0x000b, t01=0x0148}
0x12c4…1314 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0008}
0x1314…1364 Head {h00=0x004c, h01=0x0050, text=» PERF ZHWRID,TDTRSRNR,NDLRN2 TRANSACTION RECORD «, t00=0x000c, t01=0x0058}
0x1364…13b4 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DL999 «, t00=0x000c, t01=0x00a8}
0x13b4…13e8 Head {h00=0x0030, h01=0x0050, text=» PERF ZDRWRD,ADACTRNR,NDLRN1 ACCOUNT RECORD «, t00=0x000c, t01=0x00f8}
0x13e8…1404 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DL999 «, t00=0x000c, t01=0x012c}
0x1404…1454 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0148}
0x1454…14a4 Head {h00=0x004c, h01=0x0050, text=»* UPDATE OPERATOR ACCUMULATORS *«, t00=0x000d, t01=0x0008}
0x14a4…14f4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0058}
0x14f4…1502 Head {h00=0x000a, h01=0x0050, text=»DL400 «, t00=0x000d, t01=0x00a8}
0x1502…1552 Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW1,KW4),TDAMOUNT BALANCE CASH «, t00=0x000d, t01=0x00b6}
0x1552…15a2 Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW2,KW3),TDAMOUNT ACCUMULATED DEPOSITS «, t00=0x000d, t01=0x0106}
0x15a2…15f2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0156}
0x15f2…1642 Head {h00=0x004c, h01=0x0050, text=»* PRINT VOUCHER OR BOOK *«, t00=0x000e, t01=0x0016}
0x1642…1676 Head {h00=0x0030, h01=0x0050, text=»* IF A TELLER TERMINAL PRINTER IS AVAILABLE «, t00=0x000e, t01=0x0066}
0x1676…16c6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000e, t01=0x009a}
0x16c6…16f6 Head {h00=0x002c, h01=0x0050, text=» CBNL RDPRTTYP,=D'2',DL999 «, t00=0x000e, t01=0x00ea}
0x16f6…1746 Head {h00=0x004c, h01=0x0050, text=» TBT SBNOBOOK,DL600 «, t00=0x000e, t01=0x011a}
0x1746…1796 Head {h00=0x004c, h01=0x0050, text=» TBT SBCHQACT,DL600 «, t00=0x000e, t01=0x016a}
0x1796…17e6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x002a}
0x17e6…1836 Head {h00=0x004c, h01=0x0050, text=»* SAVINGS ACCOUNT WITH BOOK *«, t00=0x000f, t01=0x007a}
0x1836…1886 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00ca}
0x1886…18c6 Head {h00=0x003c, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK «, t00=0x000f, t01=0x011a}
0x18c6…18e2 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DL999 «, t00=0x000f, t01=0x015a}
0x18e2…1904 Head {h00=0x001e, h01=0x0050, text=» PERF PBBOOK PRINT IN BOOK«, t00=0x000f, t01=0x0176}
0x1904…1914 Head {h00=0x000c, h01=0x0050, text=» B DL999«, t00=0x0010, t01=0x0008}
0x1914…1964 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0018}
0x1964…19b4 Head {h00=0x004c, h01=0x0050, text=»* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK *«, t00=0x0010, t01=0x0068}
0x19b4…1a04 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x00b8}
0x1a04…1a12 Head {h00=0x000a, h01=0x0050, text=»DL600 «, t00=0x0010, t01=0x0108}
0x1a12…1a68 Head {h00=0x0052, h01=0x0050, text=» PERF PCVCH,=W'1' PRINT VOUCHER «, t00=0x0010, t01=0x0116}
0x1a68…1ab8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x016c}
0x1ab8…1ad8 Head {h00=0x001c, h01=0x0050, text=»* CANCEL AND NORMAL EXIT«, t00=0x0011, t01=0x002c}
0x1ad8…1b28 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x004c}
0x1b28…1b78 Head {h00=0x004c, h01=0x0050, text=»DL999 «, t00=0x0011, t01=0x009c}
0x1b78…1bc8 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0011, t01=0x00ec}
0x1bc8…1c18 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x013c}
0x1c18…1c68 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0011, t01=0x018c}
0x1c68…1cb8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x004c}
0x1cb8…1cbc Head {h00=0x0054, h01=0x0050}
0x1cbc…1cc0 Head {h00=0x2a20, h01=0x4348}
0x1cc0…1d10 45 43 4b 20 42 4f 4f 4b 20 42 41 4c 41 4e 43 45 20 45 4e 54 45 52 45 44 20 28 44 4c 44 45 50 20 2b 20 44 4d 57 44 52 29 00 00 00 00 00 00 00 00 00 00 00 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 00 9c ┆ECK BOOK BALANCE ENTERED (DLDEP + DMWDR) * ┆
0x1d10…1d60 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 12 00 f4 ┆ L P* * ┆
0x1d60…1db0 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 00 12 01 44 ┆ L P************************************************************************ D┆
0x1db0…1e00 (19, 0, 400) 00 16 00 50 53 50 41 50 31 30 5c 50 52 4f 43 5c 58 57 52 45 54 20 00 13 00 04 00 10 00 50 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 13 00 1e 00 4c 00 50 53 31 30 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 ┆ PSPAP10 PROC XWRET P PBIN XWRET L PS10000 ┆
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 00 00 00 00 00 00 00 00 00 00 00 00 13 00 32 00 18 00 50 5c 4d 55 4c 5c 41 44 4c 49 4d 42 4f 4b 2c 3d 44 27 31 27 20 00 13 00 82 00 28 00 50 5c 4d ┆ 2 P MUL ADLIMBOK,=D'1' ( P M┆
0x1e50…1ea0 55 4c 5c 49 44 41 4d 54 31 2c 3d 44 27 31 27 5c 54 52 49 43 4b 20 46 4f 52 20 43 4f 4d 50 41 52 45 20 00 13 00 9e 00 4e 00 50 5c 43 42 45 5c 41 44 4c 49 4d 42 4f 4b 2c 49 44 41 4d 54 31 2c 53 31 30 39 39 39 5c 43 48 45 43 4b 20 4f 4b 45 5c ┆UL IDAMT1,=D'1' TRICK FOR COMPARE N P CBE ADLIMBOK,IDAMT1,S10999 CHECK OKE ┆
0x1ea0…1ef0 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 20 00 13 00 ca 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 ┆ L P* ┆
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 2a 00 13 01 1c 00 4c 00 50 2a 20 45 52 52 4f 52 3a 20 49 4e 56 41 4c 49 44 20 43 4f 4d 50 41 52 49 53 4f 4e 00 00 00 00 00 00 00 00 00 ┆ * L P* ERROR: INVALID COMPARISON ┆
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 2a 00 13 01 6c 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 ┆ * l L P* ┆
0x1f90…1fe0 00 00 00 00 00 00 00 00 00 00 00 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 14 00 2c 00 4c 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 32 30 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * , L P MOVE SPBINW4,=W'20' ┆
0x1fe0…2030 00 00 00 00 00 00 00 00 00 00 00 00 00 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 7c 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 ┆ | & P MOVE XWRET,=W'1' INDICATE ERROR1 ┆
0x2030…2080 00 cc 00 0a 00 50 53 31 30 39 39 39 00 14 00 f6 00 08 00 50 5c 52 45 54 00 14 01 04 00 0a 00 50 5c 50 45 4e 44 20 00 14 01 10 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 ┆ PS10999 P RET P PEND L P**********************************┆
0x2080…20d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 14 01 1e 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 ┆************************************** L P* ┆
0x20d0…2120 (21, 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 2a 00 14 01 6e 00 54 00 50 2a 20 43 48 45 43 4b 20 4c 49 4e 45 20 4e 55 4d 42 45 52 20 45 4e 54 45 52 45 44 20 28 44 4c 44 45 50 ┆ * n T P* CHECK LINE NUMBER ENTERED (DLDEP┆
0x2120…2170 20 2b 20 44 4d 57 44 52 29 00 00 00 00 00 00 00 00 00 00 00 00 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 00 2e 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 ┆ + DMWDR) * . L P* ┆
0x2170…21c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 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**************************┆
0x21c0…2210 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 00 d6 00 16 00 50 53 50 41 50 31 31 5c 50 52 4f 43 5c 58 57 52 45 54 20 00 15 01 26 00 10 00 50 ┆********************************************** PSPAP11 PROC XWRET & P┆
0x2210…2260 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 15 01 40 00 4c 00 50 53 31 31 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 @ L PS11000 ┆
0x2260…22b0 (22, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 15 01 54 00 4e 00 50 5c 43 42 45 5c 41 44 4c 4e 45 4e 52 2c 49 44 4e 52 31 2c 53 31 31 39 39 39 5c 43 48 45 43 4b 20 4f 4b 45 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 ┆ T N P CBE ADLNENR,IDNR1,S11999 CHECK OKE ┆
0x22b0…2300 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 16 00 14 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 00 00 ┆ L P* ┆
0x2300…2350 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 16 00 66 00 4c 00 50 2a 20 45 52 52 4f 52 3a 20 49 4e 56 41 4c 49 44 20 43 4f 4d 50 41 52 49 53 4f 4e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * f L P* ERROR: INVALID COMPARISON ┆
0x2350…23a0 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 16 00 b6 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 00 00 ┆ * L P* ┆
0x23a0…23f0 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 16 01 06 00 4c 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 32 30 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 ┆ * L P MOVE SPBINW4,=W'20' ┆
0x23f0…2440 (23, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 16 01 56 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 17 00 16 00 0a 00 50 53 31 31 39 39 39 00 17 00 40 00 08 00 50 5c 52 ┆ V & P MOVE XWRET,=W'1' INDICATE ERROR1 PS11999 @ P R┆
0x2440…2490 45 54 00 17 00 4e 00 0a 00 50 5c 50 45 4e 44 20 00 17 00 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ET N P PEND Z L P********************************************************┆
0x2490…24e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 17 00 68 00 06 00 50 2a 20 00 17 00 b8 00 4c 00 50 2a 20 43 41 4c 43 55 4c 41 54 45 20 4e 45 57 20 42 41 4c 41 4e 43 45 20 28 44 4c 44 45 50 29 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆**************** h P* L P* CALCULATE NEW BALANCE (DLDEP) ┆
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 2a 00 17 00 c2 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 ┆ * L P* ┆
0x2530…2580 00 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 17 01 12 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 ┆ * L P**********************************************┆
0x2580…25d0 (24, 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 00 17 01 62 00 16 00 50 53 50 41 50 31 32 5c 50 52 4f 43 5c 58 57 52 45 54 20 00 18 00 22 00 10 00 50 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 18 00 3c 00 4c 00 50 ┆************************** b PSPAP12 PROC XWRET " P PBIN XWRET < L P┆
0x25d0…2620 53 31 32 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 18 00 50 00 4e 00 50 ┆S12000 P N P┆
0x2620…2670 5c 4d 4f 56 45 5c 54 44 4e 45 57 42 41 4c 2c 54 44 41 4d 4f 55 4e 54 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 18 00 a0 00 4c ┆ MOVE TDNEWBAL,TDAMOUNT L┆
0x2670…26c0 00 50 5c 54 42 46 5c 53 42 52 56 53 2c 53 31 32 31 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 00 00 18 00 f2 00 4e ┆ P TBF SBRVS,S12100 N┆
0x26c0…2710 00 50 5c 4d 55 4c 5c 54 44 4e 45 57 42 41 4c 2c 3d 44 27 2d 31 27 5c 52 45 56 45 52 53 41 4c 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 18 01 42 ┆ P MUL TDNEWBAL,=D'-1' REVERSAL B┆
0x2710…2760 (25, 0, 398) 00 4c 00 50 53 31 32 31 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 19 00 04 ┆ L PS12100 ┆
0x2760…27b0 00 4e 00 50 5c 41 44 44 5c 54 44 4e 45 57 42 41 4c 2c 41 44 42 41 4c 5c 4e 45 57 20 42 41 4c 41 4e 43 45 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 19 ┆ N P ADD TDNEWBAL,ADBAL NEW BALANCE ┆
0x27b0…2800 00 54 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 19 ┆ T L P* * ┆
0x2800…2850 00 a6 00 4c 00 50 2a 20 55 50 44 41 54 45 20 4e 45 58 54 20 46 49 45 4c 44 20 49 4e 20 54 48 45 20 46 4f 52 4d 41 54 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ┆ L P* UPDATE NEXT FIELD IN THE FORMAT * ┆
0x2850…289e 00 f6 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a ┆ L P* *┆
0x289e…28ee (26, 0, 400) 00 19 01 46 00 1e 00 50 5c 43 42 4c 5c 52 44 53 43 52 4c 4e 53 2c 3d 44 27 34 27 2c 53 31 32 39 39 39 00 1a 00 08 00 28 00 50 5c 45 52 41 53 45 5c 30 2c 4b 57 34 2c 4b 57 34 5c 46 49 52 53 54 20 45 52 41 53 45 20 4c 49 4e 45 20 34 20 00 1a ┆ F P CBL RDSCRLNS,=D'4',S12999 ( P ERASE 0,KW4,KW4 FIRST ERASE LINE 4 ┆
0x28ee…293e 00 2a 00 28 00 50 5c 44 49 53 50 4c 41 59 5c 34 2c 4b 57 34 2c 4b 57 34 5c 52 45 44 49 53 50 4c 41 59 20 4c 49 4e 45 20 34 20 00 1a 00 56 00 0a 00 50 53 31 32 39 39 39 00 1a 00 82 00 08 00 50 5c 52 45 54 00 1a 00 90 00 0a 00 50 5c 50 45 4e ┆ * ( P DISPLAY 4,KW4,KW4 REDISPLAY LINE 4 V PS12999 P RET P PEN┆
0x293e…298e 44 20 00 1a 00 9c 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 ┆D L P**********************************************************************┆
0x298e…29de 2a 2a 00 1a 00 aa 00 4c 00 50 2a 20 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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* ┆
0x29de…2a2e 00 2a 00 1a 00 fa 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P END ┆
0x2a2e…2a3c (27, 2, 14) 00 00 00 1a 01 4a 40 04 00 00 00 1b 00 0a ┆ J@ ┆
0x2a3c…2a44 (28, 1, 8) 20 04 00 00 00 1c 00 04 ┆ ┆