|
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: 10228 (0x27f4)
Notes: pts_type(SC)
Names: »UDM.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM6601/UDM.SC«
└─⟦this⟧ »BEBATM/UDM.SC«
IDENT UDM 830330 NIJO * ************************************************************************ * * THE FUNCTION OF THESE ROUTINES IS TO PROVIDE AN * INTERFACE BETWEEN THE UTILITY PACKAGE AND THE * FILE MANAGEMENT INTERFACE. * ************************************************************************ * * THE CALLS TO THESE ROUTINES HAVE THE FOLLOWING FORMATS :- * * PERF OPEN,<FILIND>,<STATUS> * PERF CLOSE,<FILIND> * PERF READ,<FILIND>,<BUF>,<RECNO>,<STATUS> * PERF WRITDK <FILIND>,<BUF>,<RECNO>,<STATUS> * * * WHERE: * * <FILIND> IS A BINARY DATA ITEM WHICH IS USED * AS A POINTER TO AN ENTRY IN THE * TABLE 'DSFTABLE'. THIS TABLE CONTAINS * THE FILE NAME, THE VOLUME NAME, THE * FILE NUMBER ASSIGNED WHEN THE FILE * OPENED AND THE FILE RECORD LENGTH. * * <STATUS> IS A BINARY DATA ITEM WHICH WILL * CONTAIN THE RETURN CODE AFTER THE * REQUEST. * * <BUF> IS A STRING DATA ITEM CONTAINING THE * DATA TO BE READ/WRITEN FROM/TO THE FILE. * * <RECNO> IS A BINARY DATA ITEM CONTAINING THE * FILE RECORD NUMBER TO BE ACCESSED. * * * THE CREDIT CONDITION REGISTER WILL BE SET TO ZERO IF THE * REQUEST WAS SUCCESSFUL AND TWO IF NOT. * THE CREDIT CONDITION REGISTER WILL BE SET TO ONE IF A * DELETED RECORD IS READ. * ************************************************************************ * EJECT DDUM DDIV PDIV * * *** ENTRY POINTS * ENTRY OPEN ENTRY CLOSE ENTRY READ * *** EXTERNAL REFERENCES * EXT FMOPEN EXT FMCLOS EXT FMREAD EXT FMRFPB EXT COPY4 * EJECT * OPEN PROC FILIND,ST PBIN FILIND,ST ************************************************************************ * * THIS ROUTINE OPENS A DISK FILE FOR ACCESS BY ANY TASK * THE FILE NAME AND VOLUME NAME ARE EXTRACTED FROM THE * TABLE 'DSFTABLE' TO FORM A FILE PARAMETER BLOCK. THE * FILE MANAGEMENT ROUTINES ASSIGN A FILE NUMBER TO THE * FILE AND THIS IS STORED IN THE TABLE 'DSFTABLE' ON * SUCCESSFUL COMPLETION OF THE OPEN * ************************************************************************ * COPY FILE,COB0,COB8,DSFTABLE(FILIND),COB0 :GET FILE NAME COPY VOLUME,COB0,COB6,DSFTABLE(FILIND),COB8 :GET VOLUME NAME MOVE DKSTAT,=C' ' EDIT FMBUF,FMTFPB SET UP FILE PARAMETER BLOCK CALL FMOPEN,WKBIN1,FMBUF,ST :OPEN FILE BNOK OPENERR OPEN SUCCESSFUL ? CALL COPY4,WKBIN2,COB0,COB1,WKBIN1,COB3 COPY FILE NO. CALL FMRFPB,WKBIN1,FMBUF,ST BNOK OPENERR CALL COPY4,WKBIN2,COB1,COB3,FMBUF,COB1 XCOPY DSFTABLE(FILIND),COB14,COB2,WKBIN2,COB0 RECOPY IT CMP COB0,COB0 SET CR = 0 RET RETURN TO APPLICATION OPENERR CMP COB0,COB1 SET CR = 2 RET RETURN TO APPLICATION PEND EJECT CLOSE PROC FILIND PBIN FILIND * ************************************************************************ * * THIS ROUTINE CLOSES A FILE. * PARAMETERS AS FOR OPEN. * ************************************************************************ * COPY FILE,COB0,COB8,DSFTABLE(FILIND),COB0 :GET FILE NAME COPY VOLUME,COB0,COB6,DSFTABLE(FILIND),COB8 :GET VOLUME NAME MOVE DKSTAT,=C' ' MOVE WKBIN1,COB0 ZERO WKBIN1 MOVE BIN7,=W'28' CALL COPY4,WKBIN1,COB3,COB1,DSFTABLE(FILIND),BIN7 EDIT FMBUF,FMTFPB SET UP FILE PARAMETER BLOCK CALL FMCLOS,WKBIN1,FMBUF,WKBIN2 CLOSE FILE XCOPY WKBIN1,COB0,COB2,DSFTABLE(FILIND),COB14 CALL COPY4,WKBIN1,COB0,COB1,COB0,COB3 XCOPY DSFTABLE(FILIND),COB14,COB2,WKBIN1,COB0 MOVE WKBIN1,COB0 LOOP ADD WKBIN1,COB1 CBG WKBIN1,NOFILS,END COPY WKSTR6,COB0,COB6,DSFTABLE(WKBIN1),COB8 GET VOLUME NAME CBNE WKSTR6,VOLUME,LOOP THIS VOLUME ? XCOPY WKBIN2,COB0,COB2,DSFTABLE(WKBIN1),COB14 YES MOVE WKB1,COB0 CALL COPY4,WKB1,COB3,COB1,WKBIN2,COB0 GET FILE NUMBER CBNE WKB1,COB0,LOOP FILE STILL OPEN END RET RETURN PEND EJECT * READ PROC FILIND,BUF,REC.NO,ST PBIN FILIND,REC.NO,ST PSTRG BUF * ************************************************************************ * * THIS ROUTINE READS A RECORD FROM A DISK FILE * ************************************************************************ * PERF GETBLK,FILIND,REC.NO,ST GET DISK SECTOR B RDERR MOVE BUF,=C' ' MOVE WKBIN1,RECLEN SET UP RECORD LENGTH COPY BUF,COB0,WKBIN1,FMBUF,WKBIN2 COPY DATA ADD WKBIN2,WKBIN1 MOVE DKSTAT,=X'00' COPY DKSTAT,COB0,COB1,FMBUF,WKBIN2 GET RECORD STATUS CODE CBNE DKSTAT,=X'00000000',NOTMT EMPTY RECORD? MOVE BUF,=C' ' YES CMP COB1,COB0 SET CR = 1 RET RETURN TO APPLICATION NOTMT CMP COB0,COB0 SET CR = 0 RET RETURN TO APPLICATION RDERR CMP COB0,COB1 SET CR = 2 RET RETURN TO APPLICATION PEND EJECT * GETBLK PROC FILIND,REC.NO,ST PBIN FILIND,REC.NO,ST * ************************************************************************ * * THIS ROUTINE READS THE SECTOR CONTAINING THE RECORD POINTED * TO BY REC.NO FROM THE FILE POINTED TO BY FILIND. * ************************************************************************ * XCOPY WKBIN1,COB0,COB2,DSFTABLE(FILIND),COB14 MOVE RECLEN,COB0 MOVE FN,COB0 CALL COPY4,RECLEN,COB1,COB3,WKBIN1,COB1 ADD RECLEN,COB1 ALLOW FOR RECORD STATUS BYTE CALL COPY4,FN,COB3,COB1,WKBIN1,COB0 MOVE WKBIN4,=W'256' MOVE WKBIN3,RECLEN DIV WKBIN4,WKBIN3 MOVE WKBIN3,REC.NO SUB WKBIN3,=W'1' COUNT FROM ZERO DIV WKBIN3,WKBIN4 MOVE SECTNO,WKBIN3 ADD SECTNO,COB1 SECTNO = SECTOR TO BE READ MUL WKBIN3,WKBIN4 MOVE WKBIN1,WKBIN3 MOVE WKBIN2,REC.NO SUB WKBIN2,COB1 COUNT FROM ZERO SUB WKBIN2,WKBIN1 WKBIN2 = RECORD NO IN BLOCK MUL WKBIN2,RECLEN MOVE LENGTH,=W'256' SUB RECLEN,COB1 CALL FMREAD,FN,FMBUF,LENGTH,SECTNO,ST BNOK GETERR RET 2 GETERR RET RETURN * PEND * EJECT * ************************************************************************ * * FORMATS * ************************************************************************ * FMTFPB FRMT FXCOPY DKSTAT FXCOPY =X'00000000' FCOPY FILE FXCOPY =X'0000' FCOPY VOLUME FXCOPY =X'00000000' FILLR ' ',30 FXCOPY =X'00000000000000' FXCOPY =X'0000000000' FILLR ' ',9 FXCOPY =X'00' FMEND * END
0x0000…001e (0, 0, 400) Head {h00=0x001a, h01=0x0050, text=» IDENT UDM 830330 NIJO«, t00=0x0000, t01=0x0004}
0x001e…0028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0022}
0x0028…0078 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x002c}
0x0078…0082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007c}
0x0082…00c2 Head {h00=0x003c, h01=0x0050, text=»* THE FUNCTION OF THESE ROUTINES IS TO PROVIDE AN«, t00=0x0000, t01=0x0086}
0x00c2…0100 Head {h00=0x003a, h01=0x0050, text=»* INTERFACE BETWEEN THE UTILITY PACKAGE AND THE«, t00=0x0000, t01=0x00c6}
0x0100…012c Head {h00=0x0028, h01=0x0050, text=»* FILE MANAGEMENT INTERFACE. «, t00=0x0000, t01=0x0104}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0186 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x013a}
0x0186…0190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…01da (1, 0, 400) Head {h00=0x0046, h01=0x0050, text=»* THE CALLS TO THESE ROUTINES HAVE THE FOLLOWING FORMATS :-«, t00=0x0001, t01=0x0004}
0x01da…01e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004e}
0x01e4…0214 Head {h00=0x002c, h01=0x0050, text=»* PERF OPEN,<FILIND>,<STATUS> «, t00=0x0001, t01=0x0058}
0x0214…023c Head {h00=0x0024, h01=0x0050, text=»* PERF CLOSE,<FILIND> «, t00=0x0001, t01=0x0088}
0x023c…027a Head {h00=0x003a, h01=0x0050, text=»* PERF READ,<FILIND>,<BUF>,<RECNO>,<STATUS> «, t00=0x0001, t01=0x00b0}
0x027a…02ba Head {h00=0x003c, h01=0x0050, text=»* PERF WRITDK <FILIND>,<BUF>,<RECNO>,<STATUS> «, t00=0x0001, t01=0x00ee}
0x02ba…02c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012e}
0x02c4…02ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0138}
0x02ce…02e6 Head {h00=0x0014, h01=0x0050, text=»* WHERE: «, t00=0x0001, t01=0x0142}
0x02e6…02f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015a}
0x02f0…033a Head {h00=0x0046, h01=0x0050, text=»* <FILIND> IS A BINARY DATA ITEM WHICH IS USED«, t00=0x0001, t01=0x0164}
0x033a…0380 Head {h00=0x0042, h01=0x0050, text=»* AS A POINTER TO AN ENTRY IN THE«, t00=0x0002, t01=0x001e}
0x0380…03cc Head {h00=0x0048, h01=0x0050, text=»* TABLE 'DSFTABLE'. THIS TABLE CONTAINS«, t00=0x0002, t01=0x0064}
0x03cc…0416 Head {h00=0x0046, h01=0x0050, text=»* THE FILE NAME, THE VOLUME NAME, THE«, t00=0x0002, t01=0x00b0}
0x0416…0460 Head {h00=0x0046, h01=0x0050, text=»* FILE NUMBER ASSIGNED WHEN THE FILE «, t00=0x0002, t01=0x00fa}
0x0460…04aa Head {h00=0x0046, h01=0x0050, text=»* OPENED AND THE FILE RECORD LENGTH. «, t00=0x0002, t01=0x0144}
0x04aa…04b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018e}
0x04b4…04fc Head {h00=0x0044, h01=0x0050, text=»* <STATUS> IS A BINARY DATA ITEM WHICH WILL «, t00=0x0003, t01=0x0008}
0x04fc…0544 Head {h00=0x0044, h01=0x0050, text=»* CONTAIN THE RETURN CODE AFTER THE«, t00=0x0003, t01=0x0050}
0x0544…0574 Head {h00=0x002c, h01=0x0050, text=»* REQUEST. «, t00=0x0003, t01=0x0098}
0x0574…057e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c8}
0x057e…05ca Head {h00=0x0048, h01=0x0050, text=»* <BUF> IS A STRING DATA ITEM CONTAINING THE «, t00=0x0003, t01=0x00d2}
0x05ca…061a Head {h00=0x004c, h01=0x0050, text=»* DATA TO BE READ/WRITEN FROM/TO THE FILE. «, t00=0x0003, t01=0x011e}
0x061a…0624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016e}
0x0624…0670 Head {h00=0x0048, h01=0x0050, text=»* <RECNO> IS A BINARY DATA ITEM CONTAINING THE «, t00=0x0003, t01=0x0178}
0x0670…06ba Head {h00=0x0046, h01=0x0050, text=»* FILE RECORD NUMBER TO BE ACCESSED. «, t00=0x0004, t01=0x0034}
0x06ba…06c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007e}
0x06c4…06ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0088}
0x06ce…0718 Head {h00=0x0046, h01=0x0050, text=»* THE CREDIT CONDITION REGISTER WILL BE SET TO ZERO IF THE «, t00=0x0004, t01=0x0092}
0x0718…0750 Head {h00=0x0034, h01=0x0050, text=»* REQUEST WAS SUCCESSFUL AND TWO IF NOT. «, t00=0x0004, t01=0x00dc}
0x0750…0796 Head {h00=0x0042, h01=0x0050, text=»* THE CREDIT CONDITION REGISTER WILL BE SET TO ONE IF A«, t00=0x0004, t01=0x0114}
0x0796…07be Head {h00=0x0024, h01=0x0050, text=»* DELETED RECORD IS READ.«, t00=0x0004, t01=0x015a}
0x07be…07c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0182}
0x07c8…0818 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x018c}
0x0818…0822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004c}
0x0822…0830 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0056}
0x0830…0842 Head {h00=0x000e, h01=0x0050, text=» DDUM DDIV«, t00=0x0005, t01=0x0064}
0x0842…0850 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0005, t01=0x0076}
0x0850…085a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0084}
0x085a…0864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008e}
0x0864…0882 Head {h00=0x001a, h01=0x0050, text=»*** ENTRY POINTS «, t00=0x0005, t01=0x0098}
0x0882…088c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b6}
0x088c…08a0 Head {h00=0x0010, h01=0x0050, text=» ENTRY OPEN «, t00=0x0005, t01=0x00c0}
0x08a0…08b4 Head {h00=0x0010, h01=0x0050, text=» ENTRY CLOSE«, t00=0x0005, t01=0x00d4}
0x08b4…08c8 Head {h00=0x0010, h01=0x0050, text=» ENTRY READ «, t00=0x0005, t01=0x00e8}
0x08c8…08d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fc}
0x08d2…08f6 Head {h00=0x0020, h01=0x0050, text=»*** EXTERNAL REFERENCES«, t00=0x0005, t01=0x0106}
0x08f6…0900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012a}
0x0900…0914 Head {h00=0x0010, h01=0x0050, text=» EXT FMOPEN «, t00=0x0005, t01=0x0134}
0x0914…0928 Head {h00=0x0010, h01=0x0050, text=» EXT FMCLOS «, t00=0x0005, t01=0x0148}
0x0928…093c Head {h00=0x0010, h01=0x0050, text=» EXT FMREAD «, t00=0x0005, t01=0x015c}
0x093c…0950 Head {h00=0x0010, h01=0x0050, text=» EXT FMRFPB «, t00=0x0005, t01=0x0170}
0x0950…0962 Head {h00=0x000e, h01=0x0050, text=» EXT COPY4«, t00=0x0005, t01=0x0184}
0x0962…096c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096c…097a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0012}
0x097a…0984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0020}
0x0984…09a0 Head {h00=0x0018, h01=0x0050, text=»OPEN PROC FILIND,ST «, t00=0x0006, t01=0x002a}
0x09a0…09b8 Head {h00=0x0014, h01=0x0050, text=» PBIN FILIND,ST «, t00=0x0006, t01=0x0046}
0x09b8…0a08 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x005e}
0x0a08…0a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ae}
0x0a12…0a58 Head {h00=0x0042, h01=0x0050, text=»* THIS ROUTINE OPENS A DISK FILE FOR ACCESS BY ANY TASK«, t00=0x0006, t01=0x00b8}
0x0a58…0a9e Head {h00=0x0042, h01=0x0050, text=»* THE FILE NAME AND VOLUME NAME ARE EXTRACTED FROM THE «, t00=0x0006, t01=0x00fe}
0x0a9e…0ae4 Head {h00=0x0042, h01=0x0050, text=»* TABLE 'DSFTABLE' TO FORM A FILE PARAMETER BLOCK. THE «, t00=0x0006, t01=0x0144}
0x0ae4…0b2a Head {h00=0x0042, h01=0x0050, text=»* FILE MANAGEMENT ROUTINES ASSIGN A FILE NUMBER TO THE «, t00=0x0006, t01=0x018a}
0x0b2a…0b6e Head {h00=0x0040, h01=0x0050, text=»* FILE AND THIS IS STORED IN THE TABLE 'DSFTABLE' ON «, t00=0x0007, t01=0x0040}
0x0b6e…0ba0 Head {h00=0x002e, h01=0x0050, text=»* SUCCESSFUL COMPLETION OF THE OPEN«, t00=0x0007, t01=0x0084}
0x0ba0…0baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b6}
0x0baa…0bfa Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x00c0}
0x0bfa…0c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0110}
0x0c04…0c48 Head {h00=0x0040, h01=0x0050, text=» COPY FILE,COB0,COB8,DSFTABLE(FILIND),COB0 :GET FILE NAME «, t00=0x0007, t01=0x011a}
0x0c48…0c8e Head {h00=0x0042, h01=0x0050, text=» COPY VOLUME,COB0,COB6,DSFTABLE(FILIND),COB8 :GET VOLUME NAME«, t00=0x0007, t01=0x015e}
0x0c8e…0ca8 Head {h00=0x0016, h01=0x0050, text=» MOVE DKSTAT,=C' '«, t00=0x0008, t01=0x0014}
0x0ca8…0cde Head {h00=0x0032, h01=0x0050, text=» EDIT FMBUF,FMTFPB SET UP FILE PARAMETER BLOCK«, t00=0x0008, t01=0x002e}
0x0cde…0d10 Head {h00=0x002e, h01=0x0050, text=» CALL FMOPEN,WKBIN1,FMBUF,ST :OPEN FILE «, t00=0x0008, t01=0x0064}
0x0d10…0d38 Head {h00=0x0024, h01=0x0050, text=» BNOK OPENERR OPEN SUCCESSFUL ? «, t00=0x0008, t01=0x0096}
0x0d38…0d7c Head {h00=0x0040, h01=0x0050, text=» CALL COPY4,WKBIN2,COB0,COB1,WKBIN1,COB3 COPY FILE NO. «, t00=0x0008, t01=0x00be}
0x0d7c…0da0 Head {h00=0x0020, h01=0x0050, text=» CALL FMRFPB,WKBIN1,FMBUF,ST«, t00=0x0008, t01=0x0102}
0x0da0…0db6 Head {h00=0x0012, h01=0x0050, text=» BNOK OPENERR «, t00=0x0008, t01=0x0126}
0x0db6…0de6 Head {h00=0x002c, h01=0x0050, text=» CALL COPY4,WKBIN2,COB1,COB3,FMBUF,COB1 «, t00=0x0008, t01=0x013c}
0x0de6…0e28 Head {h00=0x003e, h01=0x0050, text=» XCOPY DSFTABLE(FILIND),COB14,COB2,WKBIN2,COB0 RECOPY IT«, t00=0x0008, t01=0x016c}
0x0e28…0e4a Head {h00=0x001e, h01=0x0050, text=» CMP COB0,COB0 SET CR = 0 «, t00=0x0009, t01=0x001e}
0x0e4a…0e6e Head {h00=0x0020, h01=0x0050, text=» RET RETURN TO APPLICATION «, t00=0x0009, t01=0x0040}
0x0e6e…0e7e Head {h00=0x000c, h01=0x0050, text=»OPENERR «, t00=0x0009, t01=0x0064}
0x0e7e…0ea0 Head {h00=0x001e, h01=0x0050, text=» CMP COB0,COB1 SET CR = 2 «, t00=0x0009, t01=0x0074}
0x0ea0…0ec4 Head {h00=0x0020, h01=0x0050, text=» RET RETURN TO APPLICATION «, t00=0x0009, t01=0x0096}
0x0ec4…0ed2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x00ba}
0x0ed2…0ee0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00c8}
0x0ee0…0efa Head {h00=0x0016, h01=0x0050, text=»CLOSE PROC FILIND «, t00=0x0009, t01=0x00d6}
0x0efa…0f0e Head {h00=0x0010, h01=0x0050, text=» PBIN FILIND«, t00=0x0009, t01=0x00f0}
0x0f0e…0f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0104}
0x0f18…0f68 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0009, t01=0x010e}
0x0f68…0f72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015e}
0x0f72…0f9e Head {h00=0x0028, h01=0x0050, text=»* THIS ROUTINE CLOSES A FILE.«, t00=0x0009, t01=0x0168}
0x0f9e…0fc6 (10, 0, 400) Head {h00=0x0024, h01=0x0050, text=»* PARAMETERS AS FOR OPEN.«, t00=0x000a, t01=0x0004}
0x0fc6…0fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002c}
0x0fd0…1020 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000a, t01=0x0036}
0x1020…102a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0086}
0x102a…106e Head {h00=0x0040, h01=0x0050, text=» COPY FILE,COB0,COB8,DSFTABLE(FILIND),COB0 :GET FILE NAME«, t00=0x000a, t01=0x0090}
0x106e…10b4 Head {h00=0x0042, h01=0x0050, text=» COPY VOLUME,COB0,COB6,DSFTABLE(FILIND),COB8 :GET VOLUME NAME«, t00=0x000a, t01=0x00d4}
0x10b4…10ce Head {h00=0x0016, h01=0x0050, text=» MOVE DKSTAT,=C' '«, t00=0x000a, t01=0x011a}
0x10ce…10f4 Head {h00=0x0022, h01=0x0050, text=» MOVE WKBIN1,COB0 ZERO WKBIN1 «, t00=0x000a, t01=0x0134}
0x10f4…110e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,=W'28' «, t00=0x000a, t01=0x015a}
0x110e…1148 Head {h00=0x0036, h01=0x0050, text=» CALL COPY4,WKBIN1,COB3,COB1,DSFTABLE(FILIND),BIN7«, t00=0x000a, t01=0x0174}
0x1148…117e Head {h00=0x0032, h01=0x0050, text=» EDIT FMBUF,FMTFPB SET UP FILE PARAMETER BLOCK«, t00=0x000b, t01=0x001e}
0x117e…11b2 Head {h00=0x0030, h01=0x0050, text=» CALL FMCLOS,WKBIN1,FMBUF,WKBIN2 CLOSE FILE «, t00=0x000b, t01=0x0054}
0x11b2…11e8 Head {h00=0x0032, h01=0x0050, text=» XCOPY WKBIN1,COB0,COB2,DSFTABLE(FILIND),COB14«, t00=0x000b, t01=0x0088}
0x11e8…1216 Head {h00=0x002a, h01=0x0050, text=» CALL COPY4,WKBIN1,COB0,COB1,COB0,COB3«, t00=0x000b, t01=0x00be}
0x1216…124c Head {h00=0x0032, h01=0x0050, text=» XCOPY DSFTABLE(FILIND),COB14,COB2,WKBIN1,COB0«, t00=0x000b, t01=0x00ec}
0x124c…1266 Head {h00=0x0016, h01=0x0050, text=» MOVE WKBIN1,COB0 «, t00=0x000b, t01=0x0122}
0x1266…1282 Head {h00=0x0018, h01=0x0050, text=»LOOP ADD WKBIN1,COB1«, t00=0x000b, t01=0x013c}
0x1282…12a0 Head {h00=0x001a, h01=0x0050, text=» CBG WKBIN1,NOFILS,END«, t00=0x000b, t01=0x0158}
0x12a0…12e4 Head {h00=0x0040, h01=0x0050, text=» COPY WKSTR6,COB0,COB6,DSFTABLE(WKBIN1),COB8 GET VOLUME NAME«, t00=0x000b, t01=0x0176}
0x12e4…1312 Head {h00=0x002a, h01=0x0050, text=» CBNE WKSTR6,VOLUME,LOOP THIS VOLUME ?«, t00=0x000c, t01=0x002a}
0x1312…134c Head {h00=0x0036, h01=0x0050, text=» XCOPY WKBIN2,COB0,COB2,DSFTABLE(WKBIN1),COB14 YES«, t00=0x000c, t01=0x0058}
0x134c…1364 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB1,COB0 «, t00=0x000c, t01=0x0092}
0x1364…13a4 Head {h00=0x003c, h01=0x0050, text=» CALL COPY4,WKB1,COB3,COB1,WKBIN2,COB0 GET FILE NUMBER «, t00=0x000c, t01=0x00aa}
0x13a4…13d0 Head {h00=0x0028, h01=0x0050, text=» CBNE WKB1,COB0,LOOP FILE STILL OPEN«, t00=0x000c, t01=0x00ea}
0x13d0…13dc Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x000c, t01=0x0116}
0x13dc…13f0 Head {h00=0x0010, h01=0x0050, text=» RET RETURN«, t00=0x000c, t01=0x0122}
0x13f0…13fe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0136}
0x13fe…140c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0144}
0x140c…1416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0152}
0x1416…143c Head {h00=0x0022, h01=0x0050, text=»READ PROC FILIND,BUF,REC.NO,ST«, t00=0x000c, t01=0x015c}
0x143c…145a Head {h00=0x001a, h01=0x0050, text=» PBIN FILIND,REC.NO,ST«, t00=0x000c, t01=0x0182}
0x145a…146c Head {h00=0x000e, h01=0x0050, text=» PSTRG BUF«, t00=0x000d, t01=0x0010}
0x146c…1476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0022}
0x1476…14c6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000d, t01=0x002c}
0x14c6…14d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007c}
0x14d0…150e Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE READS A RECORD FROM A DISK FILE «, t00=0x000d, t01=0x0086}
0x150e…1518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c4}
0x1518…1568 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000d, t01=0x00ce}
0x1568…1572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011e}
0x1572…15aa Head {h00=0x0034, h01=0x0050, text=» PERF GETBLK,FILIND,REC.NO,ST GET DISK SECTOR «, t00=0x000d, t01=0x0128}
0x15aa…15ba Head {h00=0x000c, h01=0x0050, text=» B RDERR«, t00=0x000d, t01=0x0160}
0x15ba…15d2 Head {h00=0x0014, h01=0x0050, text=» MOVE BUF,=C' ' «, t00=0x000d, t01=0x0170}
0x15d2…1602 Head {h00=0x002c, h01=0x0050, text=» MOVE WKBIN1,RECLEN SET UP RECORD LENGTH«, t00=0x000d, t01=0x0188}
0x1602…1636 Head {h00=0x0030, h01=0x0050, text=» COPY BUF,COB0,WKBIN1,FMBUF,WKBIN2 COPY DATA«, t00=0x000e, t01=0x0028}
0x1636…1650 Head {h00=0x0016, h01=0x0050, text=» ADD WKBIN2,WKBIN1«, t00=0x000e, t01=0x005c}
0x1650…166c Head {h00=0x0018, h01=0x0050, text=» MOVE DKSTAT,=X'00' «, t00=0x000e, t01=0x0076}
0x166c…16b0 Head {h00=0x0040, h01=0x0050, text=» COPY DKSTAT,COB0,COB1,FMBUF,WKBIN2 GET RECORD STATUS CODE«, t00=0x000e, t01=0x0092}
0x16b0…16e6 Head {h00=0x0032, h01=0x0050, text=» CBNE DKSTAT,=X'00000000',NOTMT EMPTY RECORD? «, t00=0x000e, t01=0x00d6}
0x16e6…1702 Head {h00=0x0018, h01=0x0050, text=» MOVE BUF,=C' ' YES «, t00=0x000e, t01=0x010c}
0x1702…1724 Head {h00=0x001e, h01=0x0050, text=» CMP COB1,COB0 SET CR = 1 «, t00=0x000e, t01=0x0128}
0x1724…1748 Head {h00=0x0020, h01=0x0050, text=» RET RETURN TO APPLICATION «, t00=0x000e, t01=0x014a}
0x1748…1756 Head {h00=0x000a, h01=0x0050, text=»NOTMT «, t00=0x000e, t01=0x016e}
0x1756…1778 Head {h00=0x001e, h01=0x0050, text=» CMP COB0,COB0 SET CR = 0 «, t00=0x000e, t01=0x017c}
0x1778…179c Head {h00=0x0020, h01=0x0050, text=» RET RETURN TO APPLICATION «, t00=0x000f, t01=0x000e}
0x179c…17aa Head {h00=0x000a, h01=0x0050, text=»RDERR «, t00=0x000f, t01=0x0032}
0x17aa…17cc Head {h00=0x001e, h01=0x0050, text=» CMP COB0,COB1 SET CR = 2 «, t00=0x000f, t01=0x0040}
0x17cc…17f0 Head {h00=0x0020, h01=0x0050, text=» RET RETURN TO APPLICATION «, t00=0x000f, t01=0x0062}
0x17f0…17fe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x0086}
0x17fe…180c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0094}
0x180c…1816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a2}
0x1816…183a Head {h00=0x0020, h01=0x0050, text=»GETBLK PROC FILIND,REC.NO,ST«, t00=0x000f, t01=0x00ac}
0x183a…1858 Head {h00=0x001a, h01=0x0050, text=» PBIN FILIND,REC.NO,ST«, t00=0x000f, t01=0x00d0}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x1862…18b2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000f, t01=0x00f8}
0x18b2…18bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0148}
0x18bc…1908 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE READS THE SECTOR CONTAINING THE RECORD POINTED«, t00=0x000f, t01=0x0152}
0x1908…194a Head {h00=0x003e, h01=0x0050, text=»* TO BY REC.NO FROM THE FILE POINTED TO BY FILIND. «, t00=0x0010, t01=0x000e}
0x194a…1954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0050}
0x1954…19a4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0010, t01=0x005a}
0x19a4…19ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00aa}
0x19ae…19e4 Head {h00=0x0032, h01=0x0050, text=» XCOPY WKBIN1,COB0,COB2,DSFTABLE(FILIND),COB14«, t00=0x0010, t01=0x00b4}
0x19e4…19fe Head {h00=0x0016, h01=0x0050, text=» MOVE RECLEN,COB0 «, t00=0x0010, t01=0x00ea}
0x19fe…1a14 Head {h00=0x0012, h01=0x0050, text=» MOVE FN,COB0 «, t00=0x0010, t01=0x0104}
0x1a14…1a44 Head {h00=0x002c, h01=0x0050, text=» CALL COPY4,RECLEN,COB1,COB3,WKBIN1,COB1«, t00=0x0010, t01=0x011a}
0x1a44…1a7a Head {h00=0x0032, h01=0x0050, text=» ADD RECLEN,COB1 ALLOW FOR RECORD STATUS BYTE «, t00=0x0010, t01=0x014a}
0x1a7a…1aa6 Head {h00=0x0028, h01=0x0050, text=» CALL COPY4,FN,COB3,COB1,WKBIN1,COB0«, t00=0x0010, t01=0x0180}
0x1aa6…1ac2 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN4,=W'256'«, t00=0x0011, t01=0x001c}
0x1ac2…1ade Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN3,RECLEN «, t00=0x0011, t01=0x0038}
0x1ade…1af8 Head {h00=0x0016, h01=0x0050, text=» DIV WKBIN4,WKBIN3«, t00=0x0011, t01=0x0054}
0x1af8…1b14 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN3,REC.NO «, t00=0x0011, t01=0x006e}
0x1b14…1b3e Head {h00=0x0026, h01=0x0050, text=» SUB WKBIN3,=W'1' COUNT FROM ZERO «, t00=0x0011, t01=0x008a}
0x1b3e…1b58 Head {h00=0x0016, h01=0x0050, text=» DIV WKBIN3,WKBIN4«, t00=0x0011, t01=0x00b4}
0x1b58…1b74 Head {h00=0x0018, h01=0x0050, text=» MOVE SECTNO,WKBIN3 «, t00=0x0011, t01=0x00ce}
0x1b74…1ba8 Head {h00=0x0030, h01=0x0050, text=» ADD SECTNO,COB1 SECTNO = SECTOR TO BE READ «, t00=0x0011, t01=0x00ea}
0x1ba8…1bc2 Head {h00=0x0016, h01=0x0050, text=» MUL WKBIN3,WKBIN4«, t00=0x0011, t01=0x011e}
0x1bc2…1bde Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN1,WKBIN3 «, t00=0x0011, t01=0x0138}
0x1bde…1bfa Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN2,REC.NO «, t00=0x0011, t01=0x0154}
0x1bfa…1c22 Head {h00=0x0024, h01=0x0050, text=» SUB WKBIN2,COB1 COUNT FROM ZERO«, t00=0x0011, t01=0x0170}
0x1c22…1c58 Head {h00=0x0032, h01=0x0050, text=» SUB WKBIN2,WKBIN1 WKBIN2 = RECORD NO IN BLOCK«, t00=0x0012, t01=0x0008}
0x1c58…1c72 Head {h00=0x0016, h01=0x0050, text=» MUL WKBIN2,RECLEN«, t00=0x0012, t01=0x003e}
0x1c72…1c8e Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'256'«, t00=0x0012, t01=0x0058}
0x1c8e…1ca6 Head {h00=0x0014, h01=0x0050, text=» SUB RECLEN,COB1«, t00=0x0012, t01=0x0074}
0x1ca6…1cd4 Head {h00=0x002a, h01=0x0050, text=» CALL FMREAD,FN,FMBUF,LENGTH,SECTNO,ST«, t00=0x0012, t01=0x008c}
0x1cd4…1ce8 Head {h00=0x0010, h01=0x0050, text=» BNOK GETERR«, t00=0x0012, t01=0x00ba}
0x1ce8…1cf6 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0012, t01=0x00ce}
0x1cf6…1d04 Head {h00=0x000a, h01=0x0050, text=»GETERR«, t00=0x0012, t01=0x00dc}
0x1d04…1d18 Head {h00=0x0010, h01=0x0050, text=» RET RETURN«, t00=0x0012, t01=0x00ea}
0x1d18…1d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00fe}
0x1d22…1d30 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0108}
0x1d30…1d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0116}
0x1d3a…1d48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0120}
0x1d48…1d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012e}
0x1d52…1da2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0012, t01=0x0138}
0x1da2…1dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0188}
0x1dac…1dc4 (19, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* FORMATS«, t00=0x0013, t01=0x0004}
0x1dc4…1dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001c}
0x1dce…1e1e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0013, t01=0x0026}
0x1e1e…1e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0076}
0x1e28…1e3c Head {h00=0x0010, h01=0x0050, text=»FMTFPB FRMT «, t00=0x0013, t01=0x0080}
0x1e3c…1e52 Head {h00=0x0012, h01=0x0050, text=» FXCOPY DKSTAT«, t00=0x0013, t01=0x0094}
0x1e52…1e6e Head {h00=0x0018, h01=0x0050, text=» FXCOPY =X'00000000'«, t00=0x0013, t01=0x00aa}
0x1e6e…1e82 Head {h00=0x0010, h01=0x0050, text=» FCOPY FILE «, t00=0x0013, t01=0x00c6}
0x1e82…1e9a Head {h00=0x0014, h01=0x0050, text=» FXCOPY =X'0000'«, t00=0x0013, t01=0x00da}
0x1e9a…1eb0 Head {h00=0x0012, h01=0x0050, text=» FCOPY VOLUME «, t00=0x0013, t01=0x00f2}
0x1eb0…1ecc Head {h00=0x0018, h01=0x0050, text=» FXCOPY =X'00000000'«, t00=0x0013, t01=0x0108}
0x1ecc…1ee2 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',30 «, t00=0x0013, t01=0x0124}
0x1ee2…1f04 Head {h00=0x001e, h01=0x0050, text=» FXCOPY =X'00000000000000'«, t00=0x0013, t01=0x013a}
0x1f04…1f22 Head {h00=0x001a, h01=0x0050, text=» FXCOPY =X'0000000000'«, t00=0x0013, t01=0x015c}
0x1f22…1f36 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',9«, t00=0x0013, t01=0x017a}
0x1f36…1f4c Head {h00=0x0012, h01=0x0050, text=» FXCOPY =X'00'«, t00=0x0013, t01=0x018e}
0x1f4c…1f5a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0014, t01=0x0014}
0x1f5a…1f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0022}
0x1f64…1f70 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0014, t01=0x002c}
0x1f70…1f74 Head {h00=0x4004, h01=0x0000}
0x1f74…1f78 00 14 00 38 ┆ 8┆
0x1f78…1f80 (21, 1, 8) 20 04 00 00 00 15 00 04 ┆ ┆
0x1f80…1fd0 (22, 2, 144) 00 3a 00 48 20 49 44 45 4e 54 20 53 3a 42 54 41 42 20 20 54 52 41 20 31 32 2e 30 20 38 33 2d 30 33 2d 33 30 20 46 31 20 4f 31 31 31 31 20 20 38 33 30 33 33 30 20 4e 49 4a 4f 00 06 00 04 00 0e 00 0a 01 04 c8 53 3a 42 54 41 42 00 00 06 00 42 ┆ : H IDENT S:BTAB TRA 12.0 83-03-30 F1 O1111 830330 NIJO S:BTAB B┆
0x1fd0…2010 00 10 00 0c 05 05 c8 53 3a 42 54 41 42 42 00 02 00 06 00 54 00 0e 00 0a 03 04 00 00 00 01 00 00 00 02 00 06 00 68 00 0e 00 0a 07 04 00 00 3a 42 00 02 00 00 00 06 00 7a 40 04 00 00 00 06 00 8c ┆ S:BTABB T h :B z@ ┆
0x2010…2024 (23, 0, 20) 22 30 27 b8 27 e0 27 e8 27 f8 28 00 28 08 28 38 28 40 28 48 ┆"0' ' ' ' ( ( (8(@(H┆
0x2024…2074 (24, 0, 400) 51 ac 00 4a 6c 54 00 00 18 52 43 52 0e 10 26 96 10 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆Q JlT RCR & ┆
0x2074…20c4 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 50 00 52 02 20 00 00 03 40 00 00 04 63 00 00 05 62 00 00 ┆ R P R @ c b ┆
0x20c4…2114 06 f8 00 00 00 00 00 00 00 00 00 d6 00 00 41 30 00 00 00 00 01 2c 07 5c 01 08 07 b0 07 8c 08 18 07 f4 0a 74 08 5c 0f 7a 0a b8 13 0e 0f ba 16 ac 13 52 18 1a 16 f0 00 00 41 30 00 06 ff da 00 08 ff 00 00 00 00 00 00 00 2a 00 00 00 00 00 00 00 ┆ A0 , t z R A0 * ┆
0x2114…2164 00 2a ff ff 00 00 00 01 00 00 18 86 00 04 00 b2 00 02 00 02 06 54 00 00 00 00 00 00 00 00 00 00 00 00 00 00 38 33 2e 30 31 2e 30 35 20 31 32 3a 34 30 20 41 54 4d 30 31 0a 0a 4b 4f 4e 54 4f 4e 52 2e 20 20 31 32 33 34 35 36 37 38 39 30 0a 0a ┆ * T 83.01.05 12:40 ATM01 KONTONR. 1234567890 ┆
0x2164…21b4 0e 33 54 41 4b 20 46 4f 52 20 42 45 53 0b 39 47 45 54 0a 20 20 44 45 54 20 56 41 52 20 48 59 47 47 45 4c 49 47 54 0a 0e 33 41 54 20 48 49 4c 53 45 20 50 0b 37 20 44 49 89 00 00 00 00 00 00 00 00 00 04 1f ff e0 00 05 00 00 00 00 00 00 00 00 ┆ 3TAK FOR BES 9GET DET VAR HYGGELIGT 3AT HILSE P 7 DI ┆
0x21b4…2204 (25, 0, 400) 47 0a 0a 0a 0a 57 44 52 20 30 30 30 31 20 4b 52 2e 20 31 30 30 2e 30 30 0a 0c 57 44 52 20 30 30 30 32 20 4b 52 2e 20 33 30 30 2e 30 30 0a 0c 57 44 52 20 30 30 30 33 20 4b 52 2e 20 35 30 30 2e 30 30 0a 0c 57 44 52 20 30 30 30 34 20 4b 52 2e ┆G WDR 0001 KR. 100.00 WDR 0002 KR. 300.00 WDR 0003 KR. 500.00 WDR 0004 KR.┆
0x2204…2254 31 30 30 30 2e 30 30 0a 0c 38 33 2e 30 31 2e 30 35 20 31 32 3a 34 30 20 41 54 4d 30 31 0a 4b 4f 4e 54 4f 4e 52 2e 20 20 31 32 33 34 35 36 37 38 39 30 0a 57 44 52 20 30 30 30 31 20 4b 52 2e 20 31 30 30 2e 30 30 0a 38 33 2e 30 31 2e 30 35 20 ┆1000.00 83.01.05 12:40 ATM01 KONTONR. 1234567890 WDR 0001 KR. 100.00 83.01.05 ┆
0x2254…22a4 31 32 3a 34 30 20 41 54 4d 30 31 0a 4b 4f 4e 54 4f 4e 52 2e 20 20 31 32 33 34 35 36 37 38 39 30 0a 57 44 52 20 30 30 30 32 20 4b 52 2e 20 33 30 30 2e 30 30 0a 38 33 2e 30 31 2e 30 35 20 31 32 3a 34 30 20 41 54 4d 30 31 0a 4b 4f 4e 54 4f 4e ┆12:40 ATM01 KONTONR. 1234567890 WDR 0002 KR. 300.00 83.01.05 12:40 ATM01 KONTON┆
0x22a4…22f4 52 2e 20 20 31 32 33 34 35 36 37 38 39 30 0a 57 44 52 20 30 30 30 33 20 4b 52 2e 20 35 30 30 2e 30 30 0a 38 33 2e 30 31 2e 30 35 20 31 32 3a 34 30 20 41 54 4d 30 31 0a 4b 4f 4e 54 4f 4e 52 2e 20 20 31 32 33 34 35 36 37 38 39 30 0a 57 44 52 ┆R. 1234567890 WDR 0003 KR. 500.00 83.01.05 12:40 ATM01 KONTONR. 1234567890 WDR┆
0x22f4…2344 20 30 30 30 34 20 4b 52 2e 31 30 30 30 2e 30 30 0a 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 0004 KR.1000.00 ┆
0x2344…2394 (26, 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 2c 00 69 15 00 7e 15 00 93 15 00 a8 15 00 bd 3e 00 fb 3e 01 39 3e 01 77 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ , i ~ > > 9> w> ┆
0x2394…23e4 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 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23e4…2434 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 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 20 20 20 20 20 20 20 20 44 45 46 41 55 4c 54 20 30 31 30 30 ┆ DEFAULT 0100┆
0x2434…2484 30 30 30 30 30 30 30 35 30 30 30 30 30 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 30 30 33 30 30 30 30 30 30 30 30 35 30 30 30 30 32 2a 2a 2a 2a 2a 41 20 20 20 20 20 20 20 30 30 36 30 31 30 30 30 30 30 30 3d 32 30 30 30 32 2a 2a 2a 2a 2a 42 20 ┆0000000500000***** 00300000000500002*****A 00601000000=20002*****B ┆
0x2484…24d4 20 20 20 20 20 20 30 30 36 30 32 30 35 30 30 30 30 3d 32 30 30 30 32 2a 2a 2a 2a 2a 43 20 20 20 20 20 20 20 30 30 36 30 34 30 35 30 30 30 30 3d 32 30 30 30 32 2a 2a 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 ┆ 00602050000=20002*****C 00604050000=20002*** ┆
0x24d4…2524 (27, 0, 400) 2a 2a 44 20 20 20 20 20 20 20 30 30 36 30 39 30 35 30 30 30 30 3d 32 30 30 30 32 2a 2a 2a 2a 2a 41 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 42 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 ┆**D 00609050000=20002*****AAAAAAAA00800000000500001*****BAAAAAAA0080000000┆
0x2524…2574 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 43 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 ┆0500001*****CAAAAAAA00800000000500001*****DAAAAAAA00800000000500001*****DAAAAAAA┆
0x2574…25c4 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a ┆00800000000500001*****DAAAAAAA00800000000500001*****DAAAAAAA00800000000500001***┆
0x25c4…2614 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 ┆**DAAAAAAA00800000000500001*****DAAAAAAA00800000000500001*****DAAAAAAA0080000000┆
0x2614…2664 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆0500001*****DAAAAAAA00800000000500001*****DAAAAAAA008000 ┆
0x2664…26b4 (28, 0, 400) 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 ┆00000500001*****DAAAAAAA00800000000500001*****DAAAAAAA00800000000500001*****DAAA┆
0x26b4…2704 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 ┆AAAA00800000000500001*****DAAAAAAA00800000000500001*****DAAAAAAA0080000000050000┆
0x2704…2754 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 ┆1*****DAAAAAAA00800000000500001*****DAAAAAAA00800000000500001*****DAAAAAAA008000┆
0x2754…27a4 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 ┆00000500001*****DAAAAAAA00800000000500001*****DAAAAAAA00800000000500001*****DAAA┆
0x27a4…27f4 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 2a 44 41 41 41 41 41 41 41 30 30 38 30 30 30 30 30 30 30 30 35 30 30 30 30 31 2a 2a 2a 2a 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 ┆AAAA00800000000500001*****DAAAAAAA00800000000500001***** ┆