|
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: 23228 (0x5abc)
Notes: pts_type(SC)
Names: »DKDSTM.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/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
CBE RDPRTTYP,=D'3',DK005
CBNE RDPRTTYP,=D'0',DK010
DK005
*
* 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=» CBE RDPRTTYP,=D'3',DK005 «, t00=0x000c, t01=0x016e}
0x144a…146c Head {h00=0x001e, h01=0x0050, text=» CBNE RDPRTTYP,=D'0',DK010«, t00=0x000c, t01=0x0190}
0x146c…147a Head {h00=0x000a, h01=0x0050, text=»DK005 «, t00=0x000d, t01=0x0022}
0x147a…1484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0030}
0x1484…14a2 Head {h00=0x001a, h01=0x0050, text=»* 6371-PRINTER CONTROL«, t00=0x000d, t01=0x003a}
0x14a2…14ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0058}
0x14ac…14c4 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'18'«, t00=0x000d, t01=0x0062}
0x14c4…14f6 Head {h00=0x002e, h01=0x0050, text=» MOVE VCDOCPAR,=C'1010313801100030000000' «, t00=0x000d, t01=0x007a}
0x14f6…1524 Head {h00=0x002a, h01=0x0050, text=» DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 «, t00=0x000d, t01=0x00ac}
0x1524…1544 Head {h00=0x001c, h01=0x0050, text=» DSC1 DSVCHPRT,X'00',KW0«, t00=0x000d, t01=0x00da}
0x1544…155e Head {h00=0x0016, h01=0x0050, text=» MOVE WW1,=X'8066'«, t00=0x000d, t01=0x00fa}
0x155e…157e Head {h00=0x001c, h01=0x0050, text=» DSC1 DSVCHPRT,X'0D',WW1«, t00=0x000d, t01=0x0114}
0x157e…158c Head {h00=0x000a, h01=0x0050, text=»DK010 «, t00=0x000d, t01=0x0134}
0x158c…15de Head {h00=0x004e, h01=0x0050, text=» PERF XEERR,=W'63',KW3 TTP OR TEP «, t00=0x000d, t01=0x0142}
0x15de…162e (14, 0, 400) Head {h00=0x004c, h01=0x0050, text=» B DK100 «, t00=0x000e, t01=0x0004}
0x162e…167e Head {h00=0x004c, h01=0x0050, text=»DK050 «, t00=0x000e, t01=0x0054}
0x167e…16a0 Head {h00=0x001e, h01=0x0050, text=» CBE YDMLPINT,=D'0',DK060 «, t00=0x000e, t01=0x00a4}
0x16a0…16b6 Head {h00=0x0012, h01=0x0050, text=»* LINE PRINTER«, t00=0x000e, t01=0x00c6}
0x16b6…16d4 Head {h00=0x001a, h01=0x0050, text=» PERF PVATTP,DSLNEPRT «, t00=0x000e, t01=0x00dc}
0x16d4…16e4 Head {h00=0x000c, h01=0x0050, text=» B DK090«, t00=0x000e, t01=0x00fa}
0x16e4…16fe Head {h00=0x0016, h01=0x0050, text=»* GENERAL PRINTER «, t00=0x000e, t01=0x010a}
0x16fe…170c Head {h00=0x000a, h01=0x0050, text=»DK060 «, t00=0x000e, t01=0x0124}
0x170c…1728 Head {h00=0x0018, h01=0x0050, text=» PERF PVATTP,SPDSPRT«, t00=0x000e, t01=0x0132}
0x1728…1736 Head {h00=0x000a, h01=0x0050, text=»DK090 «, t00=0x000e, t01=0x014e}
0x1736…1786 Head {h00=0x004c, h01=0x0050, text=» PERF XEERR,=W'62',KW3 LP OR GTP «, t00=0x000e, t01=0x015c}
0x1786…1794 Head {h00=0x000a, h01=0x0050, text=»DK100 «, t00=0x000f, t01=0x001c}
0x1794…17bc Head {h00=0x0024, h01=0x0050, text=» PERF XCLAMP,KW4,KW0 LAMP 4 OFF «, t00=0x000f, t01=0x002a}
0x17bc…17d8 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DK980 «, t00=0x000f, t01=0x0052}
0x17d8…1828 Head {h00=0x004c, h01=0x0050, text=» CBG IDACTNR2,=D'0',DK300 SINGLE ACCOUNT «, t00=0x000f, t01=0x006e}
0x1828…1878 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00be}
0x1878…18c8 Head {h00=0x004c, h01=0x0050, text=»* SCAN ALL CHEQUE ACCOUNTS *«, t00=0x000f, t01=0x010e}
0x18c8…1918 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x015e}
0x1918…196a Head {h00=0x004e, h01=0x0050, text=» MOVE IDACTNR1,=D'167998' INITIALISE «, t00=0x0010, t01=0x001e}
0x196a…19ba Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0070}
0x19ba…1a0a Head {h00=0x004c, h01=0x0050, text=»* NEXT CHEQUE ACCOUNT *«, t00=0x0010, t01=0x00c0}
0x1a0a…1a5a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0110}
0x1a5a…1aaa Head {h00=0x004c, h01=0x0050, text=»DK200 «, t00=0x0010, t01=0x0160}
0x1aaa…1afa Head {h00=0x004c, h01=0x0050, text=» ADD IDACTNR1,=D'2' «, t00=0x0011, t01=0x0020}
0x1afa…1b36 Head {h00=0x0038, h01=0x0050, text=» CBG IDACTNR1,YDLASCHQ,DK800 NO MORE CHEQUE ACCOUNTS«, t00=0x0011, t01=0x0070}
0x1b36…1b86 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x00ac}
0x1b86…1bd6 Head {h00=0x004c, h01=0x0050, text=»* READ THE ACCOUNT RECORD *«, t00=0x0011, t01=0x00fc}
0x1bd6…1c26 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x014c}
0x1c26…1c76 Head {h00=0x004c, h01=0x0050, text=» MOVE ADACTRNR,IDACTNR1 «, t00=0x0012, t01=0x000c}
0x1c76…1cc6 Head {h00=0x004c, h01=0x0050, text=» MUL ADACTRNR,KDSHIFT «, t00=0x0012, t01=0x005c}
0x1cc6…1d16 Head {h00=0x004c, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW1 «, t00=0x0012, t01=0x00ac}
0x1d16…1d66 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DK980 «, t00=0x0012, t01=0x00fc}
0x1d66…1db6 Head {h00=0x004c, h01=0x0050, text=» TBF SBRECAVB,DK200 NEXT CHEQUE ACCOUNT «, t00=0x0012, t01=0x014c}
0x1db6…1e06 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x000c}
0x1e06…1e56 Head {h00=0x004c, h01=0x0050, text=»* THE ACCOUNT RECORD HAS BEEN READ *«, t00=0x0013, t01=0x005c}
0x1e56…1ea6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x00ac}
0x1ea6…1ef6 Head {h00=0x004c, h01=0x0050, text=» CBE ADSTATUS,=D'3',DK200 CLOSED WITH STATEMENTING «, t00=0x0013, t01=0x00fc}
0x1ef6…1f32 Head {h00=0x0038, h01=0x0050, text=» CBE ADSTMTRS,ADLASTRS,DK200 NO TRANS. TO BE STATEM.«, t00=0x0013, t01=0x014c}
0x1f32…1f82 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x0188}
0x1f82…1fd2 Head {h00=0x004c, h01=0x0050, text=»* A NON CLOSED ACCOUNT HAS BEEN READ *«, t00=0x0014, t01=0x0048}
0x1fd2…2022 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0098}
0x2022…2072 Head {h00=0x004c, h01=0x0050, text=»DK300 «, t00=0x0014, t01=0x00e8}
0x2072…20aa Head {h00=0x0034, h01=0x0050, text=» PERF QGATYP,IDACTNR1 SET SBCHQACT ACC. TO TYPE «, t00=0x0014, t01=0x0138}
0x20aa…20c2 Head {h00=0x0014, h01=0x0050, text=» TBT SBRVS,DK304«, t00=0x0014, t01=0x0170}
0x20c2…2112 Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'2' ACCOUNT NR. AND TRANS. CODE «, t00=0x0014, t01=0x0188}
0x2112…2122 Head {h00=0x000c, h01=0x0050, text=» B DK308«, t00=0x0015, t01=0x0048}
0x2122…212c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0058}
0x212c…2172 Head {h00=0x0042, h01=0x0050, text=»* IF THE REVERSAL SWITCH IS ON, IT MUST BE TEMPORARILY CLEARED«, t00=0x0015, t01=0x0062}
0x2172…219c Head {h00=0x0026, h01=0x0050, text=»* FOR THE PRINTING OF LINE TYPE 2 «, t00=0x0015, t01=0x00a8}
0x219c…21a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d2}
0x21a6…21b4 Head {h00=0x000a, h01=0x0050, text=»DK304 «, t00=0x0015, t01=0x00dc}
0x21b4…21c8 Head {h00=0x0010, h01=0x0050, text=» CLEAR SBRVS«, t00=0x0015, t01=0x00ea}
0x21c8…21e2 Head {h00=0x0016, h01=0x0050, text=» PERF PAJRN,=W'2' «, t00=0x0015, t01=0x00fe}
0x21e2…21f4 Head {h00=0x000e, h01=0x0050, text=» SET SBRVS«, t00=0x0015, t01=0x0118}
0x21f4…2202 Head {h00=0x000a, h01=0x0050, text=»DK308 «, t00=0x0015, t01=0x012a}
0x2202…2252 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0138}
0x2252…22a2 Head {h00=0x004c, h01=0x0050, text=»* PRINT THE HEADER LINE *«, t00=0x0015, t01=0x0188}
0x22a2…22f2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0048}
0x22f2…2342 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,ACNAME «, t00=0x0016, t01=0x0098}
0x2342…237e Head {h00=0x0038, h01=0x0050, text=» CBG IDACTNR2,=D'0',DK320 SINGLE ACCOUNT ON TTP/TEP «, t00=0x0016, t01=0x00e8}
0x237e…23a0 Head {h00=0x001e, h01=0x0050, text=» CBNE YDMLPINT,=D'1',DK310«, t00=0x0016, t01=0x0124}
0x23a0…23c4 Head {h00=0x0020, h01=0x0050, text=»* PRINT ON THE LINE PRINTER «, t00=0x0016, t01=0x0146}
0x23c4…23e2 Head {h00=0x001a, h01=0x0050, text=» EDWRT DSLNEPRT,PRT013«, t00=0x0016, t01=0x016a}
0x23e2…23f2 Head {h00=0x000c, h01=0x0050, text=» B DK350«, t00=0x0016, t01=0x0188}
0x23f2…2400 Head {h00=0x000a, h01=0x0050, text=»DK310 «, t00=0x0017, t01=0x0008}
0x2400…241a Head {h00=0x0016, h01=0x0050, text=»* PRINT ON THE GTP«, t00=0x0017, t01=0x0016}
0x241a…2442 Head {h00=0x0024, h01=0x0050, text=» PERF PXSKIP,SPDSPRT SKIP A LINE«, t00=0x0017, t01=0x0030}
0x2442…2492 Head {h00=0x004c, h01=0x0050, text=» EDWRT SPDSPRT,PRT013 «, t00=0x0017, t01=0x0058}
0x2492…24a2 Head {h00=0x000c, h01=0x0050, text=» B DK350«, t00=0x0017, t01=0x00a8}
0x24a2…24c0 Head {h00=0x001a, h01=0x0050, text=»* PRINT ON THE TTP/TEP«, t00=0x0017, t01=0x00b8}
0x24c0…24ce Head {h00=0x000a, h01=0x0050, text=»DK320 «, t00=0x0017, t01=0x00d6}
0x24ce…24ec Head {h00=0x001a, h01=0x0050, text=» MOVE NDNEWLNE,=D'46' «, t00=0x0017, t01=0x00e4}
0x24ec…251a Head {h00=0x002a, h01=0x0050, text=» PERF PZPOSD,NDNEWLNE POSITION VOUCHER«, t00=0x0017, t01=0x0102}
0x251a…2538 Head {h00=0x001a, h01=0x0050, text=» EDWRT DSVCHPRT,PRT013«, t00=0x0017, t01=0x0130}
0x2538…2560 Head {h00=0x0024, h01=0x0050, text=» SUB NDNEWLNE,=D'14' SKIP LINES «, t00=0x0017, t01=0x014e}
0x2560…256e Head {h00=0x000a, h01=0x0050, text=»DK350 «, t00=0x0017, t01=0x0176}
0x256e…25be Head {h00=0x004c, h01=0x0050, text=» SET SBFIRST PRINT STATM. DATE ONLY ONCE «, t00=0x0017, t01=0x0184}
0x25be…260e Head {h00=0x004c, h01=0x0050, text=» MOVE NDPRTTRS,ADSTMTRS WORKFIELD «, t00=0x0018, t01=0x0044}
0x260e…265e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x0094}
0x265e…26ae Head {h00=0x004c, h01=0x0050, text=»* NEXT TRANSACTION TO BE STATEMENTED *«, t00=0x0018, t01=0x00e4}
0x26ae…26fe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x0134}
0x26fe…274e Head {h00=0x004c, h01=0x0050, text=»DK400 «, t00=0x0018, t01=0x0184}
0x274e…279e Head {h00=0x004c, h01=0x0050, text=» CBE ADSTMTRS,ADLASTRS,DK700 NO MORE TRANSACTIONS «, t00=0x0019, t01=0x0044}
0x279e…27ee Head {h00=0x004c, h01=0x0050, text=» PERF QENTRS,NDPRTTRS NEXT TRANS. TO BE STATEMENTED «, t00=0x0019, t01=0x0094}
0x27ee…283e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x00e4}
0x283e…288e Head {h00=0x004c, h01=0x0050, text=»* READ THE TRANSACTION RECORD IN UWB UT2 *«, t00=0x0019, t01=0x0134}
0x288e…28de Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0184}
0x28de…292e Head {h00=0x004c, h01=0x0050, text=» MOVE UDTRSRNR,ADACTRNR «, t00=0x001a, t01=0x0044}
0x292e…297e Head {h00=0x004c, h01=0x0050, text=» ADD UDTRSRNR,NDPRTTRS TRANS. RECORD KEY «, t00=0x001a, t01=0x0094}
0x297e…29ce Head {h00=0x004c, h01=0x0050, text=» PERF ZCRDD,UDTRSRNR,WDEC1,KW1 «, t00=0x001a, t01=0x00e4}
0x29ce…2a1e Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DK980 «, t00=0x001a, t01=0x0134}
0x2a1e…2a6e Head {h00=0x004c, h01=0x0050, text=» TBF SBRECAVB,DK700 TRANS. RECORD NOT FOUND «, t00=0x001a, t01=0x0184}
0x2a6e…2abe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0044}
0x2abe…2b0e Head {h00=0x004c, h01=0x0050, text=»* TRANSACTION RECORD HAS BEEN FOUND, PRINT A LINE *«, t00=0x001b, t01=0x0094}
0x2b0e…2b5e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x00e4}
0x2b5e…2bae Head {h00=0x004c, h01=0x0050, text=»DK500 «, t00=0x001b, t01=0x0134}
0x2bae…2bde Head {h00=0x002c, h01=0x0050, text=» PERF EQPDS PRINT A DAILY STATEMENT LINE«, t00=0x001b, t01=0x0184}
0x2bde…2c2e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001c, t01=0x0024}
0x2c2e…2c7e Head {h00=0x004c, h01=0x0050, text=»* UPDATE LAST TRANSACTION STATEMENTED, FOR A SAVINGS ACCOUNT THE *«, t00=0x001c, t01=0x0074}
0x2c7e…2cce Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT RECORD WILL NOT BE REWRITTEN, SO UPDATING OF THIS FIELD IN *«, t00=0x001c, t01=0x00c4}
0x2cce…2d1e Head {h00=0x004c, h01=0x0050, text=»* THE UWB WILL DO NO HARM *«, t00=0x001c, t01=0x0114}
0x2d1e…2d6e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001c, t01=0x0164}
0x2d6e…2dbe Head {h00=0x004c, h01=0x0050, text=» MOVE ADSTMTRS,NDPRTTRS «, t00=0x001d, t01=0x0024}
0x2dbe…2e0e Head {h00=0x004c, h01=0x0050, text=» B DK400 NEXT TRANSACTION «, t00=0x001d, t01=0x0074}
0x2e0e…2e5e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001d, t01=0x00c4}
0x2e5e…2eae Head {h00=0x004c, h01=0x0050, text=»* ALL TRANSACTIONS OF THE SPECIFIED ACCOUNT HAVE BEEN PRINTED, *«, t00=0x001d, t01=0x0114}
0x2eae…2efe Head {h00=0x004c, h01=0x0050, text=»* UPDATE AND REWRITE THE ACCOUNT RECORD (FOR CHEQUE ACCOUNTS ONLY). *«, t00=0x001d, t01=0x0164}
0x2efe…2f4e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001e, t01=0x0024}
0x2f4e…2f9e Head {h00=0x004c, h01=0x0050, text=»DK700 «, t00=0x001e, t01=0x0074}
0x2f9e…2fce Head {h00=0x002c, h01=0x0050, text=» CBG IDACTNR2,=D'0',DK705 SINGLE ACCOUNT«, t00=0x001e, t01=0x00c4}
0x2fce…2ffc Head {h00=0x002a, h01=0x0050, text=» CBE YDMLPINT,=D'1',DK705 LINE PRINTER«, t00=0x001e, t01=0x00f4}
0x2ffc…302c Head {h00=0x002c, h01=0x0050, text=» PERF PXSKIP,SPDSPRT LINE FEED ON A GTP «, t00=0x001e, t01=0x0122}
0x302c…303a Head {h00=0x000a, h01=0x0050, text=»DK705 «, t00=0x001e, t01=0x0152}
0x303a…308a Head {h00=0x004c, h01=0x0050, text=» TBF SBCHQACT,DK750 «, t00=0x001e, t01=0x0160}
0x308a…30da Head {h00=0x004c, h01=0x0050, text=» CBNE ADSTATUS,=D'2',DK710 «, t00=0x001f, t01=0x0020}
0x30da…312a Head {h00=0x004c, h01=0x0050, text=» CBNE ADSTMTRS,ADLASTRS,DK710 ALL TRANS. STATEMENTED ? «, t00=0x001f, t01=0x0070}
0x312a…317a Head {h00=0x004c, h01=0x0050, text=» MOVE ADSTATUS,=D'3' CLOSED WITH STATEMENTING «, t00=0x001f, t01=0x00c0}
0x317a…3184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0110}
0x3184…31a8 Head {h00=0x0020, h01=0x0050, text=»* REWRITE THE ACCOUNT RECORD«, t00=0x001f, t01=0x011a}
0x31a8…31b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013e}
0x31b2…3202 Head {h00=0x004c, h01=0x0050, text=»DK710 «, t00=0x001f, t01=0x0148}
0x3202…3252 Head {h00=0x004c, h01=0x0050, text=» PERF ZDRWRD,ADACTRNR,NDLRN1 «, t00=0x0020, t01=0x0008}
0x3252…32a2 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DK980 «, t00=0x0020, t01=0x0058}
0x32a2…32f2 Head {h00=0x004c, h01=0x0050, text=»DK750 «, t00=0x0020, t01=0x00a8}
0x32f2…3322 Head {h00=0x002c, h01=0x0050, text=» CBG IDACTNR2,=D'0',DK800 SINGLE ACCOUNT«, t00=0x0020, t01=0x00f8}
0x3322…3346 Head {h00=0x0020, h01=0x0050, text=» B DK200 ALL ACCOUNT OPTION «, t00=0x0020, t01=0x0128}
0x3346…3396 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0020, t01=0x014c}
0x3396…33e6 Head {h00=0x004c, h01=0x0050, text=»* ALL ACCOUNTS HAVE BEEN DONE *«, t00=0x0021, t01=0x000c}
0x33e6…3436 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0021, t01=0x005c}
0x3436…3486 Head {h00=0x004c, h01=0x0050, text=»DK800 «, t00=0x0021, t01=0x00ac}
0x3486…34d6 Head {h00=0x004c, h01=0x0050, text=»DK980 «, t00=0x0021, t01=0x00fc}
0x34d6…34f8 Head {h00=0x001e, h01=0x0050, text=» CBE IDACTNR2,=D'0',DK984 «, t00=0x0021, t01=0x014c}
0x34f8…3502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x016e}
0x3502…3528 Head {h00=0x0022, h01=0x0050, text=»* RELEASE VOUCHER FOR TTP/TEP «, t00=0x0021, t01=0x0178}
0x3528…3532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x000e}
0x3532…354a Head {h00=0x0014, h01=0x0050, text=» DSC0 DSVCHPRT,1«, t00=0x0022, t01=0x0018}
0x354a…3568 Head {h00=0x001a, h01=0x0050, text=» PERF PWDETP,DSVCHPRT «, t00=0x0022, t01=0x0030}
0x3568…3578 Head {h00=0x000c, h01=0x0050, text=» B DK990«, t00=0x0022, t01=0x004e}
0x3578…3582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x005e}
0x3582…35c2 Head {h00=0x003c, h01=0x0050, text=»* ALL ACCOUNT OPTION, GIVE A TRANSACTION SEQUENCE NUMBER«, t00=0x0022, t01=0x0068}
0x35c2…35cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a8}
0x35cc…35da Head {h00=0x000a, h01=0x0050, text=»DK984 «, t00=0x0022, t01=0x00b2}
0x35da…35f6 Head {h00=0x0018, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x0022, t01=0x00c0}
0x35f6…3616 Head {h00=0x001c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ «, t00=0x0022, t01=0x00dc}
0x3616…3638 Head {h00=0x001e, h01=0x0050, text=» CBE YDMLPINT,=D'0',DK986 «, t00=0x0022, t01=0x00fc}
0x3638…364e Head {h00=0x0012, h01=0x0050, text=»* LINE PRINTER«, t00=0x0022, t01=0x011e}
0x364e…367e Head {h00=0x002c, h01=0x0050, text=» PERF PWDETP,DSLNEPRT DETACH LNE PRINTER«, t00=0x0022, t01=0x0134}
0x367e…368e Head {h00=0x000c, h01=0x0050, text=» B DK990«, t00=0x0022, t01=0x0164}
0x368e…36a8 Head {h00=0x0016, h01=0x0050, text=»* GENERAL PRINTER «, t00=0x0022, t01=0x0174}
0x36a8…36b6 Head {h00=0x000a, h01=0x0050, text=»DK986 «, t00=0x0022, t01=0x018e}
0x36b6…36d2 Head {h00=0x0018, h01=0x0050, text=» PERF PWDETP,SPDSPRT«, t00=0x0023, t01=0x000c}
0x36d2…36dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0028}
0x36dc…36f4 Head {h00=0x0014, h01=0x0050, text=»* EXIT FROM D-S «, t00=0x0023, t01=0x0032}
0x36f4…36fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x004a}
0x36fe…370c Head {h00=0x000a, h01=0x0050, text=»DK990 «, t00=0x0023, t01=0x0054}
0x370c…3722 Head {h00=0x0012, h01=0x0050, text=» CLEAR SBDSTM «, t00=0x0023, t01=0x0062}
0x3722…3772 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0023, t01=0x0078}
0x3772…37c2 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x00c8}
0x37c2…3812 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0023, t01=0x0118}
0x3812…3862 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0023, t01=0x0168}
0x3862…38b2 Head {h00=0x004c, h01=0x0050, text=»* DAILY-STATEMENT ACCOUNT HEADER LINE *«, t00=0x0024, t01=0x0028}
0x38b2…3902 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0024, t01=0x0078}
0x3902…3952 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0024, t01=0x00c8}
0x3952…39a2 Head {h00=0x004c, h01=0x0050, text=»PRT013 FRMT «, t00=0x0024, t01=0x0118}
0x39a2…39f2 Head {h00=0x004c, h01=0x0050, text=» FTEXT '01' «, t00=0x0024, t01=0x0168}
0x39f2…3a42 Head {h00=0x004c, h01=0x0050, text=» FTAB 3 «, t00=0x0025, t01=0x0028}
0x3a42…3a92 Head {h00=0x004c, h01=0x0050, text=» FMEL '999999',IDACTNR1 «, t00=0x0025, t01=0x0078}
0x3a92…3ae2 Head {h00=0x004c, h01=0x0050, text=» FTAB 12 «, t00=0x0025, t01=0x00c8}
0x3ae2…3b32 Head {h00=0x004c, h01=0x0050, text=» FCOPY ICTEXT2 «, t00=0x0025, t01=0x0118}
0x3b32…3b82 Head {h00=0x004c, h01=0x0050, text=» FTAB 32 «, t00=0x0025, t01=0x0168}
0x3b82…3bd2 Head {h00=0x004c, h01=0x0050, text=» FILLR ' ',8 «, t00=0x0026, t01=0x0028}
0x3bd2…3c22 Head {h00=0x004c, h01=0x0050, text=» FMEND «, t00=0x0026, t01=0x0078}
0x3c22…3c72 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x00c8}
0x3c72…3c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0118}
0x3c7c…3ca2 Head {h00=0x0022, h01=0x0050, text=»* PRINT A DAILY STATEMENT LINE«, t00=0x0026, t01=0x0122}
0x3ca2…3cc4 Head {h00=0x001e, h01=0x0050, text=»* (SUBROUTINE FOR DKDSTM) «, t00=0x0026, t01=0x0148}
0x3cc4…3cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x016a}
0x3cce…3d1e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x0174}
0x3d1e…3d30 Head {h00=0x000e, h01=0x0050, text=»EQPDS PROC«, t00=0x0027, t01=0x0034}
0x3d30…3d3e Head {h00=0x000a, h01=0x0050, text=»EQ000 «, t00=0x0027, t01=0x0046}
0x3d3e…3d8e Head {h00=0x004c, h01=0x0050, text=»* CLEAR SWITCHES USED *«, t00=0x0027, t01=0x0054}
0x3d8e…3de0 Head {h00=0x004e, h01=0x0050, text=» CLEAR SBDSDEP «, t00=0x0027, t01=0x00a4}
0x3de0…3e32 Head {h00=0x004e, h01=0x0050, text=» CLEAR SBDSWDR «, t00=0x0027, t01=0x00f6}
0x3e32…3e84 Head {h00=0x004e, h01=0x0050, text=» CLEAR SBDSTRF «, t00=0x0027, t01=0x0148}
0x3e84…3ed4 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBDSRVS «, t00=0x0028, t01=0x000a}
0x3ed4…3f0c Head {h00=0x0034, h01=0x0050, text=»* SET SWITCHES DEPENDING ON THE TRANSACTION CODE«, t00=0x0028, t01=0x005a}
0x3f0c…3f5c Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'1',EQ100 IN «, t00=0x0028, t01=0x0092}
0x3f5c…3fac Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'7',EQ100 NOBOOK IN «, t00=0x0028, t01=0x00e2}
0x3fac…3ffc Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'2',EQ120 OUT «, t00=0x0028, t01=0x0132}
0x3ffc…404c Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'16',EQ120 CHEQUE OUT «, t00=0x0028, t01=0x0182}
0x404c…409c Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'12',EQ140 TRANSFER (FROM) «, t00=0x0029, t01=0x0042}
0x409c…40ec Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'11',EQ140 TRANSFER (TO) «, t00=0x0029, t01=0x0092}
0x40ec…413c Head {h00=0x004c, h01=0x0050, text=» B EQ180 «, t00=0x0029, t01=0x00e2}
0x413c…418c Head {h00=0x004c, h01=0x0050, text=»EQ100 «, t00=0x0029, t01=0x0132}
0x418c…41de Head {h00=0x004e, h01=0x0050, text=» SET SBDSDEP «, t00=0x0029, t01=0x0182}
0x41de…422e Head {h00=0x004c, h01=0x0050, text=» B EQ180 «, t00=0x002a, t01=0x0044}
0x422e…427e Head {h00=0x004c, h01=0x0050, text=»EQ120 «, t00=0x002a, t01=0x0094}
0x427e…42d0 Head {h00=0x004e, h01=0x0050, text=» SET SBDSWDR «, t00=0x002a, t01=0x00e4}
0x42d0…4320 Head {h00=0x004c, h01=0x0050, text=» B EQ180 «, t00=0x002a, t01=0x0136}
0x4320…4370 Head {h00=0x004c, h01=0x0050, text=»EQ140 «, t00=0x002a, t01=0x0186}
0x4370…43c2 Head {h00=0x004e, h01=0x0050, text=» SET SBDSTRF «, t00=0x002b, t01=0x0046}
0x43c2…4412 Head {h00=0x004c, h01=0x0050, text=»EQ180 «, t00=0x002b, t01=0x0098}
0x4412…4462 Head {h00=0x004c, h01=0x0050, text=» CBNL UDAMOUNT,=D'0',EQ200 «, t00=0x002b, t01=0x00e8}
0x4462…44b2 Head {h00=0x004c, h01=0x0050, text=» SET SBDSRVS «, t00=0x002b, t01=0x0138}
0x44b2…44bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0188}
0x44bc…44fa (44, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* MUST AMOUNT BE PRINTED AS A DEBIT OR CREDIT AMOUNT ?«, t00=0x002c, t01=0x0004}
0x44fa…4504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0042}
0x4504…4554 Head {h00=0x004c, h01=0x0050, text=»EQ200 «, t00=0x002c, t01=0x004c}
0x4554…45a4 Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'1',EQ250 IN «, t00=0x002c, t01=0x009c}
0x45a4…45f4 Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'7',EQ250 NOBOOK IN «, t00=0x002c, t01=0x00ec}
0x45f4…4644 Head {h00=0x004c, h01=0x0050, text=» CBE UDTRSCDE,=D'11',EQ250 TRANSFER (TO) «, t00=0x002c, t01=0x013c}
0x4644…4694 Head {h00=0x004c, h01=0x0050, text=»* TRANSACTION CODE IS 2, 16 OR 12 *«, t00=0x002c, t01=0x018c}
0x4694…46e4 Head {h00=0x004c, h01=0x0050, text=» TBT SBDSRVS,EQ290 REVERSAL «, t00=0x002d, t01=0x004c}
0x46e4…4734 Head {h00=0x004c, h01=0x0050, text=» B EQ270 «, t00=0x002d, t01=0x009c}
0x4734…4784 Head {h00=0x004c, h01=0x0050, text=»* TRANSACTION CODE IS 1, 7 OR 11 *«, t00=0x002d, t01=0x00ec}
0x4784…47d4 Head {h00=0x004c, h01=0x0050, text=»EQ250 «, t00=0x002d, t01=0x013c}
0x47d4…4824 Head {h00=0x004c, h01=0x0050, text=» TBF SBDSRVS,EQ290 NOT REVERSAL «, t00=0x002d, t01=0x018c}
0x4824…4874 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002e, t01=0x004c}
0x4874…48c4 Head {h00=0x004c, h01=0x0050, text=»* AMOUNT MUST BE PRINTED AS DEBIT AMOUNT *«, t00=0x002e, t01=0x009c}
0x48c4…4914 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002e, t01=0x00ec}
0x4914…4964 Head {h00=0x004c, h01=0x0050, text=»EQ270 «, t00=0x002e, t01=0x013c}
0x4964…49b4 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT1,UDAMOUNT «, t00=0x002e, t01=0x018c}
0x49b4…4a04 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,=D'0' «, t00=0x002f, t01=0x004c}
0x4a04…4a54 Head {h00=0x004c, h01=0x0050, text=» B EQ300 «, t00=0x002f, t01=0x009c}
0x4a54…4aa4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002f, t01=0x00ec}
0x4aa4…4af4 Head {h00=0x004c, h01=0x0050, text=»* AMOUNT MUST BE PRINTED AS CREDIT AMOUNT *«, t00=0x002f, t01=0x013c}
0x4af4…4b44 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002f, t01=0x018c}
0x4b44…4b94 Head {h00=0x004c, h01=0x0050, text=»EQ290 «, t00=0x0030, t01=0x004c}
0x4b94…4be4 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT1,=D'0' «, t00=0x0030, t01=0x009c}
0x4be4…4c34 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,UDAMOUNT «, t00=0x0030, t01=0x00ec}
0x4c34…4c84 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0030, t01=0x013c}
0x4c84…4cd4 Head {h00=0x004c, h01=0x0050, text=»* PRINT A LINE ON LP, GTP OR TTP/TEP *«, t00=0x0030, t01=0x018c}
0x4cd4…4d24 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0031, t01=0x004c}
0x4d24…4d74 Head {h00=0x004c, h01=0x0050, text=»EQ300 «, t00=0x0031, t01=0x009c}
0x4d74…4d90 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'61'«, t00=0x0031, t01=0x00ec}
0x4d90…4dc2 Head {h00=0x002e, h01=0x0050, text=» PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER«, t00=0x0031, t01=0x0108}
0x4dc2…4df2 Head {h00=0x002c, h01=0x0050, text=» CBG IDACTNR2,=D'0',EQ320 SINGLE ACCOUNT«, t00=0x0031, t01=0x013a}
0x4df2…4e42 Head {h00=0x004c, h01=0x0050, text=» CBNE YDMLPINT,=D'1',EQ310 «, t00=0x0031, t01=0x016a}
0x4e42…4e92 Head {h00=0x004c, h01=0x0050, text=»* PRINT ON LINE PRINTER *«, t00=0x0032, t01=0x002a}
0x4e92…4eb2 Head {h00=0x001c, h01=0x0050, text=» EDWRT DSLNEPRT,FCBUFFER«, t00=0x0032, t01=0x007a}
0x4eb2…4ec2 Head {h00=0x000c, h01=0x0050, text=» B EQ990«, t00=0x0032, t01=0x009a}
0x4ec2…4f12 Head {h00=0x004c, h01=0x0050, text=»EQ310 «, t00=0x0032, t01=0x00aa}
0x4f12…4f62 Head {h00=0x004c, h01=0x0050, text=»* PRINT ON A GTP *«, t00=0x0032, t01=0x00fa}
0x4f62…4fb2 Head {h00=0x004c, h01=0x0050, text=» EDWRT SPDSPRT,FCBUFFER «, t00=0x0032, t01=0x014a}
0x4fb2…5002 Head {h00=0x004c, h01=0x0050, text=» B EQ990 «, t00=0x0033, t01=0x000a}
0x5002…5052 Head {h00=0x004c, h01=0x0050, text=»EQ320 «, t00=0x0033, t01=0x005a}
0x5052…50a2 Head {h00=0x004c, h01=0x0050, text=»* PRINT ON A TTP/TEP *«, t00=0x0033, t01=0x00aa}
0x50a2…50c8 Head {h00=0x0022, h01=0x0050, text=» SUB NDNEWLNE,=D'2' NEXT LINE «, t00=0x0033, t01=0x00fa}
0x50c8…50f6 Head {h00=0x002a, h01=0x0050, text=» PERF PZPOSD,NDNEWLNE POSITION VOUCHER«, t00=0x0033, t01=0x0120}
0x50f6…5146 Head {h00=0x004c, h01=0x0050, text=» EDWRT DSVCHPRT,FCBUFFER «, t00=0x0033, t01=0x014e}
0x5146…5196 Head {h00=0x004c, h01=0x0050, text=»EQ990 «, t00=0x0034, t01=0x000e}
0x5196…51e6 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBFIRST PRINT STATEMENT DATE ONLY ONCE «, t00=0x0034, t01=0x005e}
0x51e6…51f2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0034, t01=0x00ae}
0x51f2…5200 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0034, t01=0x00ba}
0x5200…5250 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0034, t01=0x00c8}
0x5250…52a0 Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x0034, t01=0x0118}
0x52a0…52a4 Head {h00=0x4004, h01=0x0000}
0x52a4…52a8 00 34 01 68 ┆ 4 h┆
0x52a8…52b0 (53, 1, 8) 20 04 00 00 00 35 00 04 ┆ 5 ┆
0x52b0…5300 (54, 0, 398) 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 3f 00 15 01 74 00 12 00 50 5c 49 46 54 5c 52 45 43 45 4e 44 3d 30 20 00 16 00 16 00 10 00 50 5c 52 42 28 4e 5a 29 5c 45 58 49 54 00 16 00 2c 00 08 00 50 5c 58 49 46 00 16 00 40 00 12 00 50 5c 49 46 54 ┆CHANNEL UNIT ? t P IFT RECEND=0 P RB(NZ) EXIT , P XIF @ P IFT┆
0x5300…5350 5c 52 45 43 45 4e 44 3d 31 20 00 16 00 4c 00 12 00 50 5c 52 42 28 4e 5a 29 5c 41 47 50 34 33 30 00 16 00 62 00 08 00 50 5c 58 49 46 00 16 00 78 00 04 00 50 00 16 00 84 00 34 00 50 49 48 47 50 31 30 5c 41 42 4c 5c 4c 44 52 45 47 5c 52 45 4c ┆ RECEND=1 L P RB(NZ) AGP430 b P XIF x P 4 PIHGP10 ABL LDREG REL┆
0x5350…53a0 4f 41 44 20 41 33 2d 41 35 20 41 4e 44 20 52 45 54 55 52 4e 20 56 49 41 20 41 35 20 00 16 00 8c 00 16 00 50 49 48 47 50 32 30 5c 4c 44 52 5c 41 31 2c 41 31 5c 20 00 16 00 c4 00 2a 00 50 5c 52 42 28 5a 29 5c 49 48 47 50 31 30 5c 54 45 53 54 ┆OAD A3-A5 AND RETURN VIA A5 PIHGP20 LDR A1,A1 * P RB(Z) IHGP10 TEST┆
0x53a0…53f0 20 4f 52 44 45 52 20 41 4e 44 20 54 49 4d 45 20 4f 55 54 20 00 16 00 de 00 0e 00 50 5c 52 42 5c 45 4e 44 49 4f 5c 00 16 01 0c 00 0a 00 50 5c 45 4a 45 43 54 00 16 01 1e 00 06 00 50 2a 20 00 16 01 2c 00 10 00 50 2a 20 20 20 20 52 20 43 20 47 ┆ ORDER AND TIME OUT P RB ENDIO P EJECT P* , P* R C G┆
0x53f0…543e 20 50 00 16 01 36 00 06 00 50 2a 20 00 16 01 4a 00 30 00 50 2a 20 20 20 20 52 43 47 50 20 3d 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 20 47 45 4e 45 52 41 4c 20 50 52 49 4e 54 45 52 00 16 01 54 00 06 00 50 2a 20 00 16 01 88 ┆ P 6 P* J 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER T P* ┆
0x543e…548e (55, 0, 398) 00 06 00 50 2a 20 00 17 00 04 00 28 00 50 2a 20 20 20 20 52 45 43 4f 56 45 52 59 20 49 53 20 43 41 52 52 49 45 44 20 4f 55 54 20 4f 4e 4c 59 20 49 46 00 17 00 0e 00 1c 00 50 2a 20 20 20 20 4f 52 44 45 52 20 36 20 49 53 20 52 55 4e 4e 49 4e ┆ P* ( P* RECOVERY IS CARRIED OUT ONLY IF P* ORDER 6 IS RUNNIN┆
0x548e…54de 47 20 00 17 00 3a 00 06 00 50 2a 20 00 17 00 5a 00 12 00 50 2a 20 20 20 20 4f 4e 20 45 4e 54 52 59 3a 00 17 00 64 00 06 00 50 2a 20 00 17 00 7a 00 1a 00 50 2a 20 20 20 20 41 36 20 3d 20 44 57 54 2d 41 44 44 52 45 53 53 20 00 17 00 84 00 14 ┆G : P* Z P* ON ENTRY: d P* z P* A6 = DWT-ADDRESS ┆
0x54de…552e 00 50 2a 20 20 20 20 41 37 20 3d 20 4f 52 44 45 52 20 00 17 00 a2 00 1a 00 50 2a 20 20 20 20 41 38 20 3d 20 45 43 42 2d 41 44 44 52 45 53 53 20 00 17 00 ba 00 0e 00 50 52 43 47 50 5c 45 51 55 5c 2a 00 17 00 d8 00 12 00 50 5c 49 46 54 5c 43 ┆ P* A7 = ORDER P* A8 = ECB-ADDRESS PRCGP EQU * P IFT C┆
0x552e…557e 50 55 38 35 32 3d 31 20 00 17 00 ea 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 17 01 00 00 08 00 50 5c 58 49 46 00 17 01 2a 00 06 00 50 2a 20 00 17 01 36 00 12 00 50 ┆PU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF * P* 6 P┆
0x557e…55cc 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 17 01 40 00 22 00 50 5c 4d 53 52 5c 38 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 00 17 01 56 00 08 00 50 5c 58 49 46 00 17 01 7c 00 06 00 50 2a 20 00 17 01 88 ┆ IFT CPU852=0 @ " P MSR 8,A15 SAVE A1-A8 ON STACK V P XIF | P* ┆
0x55cc…561c (56, 0, 400) 00 1a 00 50 5c 4c 44 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 42 55 53 59 20 3f 00 18 00 04 00 12 00 50 5c 52 42 28 4e 29 5c 45 58 49 54 5c 4e 4f 00 18 00 22 00 1e 00 50 5c 4c 44 5c 41 37 2c 44 57 54 4f 52 2c 41 36 5c 47 45 54 20 4f 52 44 45 ┆ P LD A2,DWTST,A6 BUSY ? P RB(N) EXIT NO " P LD A7,DWTOR,A6 GET ORDE┆
0x561c…566c 52 20 00 18 00 38 00 10 00 50 5c 41 4e 4b 5c 41 37 2c 2f 46 46 20 00 18 00 5a 00 14 00 50 5c 4c 44 5c 41 38 2c 44 57 54 45 43 42 2c 41 36 00 18 00 6e 00 16 00 50 5c 43 57 4b 5c 41 37 2c 36 5c 4f 52 44 45 52 20 36 3f 00 18 00 86 00 16 00 50 ┆R 8 P ANK A7,/FF Z P LD A8,DWTECB,A6 n P CWK A7,6 ORDER 6? P┆
0x566c…56bc 5c 52 46 28 45 29 5c 52 43 47 50 30 35 5c 59 45 53 20 00 18 00 a0 00 16 00 50 5c 43 57 4b 5c 41 37 2c 30 5c 4f 52 44 45 52 20 30 3f 00 18 00 ba 00 12 00 50 5c 41 42 4c 28 45 29 5c 45 4e 44 49 4f 5c 00 18 00 d4 00 0e 00 50 5c 41 42 4c 5c 45 ┆ RF(E) RCGP05 YES P CWK A7,0 ORDER 0? P ABL(E) ENDIO P ABL E┆
0x56bc…570c 58 49 54 5c 00 18 00 ea 00 10 00 50 52 43 47 50 30 35 5c 45 51 55 5c 2a 00 18 00 fc 00 30 00 50 5c 4c 43 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 47 45 54 20 4c 45 46 54 20 42 59 54 45 20 4f 46 20 53 54 41 54 55 53 20 57 4f 52 44 00 18 01 10 ┆XIT PRCGP05 EQU * 0 P LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD ┆
0x570c…575c 00 20 00 50 5c 41 4e 4b 5c 41 32 2c 2f 34 5c 4c 49 4e 45 20 46 45 45 44 20 44 4f 4e 45 20 3f 20 00 18 01 44 00 14 00 50 5c 41 42 4c 28 45 29 5c 41 43 47 50 5c 4e 4f 20 00 18 01 68 00 22 00 50 5c 43 4d 5c 44 57 54 53 54 2c 41 36 5c 53 45 54 ┆ P ANK A2,/4 LINE FEED DONE ? D P ABL(E) ACGP NO h " P CM DWTST,A6 SET┆
0x575c…5794 (57, 2, 56) 20 50 4f 53 20 4c 54 52 2e 54 4f 20 30 20 00 18 01 80 00 0e 00 50 5c 41 42 4c 5c 41 43 47 50 20 00 19 00 16 00 08 00 50 5c 45 4e 44 00 19 00 28 40 04 00 00 00 19 00 34 ┆ POS LTR.TO 0 P ABL ACGP P END (@ 4┆
0x5794…579c (58, 1, 8) 20 04 00 00 00 1a 00 04 ┆ ┆
0x579c…57ec (59, 0, 400) 00 46 8c 20 3e 66 85 20 00 48 95 0e 84 34 a0 35 57 02 84 14 50 12 85 30 20 bf 83 40 4c a2 83 31 84 41 4c a2 28 40 5f 16 81 5c 4e ba 50 44 85 40 4d 7c 1d 02 1d 04 50 32 52 38 e9 54 4d 7e 5c 0c 84 54 4d 7c 52 24 84 54 4d 80 a4 20 7f ff 94 55 ┆ F >f H 4 5W P 0 @L 1 AL (@_ N PD @M| P2R8 TM~ TM|R$ TM U┆
0x57ec…583c 4d 7c 81 20 4d 82 91 14 83 04 1b 04 82 40 4d 7c 9a 14 1a 02 f6 a1 16 32 57 08 84 20 7f ff a4 55 4d 80 80 8a 90 a0 00 2a 81 a0 4e f6 87 12 3f 42 81 5c 4e c4 81 47 00 3a 81 5c 4e c6 81 47 00 3c e7 52 4e a4 27 ff 50 1c 87 43 00 00 81 c3 00 02 ┆M| M @M| 2W UM * N ?B N G : N G < RN ' P C ┆
0x583c…588c 07 a2 f6 a1 43 66 28 04 00 0f 81 0a f6 a1 18 26 a9 47 00 08 8f 20 56 58 81 40 02 b4 8c 20 3e a0 f0 3e 82 34 55 50 81 88 a1 a0 00 01 3a 21 82 88 91 88 15 02 02 00 87 34 86 06 1e 01 55 08 f6 a1 5a 66 39 e1 aa 04 92 14 12 02 81 08 83 02 86 0e ┆ Cf( & G VX @ > > 4UP :! 4 U Zf9 ┆
0x588c…58dc 07 00 f6 a1 57 dc 87 0a 86 1c 26 01 3f 21 96 1c 83 0c 55 0a 82 8a 50 14 91 98 82 9c 5f 3a 82 8a 50 0c 99 98 5f 0c 01 00 02 01 57 16 91 34 83 04 1b 03 93 34 01 00 e1 2c 13 01 e2 2c 13 01 e2 08 e2 2c f0 3a 93 1c 92 1c e4 2c ec 29 51 18 52 10 ┆ W & ?! U P _: P _ W 4 4 , , , : , )Q R ┆
0x58dc…592c 17 01 ef 18 56 06 13 01 12 01 5f 14 03 00 57 08 83 20 ff ff 57 02 03 01 f0 3a 82 8c 54 2e 87 3b 9e a0 00 04 86 5b 00 02 f6 a1 18 78 82 08 56 12 82 8c 07 91 28 04 00 0f 20 02 44 82 48 a1 10 84 44 40 21 15 00 00 80 20 00 00 00 00 00 00 04 0b ┆ V _ W W : T. ; [ x V ( D H D@! ┆
0x592c…597c (60, 0, 400) f6 a1 18 2c 81 04 54 64 81 18 86 04 02 00 82 45 00 3c 57 6c 82 44 00 3c 56 0c 87 3b 9e a0 00 04 86 5b 00 02 5f 1c ea 44 00 5a 56 0c 92 44 00 3e 12 01 82 45 00 3c 57 52 87 3b 9e a0 00 04 86 5b 00 02 83 44 00 3a 05 00 e5 44 00 5c 93 14 53 02 ┆ , Td E <Wl D <V ; [ _ D ZV D > E <WR ; [ D : D S ┆
0x597c…59cc 57 08 a3 20 7f ff 90 45 00 38 83 45 00 3a 86 04 57 00 83 0a f6 a1 43 5e 81 18 5f 7c 85 04 81 18 83 0a 50 04 f6 a1 43 5e 03 02 93 5b 00 08 03 00 86 5a 00 02 96 a0 00 04 87 3a f0 3a 85 44 00 4c 81 3b 9e a0 00 08 80 db 00 06 f6 a1 57 6a 86 5a ┆W E 8 E : W C^ _| P C^ [ Z : : D L ; Wj Z┆
0x59cc…5a1c 00 08 f6 a1 17 c6 81 04 54 80 81 18 86 0e 07 00 99 86 80 96 83 06 f6 a1 58 02 57 04 81 14 57 6a 81 8c 92 0c 92 20 00 0a 82 88 92 c4 00 3e 05 ff ed 2b 50 30 85 c4 00 3c 84 44 00 5a 84 45 00 3c 82 9c f6 a1 59 c4 86 0e 87 0a ea 45 00 43 5a 3c ┆ T X W Wj > +P0 < D Z E < Y E CZ<┆
0x5a1c…5a6c 51 06 eb 44 00 44 5a 44 85 c5 00 3c 07 00 82 20 10 00 57 2c 83 5a 00 06 f6 a1 57 dc 83 0c 51 04 52 0e 57 12 ef 4b ff fc 5d 66 e7 4a ff fc 5f 6c 82 20 04 00 57 0a 02 00 57 06 99 86 82 04 07 00 96 a0 00 08 81 3a 83 06 f0 3a 84 bb 9e a0 00 02 ┆Q D DZD < W, Z W Q R W K ]f J _l W W : : ┆
0x5a6c…5abc 84 d4 00 4e 20 bf 84 d2 00 48 57 02 84 b2 50 4c e7 54 00 13 ef 53 00 08 5c 0e ea d3 00 09 59 14 52 06 eb d2 00 0a 59 1c e8 d3 00 09 51 08 5a 24 e9 d2 00 0a 5a 2a 87 5a 40 00 00 00 00 00 10 10 00 02 20 08 00 00 20 00 04 00 00 00 00 00 00 02 ┆ N HW PL T S Y R Y Q Z$ Z* Z@ ┆