|
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: 4488 (0x1188)
Notes: pts_type(SC)
Names: »CDVRUT.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/CDVRUT.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/CDVRUT.SC«
IDENT CDVRUT REL 10.0 80-04-11 81-07-10,EV DK1 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 * 4. CALL CDVDK,STRING,BIN DK1 * * '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 CDVDK DK1 * * MAX FOR RESTART OF WEIGHT 2 11 10 7 DK1 * DIVIDEND FOR TOTAL SUM 10 11 11 11 DK1 EJECT ENTRY CDV10 ENTRY CDV110 ENTRY CDV111 ENTRY CDVDK DK1 * EXTRN I:EVA0 EXTRN I:RT1 * * CALL FORM 16=/F6A1,16 EJECT CDVDK EQU * CDV 11 CHECK, DENMARK DK1 LDK A6,7 RESTART LIMIT DK1 LDK A7,11 DIVIDEND DK1 RF CDV20 DK1 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 CWK A6,7 IF CDVDK DK1 RF(E) CDV45 YES DK1 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 CWK A6,7 IF CDVDK DK1 RF(NE) CDV48 NO, RESTART WEIGHT=1 DK1 LDK A2,2 YES, RESTART WEIGHT=2 DK1 RF CDV50 DK1 CDV48 EQU * DK1 LDK A2,1 RESTART WEIGHT 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…0042 Head {h00=0x0016, h01=0x0050, text=» 81-07-10,EV DK1«, t00=0x0000, t01=0x002c}
0x0042…005a Head {h00=0x0014, h01=0x0050, text=» 79-03-12/PEEN«, t00=0x0000, t01=0x0046}
0x005a…0076 Head {h00=0x0018, h01=0x0050, text=» UPD 79-01-18/PEEN«, t00=0x0000, t01=0x005e}
0x0076…0080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007a}
0x0080…008a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0084}
0x008a…00c4 Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE MAKES CDV-CHECK ON A STRING ITEM. «, t00=0x0000, t01=0x008e}
0x00c4…00ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…0112 Head {h00=0x0040, h01=0x0050, text=»* NOTE: THE DIGIT(S) ZERO SHOULD BE INSERTED IN THE STRING«, t00=0x0000, t01=0x00d2}
0x0112…0150 Head {h00=0x003a, h01=0x0050, text=»* AS CHECK DIGIT(S) IF YOU WANT THE ROUTINE TO«, t00=0x0000, t01=0x0116}
0x0150…0180 Head {h00=0x002c, h01=0x0050, text=»* CREATE CORRECT CHECK- DIGIT(S)«, t00=0x0000, t01=0x0154}
0x0180…018a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0184}
0x018a…01b6 Head {h00=0x0028, h01=0x0050, text=»* INPUT CAN BE OF VARIABLE LENGTH «, t00=0x0000, t01=0x018e}
0x01b6…01c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002a}
0x01c0…01ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0034}
0x01ca…0204 Head {h00=0x0036, h01=0x0050, text=»* CALLING FORMAT: 1. CALL CDV10,STRING,BIN «, t00=0x0001, t01=0x003e}
0x0204…023e Head {h00=0x0036, h01=0x0050, text=»* 2. CALL CDV110,STRING,BIN «, t00=0x0001, t01=0x0078}
0x023e…0278 Head {h00=0x0036, h01=0x0050, text=»* 3. CALL CDV111,STRING,BIN «, t00=0x0001, t01=0x00b2}
0x0278…02b4 Head {h00=0x0038, h01=0x0050, text=»* 4. CALL CDVDK,STRING,BIN DK1«, t00=0x0001, t01=0x00ec}
0x02b4…02be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02be…0306 Head {h00=0x0044, h01=0x0050, text=»* 'STRING' = A STRING VARIABLE HOLDING THE«, t00=0x0001, t01=0x0132}
0x0306…034c Head {h00=0x0042, h01=0x0050, text=»* INPUT TO MAKE CDV-CHECK ON «, t00=0x0001, t01=0x017a}
0x034c…039c Head {h00=0x004c, h01=0x0050, text=»* (NOT NUMERIC CHARACTERS ARE SKIPPED)«, t00=0x0002, t01=0x0030}
0x039c…03e8 Head {h00=0x0048, h01=0x0050, text=»* 'BIN' = A BINARY ITEM HOLDING THE CHECK- «, t00=0x0002, t01=0x0080}
0x03e8…0432 Head {h00=0x0046, h01=0x0050, text=»* DIGIT(S) AS OUTPUT IF THE CHECK«, t00=0x0002, t01=0x00cc}
0x0432…046e Head {h00=0x0038, h01=0x0050, text=»* WAS UNSUCCESSFUL «, t00=0x0002, t01=0x0116}
0x046e…0478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0152}
0x0478…049c Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: CR = 0 OK «, t00=0x0002, t01=0x015c}
0x049c…04c4 Head {h00=0x0024, h01=0x0050, text=»* CR = 1 NOT OK «, t00=0x0002, t01=0x0180}
0x04c4…04ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0018}
0x04ce…04fe Head {h00=0x002c, h01=0x0050, text=»* 'STRING' IS UNCHANGED «, t00=0x0003, t01=0x0022}
0x04fe…0548 Head {h00=0x0046, h01=0x0050, text=»* 'BIN' HOLDS CHECK-DIGIT(S) IF CR=1 (ELSE BIN=0) «, t00=0x0003, t01=0x0052}
0x0548…0556 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x009c}
0x0556…0576 Head {h00=0x001c, h01=0x0050, text=»* USE OF REGISTERS«, t00=0x0003, t01=0x00aa}
0x0576…0590 Head {h00=0x0016, h01=0x0050, text=»* REGISTER USE«, t00=0x0003, t01=0x00ca}
0x0590…05bc Head {h00=0x0028, h01=0x0050, text=»* A1 COUNTER FOR MULTIPLY «, t00=0x0003, t01=0x00e4}
0x05bc…05e2 Head {h00=0x0022, h01=0x0050, text=»* A2 CURRENT WEIGHT «, t00=0x0003, t01=0x0110}
0x05e2…060c Head {h00=0x0026, h01=0x0050, text=»* A4 CHARACTER SAVE AREA«, t00=0x0003, t01=0x0136}
0x060c…063a Head {h00=0x002a, h01=0x0050, text=»* A5 POINTER TO INPUT STRING«, t00=0x0003, t01=0x0160}
0x063a…0670 Head {h00=0x0032, h01=0x0050, text=»* A6 MAX VALUE FOR RESTART OF WEIGHT«, t00=0x0003, t01=0x018e}
0x0670…069e Head {h00=0x002a, h01=0x0050, text=»* A7 DIVIDEND FOR TOTAL SUM «, t00=0x0004, t01=0x0034}
0x069e…06c4 Head {h00=0x0022, h01=0x0050, text=»* A10 SUM OF PRODUCTS«, t00=0x0004, t01=0x0062}
0x06c4…06ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0088}
0x06ce…06d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0092}
0x06d8…06f8 Head {h00=0x001c, h01=0x0050, text=»* PARAMETERS FOR CDV «, t00=0x0004, t01=0x009c}
0x06f8…0742 Head {h00=0x0046, h01=0x0050, text=»* USE CONTENTS AT CDV10 CDV110 CDV111 CDVDK DK1«, t00=0x0004, t01=0x00bc}
0x0742…074c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0106}
0x074c…0796 Head {h00=0x0046, h01=0x0050, text=»* MAX FOR RESTART OF WEIGHT 2 11 10 7 DK1 «, t00=0x0004, t01=0x0110}
0x0796…07e0 Head {h00=0x0046, h01=0x0050, text=»* DIVIDEND FOR TOTAL SUM 10 11 11 11 DK1«, t00=0x0004, t01=0x015a}
0x07e0…07ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0014}
0x07ee…0802 Head {h00=0x0010, h01=0x0050, text=» ENTRY CDV10«, t00=0x0005, t01=0x0022}
0x0802…0818 Head {h00=0x0012, h01=0x0050, text=» ENTRY CDV110 «, t00=0x0005, t01=0x0036}
0x0818…082e Head {h00=0x0012, h01=0x0050, text=» ENTRY CDV111 «, t00=0x0005, t01=0x004c}
0x082e…0848 Head {h00=0x0016, h01=0x0050, text=» ENTRY CDVDK DK1 «, t00=0x0005, t01=0x0062}
0x0848…0852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x007c}
0x0852…0868 Head {h00=0x0012, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x0005, t01=0x0086}
0x0868…087c Head {h00=0x0010, h01=0x0050, text=» EXTRN I:RT1«, t00=0x0005, t01=0x009c}
0x087c…0886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b0}
0x0886…0890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ba}
0x0890…08ae Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F6A1,16 «, t00=0x0005, t01=0x00c4}
0x08ae…08bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00e2}
0x08bc…08ea Head {h00=0x002a, h01=0x0050, text=»CDVDK EQU * CDV 11 CHECK, DENMARK DK1 «, t00=0x0005, t01=0x00f0}
0x08ea…090e Head {h00=0x0020, h01=0x0050, text=» LDK A6,7 RESTART LIMIT DK1 «, t00=0x0005, t01=0x011e}
0x090e…092e Head {h00=0x001c, h01=0x0050, text=» LDK A7,11 DIVIDEND DK1 «, t00=0x0005, t01=0x0142}
0x092e…0944 Head {h00=0x0012, h01=0x0050, text=» RF CDV20 DK1«, t00=0x0005, t01=0x0162}
0x0944…0958 Head {h00=0x0010, h01=0x0050, text=»CDV110 EQU *«, t00=0x0005, t01=0x0178}
0x0958…097e Head {h00=0x0022, h01=0x0050, text=» LDK A6,11 LOAD RESTART LIMIT «, t00=0x0005, t01=0x018c}
0x097e…0992 Head {h00=0x0010, h01=0x0050, text=»CD005 EQU * «, t00=0x0006, t01=0x0022}
0x0992…09b2 Head {h00=0x001c, h01=0x0050, text=» LDK A7,11 LOAD DIVIDEND«, t00=0x0006, t01=0x0036}
0x09b2…09c4 Head {h00=0x000e, h01=0x0050, text=» RF CDV20 «, t00=0x0006, t01=0x0056}
0x09c4…09ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0068}
0x09ce…09d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0072}
0x09d8…09ec Head {h00=0x0010, h01=0x0050, text=»CDV111 EQU *«, t00=0x0006, t01=0x007c}
0x09ec…0a12 Head {h00=0x0022, h01=0x0050, text=» LDK A6,10 LOAD RESTART LIMIT «, t00=0x0006, t01=0x0090}
0x0a12…0a24 Head {h00=0x000e, h01=0x0050, text=» RB CD005 «, t00=0x0006, t01=0x00b6}
0x0a24…0a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x0a2e…0a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d2}
0x0a38…0a4c Head {h00=0x0010, h01=0x0050, text=»CDV10 EQU * «, t00=0x0006, t01=0x00dc}
0x0a4c…0a70 Head {h00=0x0020, h01=0x0050, text=» LDK A6,2 LOAD RESTART LIMIT«, t00=0x0006, t01=0x00f0}
0x0a70…0a90 Head {h00=0x001c, h01=0x0050, text=» LDK A7,10 LOAD DIVIDEND«, t00=0x0006, t01=0x0114}
0x0a90…0aa4 Head {h00=0x0010, h01=0x0050, text=»CDV20 EQU * «, t00=0x0006, t01=0x0134}
0x0aa4…0ad0 Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO INPUT STRING«, t00=0x0006, t01=0x0148}
0x0ad0…0af4 Head {h00=0x0020, h01=0x0050, text=» LDK A2,1 LOAD START WEIGHT «, t00=0x0006, t01=0x0174}
0x0af4…0b14 Head {h00=0x001c, h01=0x0050, text=» SUR A10,A10 ZERO TO SUM«, t00=0x0007, t01=0x0008}
0x0b14…0b28 Head {h00=0x0010, h01=0x0050, text=»CDV30 EQU * «, t00=0x0007, t01=0x0028}
0x0b28…0b3a Head {h00=0x000e, h01=0x0050, text=» CWR A5,A9«, t00=0x0007, t01=0x003c}
0x0b3a…0b5a Head {h00=0x001c, h01=0x0050, text=» RF(E) CDV60 IF FINISHED«, t00=0x0007, t01=0x004e}
0x0b5a…0b7c Head {h00=0x001e, h01=0x0050, text=» LC A4,-1,A5 GET CHARACTER«, t00=0x0007, t01=0x006e}
0x0b7c…0b90 Head {h00=0x0010, h01=0x0050, text=» CCK A4,'00'«, t00=0x0007, t01=0x0090}
0x0b90…0bb0 Head {h00=0x001c, h01=0x0050, text=» RF(L) CDV50 IF NO DIGIT«, t00=0x0007, t01=0x00a4}
0x0bb0…0bc4 Head {h00=0x0010, h01=0x0050, text=» CCK A4,'99'«, t00=0x0007, t01=0x00c4}
0x0bc4…0be4 Head {h00=0x001c, h01=0x0050, text=» RF(G) CDV50 IF NO DIGIT«, t00=0x0007, t01=0x00d8}
0x0be4…0c06 Head {h00=0x001e, h01=0x0050, text=» ANK A4,/F MASK OUT DIGIT «, t00=0x0007, t01=0x00f8}
0x0c06…0c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011a}
0x0c10…0c3e Head {h00=0x002a, h01=0x0050, text=»* MULTIPLY AND ACCUMULATE ONE DIGIT «, t00=0x0007, t01=0x0124}
0x0c3e…0c5c Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 SET WEIGHT «, t00=0x0007, t01=0x0152}
0x0c5c…0c70 Head {h00=0x0010, h01=0x0050, text=»CDV40 EQU * «, t00=0x0007, t01=0x0170}
0x0c70…0c8e Head {h00=0x001a, h01=0x0050, text=» ADR A10,A4 ADD TO SUM«, t00=0x0007, t01=0x0184}
0x0c8e…0cb2 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x0008, t01=0x0012}
0x0cb2…0cd6 Head {h00=0x0020, h01=0x0050, text=» RB(P) CDV40 IF MORE TO ADD «, t00=0x0008, t01=0x0036}
0x0cd6…0d00 Head {h00=0x0026, h01=0x0050, text=» CWR A2,A6 MULTIPLY BY 2 IN CDV10 «, t00=0x0008, t01=0x005a}
0x0d00…0d18 Head {h00=0x0014, h01=0x0050, text=» RF(NE) CDV45 NO«, t00=0x0008, t01=0x0084}
0x0d18…0d36 Head {h00=0x001a, h01=0x0050, text=» CWK A6,7 IF CDVDK DK1«, t00=0x0008, t01=0x009c}
0x0d36…0d52 Head {h00=0x0018, h01=0x0050, text=» RF(E) CDV45 YES DK1«, t00=0x0008, t01=0x00ba}
0x0d52…0d64 Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0008, t01=0x00d6}
0x0d64…0d94 Head {h00=0x002c, h01=0x0050, text=» RF(NP) CDV45 IF DIGIT SUM LESS THAN 10 «, t00=0x0008, t01=0x00e8}
0x0d94…0db2 Head {h00=0x001a, h01=0x0050, text=» SUKL A10,9 ADJUST SUM«, t00=0x0008, t01=0x0118}
0x0db2…0dc6 Head {h00=0x0010, h01=0x0050, text=»CDV45 EQU * «, t00=0x0008, t01=0x0136}
0x0dc6…0de8 Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 INCREMENT WEIGHT«, t00=0x0008, t01=0x014a}
0x0de8…0dfa Head {h00=0x000e, h01=0x0050, text=» CWR A2,A6«, t00=0x0008, t01=0x016c}
0x0dfa…0e20 Head {h00=0x0022, h01=0x0050, text=» RF(NG) CDV50 IF NOT MAX LIMIT«, t00=0x0008, t01=0x017e}
0x0e20…0e3e Head {h00=0x001a, h01=0x0050, text=» CWK A6,7 IF CDVDK DK1«, t00=0x0009, t01=0x0014}
0x0e3e…0e6c Head {h00=0x002a, h01=0x0050, text=» RF(NE) CDV48 NO, RESTART WEIGHT=1 DK1«, t00=0x0009, t01=0x0032}
0x0e6c…0e98 Head {h00=0x0028, h01=0x0050, text=» LDK A2,2 YES, RESTART WEIGHT=2 DK1 «, t00=0x0009, t01=0x0060}
0x0e98…0eae Head {h00=0x0012, h01=0x0050, text=» RF CDV50 DK1«, t00=0x0009, t01=0x008c}
0x0eae…0ec6 Head {h00=0x0014, h01=0x0050, text=»CDV48 EQU * DK1«, t00=0x0009, t01=0x00a2}
0x0ec6…0ee6 Head {h00=0x001c, h01=0x0050, text=» LDK A2,1 RESTART WEIGHT«, t00=0x0009, t01=0x00ba}
0x0ee6…0efa Head {h00=0x0010, h01=0x000b, text=»CDV50 EQU * «, t00=0x0009, t01=0x00da}
0x0efa…0f1e Head {h00=0x0020, h01=0x001b, text=» SUK A5,1 DECREMENT POINTER «, t00=0x0009, t01=0x00ee}
0x0f1e…0f38 Head {h00=0x0016, h01=0x0012, text=» RB CDV30 CONTINUE«, t00=0x0009, t01=0x0112}
0x0f38…0f42 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x012c}
0x0f42…0f56 Head {h00=0x0010, h01=0x000b, text=»CDV60 EQU * «, t00=0x0009, t01=0x0136}
0x0f56…0f74 Head {h00=0x001a, h01=0x0015, text=» LDK A6,0 INDICATE OK «, t00=0x0009, t01=0x014a}
0x0f74…0f86 Head {h00=0x000e, h01=0x0050, text=» CWK A7,10«, t00=0x0009, t01=0x0168}
0x0f86…0fa8 Head {h00=0x001e, h01=0x0050, text=» RF(NE) CDV70 IF NOT CDV10«, t00=0x0009, t01=0x017a}
0x0fa8…0fbc Head {h00=0x0010, h01=0x000c, text=» LDR A10,A10«, t00=0x000a, t01=0x000c}
0x0fbc…0fdc Head {h00=0x001c, h01=0x0018, text=» RF(Z) CDVOUT IF SUM = 0«, t00=0x000a, t01=0x0020}
0x0fdc…0ff0 Head {h00=0x0010, h01=0x000b, text=»CDV70 EQU * «, t00=0x000a, t01=0x0040}
0x0ff0…101c Head {h00=0x0028, h01=0x0023, text=» SUR A10,A7 SUBTRACT 10/11 FROM SUM «, t00=0x000a, t01=0x0054}
0x101c…103e Head {h00=0x001e, h01=0x001a, text=» RB(P) CDV70 SUM STILL > 0«, t00=0x000a, t01=0x0080}
0x103e…105e Head {h00=0x001c, h01=0x0017, text=» RF(Z) CDVOUT IF CDV-OK «, t00=0x000a, t01=0x00a2}
0x105e…1082 Head {h00=0x0020, h01=0x0050, text=» NGR A10,A10 GET CHECK DIGIT«, t00=0x000a, t01=0x00c2}
0x1082…10a4 Head {h00=0x001e, h01=0x0019, text=» LDK A6,1 INDICATE NOT OK «, t00=0x000a, t01=0x00e6}
0x10a4…10b8 Head {h00=0x0010, h01=0x000c, text=»CDVOUT EQU *«, t00=0x000a, t01=0x0108}
0x10b8…10e2 Head {h00=0x0026, h01=0x0021, text=» CALL I:EVA0 GET CHECK-DIGIT ITEM «, t00=0x000a, t01=0x011c}
0x10e2…1110 Head {h00=0x002a, h01=0x0026, text=» STR A10,A9 STORE CHECK-DIGIT IF ERROR«, t00=0x000a, t01=0x0146}
0x1110…1134 Head {h00=0x0020, h01=0x001b, text=» LD A1,2,A13 GET STACK BASE «, t00=0x000a, t01=0x0174}
0x1134…115a Head {h00=0x0022, h01=0x001e, text=» SC A6,-2,A1 STORE CR ON STACK«, t00=0x000b, t01=0x0008}
0x115a…116c Head {h00=0x000e, h01=0x000a, text=» ABL I:RT1«, t00=0x000b, t01=0x002e}
0x116c…1178 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000b, t01=0x0040}
0x1178…117c Head {h00=0x4004, h01=0x0000}
0x117c…1180 00 0b 00 4c ┆ L┆
0x1180…1188 (12, 1, 8) 20 04 00 00 00 0c 00 04 ┆ ┆