VALDEC

FILE INFORMATION

FILENAME(S): VALDEC

FILE TYPE(S): PRG

FILE SIZE: 2.4K

FIRST SEEN: 2025-11-30 16:59:36

APPEARS ON: 1 disk(s)

FILE HASH

d51506f1741a895c28c6a0af59210edcd1ac0633d5681f9153370a96554ec38e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LADS64	VALDEC	PRG	High Voltage Complete C64 Collection	10	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 3E 04 0A 00 3B 20  22 56 41 4C 44 45 43 22  |..>...; "VALDEC"|
00000010: 20 20 54 52 41 4E 53 4C  41 54 45 20 C6 49 49 20  |  TRANSLATE .II |
00000020: 85 20 A4 20 41 20 54 57  4F AB 42 59 54 45 20 B5  |. . A TWO.BYTE .|
00000030: 45 47 45 52 20 49 4E 20  52 45 53 55 4C 54 00 44  |EGER IN RESULT.D|
00000040: 04 0F 00 3B 00 80 04 14  00 3B 20 20 53 45 54 55  |...;.....;  SETU|
00000050: 50 AD 54 45 4D 50 20 4D  55 53 54 20 50 4F B5 20  |P.TEMP MUST PO. |
00000060: A4 20 C6 49 49 20 4E 55  4D 42 45 52 20 28 57 48  |. .II NUMBER (WH|
00000070: 49 43 48 20 80 53 20 49  4E 20 5A 45 52 4F 29 2E  |ICH .S IN ZERO).|
00000080: 00 AB 04 1E 00 3B 20 20  52 45 53 55 4C 54 53 AD  |.....;  RESULTS.|
00000090: 20 52 45 53 55 4C 54 20  48 4F 4C 44 53 20 32 AB  | RESULT HOLDS 2.|
000000A0: 42 59 54 45 20 52 45 53  55 4C 54 00 CC 04 28 00  |BYTE RESULT...(.|
000000B0: 3B 20 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |; --------------|
000000C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 00 DC 04 32  |------------...2|
000000D0: 00 C5 44 45 43 20 4C 44  59 20 23 30 00 1B 05 37  |..DEC LDY #0...7|
000000E0: 00 3B 20 87 20 C6 49 49  20 46 52 4F 4D 20 4C 45  |.; . .II FROM LE|
000000F0: 46 54 20 A4 20 52 49 47  48 54 AB AB 49 4E 43 8F  |FT . RIGHT..INC.|
00000100: 45 4E 54 49 4E 47 20 59  20 2D 2D 28 54 4F 20 46  |ENTING Y --(TO F|
00000110: 49 4E 44 20 4C 45 4E 47  54 48 29 00 33 05 3C 00  |IND LENGTH).3.<.|
00000120: 56 A1 5A 45 52 4F 20 4C  44 41 20 28 54 45 4D 50  |V.ZERO LDA (TEMP|
00000130: 29 2C 59 00 54 05 46 00  42 45 51 20 56 5A 45 52  |),Y.T.F.BEQ VZER|
00000140: 4F 3B 20 30 20 44 45 4C  49 4D 49 54 45 52 20 46  |O; 0 DELIMITER F|
00000150: 4F 55 4E 44 00 5C 05 50  00 49 4E 59 00 9C 05 5A  |OUND.\.P.INY...Z|
00000160: 00 4A 4D 50 20 56 A1 5A  45 52 4F 3B AB AB AB AB  |.JMP V.ZERO;....|
00000170: AB AB AB AB AB AB AB AB  AB AB AB 20 20 28 81 20  |...........  (. |
00000180: 45 58 41 4D 50 4C 45 2C  20 41 53 53 55 4D 45 20  |EXAMPLE, ASSUME |
00000190: C6 49 49 20 49 53 20 22  31 35 22 29 00 DD 05 6E  |.II IS "15")...n|
000001A0: 00 56 5A 45 52 4F 20 53  54 59 20 56 52 80 3B 20  |.VZERO STY VR.; |
000001B0: 94 20 C3 47 54 48 20 4F  46 20 C6 49 49 20 4E 55  |. .GTH OF .II NU|
000001C0: 4D 42 45 52 20 20 28 49  4E 20 54 48 45 20 45 58  |MBER  (IN THE EX|
000001D0: 41 4D 50 4C 45 2C 20 C3  20 B2 20 32 29 00 E5 05  |AMPLE, . . 2)...|
000001E0: 78 00 44 45 59 00 13 06  82 00 4C 44 41 20 23 30  |x.DEY.....LDA #0|
000001F0: 3B 20 43 4C 45 41 4E 20  22 52 45 53 55 4C 54 22  |; CLEAN "RESULT"|
00000200: 20 56 41 52 49 41 42 4C  45 20 28 53 45 54 20 A4  | VARIABLE (SET .|
00000210: 20 30 29 00 22 06 8C 00  53 54 41 20 52 45 53 55  | 0)."...STA RESU|
00000220: 4C 54 00 33 06 96 00 53  54 41 20 52 45 53 55 4C  |LT.3...STA RESUL|
00000230: 54 AA 31 00 79 06 A0 00  4C 44 58 20 23 31 3B 20  |T.1.y...LDX #1; |
00000240: 55 53 45 20 22 58 22 20  56 41 52 49 41 42 4C 45  |USE "X" VARIABLE|
00000250: 20 41 53 20 41 20 4D 55  4C 54 49 50 4C 59 AB 58  | AS A MULTIPLY.X|
00000260: 31 30 AB 48 4F 57 AB 4D  41 4E 59 AB 54 49 4D 45  |10.HOW.MANY.TIME|
00000270: 53 20 43 4F 55 4E 54 45  52 00 83 06 AA 00 53 54  |S COUNTER.....ST|
00000280: 58 20 58 00 C6 06 B4 00  C5 4C 4F 4F 50 20 4C 44  |X X......LOOP LD|
00000290: 41 20 28 54 45 4D 50 29  2C 59 3B 20 93 20 49 4E  |A (TEMP),Y; . IN|
000002A0: 20 54 48 45 20 52 49 47  48 54 4D 4F 53 54 20 C6  | THE RIGHTMOST .|
000002B0: 49 49 20 43 48 41 52 41  43 54 45 52 20 28 45 58  |II CHARACTER (EX|
000002C0: 3A 20 22 35 22 29 00 06  07 BE 00 AF 20 23 24 30  |: "5")...... #$0|
000002D0: 46 3B 20 41 53 20 C6 49  49 2C 20 35 20 B2 20 24  |F; AS .II, 5 . $|
000002E0: 33 35 2E 20 20 4F 20 53  54 52 49 50 20 4F 46 46  |35.  O STRIP OFF|
000002F0: 20 54 48 45 20 33 2C 20  4C 45 41 56 49 4E 47 20  | THE 3, LEAVING |
00000300: 54 48 45 20 35 2E 00 33  07 C8 00 53 54 41 20 52  |THE 5..3...STA R|
00000310: 41 44 44 3B 20 53 A4 52  45 20 49 4E 20 4D 55 4C  |ADD; S.RE IN MUL|
00000320: 54 49 50 4C 49 43 41 54  49 91 20 52 45 47 49 53  |TIPLICATI. REGIS|
00000330: 54 45 52 00 61 07 D2 00  53 54 41 20 54 53 A4 52  |TER.a...STA TS.R|
00000340: 45 3B 20 53 A4 52 45 20  49 4E 20 22 52 45 4D 45  |E; S.RE IN "REME|
00000350: 4D 42 45 52 20 49 54 22  20 52 45 47 49 53 54 45  |MBER IT" REGISTE|
00000360: 52 00 A1 07 DC 00 4C 44  41 20 23 30 3B 20 50 55  |R.....LDA #0; PU|
00000370: 54 20 30 20 49 4E 20 42  4F 54 48 20 54 48 45 53  |T 0 IN BOTH THES|
00000380: 45 20 52 45 47 49 53 54  45 52 53 20 28 49 4E 20  |E REGISTERS (IN |
00000390: 54 48 45 49 52 20 48 49  47 48 20 42 59 54 45 53  |THEIR HIGH BYTES|
000003A0: 29 00 B0 07 E6 00 53 54  41 20 52 41 44 44 AA 31  |).....STA RADD.1|
000003B0: 00 FA 07 F0 00 53 54 41  20 54 53 A4 52 45 AA 31  |.....STA TS.RE.1|
000003C0: 3B AB AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |;...............|
000003D0: AB AB 20 4D 55 4C 54 49  50 4C 59 20 58 31 30 20  |.. MULTIPLY X10 |
000003E0: 41 53 20 4D 55 43 48 20  41 53 20 4E 45 43 45 53  |AS MUCH AS NECES|
000003F0: 53 41 52 59 AB AB AB AB  AB AB 00 43 08 FA 00 56  |SARY.......C...V|
00000400: 4C 4F 4F 50 20 44 45 58  3B 20 4C 4F 57 45 52 20  |LOOP DEX; LOWER |
00000410: 54 48 45 20 43 4F 55 4E  54 45 52 2E 20 28 49 4E  |THE COUNTER. (IN|
00000420: 20 54 48 45 20 45 58 41  4D 50 4C 45 2C 20 58 20  | THE EXAMPLE, X |
00000430: 4E 4F 57 20 B2 20 30 20  81 20 31 53 54 20 43 48  |NOW . 0 . 1ST CH|
00000440: 41 52 29 00 82 08 04 01  42 45 51 20 56 CB 91 3B  |AR).....BEQ V..;|
00000450: 20 53 4F 20 57 45 20 44  91 27 54 20 4A 53 52 20  | SO WE D.'T JSR |
00000460: A4 20 54 48 45 20 58 31  30 20 53 55 42 52 4F 55  |. THE X10 SUBROU|
00000470: 54 49 4E 45 20 49 4E 20  54 48 49 53 20 43 41 53  |TINE IN THIS CAS|
00000480: 45 29 00 D1 08 0E 01 4A  53 52 20 54 45 4E 3B 20  |E).....JSR TEN; |
00000490: 4F 54 48 45 52 57 49 53  45 2C 57 45 27 44 20 4D  |OTHERWISE,WE'D M|
000004A0: 55 4C 54 49 50 4C 59 20  54 48 45 20 4E 55 4D 42  |ULTIPLY THE NUMB|
000004B0: 45 52 20 58 31 30 20 41  53 20 4D 41 4E 59 20 54  |ER X10 AS MANY T|
000004C0: 49 4D 45 53 20 41 53 20  4E 45 43 45 53 53 41 52  |IMES AS NECESSAR|
000004D0: 59 00 0F 09 18 01 4C 44  41 20 52 41 44 44 3B 20  |Y.....LDA RADD; |
000004E0: 4D 4F 56 45 20 52 45 53  55 4C 54 20 4F 46 20 4D  |MOVE RESULT OF M|
000004F0: 55 4C 54 49 50 4C 49 43  41 54 49 91 20 B5 4F 20  |ULTIPLICATI. .O |
00000500: 53 A4 52 41 47 45 20 52  45 47 49 53 54 45 52 00  |S.RAGE REGISTER.|
00000510: 1D 09 22 01 53 54 41 20  54 53 A4 52 45 00 2C 09  |..".STA TS.RE.,.|
00000520: 2C 01 4C 44 41 20 52 41  44 44 AA 31 00 69 09 36  |,.LDA RADD.1.i.6|
00000530: 01 53 54 41 20 54 53 A4  52 45 AA 31 3B 20 53 41  |.STA TS.RE.1; SA|
00000540: 56 49 4E 47 20 52 45 53  55 4C 54 53 20 4F 46 20  |VING RESULTS OF |
00000550: 4D 4F 53 54 20 52 45 43  45 4E 54 20 4D 55 4C 54  |MOST RECENT MULT|
00000560: 49 50 4C 49 43 41 54 49  91 00 AE 09 40 01 4A 4D  |IPLICATI....@.JM|
00000570: 50 20 56 4C 4F 4F 50 3B  20 9A 49 4E 55 45 20 4D  |P VLOOP; .INUE M|
00000580: 55 4C 54 49 50 4C 59 49  4E 47 20 58 31 30 20 55  |ULTIPLYING X10 U|
00000590: 4E 54 49 4C 20 58 20 49  53 20 44 4F 57 4E 20 A4  |NTIL X IS DOWN .|
000005A0: 20 5A 45 52 4F 2E AB AB  AB AB AB AB AB AB 00 F4  | ZERO...........|
000005B0: 09 4A 01 56 CB 91 20 49  4E 43 20 58 3B 20 52 41  |.J.V.. INC X; RA|
000005C0: 49 53 45 20 58 20 42 59  20 31 20 28 BF 43 45 20  |ISE X BY 1 (.CE |
000005D0: 57 45 27 52 45 20 4D 4F  56 49 4E 47 20 4C 45 46  |WE'RE MOVING LEF|
000005E0: 54 20 AF 20 45 41 43 48  20 4E 55 4D 42 45 52 20  |T . EACH NUMBER |
000005F0: 57 49 4C 4C 00 30 0A 4F  01 3B 20 20 20 20 20 20  |WILL.0.O.;      |
00000600: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000610: 20 20 20 20 20 42 45 20  31 30 58 20 54 48 45 20  |     BE 10X THE |
00000620: 91 45 20 A4 20 49 54 53  20 52 49 47 48 54 29 2E  |.E . ITS RIGHT).|
00000630: 00 3A 0A 54 01 4C 44 58  20 58 00 80 0A 5E 01 4A  |.:.T.LDX X...^.J|
00000640: 53 52 20 C5 41 44 44 3B  20 41 44 44 20 52 41 44  |SR .ADD; ADD RAD|
00000650: 44 20 A4 20 52 45 53 55  4C 54 20 28 41 44 44 20  |D . RESULT (ADD |
00000660: 49 4E 20 52 45 53 55 4C  54 53 20 4F 46 20 54 48  |IN RESULTS OF TH|
00000670: 45 20 4D 55 4C 54 49 50  4C 49 43 41 54 49 91 29  |E MULTIPLICATI.)|
00000680: 00 BF 0A 68 01 44 45 59  3B 20 4D 4F 56 45 20 49  |...h.DEY; MOVE I|
00000690: 4E 44 45 58 20 4F 56 45  52 20 42 59 20 31 20 28  |NDEX OVER BY 1 (|
000006A0: A4 20 50 4F B5 20 A4 20  82 20 C6 49 49 20 43 48  |. PO. . . .II CH|
000006B0: 41 52 2E 20 A4 20 54 48  45 20 4C 45 46 54 29 00  |AR. . THE LEFT).|
000006C0: F4 0A 72 01 44 45 43 20  56 52 80 3B 20 4C 4F 57  |..r.DEC VR.; LOW|
000006D0: 45 52 20 C3 47 54 48 20  50 4F B5 45 52 2E 20 20  |ER .GTH PO.ER.  |
000006E0: 8B 20 49 54 27 53 20 A8  20 59 45 54 20 5A 45 52  |. IT'S . YET ZER|
000006F0: 4F 2C 20 A7 00 22 0B 7C  01 42 4E 45 20 C5 4C 4F  |O, ..".|.BNE .LO|
00000700: 4F 50 3B 20 9A 49 4E 55  45 20 50 52 4F 43 45 53  |OP; .INUE PROCES|
00000710: BF 47 20 54 48 49 53 20  C6 49 49 20 4E 55 4D 42  |.G THIS .II NUMB|
00000720: 45 52 00 41 0B 86 01 52  54 53 3B 20 4F 54 48 45  |ER.A...RTS; OTHE|
00000730: 52 57 49 53 45 20 8E 20  A4 20 43 41 4C 4C 45 52  |RWISE . . CALLER|
00000740: 2E 00 67 0B 90 01 3B 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..g...;---------|
00000750: 2D 2D 2D 2D 2D 2D 20 20  20 4D 55 4C 54 49 50 4C  |------   MULTIPL|
00000760: 59 20 42 59 20 31 30 00  73 0B 9A 01 54 45 4E 20  |Y BY 10.s...TEN |
00000770: 43 4C 43 00 99 0B A4 01  41 53 4C 20 52 41 44 44  |CLC.....ASL RADD|
00000780: 3B 20 20 20 20 20 20 20  4D 55 4C 54 49 50 4C 59  |;       MULTIPLY|
00000790: 20 52 41 44 44 20 58 20  34 00 A8 0B AE 01 52 4F  | RADD X 4.....RO|
000007A0: 4C 20 52 41 44 44 AA 31  00 B5 0B B8 01 41 53 4C  |L RADD.1.....ASL|
000007B0: 20 52 41 44 44 00 D4 0B  C2 01 52 4F 4C 20 52 41  | RADD.....ROL RA|
000007C0: 44 44 AA 31 3B AB AB AB  AB AB AB AB AB AB AB AB  |DD.1;...........|
000007D0: AB AB AB AB 00 DC 0B CC  01 43 4C 43 00 26 0C D6  |.........CLC.&..|
000007E0: 01 4C 44 41 20 54 53 A4  52 45 3B 50 55 4C 4C 20  |.LDA TS.RE;PULL |
000007F0: 4F 55 54 20 B0 49 47 49  4E 41 4C 20 4E 55 4D 42  |OUT .IGINAL NUMB|
00000800: 45 52 20 AF 20 41 44 44  20 49 54 20 A4 20 52 45  |ER . ADD IT . RE|
00000810: 53 55 4C 54 20 4F 46 20  58 34 20 28 47 49 56 49  |SULT OF X4 (GIVI|
00000820: 4E 47 20 58 35 29 00 33  0C E0 01 41 44 43 20 52  |NG X5).3...ADC R|
00000830: 41 44 44 00 40 0C EA 01  53 54 41 20 52 41 44 44  |ADD.@...STA RADD|
00000840: 00 50 0C F4 01 4C 44 41  20 54 53 A4 52 45 AA 31  |.P...LDA TS.RE.1|
00000850: 00 5F 0C FE 01 41 44 43  20 52 41 44 44 AA 31 00  |._...ADC RADD.1.|
00000860: A2 0C 08 02 53 54 41 20  52 41 44 44 AA 31 3B AB  |....STA RADD.1;.|
00000870: AB AB AB AB AB AB AB AB  AB AB AB 20 4E 4F 57 2C  |........... NOW,|
00000880: 20 4D 55 4C 54 49 50 4C  59 20 58 32 2E 20 20 28  | MULTIPLY X2.  (|
00000890: 28 4E AC 34 AA 4E 29 AC  32 29 20 49 53 20 4E AC  |(N.4.N).2) IS N.|
000008A0: 31 30 00 AF 0C 12 02 41  53 4C 20 52 41 44 44 00  |10.....ASL RADD.|
000008B0: BE 0C 1C 02 52 4F 4C 20  52 41 44 44 AA 31 00 C6  |....ROL RADD.1..|
000008C0: 0C 26 02 52 54 53 00 0D  0D 30 02 3B AB AB AB AB  |.&.RTS...0.;....|
000008D0: AB AB AB AB AB AB AB AB  AB 20 41 44 44 20 52 45  |......... ADD RE|
000008E0: 53 55 4C 54 53 20 4F 46  20 54 48 45 20 4D 55 4C  |SULTS OF THE MUL|
000008F0: 54 49 50 4C 49 43 41 54  49 91 20 A4 20 54 48 45  |TIPLICATI. . THE|
00000900: 20 B5 45 47 45 52 20 41  4E 53 57 45 52 00 1A 0D  | .EGER ANSWER...|
00000910: 3A 02 C5 41 44 44 20 43  4C 43 00 27 0D 44 02 4C  |:..ADD CLC.'.D.L|
00000920: 44 41 20 52 41 44 44 00  36 0D 4E 02 41 44 43 20  |DA RADD.6.N.ADC |
00000930: 52 45 53 55 4C 54 00 45  0D 58 02 53 54 41 20 52  |RESULT.E.X.STA R|
00000940: 45 53 55 4C 54 00 54 0D  62 02 4C 44 41 20 52 41  |ESULT.T.b.LDA RA|
00000950: 44 44 AA 31 00 65 0D 6C  02 41 44 43 20 52 45 53  |DD.1.e.l.ADC RES|
00000960: 55 4C 54 AA 31 00 76 0D  76 02 53 54 41 20 52 45  |ULT.1.v.v.STA RE|
00000970: 53 55 4C 54 AA 31 00 7E  0D 80 02 52 54 53 00 8F  |SULT.1.~...RTS..|
00000980: 0D 8A 02 2E 46 49 4C 45  20 49 4E 44 49 53 4B 00  |....FILE INDISK.|
00000990: 00 00                                             |..              |

