|
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: 4784 (0x12b0)
Notes: pts_type(SC)
Names: »CDVRUT.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/CDVRUT.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/CDVRUT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/CDVRUT.SC«
IDENT CDVRUT REL 10.0 80-04-11 79-03-12/PEEN UPD 79-01-18/PEEN * * * THIS ROUTINE MAKES CDV-CHECK ON A STRING ITEM. * * NOTE: THE DIGIT(S) ZERO SHOULD BE INSERTED IN THE STRING * AS CHECK DIGIT(S) IF YOU WANT THE ROUTINE TO * CREATE CORRECT CHECK- DIGIT(S) * * INPUT CAN BE OF VARIABLE LENGTH * * * CALLING FORMAT: 1. CALL CDV10,STRING,BIN * 2. CALL CDV110,STRING,BIN * 3. CALL CDV111,STRING,BIN * * 'STRING' = A STRING VARIABLE HOLDING THE * INPUT TO MAKE CDV-CHECK ON * (NOT NUMERIC CHARACTERS ARE SKIPPED) * 'BIN' = A BINARY ITEM HOLDING THE CHECK- * DIGIT(S) AS OUTPUT IF THE CHECK * WAS UNSUCCESSFUL * * OUTPUT: CR = 0 OK * CR = 1 NOT OK * * 'STRING' IS UNCHANGED * 'BIN' HOLDS CHECK-DIGIT(S) IF CR=1 (ELSE BIN=0) EJECT * USE OF REGISTERS * REGISTER USE * A1 COUNTER FOR MULTIPLY * A2 CURRENT WEIGHT * A4 CHARACTER SAVE AREA * A5 POINTER TO INPUT STRING * A6 MAX VALUE FOR RESTART OF WEIGHT * A7 DIVIDEND FOR TOTAL SUM * A10 SUM OF PRODUCTS * * * PARAMETERS FOR CDV * USE CONTENTS AT CDV10 CDV110 CDV111 * * MAX FOR RESTART OF WEIGHT 2 11 10 * DIVIDEND FOR TOTAL SUM 10 11 11 EJECT ENTRY CDV10 ENTRY CDV110 ENTRY CDV111 * EXTRN I:EVA0 EXTRN I:RT1 * * CALL FORM 16=/F6A1,16 EJECT CDV110 EQU * LDK A6,11 LOAD RESTART LIMIT CD005 EQU * LDK A7,11 LOAD DIVIDEND RF CDV20 * * CDV111 EQU * LDK A6,10 LOAD RESTART LIMIT RB CD005 * * CDV10 EQU * LDK A6,2 LOAD RESTART LIMIT LDK A7,10 LOAD DIVIDEND CDV20 EQU * CALL I:EVA0 ADDRESS TO INPUT STRING LDK A2,1 LOAD START WEIGHT SUR A10,A10 ZERO TO SUM CDV30 EQU * CWR A5,A9 RF(E) CDV60 IF FINISHED LC A4,-1,A5 GET CHARACTER CCK A4,'00' RF(L) CDV50 IF NO DIGIT CCK A4,'99' RF(G) CDV50 IF NO DIGIT ANK A4,/F MASK OUT DIGIT * * MULTIPLY AND ACCUMULATE ONE DIGIT LDR A1,A2 SET WEIGHT CDV40 EQU * ADR A10,A4 ADD TO SUM SUK A1,1 DECREMENT COUNTER RB(P) CDV40 IF MORE TO ADD CWR A2,A6 MULTIPLY BY 2 IN CDV10 RF(NE) CDV45 NO SUK A4,4 RF(NP) CDV45 IF DIGIT SUM LESS THAN 10 SUKL A10,9 ADJUST SUM CDV45 EQU * ADK A2,1 INCREMENT WEIGHT CWR A2,A6 RF(NG) CDV50 IF NOT MAX LIMIT LDK A2,1 RESTART WEIGTH CDV50 EQU * SUK A5,1 DECREMENT POINTER RB CDV30 CONTINUE * CDV60 EQU * LDK A6,0 INDICATE OK CWK A7,10 RF(NE) CDV70 IF NOT CDV10 LDR A10,A10 RF(Z) CDVOUT IF SUM = 0 CDV70 EQU * SUR A10,A7 SUBTRACT 10/11 FROM SUM RB(P) CDV70 SUM STILL > 0 RF(Z) CDVOUT IF CDV-OK NGR A10,A10 GET CHECK DIGIT LDK A6,1 INDICATE NOT OK CDVOUT EQU * CALL I:EVA0 GET CHECK-DIGIT ITEM STR A10,A9 STORE CHECK-DIGIT IF ERROR LD A1,2,A13 GET STACK BASE SC A6,-2,A1 STORE CR ON STACK ABL I:RT1 END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT CDVRUT REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 79-03-12/PEEN«, t00=0x0000, t01=0x002c}
0x0040…005c Head {h00=0x0018, h01=0x0050, text=» UPD 79-01-18/PEEN«, t00=0x0000, t01=0x0044}
0x005c…0066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0060}
0x0066…0070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x006a}
0x0070…00aa Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE MAKES CDV-CHECK ON A STRING ITEM. «, t00=0x0000, t01=0x0074}
0x00aa…00b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ae}
0x00b4…00f8 Head {h00=0x0040, h01=0x0050, text=»* NOTE: THE DIGIT(S) ZERO SHOULD BE INSERTED IN THE STRING«, t00=0x0000, t01=0x00b8}
0x00f8…0136 Head {h00=0x003a, h01=0x0050, text=»* AS CHECK DIGIT(S) IF YOU WANT THE ROUTINE TO«, t00=0x0000, t01=0x00fc}
0x0136…0166 Head {h00=0x002c, h01=0x0050, text=»* CREATE CORRECT CHECK- DIGIT(S)«, t00=0x0000, t01=0x013a}
0x0166…0170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016a}
0x0170…019c Head {h00=0x0028, h01=0x0050, text=»* INPUT CAN BE OF VARIABLE LENGTH «, t00=0x0000, t01=0x0174}
0x019c…01a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0010}
0x01a6…01b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001a}
0x01b0…01ea Head {h00=0x0036, h01=0x0050, text=»* CALLING FORMAT: 1. CALL CDV10,STRING,BIN «, t00=0x0001, t01=0x0024}
0x01ea…0224 Head {h00=0x0036, h01=0x0050, text=»* 2. CALL CDV110,STRING,BIN «, t00=0x0001, t01=0x005e}
0x0224…025e Head {h00=0x0036, h01=0x0050, text=»* 3. CALL CDV111,STRING,BIN «, t00=0x0001, t01=0x0098}
0x025e…0268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d2}
0x0268…02b0 Head {h00=0x0044, h01=0x0050, text=»* 'STRING' = A STRING VARIABLE HOLDING THE«, t00=0x0001, t01=0x00dc}
0x02b0…02f6 Head {h00=0x0042, h01=0x0050, text=»* INPUT TO MAKE CDV-CHECK ON «, t00=0x0001, t01=0x0124}
0x02f6…0346 Head {h00=0x004c, h01=0x0050, text=»* (NOT NUMERIC CHARACTERS ARE SKIPPED)«, t00=0x0001, t01=0x016a}
0x0346…0392 Head {h00=0x0048, h01=0x0050, text=»* 'BIN' = A BINARY ITEM HOLDING THE CHECK- «, t00=0x0002, t01=0x002a}
0x0392…03dc Head {h00=0x0046, h01=0x0050, text=»* DIGIT(S) AS OUTPUT IF THE CHECK«, t00=0x0002, t01=0x0076}
0x03dc…0418 Head {h00=0x0038, h01=0x0050, text=»* WAS UNSUCCESSFUL «, t00=0x0002, t01=0x00c0}
0x0418…0422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0422…0446 Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: CR = 0 OK «, t00=0x0002, t01=0x0106}
0x0446…046e Head {h00=0x0024, h01=0x0050, text=»* CR = 1 NOT OK «, t00=0x0002, t01=0x012a}
0x046e…0478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0152}
0x0478…04a8 Head {h00=0x002c, h01=0x0050, text=»* 'STRING' IS UNCHANGED «, t00=0x0002, t01=0x015c}
0x04a8…04f2 Head {h00=0x0046, h01=0x0050, text=»* 'BIN' HOLDS CHECK-DIGIT(S) IF CR=1 (ELSE BIN=0) «, t00=0x0002, t01=0x018c}
0x04f2…0500 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0046}
0x0500…0520 Head {h00=0x001c, h01=0x0050, text=»* USE OF REGISTERS«, t00=0x0003, t01=0x0054}
0x0520…053a Head {h00=0x0016, h01=0x0050, text=»* REGISTER USE«, t00=0x0003, t01=0x0074}
0x053a…0566 Head {h00=0x0028, h01=0x0050, text=»* A1 COUNTER FOR MULTIPLY «, t00=0x0003, t01=0x008e}
0x0566…058c Head {h00=0x0022, h01=0x0050, text=»* A2 CURRENT WEIGHT «, t00=0x0003, t01=0x00ba}
0x058c…05b6 Head {h00=0x0026, h01=0x0050, text=»* A4 CHARACTER SAVE AREA«, t00=0x0003, t01=0x00e0}
0x05b6…05e4 Head {h00=0x002a, h01=0x0050, text=»* A5 POINTER TO INPUT STRING«, t00=0x0003, t01=0x010a}
0x05e4…061a Head {h00=0x0032, h01=0x0050, text=»* A6 MAX VALUE FOR RESTART OF WEIGHT«, t00=0x0003, t01=0x0138}
0x061a…0648 Head {h00=0x002a, h01=0x0050, text=»* A7 DIVIDEND FOR TOTAL SUM «, t00=0x0003, t01=0x016e}
0x0648…066e Head {h00=0x0022, h01=0x0050, text=»* A10 SUM OF PRODUCTS«, t00=0x0004, t01=0x000c}
0x066e…0678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0032}
0x0678…0682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x003c}
0x0682…06a2 Head {h00=0x001c, h01=0x0050, text=»* PARAMETERS FOR CDV «, t00=0x0004, t01=0x0046}
0x06a2…06e2 Head {h00=0x003c, h01=0x0050, text=»* USE CONTENTS AT CDV10 CDV110 CDV111«, t00=0x0004, t01=0x0066}
0x06e2…06ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a6}
0x06ec…072a Head {h00=0x003a, h01=0x0050, text=»* MAX FOR RESTART OF WEIGHT 2 11 10«, t00=0x0004, t01=0x00b0}
0x072a…076a Head {h00=0x003c, h01=0x0050, text=»* DIVIDEND FOR TOTAL SUM 10 11 11 «, t00=0x0004, t01=0x00ee}
0x076a…0778 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x012e}
0x0778…078c Head {h00=0x0010, h01=0x0050, text=» ENTRY CDV10«, t00=0x0004, t01=0x013c}
0x078c…07a2 Head {h00=0x0012, h01=0x0050, text=» ENTRY CDV110 «, t00=0x0004, t01=0x0150}
0x07a2…07b8 Head {h00=0x0012, h01=0x0050, text=» ENTRY CDV111 «, t00=0x0004, t01=0x0166}
0x07b8…07c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017c}
0x07c2…07d8 Head {h00=0x0012, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x0004, t01=0x0186}
0x07d8…07ec Head {h00=0x0010, h01=0x0050, text=» EXTRN I:RT1«, t00=0x0005, t01=0x000c}
0x07ec…07f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0020}
0x07f6…0800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002a}
0x0800…081e Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F6A1,16 «, t00=0x0005, t01=0x0034}
0x081e…082c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0005, t01=0x0052}
0x082c…0840 Head {h00=0x0010, h01=0x000c, text=»CDV110 EQU *«, t00=0x0005, t01=0x0060}
0x0840…0866 Head {h00=0x0022, h01=0x001d, text=» LDK A6,11 LOAD RESTART LIMIT «, t00=0x0005, t01=0x0074}
0x0866…087a Head {h00=0x0010, h01=0x000b, text=»CD005 EQU * «, t00=0x0005, t01=0x009a}
0x087a…089a Head {h00=0x001c, h01=0x0050, text=» LDK A7,11 LOAD DIVIDEND«, t00=0x0005, t01=0x00ae}
0x089a…08ac Head {h00=0x000e, h01=0x0009, text=» RF CDV20 «, t00=0x0005, t01=0x00ce}
0x08ac…08b6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00e0}
0x08b6…08c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00ea}
0x08c0…08d4 Head {h00=0x0010, h01=0x000c, text=»CDV111 EQU *«, t00=0x0005, t01=0x00f4}
0x08d4…08fa Head {h00=0x0022, h01=0x001d, text=» LDK A6,10 LOAD RESTART LIMIT «, t00=0x0005, t01=0x0108}
0x08fa…090c Head {h00=0x000e, h01=0x0009, text=» RB CD005 «, t00=0x0005, t01=0x012e}
0x090c…0916 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0140}
0x0916…0920 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x014a}
0x0920…0934 Head {h00=0x0010, h01=0x000b, text=»CDV10 EQU * «, t00=0x0005, t01=0x0154}
0x0934…0958 Head {h00=0x0020, h01=0x001c, text=» LDK A6,2 LOAD RESTART LIMIT«, t00=0x0005, t01=0x0168}
0x0958…0978 Head {h00=0x001c, h01=0x0050, text=» LDK A7,10 LOAD DIVIDEND«, t00=0x0005, t01=0x018c}
0x0978…098c Head {h00=0x0010, h01=0x000b, text=»CDV20 EQU * «, t00=0x0006, t01=0x001c}
0x098c…09b8 Head {h00=0x0028, h01=0x0024, text=» CALL I:EVA0 ADDRESS TO INPUT STRING«, t00=0x0006, t01=0x0030}
0x09b8…09dc Head {h00=0x0020, h01=0x001b, text=» LDK A2,1 LOAD START WEIGHT «, t00=0x0006, t01=0x005c}
0x09dc…09fc Head {h00=0x001c, h01=0x0018, text=» SUR A10,A10 ZERO TO SUM«, t00=0x0006, t01=0x0080}
0x09fc…0a10 Head {h00=0x0010, h01=0x000b, text=»CDV30 EQU * «, t00=0x0006, t01=0x00a0}
0x0a10…0a22 Head {h00=0x000e, h01=0x000a, text=» CWR A5,A9«, t00=0x0006, t01=0x00b4}
0x0a22…0a42 Head {h00=0x001c, h01=0x0018, text=» RF(E) CDV60 IF FINISHED«, t00=0x0006, t01=0x00c6}
0x0a42…0a64 Head {h00=0x001e, h01=0x001a, text=» LC A4,-1,A5 GET CHARACTER«, t00=0x0006, t01=0x00e6}
0x0a64…0a78 Head {h00=0x0010, h01=0x0050, text=» CCK A4,'00'«, t00=0x0006, t01=0x0108}
0x0a78…0a98 Head {h00=0x001c, h01=0x0050, text=» RF(L) CDV50 IF NO DIGIT«, t00=0x0006, t01=0x011c}
0x0a98…0aac Head {h00=0x0010, h01=0x0050, text=» CCK A4,'99'«, t00=0x0006, t01=0x013c}
0x0aac…0acc Head {h00=0x001c, h01=0x0050, text=» RF(G) CDV50 IF NO DIGIT«, t00=0x0006, t01=0x0150}
0x0acc…0aee Head {h00=0x001e, h01=0x0019, text=» ANK A4,/F MASK OUT DIGIT «, t00=0x0006, t01=0x0170}
0x0aee…0af8 (7, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0004}
0x0af8…0b26 Head {h00=0x002a, h01=0x0025, text=»* MULTIPLY AND ACCUMULATE ONE DIGIT «, t00=0x0007, t01=0x000e}
0x0b26…0b44 Head {h00=0x001a, h01=0x0015, text=» LDR A1,A2 SET WEIGHT «, t00=0x0007, t01=0x003c}
0x0b44…0b58 Head {h00=0x0010, h01=0x000b, text=»CDV40 EQU * «, t00=0x0007, t01=0x005a}
0x0b58…0b76 Head {h00=0x001a, h01=0x0016, text=» ADR A10,A4 ADD TO SUM«, t00=0x0007, t01=0x006e}
0x0b76…0b9a Head {h00=0x0020, h01=0x001b, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x0007, t01=0x008c}
0x0b9a…0bbe Head {h00=0x0020, h01=0x001b, text=» RB(P) CDV40 IF MORE TO ADD «, t00=0x0007, t01=0x00b0}
0x0bbe…0be8 Head {h00=0x0026, h01=0x0021, text=» CWR A2,A6 MULTIPLY BY 2 IN CDV10 «, t00=0x0007, t01=0x00d4}
0x0be8…0c00 Head {h00=0x0014, h01=0x0010, text=» RF(NE) CDV45 NO«, t00=0x0007, t01=0x00fe}
0x0c00…0c12 Head {h00=0x000e, h01=0x0009, text=» SUK A4,4 «, t00=0x0007, t01=0x0116}
0x0c12…0c42 Head {h00=0x002c, h01=0x0027, text=» RF(NP) CDV45 IF DIGIT SUM LESS THAN 10 «, t00=0x0007, t01=0x0128}
0x0c42…0c60 Head {h00=0x001a, h01=0x0016, text=» SUKL A10,9 ADJUST SUM«, t00=0x0007, t01=0x0158}
0x0c60…0c74 Head {h00=0x0010, h01=0x000b, text=»CDV45 EQU * «, t00=0x0007, t01=0x0176}
0x0c74…0c96 Head {h00=0x001e, h01=0x001a, text=» ADK A2,1 INCREMENT WEIGHT«, t00=0x0007, t01=0x018a}
0x0c96…0ca8 Head {h00=0x000e, h01=0x000a, text=» CWR A2,A6«, t00=0x0008, t01=0x001c}
0x0ca8…0cce Head {h00=0x0022, h01=0x001e, text=» RF(NG) CDV50 IF NOT MAX LIMIT«, t00=0x0008, t01=0x002e}
0x0cce…0cee Head {h00=0x001c, h01=0x0018, text=» LDK A2,1 RESTART WEIGTH«, t00=0x0008, t01=0x0054}
0x0cee…0d02 Head {h00=0x0010, h01=0x000b, text=»CDV50 EQU * «, t00=0x0008, t01=0x0074}
0x0d02…0d26 Head {h00=0x0020, h01=0x001b, text=» SUK A5,1 DECREMENT POINTER «, t00=0x0008, t01=0x0088}
0x0d26…0d40 Head {h00=0x0016, h01=0x0012, text=» RB CDV30 CONTINUE«, t00=0x0008, t01=0x00ac}
0x0d40…0d4a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x00c6}
0x0d4a…0d5e Head {h00=0x0010, h01=0x000b, text=»CDV60 EQU * «, t00=0x0008, t01=0x00d0}
0x0d5e…0d7c Head {h00=0x001a, h01=0x0015, text=» LDK A6,0 INDICATE OK «, t00=0x0008, t01=0x00e4}
0x0d7c…0d8e Head {h00=0x000e, h01=0x0050, text=» CWK A7,10«, t00=0x0008, t01=0x0102}
0x0d8e…0db0 Head {h00=0x001e, h01=0x0050, text=» RF(NE) CDV70 IF NOT CDV10«, t00=0x0008, t01=0x0114}
0x0db0…0dc4 Head {h00=0x0010, h01=0x000c, text=» LDR A10,A10«, t00=0x0008, t01=0x0136}
0x0dc4…0de4 Head {h00=0x001c, h01=0x0018, text=» RF(Z) CDVOUT IF SUM = 0«, t00=0x0008, t01=0x014a}
0x0de4…0df8 Head {h00=0x0010, h01=0x000b, text=»CDV70 EQU * «, t00=0x0008, t01=0x016a}
0x0df8…0e24 Head {h00=0x0028, h01=0x0023, text=» SUR A10,A7 SUBTRACT 10/11 FROM SUM «, t00=0x0008, t01=0x017e}
0x0e24…0e46 Head {h00=0x001e, h01=0x001a, text=» RB(P) CDV70 SUM STILL > 0«, t00=0x0009, t01=0x001a}
0x0e46…0e66 Head {h00=0x001c, h01=0x0017, text=» RF(Z) CDVOUT IF CDV-OK «, t00=0x0009, t01=0x003c}
0x0e66…0e8a Head {h00=0x0020, h01=0x0050, text=» NGR A10,A10 GET CHECK DIGIT«, t00=0x0009, t01=0x005c}
0x0e8a…0eac Head {h00=0x001e, h01=0x0019, text=» LDK A6,1 INDICATE NOT OK «, t00=0x0009, t01=0x0080}
0x0eac…0ec0 Head {h00=0x0010, h01=0x000c, text=»CDVOUT EQU *«, t00=0x0009, t01=0x00a2}
0x0ec0…0eea Head {h00=0x0026, h01=0x0021, text=» CALL I:EVA0 GET CHECK-DIGIT ITEM «, t00=0x0009, t01=0x00b6}
0x0eea…0f18 Head {h00=0x002a, h01=0x0026, text=» STR A10,A9 STORE CHECK-DIGIT IF ERROR«, t00=0x0009, t01=0x00e0}
0x0f18…0f3c Head {h00=0x0020, h01=0x001b, text=» LD A1,2,A13 GET STACK BASE «, t00=0x0009, t01=0x010e}
0x0f3c…0f62 Head {h00=0x0022, h01=0x001e, text=» SC A6,-2,A1 STORE CR ON STACK«, t00=0x0009, t01=0x0132}
0x0f62…0f74 Head {h00=0x000e, h01=0x000a, text=» ABL I:RT1«, t00=0x0009, t01=0x0158}
0x0f74…0f80 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0009, t01=0x016a}
0x0f80…0f84 Head {h00=0x4004, h01=0x0000}
0x0f84…0f88 00 09 01 76 ┆ v┆
0x0f88…0f90 (10, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x0f90…0fe0 (11, 0, 400) 00 1c 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 20 20 20 41 53 53 52 55 54 00 00 00 04 00 44 00 40 01 1f c4 43 48 41 4e 46 43 4b c4 43 52 45 56 4f 4c 00 c4 43 52 45 46 49 4c c4 c4 44 45 4c 46 49 4c 00 c4 47 45 54 56 4f 4c ff c4 43 ┆ F IDENT ASSRUT D @ CHANFCK CREVOL CREFIL DELFIL GETVOL C┆
0x0fe0…1030 4f 50 59 44 44 d3 c4 47 45 54 46 52 45 4c a4 43 48 56 4f 4c 00 00 00 24 00 4a 00 46 01 22 c4 53 55 52 56 45 59 d6 c4 55 50 44 42 4f 4c 1e c4 55 50 44 42 49 4e f4 84 53 45 54 42 59 a4 54 45 53 54 42 c4 43 4c 45 41 52 42 ee c4 4d 53 4b 4f 55 ┆OPYDD GETFREL CHVOL $ J F " SURVEY UPDBOL UPDBIN SETBY TESTB CLEARB MSKOU┆
0x1030…1080 54 60 c4 52 44 53 45 43 54 c4 c4 53 45 54 4f 43 43 4e 00 00 00 6c 00 34 00 30 01 17 c4 53 45 54 46 52 45 c4 c4 56 4f 4c 4e 41 4d 52 a4 41 54 54 57 42 c4 43 4d 50 49 4e 44 e4 c4 47 45 54 49 4e 44 21 c4 52 45 53 54 4f 52 80 00 00 00 ba 00 10 ┆T` RDSECT SETOCCN l 4 0 SETFRE VOLNAMR ATTWB CMPIND GETIND! RESTOR ┆
0x1080…10d0 00 0c 05 05 dc 43 48 41 4e 46 43 4b 00 00 00 00 00 f2 00 0e 00 0a 02 04 c2 54 3a 46 44 53 50 0b 00 00 01 06 00 0e 00 0a 02 04 c2 49 3a 45 56 41 30 e0 00 00 01 18 00 10 00 0c 05 05 dc 43 52 45 56 4f 4c 00 00 12 00 00 01 2a 00 2c 00 28 03 13 ┆ CHANFCK T:FDSP I:EVA0 CREVOL * , ( ┆
0x10d0…1120 00 00 00 01 48 08 f6 a1 00 00 00 02 f6 a1 00 00 00 04 e3 46 00 01 e3 43 00 01 57 00 f6 a1 00 00 00 04 86 06 f6 a1 00 00 01 3e 00 0c 00 08 02 03 a2 43 52 56 4f 4c 00 00 01 6e 00 2a 00 26 03 12 00 00 00 1b 88 00 00 00 00 04 81 b9 f6 a1 00 00 ┆ H F C W > CRVOL n * & ┆
0x1120…1170 (12, 0, 400) 00 04 81 d9 00 02 84 bb 85 db ff fe 9e a0 00 04 84 98 f6 a1 00 00 01 7e 00 0c 00 08 02 03 a2 49 3a 52 54 31 00 01 00 1c 00 10 00 0c 05 05 dc 43 52 45 46 49 4c c4 00 4c 00 01 00 2c 00 2c 00 28 03 13 00 00 00 35 80 44 00 00 00 06 96 a0 00 04 ┆ ~ I:RT1 CREFIL L , , ( 5 D ┆
0x1170…11c0 85 da ff fe 84 ba 86 04 f6 a1 00 00 00 04 86 27 8f 20 00 00 00 08 f6 a1 00 01 00 40 00 2c 00 28 03 13 00 00 00 4f 88 80 00 00 00 04 86 06 f6 a1 00 00 00 04 81 b9 f6 a1 00 00 00 04 81 d9 00 02 84 bb 85 db ff fe 9e a0 00 01 00 70 00 0e 00 0a ┆ ' @ , ( O p ┆
0x11c0…1210 02 04 c2 43 52 46 49 4c 45 00 00 01 00 a0 00 2c 00 28 03 13 00 00 00 69 10 08 00 04 84 98 f6 a1 00 00 00 0a 96 a0 00 04 85 da ff fe 84 ba 86 04 f6 a1 00 00 00 04 86 27 8f 20 00 01 00 b2 00 10 00 0c 05 05 dc 44 45 4c 46 49 4c 00 00 86 00 01 ┆ CRFILE , ( i ' DELFIL ┆
0x1210…1260 00 e2 00 2c 00 28 03 13 00 00 00 85 91 10 00 00 00 08 f6 a1 00 00 00 04 86 06 f6 a1 00 00 00 04 81 b9 f6 a1 00 00 00 04 81 d9 00 02 84 bb 00 01 00 f6 00 0e 00 0a 02 04 c2 44 4c 46 49 4c 45 31 00 01 01 26 00 2a 00 26 03 12 00 00 00 9d 02 00 ┆ , ( DLFILE1 & * & ┆
0x1260…12b0 85 db ff fe 9e a0 00 04 84 98 f6 a1 00 00 00 0c 96 a0 00 04 85 da ff fe 84 ba 86 04 f6 a1 00 01 01 38 00 10 00 0c 05 05 dc 43 4f 50 59 44 44 d3 00 c0 00 01 01 66 00 2a 00 26 03 12 00 00 00 b9 89 10 00 00 00 04 86 27 8f 20 00 00 00 08 f6 a1 ┆ 8 COPYDD f * & ' ┆