|
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: 11168 (0x2ba0)
Notes: pts_type(SC)
Names: »EINIT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/EINIT.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/EINIT.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/EINIT.SC«
IDENT EINIT INITIALISATIONS
DDUM DEMODD
PDIV
ENTRY EAIOPR
ENTRY EBZACC
ENTRY ECICCY
ENTRY EDIAC1
ENTRY EFIAC2
ENTRY EEITR1
ENTRY EGITR2
ENTRY EHISYS
ENTRY EZIBUF
************************************************************************
*
* INITIALISE AN OPERATOR RECORD IN UWB UOP
**
************************************************************************
EAIOPR PROC
EA000
MOVE ODUMMY,=X'FF'
MOVE OCPASS,=C' '
MOVE OCNAME,=C' '
MOVE ODSTATUS,=D'0'
MOVE ODTRMNR,=X'FF'
MOVE ODOPRLGG,YDSYSLGG
MOVE WW2,=W'0'
EA100
ADD WW2,=W'1'
MOVE ODCASH(KW1,WW2),=D'0'
CBL WW2,=W'5',EA100
PERF EBZACC
EA999
RET
PEND
************************************************************************
*
* SET THE OPERATOR ACCUMULATORS TO ZERO
*
************************************************************************
EBZACC PROC
EB000
MOVE WW1,=W'1'
EB100
MOVE WW2,=W'0'
ADD WW1,=W'1' NEXT ROW
EB200
ADD WW2,=W'1' NEXT COLUMN
MOVE ODCASH(WW1,WW2),=D'0'
CBL WW2,=W'5',EB200
CBL WW1,=W'3',EB100
EB999
RET
PEND
************************************************************************
*
* INITIALISE A CURRENCY RECORD IN UWB UCY
*
***********************************************************************
ECICCY PROC
EC000
MOVE CDUMMY,=X'FF'
MOVE CCCCYNME,=C' '
MOVE CCCCYCDE,=C' '
MOVE CDBUY1,=X'0F'
MOVE CDBUY2,=D'0'
MOVE CDSEL1,=X'0F'
MOVE CDSEL2,=D'0'
MOVE CDLIMIT,=D'0'
MOVE CDRELAT,=D'1'
PEND
************************************************************************
**
* INITIALISE AN ACCOUNT RECORD IN UWB UA1
**
************************************************************************
EDIAC1 PROC
ED000
MOVE ADCARDNR,=X'FF'
MOVE ACNAME,=C' '
MOVE ACADDRES,=C' '
MOVE ACTOWN,=C' '
MOVE ACPASS,=C' '
MOVE ADSTATUS,=D'0'
MOVE ADBAL,=D'0'
MOVE ADLIMBOK,=D'0'
MOVE ADLASTRS,=D'8'
MOVE ADSTMTRS,=D'8'
MOVE ADLNENR,=D'0'
MOVE ADDEPCUM,=D'0'
MOVE ADWDRCUM,=D'0'
MOVE ADLASSEQ,=D'0'
RET
PEND
************************************************************************
**
* INITIALISE AN ACCOUNT RECORD IN UWB UA2
**
************************************************************************
EFIAC2 PROC
EF000
MOVE BDCARDNR,=X'FF'
MOVE BCNAME,=C' '
MOVE BCADDRES,=C' '
MOVE BCTOWN,=C' '
MOVE BCPASS,=C' '
MOVE BDSTATUS,=D'0'
MOVE BDBAL,=D'0'
MOVE BDLIMBOK,=D'0'
MOVE BDLASTRS,=D'8'
MOVE BDSTMTRS,=D'8'
MOVE BDLNENR,=D'0'
MOVE BDDEPCUM,=D'0'
MOVE BDWDRCUM,=D'0'
MOVE BDLASSEQ,=D'0'
RET
PEND
************************************************************************
**
* INITIALISE A TRANSACTION RECORD IN UWB UT1
**
************************************************************************
EEITR1 PROC
EE000
MOVE TDUMMY,=X'FF'
MOVE TDTRSCDE,=D'0'
MOVE TDDATE,NDDATE
MOVE TDTRMNR,NDTRMNR
MOVE TDOPRNR,RDOPRNR
MOVE TDTRSSEQ,=D'0'
MOVE TDAMOUNT,=D'0'
MOVE TDNEWBAL,=D'0'
MOVE TDACTFRM,=D'0'
MOVE TDCHQNR,=D'0'
MOVE TCTEXT,=C' '
RET
PEND
************************************************************************
**
* INITIALISE A TRANSACTION RECORD IN UWB UT2
**
************************************************************************
EGITR2 PROC
EG000
MOVE UDUMMY,=X'FF'
MOVE UDTRSCDE,=D'0'
MOVE UDDATE,NDDATE
MOVE UDTRMNR,NDTRMNR
MOVE UDOPRNR,RDOPRNR
MOVE UDTRSSEQ,=D'0'
MOVE UDAMOUNT,=D'0'
MOVE UDNEWBAL,=D'0'
MOVE UDACTFRM,=D'0'
MOVE UDCHQNR,=D'0'
MOVE UCTEXT,=C' '
RET
PEND
************************************************************************
**
* INITIALISE THE ACCOUNT AND TRANSACTION RECORDS IN THE UWB'S
**
************************************************************************
EZIBUF PROC
PERF EDIAC1
PERF EFIAC2
PERF EEITR1
PERF EGITR2
RET
PEND
************************************************************************
*
* INITIALISE THE SYSTEM RECORD
*
************************************************************************
EHISYS PROC
EH000
MOVE YDUMMY,=X'FF'
MOVE YCTEXT,=C' '
MOVE YDLASSAV,=D'167999'
MOVE YDLASCHQ,=D'167998'
MOVE YDLASSEQ,=D'0'
MOVE YDSTATUS,=D'1'
EH999
RET
PEND
************************************************************************
END
0x0000…0040 (0, 0, 400) Head {h00=0x003c, h01=0x0050, text=» IDENT EINIT INITIALISATIONS «, 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=» ENTRY EAIOPR «, t00=0x0000, t01=0x0066}
0x0078…008e Head {h00=0x0012, h01=0x0050, text=» ENTRY EBZACC «, t00=0x0000, t01=0x007c}
0x008e…00a4 Head {h00=0x0012, h01=0x0050, text=» ENTRY ECICCY «, t00=0x0000, t01=0x0092}
0x00a4…00ba Head {h00=0x0012, h01=0x0050, text=» ENTRY EDIAC1 «, t00=0x0000, t01=0x00a8}
0x00ba…00d0 Head {h00=0x0012, h01=0x0050, text=» ENTRY EFIAC2 «, t00=0x0000, t01=0x00be}
0x00d0…00e6 Head {h00=0x0012, h01=0x0050, text=» ENTRY EEITR1 «, t00=0x0000, t01=0x00d4}
0x00e6…00fc Head {h00=0x0012, h01=0x0050, text=» ENTRY EGITR2 «, t00=0x0000, t01=0x00ea}
0x00fc…0112 Head {h00=0x0012, h01=0x0050, text=» ENTRY EHISYS «, t00=0x0000, t01=0x0100}
0x0112…0128 Head {h00=0x0012, h01=0x0050, text=» ENTRY EZIBUF «, t00=0x0000, t01=0x0116}
0x0128…0178 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x012c}
0x0178…0182 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x017c}
0x0182…01b4 Head {h00=0x002e, h01=0x0050, text=»* INITIALISE AN OPERATOR RECORD IN UWB UOP«, t00=0x0000, t01=0x0186}
0x01b4…0204 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0028}
0x0204…0254 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x0078}
0x0254…02a4 Head {h00=0x004c, h01=0x0050, text=»EAIOPR PROC «, t00=0x0001, t01=0x00c8}
0x02a4…02f4 Head {h00=0x004c, h01=0x0050, text=»EA000 «, t00=0x0001, t01=0x0118}
0x02f4…0310 Head {h00=0x0018, h01=0x0050, text=» MOVE ODUMMY,=X'FF' «, t00=0x0001, t01=0x0168}
0x0310…0360 Head {h00=0x004c, h01=0x0050, text=» MOVE OCPASS,=C' ' «, t00=0x0001, t01=0x0184}
0x0360…03b0 Head {h00=0x004c, h01=0x0050, text=» MOVE OCNAME,=C' ' «, t00=0x0002, t01=0x0044}
0x03b0…0400 Head {h00=0x004c, h01=0x0050, text=» MOVE ODSTATUS,=D'0' «, t00=0x0002, t01=0x0094}
0x0400…0452 Head {h00=0x004e, h01=0x0050, text=» MOVE ODTRMNR,=X'FF' «, t00=0x0002, t01=0x00e4}
0x0452…0472 Head {h00=0x001c, h01=0x0050, text=» MOVE ODOPRLGG,YDSYSLGG «, t00=0x0002, t01=0x0136}
0x0472…04c2 Head {h00=0x004c, h01=0x0050, text=» MOVE WW2,=W'0' «, t00=0x0002, t01=0x0156}
0x04c2…0512 Head {h00=0x004c, h01=0x0050, text=»EA100 «, t00=0x0003, t01=0x0016}
0x0512…0562 Head {h00=0x004c, h01=0x0050, text=» ADD WW2,=W'1' «, t00=0x0003, t01=0x0066}
0x0562…05b2 Head {h00=0x004c, h01=0x0050, text=» MOVE ODCASH(KW1,WW2),=D'0' «, t00=0x0003, t01=0x00b6}
0x05b2…0602 Head {h00=0x004c, h01=0x0050, text=» CBL WW2,=W'5',EA100 «, t00=0x0003, t01=0x0106}
0x0602…0616 Head {h00=0x0010, h01=0x0050, text=» PERF EBZACC«, t00=0x0003, t01=0x0156}
0x0616…0666 Head {h00=0x004c, h01=0x0050, text=»EA999 «, t00=0x0003, t01=0x016a}
0x0666…06b6 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0004, t01=0x002a}
0x06b6…0706 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x007a}
0x0706…0756 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x00ca}
0x0756…0760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x011a}
0x0760…0790 Head {h00=0x002c, h01=0x0050, text=»* SET THE OPERATOR ACCUMULATORS TO ZERO «, t00=0x0004, t01=0x0124}
0x0790…079a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0154}
0x079a…07ea Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x015e}
0x07ea…083a Head {h00=0x004c, h01=0x0050, text=»EBZACC PROC «, t00=0x0005, t01=0x001e}
0x083a…088a Head {h00=0x004c, h01=0x0050, text=»EB000 «, t00=0x0005, t01=0x006e}
0x088a…08da Head {h00=0x004c, h01=0x0050, text=» MOVE WW1,=W'1' «, t00=0x0005, t01=0x00be}
0x08da…08e8 Head {h00=0x000a, h01=0x0050, text=»EB100 «, t00=0x0005, t01=0x010e}
0x08e8…0938 Head {h00=0x004c, h01=0x0050, text=» MOVE WW2,=W'0' «, t00=0x0005, t01=0x011c}
0x0938…0988 Head {h00=0x004c, h01=0x0050, text=» ADD WW1,=W'1' NEXT ROW «, t00=0x0005, t01=0x016c}
0x0988…09d8 Head {h00=0x004c, h01=0x0050, text=»EB200 «, t00=0x0006, t01=0x002c}
0x09d8…0a28 Head {h00=0x004c, h01=0x0050, text=» ADD WW2,=W'1' NEXT COLUMN «, t00=0x0006, t01=0x007c}
0x0a28…0a78 Head {h00=0x004c, h01=0x0050, text=» MOVE ODCASH(WW1,WW2),=D'0' «, t00=0x0006, t01=0x00cc}
0x0a78…0ac8 Head {h00=0x004c, h01=0x0050, text=» CBL WW2,=W'5',EB200 «, t00=0x0006, t01=0x011c}
0x0ac8…0b18 Head {h00=0x004c, h01=0x0050, text=» CBL WW1,=W'3',EB100 «, t00=0x0006, t01=0x016c}
0x0b18…0b68 Head {h00=0x004c, h01=0x0050, text=»EB999 «, t00=0x0007, t01=0x002c}
0x0b68…0bb8 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0007, t01=0x007c}
0x0bb8…0c08 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00cc}
0x0c08…0c58 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x011c}
0x0c58…0c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016c}
0x0c62…0c94 Head {h00=0x002e, h01=0x0050, text=»* INITIALISE A CURRENCY RECORD IN UWB UCY «, t00=0x0007, t01=0x0176}
0x0c94…0c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0018}
0x0c9e…0cee Head {h00=0x004c, h01=0x0050, text=»********************************************************************** *«, t00=0x0008, t01=0x0022}
0x0cee…0d02 Head {h00=0x0010, h01=0x0050, text=»ECICCY PROC «, t00=0x0008, t01=0x0072}
0x0d02…0d52 Head {h00=0x004c, h01=0x0050, text=»EC000 «, t00=0x0008, t01=0x0086}
0x0d52…0d6e Head {h00=0x0018, h01=0x0050, text=» MOVE CDUMMY,=X'FF' «, t00=0x0008, t01=0x00d6}
0x0d6e…0dbe Head {h00=0x004c, h01=0x0050, text=» MOVE CCCCYNME,=C' ' «, t00=0x0008, t01=0x00f2}
0x0dbe…0e0e Head {h00=0x004c, h01=0x0050, text=» MOVE CCCCYCDE,=C' ' «, t00=0x0008, t01=0x0142}
0x0e0e…0e60 (9, 0, 400) Head {h00=0x004e, h01=0x0050, text=» MOVE CDBUY1,=X'0F' «, t00=0x0009, t01=0x0004}
0x0e60…0eb0 Head {h00=0x004c, h01=0x0050, text=» MOVE CDBUY2,=D'0' «, t00=0x0009, t01=0x0056}
0x0eb0…0f02 Head {h00=0x004e, h01=0x0050, text=» MOVE CDSEL1,=X'0F' «, t00=0x0009, t01=0x00a6}
0x0f02…0f52 Head {h00=0x004c, h01=0x0050, text=» MOVE CDSEL2,=D'0' «, t00=0x0009, t01=0x00f8}
0x0f52…0fa2 Head {h00=0x004c, h01=0x0050, text=» MOVE CDLIMIT,=D'0' «, t00=0x0009, t01=0x0148}
0x0fa2…0ff2 Head {h00=0x004c, h01=0x0050, text=» MOVE CDRELAT,=D'1' «, t00=0x000a, t01=0x0008}
0x0ff2…1042 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0058}
0x1042…1092 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000a, t01=0x00a8}
0x1092…10e2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00f8}
0x10e2…1114 Head {h00=0x002e, h01=0x0050, text=»* INITIALISE AN ACCOUNT RECORD IN UWB UA1 «, t00=0x000a, t01=0x0148}
0x1114…1164 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x017a}
0x1164…11b4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000b, t01=0x003a}
0x11b4…1204 Head {h00=0x004c, h01=0x0050, text=»EDIAC1 PROC «, t00=0x000b, t01=0x008a}
0x1204…1254 Head {h00=0x004c, h01=0x0050, text=»ED000 «, t00=0x000b, t01=0x00da}
0x1254…1272 Head {h00=0x001a, h01=0x0050, text=» MOVE ADCARDNR,=X'FF' «, t00=0x000b, t01=0x012a}
0x1272…12c2 Head {h00=0x004c, h01=0x0050, text=» MOVE ACNAME,=C' ' «, t00=0x000b, t01=0x0148}
0x12c2…1312 Head {h00=0x004c, h01=0x0050, text=» MOVE ACADDRES,=C' ' «, t00=0x000c, t01=0x0008}
0x1312…1362 Head {h00=0x004c, h01=0x0050, text=» MOVE ACTOWN,=C' ' «, t00=0x000c, t01=0x0058}
0x1362…13b2 Head {h00=0x004c, h01=0x0050, text=» MOVE ACPASS,=C' ' «, t00=0x000c, t01=0x00a8}
0x13b2…1402 Head {h00=0x004c, h01=0x0050, text=» MOVE ADSTATUS,=D'0' «, t00=0x000c, t01=0x00f8}
0x1402…1452 Head {h00=0x004c, h01=0x0050, text=» MOVE ADBAL,=D'0' «, t00=0x000c, t01=0x0148}
0x1452…14a2 Head {h00=0x004c, h01=0x0050, text=» MOVE ADLIMBOK,=D'0' «, t00=0x000d, t01=0x0008}
0x14a2…14f2 Head {h00=0x004c, h01=0x0050, text=» MOVE ADLASTRS,=D'8' «, t00=0x000d, t01=0x0058}
0x14f2…1542 Head {h00=0x004c, h01=0x0050, text=» MOVE ADSTMTRS,=D'8' «, t00=0x000d, t01=0x00a8}
0x1542…1592 Head {h00=0x004c, h01=0x0050, text=» MOVE ADLNENR,=D'0' «, t00=0x000d, t01=0x00f8}
0x1592…15e2 Head {h00=0x004c, h01=0x0050, text=» MOVE ADDEPCUM,=D'0' «, t00=0x000d, t01=0x0148}
0x15e2…1632 Head {h00=0x004c, h01=0x0050, text=» MOVE ADWDRCUM,=D'0' «, t00=0x000e, t01=0x0008}
0x1632…1682 Head {h00=0x004c, h01=0x0050, text=» MOVE ADLASSEQ,=D'0' «, t00=0x000e, t01=0x0058}
0x1682…168e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x00a8}
0x168e…16de Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x00b4}
0x16de…172e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000e, t01=0x0104}
0x172e…177e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000e, t01=0x0154}
0x177e…17b0 Head {h00=0x002e, h01=0x0050, text=»* INITIALISE AN ACCOUNT RECORD IN UWB UA2 «, t00=0x000f, t01=0x0014}
0x17b0…1800 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0046}
0x1800…1850 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000f, t01=0x0096}
0x1850…18a0 Head {h00=0x004c, h01=0x0050, text=»EFIAC2 PROC «, t00=0x000f, t01=0x00e6}
0x18a0…18ae Head {h00=0x000a, h01=0x0050, text=»EF000 «, t00=0x000f, t01=0x0136}
0x18ae…18cc Head {h00=0x001a, h01=0x0050, text=» MOVE BDCARDNR,=X'FF' «, t00=0x000f, t01=0x0144}
0x18cc…191c Head {h00=0x004c, h01=0x0050, text=» MOVE BCNAME,=C' ' «, t00=0x000f, t01=0x0162}
0x191c…196c Head {h00=0x004c, h01=0x0050, text=» MOVE BCADDRES,=C' ' «, t00=0x0010, t01=0x0022}
0x196c…19bc Head {h00=0x004c, h01=0x0050, text=» MOVE BCTOWN,=C' ' «, t00=0x0010, t01=0x0072}
0x19bc…1a0c Head {h00=0x004c, h01=0x0050, text=» MOVE BCPASS,=C' ' «, t00=0x0010, t01=0x00c2}
0x1a0c…1a5c Head {h00=0x004c, h01=0x0050, text=» MOVE BDSTATUS,=D'0' «, t00=0x0010, t01=0x0112}
0x1a5c…1aac Head {h00=0x004c, h01=0x0050, text=» MOVE BDBAL,=D'0' «, t00=0x0010, t01=0x0162}
0x1aac…1afc Head {h00=0x004c, h01=0x0050, text=» MOVE BDLIMBOK,=D'0' «, t00=0x0011, t01=0x0022}
0x1afc…1b4c Head {h00=0x004c, h01=0x0050, text=» MOVE BDLASTRS,=D'8' «, t00=0x0011, t01=0x0072}
0x1b4c…1b9c Head {h00=0x004c, h01=0x0050, text=» MOVE BDSTMTRS,=D'8' «, t00=0x0011, t01=0x00c2}
0x1b9c…1bec Head {h00=0x004c, h01=0x0050, text=» MOVE BDLNENR,=D'0' «, t00=0x0011, t01=0x0112}
0x1bec…1c3c Head {h00=0x004c, h01=0x0050, text=» MOVE BDDEPCUM,=D'0' «, t00=0x0011, t01=0x0162}
0x1c3c…1c8c Head {h00=0x004c, h01=0x0050, text=» MOVE BDWDRCUM,=D'0' «, t00=0x0012, t01=0x0022}
0x1c8c…1cdc Head {h00=0x004c, h01=0x0050, text=» MOVE BDLASSEQ,=D'0' «, t00=0x0012, t01=0x0072}
0x1cdc…1ce8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x00c2}
0x1ce8…1d38 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x00ce}
0x1d38…1d88 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0012, t01=0x011e}
0x1d88…1dd8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x016e}
0x1dd8…1e0c Head {h00=0x0030, h01=0x0050, text=»* INITIALISE A TRANSACTION RECORD IN UWB UT1«, t00=0x0013, t01=0x002e}
0x1e0c…1e5c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x0062}
0x1e5c…1eac Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0013, t01=0x00b2}
0x1eac…1efc Head {h00=0x004c, h01=0x0050, text=»EEITR1 PROC «, t00=0x0013, t01=0x0102}
0x1efc…1f0a Head {h00=0x000a, h01=0x0050, text=»EE000 «, t00=0x0013, t01=0x0152}
0x1f0a…1f26 Head {h00=0x0018, h01=0x0050, text=» MOVE TDUMMY,=X'FF' «, t00=0x0013, t01=0x0160}
0x1f26…1f76 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'0' «, t00=0x0013, t01=0x017c}
0x1f76…1f92 Head {h00=0x0018, h01=0x0050, text=» MOVE TDDATE,NDDATE «, t00=0x0014, t01=0x003c}
0x1f92…1fb0 Head {h00=0x001a, h01=0x0050, text=» MOVE TDTRMNR,NDTRMNR «, t00=0x0014, t01=0x0058}
0x1fb0…1fce Head {h00=0x001a, h01=0x0050, text=» MOVE TDOPRNR,RDOPRNR «, t00=0x0014, t01=0x0076}
0x1fce…201e Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,=D'0' «, t00=0x0014, t01=0x0094}
0x201e…206e Head {h00=0x004c, h01=0x0050, text=» MOVE TDAMOUNT,=D'0' «, t00=0x0014, t01=0x00e4}
0x206e…20be Head {h00=0x004c, h01=0x0050, text=» MOVE TDNEWBAL,=D'0' «, t00=0x0014, t01=0x0134}
0x20be…210e Head {h00=0x004c, h01=0x0050, text=» MOVE TDACTFRM,=D'0' «, t00=0x0014, t01=0x0184}
0x210e…215e Head {h00=0x004c, h01=0x0050, text=» MOVE TDCHQNR,=D'0' «, t00=0x0015, t01=0x0044}
0x215e…21ae Head {h00=0x004c, h01=0x0050, text=» MOVE TCTEXT,=C' ' «, t00=0x0015, t01=0x0094}
0x21ae…21ba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x00e4}
0x21ba…220a Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x00f0}
0x220a…225a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0015, t01=0x0140}
0x225a…22aa Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0190}
0x22aa…22de Head {h00=0x0030, h01=0x0050, text=»* INITIALISE A TRANSACTION RECORD IN UWB UT2«, t00=0x0016, t01=0x0050}
0x22de…232e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0084}
0x232e…237e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0016, t01=0x00d4}
0x237e…23ce Head {h00=0x004c, h01=0x0050, text=»EGITR2 PROC «, t00=0x0016, t01=0x0124}
0x23ce…23dc Head {h00=0x000a, h01=0x0050, text=»EG000 «, t00=0x0016, t01=0x0174}
0x23dc…23f8 Head {h00=0x0018, h01=0x0050, text=» MOVE UDUMMY,=X'FF' «, t00=0x0016, t01=0x0182}
0x23f8…2448 Head {h00=0x004c, h01=0x0050, text=» MOVE UDTRSCDE,=D'0' «, t00=0x0017, t01=0x000e}
0x2448…2464 Head {h00=0x0018, h01=0x0050, text=» MOVE UDDATE,NDDATE «, t00=0x0017, t01=0x005e}
0x2464…2482 Head {h00=0x001a, h01=0x0050, text=» MOVE UDTRMNR,NDTRMNR «, t00=0x0017, t01=0x007a}
0x2482…24a0 Head {h00=0x001a, h01=0x0050, text=» MOVE UDOPRNR,RDOPRNR «, t00=0x0017, t01=0x0098}
0x24a0…24f0 Head {h00=0x004c, h01=0x0050, text=» MOVE UDTRSSEQ,=D'0' «, t00=0x0017, t01=0x00b6}
0x24f0…2540 Head {h00=0x004c, h01=0x0050, text=» MOVE UDAMOUNT,=D'0' «, t00=0x0017, t01=0x0106}
0x2540…2590 Head {h00=0x004c, h01=0x0050, text=» MOVE UDNEWBAL,=D'0' «, t00=0x0017, t01=0x0156}
0x2590…25e0 Head {h00=0x004c, h01=0x0050, text=» MOVE UDACTFRM,=D'0' «, t00=0x0018, t01=0x0016}
0x25e0…2630 Head {h00=0x004c, h01=0x0050, text=» MOVE UDCHQNR,=D'0' «, t00=0x0018, t01=0x0066}
0x2630…2680 Head {h00=0x004c, h01=0x0050, text=» MOVE UCTEXT,=C' ' «, t00=0x0018, t01=0x00b6}
0x2680…268c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0106}
0x268c…26dc Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0112}
0x26dc…272c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0018, t01=0x0162}
0x272c…277c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0022}
0x277c…27c2 Head {h00=0x0042, h01=0x0050, text=»* INITIALISE THE ACCOUNT AND TRANSACTION RECORDS IN THE UWB'S «, t00=0x0019, t01=0x0072}
0x27c2…2812 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x00b8}
0x2812…2862 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0019, t01=0x0108}
0x2862…28b2 Head {h00=0x004c, h01=0x0050, text=»EZIBUF PROC «, t00=0x0019, t01=0x0158}
0x28b2…28c6 Head {h00=0x0010, h01=0x0050, text=» PERF EDIAC1«, t00=0x001a, t01=0x0018}
0x28c6…28da Head {h00=0x0010, h01=0x0050, text=» PERF EFIAC2«, t00=0x001a, t01=0x002c}
0x28da…28ee Head {h00=0x0010, h01=0x0050, text=» PERF EEITR1«, t00=0x001a, t01=0x0040}
0x28ee…2902 Head {h00=0x0010, h01=0x0050, text=» PERF EGITR2«, t00=0x001a, t01=0x0054}
0x2902…290e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x0068}
0x290e…295e Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x0074}
0x295e…29ae Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x00c4}
0x29ae…29b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0114}
0x29b8…29de Head {h00=0x0022, h01=0x0050, text=»* INITIALISE THE SYSTEM RECORD«, t00=0x001a, t01=0x011e}
0x29de…29e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0144}
0x29e8…2a38 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x014e}
0x2a38…2a4c Head {h00=0x0010, h01=0x0050, text=»EHISYS PROC «, t00=0x001b, t01=0x000e}
0x2a4c…2a5a Head {h00=0x000a, h01=0x0050, text=»EH000 «, t00=0x001b, t01=0x0022}
0x2a5a…2a76 Head {h00=0x0018, h01=0x0050, text=» MOVE YDUMMY,=X'FF' «, t00=0x001b, t01=0x0030}
0x2a76…2a90 Head {h00=0x0016, h01=0x0050, text=» MOVE YCTEXT,=C' '«, t00=0x001b, t01=0x004c}
0x2a90…2ab2 Head {h00=0x001e, h01=0x0050, text=» MOVE YDLASSAV,=D'167999' «, t00=0x001b, t01=0x0066}
0x2ab2…2ad4 Head {h00=0x001e, h01=0x0050, text=» MOVE YDLASCHQ,=D'167998' «, t00=0x001b, t01=0x0088}
0x2ad4…2af0 Head {h00=0x0018, h01=0x0050, text=» MOVE YDLASSEQ,=D'0'«, t00=0x001b, t01=0x00aa}
0x2af0…2b0c Head {h00=0x0018, h01=0x0050, text=» MOVE YDSTATUS,=D'1'«, t00=0x001b, t01=0x00c6}
0x2b0c…2b1a Head {h00=0x000a, h01=0x0050, text=»EH999 «, t00=0x001b, t01=0x00e2}
0x2b1a…2b26 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x00f0}
0x2b26…2b34 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x00fc}
0x2b34…2b84 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x010a}
0x2b84…2b90 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x001b, t01=0x015a}
0x2b90…2b94 Head {h00=0x4004, h01=0x0000}
0x2b94…2b98 00 1b 01 66 ┆ f┆
0x2b98…2ba0 (28, 1, 8) 20 04 00 00 00 1c 00 04 ┆ ┆