|
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: 11148 (0x2b8c)
Notes: pts_type(SC)
Names: »PBBOOK.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/PBBOOK.SC«
IDENT PBBOOK PRINT BOOK
DDUM DEMODD
PDIV
EXPROC PVATTP
EXPROC PWDETP
EXPROC PZPOSD
EXPROC DEFDOC
EXPROC QENTRS
EXPROC XCLAMP
EXPROC XEERR
EXPROC ZCRDD
EXPROC ZDRWRD
EXPROC ZMRDF
EXPROC XKZEKO
ENTRY PBBOOK
ENTRY PYPOSB
************************************************************************
* *
* PROCEDURE: PBBOOK*
* FUNCTIONAL DESCRIPTION:*
* PBBOOK PRINTS ALL UNSTATEMENTED TRANSACTIONS OF A SAVINGS-*
* ACCOUNT IN A PASSBOOK.*
* 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.*
* THE BOOK-BALANCE, LINENUMBER AND LAST TRANSACTION STATEMENTED*
* ARE UPDATED IN THE ACCOUNT RECORD.*
* IF ANY OF THESE VALUES HAVE BEEN UPDATED IN THE ROUTINE,*
* THE ACCOUNT RECORD MUST BE REWRITTEN TO THE DATABASE.*
* IF THE ACCOUNT IS CLOSED THEN A CLOSE LINE MUST BE PRINTED*
* AND THE ACCOUNT STATUS MUST BE SET TO 'CLOSED WITH STATM.'*
* USE OF VARIABLES:*
* 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.*
* WORKVARIABLE USED:*
* WW1*
* *
************************************************************************
PBBOOK PROC PRINT PASSBOOK
PB000
PERF PVATTP,DSVCHPRT ATTACH PRINTER
CBE RDPRTTYP,=D'3',PB001
CBNE RDPRTTYP,=D'0',PB005
PB001
TBT SBZEK,PB003
*
* 6371-PRINTER CONTROL
*
MOVE WW1,=W'18'
MOVE VCDOCPAR,=C'1010313801100033000000'
DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1
DSC1 DSVCHPRT,X'00',KW0
PB003
MOVE WW1,=X'8066'
DSC1 DSVCHPRT,X'0D',WW1
PB005
*
* SAVE ACCOUNT-RECORD VALUES IN WORKFIELDS*
*
* NDPRTTRS WILL POINT TO THE NEXT TRANSACTION TO BE PRINTED*
0x0000…003a (0, 0, 400) Head {h00=0x0036, h01=0x0050, text=» IDENT PBBOOK PRINT BOOK«, t00=0x0000, t01=0x0004}
0x003a…004e Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x003e}
0x004e…005c Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0052}
0x005c…0072 Head {h00=0x0012, h01=0x0050, text=» EXPROC PVATTP«, t00=0x0000, t01=0x0060}
0x0072…0088 Head {h00=0x0012, h01=0x0050, text=» EXPROC PWDETP«, t00=0x0000, t01=0x0076}
0x0088…009e Head {h00=0x0012, h01=0x0050, text=» EXPROC PZPOSD«, t00=0x0000, t01=0x008c}
0x009e…00b4 Head {h00=0x0012, h01=0x0050, text=» EXPROC DEFDOC«, t00=0x0000, t01=0x00a2}
0x00b4…00ca Head {h00=0x0012, h01=0x0050, text=» EXPROC QENTRS«, t00=0x0000, t01=0x00b8}
0x00ca…00e0 Head {h00=0x0012, h01=0x0050, text=» EXPROC XCLAMP«, t00=0x0000, t01=0x00ce}
0x00e0…00f6 Head {h00=0x0012, h01=0x0050, text=» EXPROC XEERR «, t00=0x0000, t01=0x00e4}
0x00f6…010c Head {h00=0x0012, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0000, t01=0x00fa}
0x010c…0122 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZDRWRD«, t00=0x0000, t01=0x0110}
0x0122…0138 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZMRDF «, t00=0x0000, t01=0x0126}
0x0138…014e Head {h00=0x0012, h01=0x0050, text=» EXPROC XKZEKO«, t00=0x0000, t01=0x013c}
0x014e…0164 Head {h00=0x0012, h01=0x000d, text=» ENTRY PBBOOK «, t00=0x0000, t01=0x0152}
0x0164…017a Head {h00=0x0012, h01=0x0050, text=» ENTRY PYPOSB «, t00=0x0000, t01=0x0168}
0x017a…01ca Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x017e}
0x01ca…021a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x003e}
0x021a…026a Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: PBBOOK *«, t00=0x0001, t01=0x008e}
0x026a…02ba Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0001, t01=0x00de}
0x02ba…030a Head {h00=0x004c, h01=0x0050, text=»* PBBOOK PRINTS ALL UNSTATEMENTED TRANSACTIONS OF A SAVINGS- *«, t00=0x0001, t01=0x012e}
0x030a…035a Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT IN A PASSBOOK. *«, t00=0x0001, t01=0x017e}
0x035a…03aa Head {h00=0x004c, h01=0x0050, text=»* THE ACCOUNT RECORD MUST BE UNDER EXCLUSIVE ACCES AND AVAILABLE *«, t00=0x0002, t01=0x003e}
0x03aa…03fa Head {h00=0x004c, h01=0x0050, text=»* IN UWB 'UA1'. *«, t00=0x0002, t01=0x008e}
0x03fa…044a Head {h00=0x004c, h01=0x0050, text=»* THE TRANSACTION RECORDS ARE READ INTO UWB 'UT2', SO 'UT1' *«, t00=0x0002, t01=0x00de}
0x044a…049a Head {h00=0x004c, h01=0x0050, text=»* REMAINS UNCHANGED. *«, t00=0x0002, t01=0x012e}
0x049a…04ea Head {h00=0x004c, h01=0x0050, text=»* 'FCBUFFER' IS THE ONLY BUFFER USED BY THIS ROUTINE. *«, t00=0x0002, t01=0x017e}
0x04ea…053a Head {h00=0x004c, h01=0x0050, text=»* THE BOOK-BALANCE, LINENUMBER AND LAST TRANSACTION STATEMENTED *«, t00=0x0003, t01=0x003e}
0x053a…058a Head {h00=0x004c, h01=0x0050, text=»* ARE UPDATED IN THE ACCOUNT RECORD. *«, t00=0x0003, t01=0x008e}
0x058a…05da Head {h00=0x004c, h01=0x0050, text=»* IF ANY OF THESE VALUES HAVE BEEN UPDATED IN THE ROUTINE, *«, t00=0x0003, t01=0x00de}
0x05da…062a Head {h00=0x004c, h01=0x0050, text=»* THE ACCOUNT RECORD MUST BE REWRITTEN TO THE DATABASE. *«, t00=0x0003, t01=0x012e}
0x062a…067a Head {h00=0x004c, h01=0x0050, text=»* IF THE ACCOUNT IS CLOSED THEN A CLOSE LINE MUST BE PRINTED *«, t00=0x0003, t01=0x017e}
0x067a…06ca Head {h00=0x004c, h01=0x0050, text=»* AND THE ACCOUNT STATUS MUST BE SET TO 'CLOSED WITH STATM.' *«, t00=0x0004, t01=0x003e}
0x06ca…071a Head {h00=0x004c, h01=0x0050, text=»* USE OF VARIABLES: *«, t00=0x0004, t01=0x008e}
0x071a…076a Head {h00=0x004c, h01=0x0050, text=»* NDPRTTRS: POINTS TO THE NEXT TRANSACTION TO BE PRINTED. *«, t00=0x0004, t01=0x00de}
0x076a…07ba Head {h00=0x004c, h01=0x0050, text=»* NDNEWLINE: POINTS TO THE LINE ON WHICH MUST BE PRINTED. *«, t00=0x0004, t01=0x012e}
0x07ba…080a Head {h00=0x004c, h01=0x0050, text=»* UA1 (UWB): CONTAINS THE ACCOUNT RECORD. *«, t00=0x0004, t01=0x017e}
0x080a…085a Head {h00=0x004c, h01=0x0050, text=»* UT2 (UWB): USED TO READ THE TRANSACTION RECORDS. *«, t00=0x0005, t01=0x003e}
0x085a…08aa Head {h00=0x004c, h01=0x0050, text=»* FCBUFFER: BUFFER FOR DATABASE-I/O AND FORMAT-I/O. *«, t00=0x0005, t01=0x008e}
0x08aa…08fa Head {h00=0x004c, h01=0x0050, text=»* WORKVARIABLE USED: *«, t00=0x0005, t01=0x00de}
0x08fa…094a Head {h00=0x004c, h01=0x0050, text=»* WW1 *«, t00=0x0005, t01=0x012e}
0x094a…099a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x017e}
0x099a…09ea Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x003e}
0x09ea…0a0e Head {h00=0x0020, h01=0x0050, text=»PBBOOK PROC PRINT PASSBOOK «, t00=0x0006, t01=0x008e}
0x0a0e…0a5e Head {h00=0x004c, h01=0x0050, text=»PB000 «, t00=0x0006, t01=0x00b2}
0x0a5e…0a8a Head {h00=0x0028, h01=0x0050, text=» PERF PVATTP,DSVCHPRT ATTACH PRINTER«, t00=0x0006, t01=0x0102}
0x0a8a…0aac Head {h00=0x001e, h01=0x0050, text=» CBE RDPRTTYP,=D'3',PB001 «, t00=0x0006, t01=0x012e}
0x0aac…0ace Head {h00=0x001e, h01=0x0050, text=» CBNE RDPRTTYP,=D'0',PB005«, t00=0x0006, t01=0x0150}
0x0ace…0adc Head {h00=0x000a, h01=0x0050, text=»PB001 «, t00=0x0006, t01=0x0172}
0x0adc…0af4 Head {h00=0x0014, h01=0x0050, text=» TBT SBZEK,PB003«, t00=0x0006, t01=0x0180}
0x0af4…0afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afe…0b1c Head {h00=0x001a, h01=0x0050, text=»* 6371-PRINTER CONTROL«, t00=0x0007, t01=0x0012}
0x0b1c…0b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0030}
0x0b26…0b3e Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'18'«, t00=0x0007, t01=0x003a}
0x0b3e…0b70 Head {h00=0x002e, h01=0x0050, text=» MOVE VCDOCPAR,=C'1010313801100033000000' «, t00=0x0007, t01=0x0052}
0x0b70…0b9e Head {h00=0x002a, h01=0x0050, text=» DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 «, t00=0x0007, t01=0x0084}
0x0b9e…0bbe Head {h00=0x001c, h01=0x0050, text=» DSC1 DSVCHPRT,X'00',KW0«, t00=0x0007, t01=0x00b2}
0x0bbe…0bcc Head {h00=0x000a, h01=0x0050, text=»PB003 «, t00=0x0007, t01=0x00d2}
0x0bcc…0be6 Head {h00=0x0016, h01=0x0050, text=» MOVE WW1,=X'8066'«, t00=0x0007, t01=0x00e0}
0x0be6…0c06 Head {h00=0x001c, h01=0x0050, text=» DSC1 DSVCHPRT,X'0D',WW1«, t00=0x0007, t01=0x00fa}
0x0c06…0c14 Head {h00=0x000a, h01=0x0050, text=»PB005 «, t00=0x0007, t01=0x011a}
0x0c14…0c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0128}
0x0c1e…0c6e Head {h00=0x004c, h01=0x0050, text=»* SAVE ACCOUNT-RECORD VALUES IN WORKFIELDS *«, t00=0x0007, t01=0x0132}
0x0c6e…0c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0182}
0x0c78…0cc8 Head {h00=0x004c, h01=0x0050, text=»* NDPRTTRS WILL POINT TO THE NEXT TRANSACTION TO BE PRINTED *«, t00=0x0007, t01=0x018c}
0x0cc8…0ccc Head {h00=0x0054, h01=0x0050}
0x0ccc…0cd0 Head {h00=0x5c4d, h01=0x4f56}
0x0cd0…0d20 45 20 20 20 5c 4e 44 50 52 54 54 52 53 2c 41 44 53 54 4d 54 52 53 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 4c ┆E NDPRTTRS,ADSTMTRS L┆
0x0d20…0d70 00 4c 00 50 2a 20 4e 44 4e 45 57 4c 4e 45 20 57 49 4c 4c 20 50 4f 49 4e 54 20 54 4f 20 54 48 45 20 46 49 52 53 54 20 46 52 45 45 20 4c 49 4e 45 20 49 4e 20 54 48 45 20 42 4f 4f 4b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 08 00 a4 ┆ L P* NDNEWLNE WILL POINT TO THE FIRST FREE LINE IN THE BOOK * ┆
0x0d70…0dc0 00 54 00 50 5c 4d 4f 56 45 5c 4e 44 4e 45 57 4c 4e 45 2c 41 44 4c 4e 45 4e 52 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T P MOVE NDNEWLNE,ADLNENR ┆
0x0dc0…0e10 00 00 00 00 00 08 00 f4 00 0a 00 50 50 42 30 38 30 20 00 08 01 4c 00 32 00 50 5c 54 42 54 5c 53 42 5a 45 4b 2c 50 42 31 30 30 5c 5a 45 4b 4f 53 41 3a 20 42 4f 4f 4b 20 41 4c 52 45 41 44 59 20 50 52 45 53 45 4e 54 20 00 08 01 5a 00 22 00 50 ┆ PPB080 L 2 P TBT SBZEK,PB100 ZEKOSA: BOOK ALREADY PRESENT Z " P┆
0x0e10…0e60 (9, 0, 400) 5c 50 45 52 46 5c 58 43 4c 41 4d 50 2c 4b 57 34 2c 4b 57 31 5c 4c 41 4d 50 20 34 20 4f 4e 00 08 01 90 00 36 00 50 5c 50 45 52 46 5c 58 45 45 52 52 2c 3d 57 27 34 39 27 2c 4b 57 33 5c 27 4d 4f 55 4e 54 20 50 41 53 53 42 4f 4f 4b 20 49 4e 20 ┆ PERF XCLAMP,KW4,KW1 LAMP 4 ON 6 P PERF XEERR,=W'49',KW3 'MOUNT PASSBOOK IN ┆
0x0e60…0eb0 50 52 49 4e 54 45 52 27 00 09 00 26 00 24 00 50 5c 50 45 52 46 5c 58 43 4c 41 4d 50 2c 4b 57 34 2c 4b 57 30 5c 4c 41 4d 50 20 34 20 4f 46 46 20 00 09 00 60 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 50 42 39 39 30 20 00 09 00 88 ┆PRINTER' & $ P PERF XCLAMP,KW4,KW0 LAMP 4 OFF ` P TBT SBCANCEL,PB990 ┆
0x0eb0…0f00 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 09 00 a4 ┆ L P* * ┆
0x0f00…0f50 00 1c 00 50 2a 20 53 54 41 52 54 20 4f 46 20 54 48 45 20 4d 41 49 4e 20 4c 4f 4f 50 00 09 00 f4 00 3a 00 50 2a 20 49 4e 20 54 48 49 53 20 4c 4f 4f 50 2c 20 4f 4e 45 20 54 52 41 4e 53 41 43 54 49 4f 4e 20 49 53 20 50 52 49 4e 54 45 44 20 49 ┆ P* START OF THE MAIN LOOP : P* IN THIS LOOP, ONE TRANSACTION IS PRINTED I┆
0x0f50…0fa0 4e 20 54 48 45 20 42 4f 4f 4b 00 09 01 14 00 06 00 50 2a 20 00 09 01 52 00 0a 00 50 50 42 31 30 30 20 00 09 01 5c 00 36 00 50 5c 43 42 45 5c 41 44 53 54 4d 54 52 53 2c 41 44 4c 41 53 54 52 53 2c 50 42 36 30 30 5c 4e 4f 20 4d 4f 52 45 20 54 ┆N THE BOOK P* R PPB100 6 P CBE ADSTMTRS,ADLASTRS,PB600 NO MORE T┆
0x0fa0…0ff0 (10, 0, 400) 52 41 4e 53 41 43 54 49 4f 4e 53 20 00 09 01 6a 00 06 00 50 2a 20 00 0a 00 14 00 4c 00 50 2a 20 55 50 44 41 54 45 20 4e 45 58 54 20 54 52 41 4e 53 41 43 54 49 4f 4e 20 54 4f 20 42 45 20 50 52 49 4e 54 45 44 00 00 00 00 00 00 00 00 00 00 00 ┆RANSACTIONS j P* L P* UPDATE NEXT TRANSACTION TO BE PRINTED ┆
0x0ff0…1040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0a 00 1e 00 22 00 50 2a 20 41 4e 44 20 52 45 41 44 20 54 52 41 4e 53 41 43 54 49 4f 4e 20 52 45 43 4f 52 44 20 00 0a 00 6e 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 ┆ * " P* AND READ TRANSACTION RECORD n L P* ┆
0x1040…1090 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0a 00 94 00 54 00 50 5c 50 45 52 46 5c 51 45 4e 54 52 53 ┆ * T P PERF QENTRS┆
0x1090…10e0 2c 4e 44 50 52 54 54 52 53 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0a 00 e4 00 4c 00 50 5c 4d 4f 56 ┆,NDPRTTRS L P MOV┆
0x10e0…1130 45 5c 55 44 54 52 53 52 4e 52 2c 41 44 41 43 54 52 4e 52 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0a 01 3c 00 2c 00 50 5c 41 44 44 ┆E UDTRSRNR,ADACTRNR < , P ADD┆
0x1130…1180 (11, 0, 400) 5c 55 44 54 52 53 52 4e 52 2c 4e 44 50 52 54 54 52 53 5c 54 52 41 4e 53 2e 20 52 45 43 4f 52 44 20 4b 45 59 00 0a 01 8c 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ UDTRSRNR,NDPRTTRS TRANS. RECORD KEY L P* ┆
0x1180…11d0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0b 00 2c 00 4c 00 50 2a 20 20 20 52 45 41 44 20 54 52 41 4e 53 41 43 54 49 4f 4e 20 52 45 43 4f 52 44 20 41 4e 44 20 53 54 4f 52 ┆ * , L P* READ TRANSACTION RECORD AND STOR┆
0x11d0…1220 45 20 49 54 20 49 4e 20 55 57 42 20 55 54 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0b 00 7c 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆E IT IN UWB UT2 * | L P* ┆
0x1220…1270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0b 00 cc 00 4c 00 50 5c 50 45 52 46 5c 5a 43 52 44 44 2c 55 44 54 52 53 52 4e 52 2c 57 44 45 43 31 2c 4b 57 31 5c 5c 5c 00 00 00 ┆ * L P PERF ZCRDD,UDTRSRNR,WDEC1,KW1 ┆
0x1270…12c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 01 1c 00 54 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 50 42 39 38 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T P TBT SBCANCEL,PB980 ┆
0x12c0…1310 (12, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 01 6c 00 26 00 50 5c 54 42 54 5c 53 42 52 45 43 41 56 42 2c 50 42 34 30 30 5c 50 52 49 4e 54 20 49 4e ┆ l & P TBT SBRECAVB,PB400 PRINT IN┆
0x1310…1360 20 42 4f 4f 4b 20 00 0c 00 34 00 2c 00 50 5c 50 45 52 46 5c 58 45 45 52 52 2c 3d 57 27 33 38 27 2c 4b 57 31 5c 27 4e 4f 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 27 00 0c 00 5e 00 0c 00 50 5c 42 5c 50 42 39 38 30 00 0c 00 8e 00 4c 00 50 2a 00 ┆ BOOK 4 , P PERF XEERR,=W'38',KW1 'NO TRANSACTIONS' ^ P B PB980 L P* ┆
0x1360…13b0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0c 00 9e 00 22 00 50 2a 20 ┆ * " P* ┆
0x13b0…1400 50 4f 53 49 54 49 4f 4e 20 41 4e 44 20 50 52 49 4e 54 20 50 41 53 53 42 4f 4f 4b 20 00 0c 00 ee 00 4c 00 50 2a 20 55 50 44 41 54 45 20 4c 49 4e 45 4e 55 4d 42 45 52 2c 20 4c 41 53 54 20 54 52 41 4e 53 41 43 54 49 4f 4e 20 53 54 41 54 45 4d ┆POSITION AND PRINT PASSBOOK L P* UPDATE LINENUMBER, LAST TRANSACTION STATEM┆
0x1400…1450 45 4e 54 45 44 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0c 01 14 00 32 00 50 2a 20 41 4e 44 20 42 4f 4f 4b 20 42 41 4c 41 4e 43 45 20 49 4e 20 54 48 45 20 41 43 43 4f 55 4e 54 52 45 43 4f 52 44 20 28 55 57 42 ┆ENTED * 2 P* AND BOOK BALANCE IN THE ACCOUNTRECORD (UWB┆
0x1450…14a0 (13, 0, 400) 29 20 00 0c 01 64 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆) d L P* ┆
0x14a0…14f0 00 2a 00 0d 00 0a 00 4c 00 50 50 42 34 30 30 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L PPB400 ┆
0x14f0…1540 00 00 00 0d 00 5a 00 10 00 50 5c 50 45 52 46 5c 50 59 50 4f 53 42 00 0d 00 aa 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 50 42 39 38 30 20 00 0d 00 be 00 54 00 50 5c 4d 4f 56 45 5c 49 44 41 4d 54 32 2c 55 44 41 4d 4f 55 4e 54 5c ┆ Z P PERF PYPOSB P TBT SBCANCEL,PB980 T P MOVE IDAMT2,UDAMOUNT ┆
0x1540…1590 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 00 da 00 06 00 50 2a 20 00 0d 01 32 00 28 00 50 2a 20 49 46 ┆ P* 2 ( P* IF┆
0x1590…15e0 20 55 44 54 52 53 43 44 45 20 3d 20 30 30 32 2c 20 4f 52 20 30 31 36 20 4f 52 20 30 31 32 2c 20 00 0d 01 3c 00 30 00 50 2a 20 54 48 45 20 41 4d 4f 55 4e 54 20 4d 55 53 54 20 42 45 20 4e 45 47 41 54 45 44 20 42 45 46 4f 52 45 20 50 52 49 4e ┆ UDTRSCDE = 002, OR 016 OR 012, < 0 P* THE AMOUNT MUST BE NEGATED BEFORE PRIN┆
0x15e0…1630 (14, 0, 400) 54 49 4e 47 00 0d 01 68 00 06 00 50 2a 20 00 0e 00 0c 00 28 00 50 5c 43 42 45 5c 55 44 54 52 53 43 44 45 2c 3d 44 27 32 27 2c 50 42 34 32 30 5c 57 49 54 48 44 52 41 57 41 4c 00 0e 00 16 00 2e 00 50 5c 43 42 45 5c 55 44 54 52 53 43 44 45 2c ┆TING h P* ( P CBE UDTRSCDE,=D'2',PB420 WITHDRAWAL . P CBE UDTRSCDE,┆
0x1630…1680 3d 44 27 31 32 27 2c 50 42 34 32 30 5c 54 52 41 4e 53 46 45 52 20 28 46 52 4f 4d 29 00 0e 00 42 00 30 00 50 5c 43 42 45 5c 55 44 54 52 53 43 44 45 2c 3d 44 27 31 36 27 2c 50 42 34 32 30 5c 43 48 45 51 55 45 20 57 49 54 48 44 52 41 57 41 4c ┆=D'12',PB420 TRANSFER (FROM) B 0 P CBE UDTRSCDE,=D'16',PB420 CHEQUE WITHDRAWAL┆
0x1680…16d0 00 0e 00 74 00 0c 00 50 5c 42 5c 50 42 34 35 30 00 0e 00 a8 00 0a 00 50 50 42 34 32 30 20 00 0e 00 b8 00 24 00 50 5c 4d 55 4c 5c 49 44 41 4d 54 32 2c 3d 44 27 2d 31 27 5c 4e 45 47 41 54 45 20 41 4d 4f 55 4e 54 00 0e 00 c6 00 0a 00 50 50 42 ┆ t P B PB450 PPB420 $ P MUL IDAMT2,=D'-1' NEGATE AMOUNT PPB┆
0x16d0…1720 34 35 30 20 00 0e 00 ee 00 26 00 50 5c 45 44 57 52 54 5c 44 53 56 43 48 50 52 54 2c 50 52 54 30 31 34 5c 57 52 49 54 45 20 4c 49 4e 45 20 00 0e 00 fc 00 2c 00 50 5c 4d 4f 56 45 5c 41 44 4c 4e 45 4e 52 2c 4e 44 4e 45 57 4c 4e 45 5c 55 50 44 ┆450 & P EDWRT DSVCHPRT,PRT014 WRITE LINE , P MOVE ADLNENR,NDNEWLNE UPD┆
0x1720…1770 41 54 45 20 4c 49 4e 45 4e 55 4d 42 45 52 00 0e 01 26 00 30 00 50 5c 4d 4f 56 45 5c 41 44 4c 49 4d 42 4f 4b 2c 55 44 4e 45 57 42 41 4c 5c 55 50 44 41 54 45 20 42 4f 4f 4b 20 42 41 4c 41 4e 43 45 20 00 0e 01 56 00 54 00 50 5c 4d 4f 56 45 5c ┆ATE LINENUMBER & 0 P MOVE ADLIMBOK,UDNEWBAL UPDATE BOOK BALANCE V T P MOVE ┆
0x1770…17c0 (15, 0, 400) 41 44 53 54 4d 54 52 53 2c 4e 44 50 52 54 54 52 53 5c 55 50 44 41 54 45 20 4c 41 53 54 20 54 52 41 4e 53 2e 20 53 54 41 54 45 4d 45 4e 54 45 44 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 01 8a 00 4c ┆ADSTMTRS,NDPRTTRS UPDATE LAST TRANS. STATEMENTED L┆
0x17c0…1810 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0f 00 52 00 2c ┆ P* * R ,┆
0x1810…1860 00 50 2a 20 4e 45 58 54 20 54 52 41 4e 53 41 43 54 49 4f 4e 2c 20 45 4e 44 20 4f 46 20 54 48 45 20 4d 41 49 4e 20 4c 4f 4f 50 00 0f 00 a2 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ P* NEXT TRANSACTION, END OF THE MAIN LOOP L P* ┆
0x1860…18b0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0f 00 d2 00 0c 00 50 5c 42 5c 50 42 31 30 30 00 0f 01 22 00 06 00 50 2a 20 00 0f 01 32 00 2e 00 50 2a 20 41 4c ┆ * P B PB100 " P* 2 . P* AL┆
0x18b0…1900 4c 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 20 48 41 56 45 20 42 45 45 4e 20 53 54 41 54 45 4d 45 4e 54 45 44 2c 20 00 0f 01 3c 00 32 00 50 2a 20 49 46 20 54 48 45 20 41 43 43 4f 55 4e 54 20 49 53 20 43 4c 4f 53 45 44 2c 20 55 50 44 41 54 45 ┆L TRANSACTIONS HAVE BEEN STATEMENTED, < 2 P* IF THE ACCOUNT IS CLOSED, UPDATE┆
0x1900…1950 (16, 0, 400) 20 53 54 41 54 55 53 20 41 4e 44 20 00 0f 01 6e 00 18 00 50 2a 20 50 52 49 4e 54 20 41 20 43 4c 4f 53 45 20 4c 49 4e 45 00 10 00 14 00 06 00 50 2a 20 00 10 00 30 00 0a 00 50 50 42 36 30 30 20 00 10 00 3a 00 28 00 50 5c 43 42 4c 5c 41 44 53 ┆ STATUS AND n P* PRINT A CLOSE LINE P* 0 PPB600 : ( P CBL ADS┆
0x1950…19a0 54 41 54 55 53 2c 3d 44 27 32 27 2c 50 42 39 38 30 5c 4e 4f 54 20 43 4c 4f 53 45 44 00 10 00 48 00 06 00 50 2a 20 00 10 00 74 00 18 00 50 2a 20 50 52 49 4e 54 20 41 20 43 4c 4f 53 45 20 4c 49 4e 45 00 10 00 7e 00 06 00 50 2a 20 00 10 00 9a ┆TATUS,=D'2',PB980 NOT CLOSED H P* t P* PRINT A CLOSE LINE ~ P* ┆
0x19a0…19f0 00 10 00 50 5c 50 45 52 46 5c 50 59 50 4f 53 42 00 10 00 a4 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 50 42 39 38 30 20 00 10 00 b8 00 18 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 35 31 27 00 10 00 d4 00 2e 00 50 ┆ P PERF PYPOSB P TBT SBCANCEL,PB980 P MOVE SPBINW4,=W'51' . P┆
0x19f0…1a40 5c 50 45 52 46 5c 5a 4d 52 44 46 2c 53 50 42 49 4e 57 34 2c 4b 57 31 5c 52 45 41 44 20 49 4e 54 4f 20 46 43 42 55 46 46 45 52 00 10 00 f0 00 1c 00 50 5c 45 44 57 52 54 5c 44 53 56 43 48 50 52 54 2c 46 43 42 55 46 46 45 52 00 10 01 22 00 22 ┆ PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER P EDWRT DSVCHPRT,FCBUFFER " "┆
0x1a40…1a90 00 50 2a 20 55 50 44 41 54 45 20 4c 49 4e 45 4e 55 4d 42 45 52 20 41 4e 44 20 53 54 41 54 55 53 00 10 01 42 00 1a 00 50 5c 4d 4f 56 45 5c 41 44 4c 4e 45 4e 52 2c 4e 44 4e 45 57 4c 4e 45 00 10 01 68 00 32 00 50 5c 4d 4f 56 45 5c 41 44 53 54 ┆ P* UPDATE LINENUMBER AND STATUS B P MOVE ADLNENR,NDNEWLNE h 2 P MOVE ADST┆
0x1a90…1ae0 (17, 0, 400) 41 54 55 53 2c 3d 44 27 33 27 5c 43 4c 4f 53 45 44 20 57 49 54 48 20 53 54 41 54 45 4d 45 4e 54 49 4e 47 20 00 10 01 86 00 06 00 50 2a 20 00 11 00 2c 00 30 00 50 2a 20 52 45 57 52 49 54 45 20 54 48 45 20 41 43 43 4f 55 4e 54 20 52 45 43 4f ┆ATUS,=D'3' CLOSED WITH STATEMENTING P* , 0 P* REWRITE THE ACCOUNT RECO┆
0x1ae0…1b30 52 44 20 54 4f 20 54 48 45 20 44 41 54 41 42 41 53 45 00 11 00 36 00 06 00 50 2a 20 00 11 00 6a 00 0a 00 50 50 42 39 38 30 20 00 11 00 74 00 54 00 50 5c 50 45 52 46 5c 5a 44 52 57 52 44 2c 41 44 41 43 54 52 4e 52 2c 4e 44 4c 52 4e 31 5c 5c ┆RD TO THE DATABASE 6 P* j PPB980 t T P PERF ZDRWRD,ADACTRNR,NDLRN1 ┆
0x1b30…1b80 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 00 82 00 06 00 50 2a 20 00 11 00 da 00 3a 00 50 2a 20 52 45 57 52 49 54 45 20 4d 41 ┆ P* : P* REWRITE MA┆
0x1b80…1bd0 47 2e 53 54 52 49 50 45 20 28 49 46 20 5a 45 4b 4f 53 41 29 20 41 4e 44 20 52 45 4c 45 41 53 45 20 50 41 53 53 42 4f 4f 4b 20 00 11 00 e4 00 06 00 50 2a 20 00 11 01 22 00 0a 00 50 50 42 39 39 30 20 00 11 01 2c 00 14 00 50 5c 54 42 46 5c 53 ┆G.STRIPE (IF ZEKOSA) AND RELEASE PASSBOOK P* " PPB990 , P TBF S┆
0x1bd0…1c20 42 5a 45 4b 2c 50 42 39 39 35 00 11 01 3a 00 10 00 50 5c 50 45 52 46 5c 58 4b 5a 45 4b 4f 00 11 01 52 00 0a 00 50 50 42 39 39 35 20 00 11 01 66 00 14 00 50 5c 44 53 43 30 5c 44 53 56 43 48 50 52 54 2c 31 00 11 01 74 00 28 00 50 5c 50 45 52 ┆BZEK,PB995 : P PERF XKZEKO R PPB995 f P DSC0 DSVCHPRT,1 t ( P PER┆
0x1c20…1c70 (18, 0, 400) 46 5c 50 57 44 45 54 50 2c 44 53 56 43 48 50 52 54 5c 44 45 54 41 43 48 20 50 52 49 4e 54 45 52 00 11 01 8c 00 4c 00 50 5c 52 45 54 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆F PWDETP,DSVCHPRT DETACH PRINTER L P RET ┆
0x1c70…1cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12 00 28 00 4c 00 50 5c 50 45 4e 44 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ( L P PEND ┆
0x1cc0…1d10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12 00 78 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ x L P****************************************┆
0x1d10…1d60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 12 00 c8 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆******************************** L P* ┆
0x1d60…1db0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 12 01 18 00 4c 00 50 2a 20 20 20 50 52 49 4e 54 20 2c 20 50 41 53 53 42 4f 4f 4b 20 4c 49 4e 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * L P* PRINT , PASSBOOK LINE ┆
0x1db0…1e00 (19, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 12 01 68 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * h L P* ┆
0x1e00…1e50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 13 00 28 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * ( L P****************************************┆
0x1e50…1ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 13 00 78 00 4c 00 50 50 52 54 30 31 34 5c 46 52 4d 54 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆******************************** x L PPRT014 FRMT ┆
0x1ea0…1ef0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 00 c8 00 10 00 50 5c 46 54 45 58 54 5c 27 20 20 27 20 00 13 01 18 00 4c 00 50 5c 46 4d 45 4c 5c 27 5a 5a 5a 5a 5a 5a 27 2c 55 44 44 41 54 ┆ P FTEXT ' ' L P FMEL 'ZZZZZZ',UDDAT┆
0x1ef0…1f40 45 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 01 2c 00 4c 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 33 5c 5c 5c 00 00 00 00 00 ┆E , L P FILLR ' ',3 ┆
0x1f40…1f90 (20, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 01 7c 00 48 00 50 5c 46 4d 45 4c 5c 27 39 39 39 39 39 39 27 2c 55 44 54 52 53 ┆ | H P FMEL '999999',UDTRS┆
0x1f90…1fe0 53 45 51 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 00 3c 00 4c 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 34 5c 5c 5c 00 00 00 00 00 00 00 00 00 ┆SEQ < L P FILLR ' ',4 ┆
0x1fe0…2030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 00 88 00 4c 00 50 5c 46 4d 45 4c 5c 27 5a 5a 5a 5a 5a 5a 27 2c 49 44 41 43 54 4e 52 31 5c ┆ L P FMEL 'ZZZZZZ',IDACTNR1 ┆
0x2030…2080 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 00 d8 00 4c 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 5c 5c 5c 00 00 00 00 00 00 00 00 00 ┆ L P FILLR ' ',2 ┆
0x2080…20d0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 01 28 00 22 00 50 5c 46 4d 45 4c 5c 27 46 2a 5a 56 5a 5a 5a 56 5a 5a 39 2c 39 39 2d 27 2c ┆ ( " P FMEL 'F*ZVZZZVZZ9,99-',┆
0x20d0…2120 (21, 0, 400) 49 44 41 4d 54 32 00 14 01 78 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 00 15 00 0e 00 24 00 50 5c 46 4d 45 4c 5c 27 46 2a 5a 56 5a 5a 5a 56 5a 5a 39 2c 39 39 2d 27 2c 55 44 4e 45 57 42 41 4c 00 15 00 22 00 54 00 50 5c 46 4d 45 4e 44 ┆IDAMT2 x P FILLR ' ',2 $ P FMEL 'F*ZVZZZVZZ9,99-',UDNEWBAL " T P FMEND┆
0x2120…2170 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 15 00 4a 00 4c ┆ J L┆
0x2170…21c0 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 15 00 a2 00 10 ┆ P************************************************************************ ┆
0x21c0…2210 00 50 50 59 50 4f 53 42 5c 50 52 4f 43 20 00 15 00 f2 00 0a 00 50 50 59 34 30 30 20 00 15 01 06 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PPYPOSB PROC PPY400 L P* ┆
0x2210…2260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 15 01 14 00 4c 00 50 2a 20 56 41 4c 55 45 20 4f 46 20 41 44 4c 4e 45 4e 52 3a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P* VALUE OF ADLNENR: ┆
0x2260…22b0 (22, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 15 01 64 00 4c 00 50 2a 20 20 20 20 30 3a 20 20 20 20 4e 45 57 20 41 43 43 4f 55 4e 54 2c 20 4e 4f 20 4c 49 4e 45 53 20 50 52 49 4e 54 45 44 20 59 45 54 ┆ * d L P* 0: NEW ACCOUNT, NO LINES PRINTED YET┆
0x22b0…2300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 16 00 24 00 4c 00 50 2a 20 20 20 20 31 2d 32 34 3a 20 4c 41 53 54 20 4c 49 4e 45 20 50 52 49 4e 54 45 44 20 49 4e 20 54 48 45 20 42 4f 4f 4b 00 00 00 00 ┆ * $ L P* 1-24: LAST LINE PRINTED IN THE BOOK ┆
0x2300…2350 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 16 00 74 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * t L P* ┆
0x2350…23a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 16 00 c4 00 4c 00 50 2a 20 43 41 4c 43 55 4c 41 54 45 20 54 48 45 20 46 49 52 53 54 20 46 52 45 45 20 4c 49 4e 45 20 49 4e 20 54 48 45 20 42 4f 4f 4b 00 ┆ * L P* CALCULATE THE FIRST FREE LINE IN THE BOOK ┆
0x23a0…23f0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 16 01 14 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P* ┆
0x23f0…2440 (23, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 16 01 64 00 4c 00 50 5c 41 44 44 5c 4e 44 4e 45 57 4c 4e 45 2c 3d 44 27 31 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * d L P ADD NDNEWLNE,=D'1' ┆
0x2440…2490 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 17 00 24 00 4c 00 50 5c 43 42 4c 5c 4e 44 4e 45 57 4c 4e 45 2c 3d 44 27 32 35 27 2c 50 59 33 30 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ $ L P CBL NDNEWLNE,=D'25',PY300 ┆
0x2490…24e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 17 00 74 00 4c 00 50 5c 4d 4f 56 45 5c 4e 44 4e 45 57 4c 4e 45 2c 3d 44 27 31 27 5c 53 54 41 52 54 20 4f 4e 20 4e 45 57 20 50 41 47 45 5c 5c 00 00 00 00 ┆ t L P MOVE NDNEWLNE,=D'1' START ON NEW PAGE ┆
0x24e0…2530 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 17 00 c4 00 0a 00 50 50 59 33 30 30 20 00 17 01 14 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PPY300 L P* ┆
0x2530…2580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 17 01 22 00 4c 00 50 2a 20 20 20 43 48 45 43 4b 20 50 41 53 53 42 4f 4f 4b 20 4f 4e 20 4e 45 57 20 50 41 47 45 ┆ * " L P* CHECK PASSBOOK ON NEW PAGE┆
0x2580…25d0 (24, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 17 01 72 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * r L P* ┆
0x25d0…2620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 18 00 32 00 4e 00 50 5c 43 42 4e 45 5c 41 44 4c 4e 45 4e 52 2c 3d 44 27 32 34 27 2c 50 59 35 30 30 5c 4e 4f 20 ┆ * 2 N P CBNE ADLNENR,=D'24',PY500 NO ┆
0x2620…2670 41 43 54 49 4f 4e 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 18 00 82 00 28 00 50 5c 50 45 52 46 5c 58 43 4c 41 4d 50 2c 4b 57 34 2c 4b 57 32 5c 4c 41 4d 50 20 34 20 ┆ACTION ( P PERF XCLAMP,KW4,KW2 LAMP 4 ┆
0x2670…26c0 46 4c 41 53 48 49 4e 47 00 18 00 d4 00 4c 00 50 5c 44 53 43 30 5c 44 53 56 43 48 50 52 54 2c 31 5c 52 45 4c 45 41 53 45 20 50 41 53 53 42 4f 4f 4b 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆FLASHING L P DSC0 DSVCHPRT,1 RELEASE PASSBOOK ┆
0x26c0…2710 00 00 00 00 00 00 00 00 00 18 01 00 00 38 00 50 5c 50 45 52 46 5c 58 45 45 52 52 2c 3d 57 27 35 30 27 2c 4b 57 33 5c 27 43 48 45 43 4b 20 50 41 53 53 42 4f 4f 4b 20 4f 4e 20 4e 45 57 20 50 41 47 45 27 20 00 18 01 50 00 24 00 50 5c 50 45 52 ┆ 8 P PERF XEERR,=W'50',KW3 'CHECK PASSBOOK ON NEW PAGE' P $ P PER┆
0x2710…2760 (25, 0, 400) 46 5c 58 43 4c 41 4d 50 2c 4b 57 34 2c 4b 57 30 5c 4c 41 4d 50 20 34 20 4f 46 46 20 00 18 01 8c 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 50 59 39 39 39 20 00 19 00 24 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆F XCLAMP,KW4,KW0 LAMP 4 OFF P TBT SBCANCEL,PY999 $ L P* ┆
0x2760…27b0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 19 00 40 00 4c 00 50 2a 20 20 20 47 45 54 20 4e 55 4d 42 45 52 20 4f ┆ * @ L P* GET NUMBER O┆
0x27b0…2800 46 20 4c 49 4e 45 20 46 45 45 44 53 2c 20 50 4f 53 49 54 49 4f 4e 20 50 41 53 53 42 4f 4f 4b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 19 00 90 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆F LINE FEEDS, POSITION PASSBOOK * L P* ┆
0x2800…2850 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 19 00 e0 00 0a 00 50 50 59 35 30 30 20 00 19 01 30 00 4c 00 50 5c 4d ┆ * PPY500 0 L P M┆
0x2850…28a0 4f 56 45 20 20 20 5c 57 44 45 43 31 2c 3d 44 27 32 34 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 19 01 3e 00 4e 00 50 5c 53 ┆OVE WDEC1,=D'24' > N P S┆
0x28a0…28f0 (26, 2, 340) 55 42 5c 57 44 45 43 31 2c 4e 44 4e 45 57 4c 4e 45 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 4c 49 4e 45 20 53 54 45 50 53 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 19 01 8e 00 4c 00 50 ┆UB WDEC1,NDNEWLNE GET NUMBER OF LINE STEPS L P┆
0x28f0…2940 5c 41 44 44 5c 57 44 45 43 31 2c 57 44 45 43 31 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 4c 49 4e 45 20 46 45 45 44 53 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1a 00 50 00 28 00 50 ┆ ADD WDEC1,WDEC1 GET NUMBER OF LINE FEEDS P ( P┆
0x2940…2990 5c 50 45 52 46 5c 50 5a 50 4f 53 44 2c 57 44 45 43 31 5c 50 4f 53 49 54 49 4f 4e 20 50 41 53 53 42 4f 4f 4b 00 1a 00 a0 00 0a 00 50 50 59 39 39 39 20 00 1a 00 cc 00 08 00 50 5c 52 45 54 00 1a 00 da 00 0a 00 50 5c 50 45 4e 44 20 00 1a 00 e6 ┆ PERF PZPOSD,WDEC1 POSITION PASSBOOK PPY999 P RET P PEND ┆
0x2990…29e0 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1a 00 f4 ┆ L P************************************************************************ ┆
0x29e0…29f4 00 08 00 04 5c 45 4e 44 00 1a 01 44 40 04 00 00 00 1a 01 50 ┆ END D@ P┆
0x29f4…29fc (27, 1, 8) 20 04 00 00 00 1b 00 04 ┆ ┆
0x29fc…2a4c (28, 0, 400) 42 45 52 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 20 47 49 56 45 4e 20 49 4e 20 46 49 52 53 54 00 03 01 70 00 24 00 50 2a 5c 5c 20 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 20 00 04 00 28 00 06 00 50 ┆BER OF CHARACTERS GIVEN IN FIRST p $ P* CHARACTER IN OUTPUT BUFFER ( P┆
0x2a4c…2a9c 2a 20 00 04 00 50 00 2e 00 50 2a 20 20 20 47 20 52 20 41 20 53 20 50 20 3a 20 20 20 20 20 53 45 4e 44 20 47 52 41 53 50 20 54 4f 20 56 4f 55 43 48 45 52 20 00 04 00 5a 00 06 00 50 2a 20 00 04 00 8c 00 34 00 50 2a 20 20 20 52 20 45 20 4c 20 ┆* P . P* G R A S P : SEND GRASP TO VOUCHER Z P* 4 P* R E L ┆
0x2a9c…2aec 45 20 41 20 53 20 3a 20 20 20 53 45 4e 44 20 4c 49 46 54 20 54 4f 20 54 4f 50 20 41 4e 44 20 52 45 4c 45 41 53 45 00 04 00 96 00 0a 00 50 5c 45 4a 45 43 54 00 04 00 ce 00 06 00 50 2a 20 00 04 00 dc 00 2a 00 50 2a 20 20 20 54 48 45 20 46 4f ┆E A S : SEND LIFT TO TOP AND RELEASE P EJECT P* * P* THE FO┆
0x2aec…2b3c 4c 4c 4f 57 49 4e 47 20 4f 52 44 45 52 53 20 41 52 45 20 54 52 45 41 54 45 44 3a 20 00 04 00 e6 00 06 00 50 2a 20 00 04 01 14 00 24 00 50 2a 20 20 20 4f 52 44 45 52 20 30 30 20 3a 20 20 20 20 20 20 54 45 53 54 20 53 54 41 54 55 53 20 00 04 ┆LLOWING ORDERS ARE TREATED: P* $ P* ORDER 00 : TEST STATUS ┆
0x2b3c…2b8c 01 1e 00 1e 00 50 2a 20 20 20 4f 52 44 45 52 20 30 36 20 3a 20 20 20 20 20 20 57 52 49 54 45 20 00 04 01 46 00 30 00 50 2a 20 20 20 4f 52 44 45 52 20 30 42 20 3a 20 20 20 20 20 20 50 4f 53 49 54 49 4f 4e 20 4c 49 46 54 20 41 4e 44 20 57 52 ┆ P* ORDER 06 : WRITE F 0 P* ORDER 0B : POSITION LIFT AND WR┆