|
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: 10492 (0x28fc)
Notes: pts_type(SC)
Names: »PBBOOK.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/PBBOOK.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/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
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
CBNE RDPRTTYP,=D'0',PB005
*
* 6371-PRINTER CONTROL
*
MOVE WW1,=W'18'
MOVE VCDOCPAR,=C'1010313801100033000000'
DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1
DSC1 DSVCHPRT,X'00',KW0
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=0x000d, text=» ENTRY PBBOOK «, t00=0x0000, t01=0x013c}
0x014e…0164 Head {h00=0x0012, h01=0x0050, text=» ENTRY PYPOSB «, t00=0x0000, t01=0x0152}
0x0164…01b4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0168}
0x01b4…0204 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0028}
0x0204…0254 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: PBBOOK *«, t00=0x0001, t01=0x0078}
0x0254…02a4 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0001, t01=0x00c8}
0x02a4…02f4 Head {h00=0x004c, h01=0x0050, text=»* PBBOOK PRINTS ALL UNSTATEMENTED TRANSACTIONS OF A SAVINGS- *«, t00=0x0001, t01=0x0118}
0x02f4…0344 Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT IN A PASSBOOK. *«, t00=0x0001, t01=0x0168}
0x0344…0394 Head {h00=0x004c, h01=0x0050, text=»* THE ACCOUNT RECORD MUST BE UNDER EXCLUSIVE ACCES AND AVAILABLE *«, t00=0x0002, t01=0x0028}
0x0394…03e4 Head {h00=0x004c, h01=0x0050, text=»* IN UWB 'UA1'. *«, t00=0x0002, t01=0x0078}
0x03e4…0434 Head {h00=0x004c, h01=0x0050, text=»* THE TRANSACTION RECORDS ARE READ INTO UWB 'UT2', SO 'UT1' *«, t00=0x0002, t01=0x00c8}
0x0434…0484 Head {h00=0x004c, h01=0x0050, text=»* REMAINS UNCHANGED. *«, t00=0x0002, t01=0x0118}
0x0484…04d4 Head {h00=0x004c, h01=0x0050, text=»* 'FCBUFFER' IS THE ONLY BUFFER USED BY THIS ROUTINE. *«, t00=0x0002, t01=0x0168}
0x04d4…0524 Head {h00=0x004c, h01=0x0050, text=»* THE BOOK-BALANCE, LINENUMBER AND LAST TRANSACTION STATEMENTED *«, t00=0x0003, t01=0x0028}
0x0524…0574 Head {h00=0x004c, h01=0x0050, text=»* ARE UPDATED IN THE ACCOUNT RECORD. *«, t00=0x0003, t01=0x0078}
0x0574…05c4 Head {h00=0x004c, h01=0x0050, text=»* IF ANY OF THESE VALUES HAVE BEEN UPDATED IN THE ROUTINE, *«, t00=0x0003, t01=0x00c8}
0x05c4…0614 Head {h00=0x004c, h01=0x0050, text=»* THE ACCOUNT RECORD MUST BE REWRITTEN TO THE DATABASE. *«, t00=0x0003, t01=0x0118}
0x0614…0664 Head {h00=0x004c, h01=0x0050, text=»* IF THE ACCOUNT IS CLOSED THEN A CLOSE LINE MUST BE PRINTED *«, t00=0x0003, t01=0x0168}
0x0664…06b4 Head {h00=0x004c, h01=0x0050, text=»* AND THE ACCOUNT STATUS MUST BE SET TO 'CLOSED WITH STATM.' *«, t00=0x0004, t01=0x0028}
0x06b4…0704 Head {h00=0x004c, h01=0x0050, text=»* USE OF VARIABLES: *«, t00=0x0004, t01=0x0078}
0x0704…0754 Head {h00=0x004c, h01=0x0050, text=»* NDPRTTRS: POINTS TO THE NEXT TRANSACTION TO BE PRINTED. *«, t00=0x0004, t01=0x00c8}
0x0754…07a4 Head {h00=0x004c, h01=0x0050, text=»* NDNEWLINE: POINTS TO THE LINE ON WHICH MUST BE PRINTED. *«, t00=0x0004, t01=0x0118}
0x07a4…07f4 Head {h00=0x004c, h01=0x0050, text=»* UA1 (UWB): CONTAINS THE ACCOUNT RECORD. *«, t00=0x0004, t01=0x0168}
0x07f4…0844 Head {h00=0x004c, h01=0x0050, text=»* UT2 (UWB): USED TO READ THE TRANSACTION RECORDS. *«, t00=0x0005, t01=0x0028}
0x0844…0894 Head {h00=0x004c, h01=0x0050, text=»* FCBUFFER: BUFFER FOR DATABASE-I/O AND FORMAT-I/O. *«, t00=0x0005, t01=0x0078}
0x0894…08e4 Head {h00=0x004c, h01=0x0050, text=»* WORKVARIABLE USED: *«, t00=0x0005, t01=0x00c8}
0x08e4…0934 Head {h00=0x004c, h01=0x0050, text=»* WW1 *«, t00=0x0005, t01=0x0118}
0x0934…0984 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0168}
0x0984…09d4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x0028}
0x09d4…09f8 Head {h00=0x0020, h01=0x0050, text=»PBBOOK PROC PRINT PASSBOOK «, t00=0x0006, t01=0x0078}
0x09f8…0a48 Head {h00=0x004c, h01=0x0050, text=»PB000 «, t00=0x0006, t01=0x009c}
0x0a48…0a74 Head {h00=0x0028, h01=0x0050, text=» PERF PVATTP,DSVCHPRT ATTACH PRINTER«, t00=0x0006, t01=0x00ec}
0x0a74…0a96 Head {h00=0x001e, h01=0x0050, text=» CBNE RDPRTTYP,=D'0',PB005«, t00=0x0006, t01=0x0118}
0x0a96…0aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013a}
0x0aa0…0abe Head {h00=0x001a, h01=0x0050, text=»* 6371-PRINTER CONTROL«, t00=0x0006, t01=0x0144}
0x0abe…0ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0162}
0x0ac8…0ae0 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'18'«, t00=0x0006, t01=0x016c}
0x0ae0…0b12 Head {h00=0x002e, h01=0x0050, text=» MOVE VCDOCPAR,=C'1010313801100033000000' «, t00=0x0006, t01=0x0184}
0x0b12…0b40 Head {h00=0x002a, h01=0x0050, text=» DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 «, t00=0x0007, t01=0x0026}
0x0b40…0b60 Head {h00=0x001c, h01=0x0050, text=» DSC1 DSVCHPRT,X'00',KW0«, t00=0x0007, t01=0x0054}
0x0b60…0b7a Head {h00=0x0016, h01=0x0050, text=» MOVE WW1,=X'8066'«, t00=0x0007, t01=0x0074}
0x0b7a…0b9a Head {h00=0x001c, h01=0x0050, text=» DSC1 DSVCHPRT,X'0D',WW1«, t00=0x0007, t01=0x008e}
0x0b9a…0ba8 Head {h00=0x000a, h01=0x0050, text=»PB005 «, t00=0x0007, t01=0x00ae}
0x0ba8…0bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00bc}
0x0bb2…0c02 Head {h00=0x004c, h01=0x0050, text=»* SAVE ACCOUNT-RECORD VALUES IN WORKFIELDS *«, t00=0x0007, t01=0x00c6}
0x0c02…0c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0116}
0x0c0c…0c5c Head {h00=0x004c, h01=0x0050, text=»* NDPRTTRS WILL POINT TO THE NEXT TRANSACTION TO BE PRINTED *«, t00=0x0007, t01=0x0120}
0x0c5c…0c60 Head {h00=0x0054, h01=0x0050}
0x0c60…0c64 Head {h00=0x5c4d, h01=0x4f56}
0x0c64…0c80 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 ┆E NDPRTTRS,ADSTMTRS ┆
0x0c80…0cd0 (8, 0, 398) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 01 70 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 ┆ p L P* NDNEWLNE WILL POINT TO┆
0x0cd0…0d20 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 38 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 ┆ THE FIRST FREE LINE IN THE BOOK * 8 T P MOVE NDNEWLNE,ADLNENR ┆
0x0d20…0d70 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 08 00 88 00 0a 00 50 50 42 30 38 30 20 00 08 00 e0 00 22 00 50 5c 50 ┆ PPB080 " P P┆
0x0d70…0dc0 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 00 ee 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 50 52 ┆ERF XCLAMP,KW4,KW1 LAMP 4 ON 6 P PERF XEERR,=W'49',KW3 'MOUNT PASSBOOK IN PR┆
0x0dc0…0e0e 49 4e 54 45 52 27 00 08 01 14 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 08 01 4e 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 08 01 76 ┆INTER' $ P PERF XCLAMP,KW4,KW0 LAMP 4 OFF N P TBT SBCANCEL,PB990 v┆
0x0e0e…0e5e (9, 0, 400) 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 04 ┆ L P* * ┆
0x0e5e…0eae 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 54 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 T : P* IN THIS LOOP, ONE TRANSACTION IS PRINTED I┆
0x0eae…0efe 4e 20 54 48 45 20 42 4f 4f 4b 00 09 00 74 00 06 00 50 2a 20 00 09 00 b2 00 0a 00 50 50 42 31 30 30 20 00 09 00 bc 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 t P* PPB100 6 P CBE ADSTMTRS,ADLASTRS,PB600 NO MORE T┆
0x0efe…0f4e 52 41 4e 53 41 43 54 49 4f 4e 53 20 00 09 00 ca 00 06 00 50 2a 20 00 09 01 04 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 P* L P* UPDATE NEXT TRANSACTION TO BE PRINTED ┆
0x0f4e…0f9e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 09 01 0e 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 09 01 5e 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 ┆ * " P* AND READ TRANSACTION RECORD ^ L P* ┆
0x0f9e…0fee (10, 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 00 00 00 00 00 00 2a 00 09 01 84 00 54 00 50 5c 50 45 52 46 5c 51 45 4e 54 52 53 ┆ * T P PERF QENTRS┆
0x0fee…103e 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 44 00 4c 00 50 5c 4d 4f 56 ┆,NDPRTTRS D L P MOV┆
0x103e…108e 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 00 9c 00 2c 00 50 5c 41 44 44 ┆E UDTRSRNR,ADACTRNR , P ADD┆
0x108e…10de 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 00 ec 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* ┆
0x10de…112e 00 00 00 00 00 00 00 00 00 00 00 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 01 1c 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┆
0x112e…117e (11, 0, 400) 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 0a 01 6c 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 L P* ┆
0x117e…11ce 00 00 00 00 00 00 00 00 00 00 00 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 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 ┆
0x11ce…121e 00 00 00 00 00 00 00 00 00 00 00 00 00 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 00 7c 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 ┆
0x121e…126e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 00 cc 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 ┆ & P TBT SBRECAVB,PB400 PRINT IN┆
0x126e…12be 20 42 4f 4f 4b 20 00 0b 01 24 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 0b 01 4e 00 0c 00 50 5c 42 5c 50 42 39 38 30 00 0b 01 7e 00 4c 00 50 2a 00 ┆ BOOK $ , P PERF XEERR,=W'38',KW1 'NO TRANSACTIONS' N P B PB980 ~ L P* ┆
0x12be…130e (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 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 01 8e 00 22 00 50 2a 20 ┆ * " P* ┆
0x130e…135e 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 4e 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 N L P* UPDATE LINENUMBER, LAST TRANSACTION STATEM┆
0x135e…13ae 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 00 74 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 * t 2 P* AND BOOK BALANCE IN THE ACCOUNTRECORD (UWB┆
0x13ae…13fe 29 20 00 0c 00 c4 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 ┆) L P* ┆
0x13fe…144e 00 2a 00 0c 00 fa 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 ┆
0x144e…149e (13, 0, 400) 00 00 00 0c 01 4a 00 10 00 50 5c 50 45 52 46 5c 50 59 50 4f 53 42 00 0d 00 0a 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 1e 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 ┆ J P PERF PYPOSB P TBT SBCANCEL,PB980 T P MOVE IDAMT2,UDAMOUNT ┆
0x149e…14ee 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 3a 00 06 00 50 2a 20 00 0d 00 92 00 28 00 50 2a 20 49 46 ┆ : P* ( P* IF┆
0x14ee…153e 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 00 9c 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┆
0x153e…158e 54 49 4e 47 00 0d 00 c8 00 06 00 50 2a 20 00 0d 00 fc 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 0d 01 06 00 2e 00 50 5c 43 42 45 5c 55 44 54 52 53 43 44 45 2c ┆TING P* ( P CBE UDTRSCDE,=D'2',PB420 WITHDRAWAL . P CBE UDTRSCDE,┆
0x158e…15de 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 0d 01 32 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) 2 0 P CBE UDTRSCDE,=D'16',PB420 CHEQUE WITHDRAWAL┆
0x15de…162e (14, 0, 398) 00 0d 01 64 00 0c 00 50 5c 42 5c 50 42 34 35 30 00 0e 00 08 00 0a 00 50 50 42 34 32 30 20 00 0e 00 18 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 26 00 0a 00 50 50 42 ┆ d P B PB450 PPB420 $ P MUL IDAMT2,=D'-1' NEGATE AMOUNT & PPB┆
0x162e…167e 34 35 30 20 00 0e 00 4e 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 5c 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 N & P EDWRT DSVCHPRT,PRT014 WRITE LINE , P MOVE ADLNENR,NDNEWLNE UPD┆
0x167e…16ce 41 54 45 20 4c 49 4e 45 4e 55 4d 42 45 52 00 0e 00 86 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 00 b6 00 54 00 50 5c 4d 4f 56 45 5c ┆ATE LINENUMBER 0 P MOVE ADLIMBOK,UDNEWBAL UPDATE BOOK BALANCE T P MOVE ┆
0x16ce…171e 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 00 ea 00 4c ┆ADSTMTRS,NDPRTTRS UPDATE LAST TRANS. STATEMENTED L┆
0x171e…176c 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 0e 01 42 ┆ P* * B┆
0x176c…17bc (15, 0, 398) 00 2c 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 04 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 ┆ , P* NEXT TRANSACTION, END OF THE MAIN LOOP L P* ┆
0x17bc…180c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 34 00 0c 00 50 5c 42 5c 50 42 31 30 30 00 0f 00 84 00 06 00 50 2a 20 00 0f 00 94 00 2e 00 50 2a 20 ┆ * 4 P B PB100 P* . P* ┆
0x180c…185c 41 4c 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 00 9e 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 ┆ALL TRANSACTIONS HAVE BEEN STATEMENTED, 2 P* IF THE ACCOUNT IS CLOSED, UPDA┆
0x185c…18ac 54 45 20 53 54 41 54 55 53 20 41 4e 44 20 00 0f 00 d0 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 0f 01 06 00 06 00 50 2a 20 00 0f 01 22 00 0a 00 50 50 42 36 30 30 20 00 0f 01 2c 00 28 00 50 5c 43 42 4c 5c 41 ┆TE STATUS AND P* PRINT A CLOSE LINE P* " PPB600 , ( P CBL A┆
0x18ac…18fa 44 53 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 0f 01 3a 00 06 00 50 2a 20 00 0f 01 66 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 0f 01 70 00 06 00 50 2a 20 ┆DSTATUS,=D'2',PB980 NOT CLOSED : P* f P* PRINT A CLOSE LINE p P* ┆
0x18fa…194a (16, 0, 400) 00 0f 01 8c 00 10 00 50 5c 50 45 52 46 5c 50 59 50 4f 53 42 00 10 00 08 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 1c 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 38 ┆ P PERF PYPOSB P TBT SBCANCEL,PB980 P MOVE SPBINW4,=W'51' 8┆
0x194a…199a 00 2e 00 50 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 54 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 ┆ . P PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER T P EDWRT DSVCHPRT,FCBUFFER ┆
0x199a…19ea 00 86 00 22 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 00 a6 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 00 cc 00 32 00 50 5c 4d 4f 56 45 5c ┆ " P* UPDATE LINENUMBER AND STATUS P MOVE ADLNENR,NDNEWLNE 2 P MOVE ┆
0x19ea…1a3a 41 44 53 54 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 00 ea 00 06 00 50 2a 20 00 10 01 20 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 ┆ADSTATUS,=D'3' CLOSED WITH STATEMENTING P* 0 P* REWRITE THE ACCOUNT ┆
0x1a3a…1a8a 52 45 43 4f 52 44 20 54 4f 20 54 48 45 20 44 41 54 41 42 41 53 45 00 10 01 2a 00 06 00 50 2a 20 00 10 01 5e 00 0a 00 50 50 42 39 38 30 20 00 10 01 68 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 ┆RECORD TO THE DATABASE * P* ^ PPB980 h T P PERF ZDRWRD,ADACTRNR,NDLR┆
0x1a8a…1ada (17, 0, 400) 4e 31 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 10 01 76 00 06 00 50 2a 20 00 11 00 3e 00 16 00 50 2a 20 52 45 4c 45 41 53 ┆N1 v P* > P* RELEAS┆
0x1ada…1b2a 45 20 50 41 53 53 42 4f 4f 4b 00 11 00 48 00 06 00 50 2a 20 00 11 00 62 00 0a 00 50 50 42 39 39 30 20 00 11 00 6c 00 14 00 50 5c 44 53 43 30 5c 44 53 56 43 48 50 52 54 2c 31 00 11 00 7a 00 28 00 50 5c 50 45 52 46 5c 50 57 44 45 54 50 2c 44 ┆E PASSBOOK H P* b PPB990 l P DSC0 DSVCHPRT,1 z ( P PERF PWDETP,D┆
0x1b2a…1b7a 53 56 43 48 50 52 54 5c 44 45 54 41 43 48 20 50 52 49 4e 54 45 52 00 11 00 92 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 00 00 00 00 00 00 00 00 00 00 ┆SVCHPRT DETACH PRINTER L P RET ┆
0x1b7a…1bca 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 be 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 00 00 00 00 00 00 00 00 00 00 ┆ L P PEND ┆
0x1bca…1c1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 01 0e 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 ┆ L P**************************************************┆
0x1c1a…1c6a (18, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 11 01 5e 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 ┆********************** ^ L P* ┆
0x1c6a…1cba 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 12 00 1e 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 20 20 20 20 20 20 20 20 20 20 ┆ * L P* PRINT , PASSBOOK LINE ┆
0x1cba…1d0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 12 00 6e 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 ┆ * n L P* ┆
0x1d0a…1d5a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 12 00 be 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 ┆ * L P**************************************************┆
0x1d5a…1daa 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 12 01 0e 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 00 00 00 00 00 00 00 00 00 00 ┆********************** L PPRT014 FRMT ┆
0x1daa…1dfa (19, 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 12 01 5e 00 10 00 50 5c 46 54 45 58 54 5c 27 20 20 27 20 00 13 00 1e 00 4c 00 50 5c 46 4d 45 4c 5c 27 5a 5a 5a 5a 5a 5a 27 2c 55 44 44 41 54 45 5c 5c 5c 00 00 00 00 00 00 ┆ ^ P FTEXT ' ' L P FMEL 'ZZZZZZ',UDDATE ┆
0x1dfa…1e4a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 32 00 4c 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 33 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2 L P FILLR ' ',3 ┆
0x1e4a…1e9a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 82 00 48 00 50 5c 46 4d 45 4c 5c 27 39 39 39 39 39 39 27 2c 55 44 54 52 53 53 45 51 5c 5c 5c 00 00 00 00 ┆ H P FMEL '999999',UDTRSSEQ ┆
0x1e9a…1eea 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 d2 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 00 00 00 00 00 00 00 00 00 00 ┆ L P FILLR ' ',4 ┆
0x1eea…1f3a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1e 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 5c 5c 00 00 00 00 00 00 00 00 ┆ L P FMEL 'ZZZZZZ',IDACTNR1 ┆
0x1f3a…1f8a (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 13 01 6e 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 00 00 00 00 00 00 00 00 00 00 ┆ n L P FILLR ' ',2 ┆
0x1f8a…1fda 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 2e 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 49 44 41 4d 54 32 00 14 00 7e ┆ . " P FMEL 'F*ZVZZZVZZ9,99-',IDAMT2 ~┆
0x1fda…202a 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 00 14 00 a4 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 14 00 b8 00 54 00 50 5c 46 4d 45 4e 44 5c 5c 5c 5c 00 00 00 00 00 00 ┆ P FILLR ' ',2 $ P FMEL 'F*ZVZZZVZZ9,99-',UDNEWBAL T P FMEND ┆
0x202a…207a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 e0 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a ┆ L P********┆
0x207a…20ca 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 14 01 38 00 10 00 50 50 59 50 4f 53 42 5c 50 ┆**************************************************************** 8 PPYPOSB P┆
0x20ca…211a (21, 0, 400) 52 4f 43 20 00 14 01 88 00 0a 00 50 50 59 34 30 30 20 00 15 00 0c 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 ┆ROC PPY400 L P* ┆
0x211a…216a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 15 00 1a 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 00 00 00 00 00 00 00 00 00 00 ┆ * L P* VALUE OF ADLNENR: ┆
0x216a…21ba 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 15 00 6a 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 00 00 00 00 00 00 00 00 00 00 ┆ * j L P* 0: NEW ACCOUNT, NO LINES PRINTED YET ┆
0x21ba…220a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 15 00 ba 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 00 00 00 00 00 00 00 00 00 00 ┆ * L P* 1-24: LAST LINE PRINTED IN THE BOOK ┆
0x220a…225a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 15 01 0a 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 ┆ * L P* ┆
0x225a…22aa (22, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 15 01 5a 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 00 00 00 00 00 00 00 00 00 00 ┆ * Z L P* CALCULATE THE FIRST FREE LINE IN THE BOOK ┆
0x22aa…22fa 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 16 00 1a 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 ┆ * L P* ┆
0x22fa…234a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 16 00 6a 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 00 00 00 00 00 00 00 00 00 00 ┆ * j L P ADD NDNEWLNE,=D'1' ┆
0x234a…239a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 16 00 ba 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 00 00 00 00 00 00 00 00 00 00 ┆ L P CBL NDNEWLNE,=D'25',PY300 ┆
0x239a…23ea 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 16 01 0a 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 00 00 00 00 00 00 00 00 00 00 ┆ L P MOVE NDNEWLNE,=D'1' START ON NEW PAGE ┆
0x23ea…243a (23, 0, 398) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 16 01 5a 00 0a 00 50 50 59 33 30 30 20 00 17 00 1a 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 ┆ Z PPY300 L P* ┆
0x243a…248a 00 00 00 00 00 00 00 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 00 28 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 00 00 00 00 00 00 00 00 00 00 ┆ * ( L P* CHECK PASSBOOK ON NEW PAGE ┆
0x248a…24da 00 00 00 00 00 00 00 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 00 78 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 ┆ * x L P* ┆
0x24da…252a 00 00 00 00 00 00 00 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 00 c8 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 41 43 54 49 4f 4e 5c 5c 00 00 ┆ * N P CBNE ADLNENR,=D'24',PY500 NO ACTION ┆
0x252a…2578 00 00 00 00 00 00 00 00 00 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 01 18 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 46 4c 41 53 48 49 4e 47 ┆ ( P PERF XCLAMP,KW4,KW2 LAMP 4 FLASHING┆
0x2578…25c8 (24, 0, 400) 00 17 01 6a 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 00 00 00 00 00 00 00 00 ┆ j L P DSC0 DSVCHPRT,1 RELEASE PASSBOOK ┆
0x25c8…2618 00 18 00 08 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 00 58 00 24 00 50 5c 50 45 52 46 5c 58 43 4c 41 4d 50 ┆ 8 P PERF XEERR,=W'50',KW3 'CHECK PASSBOOK ON NEW PAGE' X $ P PERF XCLAMP┆
0x2618…2668 2c 4b 57 34 2c 4b 57 30 5c 4c 41 4d 50 20 34 20 4f 46 46 20 00 18 00 94 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 18 00 bc 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 ┆,KW4,KW0 LAMP 4 OFF P TBT SBCANCEL,PY999 L P* ┆
0x2668…26b8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 d8 00 4c 00 50 2a 20 20 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 4c 49 4e 45 20 46 ┆ * L P* GET NUMBER OF LINE F┆
0x26b8…2708 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 18 01 28 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 ┆EEDS, POSITION PASSBOOK * ( L P* ┆
0x2708…2758 (25, 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 2a 00 18 01 78 00 0a 00 50 50 59 35 30 30 20 00 19 00 38 00 4c 00 50 5c 4d 4f 56 45 20 20 20 5c 57 ┆ * x PPY500 8 L P MOVE W┆
0x2758…27a8 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 00 46 00 4e 00 50 5c 53 55 42 5c 57 44 45 43 31 ┆DEC1,=D'24' F N P SUB WDEC1┆
0x27a8…27f8 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 00 96 00 4c 00 50 5c 41 44 44 5c 57 44 45 ┆,NDNEWLNE GET NUMBER OF LINE STEPS L P ADD WDE┆
0x27f8…2848 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 19 00 e8 00 28 00 50 5c 50 45 52 46 5c 50 5a ┆C1,WDEC1 GET NUMBER OF LINE FEEDS ( P PERF PZ┆
0x2848…2898 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 19 01 38 00 0a 00 50 50 59 39 39 39 20 00 19 01 64 00 08 00 50 5c 52 45 54 00 19 01 72 00 0a 00 50 5c 50 45 4e 44 20 00 19 01 7e 00 4c 00 50 2a 2a 2a 2a ┆POSD,WDEC1 POSITION PASSBOOK 8 PPY999 d P RET r P PEND ~ L P****┆
0x2898…28e8 (26, 2, 92) 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 19 01 8c 00 08 00 04 5c 45 4e 44 ┆******************************************************************** END┆
0x28e8…28f4 00 1a 00 4c 40 04 00 00 00 1a 00 58 ┆ L@ X┆
0x28f4…28fc (27, 1, 8) 20 04 00 00 00 1b 00 04 ┆ ┆