|
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: 4548 (0x11c4)
Notes: pts_type(SC)
Names: »CDVASM.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/CDVASM.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/CDVASM.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/CDVASM.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/CDVASM.SC«
IDENT CDVASM * * * BANKDATA APPLICATION * * * * CHECK CDV ON ITEM IN INPBUF EJECT * * USE OF REGISTERS * REGISTER USE * A5 POINTER TO INPBUF (INDEX) * A2 ACTUAL WEIGHT * A3 SUM OF PRODUCTS * A4 WORK REGISTER FOR CHAR * A1 MAX FOR 'RESTART' OF WEIGHT * A6 COUNTER FOR MULTIPLY * A7 LIMIT FOR DIGITSUM IN CDV-10 * * * * PARAMETERS FOR CDV * AREA USE CONTENT AT CDVEL0 CDVEL1 CDVTEN * A1 MAX FOR RESTART OF WEIGHT 10 10 2 * A7 LIMIT FOR DIGITSUM IN CDV-10 10 10 4 * WBASE RESTART VALUE FOR WEIGHT 0 1 1 * WDIV DIVIDEND FOR TOTAL SUM 11 11 10 * * * CALLING SEQUENSE * * CALL CDV0N,PARAM *CDV10 TEST * * CALL CDV1N,PARAM *CDV11 TEST * * CALL CDV1S,PARAM *CDV11 TEST SPECIAL * * * RETURNS WITH PARAMETER=NEATIVE VALUE IF ERROR * * * * EJECT ENTRY CDV0N ENTRY CDV1N ENTRY CDV1S ENTRY CDVSUB ENTRY CHANFC EXTRN T:FDSP EXTRN I:EVA0 EXTRN I:RT1 * * HERE IS JOINED COMMON PART OF ALL MODULES * NLIST LIST EJECT CDV1N LDK A5,0 FOR P-DATA ST A5,WBASE SET RESTART VALUE FOR WEIGHT CDV10 LDK A5,11 ST A5,WDIV SET CHECK VALUE FOR TOTAL LDK A1,10 LDK A7,10 RF CDV20 * * CDV1S LDK A5,1 FOR GOTABANKEN ST A5,WBASE RESTART VALUE FOR WEIGHT RB CDV10 * * WBASE DATA 0 WDIV DATA 0 * * CDV0N LDK A5,1 10 MODULO ST A5,WBASE RESTART VALUE FOR WEIGHT LDK A5,10 CHECK VALUE FOR TOTAL ST A5,WDIV LDK A1,2 LDK A7,4 * CDV20 CF A14,I:EVA0 GET PARAM ADDR LDK A2,1 SUK A5,1 LDK A3,0 ZERO TO SUM * CDV30 LCR A4,A5 FETCH CHAR ANK A4,/F MASK CWK A4,9 IS ALL DIGITS DONE ? RF(G) CDV40 YES CF A14,CDVSUB MULTIPLY AND ACCUMULATE DIGIT * LCR A4,A5 FETCH CHAR SRL A4,4 SHIFT ANK A4,/F MASK CWK A4,9 ALL DONE ? RF(G) CDV40 YES CF A14,CDVSUB * SUK A5,1 DECREMENT POINTER RB CDV30 * CDV40 LD A8,WDIV GET DIVIDEND FOR SUM LDR A3,A3 RF(NZ) CDV45 CDV42 ABL I:RT1 RTURN IF ZERO CDV45 SUR A3,A8 SUBTRACT 11/10 FROM SUM RB(P) CDV45 SUM STILL > 0 RB(Z) CDV42 SUKL A12,1 CF A14,I:EVA0 LCR A1,A9 ANK A1,/F ADK A1,/D0 SCR A1,A9 RB CDV42 GO FOR NEW MISSIONS IN CREDIT PART EJECT * * SUBROUTINE TO MULTIPLY AND ACCUMULATE ONE DIGIT * CDVSUB LDR A6,A2 SET COUNTER = WEIGHT RF(Z) CDVS30 WAS ZERO CDVS10 ADR A3,A4 ADD DIGIT TO SUM SUK A6,1 DECREMENT COUNTER RB(G) CDVS10 POS. CWR A2,A1 IS MULTIPLY BY 2(10) ? RF(NE) CDVS30 NO CWR A4,A7 SHALL THERE BE DIGIT SUM FO 10-MODULO RF(NG) CDVS30 NO SUK A3,9 YES - SUBTRACT 9 FROM SUM CDVS30 ADK A2,1 INCREMENT WEIGHT CWR A2,A1 IS MAX WEIGHT ? RF(NG) CDVS40 NO LD A2,WBASE SET BASE WEIGHT CDVS40 RTN A14 EJECT * * CHANGE FILE CODE IN ECB * CALL: * CALL CHANFC,DATASET,FILECODE * CHANFC EQU * CF A14,T:FDSP GET ECB-ADDRESS CF A14,I:EVA0 GET ADDRESS TO BIN. LC A3,1,A9 GET FILE CODE SC A3,1,A8 STORE FILE CODE IN ECB ABL I:RT1 RETURN END
0x0000…0016 (0, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IDENT CDVASM «, t00=0x0000, t01=0x0004}
0x0016…0020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x001a}
0x0020…002a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0024}
0x002a…0048 Head {h00=0x001a, h01=0x0050, text=»* BANKDATA APPLICATION«, t00=0x0000, t01=0x002e}
0x0048…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…005c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0056}
0x005c…0066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0060}
0x0066…008c Head {h00=0x0022, h01=0x0050, text=»* CHECK CDV ON ITEM IN INPBUF «, t00=0x0000, t01=0x006a}
0x008c…009a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0090}
0x009a…00a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009e}
0x00a4…00c0 Head {h00=0x0018, h01=0x0050, text=»* USE OF REGISTERS «, t00=0x0000, t01=0x00a8}
0x00c0…00d8 Head {h00=0x0014, h01=0x0050, text=»* REGISTER USE «, t00=0x0000, t01=0x00c4}
0x00d8…00fe Head {h00=0x0022, h01=0x0050, text=»* A5 POINTER TO INPBUF (INDEX)«, t00=0x0000, t01=0x00dc}
0x00fe…0118 Head {h00=0x0016, h01=0x0050, text=»* A2 ACTUAL WEIGHT«, t00=0x0000, t01=0x0102}
0x0118…0134 Head {h00=0x0018, h01=0x0050, text=»* A3 SUM OF PRODUCTS«, t00=0x0000, t01=0x011c}
0x0134…0158 Head {h00=0x0020, h01=0x0050, text=»* A4 WORK REGISTER FOR CHAR «, t00=0x0000, t01=0x0138}
0x0158…0180 Head {h00=0x0024, h01=0x0050, text=»* A1 MAX FOR 'RESTART' OF WEIGHT«, t00=0x0000, t01=0x015c}
0x0180…01a2 Head {h00=0x001e, h01=0x0050, text=»* A6 COUNTER FOR MULTIPLY «, t00=0x0000, t01=0x0184}
0x01a2…01cc Head {h00=0x0026, h01=0x0050, text=»* A7 LIMIT FOR DIGITSUM IN CDV-10 «, t00=0x0001, t01=0x0016}
0x01cc…01d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x01d6…01e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x01e0…01ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0054}
0x01ea…0208 Head {h00=0x001a, h01=0x0050, text=»* PARAMETERS FOR CDV «, t00=0x0001, t01=0x005e}
0x0208…0246 Head {h00=0x003a, h01=0x0050, text=»* AREA USE CONTENT AT CDVEL0 CDVEL1 CDVTEN«, t00=0x0001, t01=0x007c}
0x0246…0280 Head {h00=0x0036, h01=0x0050, text=»* A1 MAX FOR RESTART OF WEIGHT 10 10 2«, t00=0x0001, t01=0x00ba}
0x0280…02ba Head {h00=0x0036, h01=0x0050, text=»* A7 LIMIT FOR DIGITSUM IN CDV-10 10 10 4«, t00=0x0001, t01=0x00f4}
0x02ba…02f8 Head {h00=0x003a, h01=0x0050, text=»* WBASE RESTART VALUE FOR WEIGHT 0 1 1 «, t00=0x0001, t01=0x012e}
0x02f8…0334 Head {h00=0x0038, h01=0x0050, text=»* WDIV DIVIDEND FOR TOTAL SUM 11 11 10«, t00=0x0001, t01=0x016c}
0x0334…033e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0018}
0x033e…0348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0022}
0x0348…036a Head {h00=0x001e, h01=0x0050, text=»* CALLING SEQUENSE «, t00=0x0002, t01=0x002c}
0x036a…0374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004e}
0x0374…03a6 Head {h00=0x002e, h01=0x0050, text=»* CALL CDV0N,PARAM *CDV10 TEST «, t00=0x0002, t01=0x0058}
0x03a6…03b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008a}
0x03b0…03e2 Head {h00=0x002e, h01=0x0050, text=»* CALL CDV1N,PARAM *CDV11 TEST «, t00=0x0002, t01=0x0094}
0x03e2…03ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c6}
0x03ec…0426 Head {h00=0x0036, h01=0x0050, text=»* CALL CDV1S,PARAM *CDV11 TEST SPECIAL «, t00=0x0002, t01=0x00d0}
0x0426…0430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010a}
0x0430…043a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0114}
0x043a…0472 Head {h00=0x0034, h01=0x0050, text=»* RETURNS WITH PARAMETER=NEATIVE VALUE IF ERROR «, t00=0x0002, t01=0x011e}
0x0472…047c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0156}
0x047c…0486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0160}
0x0486…0490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016a}
0x0490…049a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0174}
0x049a…04a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x017e}
0x04a8…04bc Head {h00=0x0010, h01=0x0050, text=» ENTRY CDV0N«, t00=0x0002, t01=0x018c}
0x04bc…04d0 Head {h00=0x0010, h01=0x0050, text=» ENTRY CDV1N«, t00=0x0003, t01=0x0010}
0x04d0…04e4 Head {h00=0x0010, h01=0x0050, text=» ENTRY CDV1S«, t00=0x0003, t01=0x0024}
0x04e4…04fa Head {h00=0x0012, h01=0x0050, text=» ENTRY CDVSUB «, t00=0x0003, t01=0x0038}
0x04fa…0510 Head {h00=0x0012, h01=0x0050, text=» ENTRY CHANFC «, t00=0x0003, t01=0x004e}
0x0510…0526 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:FDSP «, t00=0x0003, t01=0x0064}
0x0526…053c Head {h00=0x0012, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x0003, t01=0x007a}
0x053c…0550 Head {h00=0x0010, h01=0x0050, text=» EXTRN I:RT1«, t00=0x0003, t01=0x0090}
0x0550…055a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a4}
0x055a…058e Head {h00=0x0030, h01=0x0050, text=»* HERE IS JOINED COMMON PART OF ALL MODULES «, t00=0x0003, t01=0x00ae}
0x058e…0598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e2}
0x0598…05a6 Head {h00=0x000a, h01=0x0050, text=» NLIST«, t00=0x0003, t01=0x00ec}
0x05a6…05b4 Head {h00=0x000a, h01=0x0050, text=» LIST «, t00=0x0003, t01=0x00fa}
0x05b4…05c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0108}
0x05c2…05e4 Head {h00=0x001e, h01=0x0050, text=»CDV1N LDK A5,0 FOR P-DATA «, t00=0x0003, t01=0x0116}
0x05e4…0616 Head {h00=0x002e, h01=0x0050, text=» ST A5,WBASE SET RESTART VALUE FOR WEIGHT «, t00=0x0003, t01=0x0138}
0x0616…062e Head {h00=0x0014, h01=0x0050, text=»CDV10 LDK A5,11 «, t00=0x0003, t01=0x016a}
0x062e…065c Head {h00=0x002a, h01=0x0050, text=» ST A5,WDIV SET CHECK VALUE FOR TOTAL «, t00=0x0003, t01=0x0182}
0x065c…0670 Head {h00=0x0010, h01=0x0050, text=» LDK A1,10 «, t00=0x0004, t01=0x0020}
0x0670…0682 Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x0004, t01=0x0034}
0x0682…0694 Head {h00=0x000e, h01=0x0050, text=» RF CDV20 «, t00=0x0004, t01=0x0046}
0x0694…069e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0058}
0x069e…06a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a8…06ce Head {h00=0x0022, h01=0x0050, text=»CDV1S LDK A5,1 FOR GOTABANKEN «, t00=0x0004, t01=0x006c}
0x06ce…06fc Head {h00=0x002a, h01=0x0050, text=» ST A5,WBASE RESTART VALUE FOR WEIGHT «, t00=0x0004, t01=0x0092}
0x06fc…070e Head {h00=0x000e, h01=0x0050, text=» RB CDV10 «, t00=0x0004, t01=0x00c0}
0x070e…0718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d2}
0x0718…0722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00dc}
0x0722…0736 Head {h00=0x0010, h01=0x0050, text=»WBASE DATA 0«, t00=0x0004, t01=0x00e6}
0x0736…074a Head {h00=0x0010, h01=0x0050, text=»WDIV DATA 0 «, t00=0x0004, t01=0x00fa}
0x074a…0754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010e}
0x0754…075e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0118}
0x075e…077e Head {h00=0x001c, h01=0x0050, text=»CDV0N LDK A5,1 10 MODULO«, t00=0x0004, t01=0x0122}
0x077e…07ac Head {h00=0x002a, h01=0x0050, text=» ST A5,WBASE RESTART VALUE FOR WEIGHT «, t00=0x0004, t01=0x0142}
0x07ac…07d4 Head {h00=0x0024, h01=0x0050, text=» LDK A5,10 CHECK VALUE FOR TOTAL«, t00=0x0004, t01=0x0170}
0x07d4…07e8 Head {h00=0x0010, h01=0x0050, text=» ST A5,WDIV «, t00=0x0005, t01=0x0008}
0x07e8…07fa Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0005, t01=0x001c}
0x07fa…080c Head {h00=0x000e, h01=0x0050, text=» LDK A7,4 «, t00=0x0005, t01=0x002e}
0x080c…0816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0040}
0x0816…0840 Head {h00=0x0026, h01=0x0050, text=»CDV20 CF A14,I:EVA0 GET PARAM ADDR«, t00=0x0005, t01=0x004a}
0x0840…0852 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0005, t01=0x0074}
0x0852…0864 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0005, t01=0x0086}
0x0864…0882 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 ZERO TO SUM «, t00=0x0005, t01=0x0098}
0x0882…088c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b6}
0x088c…08ae Head {h00=0x001e, h01=0x0050, text=»CDV30 LCR A4,A5 FETCH CHAR«, t00=0x0005, t01=0x00c0}
0x08ae…08c6 Head {h00=0x0014, h01=0x0050, text=» ANK A4,/F MASK «, t00=0x0005, t01=0x00e2}
0x08c6…08ec Head {h00=0x0022, h01=0x0050, text=» CWK A4,9 IS ALL DIGITS DONE ?«, t00=0x0005, t01=0x00fa}
0x08ec…0906 Head {h00=0x0016, h01=0x0050, text=» RF(G) CDV40 YES«, t00=0x0005, t01=0x0120}
0x0906…093a Head {h00=0x0030, h01=0x0050, text=» CF A14,CDVSUB MULTIPLY AND ACCUMULATE DIGIT«, t00=0x0005, t01=0x013a}
0x093a…0944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016e}
0x0944…0962 Head {h00=0x001a, h01=0x0050, text=» LCR A4,A5 FETCH CHAR «, t00=0x0005, t01=0x0178}
0x0962…097a Head {h00=0x0014, h01=0x0050, text=» SRL A4,4 SHIFT «, t00=0x0006, t01=0x0008}
0x097a…0992 Head {h00=0x0014, h01=0x0050, text=» ANK A4,/F MASK «, t00=0x0006, t01=0x0020}
0x0992…09ae Head {h00=0x0018, h01=0x0050, text=» CWK A4,9 ALL DONE ?«, t00=0x0006, t01=0x0038}
0x09ae…09c8 Head {h00=0x0016, h01=0x0050, text=» RF(G) CDV40 YES«, t00=0x0006, t01=0x0054}
0x09c8…09de Head {h00=0x0012, h01=0x0050, text=» CF A14,CDVSUB«, t00=0x0006, t01=0x006e}
0x09de…09e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0084}
0x09e8…0a0c Head {h00=0x0020, h01=0x0050, text=» SUK A5,1 DECREMENT POINTER «, t00=0x0006, t01=0x008e}
0x0a0c…0a1e Head {h00=0x000e, h01=0x0050, text=» RB CDV30 «, t00=0x0006, t01=0x00b2}
0x0a1e…0a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c4}
0x0a28…0a56 Head {h00=0x002a, h01=0x0050, text=»CDV40 LD A8,WDIV GET DIVIDEND FOR SUM «, t00=0x0006, t01=0x00ce}
0x0a56…0a68 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0006, t01=0x00fc}
0x0a68…0a7e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CDV45 «, t00=0x0006, t01=0x010e}
0x0a7e…0aa4 Head {h00=0x0022, h01=0x0050, text=»CDV42 ABL I:RT1 RTURN IF ZERO «, t00=0x0006, t01=0x0124}
0x0aa4…0ad4 Head {h00=0x002c, h01=0x0050, text=»CDV45 SUR A3,A8 SUBTRACT 11/10 FROM SUM «, t00=0x0006, t01=0x014a}
0x0ad4…0af6 Head {h00=0x001e, h01=0x0050, text=» RB(P) CDV45 SUM STILL > 0«, t00=0x0006, t01=0x017a}
0x0af6…0b0a Head {h00=0x0010, h01=0x0050, text=» RB(Z) CDV42«, t00=0x0007, t01=0x000c}
0x0b0a…0b1e Head {h00=0x0010, h01=0x0050, text=» SUKL A12,1 «, t00=0x0007, t01=0x0020}
0x0b1e…0b34 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0007, t01=0x0034}
0x0b34…0b46 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A9«, t00=0x0007, t01=0x004a}
0x0b46…0b58 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0007, t01=0x005c}
0x0b58…0b6c Head {h00=0x0010, h01=0x0050, text=» ADK A1,/D0 «, t00=0x0007, t01=0x006e}
0x0b6c…0b7e Head {h00=0x000e, h01=0x0050, text=» SCR A1,A9«, t00=0x0007, t01=0x0082}
0x0b7e…0bb2 Head {h00=0x0030, h01=0x0050, text=» RB CDV42 GO FOR NEW MISSIONS IN CREDIT PART«, t00=0x0007, t01=0x0094}
0x0bb2…0bc0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00c8}
0x0bc0…0bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d6}
0x0bca…0c04 Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINE TO MULTIPLY AND ACCUMULATE ONE DIGIT «, t00=0x0007, t01=0x00e0}
0x0c04…0c0c Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x011a}
0x0c0c…0c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0122}
0x0c16…0c44 Head {h00=0x002a, h01=0x0050, text=»CDVSUB LDR A6,A2 SET COUNTER = WEIGHT «, t00=0x0007, t01=0x012c}
0x0c44…0c62 Head {h00=0x001a, h01=0x0050, text=» RF(Z) CDVS30 WAS ZERO«, t00=0x0007, t01=0x015a}
0x0c62…0c8c Head {h00=0x0026, h01=0x0050, text=»CDVS10 ADR A3,A4 ADD DIGIT TO SUM «, t00=0x0007, t01=0x0178}
0x0c8c…0cb0 Head {h00=0x0020, h01=0x0050, text=» SUK A6,1 DECREMENT COUNTER «, t00=0x0008, t01=0x0012}
0x0cb0…0cca Head {h00=0x0016, h01=0x0050, text=» RB(G) CDVS10 POS.«, t00=0x0008, t01=0x0036}
0x0cca…0cf4 Head {h00=0x0026, h01=0x0050, text=» CWR A2,A1 IS MULTIPLY BY 2(10) ? «, t00=0x0008, t01=0x0050}
0x0cf4…0d10 Head {h00=0x0018, h01=0x0050, text=» RF(NE) CDVS30 NO «, t00=0x0008, t01=0x007a}
0x0d10…0d48 Head {h00=0x0034, h01=0x0050, text=» CWR A4,A7 SHALL THERE BE DIGIT SUM FO 10-MODULO«, t00=0x0008, t01=0x0096}
0x0d48…0d64 Head {h00=0x0018, h01=0x0050, text=» RF(NG) CDVS30 NO «, t00=0x0008, t01=0x00ce}
0x0d64…0d92 Head {h00=0x002a, h01=0x0050, text=» SUK A3,9 YES - SUBTRACT 9 FROM SUM «, t00=0x0008, t01=0x00ea}
0x0d92…0dba Head {h00=0x0024, h01=0x0050, text=»CDVS30 ADK A2,1 INCREMENT WEIGHT«, t00=0x0008, t01=0x0118}
0x0dba…0ddc Head {h00=0x001e, h01=0x0050, text=» CWR A2,A1 IS MAX WEIGHT ?«, t00=0x0008, t01=0x0140}
0x0ddc…0df8 Head {h00=0x0018, h01=0x0050, text=» RF(NG) CDVS40 NO «, t00=0x0008, t01=0x0162}
0x0df8…0e1c Head {h00=0x0020, h01=0x0050, text=» LD A2,WBASE SET BASE WEIGHT«, t00=0x0008, t01=0x017e}
0x0e1c…0e32 Head {h00=0x0012, h01=0x0050, text=»CDVS40 RTN A14«, t00=0x0009, t01=0x0012}
0x0e32…0e40 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0028}
0x0e40…0e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0036}
0x0e4a…0e6e Head {h00=0x0020, h01=0x0050, text=»* CHANGE FILE CODE IN ECB «, t00=0x0009, t01=0x0040}
0x0e6e…0e80 Head {h00=0x000e, h01=0x0050, text=»* CALL: «, t00=0x0009, t01=0x0064}
0x0e80…0eae Head {h00=0x002a, h01=0x0050, text=»* CALL CHANFC,DATASET,FILECODE «, t00=0x0009, t01=0x0076}
0x0eae…0eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a4}
0x0eb8…0ecc Head {h00=0x0010, h01=0x0050, text=»CHANFC EQU *«, t00=0x0009, t01=0x00ae}
0x0ecc…0ef2 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:FDSP GET ECB-ADDRESS«, t00=0x0009, t01=0x00c2}
0x0ef2…0f1c Head {h00=0x0026, h01=0x0050, text=» CF A14,I:EVA0 GET ADDRESS TO BIN.«, t00=0x0009, t01=0x00e8}
0x0f1c…0f3e Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A9 GET FILE CODE «, t00=0x0009, t01=0x0112}
0x0f3e…0f68 Head {h00=0x0026, h01=0x0050, text=» SC A3,1,A8 STORE FILE CODE IN ECB«, t00=0x0009, t01=0x0134}
0x0f68…0f82 Head {h00=0x0016, h01=0x0050, text=» ABL I:RT1 RETURN «, t00=0x0009, t01=0x015e}
0x0f82…0f8e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0009, t01=0x0178}
0x0f8e…0f92 Head {h00=0x4004, h01=0x0000}
0x0f92…0f96 00 09 01 84 ┆ ┆
0x0f96…0f9e (10, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x0f9e…0fee (11, 2, 150) 00 2a 00 46 20 49 44 45 4e 54 20 44 3a 43 42 31 30 20 20 54 52 41 20 33 2e 31 20 20 37 38 2d 31 31 2d 30 36 20 4f 31 31 31 20 00 0b 00 04 00 0e 00 0a 01 04 c8 44 3a 43 42 31 30 00 00 0b 00 32 00 10 00 0c 05 05 c8 44 3a 43 42 31 30 43 00 00 ┆ * F IDENT D:CB10 TRA 3.1 78-11-06 O111 D:CB10 2 D:CB10C ┆
0x0fee…1034 00 0b 00 44 00 24 00 20 03 0f 00 00 00 01 00 00 80 be 00 10 0b e0 80 13 00 10 0d 10 80 14 00 10 0e 50 80 14 00 10 0f 90 00 0b 00 58 00 0e 00 0a 07 04 00 00 3a 43 00 18 00 00 00 0b 00 80 40 04 00 00 00 0b 00 92 ┆ D $ P X :C @ ┆
0x1034…1084 (12, 0, 400) 00 2a 00 46 20 49 44 45 4e 54 20 43 3a 43 42 31 30 20 20 54 52 41 20 33 2e 31 20 20 37 38 2d 31 31 2d 30 36 20 4f 31 31 31 20 00 0c 00 04 00 0e 00 0a 01 04 c8 43 3a 43 42 31 30 00 00 0c 00 32 00 10 00 0c 05 05 c8 43 3a 43 42 31 30 43 00 04 ┆ * F IDENT C:CB10 TRA 3.1 78-11-06 O111 C:CB10 2 C:CB10C ┆
0x1084…10d4 00 0c 00 44 00 10 00 26 03 12 00 00 00 01 00 00 0f 92 00 00 00 0c 00 58 00 0c 00 26 03 12 00 00 00 1f 00 00 00 0c 00 6c 00 0c 00 26 03 12 00 00 00 3d 00 00 00 0c 00 7c 00 0c 00 26 03 12 00 00 00 5b 00 00 00 0c 00 8c 00 0c 00 26 03 12 00 00 ┆ D & X & l & = | & [ & ┆
0x10d4…1124 00 79 00 00 00 0c 00 9c 00 0c 00 26 03 12 00 00 00 97 00 00 00 0c 00 ac 00 0c 00 26 03 12 00 00 00 b5 00 00 00 0c 00 bc 00 0c 00 26 03 12 00 00 00 d3 00 00 00 0c 00 cc 00 0c 00 26 03 12 00 00 00 f1 00 00 00 0c 00 dc 00 0c 00 26 03 12 00 00 ┆ y & & & & & ┆
0x1124…1174 01 0f 00 00 00 0c 00 ec 00 0c 00 26 03 12 00 00 01 2d 00 00 00 0c 00 fc 00 0c 00 26 03 12 00 00 01 4b 00 00 00 0c 01 0c 00 0c 00 26 03 12 00 00 01 69 00 00 00 0c 01 1c 00 0c 00 26 03 12 00 00 01 87 00 00 00 0c 01 2c 00 0c 00 26 03 12 00 00 ┆ & - & K & i & , & ┆
0x1174…11c4 01 a5 00 00 00 0c 01 3c 00 0c 00 26 03 12 00 00 01 c3 00 00 00 0c 01 4c 00 0c 00 26 03 12 00 00 01 e1 00 00 00 0c 01 5c 00 0c 00 26 03 12 00 00 01 ff 00 00 00 0c 01 6c 00 0c 00 26 03 12 00 00 02 1d 00 00 00 0c 01 7c 00 0c 00 26 03 12 00 00 ┆ < & L & & l & | & ┆