|
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: 11112 (0x2b68)
Notes: pts_type(SC)
Names: »DMWDR.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DMWDR.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DMWDR.SC«
IDENT DMWDR WITHDRAWAL
DDUM DEMODD
PDIV
EXPROC PAJRN
EXPROC PBBOOK
EXPROC PCVCH
EXPROC QENTRS
EXPROC XBFMT
EXPROC ZCRDD
EXPROC ZDRWRD
EXPROC ZHWRID
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
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
CBNL RDPRTTYP,=D'2',DM999 NO TERMINAL 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…034e Head {h00=0x004c, h01=0x0050, text=» ENTRY DMWDR «, t00=0x0001, t01=0x0172}
0x034e…0364 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP14 «, t00=0x0002, t01=0x0032}
0x0364…03b4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0048}
0x03b4…0404 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0098}
0x0404…0454 Head {h00=0x004c, h01=0x0050, text=»* WITHDRAWAL OF A CHEQUE OR SAVINGS ACCOUNT *«, t00=0x0002, t01=0x00e8}
0x0454…04a4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0138}
0x04a4…04f4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0188}
0x04f4…0544 Head {h00=0x004c, h01=0x0050, text=»DMWDR PROC «, t00=0x0003, t01=0x0048}
0x0544…0594 Head {h00=0x004c, h01=0x0050, text=»DM000 «, t00=0x0003, t01=0x0098}
0x0594…05a6 Head {h00=0x000e, h01=0x0050, text=» SET SBWDR«, t00=0x0003, t01=0x00e8}
0x05a6…05f6 Head {h00=0x004c, h01=0x0050, text=» TBT SBCHEQUE,DM100 «, t00=0x0003, t01=0x00fa}
0x05f6…0646 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'2' SBCHEQUE IS OFF «, t00=0x0003, t01=0x014a}
0x0646…0696 Head {h00=0x004c, h01=0x0050, text=» B DM200 «, t00=0x0004, t01=0x000a}
0x0696…06e6 Head {h00=0x004c, h01=0x0050, text=»DM100 «, t00=0x0004, t01=0x005a}
0x06e6…0736 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'16' SBCHEQUE IS ON «, t00=0x0004, t01=0x00aa}
0x0736…0786 Head {h00=0x004c, h01=0x0050, text=»DM200 «, t00=0x0004, t01=0x00fa}
0x0786…07d6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x014a}
0x07d6…0826 Head {h00=0x004c, h01=0x0050, text=»* PRINT LINE TYPE 2 *«, t00=0x0005, t01=0x000a}
0x0826…0876 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x005a}
0x0876…08c6 Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'2' «, t00=0x0005, t01=0x00aa}
0x08c6…0916 Head {h00=0x004c, h01=0x0050, text=» MOVE TDNEWBAL,=D'0' INITIALISE NEW BALANCE «, t00=0x0005, t01=0x00fa}
0x0916…0944 Head {h00=0x002a, h01=0x0050, text=» TBF SBFT80,DM210 NO COMPACT TERMINAL «, t00=0x0005, t01=0x014a}
0x0944…095e Head {h00=0x0016, h01=0x0050, text=» PERF XBFMT,=W'70'«, t00=0x0005, t01=0x0178}
0x095e…096e (6, 0, 400) Head {h00=0x000c, h01=0x0050, text=» B DM220«, t00=0x0006, t01=0x0004}
0x096e…097c Head {h00=0x000a, h01=0x0050, text=»DM210 «, t00=0x0006, t01=0x0014}
0x097c…09cc Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'42' WITHDRAWAL FORMAT «, t00=0x0006, t01=0x0022}
0x09cc…09da Head {h00=0x000a, h01=0x0050, text=»DM220 «, t00=0x0006, t01=0x0072}
0x09da…0a2a Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DM999 «, t00=0x0006, t01=0x0080}
0x0a2a…0a7a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x00d0}
0x0a7a…0aca Head {h00=0x004c, h01=0x0050, text=»* PRINT LINE TYPE 7 *«, t00=0x0006, t01=0x0120}
0x0aca…0b1a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0170}
0x0b1a…0b58 Head {h00=0x003a, h01=0x0050, text=» MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY«, t00=0x0007, t01=0x0030}
0x0b58…0ba4 Head {h00=0x0048, h01=0x0050, text=» PERF PAJRN,=W'7' «, t00=0x0007, t01=0x006e}
0x0ba4…0bf4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00ba}
0x0bf4…0c44 Head {h00=0x004c, h01=0x0050, text=»* FILL TRANSACTION RECORD *«, t00=0x0007, t01=0x010a}
0x0c44…0c94 Head {h00=0x004c, h01=0x0050, text=»* GET NEXT TRANSACTION-RECORD KEY *«, t00=0x0007, t01=0x015a}
0x0c94…0ce4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x001a}
0x0ce4…0d1c Head {h00=0x0034, h01=0x0050, text=» PERF QENTRS,ADLASTRS UPDATE TRANSACTION SEQ. NR«, t00=0x0008, t01=0x006a}
0x0d1c…0d4e Head {h00=0x002e, h01=0x0050, text=» MOVE TDTRSRNR,ADACTRNR ACCOUNT RECORD NR.«, t00=0x0008, t01=0x00a2}
0x0d4e…0d7e Head {h00=0x002c, h01=0x0050, text=» ADD TDTRSRNR,ADLASTRS TRANS. RECORD KEY«, t00=0x0008, t01=0x00d4}
0x0d7e…0db6 Head {h00=0x0034, h01=0x0050, text=» ADD YDLASSEQ,=D'1' UPDATE LAST TRANS. SEQ. NR. «, t00=0x0008, t01=0x0104}
0x0db6…0e06 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ MOVE TO TRANS. RECORD «, t00=0x0008, t01=0x013c}
0x0e06…0e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018c}
0x0e10…0e50 Head {h00=0x003c, h01=0x0050, text=»* TDAMOUNT CONTAINS THE AMOUNT KEYED IN BY THE OPERATOR «, t00=0x0009, t01=0x0008}
0x0e50…0e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0048}
0x0e5a…0eaa Head {h00=0x004c, h01=0x0050, text=» TBF SBRVS,DM250 «, t00=0x0009, t01=0x0052}
0x0eaa…0efa Head {h00=0x004c, h01=0x0050, text=» MUL TDAMOUNT,=D'-1' UPDATE AMOUNT «, t00=0x0009, t01=0x00a2}
0x0efa…0f4a Head {h00=0x004c, h01=0x0050, text=»DM250 «, t00=0x0009, t01=0x00f2}
0x0f4a…0f9a Head {h00=0x004c, h01=0x0050, text=» TBF SBCHQACT,DM300 «, t00=0x0009, t01=0x0142}
0x0f9a…0fea (10, 0, 400) Head {h00=0x004c, h01=0x0050, text=»*** MOVE TDCHQNR,FCFIELD *«, t00=0x000a, t01=0x0004}
0x0fea…103a Head {h00=0x004c, h01=0x0050, text=»DM300 «, t00=0x000a, t01=0x0054}
0x103a…108a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00a4}
0x108a…10da Head {h00=0x004c, h01=0x0050, text=»* FILL ACCOUNT RECORD *«, t00=0x000a, t01=0x00f4}
0x10da…112a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0144}
0x112a…117a (11, 0, 400) Head {h00=0x004c, h01=0x0050, text=» MOVE ADBAL,TDNEWBAL NEW BALANCE «, t00=0x000b, t01=0x0004}
0x117a…11ca Head {h00=0x004c, h01=0x0050, text=» ADD ADWDRCUM,TDAMOUNT ACCUMULATED WITHDR. «, t00=0x000b, t01=0x0054}
0x11ca…121a Head {h00=0x004c, h01=0x0050, text=» MOVE ADLASSEQ,TDTRSSEQ TRANS. SEQ. NR. «, t00=0x000b, t01=0x00a4}
0x121a…126a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x00f4}
0x126a…12ba Head {h00=0x004c, h01=0x0050, text=»* WRITE ACCOUNT AND TRANSACTION RECORD *«, t00=0x000b, t01=0x0144}
0x12ba…130a (12, 0, 400) Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0004}
0x130a…135a Head {h00=0x004c, h01=0x0050, text=»DM700 «, t00=0x000c, t01=0x0054}
0x135a…13aa Head {h00=0x004c, h01=0x0050, text=» PERF ZHWRID,TDTRSRNR,NDLRN2 TRANSACTION RECORD «, t00=0x000c, t01=0x00a4}
0x13aa…13c6 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DM999 «, t00=0x000c, t01=0x00f4}
0x13c6…1416 Head {h00=0x004c, h01=0x0050, text=» PERF ZDRWRD,ADACTRNR,NDLRN1 ACCOUNT RECORD «, t00=0x000c, t01=0x0110}
0x1416…1432 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DM999 «, t00=0x000c, t01=0x0160}
0x1432…1482 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x017c}
0x1482…14d2 Head {h00=0x004c, h01=0x0050, text=»* UPDATE OPERATOR BALANCES *«, t00=0x000d, t01=0x003c}
0x14d2…1522 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x008c}
0x1522…1530 Head {h00=0x000a, h01=0x0050, text=»DM750 «, t00=0x000d, t01=0x00dc}
0x1530…1580 Head {h00=0x004c, h01=0x0050, text=» SUB ODCASH(KW1,KW4),TDAMOUNT BALANCE CASH «, t00=0x000d, t01=0x00ea}
0x1580…15d0 Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW2,KW4),TDAMOUNT ACCUMULATED WITHDRAWALS «, t00=0x000d, t01=0x013a}
0x15d0…1620 Head {h00=0x004c, h01=0x0050, text=» TBF SBCHEQUE,DM800 «, t00=0x000d, t01=0x018a}
0x1620…1670 Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW2,KW1),TDAMOUNT ACCUMULATED CHEQUES «, t00=0x000e, t01=0x004a}
0x1670…16c0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000e, t01=0x009a}
0x16c0…1710 Head {h00=0x004c, h01=0x0050, text=»* PRINT VOUCHER OR PASSBOOK *«, t00=0x000e, t01=0x00ea}
0x1710…1760 Head {h00=0x004c, h01=0x0050, text=»* IF A TERMINAL PRINTER IS AVAILABLE *«, t00=0x000e, t01=0x013a}
0x1760…17b0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000e, t01=0x018a}
0x17b0…17be Head {h00=0x000a, h01=0x0050, text=»DM800 «, t00=0x000f, t01=0x004a}
0x17be…1810 Head {h00=0x004e, h01=0x0050, text=» CBNL RDPRTTYP,=D'2',DM999 NO TERMINAL PRINTER «, t00=0x000f, t01=0x0058}
0x1810…1860 Head {h00=0x004c, h01=0x0050, text=» TBT SBCHQACT,DM820 «, t00=0x000f, t01=0x00aa}
0x1860…18b0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00fa}
0x18b0…1900 Head {h00=0x004c, h01=0x0050, text=»* SAVINGS ACCOUNT, PRINT BOOK *«, t00=0x000f, t01=0x014a}
0x1900…1950 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x000a}
0x1950…1990 Head {h00=0x003c, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK «, t00=0x0010, t01=0x005a}
0x1990…19ac Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DM999 «, t00=0x0010, t01=0x009a}
0x19ac…19c0 Head {h00=0x0010, h01=0x0050, text=» PERF PBBOOK«, t00=0x0010, t01=0x00b6}
0x19c0…19d0 Head {h00=0x000c, h01=0x0050, text=» B DM999«, t00=0x0010, t01=0x00ca}
0x19d0…1a20 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x00da}
0x1a20…1a70 Head {h00=0x004c, h01=0x0050, text=»* CHEQUE ACCOUNT, PRINT VOUCHER(S) *«, t00=0x0010, t01=0x012a}
0x1a70…1ac0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x017a}
0x1ac0…1ace Head {h00=0x000a, h01=0x0050, text=»DM820 «, t00=0x0011, t01=0x003a}
0x1ace…1b1e Head {h00=0x004c, h01=0x0050, text=» TBF SBCHEQUE,DM850 SBCHEQUE IS OFF «, t00=0x0011, t01=0x0048}
0x1b1e…1b6e Head {h00=0x004c, h01=0x0050, text=»*** PRINT CHEQUE *«, t00=0x0011, t01=0x0098}
0x1b6e…1b7c Head {h00=0x000a, h01=0x0050, text=»DM850 «, t00=0x0011, t01=0x00e8}
0x1b7c…1bd2 Head {h00=0x0052, h01=0x0050, text=» PERF PCVCH,=W'2' «, t00=0x0011, t01=0x00f6}
0x1bd2…1c22 Head {h00=0x004c, h01=0x0050, text=»DM999 «, t00=0x0011, t01=0x014c}
0x1c22…1c36 Head {h00=0x0010, h01=0x0050, text=» CLEAR SBWDR«, t00=0x0012, t01=0x000c}
0x1c36…1c86 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0012, t01=0x0020}
0x1c86…1cd6 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0070}
0x1cd6…1d26 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0012, t01=0x00c0}
0x1d26…1d76 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0110}
0x1d76…1dc0 Head {h00=0x0046, h01=0x0050, text=»* CALCULATE NEW BALANCE (FMT042(WITHDRAWAL) AND FMT045(TRANSFER)) «, t00=0x0012, t01=0x0160}
0x1dc0…1e10 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x001a}
0x1e10…1e60 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0013, t01=0x006a}
0x1e60…1e7a Head {h00=0x0016, h01=0x0050, text=»SPAP14 PROC XWRET «, t00=0x0013, t01=0x00ba}
0x1e7a…1e8e Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0013, t01=0x00d4}
0x1e8e…1ede Head {h00=0x004c, h01=0x0050, text=»S14000 «, t00=0x0013, t01=0x00e8}
0x1ede…1f2e Head {h00=0x004c, h01=0x0050, text=» MOVE TDNEWBAL,TDAMOUNT «, t00=0x0013, t01=0x0138}
0x1f2e…1f7e Head {h00=0x004c, h01=0x0050, text=» TBT SBRVS,S14100 «, t00=0x0013, t01=0x0188}
0x1f7e…1fd2 Head {h00=0x0050, h01=0x0050, text=» MUL TDNEWBAL,=D'-1' NOT REVERSAL «, t00=0x0014, t01=0x0048}
0x1fd2…2022 Head {h00=0x004c, h01=0x0050, text=»S14100 «, t00=0x0014, t01=0x009c}
0x2022…2070 Head {h00=0x004a, h01=0x0050, text=» ADD TDNEWBAL,ADBAL NEW BALANCE «, t00=0x0014, t01=0x00ec}
0x2070…20c0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x013a}
0x20c0…20ea Head {h00=0x0026, h01=0x0050, text=»* REDISPLAY NEXT FIELD IN FORMAT «, t00=0x0014, t01=0x018a}
0x20ea…20f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0024}
0x20f4…210e Head {h00=0x0016, h01=0x0050, text=» TBT SBWDR,S14125 «, t00=0x0015, t01=0x002e}
0x210e…2118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0048}
0x2118…214a Head {h00=0x002e, h01=0x0050, text=»* NOT WITHDRAWAL, NEW BALANCE IS ON LINE 4«, t00=0x0015, t01=0x0052}
0x214a…2154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0084}
0x2154…2176 Head {h00=0x001e, h01=0x0050, text=» CBL RDSCRLNS,=D'4',S14150«, t00=0x0015, t01=0x008e}
0x2176…218e Head {h00=0x0014, h01=0x0050, text=» ERASE 0,KW4,KW4«, t00=0x0015, t01=0x00b0}
0x218e…21bc Head {h00=0x002a, h01=0x0050, text=» DISPLAY 4,KW4,KW4 DISPLAY NEW BALANCE«, t00=0x0015, t01=0x00c8}
0x21bc…21ce Head {h00=0x000e, h01=0x0050, text=» B S14150 «, t00=0x0015, t01=0x00f6}
0x21ce…21dc Head {h00=0x000a, h01=0x0050, text=»S14125«, t00=0x0015, t01=0x0108}
0x21dc…21fe Head {h00=0x001e, h01=0x0050, text=» CBL RDSCRLNS,=D'5',S14150«, t00=0x0015, t01=0x0116}
0x21fe…2216 Head {h00=0x0014, h01=0x0050, text=» ERASE 0,KW5,KW5«, t00=0x0015, t01=0x0138}
0x2216…2230 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 4,KW5,KW5«, t00=0x0015, t01=0x0150}
0x2230…223a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016a}
0x223a…228a Head {h00=0x004c, h01=0x0050, text=»* CHECK SUFFICIENT FUNDS *«, t00=0x0015, t01=0x0174}
0x228a…22da Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0034}
0x22da…22e8 Head {h00=0x000a, h01=0x0050, text=»S14150«, t00=0x0016, t01=0x0084}
0x22e8…2338 Head {h00=0x004c, h01=0x0050, text=» MOVE WDEC1,TDNEWBAL «, t00=0x0016, t01=0x0092}
0x2338…2388 Head {h00=0x004c, h01=0x0050, text=» TBF SBCHQACT,S14200 SAVINGS ACCOUNT «, t00=0x0016, t01=0x00e2}
0x2388…23d8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0132}
0x23d8…2428 Head {h00=0x004c, h01=0x0050, text=»* CHEQUE ACCOUNT *«, t00=0x0016, t01=0x0182}
0x2428…2478 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x0042}
0x2478…24c8 Head {h00=0x004c, h01=0x0050, text=» MOVE WDEC1,TDNEWBAL «, t00=0x0017, t01=0x0092}
0x24c8…2518 Head {h00=0x004c, h01=0x0050, text=» ADD WDEC1,ADLIMBOK CREDIT LIMIT «, t00=0x0017, t01=0x00e2}
0x2518…2568 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x0132}
0x2568…25b8 Head {h00=0x004c, h01=0x0050, text=»* SAVINGS AND CHEQUE ACCOUNT *«, t00=0x0017, t01=0x0182}
0x25b8…2608 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x0042}
0x2608…2658 Head {h00=0x004c, h01=0x0050, text=»S14200 «, t00=0x0018, t01=0x0092}
0x2658…26a8 Head {h00=0x004c, h01=0x0050, text=» CBNL WDEC1,=D'0',S14990 FUNDS ARE SUFFICIENT «, t00=0x0018, t01=0x00e2}
0x26a8…26f8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x0132}
0x26f8…2748 Head {h00=0x004c, h01=0x0050, text=»* ERROR: INSUFFICIENT FUNDS *«, t00=0x0018, t01=0x0182}
0x2748…2798 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0042}
0x2798…27e8 Head {h00=0x004c, h01=0x0050, text=» MOVE SPBINW4,=W'35' «, t00=0x0019, t01=0x0092}
0x27e8…2838 Head {h00=0x004c, h01=0x0050, text=» MOVE XWRET,=W'1' INDICATE ERROR «, t00=0x0019, t01=0x00e2}
0x2838…2888 Head {h00=0x004c, h01=0x0050, text=»S14990 «, t00=0x0019, t01=0x0132}
0x2888…28d8 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0019, t01=0x0182}
0x28d8…2928 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x0042}
0x2928…2978 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x0092}
0x2978…29c8 Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x001a, t01=0x00e2}
0x29c8…29cc Head {h00=0x4004, h01=0x0000}
0x29cc…29d0 00 1a 01 32 ┆ 2┆
0x29d0…29d8 (27, 1, 8) 20 04 00 00 00 1b 00 04 ┆ ┆
0x29d8…2a28 (28, 0, 400) 00 00 00 00 00 00 00 00 00 1b 01 50 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 43 47 39 38 30 20 00 1c 00 10 00 16 00 50 5c 50 45 52 46 5c 50 41 4a 52 4e 2c 3d 57 27 33 27 20 00 1c 00 2c 00 4c 00 50 5c 50 45 52 46 5c 5a 4c 43 4c ┆ P P TBT SBCANCEL,CG980 P PERF PAJRN,=W'3' , L P PERF ZLCL┆
0x2a28…2a78 53 46 5c 43 4c 4f 53 45 20 46 4f 52 4d 41 54 46 49 4c 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 1c 00 46 00 4e 00 50 5c 42 5c 43 47 39 39 30 5c 5c ┆SF CLOSE FORMATFILE F N P B CG990 ┆
0x2a78…2ac8 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 1c 00 96 00 4c 00 50 2a 00 00 00 00 00 00 00 ┆ L P* ┆
0x2ac8…2b18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1c 00 e8 00 4c 00 50 2a 20 43 41 4e 43 45 4c ┆ * L P* CANCEL┆
0x2b18…2b68 20 45 58 49 54 2c 20 52 45 53 54 4f 52 45 20 53 54 41 54 55 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1c 01 38 00 4c 00 50 2a 00 00 00 00 00 00 00 ┆ EXIT, RESTORE STATUS * 8 L P* ┆