..>...; "VALDEC"  TRANSLATE FII . . A TW
O.BYTE .EGER IN RESULT.D...;.....;  SETU
P.TEMP MUST PO. . FII NUMBER (WHICH .S I
N ZERO)......;  RESULTS. RESULT HOLDS 2.
BYTE RESULT.L.(.; ----------------------
----...2.EDEC LDY #0...7.; . FII FROM LE
FT . RIGHT..INC.ENTING Y --(TO FIND LENG
TH).3.<.V.ZERO LDA (TEMP),Y.T.F.BEQ VZER
O; 0 DELIMITER FOUND.\.P.INY...Z.JMP V.Z
ERO;...............  (. EXAMPLE, ASSUME 
FII IS "15")...N.VZERO STY VR.; . CGTH O
F FII NUMBER  (IN THE EXAMPLE, C . 2)...
X.DEY.....LDA #0; CLEAN "RESULT" VARIABL
E (SET . 0)."...STA RESULT.3...STA RESUL
T.1.Y. .LDX #1; USE "X" VARIABLE AS A MU
LTIPLY.X10.HOW.MANY.TIMES COUNTER.....ST
X X.F...ELOOP LDA (TEMP),Y; . IN THE RIG
HTMOST FII CHARACTER (EX: "5")...... #$0
F; AS FII, 5 . $35.  O STRIP OFF THE 3, 
LEAVING THE 5..3.H.STA RADD; S.RE IN MUL
TIPLICATI. REGISTER.A.R.STA TS.RE; S.RE 
IN "REMEMBER IT" REGISTER.....LDA #0; PU
T 0 IN BOTH THESE REGISTERS (IN THEIR HI
GH BYTES).....STA RADD.1.....STA TS.RE.1
;................. MULTIPLY X10 AS MUCH 
AS NECESSARY.......C...VLOOP DEX; LOWER 
THE COUNTER. (IN THE EXAMPLE, X NOW . 0 
. 1ST CHAR).....BEQ VK.; SO WE D.'T JSR 
. THE X10 SUBROUTINE IN THIS CASE).Q...J
SR TEN; OTHERWISE,WE'D MULTIPLY THE NUMB
ER X10 AS MANY TIMES AS NECESSARY.....LD
A RADD; MOVE RESULT OF MULTIPLICATI. .O 
S.RAGE REGISTER...".STA TS.RE.,.,.LDA RA
DD.1.I.6.STA TS.RE.1; SAVING RESULTS OF 
MOST RECENT MULTIPLICATI....@.JMP VLOOP;
 .INUE MULTIPLYING X10 UNTIL X IS DOWN .
 ZERO............J.VK. INC X; RAISE X BY
 1 (.CE WE'RE MOVING LEFT . EACH NUMBER 
WILL.0.O.;                           BE 
10X THE .E . ITS RIGHT)..:.T.LDX X...^.J
SR EADD; ADD RADD . RESULT (ADD IN RESUL
TS OF THE MULTIPLICATI.)...H.DEY; MOVE I
NDEX OVER BY 1 (. PO. . . FII CHAR. . TH
E LEFT)...R.DEC VR.; LOWER CGTH PO.ER.  
. IT'S . YET ZERO, ..".|.BNE ELOOP; .INU
E PROCES.G THIS FII NUMBER.A...RTS; OTHE
RWISE . . CALLER..G...;---------------  
 MULTIPLY BY 10.S...TEN CLC.....ASL RADD
;       MULTIPLY RADD X 4.....ROL RADD.1
.....ASL RADD.T.B.ROL RADD.1;...........
.......L.CLC.&.V.LDA TS.RE;PULL OUT .IGI
NAL NUMBER . ADD IT . RESULT OF X4 (GIVI
NG X5).3...ADC RADD.@...STA RADD.P...LDA
 TS.RE.1._...ADC RADD.1.....STA RADD.1;.
........... NOW, MULTIPLY X2.  ((N.4.N).
2) IS N.10.....ASL RADD.....ROL RADD.1.F
.&.RTS...0.;............. ADD RESULTS OF
 THE MULTIPLICATI. . THE .EGER ANSWER...
:.EADD CLC.'.D.LDA RADD.6.N.ADC RESULT.E
.X.STA RESULT.T.B.LDA RADD.1.E.L.ADC RES
ULT.1.V.V.STA RESULT.1.~...RTS......FILE
 INDISK...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL