|
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: 17422 (0x440e)
Notes: pts_type(SC)
Names: »BESELF.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/BESELF.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/BESELF.SC«
IDENT BESELF SELECT FUNCTION
DDUM DEMODD
PDIV
EXPROC XAKBIN
EXPROC XDMSG
EXPROC XEERR
EXPROC CDCHKY
EXPROC CEGACT
EXPROC CFCHKH
EXPROC DAUCCY
EXPROC DQCOPR
EXPROC DOQCCY
EXPROC DPECCY
EXPROC DCVDU
EXPROC DDTP71
EXPROC DELACT
EXPROC DFOACT
EXPROC DGCACT
EXPROC DHBACT
EXPROC DJUACT
EXPROC DIQACT
EXPROC DKDSTM
EXPROC DLDEP
EXPROC DMWDR
EXPROC DNTRF
EXPROC EZIBUF
EXPROC ECICCY
EXPROC PAJRN
EXPROC ZCRDD
EXPROC ZGREA
ENTRY BESELF
*
*
*
BESELF PROC
BE000
*
* INITIALISE ALL BUFFERS
*
PERF EZIBUF
PERF ZGREA RELEASE EXCL. ACCES
**
* RESET ALL SWITCHES*
**
CLEAR SBOPRCLS OPERATOR CLOSE SWITCH
CLEAR SBCANCEL
CLEAR SBCHEQUE
MOVE SWCCY,=W'0' CURRENCY SWITCH
CLEAR SBNOBOOK
CLEAR SBRVS REVERSAL SWITCH
CLEAR SBCARD
CLEAR SBFLDEMP
MOVE FCFIELD,=C' ' CLEAR INPUT FIELD
**
* ACCEPT A FUNCTION KEY*
**
BE004
PERF XDMSG,=W'30' ENTER FUNCTION
BE006
PERF XAKBIN,=W'10'
MOVE NWKTBIX,SPBINW2 SAVE FUNCTION KEY INDEX
CBE NWKTBIX,KWCANCEL,BE000 CANCEL KEY PRESSED
* KEYLOCK TURN, POWER OFF OR UNDEFINED KEY
CBNG NWKTBIX,=W'0',BE006 KEYLOCK TURN OR POWER OFF
CBL NWKTBIX,=W'12',BE100 NON PREFIX KEY
**
* PREFIX KEY, SET CORRESPONDING SWITCHES*
* HOWEVER, THE INPUT FIELD MUST BE EMPTY
**
CBE SPBINW1,=W'0',BE008 INPUT FIELD IS EMPTY
PERF XEERR,=W'10',KW1 'UNSERVICEABLE REQUEST'
B BE000 RESTART INPUT
BE008
SUB SPBINW2,=W'11' ADJUST INDEX
IB SPBINW2,BE010,BE010,BE010, CURRENCY 1,2 OR 3 C
BE020,BE030,BE040,BE050
B BE006
BE010
*
* CURRENCY KEY 1,2 OR 3*
*
MOVE SWCCY,SPBINW2 CURRENCY NUMBER
B BE006 ACCEPT NEXT FUNCTION KEY
BE020
SET SBCHEQUE
B BE006 ACCEPT NEXT FUNCTION KEY
BE030
SET SBNOBOOK
B BE006 ACCEPT NEXT FUNCTION KEY
BE040
SET SBRVS REVERSAL
B BE006 ACCEPT NEXT FUNCTION KEY
BE050
SET SBCARD
B BE006 ACCEPT NEXT FUNCTION KEY
**
* NON PREFIX KEY PRESSED*
**
BE100
COPY FCFIELD,KW0,SPBINW1,SPINPUT,KW0 COPY NON EOI CHARACTERS
CBG SPBINW1,=W'0',BE110 FIELD NOT EMPTY
SET SBFLDEMP INDICATE FIELD EMPTY
************************************************************************
*
* CHECK FUNCTION-KEY COMBINATIONS
*
************************************************************************
BE110
PERF CDCHKY
TBT SBCANCEL,BE990 ERROR DETECTED
************************************************************************
**
* CHECK HARDWARE AVAILABILITY AND KEYHOLE SETTING
**
************************************************************************
PERF CFCHKH
TBT SBCANCEL,BE990
************************************************************************
**
* GET ADDITIONAL INPUT*
**
************************************************************************
BE500
CBE NWKTBIX,=W'1',BE600 'EOI'
CBE NWKTBIX,=W'2',BE600 'LIST'
CBE NWKTBIX,=W'3',BE600 'OPEN'
CBE SWCCY,=W'0',BE550
**
* CURRENCY IS ON*
**
TBT SBFLDEMP,BE520
**
* CURRENCY IS ON AND THE FIELD IS NOT EMPTY*
* INITIALISE A CURRENCY RECORD IN THE UWB*
**
PERF ECICCY INITIALISE UWB
MOVE CCCCYCDE,FCFIELD INIT CURRENCY CODE
B BE600 SELECT FUNCTION
**
* CURRENCY IS ON AND FIELD IS EMPTY*
* READ CURRENCY RECORD*
**
BE520
MOVE CDCCYRNR,SWCCY CURRENCY NUMBER
ADD CDCCYRNR,=D'10'
MUL CDCCYRNR,KDSHIFT SHIFT TO GET RECORD NUMBER
PERF ZCRDD,CDCCYRNR,NDLRN1,KW1
TBT SBCANCEL,BE990
B BE600 SELECT FUNCTION
**
* CURRENCY IS OFF*
* GET OPERATOR INPUT*
**
BE550
PERF CEGACT GET ACCOUNT NUMBER
TBT SBCANCEL,BE990 ERROR DETECTED OR CANCEL
* *
* AT THIS POINT, WHEN THE FUNCTION SELECTED IS NOT 'CARD TRANSFER',*
* 'OPERATOR CLOSE' OR 'D-S (ALL ACCOUNT OPTION)'
* - THE REQUIRED ACCOUNT RECORD HAS BEEN READ INTO UWB UA1,*
* - THE VARIABLE 'IDACTNR1' CONTAINS THE UNSHIFTED ACCOUNT NUMBER,*
* - THE VARIABLE 'NDLRN1' CONTAINS THE LOGICAL RECORD NUMBER OF THE*
* ACCOUNT RECORD,*
* - THE BOOLEAN 'SBCHQACT' INDICATES WHETHER THE ACCOUNT*
* READ IN IS A CHEQUE ACCOUNT OR NOT.*
* *
************************************************************************
**
* SELECT FUNCTION*
**
************************************************************************
BE600
TBF SBOPRCLS,BE610
PERF DQCOPR OPERATOR CLOSE
B BE900
**
* CURRENCY SWITCH ?*
**
BE610
CBE SWCCY,=W'0',BE700
**
* CURRENCY IS ON*
**
CBNE NWKTBIX,=W'6',BE620 NOT 'UPDATE'
PERF DAUCCY CURRENCY UPDATE
B BE900
BE620
CBNE NWKTBIX,=W'7',BE630 NOT 'INQUIRY'
PERF DOQCCY CURRENCY INQUIRY
B BE900
BE630
CBE NWKTBIX,=W'9',BE640 'IN'
CBNE NWKTBIX,=W'10',BE700 NOT 'OUT'
BE640
PERF DPECCY CURRENCY EXCHANGE
B BE900
**
* BRANCH TO SEVERAL FUNCTIONS*
**
BE700
IB NWKTBIX,BE710,BE720,BE730,BE740,BE750, C
BE760,BE770,BE780,BE790,BE800, C
BE810
BE710
CBE FCFIELD,=C'6371',BE712
PERF DCVDU DEMONSTRATE VIDEO
B BE900
BE712
PERF DDTP71 DEMONSTRATE TP71
B BE900
BE720
PERF DELACT LIST ACCOUNT
B BE900
BE730
PERF DFOACT OPEN ACCOUNT
B BE900
BE740
PERF DGCACT CLOSE ACCOUNT
B BE900
BE750
PERF DHBACT BLOCK/DEBLOCK ACCOUNT
B BE900
BE760
PERF DJUACT UPDATE ACCOUNT
B BE900
BE770
PERF DIQACT INQUIRY ACCOUNT
B BE900
BE780
PERF DKDSTM DAILY STATEMENT
B BE900
BE790
PERF DLDEP DEPOSIT
B BE900
BE800
PERF DMWDR WITHDRAWAL
B BE900
BE810
PERF DNTRF TRANSFER
**
* NORMAL EXIT FROM FUNCTION MODULE*
**
BE900
CBE NWKTBIX,=W'1',BE910 NOT FOR DEMO-FUNCTIONS
*
* PRINT LINE TYPE 3: CLOSING OF FUNCTION
*
PERF PAJRN,=W'3'
*
* CHECK STATUS
*
BE910
CBE YDSTATUS,=D'3',BE999 SYSTEM HAS BEEN CLOSED
CBNE ODSTATUS,=D'2',BE999 OPERATOR CLOSE HAS SUCCEEDED
**
* RE-EXECUTE FUNCTION CHOISE
**
BE990
B BE000
**
* RETURN TO CALLING MODULE*
**
BE999
RET
PEND
*
*
END
0x0000…0040 (0, 0, 400) Head {h00=0x003c, h01=0x0050, text=» IDENT BESELF SELECT FUNCTION «, t00=0x0000, t01=0x0004}
0x0040…0090 Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x0044}
0x0090…009e Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0094}
0x009e…00b4 Head {h00=0x0012, h01=0x0050, text=» EXPROC XAKBIN«, t00=0x0000, t01=0x00a2}
0x00b4…00ca Head {h00=0x0012, h01=0x0050, text=» EXPROC XDMSG «, t00=0x0000, t01=0x00b8}
0x00ca…00e0 Head {h00=0x0012, h01=0x0050, text=» EXPROC XEERR «, t00=0x0000, t01=0x00ce}
0x00e0…00f6 Head {h00=0x0012, h01=0x0050, text=» EXPROC CDCHKY«, t00=0x0000, t01=0x00e4}
0x00f6…010c Head {h00=0x0012, h01=0x0050, text=» EXPROC CEGACT«, t00=0x0000, t01=0x00fa}
0x010c…0122 Head {h00=0x0012, h01=0x0050, text=» EXPROC CFCHKH«, t00=0x0000, t01=0x0110}
0x0122…0142 Head {h00=0x001c, h01=0x0050, text=» EXPROC DAUCCY«, t00=0x0000, t01=0x0126}
0x0142…0196 Head {h00=0x0050, h01=0x0050, text=» EXPROC DQCOPR «, t00=0x0000, t01=0x0146}
0x0196…01ea Head {h00=0x0050, h01=0x0050, text=» EXPROC DOQCCY «, t00=0x0001, t01=0x000a}
0x01ea…023e Head {h00=0x0050, h01=0x0050, text=» EXPROC DPECCY «, t00=0x0001, t01=0x005e}
0x023e…0292 Head {h00=0x0050, h01=0x0050, text=» EXPROC DCVDU «, t00=0x0001, t01=0x00b2}
0x0292…02e6 Head {h00=0x0050, h01=0x0050, text=» EXPROC DDTP71 «, t00=0x0001, t01=0x0106}
0x02e6…033a Head {h00=0x0050, h01=0x0050, text=» EXPROC DELACT «, t00=0x0001, t01=0x015a}
0x033a…038e Head {h00=0x0050, h01=0x0050, text=» EXPROC DFOACT «, t00=0x0002, t01=0x001e}
0x038e…03e2 Head {h00=0x0050, h01=0x0050, text=» EXPROC DGCACT «, t00=0x0002, t01=0x0072}
0x03e2…0436 Head {h00=0x0050, h01=0x0050, text=» EXPROC DHBACT «, t00=0x0002, t01=0x00c6}
0x0436…048a Head {h00=0x0050, h01=0x0050, text=» EXPROC DJUACT «, t00=0x0002, t01=0x011a}
0x048a…04de Head {h00=0x0050, h01=0x0050, text=» EXPROC DIQACT «, t00=0x0002, t01=0x016e}
0x04de…0532 Head {h00=0x0050, h01=0x0050, text=» EXPROC DKDSTM «, t00=0x0003, t01=0x0032}
0x0532…0586 Head {h00=0x0050, h01=0x0050, text=» EXPROC DLDEP «, t00=0x0003, t01=0x0086}
0x0586…05da Head {h00=0x0050, h01=0x0050, text=» EXPROC DMWDR «, t00=0x0003, t01=0x00da}
0x05da…062e Head {h00=0x0050, h01=0x0050, text=» EXPROC DNTRF «, t00=0x0003, t01=0x012e}
0x062e…0644 Head {h00=0x0012, h01=0x0050, text=» EXPROC EZIBUF«, t00=0x0003, t01=0x0182}
0x0644…065a Head {h00=0x0012, h01=0x0050, text=» EXPROC ECICCY«, t00=0x0004, t01=0x0008}
0x065a…0670 Head {h00=0x0012, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0004, t01=0x001e}
0x0670…0686 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0004, t01=0x0034}
0x0686…069c Head {h00=0x0012, h01=0x0050, text=» EXPROC ZGREA «, t00=0x0004, t01=0x004a}
0x069c…06b2 Head {h00=0x0012, h01=0x0050, text=» ENTRY BESELF «, t00=0x0004, t01=0x0060}
0x06b2…06bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0076}
0x06bc…06c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0080}
0x06c6…06d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008a}
0x06d0…0720 Head {h00=0x004c, h01=0x0050, text=»BESELF PROC «, t00=0x0004, t01=0x0094}
0x0720…0770 Head {h00=0x004c, h01=0x0050, text=»BE000 «, t00=0x0004, t01=0x00e4}
0x0770…077a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0134}
0x077a…079a Head {h00=0x001c, h01=0x0050, text=»* INITIALISE ALL BUFFERS«, t00=0x0004, t01=0x013e}
0x079a…07a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015e}
0x07a4…07b8 Head {h00=0x0010, h01=0x0050, text=» PERF EZIBUF«, t00=0x0004, t01=0x0168}
0x07b8…07e0 Head {h00=0x0024, h01=0x0050, text=» PERF ZGREA RELEASE EXCL. ACCES «, t00=0x0004, t01=0x017c}
0x07e0…0830 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0014}
0x0830…0880 Head {h00=0x004c, h01=0x0050, text=»* RESET ALL SWITCHES *«, t00=0x0005, t01=0x0064}
0x0880…08d0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x00b4}
0x08d0…08fe Head {h00=0x002a, h01=0x0050, text=» CLEAR SBOPRCLS OPERATOR CLOSE SWITCH «, t00=0x0005, t01=0x0104}
0x08fe…0916 Head {h00=0x0014, h01=0x0050, text=» CLEAR SBCANCEL «, t00=0x0005, t01=0x0132}
0x0916…0966 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBCHEQUE «, t00=0x0005, t01=0x014a}
0x0966…09b6 Head {h00=0x004c, h01=0x0050, text=» MOVE SWCCY,=W'0' CURRENCY SWITCH «, t00=0x0006, t01=0x000a}
0x09b6…0a06 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBNOBOOK «, t00=0x0006, t01=0x005a}
0x0a06…0a56 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBRVS REVERSAL SWITCH «, t00=0x0006, t01=0x00aa}
0x0a56…0aa6 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBCARD «, t00=0x0006, t01=0x00fa}
0x0aa6…0abe Head {h00=0x0014, h01=0x0050, text=» CLEAR SBFLDEMP «, t00=0x0006, t01=0x014a}
0x0abe…0aec Head {h00=0x002a, h01=0x0050, text=» MOVE FCFIELD,=C' ' CLEAR INPUT FIELD «, t00=0x0006, t01=0x0162}
0x0aec…0b3c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0190}
0x0b3c…0b8c Head {h00=0x004c, h01=0x0050, text=»* ACCEPT A FUNCTION KEY *«, t00=0x0007, t01=0x0050}
0x0b8c…0bdc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00a0}
0x0bdc…0bea Head {h00=0x000a, h01=0x0050, text=»BE004 «, t00=0x0007, t01=0x00f0}
0x0bea…0c14 Head {h00=0x0026, h01=0x0050, text=» PERF XDMSG,=W'30' ENTER FUNCTION «, t00=0x0007, t01=0x00fe}
0x0c14…0c22 Head {h00=0x000a, h01=0x0050, text=»BE006 «, t00=0x0007, t01=0x0128}
0x0c22…0c3e Head {h00=0x0018, h01=0x0050, text=» PERF XAKBIN,=W'10' «, t00=0x0007, t01=0x0136}
0x0c3e…0c8e Head {h00=0x004c, h01=0x0050, text=» MOVE NWKTBIX,SPBINW2 SAVE FUNCTION KEY INDEX «, t00=0x0007, t01=0x0152}
0x0c8e…0cc4 Head {h00=0x0032, h01=0x0050, text=» CBE NWKTBIX,KWCANCEL,BE000 CANCEL KEY PRESSED«, t00=0x0008, t01=0x0012}
0x0cc4…0cf6 Head {h00=0x002e, h01=0x0050, text=»* KEYLOCK TURN, POWER OFF OR UNDEFINED KEY«, t00=0x0008, t01=0x0048}
0x0cf6…0d32 Head {h00=0x0038, h01=0x0050, text=» CBNG NWKTBIX,=W'0',BE006 KEYLOCK TURN OR POWER OFF «, t00=0x0008, t01=0x007a}
0x0d32…0d82 Head {h00=0x004c, h01=0x0050, text=» CBL NWKTBIX,=W'12',BE100 NON PREFIX KEY «, t00=0x0008, t01=0x00b6}
0x0d82…0dd2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x0106}
0x0dd2…0e22 Head {h00=0x004c, h01=0x0050, text=»* PREFIX KEY, SET CORRESPONDING SWITCHES *«, t00=0x0008, t01=0x0156}
0x0e22…0e52 Head {h00=0x002c, h01=0x0050, text=»* HOWEVER, THE INPUT FIELD MUST BE EMPTY«, t00=0x0009, t01=0x0016}
0x0e52…0ea2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0046}
0x0ea2…0ed8 Head {h00=0x0032, h01=0x0050, text=» CBE SPBINW1,=W'0',BE008 INPUT FIELD IS EMPTY «, t00=0x0009, t01=0x0096}
0x0ed8…0f0e Head {h00=0x0032, h01=0x0050, text=» PERF XEERR,=W'10',KW1 'UNSERVICEABLE REQUEST'«, t00=0x0009, t01=0x00cc}
0x0f0e…0f2c Head {h00=0x001a, h01=0x0050, text=» B BE000 RESTART INPUT«, t00=0x0009, t01=0x0102}
0x0f2c…0f3a Head {h00=0x000a, h01=0x0050, text=»BE008 «, t00=0x0009, t01=0x0120}
0x0f3a…0f8a Head {h00=0x004c, h01=0x0050, text=» SUB SPBINW2,=W'11' ADJUST INDEX «, t00=0x0009, t01=0x012e}
0x0f8a…0fc6 Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,BE010,BE010,BE010, CURRENCY 1,2 OR 3 C«, t00=0x0009, t01=0x017e}
0x0fc6…1016 Head {h00=0x004c, h01=0x0050, text=» BE020,BE030,BE040,BE050 «, t00=0x000a, t01=0x002a}
0x1016…1026 Head {h00=0x000c, h01=0x0050, text=» B BE006«, t00=0x000a, t01=0x007a}
0x1026…1076 Head {h00=0x004c, h01=0x0050, text=»BE010 «, t00=0x000a, t01=0x008a}
0x1076…1080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00da}
0x1080…10d0 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY KEY 1,2 OR 3 *«, t00=0x000a, t01=0x00e4}
0x10d0…10da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0134}
0x10da…112a Head {h00=0x004c, h01=0x0050, text=» MOVE SWCCY,SPBINW2 CURRENCY NUMBER «, t00=0x000a, t01=0x013e}
0x112a…117a Head {h00=0x004c, h01=0x0050, text=» B BE006 ACCEPT NEXT FUNCTION KEY «, t00=0x000a, t01=0x018e}
0x117a…11ca Head {h00=0x004c, h01=0x0050, text=»BE020 «, t00=0x000b, t01=0x004e}
0x11ca…121a Head {h00=0x004c, h01=0x0050, text=» SET SBCHEQUE «, t00=0x000b, t01=0x009e}
0x121a…126a Head {h00=0x004c, h01=0x0050, text=» B BE006 ACCEPT NEXT FUNCTION KEY «, t00=0x000b, t01=0x00ee}
0x126a…12ba Head {h00=0x004c, h01=0x0050, text=»BE030 «, t00=0x000b, t01=0x013e}
0x12ba…130a Head {h00=0x004c, h01=0x0050, text=» SET SBNOBOOK «, t00=0x000b, t01=0x018e}
0x130a…135a Head {h00=0x004c, h01=0x0050, text=» B BE006 ACCEPT NEXT FUNCTION KEY «, t00=0x000c, t01=0x004e}
0x135a…13aa Head {h00=0x004c, h01=0x0050, text=»BE040 «, t00=0x000c, t01=0x009e}
0x13aa…13fa Head {h00=0x004c, h01=0x0050, text=» SET SBRVS REVERSAL «, t00=0x000c, t01=0x00ee}
0x13fa…144a Head {h00=0x004c, h01=0x0050, text=» B BE006 ACCEPT NEXT FUNCTION KEY «, t00=0x000c, t01=0x013e}
0x144a…1458 Head {h00=0x000a, h01=0x0050, text=»BE050 «, t00=0x000c, t01=0x018e}
0x1458…14a8 Head {h00=0x004c, h01=0x0050, text=» SET SBCARD «, t00=0x000d, t01=0x000c}
0x14a8…14f8 Head {h00=0x004c, h01=0x0050, text=» B BE006 ACCEPT NEXT FUNCTION KEY «, t00=0x000d, t01=0x005c}
0x14f8…1548 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x00ac}
0x1548…1598 Head {h00=0x004c, h01=0x0050, text=»* NON PREFIX KEY PRESSED *«, t00=0x000d, t01=0x00fc}
0x1598…15e8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x014c}
0x15e8…1638 Head {h00=0x004c, h01=0x0050, text=»BE100 «, t00=0x000e, t01=0x000c}
0x1638…167e Head {h00=0x0042, h01=0x0050, text=» COPY FCFIELD,KW0,SPBINW1,SPINPUT,KW0 COPY NON EOI CHARACTERS «, t00=0x000e, t01=0x005c}
0x167e…16ae Head {h00=0x002c, h01=0x0050, text=» CBG SPBINW1,=W'0',BE110 FIELD NOT EMPTY«, t00=0x000e, t01=0x00a2}
0x16ae…16fe Head {h00=0x004c, h01=0x0050, text=» SET SBFLDEMP INDICATE FIELD EMPTY «, t00=0x000e, t01=0x00d2}
0x16fe…174e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000e, t01=0x0122}
0x174e…1758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0172}
0x1758…1782 Head {h00=0x0026, h01=0x0050, text=»* CHECK FUNCTION-KEY COMBINATIONS «, t00=0x000e, t01=0x017c}
0x1782…178c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0016}
0x178c…17dc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000f, t01=0x0020}
0x17dc…17ea Head {h00=0x000a, h01=0x0050, text=»BE110 «, t00=0x000f, t01=0x0070}
0x17ea…17fe Head {h00=0x0010, h01=0x0050, text=» PERF CDCHKY«, t00=0x000f, t01=0x007e}
0x17fe…1828 Head {h00=0x0026, h01=0x0050, text=» TBT SBCANCEL,BE990 ERROR DETECTED«, t00=0x000f, t01=0x0092}
0x1828…1878 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000f, t01=0x00bc}
0x1878…18c8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x010c}
0x18c8…1902 Head {h00=0x0036, h01=0x0050, text=»* CHECK HARDWARE AVAILABILITY AND KEYHOLE SETTING «, t00=0x000f, t01=0x015c}
0x1902…1952 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0008}
0x1952…19a2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0010, t01=0x0058}
0x19a2…19b6 Head {h00=0x0010, h01=0x0050, text=» PERF CFCHKH«, t00=0x0010, t01=0x00a8}
0x19b6…19d2 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,BE990 «, t00=0x0010, t01=0x00bc}
0x19d2…1a22 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0010, t01=0x00d8}
0x1a22…1a72 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0128}
0x1a72…1ac2 Head {h00=0x004c, h01=0x0050, text=»* GET ADDITIONAL INPUT *«, t00=0x0010, t01=0x0178}
0x1ac2…1b12 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0038}
0x1b12…1b62 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0011, t01=0x0088}
0x1b62…1bb2 Head {h00=0x004c, h01=0x0050, text=»BE500 «, t00=0x0011, t01=0x00d8}
0x1bb2…1c02 Head {h00=0x004c, h01=0x0050, text=» CBE NWKTBIX,=W'1',BE600 'EOI' «, t00=0x0011, t01=0x0128}
0x1c02…1c52 Head {h00=0x004c, h01=0x0050, text=» CBE NWKTBIX,=W'2',BE600 'LIST' «, t00=0x0011, t01=0x0178}
0x1c52…1ca2 Head {h00=0x004c, h01=0x0050, text=» CBE NWKTBIX,=W'3',BE600 'OPEN' «, t00=0x0012, t01=0x0038}
0x1ca2…1cf2 Head {h00=0x004c, h01=0x0050, text=» CBE SWCCY,=W'0',BE550 «, t00=0x0012, t01=0x0088}
0x1cf2…1d42 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00d8}
0x1d42…1d92 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY IS ON *«, t00=0x0012, t01=0x0128}
0x1d92…1de2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0178}
0x1de2…1e32 Head {h00=0x004c, h01=0x0050, text=» TBT SBFLDEMP,BE520 «, t00=0x0013, t01=0x0038}
0x1e32…1e82 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x0088}
0x1e82…1ed2 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY IS ON AND THE FIELD IS NOT EMPTY *«, t00=0x0013, t01=0x00d8}
0x1ed2…1f22 Head {h00=0x004c, h01=0x0050, text=»* INITIALISE A CURRENCY RECORD IN THE UWB *«, t00=0x0013, t01=0x0128}
0x1f22…1f72 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x0178}
0x1f72…1fc2 Head {h00=0x004c, h01=0x0050, text=» PERF ECICCY INITIALISE UWB «, t00=0x0014, t01=0x0038}
0x1fc2…2012 Head {h00=0x004c, h01=0x0050, text=» MOVE CCCCYCDE,FCFIELD INIT CURRENCY CODE «, t00=0x0014, t01=0x0088}
0x2012…2062 Head {h00=0x004c, h01=0x0050, text=» B BE600 SELECT FUNCTION «, t00=0x0014, t01=0x00d8}
0x2062…20b2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0128}
0x20b2…2102 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY IS ON AND FIELD IS EMPTY *«, t00=0x0014, t01=0x0178}
0x2102…2152 Head {h00=0x004c, h01=0x0050, text=»* READ CURRENCY RECORD *«, t00=0x0015, t01=0x0038}
0x2152…21a2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0088}
0x21a2…21f2 Head {h00=0x004c, h01=0x0050, text=»BE520 «, t00=0x0015, t01=0x00d8}
0x21f2…2242 Head {h00=0x004c, h01=0x0050, text=» MOVE CDCCYRNR,SWCCY CURRENCY NUMBER «, t00=0x0015, t01=0x0128}
0x2242…2292 Head {h00=0x004c, h01=0x0050, text=» ADD CDCCYRNR,=D'10' «, t00=0x0015, t01=0x0178}
0x2292…22e2 Head {h00=0x004c, h01=0x0050, text=» MUL CDCCYRNR,KDSHIFT SHIFT TO GET RECORD NUMBER «, t00=0x0016, t01=0x0038}
0x22e2…230a Head {h00=0x0024, h01=0x0050, text=» PERF ZCRDD,CDCCYRNR,NDLRN1,KW1 «, t00=0x0016, t01=0x0088}
0x230a…2326 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,BE990 «, t00=0x0016, t01=0x00b0}
0x2326…2376 Head {h00=0x004c, h01=0x0050, text=» B BE600 SELECT FUNCTION «, t00=0x0016, t01=0x00cc}
0x2376…23c6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x011c}
0x23c6…2416 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY IS OFF *«, t00=0x0016, t01=0x016c}
0x2416…2466 Head {h00=0x004c, h01=0x0050, text=»* GET OPERATOR INPUT *«, t00=0x0017, t01=0x002c}
0x2466…24b6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x007c}
0x24b6…2506 Head {h00=0x004c, h01=0x0050, text=»BE550 «, t00=0x0017, t01=0x00cc}
0x2506…2556 Head {h00=0x004c, h01=0x0050, text=» PERF CEGACT GET ACCOUNT NUMBER «, t00=0x0017, t01=0x011c}
0x2556…25a6 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,BE990 ERROR DETECTED OR CANCEL «, t00=0x0017, t01=0x016c}
0x25a6…25f6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x002c}
0x25f6…2646 Head {h00=0x004c, h01=0x0050, text=»* AT THIS POINT, WHEN THE FUNCTION SELECTED IS NOT 'CARD TRANSFER', *«, t00=0x0018, t01=0x007c}
0x2646…2680 Head {h00=0x0036, h01=0x0050, text=»* 'OPERATOR CLOSE' OR 'D-S (ALL ACCOUNT OPTION)' «, t00=0x0018, t01=0x00cc}
0x2680…26d0 Head {h00=0x004c, h01=0x0050, text=»* - THE REQUIRED ACCOUNT RECORD HAS BEEN READ INTO UWB UA1, *«, t00=0x0018, t01=0x0106}
0x26d0…2720 Head {h00=0x004c, h01=0x0050, text=»* - THE VARIABLE 'IDACTNR1' CONTAINS THE UNSHIFTED ACCOUNT NUMBER, *«, t00=0x0018, t01=0x0156}
0x2720…2770 Head {h00=0x004c, h01=0x0050, text=»* - THE VARIABLE 'NDLRN1' CONTAINS THE LOGICAL RECORD NUMBER OF THE *«, t00=0x0019, t01=0x0016}
0x2770…27c0 Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT RECORD, *«, t00=0x0019, t01=0x0066}
0x27c0…2810 Head {h00=0x004c, h01=0x0050, text=»* - THE BOOLEAN 'SBCHQACT' INDICATES WHETHER THE ACCOUNT *«, t00=0x0019, t01=0x00b6}
0x2810…2860 Head {h00=0x004c, h01=0x0050, text=»* READ IN IS A CHEQUE ACCOUNT OR NOT. *«, t00=0x0019, t01=0x0106}
0x2860…28b0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0156}
0x28b0…2900 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x0016}
0x2900…2950 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001a, t01=0x0066}
0x2950…29a0 Head {h00=0x004c, h01=0x0050, text=»* SELECT FUNCTION *«, t00=0x001a, t01=0x00b6}
0x29a0…29f0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001a, t01=0x0106}
0x29f0…2a40 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x0156}
0x2a40…2a90 Head {h00=0x004c, h01=0x0050, text=»BE600 «, t00=0x001b, t01=0x0016}
0x2a90…2ae0 Head {h00=0x004c, h01=0x0050, text=» TBF SBOPRCLS,BE610 «, t00=0x001b, t01=0x0066}
0x2ae0…2b04 Head {h00=0x0020, h01=0x0050, text=» PERF DQCOPR OPERATOR CLOSE «, t00=0x001b, t01=0x00b6}
0x2b04…2b54 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x001b, t01=0x00da}
0x2b54…2ba4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x012a}
0x2ba4…2bf4 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY SWITCH ? *«, t00=0x001b, t01=0x017a}
0x2bf4…2c44 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001c, t01=0x003a}
0x2c44…2c94 Head {h00=0x004c, h01=0x0050, text=»BE610 «, t00=0x001c, t01=0x008a}
0x2c94…2ce4 Head {h00=0x004c, h01=0x0050, text=» CBE SWCCY,=W'0',BE700 «, t00=0x001c, t01=0x00da}
0x2ce4…2d34 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001c, t01=0x012a}
0x2d34…2d84 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY IS ON *«, t00=0x001c, t01=0x017a}
0x2d84…2dd4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001d, t01=0x003a}
0x2dd4…2e24 Head {h00=0x004c, h01=0x0050, text=» CBNE NWKTBIX,=W'6',BE620 NOT 'UPDATE' «, t00=0x001d, t01=0x008a}
0x2e24…2e48 Head {h00=0x0020, h01=0x0050, text=» PERF DAUCCY CURRENCY UPDATE«, t00=0x001d, t01=0x00da}
0x2e48…2e98 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x001d, t01=0x00fe}
0x2e98…2ee8 Head {h00=0x004c, h01=0x0050, text=»BE620 «, t00=0x001d, t01=0x014e}
0x2ee8…2f38 Head {h00=0x004c, h01=0x0050, text=» CBNE NWKTBIX,=W'7',BE630 NOT 'INQUIRY' «, t00=0x001e, t01=0x000e}
0x2f38…2f5e Head {h00=0x0022, h01=0x0050, text=» PERF DOQCCY CURRENCY INQUIRY «, t00=0x001e, t01=0x005e}
0x2f5e…2fae Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x001e, t01=0x0084}
0x2fae…2ffe Head {h00=0x004c, h01=0x0050, text=»BE630 «, t00=0x001e, t01=0x00d4}
0x2ffe…3024 Head {h00=0x0022, h01=0x0050, text=» CBE NWKTBIX,=W'9',BE640 'IN' «, t00=0x001e, t01=0x0124}
0x3024…3074 Head {h00=0x004c, h01=0x0050, text=» CBNE NWKTBIX,=W'10',BE700 NOT 'OUT' «, t00=0x001e, t01=0x014a}
0x3074…3082 Head {h00=0x000a, h01=0x0050, text=»BE640 «, t00=0x001f, t01=0x000a}
0x3082…30a8 Head {h00=0x0022, h01=0x0050, text=» PERF DPECCY CURRENCY EXCHANGE«, t00=0x001f, t01=0x0018}
0x30a8…30f8 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x001f, t01=0x003e}
0x30f8…3148 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001f, t01=0x008e}
0x3148…3198 Head {h00=0x004c, h01=0x0050, text=»* BRANCH TO SEVERAL FUNCTIONS *«, t00=0x001f, t01=0x00de}
0x3198…31e8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001f, t01=0x012e}
0x31e8…3238 Head {h00=0x004c, h01=0x0050, text=»BE700 «, t00=0x001f, t01=0x017e}
0x3238…326e Head {h00=0x0032, h01=0x0050, text=» IB NWKTBIX,BE710,BE720,BE730,BE740,BE750, C «, t00=0x0020, t01=0x003e}
0x326e…329a Head {h00=0x0028, h01=0x0050, text=» BE760,BE770,BE780,BE790,BE800, C «, t00=0x0020, t01=0x0074}
0x329a…32aa Head {h00=0x000c, h01=0x0050, text=» BE810 «, t00=0x0020, t01=0x00a0}
0x32aa…32fa Head {h00=0x004c, h01=0x0050, text=»BE710 «, t00=0x0020, t01=0x00b0}
0x32fa…334a Head {h00=0x004c, h01=0x0050, text=» CBE FCFIELD,=C'6371',BE712 «, t00=0x0020, t01=0x0100}
0x334a…3370 Head {h00=0x0022, h01=0x0050, text=» PERF DCVDU DEMONSTRATE VIDEO «, t00=0x0020, t01=0x0150}
0x3370…33c0 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0020, t01=0x0176}
0x33c0…3410 Head {h00=0x004c, h01=0x0050, text=»BE712 «, t00=0x0021, t01=0x0036}
0x3410…3460 Head {h00=0x004c, h01=0x0050, text=» PERF DDTP71 DEMONSTRATE TP71 «, t00=0x0021, t01=0x0086}
0x3460…34b0 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0021, t01=0x00d6}
0x34b0…3500 Head {h00=0x004c, h01=0x0050, text=»BE720 «, t00=0x0021, t01=0x0126}
0x3500…3550 Head {h00=0x004c, h01=0x0050, text=» PERF DELACT LIST ACCOUNT «, t00=0x0021, t01=0x0176}
0x3550…35a0 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0022, t01=0x0036}
0x35a0…35f0 Head {h00=0x004c, h01=0x0050, text=»BE730 «, t00=0x0022, t01=0x0086}
0x35f0…3640 Head {h00=0x004c, h01=0x0050, text=» PERF DFOACT OPEN ACCOUNT «, t00=0x0022, t01=0x00d6}
0x3640…3690 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0022, t01=0x0126}
0x3690…36e0 Head {h00=0x004c, h01=0x0050, text=»BE740 «, t00=0x0022, t01=0x0176}
0x36e0…3730 Head {h00=0x004c, h01=0x0050, text=» PERF DGCACT CLOSE ACCOUNT «, t00=0x0023, t01=0x0036}
0x3730…3780 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0023, t01=0x0086}
0x3780…37d0 Head {h00=0x004c, h01=0x0050, text=»BE750 «, t00=0x0023, t01=0x00d6}
0x37d0…3820 Head {h00=0x004c, h01=0x0050, text=» PERF DHBACT BLOCK/DEBLOCK ACCOUNT «, t00=0x0023, t01=0x0126}
0x3820…3870 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0023, t01=0x0176}
0x3870…38c0 Head {h00=0x004c, h01=0x0050, text=»BE760 «, t00=0x0024, t01=0x0036}
0x38c0…3910 Head {h00=0x004c, h01=0x0050, text=» PERF DJUACT UPDATE ACCOUNT «, t00=0x0024, t01=0x0086}
0x3910…3960 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0024, t01=0x00d6}
0x3960…39b0 Head {h00=0x004c, h01=0x0050, text=»BE770 «, t00=0x0024, t01=0x0126}
0x39b0…3a00 Head {h00=0x004c, h01=0x0050, text=» PERF DIQACT INQUIRY ACCOUNT «, t00=0x0024, t01=0x0176}
0x3a00…3a50 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0025, t01=0x0036}
0x3a50…3aa0 Head {h00=0x004c, h01=0x0050, text=»BE780 «, t00=0x0025, t01=0x0086}
0x3aa0…3af0 Head {h00=0x004c, h01=0x0050, text=» PERF DKDSTM DAILY STATEMENT «, t00=0x0025, t01=0x00d6}
0x3af0…3b40 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0025, t01=0x0126}
0x3b40…3b90 Head {h00=0x004c, h01=0x0050, text=»BE790 «, t00=0x0025, t01=0x0176}
0x3b90…3be0 Head {h00=0x004c, h01=0x0050, text=» PERF DLDEP DEPOSIT «, t00=0x0026, t01=0x0036}
0x3be0…3c30 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0026, t01=0x0086}
0x3c30…3c80 Head {h00=0x004c, h01=0x0050, text=»BE800 «, t00=0x0026, t01=0x00d6}
0x3c80…3cd0 Head {h00=0x004c, h01=0x0050, text=» PERF DMWDR WITHDRAWAL «, t00=0x0026, t01=0x0126}
0x3cd0…3d20 Head {h00=0x004c, h01=0x0050, text=» B BE900 «, t00=0x0026, t01=0x0176}
0x3d20…3d70 Head {h00=0x004c, h01=0x0050, text=»BE810 «, t00=0x0027, t01=0x0036}
0x3d70…3dc0 Head {h00=0x004c, h01=0x0050, text=» PERF DNTRF TRANSFER «, t00=0x0027, t01=0x0086}
0x3dc0…3e10 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0027, t01=0x00d6}
0x3e10…3e60 Head {h00=0x004c, h01=0x0050, text=»* NORMAL EXIT FROM FUNCTION MODULE *«, t00=0x0027, t01=0x0126}
0x3e60…3eb0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0027, t01=0x0176}
0x3eb0…3f00 Head {h00=0x004c, h01=0x0050, text=»BE900 «, t00=0x0028, t01=0x0036}
0x3f00…3f38 Head {h00=0x0034, h01=0x0050, text=» CBE NWKTBIX,=W'1',BE910 NOT FOR DEMO-FUNCTIONS «, t00=0x0028, t01=0x0086}
0x3f38…3f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00be}
0x3f42…3f72 Head {h00=0x002c, h01=0x0050, text=»* PRINT LINE TYPE 3: CLOSING OF FUNCTION«, t00=0x0028, t01=0x00c8}
0x3f72…3f7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f8}
0x3f7c…3f96 Head {h00=0x0016, h01=0x0050, text=» PERF PAJRN,=W'3' «, t00=0x0028, t01=0x0102}
0x3f96…3fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x011c}
0x3fa0…3fb6 Head {h00=0x0012, h01=0x0050, text=»* CHECK STATUS«, t00=0x0028, t01=0x0126}
0x3fb6…3fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x013c}
0x3fc0…3fce Head {h00=0x000a, h01=0x0050, text=»BE910 «, t00=0x0028, t01=0x0146}
0x3fce…4006 Head {h00=0x0034, h01=0x0050, text=» CBE YDSTATUS,=D'3',BE999 SYSTEM HAS BEEN CLOSED«, t00=0x0028, t01=0x0154}
0x4006…4056 Head {h00=0x004c, h01=0x0050, text=» CBNE ODSTATUS,=D'2',BE999 OPERATOR CLOSE HAS SUCCEEDED «, t00=0x0028, t01=0x018c}
0x4056…40a6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0029, t01=0x004c}
0x40a6…40ca Head {h00=0x0020, h01=0x0050, text=»* RE-EXECUTE FUNCTION CHOISE«, t00=0x0029, t01=0x009c}
0x40ca…411a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0029, t01=0x00c0}
0x411a…416a Head {h00=0x004c, h01=0x0050, text=»BE990 «, t00=0x0029, t01=0x0110}
0x416a…41ba Head {h00=0x004c, h01=0x0050, text=» B BE000 «, t00=0x0029, t01=0x0160}
0x41ba…420a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002a, t01=0x0020}
0x420a…425a Head {h00=0x004c, h01=0x0050, text=»* RETURN TO CALLING MODULE *«, t00=0x002a, t01=0x0070}
0x425a…42aa Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002a, t01=0x00c0}
0x42aa…42fa Head {h00=0x004c, h01=0x0050, text=»BE999 «, t00=0x002a, t01=0x0110}
0x42fa…434a Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x002a, t01=0x0160}
0x434a…439a Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x0020}
0x439a…43a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0070}
0x43a4…43ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x007a}
0x43ae…43fe Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x002b, t01=0x0084}
0x43fe…4402 Head {h00=0x4004, h01=0x0000}
0x4402…4406 00 2b 00 d4 ┆ + ┆
0x4406…440e (44, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