|
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: 10966 (0x2ad6)
Notes: pts_type(SC)
Names: »DMWDR.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/DMWDR.SC«
IDENT DMWDR WITHDRAWAL
DDUM DEMODD
PDIV
EXPROC PAJRN
EXPROC PBBOOK
EXPROC PCVCH
EXPROC QENTRS
EXPROC XBFMT
EXPROC ZCRDD
EXPROC ZDRWRD
EXPROC ZHWRID
EXPROC TNDCAB
ENTRY DMWDR
ENTRY SPAP14
************************************************************************
**
* WITHDRAWAL OF A CHEQUE OR SAVINGS ACCOUNT*
**
************************************************************************
DMWDR PROC
DM000
SET SBWDR
TBT SBCHEQUE,DM100
MOVE TDTRSCDE,=D'2' SBCHEQUE IS OFF
B DM200
DM100
MOVE TDTRSCDE,=D'16' SBCHEQUE IS ON
DM200
**
* PRINT LINE TYPE 2*
**
PERF PAJRN,=W'2'
MOVE TDNEWBAL,=D'0' INITIALISE NEW BALANCE
TBF SBFT80,DM210 NO COMPACT TERMINAL
PERF XBFMT,=W'70'
B DM220
DM210
PERF XBFMT,=W'42' WITHDRAWAL FORMAT
DM220
TBT SBCANCEL,DM999
**
* 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 AMOUNT KEYED IN BY THE OPERATOR
*
TBF SBRVS,DM250
MUL TDAMOUNT,=D'-1' UPDATE AMOUNT
DM250
TBF SBCHQACT,DM300
*** MOVE TDCHQNR,FCFIELD*
DM300
**
* FILL ACCOUNT RECORD*
**
MOVE ADBAL,TDNEWBAL NEW BALANCE
ADD ADWDRCUM,TDAMOUNT ACCUMULATED WITHDR.
MOVE ADLASSEQ,TDTRSSEQ TRANS. SEQ. NR.
**
* WRITE ACCOUNT AND TRANSACTION RECORD*
**
DM700
PERF ZHWRID,TDTRSRNR,NDLRN2 TRANSACTION RECORD
TBT SBCANCEL,DM999
PERF ZDRWRD,ADACTRNR,NDLRN1 ACCOUNT RECORD
TBT SBCANCEL,DM999
* *
* UPDATE OPERATOR BALANCES*
**
DM750
*
*
* DISPENSE BANKNOTEST, DISPLAY REMAINING AMOUNT IN
* SMALL CHANGE
CBG TDAMOUNT,=D'0',DM760
B DM780
DM760
PERF TNDCAB PAY IF > 0
DM780
SUB ODCASH(KW1,KW4),TDAMOUNT BALANCE CASH
ADD ODCASH(KW2,KW4),TDAMOUNT ACCUMULATED WITHDRAWALS
TBF SBCHEQUE,DM800
ADD ODCASH(KW2,KW1),TDAMOUNT ACCUMULATED CHEQUES
**
* PRINT VOUCHER OR PASSBOOK*
* IF A TERMINAL PRINTER IS AVAILABLE*
**
DM800
CBE RDPRTTYP,=D'4',DM999
CBE RDPRTTYP,=D'2',DM999 NO SUITABLE PRINTER
TBT SBCHQACT,DM820
**
* SAVINGS ACCOUNT, PRINT BOOK*
**
PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK
TBT SBCANCEL,DM999
PERF PBBOOK
B DM999
**
* CHEQUE ACCOUNT, PRINT VOUCHER(S)*
**
DM820
TBF SBCHEQUE,DM850 SBCHEQUE IS OFF
*** PRINT CHEQUE*
DM850
PERF PCVCH,=W'2'
DM999
CLEAR SBWDR
RET
PEND
************************************************************************
**
* CALCULATE NEW BALANCE (FMT042(WITHDRAWAL) AND FMT045(TRANSFER))
**
************************************************************************
SPAP14 PROC XWRET
PBIN XWRET
S14000
MOVE TDNEWBAL,TDAMOUNT
TBT SBRVS,S14100
MUL TDNEWBAL,=D'-1' NOT REVERSAL
S14100
ADD TDNEWBAL,ADBAL NEW BALANCE
* *
* REDISPLAY NEXT FIELD IN FORMAT
*
TBT SBWDR,S14125
*
* NOT WITHDRAWAL, NEW BALANCE IS ON LINE 4
*
CBL RDSCRLNS,=D'4',S14150
ERASE 0,KW4,KW4
DISPLAY 4,KW4,KW4 DISPLAY NEW BALANCE
B S14150
S14125
CBL RDSCRLNS,=D'5',S14150
ERASE 0,KW5,KW5
DISPLAY 4,KW5,KW5
*
* CHECK SUFFICIENT FUNDS*
* *
S14150
MOVE WDEC1,TDNEWBAL
TBF SBCHQACT,S14200 SAVINGS ACCOUNT
**
* CHEQUE ACCOUNT*
**
MOVE WDEC1,TDNEWBAL
ADD WDEC1,ADLIMBOK CREDIT LIMIT
**
* SAVINGS AND CHEQUE ACCOUNT*
**
S14200
CBNL WDEC1,=D'0',S14990 FUNDS ARE SUFFICIENT
**
* ERROR: INSUFFICIENT FUNDS*
**
MOVE SPBINW4,=W'35'
MOVE XWRET,=W'1' INDICATE ERROR
S14990
RET
PEND
************************************************************************
END
0x0000…003a (0, 0, 400) Head {h00=0x0036, h01=0x0050, text=» IDENT DMWDR WITHDRAWAL«, t00=0x0000, t01=0x0004}
0x003a…008a Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x003e}
0x008a…00da Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x008e}
0x00da…012e Head {h00=0x0050, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x00de}
0x012e…0182 Head {h00=0x0050, h01=0x0050, text=» EXPROC PBBOOK «, t00=0x0000, t01=0x0132}
0x0182…01d6 Head {h00=0x0050, h01=0x0050, text=» EXPROC PCVCH «, t00=0x0000, t01=0x0186}
0x01d6…022a Head {h00=0x0050, h01=0x0050, text=» EXPROC QENTRS «, t00=0x0001, t01=0x004a}
0x022a…027e Head {h00=0x0050, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0001, t01=0x009e}
0x027e…0294 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0001, t01=0x00f2}
0x0294…02aa Head {h00=0x0012, h01=0x0050, text=» EXPROC ZDRWRD«, t00=0x0001, t01=0x0108}
0x02aa…02fe Head {h00=0x0050, h01=0x0050, text=» EXPROC ZHWRID «, t00=0x0001, t01=0x011e}
0x02fe…0314 Head {h00=0x0012, h01=0x0050, text=» EXPROC TNDCAB«, t00=0x0001, t01=0x0172}
0x0314…0364 Head {h00=0x004c, h01=0x0050, text=» ENTRY DMWDR «, t00=0x0001, t01=0x0188}
0x0364…037a Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP14 «, t00=0x0002, t01=0x0048}
0x037a…03ca Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x005e}
0x03ca…041a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x00ae}
0x041a…046a Head {h00=0x004c, h01=0x0050, text=»* WITHDRAWAL OF A CHEQUE OR SAVINGS ACCOUNT *«, t00=0x0002, t01=0x00fe}
0x046a…04ba Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x014e}
0x04ba…050a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0003, t01=0x000e}
0x050a…055a Head {h00=0x004c, h01=0x0050, text=»DMWDR PROC «, t00=0x0003, t01=0x005e}
0x055a…05aa Head {h00=0x004c, h01=0x0050, text=»DM000 «, t00=0x0003, t01=0x00ae}
0x05aa…05bc Head {h00=0x000e, h01=0x0050, text=» SET SBWDR«, t00=0x0003, t01=0x00fe}
0x05bc…060c Head {h00=0x004c, h01=0x0050, text=» TBT SBCHEQUE,DM100 «, t00=0x0003, t01=0x0110}
0x060c…065c Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'2' SBCHEQUE IS OFF «, t00=0x0003, t01=0x0160}
0x065c…06ac Head {h00=0x004c, h01=0x0050, text=» B DM200 «, t00=0x0004, t01=0x0020}
0x06ac…06fc Head {h00=0x004c, h01=0x0050, text=»DM100 «, t00=0x0004, t01=0x0070}
0x06fc…074c Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'16' SBCHEQUE IS ON «, t00=0x0004, t01=0x00c0}
0x074c…079c Head {h00=0x004c, h01=0x0050, text=»DM200 «, t00=0x0004, t01=0x0110}
0x079c…07ec Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0160}
0x07ec…083c Head {h00=0x004c, h01=0x0050, text=»* PRINT LINE TYPE 2 *«, t00=0x0005, t01=0x0020}
0x083c…088c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0070}
0x088c…08dc Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'2' «, t00=0x0005, t01=0x00c0}
0x08dc…092c Head {h00=0x004c, h01=0x0050, text=» MOVE TDNEWBAL,=D'0' INITIALISE NEW BALANCE «, t00=0x0005, t01=0x0110}
0x092c…095a Head {h00=0x002a, h01=0x0050, text=» TBF SBFT80,DM210 NO COMPACT TERMINAL «, t00=0x0005, t01=0x0160}
0x095a…0974 Head {h00=0x0016, h01=0x0050, text=» PERF XBFMT,=W'70'«, t00=0x0005, t01=0x018e}
0x0974…0984 Head {h00=0x000c, h01=0x0050, text=» B DM220«, t00=0x0006, t01=0x0018}
0x0984…0992 Head {h00=0x000a, h01=0x0050, text=»DM210 «, t00=0x0006, t01=0x0028}
0x0992…09e2 Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'42' WITHDRAWAL FORMAT «, t00=0x0006, t01=0x0036}
0x09e2…09f0 Head {h00=0x000a, h01=0x0050, text=»DM220 «, t00=0x0006, t01=0x0086}
0x09f0…0a40 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DM999 «, t00=0x0006, t01=0x0094}
0x0a40…0a90 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x00e4}
0x0a90…0ae0 Head {h00=0x004c, h01=0x0050, text=»* PRINT LINE TYPE 7 *«, t00=0x0006, t01=0x0134}
0x0ae0…0b30 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0184}
0x0b30…0b6e Head {h00=0x003a, h01=0x0050, text=» MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY«, t00=0x0007, t01=0x0044}
0x0b6e…0bba Head {h00=0x0048, h01=0x0050, text=» PERF PAJRN,=W'7' «, t00=0x0007, t01=0x0082}
0x0bba…0c0a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00ce}
0x0c0a…0c5a Head {h00=0x004c, h01=0x0050, text=»* FILL TRANSACTION RECORD *«, t00=0x0007, t01=0x011e}
0x0c5a…0caa Head {h00=0x004c, h01=0x0050, text=»* GET NEXT TRANSACTION-RECORD KEY *«, t00=0x0007, t01=0x016e}
0x0caa…0cfa Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x002e}
0x0cfa…0d32 Head {h00=0x0034, h01=0x0050, text=» PERF QENTRS,ADLASTRS UPDATE TRANSACTION SEQ. NR«, t00=0x0008, t01=0x007e}
0x0d32…0d64 Head {h00=0x002e, h01=0x0050, text=» MOVE TDTRSRNR,ADACTRNR ACCOUNT RECORD NR.«, t00=0x0008, t01=0x00b6}
0x0d64…0d94 Head {h00=0x002c, h01=0x0050, text=» ADD TDTRSRNR,ADLASTRS TRANS. RECORD KEY«, t00=0x0008, t01=0x00e8}
0x0d94…0dcc Head {h00=0x0034, h01=0x0050, text=» ADD YDLASSEQ,=D'1' UPDATE LAST TRANS. SEQ. NR. «, t00=0x0008, t01=0x0118}
0x0dcc…0e1c Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ MOVE TO TRANS. RECORD «, t00=0x0008, t01=0x0150}
0x0e1c…0e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0010}
0x0e26…0e66 Head {h00=0x003c, h01=0x0050, text=»* TDAMOUNT CONTAINS THE AMOUNT KEYED IN BY THE OPERATOR «, t00=0x0009, t01=0x001a}
0x0e66…0e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005a}
0x0e70…0ec0 Head {h00=0x004c, h01=0x0050, text=» TBF SBRVS,DM250 «, t00=0x0009, t01=0x0064}
0x0ec0…0f10 Head {h00=0x004c, h01=0x0050, text=» MUL TDAMOUNT,=D'-1' UPDATE AMOUNT «, t00=0x0009, t01=0x00b4}
0x0f10…0f60 Head {h00=0x004c, h01=0x0050, text=»DM250 «, t00=0x0009, t01=0x0104}
0x0f60…0fb0 Head {h00=0x004c, h01=0x0050, text=» TBF SBCHQACT,DM300 «, t00=0x0009, t01=0x0154}
0x0fb0…1000 Head {h00=0x004c, h01=0x0050, text=»*** MOVE TDCHQNR,FCFIELD *«, t00=0x000a, t01=0x0014}
0x1000…1050 Head {h00=0x004c, h01=0x0050, text=»DM300 «, t00=0x000a, t01=0x0064}
0x1050…10a0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00b4}
0x10a0…10f0 Head {h00=0x004c, h01=0x0050, text=»* FILL ACCOUNT RECORD *«, t00=0x000a, t01=0x0104}
0x10f0…1140 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0154}
0x1140…1190 Head {h00=0x004c, h01=0x0050, text=» MOVE ADBAL,TDNEWBAL NEW BALANCE «, t00=0x000b, t01=0x0014}
0x1190…11e0 Head {h00=0x004c, h01=0x0050, text=» ADD ADWDRCUM,TDAMOUNT ACCUMULATED WITHDR. «, t00=0x000b, t01=0x0064}
0x11e0…1230 Head {h00=0x004c, h01=0x0050, text=» MOVE ADLASSEQ,TDTRSSEQ TRANS. SEQ. NR. «, t00=0x000b, t01=0x00b4}
0x1230…1280 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0104}
0x1280…12d0 Head {h00=0x004c, h01=0x0050, text=»* WRITE ACCOUNT AND TRANSACTION RECORD *«, t00=0x000b, t01=0x0154}
0x12d0…1320 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0014}
0x1320…1370 Head {h00=0x004c, h01=0x0050, text=»DM700 «, t00=0x000c, t01=0x0064}
0x1370…13c0 Head {h00=0x004c, h01=0x0050, text=» PERF ZHWRID,TDTRSRNR,NDLRN2 TRANSACTION RECORD «, t00=0x000c, t01=0x00b4}
0x13c0…13dc Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DM999 «, t00=0x000c, t01=0x0104}
0x13dc…142c Head {h00=0x004c, h01=0x0050, text=» PERF ZDRWRD,ADACTRNR,NDLRN1 ACCOUNT RECORD «, t00=0x000c, t01=0x0120}
0x142c…1448 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DM999 «, t00=0x000c, t01=0x0170}
0x1448…1498 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x018c}
0x1498…14e8 Head {h00=0x004c, h01=0x0050, text=»* UPDATE OPERATOR BALANCES *«, t00=0x000d, t01=0x004c}
0x14e8…1538 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x009c}
0x1538…1546 Head {h00=0x000a, h01=0x0050, text=»DM750 «, t00=0x000d, t01=0x00ec}
0x1546…1550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fa}
0x1550…155a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0104}
0x155a…159c Head {h00=0x003e, h01=0x0050, text=»* DISPENSE BANKNOTEST, DISPLAY REMAINING AMOUNT IN«, t00=0x000d, t01=0x010e}
0x159c…15ba Head {h00=0x001a, h01=0x0050, text=»* SMALL CHANGE«, t00=0x000d, t01=0x0150}
0x15ba…15dc Head {h00=0x001e, h01=0x0050, text=» CBG TDAMOUNT,=D'0',DM760 «, t00=0x000d, t01=0x016e}
0x15dc…15ec Head {h00=0x000c, h01=0x0050, text=» B DM780«, t00=0x000d, t01=0x0190}
0x15ec…15fa Head {h00=0x000a, h01=0x0050, text=»DM760 «, t00=0x000e, t01=0x0010}
0x15fa…161a Head {h00=0x001c, h01=0x0050, text=» PERF TNDCAB PAY IF > 0 «, t00=0x000e, t01=0x001e}
0x161a…1628 Head {h00=0x000a, h01=0x0050, text=»DM780 «, t00=0x000e, t01=0x003e}
0x1628…1678 Head {h00=0x004c, h01=0x0050, text=» SUB ODCASH(KW1,KW4),TDAMOUNT BALANCE CASH «, t00=0x000e, t01=0x004c}
0x1678…16c8 Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW2,KW4),TDAMOUNT ACCUMULATED WITHDRAWALS «, t00=0x000e, t01=0x009c}
0x16c8…1718 Head {h00=0x004c, h01=0x0050, text=» TBF SBCHEQUE,DM800 «, t00=0x000e, t01=0x00ec}
0x1718…1768 Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW2,KW1),TDAMOUNT ACCUMULATED CHEQUES «, t00=0x000e, t01=0x013c}
0x1768…17b8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000e, t01=0x018c}
0x17b8…1808 Head {h00=0x004c, h01=0x0050, text=»* PRINT VOUCHER OR PASSBOOK *«, t00=0x000f, t01=0x004c}
0x1808…1858 Head {h00=0x004c, h01=0x0050, text=»* IF A TERMINAL PRINTER IS AVAILABLE *«, t00=0x000f, t01=0x009c}
0x1858…18a8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00ec}
0x18a8…18b6 Head {h00=0x000a, h01=0x0050, text=»DM800 «, t00=0x000f, t01=0x013c}
0x18b6…18d8 Head {h00=0x001e, h01=0x0050, text=» CBE RDPRTTYP,=D'4',DM999 «, t00=0x000f, t01=0x014a}
0x18d8…190e Head {h00=0x0032, h01=0x0050, text=» CBE RDPRTTYP,=D'2',DM999 NO SUITABLE PRINTER «, t00=0x000f, t01=0x016c}
0x190e…195e Head {h00=0x004c, h01=0x0050, text=» TBT SBCHQACT,DM820 «, t00=0x0010, t01=0x0012}
0x195e…19ae Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0062}
0x19ae…19fe Head {h00=0x004c, h01=0x0050, text=»* SAVINGS ACCOUNT, PRINT BOOK *«, t00=0x0010, t01=0x00b2}
0x19fe…1a4e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0102}
0x1a4e…1a8e Head {h00=0x003c, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK «, t00=0x0010, t01=0x0152}
0x1a8e…1aaa (17, 0, 398) Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DM999 «, t00=0x0011, t01=0x0004}
0x1aaa…1abe Head {h00=0x0010, h01=0x0050, text=» PERF PBBOOK«, t00=0x0011, t01=0x0020}
0x1abe…1ace Head {h00=0x000c, h01=0x0050, text=» B DM999«, t00=0x0011, t01=0x0034}
0x1ace…1b1e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0044}
0x1b1e…1b6e Head {h00=0x004c, h01=0x0050, text=»* CHEQUE ACCOUNT, PRINT VOUCHER(S) *«, t00=0x0011, t01=0x0094}
0x1b6e…1bbe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x00e4}
0x1bbe…1bcc Head {h00=0x000a, h01=0x0050, text=»DM820 «, t00=0x0011, t01=0x0134}
0x1bcc…1c1c Head {h00=0x004c, h01=0x0050, text=» TBF SBCHEQUE,DM850 SBCHEQUE IS OFF «, t00=0x0011, t01=0x0142}
0x1c1c…1c6c (18, 0, 400) Head {h00=0x004c, h01=0x0050, text=»*** PRINT CHEQUE *«, t00=0x0012, t01=0x0004}
0x1c6c…1c7a Head {h00=0x000a, h01=0x0050, text=»DM850 «, t00=0x0012, t01=0x0054}
0x1c7a…1cd0 Head {h00=0x0052, h01=0x0050, text=» PERF PCVCH,=W'2' «, t00=0x0012, t01=0x0062}
0x1cd0…1d20 Head {h00=0x004c, h01=0x0050, text=»DM999 «, t00=0x0012, t01=0x00b8}
0x1d20…1d34 Head {h00=0x0010, h01=0x0050, text=» CLEAR SBWDR«, t00=0x0012, t01=0x0108}
0x1d34…1d84 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0012, t01=0x011c}
0x1d84…1dd4 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x016c}
0x1dd4…1e24 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0013, t01=0x002c}
0x1e24…1e74 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x007c}
0x1e74…1ebe Head {h00=0x0046, h01=0x0050, text=»* CALCULATE NEW BALANCE (FMT042(WITHDRAWAL) AND FMT045(TRANSFER)) «, t00=0x0013, t01=0x00cc}
0x1ebe…1f0e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x0116}
0x1f0e…1f5e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0013, t01=0x0166}
0x1f5e…1f78 Head {h00=0x0016, h01=0x0050, text=»SPAP14 PROC XWRET «, t00=0x0014, t01=0x0026}
0x1f78…1f8c Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0014, t01=0x0040}
0x1f8c…1fdc Head {h00=0x004c, h01=0x0050, text=»S14000 «, t00=0x0014, t01=0x0054}
0x1fdc…202c Head {h00=0x004c, h01=0x0050, text=» MOVE TDNEWBAL,TDAMOUNT «, t00=0x0014, t01=0x00a4}
0x202c…207c Head {h00=0x004c, h01=0x0050, text=» TBT SBRVS,S14100 «, t00=0x0014, t01=0x00f4}
0x207c…20d0 Head {h00=0x0050, h01=0x0050, text=» MUL TDNEWBAL,=D'-1' NOT REVERSAL «, t00=0x0014, t01=0x0144}
0x20d0…2120 Head {h00=0x004c, h01=0x0050, text=»S14100 «, t00=0x0015, t01=0x0008}
0x2120…216e Head {h00=0x004a, h01=0x0050, text=» ADD TDNEWBAL,ADBAL NEW BALANCE «, t00=0x0015, t01=0x0058}
0x216e…21be Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x00a6}
0x21be…21e8 Head {h00=0x0026, h01=0x0050, text=»* REDISPLAY NEXT FIELD IN FORMAT «, t00=0x0015, t01=0x00f6}
0x21e8…21f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0120}
0x21f2…220c Head {h00=0x0016, h01=0x0050, text=» TBT SBWDR,S14125 «, t00=0x0015, t01=0x012a}
0x220c…2216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0144}
0x2216…2248 Head {h00=0x002e, h01=0x0050, text=»* NOT WITHDRAWAL, NEW BALANCE IS ON LINE 4«, t00=0x0015, t01=0x014e}
0x2248…2252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0180}
0x2252…2274 Head {h00=0x001e, h01=0x0050, text=» CBL RDSCRLNS,=D'4',S14150«, t00=0x0015, t01=0x018a}
0x2274…228c Head {h00=0x0014, h01=0x0050, text=» ERASE 0,KW4,KW4«, t00=0x0016, t01=0x001c}
0x228c…22ba Head {h00=0x002a, h01=0x0050, text=» DISPLAY 4,KW4,KW4 DISPLAY NEW BALANCE«, t00=0x0016, t01=0x0034}
0x22ba…22cc Head {h00=0x000e, h01=0x0050, text=» B S14150 «, t00=0x0016, t01=0x0062}
0x22cc…22da Head {h00=0x000a, h01=0x0050, text=»S14125«, t00=0x0016, t01=0x0074}
0x22da…22fc Head {h00=0x001e, h01=0x0050, text=» CBL RDSCRLNS,=D'5',S14150«, t00=0x0016, t01=0x0082}
0x22fc…2314 Head {h00=0x0014, h01=0x0050, text=» ERASE 0,KW5,KW5«, t00=0x0016, t01=0x00a4}
0x2314…232e Head {h00=0x0016, h01=0x0050, text=» DISPLAY 4,KW5,KW5«, t00=0x0016, t01=0x00bc}
0x232e…2338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d6}
0x2338…2388 Head {h00=0x004c, h01=0x0050, text=»* CHECK SUFFICIENT FUNDS *«, t00=0x0016, t01=0x00e0}
0x2388…23d8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0130}
0x23d8…23e6 Head {h00=0x000a, h01=0x0050, text=»S14150«, t00=0x0016, t01=0x0180}
0x23e6…2436 Head {h00=0x004c, h01=0x0050, text=» MOVE WDEC1,TDNEWBAL «, t00=0x0016, t01=0x018e}
0x2436…2486 Head {h00=0x004c, h01=0x0050, text=» TBF SBCHQACT,S14200 SAVINGS ACCOUNT «, t00=0x0017, t01=0x004e}
0x2486…24d6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x009e}
0x24d6…2526 Head {h00=0x004c, h01=0x0050, text=»* CHEQUE ACCOUNT *«, t00=0x0017, t01=0x00ee}
0x2526…2576 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x013e}
0x2576…25c6 Head {h00=0x004c, h01=0x0050, text=» MOVE WDEC1,TDNEWBAL «, t00=0x0017, t01=0x018e}
0x25c6…2616 Head {h00=0x004c, h01=0x0050, text=» ADD WDEC1,ADLIMBOK CREDIT LIMIT «, t00=0x0018, t01=0x004e}
0x2616…2666 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x009e}
0x2666…26b6 Head {h00=0x004c, h01=0x0050, text=»* SAVINGS AND CHEQUE ACCOUNT *«, t00=0x0018, t01=0x00ee}
0x26b6…2706 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x013e}
0x2706…2756 Head {h00=0x004c, h01=0x0050, text=»S14200 «, t00=0x0018, t01=0x018e}
0x2756…27a6 Head {h00=0x004c, h01=0x0050, text=» CBNL WDEC1,=D'0',S14990 FUNDS ARE SUFFICIENT «, t00=0x0019, t01=0x004e}
0x27a6…27f6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x009e}
0x27f6…2846 Head {h00=0x004c, h01=0x0050, text=»* ERROR: INSUFFICIENT FUNDS *«, t00=0x0019, t01=0x00ee}
0x2846…2896 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x013e}
0x2896…28e6 Head {h00=0x004c, h01=0x0050, text=» MOVE SPBINW4,=W'35' «, t00=0x0019, t01=0x018e}
0x28e6…2936 Head {h00=0x004c, h01=0x0050, text=» MOVE XWRET,=W'1' INDICATE ERROR «, t00=0x001a, t01=0x004e}
0x2936…2986 Head {h00=0x004c, h01=0x0050, text=»S14990 «, t00=0x001a, t01=0x009e}
0x2986…29d6 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x001a, t01=0x00ee}
0x29d6…2a26 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x013e}
0x2a26…2a76 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x018e}
0x2a76…2ac6 Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x001b, t01=0x004e}
0x2ac6…2aca Head {h00=0x4004, h01=0x0000}
0x2aca…2ace 00 1b 00 9e ┆ ┆
0x2ace…2ad6 (28, 1, 8) 20 04 00 00 00 1c 00 04 ┆ ┆