|
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: 23188 (0x5a94)
Notes: pts_type(SC)
Names: »DKDSTM.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DKDSTM.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DKDSTM.SC«
IDENT DKDSTM DAILY STATEMENTS
DDUM DEMODD
PDIV
EXPROC PAJRN
EXPROC PVATTP
EXPROC PWDETP
EXPROC PXSKIP
EXPROC PZPOSD
EXPROC QENTRS
EXPROC QGATYP
EXPROC XCLAMP
EXPROC XEERR
EXPROC ZCRDD
EXPROC ZDRWRD
EXPROC ZMRDF
ENTRY DKDSTM
ENTRY EQPDS
************************************************************************
**
* PROCEDURE: DKDSTM*
* FUNCTIONAL DESCRIPTION:*
* PRINT DAILY STATEMENTS FOR:*
* 1. AN INDIVIDUAL (CHEQUE OR SAVINGS) ACCOUNT ON A TTP/TEP *
* 2. ALL CHEQUE ACCOUNTS ON A GTP OR LP.*
* CHECKS ON THE PRINTER TYPE HAVE BEEN DONE IN CEGACT.*
* FOR THE ALL ACCOUNT OPTION THE ACCOUNT RECORDS MUST BE READ,*
* OTHERWISE THE ACCOUNT RECORD HAS BEEN READ IN CEGACT.*
* (THE LOGICAL RECORD NUMBER IS IN NDLRN1)
* THE ACCOUNT RECORD MUST BE UNDER EXCLUSIVE ACCES AND AVAILABLE*
* IN UWB 'UA1'.*
* THE TRANSACTION RECORDS ARE READ INTO UWB 'UT2', SO 'UT1'*
* REMAINS UNCHANGED.*
* 'FCBUFFER' IS THE ONLY BUFFER USED BY THIS ROUTINE.*
* FOR EACH UNSTATEMENTED TRANSACTION OF AN ACCOUNT A*
* DAILY-STATEMENT LINE IS PRINTED.*
* FOR CHEQUE ACCOUNTS ADLASTRS IS UPDATED, THE STATUS*
* IS SET TO 3 IF IT WAS 2 BEFORE *
* AND THE ACCOUNT RECORD IS REWRITTEN
* USE OF VARIABLES:*
* IDACTNR1: CONTAINS THE NUMBER OF THE ACCOUNT FOR WHICH*
* STATEMENTING MUST BE PERFORMED.*
* IF IDACTNR1 = 0 THEN ALL CHEQUE ACCOUNTS MUST BE DONE*
* IDACTNR2: USED TO SAVE THE INITIAL VALUE OF IDACTNR1.*
* SBCHQACT: IS THE ACCOUNT A CHEQUE ACCOUNT ?*
* IDAMT1: DEBIT AMOUNT IN PRINT LINE*
* IDAMT2: CREDIT AMOUNT IN PRINT LINE*
* SBFIRST: USED TO PRINT THE STATEMENT DATE ONLY ONCE FOR*
* EACH ACCOUNT.*
* NDPRTTRS: POINTS TO THE NEXT TRANSACTION TO BE PRINTED.*
* NDNEWLINE: POINTS TO THE LINE ON WHICH MUST BE PRINTED.*
* UA1 (UWB): CONTAINS THE ACCOUNT RECORD.*
* UT2 (UWB): USED TO READ THE TRANSACTION RECORDS.*
* FCBUFFER: BUFFER FOR DATABASE-I/O AND FORMAT-I/O.*
**
************************************************************************
DKDSTM PROC
DK000
SET SBDSTM
MOVE TDTRSCDE,=D'72'
PERF PAJRN,=W'1' IDENTIFICATION PRINT
* *
* IF IDACTNR1 = 0 THEN STATEMENTING MUST BE PERFORMED ON ALL CHEQUE*
* ACCOUNTS, ELSE IDACTNR1 CONTAINS THE NUMBER OF THE ACCOUNT TO BE*
* HANDLED AND THE ACCOUNT RECORD IS AVAILABLE IN UWB UA1*
* *
MOVE IDACTNR2,IDACTNR1 SAVE IDACTNR1 FOR FUTURE TESTS
**
* DISPLAY MESSAGE TO MOUNT THE APROPRIATE STATIONARY IN/ON PRINTER*
* *
PERF XCLAMP,KW4,KW1 LAMP 4 ON
CBE IDACTNR2,=D'0',DK050 ALL ACCOUNT OPTION
* TELLER PRINTER*
PERF PVATTP,DSVCHPRT ATTACH PRINTER
CBNE RDPRTTYP,=D'0',DK010
*
* 6371-PRINTER CONTROL
*
MOVE WW1,=W'18'
MOVE VCDOCPAR,=C'1010313801100030000000'
DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1
DSC1 DSVCHPRT,X'00',KW0
MOVE WW1,=X'8066'
DSC1 DSVCHPRT,X'0D',WW1
DK010
PERF XEERR,=W'63',KW3 TTP OR TEP
B DK100
DK050
CBE YDMLPINT,=D'0',DK060
* LINE PRINTER
PERF PVATTP,DSLNEPRT
B DK090
* GENERAL PRINTER
DK060
PERF PVATTP,SPDSPRT
DK090
PERF XEERR,=W'62',KW3 LP OR GTP
DK100
PERF XCLAMP,KW4,KW0 LAMP 4 OFF
TBT SBCANCEL,DK980
CBG IDACTNR2,=D'0',DK300 SINGLE ACCOUNT
* *
* SCAN ALL CHEQUE ACCOUNTS*
* *
MOVE IDACTNR1,=D'167998' INITIALISE
* *
* NEXT CHEQUE ACCOUNT*
* *
DK200
ADD IDACTNR1,=D'2'
CBG IDACTNR1,YDLASCHQ,DK800 NO MORE CHEQUE ACCOUNTS
* *
* READ THE ACCOUNT RECORD*
* *
MOVE ADACTRNR,IDACTNR1
MUL ADACTRNR,KDSHIFT
PERF ZCRDD,ADACTRNR,NDLRN1,KW1
TBT SBCANCEL,DK980
TBF SBRECAVB,DK200 NEXT CHEQUE ACCOUNT
* *
* THE ACCOUNT RECORD HAS BEEN READ*
* *
CBE ADSTATUS,=D'3',DK200 CLOSED WITH STATEMENTING
CBE ADSTMTRS,ADLASTRS,DK200 NO TRANS. TO BE STATEM.
* *
* A NON CLOSED ACCOUNT HAS BEEN READ*
* *
DK300
PERF QGATYP,IDACTNR1 SET SBCHQACT ACC. TO TYPE
TBT SBRVS,DK304
PERF PAJRN,=W'2' ACCOUNT NR. AND TRANS. CODE
B DK308
*
* IF THE REVERSAL SWITCH IS ON, IT MUST BE TEMPORARILY CLEARED
* FOR THE PRINTING OF LINE TYPE 2
*
DK304
CLEAR SBRVS
PERF PAJRN,=W'2'
SET SBRVS
DK308
* *
* PRINT THE HEADER LINE*
* *
MOVE ICTEXT2,ACNAME
CBG IDACTNR2,=D'0',DK320 SINGLE ACCOUNT ON TTP/TEP
CBNE YDMLPINT,=D'1',DK310
* PRINT ON THE LINE PRINTER
EDWRT DSLNEPRT,PRT013
B DK350
DK310
* PRINT ON THE GTP
PERF PXSKIP,SPDSPRT SKIP A LINE
EDWRT SPDSPRT,PRT013
B DK350
* PRINT ON THE TTP/TEP
DK320
MOVE NDNEWLNE,=D'46'
PERF PZPOSD,NDNEWLNE POSITION VOUCHER
EDWRT DSVCHPRT,PRT013
SUB NDNEWLNE,=D'14' SKIP LINES
DK350
SET SBFIRST PRINT STATM. DATE ONLY ONCE
MOVE NDPRTTRS,ADSTMTRS WORKFIELD
* *
* NEXT TRANSACTION TO BE STATEMENTED*
* *
DK400
CBE ADSTMTRS,ADLASTRS,DK700 NO MORE TRANSACTIONS
PERF QENTRS,NDPRTTRS NEXT TRANS. TO BE STATEMENTED
* *
* READ THE TRANSACTION RECORD IN UWB UT2*
* *
MOVE UDTRSRNR,ADACTRNR
ADD UDTRSRNR,NDPRTTRS TRANS. RECORD KEY
PERF ZCRDD,UDTRSRNR,WDEC1,KW1
TBT SBCANCEL,DK980
TBF SBRECAVB,DK700 TRANS. RECORD NOT FOUND
* *
* TRANSACTION RECORD HAS BEEN FOUND, PRINT A LINE*
* *
DK500
PERF EQPDS PRINT A DAILY STATEMENT LINE
* *
* UPDATE LAST TRANSACTION STATEMENTED, FOR A SAVINGS ACCOUNT THE*
* ACCOUNT RECORD WILL NOT BE REWRITTEN, SO UPDATING OF THIS FIELD IN*
* THE UWB WILL DO NO HARM*
* *
MOVE ADSTMTRS,NDPRTTRS
B DK400 NEXT TRANSACTION
* *
* ALL TRANSACTIONS OF THE SPECIFIED ACCOUNT HAVE BEEN PRINTED,*
* UPDATE AND REWRITE THE ACCOUNT RECORD (FOR CHEQUE ACCOUNTS ONLY).*
* *
DK700
CBG IDACTNR2,=D'0',DK705 SINGLE ACCOUNT
CBE YDMLPINT,=D'1',DK705 LINE PRINTER
PERF PXSKIP,SPDSPRT LINE FEED ON A GTP
DK705
TBF SBCHQACT,DK750
CBNE ADSTATUS,=D'2',DK710
CBNE ADSTMTRS,ADLASTRS,DK710 ALL TRANS. STATEMENTED ?
MOVE ADSTATUS,=D'3' CLOSED WITH STATEMENTING
*
* REWRITE THE ACCOUNT RECORD
*
DK710
PERF ZDRWRD,ADACTRNR,NDLRN1
TBT SBCANCEL,DK980
DK750
CBG IDACTNR2,=D'0',DK800 SINGLE ACCOUNT
B DK200 ALL ACCOUNT OPTION
* *
* ALL ACCOUNTS HAVE BEEN DONE*
* *
DK800
DK980
CBE IDACTNR2,=D'0',DK984
*
* RELEASE VOUCHER FOR TTP/TEP
*
DSC0 DSVCHPRT,1
PERF PWDETP,DSVCHPRT
B DK990
*
* ALL ACCOUNT OPTION, GIVE A TRANSACTION SEQUENCE NUMBER
*
DK984
ADD YDLASSEQ,=D'1'
MOVE TDTRSSEQ,YDLASSEQ
CBE YDMLPINT,=D'0',DK986
* LINE PRINTER
PERF PWDETP,DSLNEPRT DETACH LNE PRINTER
B DK990
* GENERAL PRINTER
DK986
PERF PWDETP,SPDSPRT
*
* EXIT FROM D-S
*
DK990
CLEAR SBDSTM
RET
PEND
************************************************************************
* *
* DAILY-STATEMENT ACCOUNT HEADER LINE*
**
************************************************************************
PRT013 FRMT
FTEXT '01'
FTAB 3
FMEL '999999',IDACTNR1
FTAB 12
FCOPY ICTEXT2
FTAB 32
FILLR ' ',8
FMEND
************************************************************************
*
* PRINT A DAILY STATEMENT LINE
* (SUBROUTINE FOR DKDSTM)
*
************************************************************************
EQPDS PROC
EQ000
* CLEAR SWITCHES USED*
CLEAR SBDSDEP
CLEAR SBDSWDR
CLEAR SBDSTRF
CLEAR SBDSRVS
* SET SWITCHES DEPENDING ON THE TRANSACTION CODE
CBE UDTRSCDE,=D'1',EQ100 IN
CBE UDTRSCDE,=D'7',EQ100 NOBOOK IN
CBE UDTRSCDE,=D'2',EQ120 OUT
CBE UDTRSCDE,=D'16',EQ120 CHEQUE OUT
CBE UDTRSCDE,=D'12',EQ140 TRANSFER (FROM)
CBE UDTRSCDE,=D'11',EQ140 TRANSFER (TO)
B EQ180
EQ100
SET SBDSDEP
B EQ180
EQ120
SET SBDSWDR
B EQ180
EQ140
SET SBDSTRF
EQ180
CBNL UDAMOUNT,=D'0',EQ200
SET SBDSRVS
*
* MUST AMOUNT BE PRINTED AS A DEBIT OR CREDIT AMOUNT ?
*
EQ200
CBE UDTRSCDE,=D'1',EQ250 IN
CBE UDTRSCDE,=D'7',EQ250 NOBOOK IN
CBE UDTRSCDE,=D'11',EQ250 TRANSFER (TO)
* TRANSACTION CODE IS 2, 16 OR 12*
TBT SBDSRVS,EQ290 REVERSAL
B EQ270
* TRANSACTION CODE IS 1, 7 OR 11*
EQ250
TBF SBDSRVS,EQ290 NOT REVERSAL
* *
* AMOUNT MUST BE PRINTED AS DEBIT AMOUNT*
* *
EQ270
MOVE IDAMT1,UDAMOUNT
MOVE IDAMT2,=D'0'
B EQ300
* *
* AMOUNT MUST BE PRINTED AS CREDIT AMOUNT*
* *
EQ290
MOVE IDAMT1,=D'0'
MOVE IDAMT2,UDAMOUNT
* *
* PRINT A LINE ON LP, GTP OR TTP/TEP*
* *
EQ300
MOVE SPBINW4,=W'61'
PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER
CBG IDACTNR2,=D'0',EQ320 SINGLE ACCOUNT
CBNE YDMLPINT,=D'1',EQ310
* PRINT ON LINE PRINTER*
EDWRT DSLNEPRT,FCBUFFER
B EQ990
EQ310
* PRINT ON A GTP*
EDWRT SPDSPRT,FCBUFFER
B EQ990
EQ320
* PRINT ON A TTP/TEP*
SUB NDNEWLNE,=D'2' NEXT LINE
PERF PZPOSD,NDNEWLNE POSITION VOUCHER
EDWRT DSVCHPRT,FCBUFFER
EQ990
CLEAR SBFIRST PRINT STATEMENT DATE ONLY ONCE
RET
PEND
************************************************************************
END
0x0000…0040 (0, 0, 400) Head {h00=0x003c, h01=0x0050, text=» IDENT DKDSTM DAILY STATEMENTS«, t00=0x0000, t01=0x0004}
0x0040…0090 Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x0044}
0x0090…00e0 Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0094}
0x00e0…0134 Head {h00=0x0050, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x00e4}
0x0134…014a Head {h00=0x0012, h01=0x0050, text=» EXPROC PVATTP«, t00=0x0000, t01=0x0138}
0x014a…0160 Head {h00=0x0012, h01=0x0050, text=» EXPROC PWDETP«, t00=0x0000, t01=0x014e}
0x0160…0176 Head {h00=0x0012, h01=0x0050, text=» EXPROC PXSKIP«, t00=0x0000, t01=0x0164}
0x0176…018c Head {h00=0x0012, h01=0x0050, text=» EXPROC PZPOSD«, t00=0x0000, t01=0x017a}
0x018c…01e0 Head {h00=0x0050, h01=0x0050, text=» EXPROC QENTRS «, t00=0x0000, t01=0x0190}
0x01e0…0234 Head {h00=0x0050, h01=0x0050, text=» EXPROC QGATYP «, t00=0x0001, t01=0x0054}
0x0234…024a Head {h00=0x0012, h01=0x0050, text=» EXPROC XCLAMP«, t00=0x0001, t01=0x00a8}
0x024a…0260 Head {h00=0x0012, h01=0x0050, text=» EXPROC XEERR «, t00=0x0001, t01=0x00be}
0x0260…02b4 Head {h00=0x0050, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0001, t01=0x00d4}
0x02b4…0308 Head {h00=0x0050, h01=0x0050, text=» EXPROC ZDRWRD «, t00=0x0001, t01=0x0128}
0x0308…031e Head {h00=0x0012, h01=0x0050, text=» EXPROC ZMRDF «, t00=0x0001, t01=0x017c}
0x031e…0334 (2, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ENTRY DKDSTM «, t00=0x0002, t01=0x0004}
0x0334…0348 Head {h00=0x0010, h01=0x0050, text=» ENTRY EQPDS«, t00=0x0002, t01=0x001a}
0x0348…0398 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x002e}
0x0398…03e8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x007e}
0x03e8…0438 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: DKDSTM *«, t00=0x0002, t01=0x00ce}
0x0438…0488 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0002, t01=0x011e}
0x0488…04d8 Head {h00=0x004c, h01=0x0050, text=»* PRINT DAILY STATEMENTS FOR: *«, t00=0x0002, t01=0x016e}
0x04d8…0528 Head {h00=0x004c, h01=0x0050, text=»* 1. AN INDIVIDUAL (CHEQUE OR SAVINGS) ACCOUNT ON A TTP/TEP *«, t00=0x0003, t01=0x002e}
0x0528…0578 Head {h00=0x004c, h01=0x0050, text=»* 2. ALL CHEQUE ACCOUNTS ON A GTP OR LP. *«, t00=0x0003, t01=0x007e}
0x0578…05c8 Head {h00=0x004c, h01=0x0050, text=»* CHECKS ON THE PRINTER TYPE HAVE BEEN DONE IN CEGACT. *«, t00=0x0003, t01=0x00ce}
0x05c8…0618 Head {h00=0x004c, h01=0x0050, text=»* FOR THE ALL ACCOUNT OPTION THE ACCOUNT RECORDS MUST BE READ, *«, t00=0x0003, t01=0x011e}
0x0618…0668 Head {h00=0x004c, h01=0x0050, text=»* OTHERWISE THE ACCOUNT RECORD HAS BEEN READ IN CEGACT. *«, t00=0x0003, t01=0x016e}
0x0668…06a0 Head {h00=0x0034, h01=0x0050, text=»* (THE LOGICAL RECORD NUMBER IS IN NDLRN1) «, t00=0x0004, t01=0x002e}
0x06a0…06f0 Head {h00=0x004c, h01=0x0050, text=»* THE ACCOUNT RECORD MUST BE UNDER EXCLUSIVE ACCES AND AVAILABLE *«, t00=0x0004, t01=0x0066}
0x06f0…0740 Head {h00=0x004c, h01=0x0050, text=»* IN UWB 'UA1'. *«, t00=0x0004, t01=0x00b6}
0x0740…0790 Head {h00=0x004c, h01=0x0050, text=»* THE TRANSACTION RECORDS ARE READ INTO UWB 'UT2', SO 'UT1' *«, t00=0x0004, t01=0x0106}
0x0790…07e0 Head {h00=0x004c, h01=0x0050, text=»* REMAINS UNCHANGED. *«, t00=0x0004, t01=0x0156}
0x07e0…0830 Head {h00=0x004c, h01=0x0050, text=»* 'FCBUFFER' IS THE ONLY BUFFER USED BY THIS ROUTINE. *«, t00=0x0005, t01=0x0016}
0x0830…0880 Head {h00=0x004c, h01=0x0050, text=»* FOR EACH UNSTATEMENTED TRANSACTION OF AN ACCOUNT A *«, t00=0x0005, t01=0x0066}
0x0880…08d0 Head {h00=0x004c, h01=0x0050, text=»* DAILY-STATEMENT LINE IS PRINTED. *«, t00=0x0005, t01=0x00b6}
0x08d0…0920 Head {h00=0x004c, h01=0x0050, text=»* FOR CHEQUE ACCOUNTS ADLASTRS IS UPDATED, THE STATUS *«, t00=0x0005, t01=0x0106}
0x0920…0970 Head {h00=0x004c, h01=0x0050, text=»* IS SET TO 3 IF IT WAS 2 BEFORE *«, t00=0x0005, t01=0x0156}
0x0970…09a2 Head {h00=0x002e, h01=0x0050, text=»* AND THE ACCOUNT RECORD IS REWRITTEN«, t00=0x0006, t01=0x0016}
0x09a2…09f2 Head {h00=0x004c, h01=0x0050, text=»* USE OF VARIABLES: *«, t00=0x0006, t01=0x0048}
0x09f2…0a42 Head {h00=0x004c, h01=0x0050, text=»* IDACTNR1: CONTAINS THE NUMBER OF THE ACCOUNT FOR WHICH *«, t00=0x0006, t01=0x0098}
0x0a42…0a92 Head {h00=0x004c, h01=0x0050, text=»* STATEMENTING MUST BE PERFORMED. *«, t00=0x0006, t01=0x00e8}
0x0a92…0ae2 Head {h00=0x004c, h01=0x0050, text=»* IF IDACTNR1 = 0 THEN ALL CHEQUE ACCOUNTS MUST BE DONE *«, t00=0x0006, t01=0x0138}
0x0ae2…0b32 Head {h00=0x004c, h01=0x0050, text=»* IDACTNR2: USED TO SAVE THE INITIAL VALUE OF IDACTNR1. *«, t00=0x0006, t01=0x0188}
0x0b32…0b82 Head {h00=0x004c, h01=0x0050, text=»* SBCHQACT: IS THE ACCOUNT A CHEQUE ACCOUNT ? *«, t00=0x0007, t01=0x0048}
0x0b82…0bd2 Head {h00=0x004c, h01=0x0050, text=»* IDAMT1: DEBIT AMOUNT IN PRINT LINE *«, t00=0x0007, t01=0x0098}
0x0bd2…0c22 Head {h00=0x004c, h01=0x0050, text=»* IDAMT2: CREDIT AMOUNT IN PRINT LINE *«, t00=0x0007, t01=0x00e8}
0x0c22…0c72 Head {h00=0x004c, h01=0x0050, text=»* SBFIRST: USED TO PRINT THE STATEMENT DATE ONLY ONCE FOR *«, t00=0x0007, t01=0x0138}
0x0c72…0cc2 Head {h00=0x004c, h01=0x0050, text=»* EACH ACCOUNT. *«, t00=0x0007, t01=0x0188}
0x0cc2…0d12 Head {h00=0x004c, h01=0x0050, text=»* NDPRTTRS: POINTS TO THE NEXT TRANSACTION TO BE PRINTED. *«, t00=0x0008, t01=0x0048}
0x0d12…0d62 Head {h00=0x004c, h01=0x0050, text=»* NDNEWLINE: POINTS TO THE LINE ON WHICH MUST BE PRINTED. *«, t00=0x0008, t01=0x0098}
0x0d62…0db2 Head {h00=0x004c, h01=0x0050, text=»* UA1 (UWB): CONTAINS THE ACCOUNT RECORD. *«, t00=0x0008, t01=0x00e8}
0x0db2…0e02 Head {h00=0x004c, h01=0x0050, text=»* UT2 (UWB): USED TO READ THE TRANSACTION RECORDS. *«, t00=0x0008, t01=0x0138}
0x0e02…0e52 Head {h00=0x004c, h01=0x0050, text=»* FCBUFFER: BUFFER FOR DATABASE-I/O AND FORMAT-I/O. *«, t00=0x0008, t01=0x0188}
0x0e52…0ea2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0048}
0x0ea2…0ef2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0009, t01=0x0098}
0x0ef2…0f42 Head {h00=0x004c, h01=0x0050, text=»DKDSTM PROC «, t00=0x0009, t01=0x00e8}
0x0f42…0f92 Head {h00=0x004c, h01=0x0050, text=»DK000 «, t00=0x0009, t01=0x0138}
0x0f92…0fe2 Head {h00=0x004c, h01=0x0050, text=» SET SBDSTM «, t00=0x0009, t01=0x0188}
0x0fe2…1032 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'72' «, t00=0x000a, t01=0x0048}
0x1032…1082 Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'1' IDENTIFICATION PRINT «, t00=0x000a, t01=0x0098}
0x1082…10d2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00e8}
0x10d2…1122 Head {h00=0x004c, h01=0x0050, text=»* IF IDACTNR1 = 0 THEN STATEMENTING MUST BE PERFORMED ON ALL CHEQUE *«, t00=0x000a, t01=0x0138}
0x1122…1172 Head {h00=0x004c, h01=0x0050, text=»* ACCOUNTS, ELSE IDACTNR1 CONTAINS THE NUMBER OF THE ACCOUNT TO BE *«, t00=0x000a, t01=0x0188}
0x1172…11c2 Head {h00=0x004c, h01=0x0050, text=»* HANDLED AND THE ACCOUNT RECORD IS AVAILABLE IN UWB UA1 *«, t00=0x000b, t01=0x0048}
0x11c2…1212 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0098}
0x1212…1262 Head {h00=0x004c, h01=0x0050, text=» MOVE IDACTNR2,IDACTNR1 SAVE IDACTNR1 FOR FUTURE TESTS «, t00=0x000b, t01=0x00e8}
0x1262…12b2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0138}
0x12b2…1302 Head {h00=0x004c, h01=0x0050, text=»* DISPLAY MESSAGE TO MOUNT THE APROPRIATE STATIONARY IN/ON PRINTER *«, t00=0x000b, t01=0x0188}
0x1302…1352 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0048}
0x1352…1378 Head {h00=0x0022, h01=0x0050, text=» PERF XCLAMP,KW4,KW1 LAMP 4 ON«, t00=0x000c, t01=0x0098}
0x1378…13ac Head {h00=0x0030, h01=0x0050, text=» CBE IDACTNR2,=D'0',DK050 ALL ACCOUNT OPTION«, t00=0x000c, t01=0x00be}
0x13ac…13fc Head {h00=0x004c, h01=0x0050, text=»* TELLER PRINTER *«, t00=0x000c, t01=0x00f2}
0x13fc…1428 Head {h00=0x0028, h01=0x0050, text=» PERF PVATTP,DSVCHPRT ATTACH PRINTER«, t00=0x000c, t01=0x0142}
0x1428…144a Head {h00=0x001e, h01=0x0050, text=» CBNE RDPRTTYP,=D'0',DK010«, t00=0x000c, t01=0x016e}
0x144a…1454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0190}
0x1454…1472 Head {h00=0x001a, h01=0x0050, text=»* 6371-PRINTER CONTROL«, t00=0x000d, t01=0x000a}
0x1472…147c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0028}
0x147c…1494 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'18'«, t00=0x000d, t01=0x0032}
0x1494…14c6 Head {h00=0x002e, h01=0x0050, text=» MOVE VCDOCPAR,=C'1010313801100030000000' «, t00=0x000d, t01=0x004a}
0x14c6…14f4 Head {h00=0x002a, h01=0x0050, text=» DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 «, t00=0x000d, t01=0x007c}
0x14f4…1514 Head {h00=0x001c, h01=0x0050, text=» DSC1 DSVCHPRT,X'00',KW0«, t00=0x000d, t01=0x00aa}
0x1514…152e Head {h00=0x0016, h01=0x0050, text=» MOVE WW1,=X'8066'«, t00=0x000d, t01=0x00ca}
0x152e…154e Head {h00=0x001c, h01=0x0050, text=» DSC1 DSVCHPRT,X'0D',WW1«, t00=0x000d, t01=0x00e4}
0x154e…155c Head {h00=0x000a, h01=0x0050, text=»DK010 «, t00=0x000d, t01=0x0104}
0x155c…15ae Head {h00=0x004e, h01=0x0050, text=» PERF XEERR,=W'63',KW3 TTP OR TEP «, t00=0x000d, t01=0x0112}
0x15ae…15fe Head {h00=0x004c, h01=0x0050, text=» B DK100 «, t00=0x000d, t01=0x0164}
0x15fe…164e Head {h00=0x004c, h01=0x0050, text=»DK050 «, t00=0x000e, t01=0x0024}
0x164e…1670 Head {h00=0x001e, h01=0x0050, text=» CBE YDMLPINT,=D'0',DK060 «, t00=0x000e, t01=0x0074}
0x1670…1686 Head {h00=0x0012, h01=0x0050, text=»* LINE PRINTER«, t00=0x000e, t01=0x0096}
0x1686…16a4 Head {h00=0x001a, h01=0x0050, text=» PERF PVATTP,DSLNEPRT «, t00=0x000e, t01=0x00ac}
0x16a4…16b4 Head {h00=0x000c, h01=0x0050, text=» B DK090«, t00=0x000e, t01=0x00ca}
0x16b4…16ce Head {h00=0x0016, h01=0x0050, text=»* GENERAL PRINTER «, t00=0x000e, t01=0x00da}
0x16ce…16dc Head {h00=0x000a, h01=0x0050, text=»DK060 «, t00=0x000e, t01=0x00f4}
0x16dc…16f8 Head {h00=0x0018, h01=0x0050, text=» PERF PVATTP,SPDSPRT«, t00=0x000e, t01=0x0102}
0x16f8…1706 Head {h00=0x000a, h01=0x0050, text=»DK090 «, t00=0x000e, t01=0x011e}
0x1706…1756 Head {h00=0x004c, h01=0x0050, text=» PERF XEERR,=W'62',KW3 LP OR GTP «, t00=0x000e, t01=0x012c}
0x1756…1764 Head {h00=0x000a, h01=0x0050, text=»DK100 «, t00=0x000e, t01=0x017c}
0x1764…178c Head {h00=0x0024, h01=0x0050, text=» PERF XCLAMP,KW4,KW0 LAMP 4 OFF «, t00=0x000e, t01=0x018a}
0x178c…17a8 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DK980 «, t00=0x000f, t01=0x0022}
0x17a8…17f8 Head {h00=0x004c, h01=0x0050, text=» CBG IDACTNR2,=D'0',DK300 SINGLE ACCOUNT «, t00=0x000f, t01=0x003e}
0x17f8…1848 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x008e}
0x1848…1898 Head {h00=0x004c, h01=0x0050, text=»* SCAN ALL CHEQUE ACCOUNTS *«, t00=0x000f, t01=0x00de}
0x1898…18e8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x012e}
0x18e8…193a Head {h00=0x004e, h01=0x0050, text=» MOVE IDACTNR1,=D'167998' INITIALISE «, t00=0x000f, t01=0x017e}
0x193a…198a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0040}
0x198a…19da Head {h00=0x004c, h01=0x0050, text=»* NEXT CHEQUE ACCOUNT *«, t00=0x0010, t01=0x0090}
0x19da…1a2a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x00e0}
0x1a2a…1a7a Head {h00=0x004c, h01=0x0050, text=»DK200 «, t00=0x0010, t01=0x0130}
0x1a7a…1aca Head {h00=0x004c, h01=0x0050, text=» ADD IDACTNR1,=D'2' «, t00=0x0010, t01=0x0180}
0x1aca…1b06 Head {h00=0x0038, h01=0x0050, text=» CBG IDACTNR1,YDLASCHQ,DK800 NO MORE CHEQUE ACCOUNTS«, t00=0x0011, t01=0x0040}
0x1b06…1b56 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x007c}
0x1b56…1ba6 Head {h00=0x004c, h01=0x0050, text=»* READ THE ACCOUNT RECORD *«, t00=0x0011, t01=0x00cc}
0x1ba6…1bf6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x011c}
0x1bf6…1c46 Head {h00=0x004c, h01=0x0050, text=» MOVE ADACTRNR,IDACTNR1 «, t00=0x0011, t01=0x016c}
0x1c46…1c96 Head {h00=0x004c, h01=0x0050, text=» MUL ADACTRNR,KDSHIFT «, t00=0x0012, t01=0x002c}
0x1c96…1ce6 Head {h00=0x004c, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW1 «, t00=0x0012, t01=0x007c}
0x1ce6…1d36 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DK980 «, t00=0x0012, t01=0x00cc}
0x1d36…1d86 Head {h00=0x004c, h01=0x0050, text=» TBF SBRECAVB,DK200 NEXT CHEQUE ACCOUNT «, t00=0x0012, t01=0x011c}
0x1d86…1dd6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x016c}
0x1dd6…1e26 Head {h00=0x004c, h01=0x0050, text=»* THE ACCOUNT RECORD HAS BEEN READ *«, t00=0x0013, t01=0x002c}
0x1e26…1e76 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x007c}
0x1e76…1ec6 Head {h00=0x004c, h01=0x0050, text=» CBE ADSTATUS,=D'3',DK200 CLOSED WITH STATEMENTING «, t00=0x0013, t01=0x00cc}
0x1ec6…1f02 Head {h00=0x0038, h01=0x0050, text=» CBE ADSTMTRS,ADLASTRS,DK200 NO TRANS. TO BE STATEM.«, t00=0x0013, t01=0x011c}
0x1f02…1f52 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x0158}
0x1f52…1fa2 Head {h00=0x004c, h01=0x0050, text=»* A NON CLOSED ACCOUNT HAS BEEN READ *«, t00=0x0014, t01=0x0018}
0x1fa2…1ff2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0068}
0x1ff2…2042 Head {h00=0x004c, h01=0x0050, text=»DK300 «, t00=0x0014, t01=0x00b8}
0x2042…207a Head {h00=0x0034, h01=0x0050, text=» PERF QGATYP,IDACTNR1 SET SBCHQACT ACC. TO TYPE «, t00=0x0014, t01=0x0108}
0x207a…2092 Head {h00=0x0014, h01=0x0050, text=» TBT SBRVS,DK304«, t00=0x0014, t01=0x0140}
0x2092…20e2 Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'2' ACCOUNT NR. AND TRANS. CODE «, t00=0x0014, t01=0x0158}
0x20e2…20f2 Head {h00=0x000c, h01=0x0050, text=» B DK308«, t00=0x0015, t01=0x0018}
0x20f2…20fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x20fc…2142 Head {h00=0x0042, h01=0x0050, text=»* IF THE REVERSAL SWITCH IS ON, IT MUST BE TEMPORARILY CLEARED«, t00=0x0015, t01=0x0032}
0x2142…216c Head {h00=0x0026, h01=0x0050, text=»* FOR THE PRINTING OF LINE TYPE 2 «, t00=0x0015, t01=0x0078}
0x216c…2176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a2}
0x2176…2184 Head {h00=0x000a, h01=0x0050, text=»DK304 «, t00=0x0015, t01=0x00ac}
0x2184…2198 Head {h00=0x0010, h01=0x0050, text=» CLEAR SBRVS«, t00=0x0015, t01=0x00ba}
0x2198…21b2 Head {h00=0x0016, h01=0x0050, text=» PERF PAJRN,=W'2' «, t00=0x0015, t01=0x00ce}
0x21b2…21c4 Head {h00=0x000e, h01=0x0050, text=» SET SBRVS«, t00=0x0015, t01=0x00e8}
0x21c4…21d2 Head {h00=0x000a, h01=0x0050, text=»DK308 «, t00=0x0015, t01=0x00fa}
0x21d2…2222 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0108}
0x2222…2272 Head {h00=0x004c, h01=0x0050, text=»* PRINT THE HEADER LINE *«, t00=0x0015, t01=0x0158}
0x2272…22c2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0018}
0x22c2…2312 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,ACNAME «, t00=0x0016, t01=0x0068}
0x2312…234e Head {h00=0x0038, h01=0x0050, text=» CBG IDACTNR2,=D'0',DK320 SINGLE ACCOUNT ON TTP/TEP «, t00=0x0016, t01=0x00b8}
0x234e…2370 Head {h00=0x001e, h01=0x0050, text=» CBNE YDMLPINT,=D'1',DK310«, t00=0x0016, t01=0x00f4}
0x2370…2394 Head {h00=0x0020, h01=0x0050, text=»* PRINT ON THE LINE PRINTER «, t00=0x0016, t01=0x0116}
0x2394…23b2 Head {h00=0x001a, h01=0x0050, text=» EDWRT DSLNEPRT,PRT013«, t00=0x0016, t01=0x013a}
0x23b2…23c2 Head {h00=0x000c, h01=0x0050, text=» B DK350«, t00=0x0016, t01=0x0158}
0x23c2…23d0 Head {h00=0x000a, h01=0x0050, text=»DK310 «, t00=0x0016, t01=0x0168}
0x23d0…23ea Head {h00=0x0016, h01=0x0050, text=»* PRINT ON THE GTP«, t00=0x0016, t01=0x0176}
0x23ea…2412 Head {h00=0x0024, h01=0x0050, text=» PERF PXSKIP,SPDSPRT SKIP A LINE«, t00=0x0016, t01=0x0190}
0x2412…2462 Head {h00=0x004c, h01=0x0050, text=» EDWRT SPDSPRT,PRT013 «, t00=0x0017, t01=0x0028}
0x2462…2472 Head {h00=0x000c, h01=0x0050, text=» B DK350«, t00=0x0017, t01=0x0078}
0x2472…2490 Head {h00=0x001a, h01=0x0050, text=»* PRINT ON THE TTP/TEP«, t00=0x0017, t01=0x0088}
0x2490…249e Head {h00=0x000a, h01=0x0050, text=»DK320 «, t00=0x0017, t01=0x00a6}
0x249e…24bc Head {h00=0x001a, h01=0x0050, text=» MOVE NDNEWLNE,=D'46' «, t00=0x0017, t01=0x00b4}
0x24bc…24ea Head {h00=0x002a, h01=0x0050, text=» PERF PZPOSD,NDNEWLNE POSITION VOUCHER«, t00=0x0017, t01=0x00d2}
0x24ea…2508 Head {h00=0x001a, h01=0x0050, text=» EDWRT DSVCHPRT,PRT013«, t00=0x0017, t01=0x0100}
0x2508…2530 Head {h00=0x0024, h01=0x0050, text=» SUB NDNEWLNE,=D'14' SKIP LINES «, t00=0x0017, t01=0x011e}
0x2530…253e Head {h00=0x000a, h01=0x0050, text=»DK350 «, t00=0x0017, t01=0x0146}
0x253e…258e Head {h00=0x004c, h01=0x0050, text=» SET SBFIRST PRINT STATM. DATE ONLY ONCE «, t00=0x0017, t01=0x0154}
0x258e…25de Head {h00=0x004c, h01=0x0050, text=» MOVE NDPRTTRS,ADSTMTRS WORKFIELD «, t00=0x0018, t01=0x0014}
0x25de…262e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x0064}
0x262e…267e Head {h00=0x004c, h01=0x0050, text=»* NEXT TRANSACTION TO BE STATEMENTED *«, t00=0x0018, t01=0x00b4}
0x267e…26ce Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x0104}
0x26ce…271e Head {h00=0x004c, h01=0x0050, text=»DK400 «, t00=0x0018, t01=0x0154}
0x271e…276e Head {h00=0x004c, h01=0x0050, text=» CBE ADSTMTRS,ADLASTRS,DK700 NO MORE TRANSACTIONS «, t00=0x0019, t01=0x0014}
0x276e…27be Head {h00=0x004c, h01=0x0050, text=» PERF QENTRS,NDPRTTRS NEXT TRANS. TO BE STATEMENTED «, t00=0x0019, t01=0x0064}
0x27be…280e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x00b4}
0x280e…285e Head {h00=0x004c, h01=0x0050, text=»* READ THE TRANSACTION RECORD IN UWB UT2 *«, t00=0x0019, t01=0x0104}
0x285e…28ae Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0154}
0x28ae…28fe Head {h00=0x004c, h01=0x0050, text=» MOVE UDTRSRNR,ADACTRNR «, t00=0x001a, t01=0x0014}
0x28fe…294e Head {h00=0x004c, h01=0x0050, text=» ADD UDTRSRNR,NDPRTTRS TRANS. RECORD KEY «, t00=0x001a, t01=0x0064}
0x294e…299e Head {h00=0x004c, h01=0x0050, text=» PERF ZCRDD,UDTRSRNR,WDEC1,KW1 «, t00=0x001a, t01=0x00b4}
0x299e…29ee Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DK980 «, t00=0x001a, t01=0x0104}
0x29ee…2a3e Head {h00=0x004c, h01=0x0050, text=» TBF SBRECAVB,DK700 TRANS. RECORD NOT FOUND «, t00=0x001a, t01=0x0154}
0x2a3e…2a8e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0014}
0x2a8e…2ade Head {h00=0x004c, h01=0x0050, text=»* TRANSACTION RECORD HAS BEEN FOUND, PRINT A LINE *«, t00=0x001b, t01=0x0064}
0x2ade…2b2e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x00b4}
0x2b2e…2b7e Head {h00=0x004c, h01=0x0050, text=»DK500 «, t00=0x001b, t01=0x0104}
0x2b7e…2bae Head {h00=0x002c, h01=0x0050, text=» PERF EQPDS PRINT A DAILY STATEMENT LINE«, t00=0x001b, t01=0x0154}
0x2bae…2bfe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0184}
0x2bfe…2c4e Head {h00=0x004c, h01=0x0050, text=»* UPDATE LAST TRANSACTION STATEMENTED, FOR A SAVINGS ACCOUNT THE *«, t00=0x001c, t01=0x0044}
0x2c4e…2c9e Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT RECORD WILL NOT BE REWRITTEN, SO UPDATING OF THIS FIELD IN *«, t00=0x001c, t01=0x0094}
0x2c9e…2cee Head {h00=0x004c, h01=0x0050, text=»* THE UWB WILL DO NO HARM *«, t00=0x001c, t01=0x00e4}
0x2cee…2d3e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001c, t01=0x0134}
0x2d3e…2d8e Head {h00=0x004c, h01=0x0050, text=» MOVE ADSTMTRS,NDPRTTRS «, t00=0x001c, t01=0x0184}
0x2d8e…2dde Head {h00=0x004c, h01=0x0050, text=» B DK400 NEXT TRANSACTION «, t00=0x001d, t01=0x0044}
0x2dde…2e2e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001d, t01=0x0094}
0x2e2e…2e7e Head {h00=0x004c, h01=0x0050, text=»* ALL TRANSACTIONS OF THE SPECIFIED ACCOUNT HAVE BEEN PRINTED, *«, t00=0x001d, t01=0x00e4}
0x2e7e…2ece Head {h00=0x004c, h01=0x0050, text=»* UPDATE AND REWRITE THE ACCOUNT RECORD (FOR CHEQUE ACCOUNTS ONLY). *«, t00=0x001d, t01=0x0134}
0x2ece…2f1e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001d, t01=0x0184}
0x2f1e…2f6e Head {h00=0x004c, h01=0x0050, text=»DK700 «, t00=0x001e, t01=0x0044}
0x2f6e…2f9e Head {h00=0x002c, h01=0x0050, text=» CBG IDACTNR2,=D'0',DK705 SINGLE ACCOUNT«, t00=0x001e, t01=0x0094}
0x2f9e…2fcc Head {h00=0x002a, h01=0x0050, text=» CBE YDMLPINT,=D'1',DK705 LINE PRINTER«, t00=0x001e, t01=0x00c4}
0x2fcc…2ffc Head {h00=0x002c, h01=0x0050, text=» PERF PXSKIP,SPDSPRT LINE FEED ON A GTP «, t00=0x001e, t01=0x00f2}
0x2ffc…300a Head {h00=0x000a, h01=0x0050, text=»DK705 «, t00=0x001e, t01=0x0122}
0x300a…305a Head {h00=0x004c, h01=0x0050, text=» TBF SBCHQACT,DK750 «, t00=0x001e, t01=0x0130}
0x305a…30aa Head {h00=0x004c, h01=0x0050, text=» CBNE ADSTATUS,=D'2',DK710 «, t00=0x001e, t01=0x0180}
0x30aa…30fa Head {h00=0x004c, h01=0x0050, text=» CBNE ADSTMTRS,ADLASTRS,DK710 ALL TRANS. STATEMENTED ? «, t00=0x001f, t01=0x0040}
0x30fa…314a Head {h00=0x004c, h01=0x0050, text=» MOVE ADSTATUS,=D'3' CLOSED WITH STATEMENTING «, t00=0x001f, t01=0x0090}
0x314a…3154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e0}
0x3154…3178 Head {h00=0x0020, h01=0x0050, text=»* REWRITE THE ACCOUNT RECORD«, t00=0x001f, t01=0x00ea}
0x3178…3182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010e}
0x3182…31d2 Head {h00=0x004c, h01=0x0050, text=»DK710 «, t00=0x001f, t01=0x0118}
0x31d2…3222 Head {h00=0x004c, h01=0x0050, text=» PERF ZDRWRD,ADACTRNR,NDLRN1 «, t00=0x001f, t01=0x0168}
0x3222…3272 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DK980 «, t00=0x0020, t01=0x0028}
0x3272…32c2 Head {h00=0x004c, h01=0x0050, text=»DK750 «, t00=0x0020, t01=0x0078}
0x32c2…32f2 Head {h00=0x002c, h01=0x0050, text=» CBG IDACTNR2,=D'0',DK800 SINGLE ACCOUNT«, t00=0x0020, t01=0x00c8}
0x32f2…3316 Head {h00=0x0020, h01=0x0050, text=» B DK200 ALL ACCOUNT OPTION «, t00=0x0020, t01=0x00f8}
0x3316…3366 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0020, t01=0x011c}
0x3366…33b6 Head {h00=0x004c, h01=0x0050, text=»* ALL ACCOUNTS HAVE BEEN DONE *«, t00=0x0020, t01=0x016c}
0x33b6…3406 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0021, t01=0x002c}
0x3406…3456 Head {h00=0x004c, h01=0x0050, text=»DK800 «, t00=0x0021, t01=0x007c}
0x3456…34a6 Head {h00=0x004c, h01=0x0050, text=»DK980 «, t00=0x0021, t01=0x00cc}
0x34a6…34c8 Head {h00=0x001e, h01=0x0050, text=» CBE IDACTNR2,=D'0',DK984 «, t00=0x0021, t01=0x011c}
0x34c8…34d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013e}
0x34d2…34f8 Head {h00=0x0022, h01=0x0050, text=»* RELEASE VOUCHER FOR TTP/TEP «, t00=0x0021, t01=0x0148}
0x34f8…3502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x016e}
0x3502…351a Head {h00=0x0014, h01=0x0050, text=» DSC0 DSVCHPRT,1«, t00=0x0021, t01=0x0178}
0x351a…3538 Head {h00=0x001a, h01=0x0050, text=» PERF PWDETP,DSVCHPRT «, t00=0x0021, t01=0x0190}
0x3538…3548 Head {h00=0x000c, h01=0x0050, text=» B DK990«, t00=0x0022, t01=0x001e}
0x3548…3552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x002e}
0x3552…3592 Head {h00=0x003c, h01=0x0050, text=»* ALL ACCOUNT OPTION, GIVE A TRANSACTION SEQUENCE NUMBER«, t00=0x0022, t01=0x0038}
0x3592…359c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0078}
0x359c…35aa Head {h00=0x000a, h01=0x0050, text=»DK984 «, t00=0x0022, t01=0x0082}
0x35aa…35c6 Head {h00=0x0018, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x0022, t01=0x0090}
0x35c6…35e6 Head {h00=0x001c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ «, t00=0x0022, t01=0x00ac}
0x35e6…3608 Head {h00=0x001e, h01=0x0050, text=» CBE YDMLPINT,=D'0',DK986 «, t00=0x0022, t01=0x00cc}
0x3608…361e Head {h00=0x0012, h01=0x0050, text=»* LINE PRINTER«, t00=0x0022, t01=0x00ee}
0x361e…364e Head {h00=0x002c, h01=0x0050, text=» PERF PWDETP,DSLNEPRT DETACH LNE PRINTER«, t00=0x0022, t01=0x0104}
0x364e…365e Head {h00=0x000c, h01=0x0050, text=» B DK990«, t00=0x0022, t01=0x0134}
0x365e…3678 Head {h00=0x0016, h01=0x0050, text=»* GENERAL PRINTER «, t00=0x0022, t01=0x0144}
0x3678…3686 Head {h00=0x000a, h01=0x0050, text=»DK986 «, t00=0x0022, t01=0x015e}
0x3686…36a2 Head {h00=0x0018, h01=0x0050, text=» PERF PWDETP,SPDSPRT«, t00=0x0022, t01=0x016c}
0x36a2…36ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0188}
0x36ac…36c4 (35, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* EXIT FROM D-S «, t00=0x0023, t01=0x0004}
0x36c4…36ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x001c}
0x36ce…36dc Head {h00=0x000a, h01=0x0050, text=»DK990 «, t00=0x0023, t01=0x0026}
0x36dc…36f2 Head {h00=0x0012, h01=0x0050, text=» CLEAR SBDSTM «, t00=0x0023, t01=0x0034}
0x36f2…3742 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0023, t01=0x004a}
0x3742…3792 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x009a}
0x3792…37e2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0023, t01=0x00ea}
0x37e2…3832 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0023, t01=0x013a}
0x3832…3882 Head {h00=0x004c, h01=0x0050, text=»* DAILY-STATEMENT ACCOUNT HEADER LINE *«, t00=0x0023, t01=0x018a}
0x3882…38d2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0024, t01=0x004a}
0x38d2…3922 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0024, t01=0x009a}
0x3922…3972 Head {h00=0x004c, h01=0x0050, text=»PRT013 FRMT «, t00=0x0024, t01=0x00ea}
0x3972…39c2 Head {h00=0x004c, h01=0x0050, text=» FTEXT '01' «, t00=0x0024, t01=0x013a}
0x39c2…3a12 Head {h00=0x004c, h01=0x0050, text=» FTAB 3 «, t00=0x0024, t01=0x018a}
0x3a12…3a62 Head {h00=0x004c, h01=0x0050, text=» FMEL '999999',IDACTNR1 «, t00=0x0025, t01=0x004a}
0x3a62…3ab2 Head {h00=0x004c, h01=0x0050, text=» FTAB 12 «, t00=0x0025, t01=0x009a}
0x3ab2…3b02 Head {h00=0x004c, h01=0x0050, text=» FCOPY ICTEXT2 «, t00=0x0025, t01=0x00ea}
0x3b02…3b52 Head {h00=0x004c, h01=0x0050, text=» FTAB 32 «, t00=0x0025, t01=0x013a}
0x3b52…3ba2 Head {h00=0x004c, h01=0x0050, text=» FILLR ' ',8 «, t00=0x0025, t01=0x018a}
0x3ba2…3bf2 Head {h00=0x004c, h01=0x0050, text=» FMEND «, t00=0x0026, t01=0x004a}
0x3bf2…3c42 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x009a}
0x3c42…3c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ea}
0x3c4c…3c72 Head {h00=0x0022, h01=0x0050, text=»* PRINT A DAILY STATEMENT LINE«, t00=0x0026, t01=0x00f4}
0x3c72…3c94 Head {h00=0x001e, h01=0x0050, text=»* (SUBROUTINE FOR DKDSTM) «, t00=0x0026, t01=0x011a}
0x3c94…3c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x013c}
0x3c9e…3cee Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x0146}
0x3cee…3d00 Head {h00=0x000e, h01=0x0050, text=»EQPDS PROC«, t00=0x0027, t01=0x0008}
0x3d00…3d0e Head {h00=0x000a, h01=0x0050, text=»EQ000 «, t00=0x0027, t01=0x001a}
0x3d0e…3d5e Head {h00=0x004c, h01=0x0050, text=»* CLEAR SWITCHES USED *«, t00=0x0027, t01=0x0028}
0x3d5e…3db0 Head {h00=0x004e, h01=0x0050, text=» CLEAR SBDSDEP «, t00=0x0027, t01=0x0078}
0x3db0…3e02 Head {h00=0x004e, h01=0x0050, text=» CLEAR SBDSWDR «, t00=0x0027, t01=0x00ca}
0x3e02…3e54 Head {h00=0x004e, h01=0x0050, text=» CLEAR SBDSTRF «, t00=0x0027, t01=0x011c}
0x3e54…3ea4 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBDSRVS «, t00=0x0027, t01=0x016e}
0x3ea4…3edc Head {h00=0x0034, h01=0x0050, text=»* SET SWITCHES DEPENDING ON THE TRANSACTION CODE«, t00=0x0028, t01=0x002e}
0x3edc…3f2c Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'1',EQ100 IN «, t00=0x0028, t01=0x0066}
0x3f2c…3f7c Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'7',EQ100 NOBOOK IN «, t00=0x0028, t01=0x00b6}
0x3f7c…3fcc Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'2',EQ120 OUT «, t00=0x0028, t01=0x0106}
0x3fcc…401c Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'16',EQ120 CHEQUE OUT «, t00=0x0028, t01=0x0156}
0x401c…406c Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'12',EQ140 TRANSFER (FROM) «, t00=0x0029, t01=0x0016}
0x406c…40bc Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'11',EQ140 TRANSFER (TO) «, t00=0x0029, t01=0x0066}
0x40bc…410c Head {h00=0x004c, h01=0x0050, text=» B EQ180 «, t00=0x0029, t01=0x00b6}
0x410c…415c Head {h00=0x004c, h01=0x0050, text=»EQ100 «, t00=0x0029, t01=0x0106}
0x415c…41ae Head {h00=0x004e, h01=0x0050, text=» SET SBDSDEP «, t00=0x0029, t01=0x0156}
0x41ae…41fe Head {h00=0x004c, h01=0x0050, text=» B EQ180 «, t00=0x002a, t01=0x0018}
0x41fe…424e Head {h00=0x004c, h01=0x0050, text=»EQ120 «, t00=0x002a, t01=0x0068}
0x424e…42a0 Head {h00=0x004e, h01=0x0050, text=» SET SBDSWDR «, t00=0x002a, t01=0x00b8}
0x42a0…42f0 Head {h00=0x004c, h01=0x0050, text=» B EQ180 «, t00=0x002a, t01=0x010a}
0x42f0…4340 Head {h00=0x004c, h01=0x0050, text=»EQ140 «, t00=0x002a, t01=0x015a}
0x4340…4392 Head {h00=0x004e, h01=0x0050, text=» SET SBDSTRF «, t00=0x002b, t01=0x001a}
0x4392…43e2 Head {h00=0x004c, h01=0x0050, text=»EQ180 «, t00=0x002b, t01=0x006c}
0x43e2…4432 Head {h00=0x004c, h01=0x0050, text=» CBNL UDAMOUNT,=D'0',EQ200 «, t00=0x002b, t01=0x00bc}
0x4432…4482 Head {h00=0x004c, h01=0x0050, text=» SET SBDSRVS «, t00=0x002b, t01=0x010c}
0x4482…448c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x015c}
0x448c…44ca Head {h00=0x003a, h01=0x0050, text=»* MUST AMOUNT BE PRINTED AS A DEBIT OR CREDIT AMOUNT ?«, t00=0x002b, t01=0x0166}
0x44ca…44d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0014}
0x44d4…4524 Head {h00=0x004c, h01=0x0050, text=»EQ200 «, t00=0x002c, t01=0x001e}
0x4524…4574 Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'1',EQ250 IN «, t00=0x002c, t01=0x006e}
0x4574…45c4 Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'7',EQ250 NOBOOK IN «, t00=0x002c, t01=0x00be}
0x45c4…4614 Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'11',EQ250 TRANSFER (TO) «, t00=0x002c, t01=0x010e}
0x4614…4664 Head {h00=0x004c, h01=0x0050, text=»* TRANSACTION CODE IS 2, 16 OR 12 *«, t00=0x002c, t01=0x015e}
0x4664…46b4 Head {h00=0x004c, h01=0x0050, text=» TBT SBDSRVS,EQ290 REVERSAL «, t00=0x002d, t01=0x001e}
0x46b4…4704 Head {h00=0x004c, h01=0x0050, text=» B EQ270 «, t00=0x002d, t01=0x006e}
0x4704…4754 Head {h00=0x004c, h01=0x0050, text=»* TRANSACTION CODE IS 1, 7 OR 11 *«, t00=0x002d, t01=0x00be}
0x4754…47a4 Head {h00=0x004c, h01=0x0050, text=»EQ250 «, t00=0x002d, t01=0x010e}
0x47a4…47f4 Head {h00=0x004c, h01=0x0050, text=» TBF SBDSRVS,EQ290 NOT REVERSAL «, t00=0x002d, t01=0x015e}
0x47f4…4844 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002e, t01=0x001e}
0x4844…4894 Head {h00=0x004c, h01=0x0050, text=»* AMOUNT MUST BE PRINTED AS DEBIT AMOUNT *«, t00=0x002e, t01=0x006e}
0x4894…48e4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002e, t01=0x00be}
0x48e4…4934 Head {h00=0x004c, h01=0x0050, text=»EQ270 «, t00=0x002e, t01=0x010e}
0x4934…4984 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT1,UDAMOUNT «, t00=0x002e, t01=0x015e}
0x4984…49d4 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,=D'0' «, t00=0x002f, t01=0x001e}
0x49d4…4a24 Head {h00=0x004c, h01=0x0050, text=» B EQ300 «, t00=0x002f, t01=0x006e}
0x4a24…4a74 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002f, t01=0x00be}
0x4a74…4ac4 Head {h00=0x004c, h01=0x0050, text=»* AMOUNT MUST BE PRINTED AS CREDIT AMOUNT *«, t00=0x002f, t01=0x010e}
0x4ac4…4b14 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002f, t01=0x015e}
0x4b14…4b64 Head {h00=0x004c, h01=0x0050, text=»EQ290 «, t00=0x0030, t01=0x001e}
0x4b64…4bb4 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT1,=D'0' «, t00=0x0030, t01=0x006e}
0x4bb4…4c04 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,UDAMOUNT «, t00=0x0030, t01=0x00be}
0x4c04…4c54 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0030, t01=0x010e}
0x4c54…4ca4 Head {h00=0x004c, h01=0x0050, text=»* PRINT A LINE ON LP, GTP OR TTP/TEP *«, t00=0x0030, t01=0x015e}
0x4ca4…4cf4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0031, t01=0x001e}
0x4cf4…4d44 Head {h00=0x004c, h01=0x0050, text=»EQ300 «, t00=0x0031, t01=0x006e}
0x4d44…4d60 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'61'«, t00=0x0031, t01=0x00be}
0x4d60…4d92 Head {h00=0x002e, h01=0x0050, text=» PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER«, t00=0x0031, t01=0x00da}
0x4d92…4dc2 Head {h00=0x002c, h01=0x0050, text=» CBG IDACTNR2,=D'0',EQ320 SINGLE ACCOUNT«, t00=0x0031, t01=0x010c}
0x4dc2…4e12 Head {h00=0x004c, h01=0x0050, text=» CBNE YDMLPINT,=D'1',EQ310 «, t00=0x0031, t01=0x013c}
0x4e12…4e62 Head {h00=0x004c, h01=0x0050, text=»* PRINT ON LINE PRINTER *«, t00=0x0031, t01=0x018c}
0x4e62…4e82 Head {h00=0x001c, h01=0x0050, text=» EDWRT DSLNEPRT,FCBUFFER«, t00=0x0032, t01=0x004c}
0x4e82…4e92 Head {h00=0x000c, h01=0x0050, text=» B EQ990«, t00=0x0032, t01=0x006c}
0x4e92…4ee2 Head {h00=0x004c, h01=0x0050, text=»EQ310 «, t00=0x0032, t01=0x007c}
0x4ee2…4f32 Head {h00=0x004c, h01=0x0050, text=»* PRINT ON A GTP *«, t00=0x0032, t01=0x00cc}
0x4f32…4f82 Head {h00=0x004c, h01=0x0050, text=» EDWRT SPDSPRT,FCBUFFER «, t00=0x0032, t01=0x011c}
0x4f82…4fd2 Head {h00=0x004c, h01=0x0050, text=» B EQ990 «, t00=0x0032, t01=0x016c}
0x4fd2…5022 Head {h00=0x004c, h01=0x0050, text=»EQ320 «, t00=0x0033, t01=0x002c}
0x5022…5072 Head {h00=0x004c, h01=0x0050, text=»* PRINT ON A TTP/TEP *«, t00=0x0033, t01=0x007c}
0x5072…5098 Head {h00=0x0022, h01=0x0050, text=» SUB NDNEWLNE,=D'2' NEXT LINE «, t00=0x0033, t01=0x00cc}
0x5098…50c6 Head {h00=0x002a, h01=0x0050, text=» PERF PZPOSD,NDNEWLNE POSITION VOUCHER«, t00=0x0033, t01=0x00f2}
0x50c6…5116 Head {h00=0x004c, h01=0x0050, text=» EDWRT DSVCHPRT,FCBUFFER «, t00=0x0033, t01=0x0120}
0x5116…5166 Head {h00=0x004c, h01=0x0050, text=»EQ990 «, t00=0x0033, t01=0x0170}
0x5166…51b6 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBFIRST PRINT STATEMENT DATE ONLY ONCE «, t00=0x0034, t01=0x0030}
0x51b6…51c2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0034, t01=0x0080}
0x51c2…51d0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0034, t01=0x008c}
0x51d0…5220 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0034, t01=0x009a}
0x5220…5270 Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x0034, t01=0x00ea}
0x5270…5274 Head {h00=0x4004, h01=0x0000}
0x5274…5278 00 34 01 3a ┆ 4 :┆
0x5278…5280 (53, 1, 8) 20 04 00 00 00 35 00 04 ┆ 5 ┆
0x5280…52d0 (54, 0, 400) 28 02 00 6d 01 8e 00 0c 00 08 00 03 20 06 00 1c 00 20 00 6e 00 0a 00 0a 00 08 00 03 26 06 c3 02 00 6e 00 1a 00 0a 00 06 00 02 26 04 c4 03 00 6e 00 28 00 0c 00 07 00 03 26 05 da f2 02 20 00 6e 00 36 00 1a 00 15 00 0a 1a 13 00 1d 10 0d 5a 5a ┆( m n & n & n ( & n 6 ZZ┆
0x52d0…5320 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 39 00 6e 00 46 00 0c 00 07 00 03 22 05 00 1d 64 20 00 6e 00 64 00 0a 00 06 00 02 26 04 c4 17 00 6e 00 74 00 0a 00 06 00 02 26 04 c0 73 00 6e 00 82 00 0a 00 06 00 02 26 04 c4 1b 00 6e 00 90 00 0a 00 06 00 02 ┆ZZZZZZ9,99-9 n F " d n d & n t & s n & n ┆
0x5320…5370 26 04 86 20 00 6e 00 9e 00 0c 00 07 00 03 26 05 db f2 02 20 00 6e 00 ac 00 1a 00 15 00 0a 1a 13 00 1e 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 39 00 6e 00 bc 00 0c 00 07 00 03 22 05 00 1e 64 20 00 6e 00 da 00 0a 00 06 00 02 26 04 c4 2e ┆& n & n ZZZZZZZZ9,99-9 n " d n & .┆
0x5370…53c0 00 6e 00 ea 00 16 00 11 00 08 1a 0f 00 1f 10 09 5a 5a 5a 5a 39 2c 39 39 2d 2c 00 6e 00 f8 00 0c 00 07 00 03 22 05 00 1f 67 20 00 6e 01 12 00 0a 00 06 00 02 26 04 c4 37 00 6e 01 22 00 16 00 12 00 08 1a 10 00 20 10 0a 5a 5a 5a 5a 5a 39 2c 39 ┆ n ZZZZ9,99-, n " g n & 7 n " ZZZZZ9,9┆
0x53c0…5410 39 2d 00 6e 01 30 00 0c 00 07 00 03 22 05 00 20 63 20 00 6e 01 4a 00 08 00 04 00 01 28 02 00 6e 01 5a 00 26 00 22 00 10 00 20 01 80 3a 4c 17 21 3a 4c 0b 0b 49 4c 09 49 4c 03 49 4c 57 03 03 49 4c 30 58 94 06 49 34 01 00 6e 01 66 00 0e 00 0a ┆9- n 0 " c n J ( n Z & " :L !:L IL IL ILW IL0X I4 n f ┆
0x5410…5426 (55, 2, 22) 07 04 00 00 00 20 01 9c 00 00 00 6e 01 90 40 04 00 00 00 6f 00 12 ┆ n @ o ┆
0x5426…5476 (56, 0, 400) 00 40 00 48 20 49 44 45 4e 54 20 51 49 52 44 42 53 20 20 54 52 41 20 31 30 2e 30 20 38 30 2d 30 34 2d 31 31 20 46 31 20 4f 31 31 31 32 20 20 44 41 54 41 42 41 53 45 20 52 45 43 4f 56 45 52 59 00 70 00 04 00 0e 00 0a 01 04 c8 51 49 52 44 42 ┆ @ H IDENT QIRDBS TRA 10.0 80-04-11 F1 O1112 DATABASE RECOVERY p QIRDB┆
0x5476…54c6 53 00 00 70 00 48 00 0e 00 0a 02 04 c8 24 24 24 54 52 41 52 00 70 00 5a 00 10 00 0c 05 05 c8 51 49 52 44 42 53 00 00 00 00 70 00 6c 00 40 00 3c 02 1d 88 4d 41 53 4b 52 c8 54 3a 44 52 45 41 54 c8 54 3a 49 44 49 53 20 c8 54 3a 58 53 54 41 31 ┆S p H $$$TRAR p Z QIRDBS p l @ < MASKR T:DREAT T:IDIS T:XSTA1┆
0x54c6…5516 a8 5a 43 52 44 44 c8 5a 44 52 57 52 44 54 c8 5a 45 49 4e 53 44 45 a8 5a 47 52 45 41 00 70 00 80 00 0e 00 09 00 04 14 07 00 02 30 01 00 54 00 70 00 c4 00 0e 00 0a 00 04 10 08 00 05 20 02 00 84 00 70 00 d6 00 0e 00 09 00 04 14 07 00 08 30 01 ┆ ZCRDD ZDRWRDT ZEINSDE ZGREA p 0 T p p 0 ┆
0x5516…5566 b1 84 00 70 00 e8 00 0c 00 08 00 03 05 06 00 0a 00 04 00 70 00 fa 00 0c 00 08 00 03 05 06 00 10 00 08 00 70 01 0a 00 0e 00 0a 00 04 10 08 00 15 20 02 10 00 00 70 01 1a 00 0c 00 08 00 03 05 06 00 17 00 02 00 70 01 2c 00 0e 00 09 00 04 14 07 ┆ p p p p p , ┆
0x5566…55b6 00 1e 30 01 b1 00 00 70 01 3c 00 0e 00 0a 00 04 10 08 00 21 20 02 00 84 00 70 01 4e 00 0e 00 0a 00 04 10 08 00 24 20 02 00 00 00 70 01 60 00 0c 00 08 00 03 07 06 00 26 00 10 00 70 01 72 00 0e 00 09 00 04 14 07 00 29 30 01 b1 00 00 70 01 82 ┆ 0 p < ! p N $ p ` & p r )0 p ┆
0x55b6…5606 (57, 0, 400) 00 0c 00 08 00 03 05 06 00 2b 00 04 00 71 00 04 00 0c 00 08 00 03 05 06 00 31 00 08 00 71 00 14 00 0e 00 0a 00 04 10 08 00 36 20 02 08 00 00 71 00 24 00 0c 00 08 00 03 05 06 00 38 00 02 00 71 00 36 00 0e 00 0a 00 04 10 08 00 3f 20 02 00 01 ┆ + q 1 q 6 q $ 8 q 6 ? ┆
0x5606…5656 00 71 00 46 00 4a 00 46 00 22 00 44 00 00 01 f4 4c 01 45 4c 03 f4 4c 30 58 97 5c 45 f4 30 58 00 f1 01 44 4c 30 52 f1 44 58 16 05 f4 4c 01 45 4c 01 48 4c 80 52 03 f4 4c 30 58 97 5c 45 f4 30 58 00 f1 01 44 4c 30 52 f1 44 50 09 03 48 4c 00 71 ┆ q F J F " D L EL L0X E 0X DL0R DX L EL HL R L0X E 0X DL0R DP HL q┆
0x5656…56a6 00 58 00 0e 00 0a 00 04 10 08 00 42 20 02 00 32 00 71 00 a6 00 0e 00 0a 00 04 10 08 00 48 20 02 a0 ab 00 71 00 b8 00 0c 00 08 00 03 05 06 00 4a 00 02 00 71 00 ca 00 0e 00 0a 00 04 10 08 00 51 20 02 00 00 00 71 00 da 00 0c 00 08 00 03 05 06 ┆ X B 2 q H q J q Q q ┆
0x56a6…56f6 00 53 00 06 00 71 00 ec 00 0c 00 08 00 03 05 06 00 57 00 08 00 71 00 fc 00 0e 00 0a 00 04 10 08 00 5c 20 02 e1 ab 00 71 01 0c 00 0c 00 08 00 03 05 06 00 5e 00 02 00 71 01 1e 00 0c 00 08 00 03 07 06 00 66 00 0e 00 71 01 2e 00 10 00 0c 00 05 ┆ S q W q q ^ q f q . ┆
0x56f6…5746 14 0a 00 6f 30 04 b0 16 79 99 00 71 01 3e 00 10 00 0c 00 05 14 0a 00 72 30 04 b0 16 79 98 00 71 01 52 00 0e 00 09 00 04 14 07 00 75 30 01 00 16 00 71 01 66 00 0e 00 0a 00 04 10 08 00 78 20 02 00 00 00 71 01 78 00 10 00 0c 00 05 14 0a 00 7d ┆ o0 y q > r0 y q R u0 q f x q x }┆
0x5746…5796 (58, 0, 400) 30 04 b0 16 79 99 00 71 01 8a 00 0c 00 08 00 03 07 06 00 7f 00 10 00 72 00 0e 00 4a 00 46 00 22 00 44 00 40 23 48 4c 29 5f 21 01 44 4c 30 52 f1 44 5c 2a 01 48 4c 30 58 97 5c 30 58 00 f1 01 44 4c 30 52 f1 44 5c 3e 41 f9 80 52 49 49 32 6c 5f ┆0 y q r J F " D @#HL)_! DL0R D * HL0X 0X DL0R D >A RII2l_┆
0x5796…57e6 48 01 28 4c 01 29 4c 01 2b 4c 01 48 4c 40 90 01 61 4c 80 52 00 72 00 1e 00 0e 00 09 00 04 14 07 00 82 30 01 b2 29 00 72 00 6c 00 0c 00 08 00 03 07 06 00 8a 00 0a 00 72 00 7e 00 0e 00 0a 00 04 10 08 00 96 20 02 00 01 00 72 00 8e 00 0e 00 0a ┆H (L )L +L HL@ aL R r 0 ) r l r ~ r ┆
0x57e6…5836 00 04 10 08 00 99 20 02 00 32 00 72 00 a0 00 0e 00 0a 00 04 10 08 00 9f 20 02 00 00 00 72 00 b2 00 0e 00 09 00 04 14 07 00 bc 30 01 b2 00 00 72 00 c4 00 0e 00 09 00 04 14 07 00 c0 30 01 00 00 00 72 00 d6 00 4a 00 46 00 22 00 44 00 80 03 61 ┆ 2 r r 0 r 0 r J F " D a┆
0x5836…5886 4c 00 90 61 08 90 da 80 52 90 f3 d1 49 32 46 49 fa 09 03 48 4c 23 48 4c 2f 5f 1f 01 48 4c 49 90 09 24 61 28 0c 00 28 61 57 07 24 61 29 03 00 29 61 24 9e 2b 03 00 2b 9e 25 96 4c 0a 01 96 00 72 00 e8 00 0c 00 08 00 03 07 06 00 c2 00 0c 00 72 ┆L a R I2FI HL#HL/_ HLI $a( (aW $a) )a$ + + % L r r┆
0x5886…58d6 01 36 00 10 00 0c 00 05 14 0a 00 d1 30 04 b0 16 79 98 00 72 01 46 00 0e 00 0a 00 04 10 08 00 d4 20 02 00 00 00 72 01 5a 00 0e 00 0a 00 04 14 08 00 d9 30 02 b0 25 00 72 01 6c 00 26 00 22 00 10 00 20 00 c0 4c 80 52 90 f3 49 32 0f 5f 4c 49 90 ┆ 6 0 y r F r Z 0 % r l & " L R I2 _LI ┆
0x58d6…5904 (59, 2, 46) 0a 41 90 01 61 4c 01 48 4c 5f 59 03 2b 4c 34 00 00 72 01 7e 00 0e 00 0a 07 04 00 00 00 d9 00 dc 00 03 00 73 00 18 40 04 00 00 00 73 00 2a ┆ A aL HL_Y +L4 r ~ s @ s *┆
0x5904…5954 (60, 0, 400) 00 48 00 48 20 49 44 45 4e 54 20 51 4d 49 53 43 20 20 20 54 52 41 20 31 30 2e 30 20 38 30 2d 30 34 2d 31 31 20 46 31 20 4f 31 31 31 32 20 20 4d 49 53 43 45 4c 41 4e 45 4f 55 53 20 53 55 42 52 4f 55 54 49 4e 45 53 20 00 74 00 04 00 3e 00 3a ┆ H H IDENT QMISC TRA 10.0 80-04-11 F1 O1112 MISCELANEOUS SUBROUTINES t > :┆
0x5954…59a4 01 1c c8 51 41 46 4e 4b 59 00 c8 51 42 53 54 4b 59 00 c8 51 43 47 55 57 42 00 c8 51 44 46 55 57 42 00 c8 51 45 4e 54 52 53 00 c8 51 46 4c 54 52 53 00 c8 51 47 41 54 59 50 00 00 74 00 50 00 0e 00 0a 01 04 c8 51 48 53 50 4b 59 49 00 74 00 92 ┆ QAFNKY QBSTKY QCGUWB QDFUWB QENTRS QFLTRS QGATYP t P QHSPKYI t ┆
0x59a4…59f4 00 0e 00 0a 02 04 c8 24 24 24 54 52 41 00 00 74 00 a4 00 42 00 3e 05 1e c8 51 41 46 4e 4b 59 49 00 00 c8 51 42 53 54 4b 59 31 00 39 c8 51 43 47 55 57 42 2d 00 5f c8 51 44 46 55 57 42 31 00 a2 c8 51 45 4e 54 52 53 41 00 a6 c8 51 46 4c 54 52 ┆ $$$TRA t B > QAFNKYI QBSTKY1 9 QCGUWB- _ QDFUWB1 QENTRSA QFLTR┆
0x59f4…5a44 53 52 00 b2 00 74 00 b6 00 1a 00 16 05 0a c8 51 47 41 54 59 50 00 00 be c8 51 48 53 50 4b 59 51 00 d1 00 74 00 fc 00 0c 00 08 02 03 a8 54 3a 55 53 45 00 74 01 1a 00 0c 00 08 00 03 06 06 00 01 00 39 00 74 01 2a 00 0e 00 0a 00 04 10 08 00 06 ┆SR t QGATYP QHSPKYQ t T:USE t 9 t * ┆
0x5a44…5a94 20 02 00 01 00 74 01 3a 00 0e 00 0a 00 04 10 08 00 0d 20 02 00 02 00 74 01 4c 00 0e 00 0a 00 04 10 08 00 3e 20 02 00 09 00 74 01 5e 00 4a 00 46 00 22 00 44 00 00 80 52 00 01 25 00 4c 2c 00 44 02 09 44 4c 22 00 44 22 22 00 02 03 48 33 1e 41 ┆ t : t L > t ^ J F " D R % L, D DL" D"" H3 A┆