|
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: 10928 (0x2ab0)
Notes: pts_type(SC)
Names: »DLDEP.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/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
**
CBE RDPRTTYP,=D'2',DL999
CBE RDPRTTYP,=D'4',DL999 NO SUITABLE PRINTER TYPE
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…16e8 Head {h00=0x001e, h01=0x0050, text=» CBE RDPRTTYP,=D'2',DL999 «, t00=0x000e, t01=0x00ea}
0x16e8…1722 Head {h00=0x0036, h01=0x0050, text=» CBE RDPRTTYP,=D'4',DL999 NO SUITABLE PRINTER TYPE«, t00=0x000e, t01=0x010c}
0x1722…1772 Head {h00=0x004c, h01=0x0050, text=» TBT SBNOBOOK,DL600 «, t00=0x000e, t01=0x0146}
0x1772…17c2 Head {h00=0x004c, h01=0x0050, text=» TBT SBCHQACT,DL600 «, t00=0x000f, t01=0x0008}
0x17c2…1812 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0058}
0x1812…1862 Head {h00=0x004c, h01=0x0050, text=»* SAVINGS ACCOUNT WITH BOOK *«, t00=0x000f, t01=0x00a8}
0x1862…18b2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00f8}
0x18b2…18f2 Head {h00=0x003c, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK «, t00=0x000f, t01=0x0148}
0x18f2…190e Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DL999 «, t00=0x000f, t01=0x0188}
0x190e…1930 Head {h00=0x001e, h01=0x0050, text=» PERF PBBOOK PRINT IN BOOK«, t00=0x0010, t01=0x0014}
0x1930…1940 Head {h00=0x000c, h01=0x0050, text=» B DL999«, t00=0x0010, t01=0x0036}
0x1940…1990 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0046}
0x1990…19e0 Head {h00=0x004c, h01=0x0050, text=»* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK *«, t00=0x0010, t01=0x0096}
0x19e0…1a30 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x00e6}
0x1a30…1a3e Head {h00=0x000a, h01=0x0050, text=»DL600 «, t00=0x0010, t01=0x0136}
0x1a3e…1a94 Head {h00=0x0052, h01=0x0050, text=» PERF PCVCH,=W'1' PRINT VOUCHER «, t00=0x0010, t01=0x0144}
0x1a94…1ae4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x000a}
0x1ae4…1b04 Head {h00=0x001c, h01=0x0050, text=»* CANCEL AND NORMAL EXIT«, t00=0x0011, t01=0x005a}
0x1b04…1b54 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x007a}
0x1b54…1ba4 Head {h00=0x004c, h01=0x0050, text=»DL999 «, t00=0x0011, t01=0x00ca}
0x1ba4…1bf4 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0011, t01=0x011a}
0x1bf4…1c44 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x016a}
0x1c44…1c94 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0012, t01=0x002a}
0x1c94…1ce4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x007a}
0x1ce4…1ce8 Head {h00=0x0054, h01=0x0050}
0x1ce8…1cec Head {h00=0x2a20, h01=0x4348}
0x1cec…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 ┆ECK BOOK BALANCE ENTERED (DLDEP + DM┆
0x1d10…1d60 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 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 ┆WDR) * L P* ┆
0x1d60…1dae 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 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 ┆ * " L P******************************┆
0x1dae…1dfe (19, 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 12 01 72 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 32 00 10 00 50 5c 50 42 49 ┆****************************************** r PSPAP10 PROC XWRET 2 P PBI┆
0x1dfe…1e4e 4e 5c 58 57 52 45 54 20 00 13 00 4c 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆N XWRET L L PS10000 ┆
0x1e4e…1e9e 00 00 00 00 00 00 00 00 00 13 00 60 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 b0 00 28 00 50 5c 4d 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 ┆ ` P MUL ADLIMBOK,=D'1' ( P MUL IDAMT1,=D'1' TRICK FOR COMPARE ┆
0x1e9e…1eee 00 13 00 cc 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 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 ┆ N P CBE ADLIMBOK,IDAMT1,S10999 CHECK OKE ┆
0x1eee…1f3e 00 20 00 13 00 f8 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 ┆ L P* ┆
0x1f3e…1f8e (20, 0, 400) 00 2a 00 13 01 4a 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 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * J L P* ERROR: INVALID COMPARISON ┆
0x1f8e…1fde 00 2a 00 14 00 0a 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 ┆ * L P* ┆
0x1fde…202e 00 2a 00 14 00 5a 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 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * Z L P MOVE SPBINW4,=W'20' ┆
0x202e…207e 00 00 00 14 00 aa 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 00 fa 00 0a 00 50 53 31 30 39 39 39 00 14 01 24 00 08 00 50 5c 52 45 54 00 14 01 32 00 0a 00 50 5c 50 ┆ & P MOVE XWRET,=W'1' INDICATE ERROR1 PS10999 $ P RET 2 P P┆
0x207e…20ce 45 4e 44 20 00 14 01 3e 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 ┆END > L P********************************************************************┆
0x20ce…211e (21, 0, 400) 2a 2a 2a 2a 00 14 01 4c 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 ┆**** L L P* ┆
0x211e…216e 00 00 00 2a 00 15 00 0c 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 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 ┆ * T P* CHECK LINE NUMBER ENTERED (DLDEP + DMWDR) ┆
0x216e…21be 00 00 00 00 00 00 00 00 00 00 00 2a 00 15 00 5c 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 ┆ * L P* ┆
0x21be…220e 00 00 00 00 00 00 00 00 00 00 00 2a 00 15 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * L P************************************************************┆
0x220e…225e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 15 01 04 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 54 00 10 00 50 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 15 01 6e 00 4c 00 50 53 31 31 30 30 30 5c 5c 5c 5c 5c 00 00 00 ┆************ PSPAP11 PROC XWRET T P PBIN XWRET n L PS11000 ┆
0x225e…22ae (22, 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 00 00 00 00 00 00 00 00 00 00 00 00 15 01 82 00 24 00 50 5c 4d 55 4c 5c 41 44 4c 4e 45 4e 52 2c 3d ┆ $ P MUL ADLNENR,=┆
0x22ae…22fe 44 27 31 27 5c 43 4d 50 41 52 45 20 54 52 49 43 4b 20 00 16 00 42 00 14 00 50 5c 4d 55 4c 5c 49 44 4e 52 31 2c 3d 44 27 31 27 00 16 00 6a 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 ┆D'1' CMPARE TRICK B P MUL IDNR1,=D'1' j N P CBE ADLNENR,IDNR1,S11999 CHEC┆
0x22fe…234e 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 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 16 00 82 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 ┆K OKE L P* ┆
0x234e…239e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 16 00 d4 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 ┆ * L P* ERROR: INVALID COMPARISON ┆
0x239e…23ee 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 16 01 24 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 ┆ * $ L P* ┆
0x23ee…243e (23, 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 2a 00 16 01 74 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 ┆ * t L P MOVE SPBINW4,=W'20' ┆
0x243e…248e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 34 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 ┆ 4 & P MOVE XWRET,=W'1' INDICATE E┆
0x248e…24de 52 52 4f 52 31 20 00 17 00 84 00 0a 00 50 53 31 31 39 39 39 00 17 00 ae 00 08 00 50 5c 52 45 54 00 17 00 bc 00 0a 00 50 5c 50 45 4e 44 20 00 17 00 c8 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 ┆RROR1 PS11999 P RET P PEND L P**************************┆
0x24de…252e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 00 d6 00 06 00 50 2a 20 00 17 01 26 00 4c 00 50 2a 20 43 41 4c 43 55 4c 41 54 45 20 4e 45 57 20 ┆********************************************** P* & L P* CALCULATE NEW ┆
0x252e…257e 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 00 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 30 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆BALANCE (DLDEP) * 0 L P* ┆
0x257e…25ce (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 00 00 00 00 00 00 00 00 2a 00 17 01 80 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * L P****************┆
0x25ce…261e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 00 40 00 16 00 50 53 50 41 50 31 32 5c 50 52 4f 43 5c 58 57 52 45 ┆******************************************************** @ PSPAP12 PROC XWRE┆
0x261e…266e 54 20 00 18 00 90 00 10 00 50 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 18 00 aa 00 4c 00 50 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 ┆T P PBIN XWRET L PS12000 ┆
0x266e…26be 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 be 00 4e 00 50 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 ┆ N P MOVE TDNEWBAL,TDAMOUNT ┆
0x26be…270e 00 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 0e 00 4c 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 ┆ L P TBF SBRVS,S12100 ┆
0x270e…275e (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 18 01 60 00 4e 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 ┆ ` N P MUL TDNEWBAL,=D'-1' REVERSAL ┆
0x275e…27ae 00 00 00 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 20 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 ┆ L PS12100 ┆
0x27ae…27fe 00 00 00 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 72 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 ┆ r N P ADD TDNEWBAL,ADBAL NEW BALANCE ┆
0x27fe…284e 00 00 00 00 00 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 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 ┆ L P* ┆
0x284e…289e 00 00 00 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 01 14 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 ┆ * L P* UPDATE NEXT FIELD IN THE FORMAT ┆
0x289e…28ee (26, 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 2a 00 19 01 64 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 ┆ * d L P* ┆
0x28ee…293e 00 00 00 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 1a 00 24 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 74 00 28 00 50 5c 45 52 41 53 45 5c 30 2c 4b ┆ * $ P CBL RDSCRLNS,=D'4',S12999 t ( P ERASE 0,K┆
0x293e…298e 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 00 96 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 c2 00 0a 00 50 53 31 ┆W4,KW4 FIRST ERASE LINE 4 ( P DISPLAY 4,KW4,KW4 REDISPLAY LINE 4 PS1┆
0x298e…29de 32 39 39 39 00 1a 00 ee 00 08 00 50 5c 52 45 54 00 1a 00 fc 00 0a 00 50 5c 50 45 4e 44 20 00 1a 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 ┆2999 P RET P PEND L P******************************************┆
0x29de…2a2e 2a 2a 2a 2a 2a 2a 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 1a 01 16 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 ┆****************************** L P* ┆
0x2a2e…2a7e (27, 2, 122) 00 00 00 00 00 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 1a 01 66 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 ┆ * f L P END ┆
0x2a7e…2aa8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1b 00 26 40 04 00 00 00 1b 00 76 ┆ &@ v┆
0x2aa8…2ab0 (28, 1, 8) 20 04 00 00 00 1c 00 04 ┆ ┆