|
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: 4664 (0x1238)
Notes: pts_type(SC)
Names: »DJUACT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DJUACT.SC«
└─⟦this⟧ »DEMO6800/DJUACT.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DJUACT.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/DJUACT.SC«
IDENT DJUACT UPDATE ACCOUNT
DDUM DEMODD
PDIV
EXPROC PAJRN
EXPROC QENTRS
EXPROC XBFMT
EXPROC ZDRWRD
EXPROC ZHWRID
ENTRY DJUACT
ENTRY SPAP30
************************************************************************
*
* UPDATE ACCOUNT
*
************************************************************************
DJUACT PROC
DJ000
SET SBUACT
TBT SBKEY2,DJ500
MOVE TDTRSCDE,=D'88'
PERF PAJRN,=W'1' JOURNAL LINE 1
PERF PAJRN,=W'2' JOURNAL LINE 2
PERF XBFMT,=W'52' UPDATE ACCOUNT SCREEN 1
TBT SBCANCEL,DJ999
B DJ520
DJ500
MOVE TDTRSCDE,=D'89'
PERF PAJRN,=W'1' JOURNAL LINE 1
PERF PAJRN,=W'2' JOURNAL LINE 2
MOVE TDNEWBAL,ADBAL TO DISPLAY CURRENT BALANCE
PERF XBFMT,=W'53'
TBT SBCANCEL,DJ999
*
* UPDATE LAST TRANSACTION SEQUENCE NUMBER
*
DJ520
ADD YDLASSEQ,=D'1'
MOVE ADLASSEQ,YDLASSEQ
MOVE TDTRSSEQ,YDLASSEQ
*
* TO GET ZERO REPRESENTED AS +0
* TDNEWBAL IS MULTIPLIED BY 1
*
MUL TDNEWBAL,=D'1'
*
* MAKE A TRANSACTION RECORD
* IF KEY 2 IS ON AND THE BALANCE HAS BEEN CHANGED BY THE OPERATOR
*
TBF SBKEY2,DJ550 KEY 2 IS OFF
CBNE ADBAL,TDNEWBAL,DJ570 BALANCE CHANGED
*
* KEY 1 ON OR BALANCE UNCHANGED,
* REWRITE ACCOUNT RECORD
*
DJ550
PERF ZDRWRD,ADACTRNR,NDLRN1
B DJ999
*
* BALANCE IS UPDATED, MAKE A TRANSACTION RECORD
*
DJ570
PERF QENTRS,ADLASTRS
MOVE TDTRSRNR,ADACTRNR COMPUTE TDTRSRNR
ADD TDTRSRNR,ADLASTRS
*
* ACTION ASSUMED TO BE A WITHDRAWAL OR A DEPOSIT ?
*
CBG ADBAL,TDNEWBAL,DJ600 WITHDRAWAL
*
* DEPOSIT
*
MOVE TDTRSCDE,=D'7'
*
* COMPUTE TDAMOUNT FOR INCREASED BALANCE
*
MOVE TDAMOUNT,TDNEWBAL
SUB TDAMOUNT,ADBAL
ADD ADDEPCUM,TDAMOUNT
B DJ800
DJ600
*
* WITHDRAWAL
*
MOVE TDTRSCDE,=D'2'
*
* COMPUTE TDAMOUNT FOR REDUCED BALANCE
*
MOVE TDAMOUNT,ADBAL
SUB TDAMOUNT,TDNEWBAL
ADD ADWDRCUM,TDAMOUNT
*
* WRITE TRANSACTIONRECORD TO DATABASE
*
DJ800
PERF ZHWRID,TDTRSRNR,NDLRN2
TBT SBCANCEL,DJ999
*
* REWRITE ACCOUNTRECORD
*
MOVE ADBAL,TDNEWBAL
PERF ZDRWRD,ADACTRNR,NDLRN1
TBT SBCANCEL,DJ999
*
*
* UPDATE OPERATOR BALANCES
*
CBE TDTRSCDE,=D'2',DJ850 WITHDRAWAL TRANSACTION
* DEPOSIT
ADD ODCASH(KW1,KW4),TDAMOUNT BALANCE,CASH
ADD ODCASH(KW2,KW3),TDAMOUNT ACCUMULATED DEPOSITS
B DJ999
* WITHDRAWAL
DJ850
SUB ODCASH(KW1,KW4),TDAMOUNT BALANCE CASH
ADD ODCASH(KW2,KW4),TDAMOUNT ACCUMULTED WITHDRAWALS
DJ999
CLEAR SBUACT
RET
PEND
********************************************************************
SPAP30 PROC XWRET
PBIN XWRET
S30000
CBE ADBAL,TDNEWBAL,S30990
*
* SPACE AVAILABLE FOR TRANSACTIONRECORDS ?
*
MOVE WDEC1,ADLASTRS
PERF QENTRS,WDEC1
CBNE ADSTMTRS,WDEC1,S30990 TRANSACTIONS POSSIBLE
MOVE XWRET,=W'1'
MOVE SPBINW4,=W'56' 'NO TRANSACTIONS POSSIBLE'
B S30999
S30990
MOVE XWRET,=W'0'
S30999
RET
PEND
*******************************************************************
END
0x0000…0040 (0, 0, 400) Head {h00=0x003c, h01=0x0038, text=» IDENT DJUACT UPDATE ACCOUNT«, t00=0x0000, t01=0x0004}
0x0040…0054 Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x0044}
0x0054…0062 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0058}
0x0062…0078 Head {h00=0x0012, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x0066}
0x0078…008e Head {h00=0x0012, h01=0x0050, text=» EXPROC QENTRS«, t00=0x0000, t01=0x007c}
0x008e…00a4 Head {h00=0x0012, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x0092}
0x00a4…00ba Head {h00=0x0012, h01=0x0050, text=» EXPROC ZDRWRD«, t00=0x0000, t01=0x00a8}
0x00ba…00d0 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZHWRID«, t00=0x0000, t01=0x00be}
0x00d0…00e6 Head {h00=0x0012, h01=0x000d, text=» ENTRY DJUACT «, t00=0x0000, t01=0x00d4}
0x00e6…00fc Head {h00=0x0012, h01=0x000d, text=» ENTRY SPAP30 «, t00=0x0000, t01=0x00ea}
0x00fc…014c Head {h00=0x004c, h01=0x004a, text=»************************************************************************«, t00=0x0000, t01=0x0100}
0x014c…0156 Head {h00=0x0006, h01=0x0049, text=»* «, t00=0x0000, t01=0x0150}
0x0156…0170 Head {h00=0x0016, h01=0x004a, text=»* UPDATE ACCOUNT«, t00=0x0000, t01=0x015a}
0x0170…017a Head {h00=0x0006, h01=0x0049, text=»* «, t00=0x0000, t01=0x0174}
0x017a…01ca Head {h00=0x004c, h01=0x0049, text=»************************************************************************«, t00=0x0000, t01=0x017e}
0x01ca…01de Head {h00=0x0010, h01=0x0050, text=»DJUACT PROC «, t00=0x0001, t01=0x003e}
0x01de…01ec Head {h00=0x000a, h01=0x0005, text=»DJ000 «, t00=0x0001, t01=0x0052}
0x01ec…0200 Head {h00=0x0010, h01=0x000b, text=» SET SBUACT «, t00=0x0001, t01=0x0060}
0x0200…021a Head {h00=0x0016, h01=0x0011, text=» TBT SBKEY2,DJ500 «, t00=0x0001, t01=0x0074}
0x021a…0238 Head {h00=0x001a, h01=0x0015, text=» MOVE TDTRSCDE,=D'88' «, t00=0x0001, t01=0x008e}
0x0238…0260 Head {h00=0x0024, h01=0x0020, text=» PERF PAJRN,=W'1' JOURNAL LINE 1«, t00=0x0001, t01=0x00ac}
0x0260…0288 Head {h00=0x0024, h01=0x0020, text=» PERF PAJRN,=W'2' JOURNAL LINE 2«, t00=0x0001, t01=0x00d4}
0x0288…02ba Head {h00=0x002e, h01=0x002a, text=» PERF XBFMT,=W'52' UPDATE ACCOUNT SCREEN 1«, t00=0x0001, t01=0x00fc}
0x02ba…02d6 Head {h00=0x0018, h01=0x0013, text=» TBT SBCANCEL,DJ999 «, t00=0x0001, t01=0x012e}
0x02d6…02e6 Head {h00=0x000c, h01=0x0050, text=» B DJ520«, t00=0x0001, t01=0x014a}
0x02e6…02f4 Head {h00=0x000a, h01=0x0005, text=»DJ500 «, t00=0x0001, t01=0x015a}
0x02f4…0312 Head {h00=0x001a, h01=0x0015, text=» MOVE TDTRSCDE,=D'89' «, t00=0x0001, t01=0x0168}
0x0312…033a Head {h00=0x0024, h01=0x0020, text=» PERF PAJRN,=W'1' JOURNAL LINE 1«, t00=0x0001, t01=0x0186}
0x033a…0362 Head {h00=0x0024, h01=0x0020, text=» PERF PAJRN,=W'2' JOURNAL LINE 2«, t00=0x0002, t01=0x001e}
0x0362…039a Head {h00=0x0034, h01=0x0050, text=» MOVE TDNEWBAL,ADBAL TO DISPLAY CURRENT BALANCE «, t00=0x0002, t01=0x0046}
0x039a…03b4 Head {h00=0x0016, h01=0x0012, text=» PERF XBFMT,=W'53'«, t00=0x0002, t01=0x007e}
0x03b4…03d0 Head {h00=0x0018, h01=0x0013, text=» TBT SBCANCEL,DJ999 «, t00=0x0002, t01=0x0098}
0x03d0…03da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b4}
0x03da…040c Head {h00=0x002e, h01=0x0050, text=»* UPDATE LAST TRANSACTION SEQUENCE NUMBER «, t00=0x0002, t01=0x00be}
0x040c…0416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f0}
0x0416…0424 Head {h00=0x000a, h01=0x0050, text=»DJ520 «, t00=0x0002, t01=0x00fa}
0x0424…0440 Head {h00=0x0018, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x0002, t01=0x0108}
0x0440…0460 Head {h00=0x001c, h01=0x0050, text=» MOVE ADLASSEQ,YDLASSEQ «, t00=0x0002, t01=0x0124}
0x0460…0480 Head {h00=0x001c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ «, t00=0x0002, t01=0x0144}
0x0480…048a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0164}
0x048a…04b2 Head {h00=0x0024, h01=0x0050, text=»* TO GET ZERO REPRESENTED AS +0«, t00=0x0002, t01=0x016e}
0x04b2…04d8 Head {h00=0x0022, h01=0x0050, text=»* TDNEWBAL IS MULTIPLIED BY 1 «, t00=0x0003, t01=0x0008}
0x04d8…04e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002e}
0x04e2…04fe Head {h00=0x0018, h01=0x0050, text=» MUL TDNEWBAL,=D'1' «, t00=0x0003, t01=0x0038}
0x04fe…0508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0054}
0x0508…052c Head {h00=0x0020, h01=0x0050, text=»* MAKE A TRANSACTION RECORD «, t00=0x0003, t01=0x005e}
0x052c…0576 Head {h00=0x0046, h01=0x0050, text=»* IF KEY 2 IS ON AND THE BALANCE HAS BEEN CHANGED BY THE OPERATOR «, t00=0x0003, t01=0x0082}
0x0576…0580 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00cc}
0x0580…05a6 Head {h00=0x0022, h01=0x0050, text=» TBF SBKEY2,DJ550 KEY 2 IS OFF«, t00=0x0003, t01=0x00d6}
0x05a6…05d8 Head {h00=0x002e, h01=0x0050, text=» CBNE ADBAL,TDNEWBAL,DJ570 BALANCE CHANGED«, t00=0x0003, t01=0x00fc}
0x05d8…05e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x05e2…060a Head {h00=0x0024, h01=0x0050, text=»* KEY 1 ON OR BALANCE UNCHANGED,«, t00=0x0003, t01=0x0138}
0x060a…062a Head {h00=0x001c, h01=0x0050, text=»* REWRITE ACCOUNT RECORD«, t00=0x0003, t01=0x0160}
0x062a…0634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0180}
0x0634…0642 Head {h00=0x000a, h01=0x0050, text=»DJ550 «, t00=0x0003, t01=0x018a}
0x0642…0666 Head {h00=0x0020, h01=0x0050, text=» PERF ZDRWRD,ADACTRNR,NDLRN1«, t00=0x0004, t01=0x0008}
0x0666…0676 Head {h00=0x000c, h01=0x0050, text=» B DJ999«, t00=0x0004, t01=0x002c}
0x0676…0680 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0004, t01=0x003c}
0x0680…06b8 Head {h00=0x0034, h01=0x0030, text=»* BALANCE IS UPDATED, MAKE A TRANSACTION RECORD«, t00=0x0004, t01=0x0046}
0x06b8…06c2 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0004, t01=0x007e}
0x06c2…06d0 Head {h00=0x000a, h01=0x0050, text=»DJ570 «, t00=0x0004, t01=0x0088}
0x06d0…06ee Head {h00=0x001a, h01=0x0015, text=» PERF QENTRS,ADLASTRS «, t00=0x0004, t01=0x0096}
0x06ee…071e Head {h00=0x002c, h01=0x0028, text=» MOVE TDTRSRNR,ADACTRNR COMPUTE TDTRSRNR«, t00=0x0004, t01=0x00b4}
0x071e…073c Head {h00=0x001a, h01=0x0016, text=» ADD TDTRSRNR,ADLASTRS«, t00=0x0004, t01=0x00e4}
0x073c…0746 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0004, t01=0x0102}
0x0746…0782 Head {h00=0x0038, h01=0x0034, text=»* ACTION ASSUMED TO BE A WITHDRAWAL OR A DEPOSIT ?«, t00=0x0004, t01=0x010c}
0x0782…078c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0004, t01=0x0148}
0x078c…07b8 Head {h00=0x0028, h01=0x0050, text=» CBG ADBAL,TDNEWBAL,DJ600 WITHDRAWAL«, t00=0x0004, t01=0x0152}
0x07b8…07c2 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0004, t01=0x017e}
0x07c2…07d4 Head {h00=0x000e, h01=0x000a, text=»* DEPOSIT«, t00=0x0004, t01=0x0188}
0x07d4…07de Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x000a}
0x07de…07fa Head {h00=0x0018, h01=0x0050, text=» MOVE TDTRSCDE,=D'7'«, t00=0x0005, t01=0x0014}
0x07fa…0804 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x0030}
0x0804…0836 Head {h00=0x002e, h01=0x0050, text=»* COMPUTE TDAMOUNT FOR INCREASED BALANCE «, t00=0x0005, t01=0x003a}
0x0836…0840 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x006c}
0x0840…0860 Head {h00=0x001c, h01=0x0050, text=» MOVE TDAMOUNT,TDNEWBAL «, t00=0x0005, t01=0x0076}
0x0860…087c Head {h00=0x0018, h01=0x0050, text=» SUB TDAMOUNT,ADBAL «, t00=0x0005, t01=0x0096}
0x087c…089a Head {h00=0x001a, h01=0x0050, text=» ADD ADDEPCUM,TDAMOUNT«, t00=0x0005, t01=0x00b2}
0x089a…08aa Head {h00=0x000c, h01=0x0008, text=» B DJ800«, t00=0x0005, t01=0x00d0}
0x08aa…08b8 Head {h00=0x000a, h01=0x0005, text=»DJ600 «, t00=0x0005, t01=0x00e0}
0x08b8…08c2 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0005, t01=0x00ee}
0x08c2…08d8 Head {h00=0x0012, h01=0x000d, text=»* WITHDRAWAL «, t00=0x0005, t01=0x00f8}
0x08d8…08e2 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x010e}
0x08e2…08fe Head {h00=0x0018, h01=0x0050, text=» MOVE TDTRSCDE,=D'2'«, t00=0x0005, t01=0x0118}
0x08fe…0908 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x0134}
0x0908…0938 Head {h00=0x002c, h01=0x0050, text=»* COMPUTE TDAMOUNT FOR REDUCED BALANCE «, t00=0x0005, t01=0x013e}
0x0938…0942 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x016e}
0x0942…095e Head {h00=0x0018, h01=0x0050, text=» MOVE TDAMOUNT,ADBAL«, t00=0x0005, t01=0x0178}
0x095e…097c (6, 0, 400) Head {h00=0x001a, h01=0x0050, text=» SUB TDAMOUNT,TDNEWBAL«, t00=0x0006, t01=0x0004}
0x097c…099a Head {h00=0x001a, h01=0x0050, text=» ADD ADWDRCUM,TDAMOUNT«, t00=0x0006, t01=0x0022}
0x099a…09a4 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0006, t01=0x0040}
0x09a4…09d2 Head {h00=0x002a, h01=0x0026, text=»* WRITE TRANSACTIONRECORD TO DATABASE«, t00=0x0006, t01=0x004a}
0x09d2…09dc Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0006, t01=0x0078}
0x09dc…09ea Head {h00=0x000a, h01=0x0050, text=»DJ800 «, t00=0x0006, t01=0x0082}
0x09ea…0a0e Head {h00=0x0020, h01=0x001c, text=» PERF ZHWRID,TDTRSRNR,NDLRN2«, t00=0x0006, t01=0x0090}
0x0a0e…0a2a Head {h00=0x0018, h01=0x0013, text=» TBT SBCANCEL,DJ999 «, t00=0x0006, t01=0x00b4}
0x0a2a…0a34 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0006, t01=0x00d0}
0x0a34…0a54 Head {h00=0x001c, h01=0x0018, text=»* REWRITE ACCOUNTRECORD«, t00=0x0006, t01=0x00da}
0x0a54…0a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fa}
0x0a5e…0a7a Head {h00=0x0018, h01=0x0050, text=» MOVE ADBAL,TDNEWBAL«, t00=0x0006, t01=0x0104}
0x0a7a…0a9e Head {h00=0x0020, h01=0x001c, text=» PERF ZDRWRD,ADACTRNR,NDLRN1«, t00=0x0006, t01=0x0120}
0x0a9e…0aba Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DJ999 «, t00=0x0006, t01=0x0144}
0x0aba…0ac4 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0006, t01=0x0160}
0x0ac4…0ace Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0006, t01=0x016a}
0x0ace…0af2 Head {h00=0x0020, h01=0x001b, text=»* UPDATE OPERATOR BALANCES «, t00=0x0006, t01=0x0174}
0x0af2…0afc Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x0008}
0x0afc…0b34 Head {h00=0x0034, h01=0x0050, text=» CBE TDTRSCDE,=D'2',DJ850 WITHDRAWAL TRANSACTION«, t00=0x0007, t01=0x0012}
0x0b34…0b46 Head {h00=0x000e, h01=0x0050, text=»* DEPOSIT «, t00=0x0007, t01=0x004a}
0x0b46…0b78 Head {h00=0x002e, h01=0x002a, text=» ADD ODCASH(KW1,KW4),TDAMOUNT BALANCE,CASH«, t00=0x0007, t01=0x005c}
0x0b78…0bb2 Head {h00=0x0036, h01=0x0032, text=» ADD ODCASH(KW2,KW3),TDAMOUNT ACCUMULATED DEPOSITS«, t00=0x0007, t01=0x008e}
0x0bb2…0bc2 Head {h00=0x000c, h01=0x0050, text=» B DJ999«, t00=0x0007, t01=0x00c8}
0x0bc2…0bd6 Head {h00=0x0010, h01=0x0050, text=»* WITHDRAWAL«, t00=0x0007, t01=0x00d8}
0x0bd6…0be4 Head {h00=0x000a, h01=0x0005, text=»DJ850 «, t00=0x0007, t01=0x00ec}
0x0be4…0c16 Head {h00=0x002e, h01=0x0050, text=» SUB ODCASH(KW1,KW4),TDAMOUNT BALANCE CASH«, t00=0x0007, t01=0x00fa}
0x0c16…0c52 Head {h00=0x0038, h01=0x0034, text=» ADD ODCASH(KW2,KW4),TDAMOUNT ACCUMULTED WITHDRAWALS«, t00=0x0007, t01=0x012c}
0x0c52…0c60 Head {h00=0x000a, h01=0x0005, text=»DJ999 «, t00=0x0007, t01=0x0168}
0x0c60…0c76 Head {h00=0x0012, h01=0x0050, text=» CLEAR SBUACT «, t00=0x0007, t01=0x0176}
0x0c76…0c84 Head {h00=0x000a, h01=0x0005, text=» RET «, t00=0x0007, t01=0x018c}
0x0c84…0c92 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0008, t01=0x000a}
0x0c92…0cde Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0008, t01=0x0018}
0x0cde…0cf8 Head {h00=0x0016, h01=0x0050, text=»SPAP30 PROC XWRET «, t00=0x0008, t01=0x0064}
0x0cf8…0d0c Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0008, t01=0x007e}
0x0d0c…0d1a Head {h00=0x000a, h01=0x0050, text=»S30000«, t00=0x0008, t01=0x0092}
0x0d1a…0d3c Head {h00=0x001e, h01=0x0050, text=» CBE ADBAL,TDNEWBAL,S30990«, t00=0x0008, t01=0x00a0}
0x0d3c…0d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c2}
0x0d46…0d7a Head {h00=0x0030, h01=0x0050, text=»* SPACE AVAILABLE FOR TRANSACTIONRECORDS ?«, t00=0x0008, t01=0x00cc}
0x0d7a…0d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0100}
0x0d84…0d8c Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x010a}
0x0d8c…0da8 Head {h00=0x0018, h01=0x0050, text=» MOVE WDEC1,ADLASTRS«, t00=0x0008, t01=0x0112}
0x0da8…0dc2 Head {h00=0x0016, h01=0x0050, text=» PERF QENTRS,WDEC1«, t00=0x0008, t01=0x012e}
0x0dc2…0dfc Head {h00=0x0036, h01=0x0050, text=» CBNE ADSTMTRS,WDEC1,S30990 TRANSACTIONS POSSIBLE «, t00=0x0008, t01=0x0148}
0x0dfc…0e16 Head {h00=0x0016, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x0008, t01=0x0182}
0x0e16…0e4e Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW4,=W'56' 'NO TRANSACTIONS POSSIBLE' «, t00=0x0009, t01=0x000c}
0x0e4e…0e60 Head {h00=0x000e, h01=0x0050, text=» B S30999 «, t00=0x0009, t01=0x0044}
0x0e60…0e6e Head {h00=0x000a, h01=0x0050, text=»S30990«, t00=0x0009, t01=0x0056}
0x0e6e…0e88 Head {h00=0x0016, h01=0x0050, text=» MOVE XWRET,=W'0' «, t00=0x0009, t01=0x0064}
0x0e88…0e96 Head {h00=0x000a, h01=0x0050, text=»S30999«, t00=0x0009, t01=0x007e}
0x0e96…0ea2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x008c}
0x0ea2…0eb0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0098}
0x0eb0…0efc Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0009, t01=0x00a6}
0x0efc…0f08 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0009, t01=0x00f2}
0x0f08…0f0c Head {h00=0x4004, h01=0x0000}
0x0f0c…0f10 00 09 00 fe ┆ ┆
0x0f10…0f18 (10, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x0f18…0f68 (11, 0, 400) e2 59 00 2b f6 a1 3f f4 f6 a1 41 70 57 5a 82 08 54 0c 52 28 f6 a1 3f f4 f6 a1 3f b6 57 4a ea 20 00 08 51 04 03 02 57 04 03 00 1a 08 e3 59 00 2b 03 00 ea 20 00 03 55 10 1a 03 51 04 8f 20 66 3c ea 20 00 03 59 0a 03 80 ea 20 00 02 51 0e 50 06 ┆ Y + ? ApWZ T R( ? ? WJ Q W Y + U Q f< Y Q P ┆
0x0f68…0fb8 ab 20 01 00 57 0a ab 20 03 00 57 04 ab 20 02 00 ab 59 00 28 f6 a1 41 6c a0 43 00 10 f6 a1 48 bc e1 58 00 2a 21 ff e9 20 00 0c 50 0e 83 56 00 02 e1 4c ff fe 21 03 8c 20 48 b8 8f 20 52 b4 82 58 00 30 82 59 00 38 f6 a1 3f e4 01 50 f6 a1 48 d8 ┆ W W Y ( Al C H X *! P V L ! H R X 0 Y 8 ? P H ┆
0x0fb8…1008 90 59 00 30 81 58 00 30 e9 58 00 32 5d 18 82 58 00 38 82 59 00 30 f6 a1 3f e4 f0 3a 82 58 00 30 01 00 3a 48 2a 01 f6 a1 48 c4 f0 3a 82 58 00 32 54 06 02 18 82 59 00 32 f0 3a 80 d8 00 0a 01 02 81 43 00 04 01 31 87 42 00 02 e1 5d 00 01 07 86 ┆ Y 0 X 0 X 2] X 8 Y 0 ? : X 0 :H* H : X 2T Y 2 : C 1 B ] ┆
0x1008…1058 f6 a1 4e 76 f0 3a 01 06 f6 a1 40 3a e1 58 00 2b 21 ff e9 20 00 03 8e 20 66 3c f6 a1 41 6c 8f 20 42 c0 f6 a1 48 bc 39 48 81 59 00 2a e1 32 94 a0 00 01 a0 59 00 28 e1 59 00 2b f6 a1 54 2a f6 a1 40 80 81 d9 00 34 81 a6 81 d9 00 30 f6 a1 53 ea ┆ Nv : @: X +! f< Al B H 9H Y * 2 Y ( Y + T* @ 4 0 S ┆
0x1058…10a8 f6 a1 40 80 81 d9 00 36 81 a6 81 d9 00 32 81 58 00 30 8a 20 66 40 f0 3a 81 0c 21 20 50 06 23 10 54 02 f0 3a 8f 20 65 f4 07 86 81 43 00 04 28 04 00 01 85 43 00 02 f0 3a 14 14 00 01 00 00 11 00 0a 09 00 08 08 00 00 44 0a a0 02 81 40 20 10 0c ┆ @ 6 2 X 0 f@ : ! P # T : e C ( C : D @ ┆
0x10a8…10f8 (12, 0, 400) 01 00 07 8b 80 ce 00 0a 82 43 00 0a 85 42 00 02 5f 20 07 b1 82 0c 5f 14 82 4e 00 0e f6 a1 40 a0 f6 a1 40 d6 ec 0c 50 04 f6 a1 40 b2 14 02 81 10 85 42 00 02 5f 46 80 8e 84 cf 00 28 81 4e 00 0a 84 44 00 02 83 10 93 44 00 0c 82 a0 00 3a 92 8e ┆ C B _ _ N @ @ P @ B _F ( N D D : ┆
0x10f8…1148 83 4b ff fe 01 2b e1 51 00 01 14 02 84 ce 00 02 e1 32 19 c0 50 2a 19 02 50 34 f6 a1 53 f6 f6 a1 5f ec 83 82 80 ce 00 0a 84 ce 00 28 9c 42 00 02 1c 02 83 4e 00 10 23 7f eb 10 56 02 83 10 f0 3a 94 a0 00 01 f6 a1 54 2a f6 a1 5f 6a 5f 2c 94 a0 ┆ K + Q 2 P* P4 S _ ( B N # V : T* _j_, ┆
0x1148…1198 00 01 f6 a1 55 cc 5f 3a 62 28 62 26 54 2a 62 26 62 26 62 26 61 e4 62 14 62 10 5f c6 5f 4c 5f c6 5f 1a 42 fa 44 04 44 04 62 26 42 ee 01 02 57 14 01 04 57 02 01 08 82 58 00 30 51 08 f6 a1 42 6c 8f 20 42 6a a9 59 00 28 01 0c e9 59 00 2a 50 04 ┆ U _:b(b&T*b&b&b&a b b _ _L_ _ B D D b&B W W X 0Q Bl Bj Y ( Y *P ┆
0x1198…11e8 80 d8 00 0a 07 80 f6 a1 4e 52 84 20 5e 48 a0 59 00 2c a0 59 00 2e 82 20 41 48 87 58 00 06 86 58 00 04 f6 a1 5e 7c f6 a1 48 bc e3 58 00 2a 23 ff 82 58 00 28 81 08 22 01 51 8a 82 04 22 02 50 0e 82 58 00 30 50 4a eb 20 00 0a 56 8a 5f 62 82 04 ┆ NR ^H Y , Y . AH X X ^| H X *# X ( " Q " P X 0PJ V _b ┆
0x11e8…1238 22 08 50 44 eb 20 00 02 54 0c 82 04 22 20 50 60 f6 a1 46 e6 57 70 82 04 22 10 50 12 82 20 ff ff 92 59 00 30 5d 8a 02 08 a2 59 00 28 5f 74 eb 20 00 04 50 0c eb 20 00 05 00 01 44 00 00 00 02 80 00 14 2f ff fc 01 40 0a 08 28 00 00 00 40 00 04 ┆" PD T " P` F Wp " P Y 0] Y (_t P D / @ ( @ ┆