|
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: 7984 (0x1f30)
Notes: pts_type(SC)
Names: »ASMRUT.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »TOOL/ASMRUT.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »TOOL/ASMRUT.SC«
IDENT ASMRUT DATE:81-02-26 * ENTRY ZASEB CONVERT ASCII TO EBCDIC ENTRY ZEBAS CONVERT EBCDIC TO ASCII ENTRY CDV10 CDV CHECK ON STRING ITEM ENTRY CDV110 "- ENTRY CDV111 "- * EXTRN I:EVA0 EXTRN I:RT1 EXTRN TASCII EXTRN TEBCDIC * CALL FORM 16=/F6A1,16 EJECT * * SUBROUTINE: ZASEB * * SHORT NAME: ZE * * PURPOSE: CONVERTS STRING FROM ASCII TO EBCDIC OR VICE VERSA * * CALL: CALL ZASEB,STR,START,NCH (ASCII->EBCDIC) * CALL ZEBAS,STR,START,NCH (EBCDIC->ASCII) * * INPUT: STR = CHARACTERSTRING TO BE CONVERTED. * START= STARTPOS FOR CONVERSION * FIRST CH.POS=0 * NCH = # CH:S TO BE CONVERTED. * =0 -> REST OF STRING CONVERTED * ************************************************************************ * * 000 ZASEB 'SEQ' * GET PARAMETERADDRESSES * CONVERT BYTE FOR BYTE * ZASEB 'END' * ************************************************************************ EJECT POS EQU A4 POINTER IN STRING NCH EQU A7 #CH:S CH EQU A5 CHARACTER CONVTB EQU A6 START OF CONV.TABLE WR EQU A8 WORK-REGISTER SAD EQU A9 PARAM.START ADDR. EAD EQU A5 PARAM. END ADDR. * ZASEB EQU * LDKL CONVTB,TEBCDIC RF ZE000S * ZEBAS EQU * LDKL CONVTB,TASCII * ZE000S EQU * * *** GET PARAMETERADDRESSES * * CALL I:EVA0 1.PARAM: STRING LDR POS,SAD POS := START OF STRING LDR NCH,EAD NCH := END OF STRING * CALL I:EVA0 2.PARAM: START ADR* POS,SAD POS := 1.CH-POS SUR NCH,POS NCH := #CH:S TO END-OF-STR * CALL I:EVA0 3.PARAM: NCH LDR* WR,SAD RF(NP) ZE010 NCH=0? LDR NCH,WR NCH>0 ZE010 EQU * LDK CH,0 CLEAR CH CWK CONVTB,TEBCDIC RF(NE) ZE050O * *** CONVERT FROM ASCII TO EBCDIC * ZE050V EQU * ST CONVTB,CNVTB1 ZE100I EQU * LCR CH,POS LOAD CH FROM STRING LC CH,0,CH LOAD FROM CONV.TABLE CNVTB1 EQU *-1 SCR CH,POS RESTORE NEW BYTE ADK POS,1 STEP POINTER SUK NCH,1 NCH := NCH - 1 RB(P) ZE100I ZE100E EQU * RF ZE050E * *** CONVERT FROM EBCDIC TO ASCII * ZE050O EQU * ST CONVTB,CNVTB2 ZE200I EQU * LCR CH,POS LOAD CH FROM STRING LC CH,0,CH LOAD FROM CONV.TABLE CNVTB2 EQU *-1 SCR CH,POS RESTORE NEW BYTE ADK POS,1 STEP POINTER SUK NCH,1 NCH := NCH - 1 RB(P) ZE200I ZE200E EQU * ZE050E EQU * ZE000E EQU * ABL I:RT1 RETURN EJECT * 790208 * * 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 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 CWK A6,2 RF(NE) CDV45 RESTART LIMIT =/= 2 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 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 RETUR ABL I:RT1 END
0x0000…0024 (0, 0, 400) Head {h00=0x0020, h01=0x001b, text=» IDENT ASMRUT DATE:81-02-26 «, t00=0x0000, t01=0x0004}
0x0024…002e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0028}
0x002e…005a Head {h00=0x0028, h01=0x0050, text=» ENTRY ZASEB CONVERT ASCII TO EBCDIC«, t00=0x0000, t01=0x0032}
0x005a…0086 Head {h00=0x0028, h01=0x0050, text=» ENTRY ZEBAS CONVERT EBCDIC TO ASCII«, t00=0x0000, t01=0x005e}
0x0086…00b4 Head {h00=0x002a, h01=0x0050, text=» ENTRY CDV10 CDV CHECK ON STRING ITEM «, t00=0x0000, t01=0x008a}
0x00b4…00cc Head {h00=0x0014, h01=0x0050, text=» ENTRY CDV110 "-«, t00=0x0000, t01=0x00b8}
0x00cc…00e4 Head {h00=0x0014, h01=0x0050, text=» ENTRY CDV111 "-«, t00=0x0000, t01=0x00d0}
0x00e4…00ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…0104 Head {h00=0x0012, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x0000, t01=0x00f2}
0x0104…0118 Head {h00=0x0010, h01=0x0050, text=» EXTRN I:RT1«, t00=0x0000, t01=0x0108}
0x0118…012e Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCII «, t00=0x0000, t01=0x011c}
0x012e…0144 Head {h00=0x0012, h01=0x0050, text=» EXTRN TEBCDIC«, t00=0x0000, t01=0x0132}
0x0144…014e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0148}
0x014e…016c Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F6A1,16 «, t00=0x0000, t01=0x0152}
0x016c…017a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0170}
0x017a…0184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017e}
0x0184…01a0 Head {h00=0x0018, h01=0x0050, text=»* SUBROUTINE: ZASEB «, t00=0x0000, t01=0x0188}
0x01a0…01aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0014}
0x01aa…01c2 Head {h00=0x0014, h01=0x0050, text=»* SHORT NAME: ZE«, t00=0x0001, t01=0x001e}
0x01c2…01cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0036}
0x01cc…0214 Head {h00=0x0044, h01=0x0050, text=»* PURPOSE: CONVERTS STRING FROM ASCII TO EBCDIC OR VICE VERSA«, t00=0x0001, t01=0x0040}
0x0214…021e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0088}
0x021e…025c Head {h00=0x003a, h01=0x0050, text=»* CALL: CALL ZASEB,STR,START,NCH (ASCII->EBCDIC)«, t00=0x0001, t01=0x0092}
0x025c…029a Head {h00=0x003a, h01=0x0050, text=»* CALL ZEBAS,STR,START,NCH (EBCDIC->ASCII)«, t00=0x0001, t01=0x00d0}
0x029a…02a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010e}
0x02a4…02e0 Head {h00=0x0038, h01=0x0050, text=»* INPUT: STR = CHARACTERSTRING TO BE CONVERTED.«, t00=0x0001, t01=0x0118}
0x02e0…0314 Head {h00=0x0030, h01=0x0050, text=»* START= STARTPOS FOR CONVERSION «, t00=0x0001, t01=0x0154}
0x0314…033e Head {h00=0x0026, h01=0x0050, text=»* FIRST CH.POS=0«, t00=0x0001, t01=0x0188}
0x033e…0372 Head {h00=0x0030, h01=0x0050, text=»* NCH = # CH:S TO BE CONVERTED.«, t00=0x0002, t01=0x0022}
0x0372…03ac Head {h00=0x0036, h01=0x0050, text=»* =0 -> REST OF STRING CONVERTED«, t00=0x0002, t01=0x0056}
0x03ac…03b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0090}
0x03b6…0406 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x009a}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…042a Head {h00=0x0016, h01=0x0050, text=»* 000 ZASEB 'SEQ'«, t00=0x0002, t01=0x00f4}
0x042a…0452 Head {h00=0x0024, h01=0x0050, text=»* GET PARAMETERADDRESSES «, t00=0x0002, t01=0x010e}
0x0452…0478 Head {h00=0x0022, h01=0x0050, text=»* CONVERT BYTE FOR BYTE«, t00=0x0002, t01=0x0136}
0x0478…0492 Head {h00=0x0016, h01=0x0050, text=»* ZASEB 'END'«, t00=0x0002, t01=0x015c}
0x0492…049c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0176}
0x049c…04ec Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0180}
0x04ec…04fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0040}
0x04fa…051e Head {h00=0x0020, h01=0x0050, text=»POS EQU A4 POINTER IN STRING«, t00=0x0003, t01=0x004e}
0x051e…0536 Head {h00=0x0014, h01=0x0050, text=»NCH EQU A7 #CH:S«, t00=0x0003, t01=0x0072}
0x0536…0552 Head {h00=0x0018, h01=0x0050, text=»CH EQU A5 CHARACTER «, t00=0x0003, t01=0x008a}
0x0552…057c Head {h00=0x0026, h01=0x0050, text=»CONVTB EQU A6 START OF CONV.TABLE «, t00=0x0003, t01=0x00a6}
0x057c…059c Head {h00=0x001c, h01=0x0050, text=»WR EQU A8 WORK-REGISTER «, t00=0x0003, t01=0x00d0}
0x059c…05c0 Head {h00=0x0020, h01=0x0050, text=»SAD EQU A9 PARAM.START ADDR.«, t00=0x0003, t01=0x00f0}
0x05c0…05e4 Head {h00=0x0020, h01=0x0050, text=»EAD EQU A5 PARAM. END ADDR. «, t00=0x0003, t01=0x0114}
0x05e4…05ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0138}
0x05ee…0602 Head {h00=0x0010, h01=0x0050, text=»ZASEB EQU * «, t00=0x0003, t01=0x0142}
0x0602…061e Head {h00=0x0018, h01=0x0050, text=» LDKL CONVTB,TEBCDIC«, t00=0x0003, t01=0x0156}
0x061e…0630 Head {h00=0x000e, h01=0x0050, text=» RF ZE000S«, t00=0x0003, t01=0x0172}
0x0630…063a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0184}
0x063a…064e Head {h00=0x0010, h01=0x0050, text=»ZEBAS EQU * «, t00=0x0003, t01=0x018e}
0x064e…066a Head {h00=0x0018, h01=0x0050, text=» LDKL CONVTB,TASCII «, t00=0x0004, t01=0x0012}
0x066a…0674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002e}
0x0674…0688 Head {h00=0x0010, h01=0x0050, text=»ZE000S EQU *«, t00=0x0004, t01=0x0038}
0x0688…0692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004c}
0x0692…06b6 Head {h00=0x0020, h01=0x0050, text=»*** GET PARAMETERADDRESSES«, t00=0x0004, t01=0x0056}
0x06b6…06c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007a}
0x06c0…06ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0084}
0x06ca…06ee Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 1.PARAM: STRING«, t00=0x0004, t01=0x008e}
0x06ee…071a Head {h00=0x0028, h01=0x0050, text=» LDR POS,SAD POS := START OF STRING «, t00=0x0004, t01=0x00b2}
0x071a…0744 Head {h00=0x0026, h01=0x0050, text=» LDR NCH,EAD NCH := END OF STRING «, t00=0x0004, t01=0x00de}
0x0744…074e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0108}
0x074e…0772 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 2.PARAM: START «, t00=0x0004, t01=0x0112}
0x0772…0798 Head {h00=0x0022, h01=0x0050, text=» ADR* POS,SAD POS := 1.CH-POS «, t00=0x0004, t01=0x0136}
0x0798…07c8 Head {h00=0x002c, h01=0x0050, text=» SUR NCH,POS NCH := #CH:S TO END-OF-STR «, t00=0x0004, t01=0x015c}
0x07c8…07d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018c}
0x07d2…07f4 Head {h00=0x001e, h01=0x0050, text=» CALL I:EVA0 3.PARAM: NCH «, t00=0x0005, t01=0x0008}
0x07f4…0808 Head {h00=0x0010, h01=0x0050, text=» LDR* WR,SAD«, t00=0x0005, t01=0x002a}
0x0808…0824 Head {h00=0x0018, h01=0x0050, text=» RF(NP) ZE010 NCH=0?«, t00=0x0005, t01=0x003e}
0x0824…083e Head {h00=0x0016, h01=0x0050, text=» LDR NCH,WR NCH>0 «, t00=0x0005, t01=0x005a}
0x083e…0852 Head {h00=0x0010, h01=0x0050, text=»ZE010 EQU * «, t00=0x0005, t01=0x0074}
0x0852…086c Head {h00=0x0016, h01=0x0050, text=» LDK CH,0 CLEAR CH«, t00=0x0005, t01=0x0088}
0x086c…0888 Head {h00=0x0018, h01=0x0050, text=» CWK CONVTB,TEBCDIC «, t00=0x0005, t01=0x00a2}
0x0888…089e Head {h00=0x0012, h01=0x0050, text=» RF(NE) ZE050O«, t00=0x0005, t01=0x00be}
0x089e…08a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d4}
0x08a8…08d2 Head {h00=0x0026, h01=0x0050, text=»*** CONVERT FROM ASCII TO EBCDIC«, t00=0x0005, t01=0x00de}
0x08d2…08dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0108}
0x08dc…08f0 Head {h00=0x0010, h01=0x0050, text=»ZE050V EQU *«, t00=0x0005, t01=0x0112}
0x08f0…090a Head {h00=0x0016, h01=0x0050, text=» ST CONVTB,CNVTB1 «, t00=0x0005, t01=0x0126}
0x090a…091e Head {h00=0x0010, h01=0x0050, text=»ZE100I EQU *«, t00=0x0005, t01=0x0140}
0x091e…0946 Head {h00=0x0024, h01=0x0050, text=» LCR CH,POS LOAD CH FROM STRING «, t00=0x0005, t01=0x0154}
0x0946…096e Head {h00=0x0024, h01=0x0050, text=» LC CH,0,CH LOAD FROM CONV.TABLE«, t00=0x0005, t01=0x017c}
0x096e…0984 Head {h00=0x0012, h01=0x0050, text=»CNVTB1 EQU *-1«, t00=0x0006, t01=0x0014}
0x0984…09a8 Head {h00=0x0020, h01=0x0050, text=» SCR CH,POS RESTORE NEW BYTE«, t00=0x0006, t01=0x002a}
0x09a8…09c8 Head {h00=0x001c, h01=0x0050, text=» ADK POS,1 STEP POINTER «, t00=0x0006, t01=0x004e}
0x09c8…09ea Head {h00=0x001e, h01=0x0050, text=» SUK NCH,1 NCH := NCH - 1 «, t00=0x0006, t01=0x006e}
0x09ea…0a00 Head {h00=0x0012, h01=0x0050, text=» RB(P) ZE100I «, t00=0x0006, t01=0x0090}
0x0a00…0a14 Head {h00=0x0010, h01=0x0050, text=»ZE100E EQU *«, t00=0x0006, t01=0x00a6}
0x0a14…0a26 Head {h00=0x000e, h01=0x0050, text=» RF ZE050E«, t00=0x0006, t01=0x00ba}
0x0a26…0a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00cc}
0x0a30…0a5a Head {h00=0x0026, h01=0x0050, text=»*** CONVERT FROM EBCDIC TO ASCII«, t00=0x0006, t01=0x00d6}
0x0a5a…0a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0100}
0x0a64…0a78 Head {h00=0x0010, h01=0x0050, text=»ZE050O EQU *«, t00=0x0006, t01=0x010a}
0x0a78…0a92 Head {h00=0x0016, h01=0x0050, text=» ST CONVTB,CNVTB2 «, t00=0x0006, t01=0x011e}
0x0a92…0aa6 Head {h00=0x0010, h01=0x0050, text=»ZE200I EQU *«, t00=0x0006, t01=0x0138}
0x0aa6…0ace Head {h00=0x0024, h01=0x0050, text=» LCR CH,POS LOAD CH FROM STRING «, t00=0x0006, t01=0x014c}
0x0ace…0af6 Head {h00=0x0024, h01=0x0050, text=» LC CH,0,CH LOAD FROM CONV.TABLE«, t00=0x0006, t01=0x0174}
0x0af6…0b0c Head {h00=0x0012, h01=0x0050, text=»CNVTB2 EQU *-1«, t00=0x0007, t01=0x000c}
0x0b0c…0b30 Head {h00=0x0020, h01=0x0050, text=» SCR CH,POS RESTORE NEW BYTE«, t00=0x0007, t01=0x0022}
0x0b30…0b50 Head {h00=0x001c, h01=0x0050, text=» ADK POS,1 STEP POINTER «, t00=0x0007, t01=0x0046}
0x0b50…0b72 Head {h00=0x001e, h01=0x0050, text=» SUK NCH,1 NCH := NCH - 1 «, t00=0x0007, t01=0x0066}
0x0b72…0b88 Head {h00=0x0012, h01=0x0050, text=» RB(P) ZE200I «, t00=0x0007, t01=0x0088}
0x0b88…0b9c Head {h00=0x0010, h01=0x0050, text=»ZE200E EQU *«, t00=0x0007, t01=0x009e}
0x0b9c…0bb0 Head {h00=0x0010, h01=0x0050, text=»ZE050E EQU *«, t00=0x0007, t01=0x00b2}
0x0bb0…0bc4 Head {h00=0x0010, h01=0x0050, text=»ZE000E EQU *«, t00=0x0007, t01=0x00c6}
0x0bc4…0bde Head {h00=0x0016, h01=0x0050, text=» ABL I:RT1 RETURN «, t00=0x0007, t01=0x00da}
0x0bde…0bec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00f4}
0x0bec…0bfe Head {h00=0x000e, h01=0x0050, text=»* 790208 «, t00=0x0007, t01=0x0102}
0x0bfe…0c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0114}
0x0c08…0c42 Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE MAKES CDV-CHECK ON A STRING ITEM. «, t00=0x0007, t01=0x011e}
0x0c42…0c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0158}
0x0c4c…0c90 Head {h00=0x0040, h01=0x0050, text=»* NOTE: THE DIGIT(S) ZERO SHOULD BE INSERTED IN THE STRING«, t00=0x0007, t01=0x0162}
0x0c90…0cce Head {h00=0x003a, h01=0x0050, text=»* AS CHECK DIGIT(S) IF YOU WANT THE ROUTINE TO«, t00=0x0008, t01=0x0016}
0x0cce…0cfe Head {h00=0x002c, h01=0x0050, text=»* CREATE CORRECT CHECK- DIGIT(S)«, t00=0x0008, t01=0x0054}
0x0cfe…0d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0084}
0x0d08…0d34 Head {h00=0x0028, h01=0x0050, text=»* INPUT CAN BE OF VARIABLE LENGTH «, t00=0x0008, t01=0x008e}
0x0d34…0d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ba}
0x0d3e…0d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c4}
0x0d48…0d82 Head {h00=0x0036, h01=0x0050, text=»* CALLING FORMAT: 1. CALL CDV10,STRING,BIN «, t00=0x0008, t01=0x00ce}
0x0d82…0dbc Head {h00=0x0036, h01=0x0050, text=»* 2. CALL CDV110,STRING,BIN «, t00=0x0008, t01=0x0108}
0x0dbc…0df6 Head {h00=0x0036, h01=0x0050, text=»* 3. CALL CDV111,STRING,BIN «, t00=0x0008, t01=0x0142}
0x0df6…0e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017c}
0x0e00…0e48 Head {h00=0x0044, h01=0x0050, text=»* 'STRING' = A STRING VARIABLE HOLDING THE«, t00=0x0008, t01=0x0186}
0x0e48…0e8e Head {h00=0x0042, h01=0x0050, text=»* INPUT TO MAKE CDV-CHECK ON «, t00=0x0009, t01=0x003e}
0x0e8e…0ede Head {h00=0x004c, h01=0x0050, text=»* (NOT NUMERIC CHARACTERS ARE SKIPPED)«, t00=0x0009, t01=0x0084}
0x0ede…0f2a Head {h00=0x0048, h01=0x0050, text=»* 'BIN' = A BINARY ITEM HOLDING THE CHECK- «, t00=0x0009, t01=0x00d4}
0x0f2a…0f74 Head {h00=0x0046, h01=0x0050, text=»* DIGIT(S) AS OUTPUT IF THE CHECK«, t00=0x0009, t01=0x0120}
0x0f74…0fb0 Head {h00=0x0038, h01=0x0050, text=»* WAS UNSUCCESSFUL «, t00=0x0009, t01=0x016a}
0x0fb0…0fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0016}
0x0fba…0fde Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: CR = 0 OK «, t00=0x000a, t01=0x0020}
0x0fde…1006 Head {h00=0x0024, h01=0x0050, text=»* CR = 1 NOT OK «, t00=0x000a, t01=0x0044}
0x1006…1010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006c}
0x1010…1040 Head {h00=0x002c, h01=0x0050, text=»* 'STRING' IS UNCHANGED «, t00=0x000a, t01=0x0076}
0x1040…108a Head {h00=0x0046, h01=0x0050, text=»* 'BIN' HOLDS CHECK-DIGIT(S) IF CR=1 (ELSE BIN=0) «, t00=0x000a, t01=0x00a6}
0x108a…1098 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00f0}
0x1098…10b8 Head {h00=0x001c, h01=0x0050, text=»* USE OF REGISTERS«, t00=0x000a, t01=0x00fe}
0x10b8…10d2 Head {h00=0x0016, h01=0x0050, text=»* REGISTER USE«, t00=0x000a, t01=0x011e}
0x10d2…10fe Head {h00=0x0028, h01=0x0050, text=»* A1 COUNTER FOR MULTIPLY «, t00=0x000a, t01=0x0138}
0x10fe…1124 Head {h00=0x0022, h01=0x0050, text=»* A2 CURRENT WEIGHT «, t00=0x000a, t01=0x0164}
0x1124…114e Head {h00=0x0026, h01=0x0050, text=»* A4 CHARACTER SAVE AREA«, t00=0x000a, t01=0x018a}
0x114e…117c Head {h00=0x002a, h01=0x0050, text=»* A5 POINTER TO INPUT STRING«, t00=0x000b, t01=0x0024}
0x117c…11b2 Head {h00=0x0032, h01=0x0050, text=»* A6 MAX VALUE FOR RESTART OF WEIGHT«, t00=0x000b, t01=0x0052}
0x11b2…11e0 Head {h00=0x002a, h01=0x0050, text=»* A7 DIVIDEND FOR TOTAL SUM «, t00=0x000b, t01=0x0088}
0x11e0…1206 Head {h00=0x0022, h01=0x0050, text=»* A10 SUM OF PRODUCTS«, t00=0x000b, t01=0x00b6}
0x1206…1210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00dc}
0x1210…121a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e6}
0x121a…123a Head {h00=0x001c, h01=0x0050, text=»* PARAMETERS FOR CDV «, t00=0x000b, t01=0x00f0}
0x123a…127a Head {h00=0x003c, h01=0x0050, text=»* USE CONTENTS AT CDV10 CDV110 CDV111«, t00=0x000b, t01=0x0110}
0x127a…1284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0150}
0x1284…12c2 Head {h00=0x003a, h01=0x0050, text=»* MAX FOR RESTART OF WEIGHT 2 11 10«, t00=0x000b, t01=0x015a}
0x12c2…1300 Head {h00=0x003a, h01=0x0050, text=»* DIVIDEND FOR TOTAL SUM 10 11 11«, t00=0x000c, t01=0x0008}
0x1300…130e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0046}
0x130e…1322 Head {h00=0x0010, h01=0x0050, text=»CDV110 EQU *«, t00=0x000c, t01=0x0054}
0x1322…1348 Head {h00=0x0022, h01=0x0050, text=» LDK A6,11 LOAD RESTART LIMIT «, t00=0x000c, t01=0x0068}
0x1348…135c Head {h00=0x0010, h01=0x0050, text=»CD005 EQU * «, t00=0x000c, t01=0x008e}
0x135c…137c Head {h00=0x001c, h01=0x0050, text=» LDK A7,11 LOAD DIVIDEND«, t00=0x000c, t01=0x00a2}
0x137c…138e Head {h00=0x000e, h01=0x0050, text=» RF CDV20 «, t00=0x000c, t01=0x00c2}
0x138e…1398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d4}
0x1398…13a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00de}
0x13a2…13b6 Head {h00=0x0010, h01=0x0050, text=»CDV111 EQU *«, t00=0x000c, t01=0x00e8}
0x13b6…13dc Head {h00=0x0022, h01=0x0050, text=» LDK A6,10 LOAD RESTART LIMIT «, t00=0x000c, t01=0x00fc}
0x13dc…13ee Head {h00=0x000e, h01=0x0050, text=» RB CD005 «, t00=0x000c, t01=0x0122}
0x13ee…13f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0134}
0x13f8…1402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013e}
0x1402…1416 Head {h00=0x0010, h01=0x0050, text=»CDV10 EQU * «, t00=0x000c, t01=0x0148}
0x1416…143a Head {h00=0x0020, h01=0x0050, text=» LDK A6,2 LOAD RESTART LIMIT«, t00=0x000c, t01=0x015c}
0x143a…145a Head {h00=0x001c, h01=0x0050, text=» LDK A7,10 LOAD DIVIDEND«, t00=0x000c, t01=0x0180}
0x145a…146e Head {h00=0x0010, h01=0x0050, text=»CDV20 EQU * «, t00=0x000d, t01=0x0010}
0x146e…149a Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO INPUT STRING«, t00=0x000d, t01=0x0024}
0x149a…14be Head {h00=0x0020, h01=0x0050, text=» LDK A2,1 LOAD START WEIGHT «, t00=0x000d, t01=0x0050}
0x14be…14de Head {h00=0x001c, h01=0x0050, text=» SUR A10,A10 ZERO TO SUM«, t00=0x000d, t01=0x0074}
0x14de…14f2 Head {h00=0x0010, h01=0x0050, text=»CDV30 EQU * «, t00=0x000d, t01=0x0094}
0x14f2…1504 Head {h00=0x000e, h01=0x0050, text=» CWR A5,A9«, t00=0x000d, t01=0x00a8}
0x1504…1524 Head {h00=0x001c, h01=0x0050, text=» RF(E) CDV60 IF FINISHED«, t00=0x000d, t01=0x00ba}
0x1524…1546 Head {h00=0x001e, h01=0x0050, text=» LC A4,-1,A5 GET CHARACTER«, t00=0x000d, t01=0x00da}
0x1546…155a Head {h00=0x0010, h01=0x0050, text=» CCK A4,'00'«, t00=0x000d, t01=0x00fc}
0x155a…157a Head {h00=0x001c, h01=0x0050, text=» RF(L) CDV50 IF NO DIGIT«, t00=0x000d, t01=0x0110}
0x157a…158e Head {h00=0x0010, h01=0x0050, text=» CCK A4,'99'«, t00=0x000d, t01=0x0130}
0x158e…15ae Head {h00=0x001c, h01=0x0050, text=» RF(G) CDV50 IF NO DIGIT«, t00=0x000d, t01=0x0144}
0x15ae…15d0 Head {h00=0x001e, h01=0x0050, text=» ANK A4,/F MASK OUT DIGIT «, t00=0x000d, t01=0x0164}
0x15d0…15da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0186}
0x15da…1608 Head {h00=0x002a, h01=0x0050, text=»* MULTIPLY AND ACCUMULATE ONE DIGIT «, t00=0x000d, t01=0x0190}
0x1608…1626 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 SET WEIGHT «, t00=0x000e, t01=0x002e}
0x1626…163a Head {h00=0x0010, h01=0x0050, text=»CDV40 EQU * «, t00=0x000e, t01=0x004c}
0x163a…1658 Head {h00=0x001a, h01=0x0050, text=» ADR A10,A4 ADD TO SUM«, t00=0x000e, t01=0x0060}
0x1658…167c Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x000e, t01=0x007e}
0x167c…16a0 Head {h00=0x0020, h01=0x0050, text=» RB(P) CDV40 IF MORE TO ADD «, t00=0x000e, t01=0x00a2}
0x16a0…16b2 Head {h00=0x000e, h01=0x0050, text=» CWK A6,2 «, t00=0x000e, t01=0x00c6}
0x16b2…16dc Head {h00=0x0026, h01=0x0050, text=» RF(NE) CDV45 RESTART LIMIT =/= 2 «, t00=0x000e, t01=0x00d8}
0x16dc…1706 Head {h00=0x0026, h01=0x0021, text=» CWR A2,A6 MULTIPLY BY 2 IN CDV10 «, t00=0x000e, t01=0x0102}
0x1706…171e Head {h00=0x0014, h01=0x0010, text=» RF(NE) CDV45 NO«, t00=0x000e, t01=0x012c}
0x171e…1730 Head {h00=0x000e, h01=0x0009, text=» SUK A4,4 «, t00=0x000e, t01=0x0144}
0x1730…1760 Head {h00=0x002c, h01=0x0027, text=» RF(NP) CDV45 IF DIGIT SUM LESS THAN 10 «, t00=0x000e, t01=0x0156}
0x1760…177e Head {h00=0x001a, h01=0x0016, text=» SUKL A10,9 ADJUST SUM«, t00=0x000e, t01=0x0186}
0x177e…1792 Head {h00=0x0010, h01=0x000b, text=»CDV45 EQU * «, t00=0x000f, t01=0x0014}
0x1792…17b4 Head {h00=0x001e, h01=0x001a, text=» ADK A2,1 INCREMENT WEIGHT«, t00=0x000f, t01=0x0028}
0x17b4…17c6 Head {h00=0x000e, h01=0x000a, text=» CWR A2,A6«, t00=0x000f, t01=0x004a}
0x17c6…17ec Head {h00=0x0022, h01=0x001e, text=» RF(NG) CDV50 IF NOT MAX LIMIT«, t00=0x000f, t01=0x005c}
0x17ec…180c Head {h00=0x001c, h01=0x0018, text=» LDK A2,1 RESTART WEIGTH«, t00=0x000f, t01=0x0082}
0x180c…1820 Head {h00=0x0010, h01=0x000b, text=»CDV50 EQU * «, t00=0x000f, t01=0x00a2}
0x1820…1844 Head {h00=0x0020, h01=0x001b, text=» SUK A5,1 DECREMENT POINTER «, t00=0x000f, t01=0x00b6}
0x1844…185e Head {h00=0x0016, h01=0x0012, text=» RB CDV30 CONTINUE«, t00=0x000f, t01=0x00da}
0x185e…1868 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x00f4}
0x1868…187c Head {h00=0x0010, h01=0x000b, text=»CDV60 EQU * «, t00=0x000f, t01=0x00fe}
0x187c…189a Head {h00=0x001a, h01=0x0015, text=» LDK A6,0 INDICATE OK «, t00=0x000f, t01=0x0112}
0x189a…18ae Head {h00=0x0010, h01=0x000c, text=» LDR A10,A10«, t00=0x000f, t01=0x0130}
0x18ae…18ce Head {h00=0x001c, h01=0x0018, text=» RF(Z) CDVOUT IF SUM = 0«, t00=0x000f, t01=0x0144}
0x18ce…18e2 Head {h00=0x0010, h01=0x000b, text=»CDV70 EQU * «, t00=0x000f, t01=0x0164}
0x18e2…190e Head {h00=0x0028, h01=0x0023, text=» SUR A10,A7 SUBTRACT 10/11 FROM SUM «, t00=0x000f, t01=0x0178}
0x190e…1930 Head {h00=0x001e, h01=0x001a, text=» RB(P) CDV70 SUM STILL > 0«, t00=0x0010, t01=0x0014}
0x1930…1950 Head {h00=0x001c, h01=0x0017, text=» RF(Z) CDVOUT IF CDV-OK «, t00=0x0010, t01=0x0036}
0x1950…1974 Head {h00=0x0020, h01=0x0050, text=» NGR A10,A10 GET CHECK DIGIT«, t00=0x0010, t01=0x0056}
0x1974…1996 Head {h00=0x001e, h01=0x0019, text=» LDK A6,1 INDICATE NOT OK «, t00=0x0010, t01=0x007a}
0x1996…19aa Head {h00=0x0010, h01=0x000c, text=»CDVOUT EQU *«, t00=0x0010, t01=0x009c}
0x19aa…19d4 Head {h00=0x0026, h01=0x0021, text=» CALL I:EVA0 GET CHECK-DIGIT ITEM «, t00=0x0010, t01=0x00b0}
0x19d4…1a02 Head {h00=0x002a, h01=0x0026, text=» STR A10,A9 STORE CHECK-DIGIT IF ERROR«, t00=0x0010, t01=0x00da}
0x1a02…1a26 Head {h00=0x0020, h01=0x001b, text=» LD A1,2,A13 GET STACK BASE «, t00=0x0010, t01=0x0108}
0x1a26…1a4c Head {h00=0x0022, h01=0x001e, text=» SC A6,-2,A1 STORE CR ON STACK«, t00=0x0010, t01=0x012c}
0x1a4c…1a64 Head {h00=0x0014, h01=0x0050, text=»RETUR ABL I:RT1 «, t00=0x0010, t01=0x0152}
0x1a64…1a70 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0010, t01=0x016a}
0x1a70…1a74 Head {h00=0x4004, h01=0x0000}
0x1a74…1a78 00 10 01 76 ┆ v┆
0x1a78…1a80 (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x1a80…1ad0 (18, 0, 400) 54 54 54 54 54 54 54 39 15 9f 21 c0 17 89 c0 d5 89 c0 d5 87 c0 17 87 e0 81 07 e0 c9 c1 49 c0 0b 00 0a 89 c0 0b 00 0a 87 e0 c9 c1 44 81 20 14 98 81 20 df 1f c3 07 44 45 4c 45 54 45 44 df 1f c3 08 49 4e 53 45 52 54 45 44 e0 df 2b c3 09 4f 4e ┆TTTTTTT9 ! I D DELETED INSERTED + ON┆
0x1ad0…1b20 20 55 4e 49 54 3a 55 13 69 e0 df 2b c3 0b 57 49 54 48 49 4e 20 4a 4f 42 3a c0 6b e0 c3 11 52 45 43 4f 56 45 52 59 20 52 55 4e 4e 49 4e 47 2e e0 c9 c3 11 52 45 43 4f 52 44 20 43 4f 52 52 45 43 54 49 4f 4e e0 c1 46 c3 12 46 52 45 45 5a 49 4e ┆ UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION F FREEZIN┆
0x1b20…1b70 47 20 4f 46 20 42 41 54 43 48 20 c0 6c e0 c9 c3 15 43 4f 4e 46 49 52 4d 20 52 45 43 4f 52 44 20 49 4e 53 45 52 54 e0 c9 c3 16 43 4f 4e 46 49 52 4d 20 52 45 43 4f 52 44 20 44 45 4c 45 54 45 3a e0 c9 c3 17 52 45 43 4f 52 44 20 4d 55 53 54 20 ┆G OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE: RECORD MUST ┆
0x1b70…1bc0 42 45 20 56 45 52 49 46 49 45 44 e0 c3 1a 45 4e 54 45 52 20 57 41 4e 54 45 44 20 52 45 43 4f 52 44 4e 55 4d 42 45 52 3a c1 46 c3 1a 43 4f 4e 56 45 52 53 49 4f 4e 20 4f 46 20 41 4c 4c 20 42 41 54 43 48 45 53 20 e0 c9 c3 0a 44 55 50 4c 20 46 ┆BE VERIFIED ENTER WANTED RECORDNUMBER: F CONVERSION OF ALL BATCHES DUPL F┆
0x1bc0…1c10 52 4f 4d 20 c1 47 c3 03 20 54 3a 11 97 81 20 c1 28 c1 43 81 3a e0 c3 15 41 55 54 4f 4d 41 54 49 43 20 53 4b 49 50 2f 44 55 50 20 2a 4f da e5 06 c3 02 4e 2a d8 05 c3 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ROM G T: ( C : AUTOMATIC SKIP/DUP *O N* ┆
0x1c10…1c60 (19, 0, 400) 46 46 2a e0 c9 c3 0c 52 45 43 4f 56 45 52 59 20 4f 46 20 c1 1b 81 3a c0 6b 81 20 c1 42 81 3a c0 6c c3 09 20 52 55 4e 4e 49 4e 47 2e 18 1d 16 17 1c 28 20 27 2c 21 2e 25 29 24 26 22 23 2d 2a c3 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 ┆FF* RECOVERY OF : k B : l RUNNING. ( ',!.%)$&"#-* ┆
0x1c60…1cb0 20 02 00 08 00 01 00 0a 00 01 00 0b 00 01 00 0c 00 01 00 0d 00 01 00 0e 00 01 00 0f 00 03 00 10 00 04 00 13 00 04 00 17 00 04 00 1b 00 05 00 1f 00 06 00 24 00 06 00 2a 00 07 00 30 00 08 00 37 00 08 00 3f 00 09 00 47 00 09 00 50 00 0a 00 59 ┆ $ * 0 7 ? G P Y┆
0x1cb0…1d00 00 0a 00 63 30 01 00 6d 10 01 00 00 10 05 00 01 10 16 00 06 00 03 00 00 00 03 00 03 00 03 00 06 00 03 00 09 00 03 00 0c 00 03 00 0f 00 04 00 12 00 05 00 16 00 05 00 1b 00 0a 00 20 00 0b 00 2a 00 0c 00 35 00 10 00 41 00 12 00 51 00 14 00 63 ┆ c0 m * 5 A Q c┆
0x1d00…1d50 00 15 00 77 00 19 00 8c 00 19 00 a5 00 1a 00 be 00 1b 00 d8 00 1d 00 f3 00 1e 01 10 00 1f 01 2e 00 26 01 4d 00 29 01 73 40 04 01 9c 40 0f 01 a0 0e f0 0c b6 0f 58 0d 24 0f 64 0d 40 58 43 4f 4e 46 49 52 4d 20 56 41 4c 55 45 53 45 54 4d 2f 3d ┆ w . & M ) s@ @ X $ d @XCONFIRM VALUESETM/=┆
0x1d50…1da0 3e 3c 44 47 52 4e 53 59 4d 42 4f 4c 49 43 3a 21 55 46 2b 2d 2a 3a 3b 41 53 4c 21 41 53 55 46 54 43 58 45 00 58 54 54 54 54 39 2b 54 54 54 54 54 54 54 54 54 54 54 54 54 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09 ┆><DGRNSYMBOLIC:!UF+-*:;ASL!ASUFTCXE XTTTT9+TTTTTTTTTTTTT ┆
0x1da0…1df0 (20, 0, 400) 0e 4c 07 d5 07 e4 08 ae 0e 40 0e 44 0e 48 28 81 20 26 41 64 31 05 17 41 6e 40 6d 80 01 36 91 03 07 30 0b 00 93 20 80 02 5f 0d 40 6e 5f 15 28 80 21 27 28 81 20 02 5f 26 33 81 05 03 04 04 05 06 40 64 30 06 20 30 7d 00 68 2a 80 07 68 80 81 80 ┆ L @ D H( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 @d0 0} h* h ┆
0x1df0…1e40 08 5f 3f 00 81 21 00 80 20 34 00 36 93 05 02 39 39 a9 a9 57 a7 32 92 03 01 02 03 80 09 21 38 01 80 09 22 38 01 80 09 23 38 01 57 90 6a 9a 20 22 95 20 23 9a 4c 86 6a 9a 20 22 95 22 23 9a 50 7c 6a 9a 20 22 95 24 23 9a 50 72 3f 01 00 9f 21 95 ┆ _? ! 4 6 99 W 2 !8 "8 #8 W j " # L j " "# P|j " $# Pr? ! ┆
0x1e40…1e90 00 80 9f 21 36 92 03 00 2b 3b 20 80 20 5e 23 80 38 5a 62 e6 21 22 95 20 01 9d 58 6a 9d 21 23 e6 20 80 0a 27 62 63 9d 28 63 22 05 01 93 33 3f 04 00 91 31 3f 01 00 9a 95 00 99 95 11 99 3f 0c 11 99 40 10 57 27 20 80 20 23 23 80 37 1f 00 99 9a ┆ !6 +; ^# 8Zb !" Xj !# 'bc (c" 3? 1? ? @ W' ## 7 ┆
0x1e90…1ee0 21 99 3f 13 22 80 35 14 0a 80 22 08 80 22 02 80 21 00 54 80 00 95 54 00 82 80 5f 3c 00 93 26 3f 04 31 05 18 41 6e 30 42 9b 00 54 9b 00 9f 21 53 80 0b 36 91 03 0f 2c 22 00 93 24 80 0c 10 04 91 21 10 91 20 15 5f 15 40 6e 30 42 9b 00 54 9b 00 ┆! ? " 5 " " ! T T _< &? 1 An0B T !S 6 ," $ ! _ @n0B T ┆
0x1ee0…1f30 9f 21 53 30 0c 01 21 20 5f 2a 61 9b 16 30 43 9b 00 53 9f 21 34 00 01 e6 58 31 05 13 41 64 20 81 23 02 40 64 00 e1 20 41 6e 40 6d 41 65 40 66 00 e0 20 80 01 20 91 20 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ !S0 ! _*a 0C S !4 X1 Ad # @d An@mAe@f ┆