/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / mer128.arc / PI.ARITH.S

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 70 2a 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.p*=====|========|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 0d 2a a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 70 69 |==.*....|......pi|
|00000030| 2e 61 72 69 74 68 0d 2a | 3d 3d 3d 3d 3d 3d 3d 3d |.arith.*|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 0d | 2a 0d 2a a0 74 48 49 53 |=======.|*.*.tHIS|
|00000060| a0 4d 4f 44 55 4c 45 a0 | 43 4f 4e 54 41 49 4e 53 |.MODULE.|CONTAINS|
|00000070| a0 41 4c 4c a0 54 48 45 | a0 4c 4f 4e 47 a0 53 54 |.ALL.THE|.LONG.ST|
|00000080| 52 49 4e 47 0d 2a a0 43 | 41 4c 43 55 4c 41 54 49 |RING.*.C|ALCULATI|
|00000090| 4f 4e a0 52 4f 55 54 49 | 4e 45 53 2e 0d 0d 20 72 |ON.ROUTI|NES... r|
|000000a0| 65 6c 0d 73 61 76 6f 62 | 6a 20 6b 62 64 20 27 73 |el.savob|j kbd 's|
|000000b0| 41 56 45 a0 4f 42 4a 45 | 43 54 a0 43 4f 44 45 3f |AVE.OBJE|CT.CODE?|
|000000c0| a0 28 31 3d 79 2c a0 30 | 3d 6e 29 27 0d 20 64 6f |.(1=y,.0|=n)'. do|
|000000d0| 20 73 61 76 6f 62 6a 0d | 20 64 73 6b 20 27 50 49 | savobj.| dsk 'PI|
|000000e0| 2e 41 52 49 54 48 27 0d | 20 66 69 6e 0d 0d 20 74 |.ARITH'.| fin.. t|
|000000f0| 72 0d 20 65 78 70 20 6f | 66 66 0d 0d 20 75 73 65 |r. exp o|ff.. use|
|00000100| 20 27 50 49 2e 4d 41 43 | 52 4f 53 27 0d 0d 2a 2d | 'PI.MAC|ROS'..*-|
|00000110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000130| 2d 0d 2a a0 72 4f 55 54 | 49 4e 45 a0 54 4f a0 44 |-.*.rOUT|INE.TO.D|
|00000140| 49 56 49 44 45 a0 70 77 | 72 73 74 72 a0 42 59 a0 |IVIDE.pw|rstr.BY.|
|00000150| 64 69 76 72 3a 0d 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |divr:.*-|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 0d 64 69 76 73 74 |--------|-..divst|
|00000180| 72 30 20 65 6e 74 0d 20 | 6c 64 61 20 7a 6c 65 6e |r0 ent. |lda zlen|
|00000190| 0d 20 73 74 61 20 70 6c | 20 3b 73 45 54 a0 50 4f |. sta pl| ;sET.PO|
|000001a0| 49 4e 54 45 52 a0 4a 55 | 53 54 a0 50 41 53 54 a0 |INTER.JU|ST.PAST.|
|000001b0| 54 48 45 0d 20 6c 64 61 | 20 7a 6c 65 6e 2b 31 20 |THE. lda| zlen+1 |
|000001c0| 3b a0 4c 45 41 44 49 4e | 47 a0 5a 45 52 4f 53 0d |;.LEADIN|G.ZEROS.|
|000001d0| 20 63 6c 63 0d 20 61 64 | 63 20 23 3e 70 77 72 73 | clc. ad|c #>pwrs|
|000001e0| 74 72 0d 20 73 74 61 20 | 70 6c 2b 31 0d 20 6c 64 |tr. sta |pl+1. ld|
|000001f0| 79 20 23 30 0d 3a 6c 6f | 6f 6b 20 6c 64 61 20 28 |y #0.:lo|ok lda (|
|00000200| 70 6c 29 2c 79 20 3b 6c | 4f 4f 4b a0 46 4f 52 a0 |pl),y ;l|OOK.FOR.|
|00000210| 52 41 4e 47 45 a0 4f 46 | a0 30 53 a0 53 4f a0 57 |RANGE.OF|.0S.SO.W|
|00000220| 45 0d 20 62 6e 65 20 73 | 65 74 7a 20 3b a0 43 41 |E. bne s|etz ;.CA|
|00000230| 4e a0 53 48 4f 52 54 45 | 4e a0 4f 55 52 a0 43 4f |N.SHORTE|N.OUR.CO|
|00000240| 4d 50 55 54 41 54 49 4f | 4e 53 0d 20 69 6e 79 0d |MPUTATIO|NS. iny.|
|00000250| 20 62 6e 65 20 3a 6c 6f | 6f 6b 0d 61 62 6f 72 74 | bne :lo|ok.abort|
|00000260| 20 6c 64 61 20 23 2d 31 | 20 3b 63 4c 45 41 52 a0 | lda #-1| ;cLEAR.|
|00000270| 7a 2d 53 54 41 54 55 53 | a0 42 49 54 0d 20 72 74 |z-STATUS|.BIT. rt|
|00000280| 73 0d 0d 73 65 74 7a 20 | 74 79 61 20 3b 62 55 4d |s..setz |tya ;bUM|
|00000290| 50 a0 4c 45 41 44 49 4e | 47 a0 30 a0 50 4f 49 4e |P.LEADIN|G.0.POIN|
|000002a0| 54 45 52 0d 20 61 64 63 | 20 7a 6c 65 6e 0d 20 73 |TER. adc| zlen. s|
|000002b0| 74 61 20 7a 6c 65 6e 0d | 20 73 74 61 20 70 6c 0d |ta zlen.| sta pl.|
|000002c0| 20 62 63 63 20 3a 63 70 | 72 0d 20 69 6e 63 20 7a | bcc :cp|r. inc z|
|000002d0| 6c 65 6e 2b 31 0d 20 69 | 6e 63 20 70 6c 2b 31 0d |len+1. i|nc pl+1.|
|000002e0| 3a 63 70 72 20 6c 64 61 | 20 6e 75 6d 68 65 78 20 |:cpr lda| numhex |
|000002f0| 3b 70 41 53 54 a0 45 4e | 44 a0 4f 46 a0 53 54 52 |;pAST.EN|D.OF.STR|
|00000300| 49 4e 47 3f 0d 20 63 6d | 70 20 70 6c 0d 20 6c 64 |ING?. cm|p pl. ld|
|00000310| 61 20 70 77 72 73 74 65 | 6e 64 0d 20 73 62 63 20 |a pwrste|nd. sbc |
|00000320| 70 6c 2b 31 0d 20 62 63 | 63 20 61 62 6f 72 74 20 |pl+1. bc|c abort |
|00000330| 3b 65 58 49 54 a0 49 46 | a0 53 4f 0d 0d 2a 2d 2d |;eXIT.IF|.SO..*--|
|00000340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000360| 2d 2d 2d 2d 2d 2d 0d 2a | a0 72 4f 55 54 49 4e 45 |------.*|.rOUTINE|
|00000370| a0 54 4f a0 44 49 56 49 | 44 45 a0 54 48 45 a0 53 |.TO.DIVI|DE.THE.S|
|00000380| 54 52 49 4e 47 a0 41 54 | a0 28 70 6c 29 a0 42 59 |TRING.AT|.(pl).BY|
|00000390| 0d 2a a0 4e 55 4d 42 45 | 52 a0 49 4e a0 64 69 76 |.*.NUMBE|R.IN.div|
|000003a0| 72 a0 4c 45 41 56 49 4e | 47 a0 52 45 53 55 4c 54 |r.LEAVIN|G.RESULT|
|000003b0| a0 49 4e a0 28 70 6c 29 | 3a 0d 2a 2d 2d 2d 2d 2d |.IN.(pl)|:.*-----|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003e0| 2d 2d 2d 0d 0d 64 69 76 | 73 74 72 20 65 6e 74 0d |---..div|str ent.|
|000003f0| 20 6c 64 61 20 6e 75 6d | 68 65 78 20 3b 73 45 54 | lda num|hex ;sET|
|00000400| a0 55 50 a0 44 49 47 49 | 54 a0 43 4f 55 4e 54 0d |.UP.DIGI|T.COUNT.|
|00000410| 20 73 65 63 0d 20 73 62 | 63 20 7a 6c 65 6e 0d 20 | sec. sb|c zlen. |
|00000420| 65 6f 72 20 23 2d 31 0d | 20 73 74 61 20 63 6f 75 |eor #-1.| sta cou|
|00000430| 6e 74 0d 20 6c 64 61 20 | 6e 75 6d 68 65 78 2b 31 |nt. lda |numhex+1|
|00000440| 0d 20 73 62 63 20 7a 6c | 65 6e 2b 31 0d 20 65 6f |. sbc zl|en+1. eo|
|00000450| 72 20 23 2d 31 0d 20 73 | 74 61 20 63 6f 75 6e 74 |r #-1. s|ta count|
|00000460| 2b 31 0d 20 62 70 6c 20 | 61 62 6f 72 74 20 3b 65 |+1. bpl |abort ;e|
|00000470| 58 49 54 a0 49 46 a0 4e | 4f 54 48 49 4e 47 a0 54 |XIT.IF.N|OTHING.T|
|00000480| 48 45 52 45 0d 20 6c 64 | 79 20 23 30 0d 20 73 74 |HERE. ld|y #0. st|
|00000490| 79 20 72 65 6d 72 20 3b | 69 4e 49 54 a0 52 45 4d |y remr ;|iNIT.REM|
|000004a0| 41 49 4e 44 45 52 0d 20 | 6c 64 61 20 64 69 76 72 |AINDER. |lda divr|
|000004b0| 2b 31 20 3b 31 a0 4f 52 | a0 32 a0 44 49 47 49 54 |+1 ;1.OR|.2.DIGIT|
|000004c0| a0 44 49 56 49 53 4f 52 | 3f 0d 20 62 6e 65 20 74 |.DIVISOR|?. bne t|
|000004d0| 77 6f 20 3b 62 52 41 4e | 43 48 a0 49 46 a0 32 a0 |wo ;bRAN|CH.IF.2.|
|000004e0| 42 59 54 45 a0 44 49 56 | 49 53 4f 52 0d 0d 2a 2d |BYTE.DIV|ISOR..*-|
|000004f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000510| 2d 2d 0d 2a a0 73 54 52 | 49 4e 47 a0 44 49 56 49 |--.*.sTR|ING.DIVI|
|00000520| 44 45 a0 57 49 54 48 a0 | 31 a0 42 59 54 45 a0 44 |DE.WITH.|1.BYTE.D|
|00000530| 49 56 49 53 4f 52 3a 0d | 2a a0 68 41 56 49 4e 47 |IVISOR:.|*.hAVING|
|00000540| a0 54 48 49 53 a0 41 53 | a0 41 a0 53 45 50 41 52 |.THIS.AS|.A.SEPAR|
|00000550| 41 54 45 a0 52 4f 55 54 | 49 4e 45 0d 2a a0 47 52 |ATE.ROUT|INE.*.GR|
|00000560| 45 41 54 4c 59 a0 53 50 | 45 45 44 53 a0 55 50 a0 |EATLY.SP|EEDS.UP.|
|00000570| 54 48 45 a0 43 4f 4d 50 | 55 54 41 54 49 4f 4e 2e |THE.COMP|UTATION.|
|00000580| 0d 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.*------|--------|
|00000590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005a0| 2d 2d 2d 2d 2d 0d 0d 64 | 73 31 20 6c 64 61 20 28 |-----..d|s1 lda (|
|000005b0| 70 6c 29 2c 79 20 3b 67 | 45 54 a0 41 a0 4e 55 4d |pl),y ;g|ET.A.NUM|
|000005c0| 45 52 41 54 4f 52 a0 44 | 49 47 49 54 0d 20 73 74 |ERATOR.D|IGIT. st|
|000005d0| 61 20 71 75 6f 20 3b 73 | 45 54 a0 46 4f 52 a0 44 |a quo ;s|ET.FOR.D|
|000005e0| 49 56 49 44 45 0d 20 6c | 64 79 20 23 38 20 3b 38 |IVIDE. l|dy #8 ;8|
|000005f0| a0 42 49 54 a0 44 49 56 | 49 53 49 4f 4e 0d 20 6c |.BIT.DIV|ISION. l|
|00000600| 64 61 20 72 65 6d 72 0d | 3a 64 69 76 20 61 73 6c |da remr.|:div asl|
|00000610| 20 71 75 6f 0d 20 72 6f | 6c 0d 20 62 63 73 20 3a | quo. ro|l. bcs :|
|00000620| 63 61 6e 73 75 62 20 3b | 69 46 a0 43 41 52 52 59 |cansub ;|iF.CARRY|
|00000630| a0 54 48 45 4e a0 43 41 | 4e a0 53 55 42 54 52 41 |.THEN.CA|N.SUBTRA|
|00000640| 43 54 0d 20 63 6d 70 20 | 64 69 76 72 20 3b 65 4c |CT. cmp |divr ;eL|
|00000650| 53 45 a0 57 45 a0 48 41 | 56 45 a0 54 4f a0 54 45 |SE.WE.HA|VE.TO.TE|
|00000660| 53 54 a0 49 54 0d 20 62 | 6c 74 20 3a 64 79 0d 3a |ST.IT. b|lt :dy.:|
|00000670| 63 61 6e 73 75 62 20 73 | 62 63 20 64 69 76 72 0d |cansub s|bc divr.|
|00000680| 20 69 6e 63 20 71 75 6f | 0d 3a 64 79 20 64 65 79 | inc quo|.:dy dey|
|00000690| 0d 20 62 6e 65 20 3a 64 | 69 76 20 3b 6c 4f 4f 50 |. bne :d|iv ;lOOP|
|000006a0| a0 46 4f 52 a0 38 a0 42 | 49 54 53 0d 20 73 74 61 |.FOR.8.B|ITS. sta|
|000006b0| 20 72 65 6d 72 20 3b 72 | 45 4d 41 49 4e 44 45 52 | remr ;r|EMAINDER|
|000006c0| a0 49 53 a0 4c 45 46 54 | a0 49 4e a0 61 0d 20 6c |.IS.LEFT|.IN.a. l|
|000006d0| 64 61 20 71 75 6f 0d 20 | 73 74 61 20 28 70 6c 29 |da quo. |sta (pl)|
|000006e0| 2c 79 20 3b 73 54 4f 52 | 45 a0 54 48 45 a0 51 55 |,y ;sTOR|E.THE.QU|
|000006f0| 4f 54 49 45 4e 54 a0 49 | 4e 0d 20 69 6e 63 64 20 |OTIENT.I|N. incd |
|00000700| 70 6c 20 3b a0 53 41 4d | 45 a0 53 54 52 49 4e 47 |pl ;.SAM|E.STRING|
|00000710| 0d 20 6e 65 78 74 20 63 | 6f 75 6e 74 3b 64 73 31 |. next c|ount;ds1|
|00000720| 20 3b 64 4f a0 4e 45 58 | 54 a0 44 49 47 49 54 a0 | ;dO.NEX|T.DIGIT.|
|00000730| 4f 46 a0 53 54 52 49 4e | 47 0d 20 72 74 73 20 3b |OF.STRIN|G. rts ;|
|00000740| a0 54 49 4c 4c a0 44 4f | 4e 45 0d 0d 2a 2d 2d 2d |.TILL.DO|NE..*---|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 0d 2a a0 73 54 52 49 4e | 47 a0 44 49 56 49 44 45 |.*.sTRIN|G.DIVIDE|
|00000780| a0 57 49 54 48 a0 32 a0 | 42 59 54 45 a0 44 49 56 |.WITH.2.|BYTE.DIV|
|00000790| 49 53 4f 52 3a 0d 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ISOR:.*-|--------|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 0d 74 77 6f 20 |--------|--..two |
|000007c0| 73 74 79 20 72 65 6d 72 | 2b 31 20 3b 7a 45 52 4f |sty remr|+1 ;zERO|
|000007d0| a0 52 45 4d 41 49 4e 44 | 45 52 a0 48 49 47 48 0d |.REMAIND|ER.HIGH.|
|000007e0| 20 73 65 63 0d 20 72 6f | 72 20 63 6f 75 6e 74 2b | sec. ro|r count+|
|000007f0| 31 20 3b 68 41 4c 56 45 | a0 54 48 45 a0 43 4f 55 |1 ;hALVE|.THE.COU|
|00000800| 4e 54 0d 20 72 6f 72 20 | 63 6f 75 6e 74 0d 3a 64 |NT. ror |count.:d|
|00000810| 73 20 6c 64 61 20 28 70 | 6c 29 2c 79 20 3b 67 45 |s lda (p|l),y ;gE|
|00000820| 54 a0 4e 45 58 54 a0 4e | 55 4d 45 52 41 54 4f 52 |T.NEXT.N|UMERATOR|
|00000830| a0 48 49 47 48 0d 20 73 | 74 61 20 71 75 6f 2b 31 |.HIGH. s|ta quo+1|
|00000840| 0d 20 69 6e 79 0d 20 6c | 64 61 20 28 70 6c 29 2c |. iny. l|da (pl),|
|00000850| 79 20 3b a0 41 4e 44 a0 | 4c 4f 57 0d 20 73 74 61 |y ;.AND.|LOW. sta|
|00000860| 20 71 75 6f 0d 20 6c 64 | 79 20 23 31 36 20 3b 73 | quo. ld|y #16 ;s|
|00000870| 45 54 a0 46 4f 52 a0 31 | 36 a0 42 49 54 a0 44 49 |ET.FOR.1|6.BIT.DI|
|00000880| 56 49 44 45 0d 20 6c 64 | 61 20 72 65 6d 72 2b 31 |VIDE. ld|a remr+1|
|00000890| 0d 3a 64 69 76 20 61 73 | 6c 20 71 75 6f 0d 20 72 |.:div as|l quo. r|
|000008a0| 6f 6c 20 71 75 6f 2b 31 | 0d 20 72 6f 6c 20 72 65 |ol quo+1|. rol re|
|000008b0| 6d 72 0d 20 72 6f 6c 0d | 20 74 61 78 0d 20 62 63 |mr. rol.| tax. bc|
|000008c0| 73 20 3a 63 61 6e 73 75 | 62 0d 20 63 6d 70 20 64 |s :cansu|b. cmp d|
|000008d0| 69 76 72 2b 31 0d 20 62 | 6c 74 20 3a 64 79 0d 20 |ivr+1. b|lt :dy. |
|000008e0| 62 65 71 20 3a 6f 6e 65 | 62 0d 3a 63 61 6e 73 75 |beq :one|b.:cansu|
|000008f0| 62 20 6c 64 61 20 72 65 | 6d 72 0d 20 73 62 63 20 |b lda re|mr. sbc |
|00000900| 64 69 76 72 0d 20 73 74 | 61 20 72 65 6d 72 0d 20 |divr. st|a remr. |
|00000910| 74 78 61 0d 20 73 62 63 | 20 64 69 76 72 2b 31 0d |txa. sbc| divr+1.|
|00000920| 3a 69 6e 71 75 6f 20 69 | 6e 63 20 71 75 6f 0d 3a |:inquo i|nc quo.:|
|00000930| 64 79 20 64 65 79 0d 20 | 62 6e 65 20 3a 64 69 76 |dy dey. |bne :div|
|00000940| 20 3b 6c 4f 4f 50 a0 46 | 4f 52 a0 31 36 a0 42 49 | ;lOOP.F|OR.16.BI|
|00000950| 54 53 0d 20 73 74 61 20 | 72 65 6d 72 2b 31 20 3b |TS. sta |remr+1 ;|
|00000960| 61 a0 48 41 53 a0 52 45 | 4d 41 49 4e 44 45 52 a0 |a.HAS.RE|MAINDER.|
|00000970| 48 49 47 48 0d 20 6c 64 | 61 20 71 75 6f 2b 31 0d |HIGH. ld|a quo+1.|
|00000980| 20 73 74 61 20 28 70 6c | 29 2c 79 20 3b 70 55 54 | sta (pl|),y ;pUT|
|00000990| a0 54 48 45 a0 32 a0 51 | 55 4f 54 49 45 4e 54 a0 |.THE.2.Q|UOTIENT.|
|000009a0| 42 59 54 45 53 0d 20 69 | 6e 63 64 20 70 6c 20 3b |BYTES. i|ncd pl ;|
|000009b0| a0 49 4e a0 54 48 45 a0 | 53 54 52 49 4e 47 0d 20 |.IN.THE.|STRING. |
|000009c0| 6c 64 61 20 71 75 6f 0d | 20 73 74 61 20 28 70 6c |lda quo.| sta (pl|
|000009d0| 29 2c 79 0d 20 69 6e 63 | 64 20 70 6c 0d 20 6e 65 |),y. inc|d pl. ne|
|000009e0| 78 74 20 63 6f 75 6e 74 | 3b 3a 64 73 20 3b 6e 45 |xt count|;:ds ;nE|
|000009f0| 58 54 a0 4e 55 4d 45 52 | 41 54 4f 52 a0 44 49 47 |XT.NUMER|ATOR.DIG|
|00000a00| 49 54 0d 20 72 74 73 0d | 0d 3a 6f 6e 65 62 20 6c |IT. rts.|.:oneb l|
|00000a10| 64 61 20 72 65 6d 72 0d | 20 73 62 63 20 64 69 76 |da remr.| sbc div|
|00000a20| 72 0d 20 62 67 65 20 3a | 64 6f 65 73 73 75 62 0d |r. bge :|doessub.|
|00000a30| 20 74 78 61 0d 20 62 6c | 74 20 3a 64 79 20 3b 61 | txa. bl|t :dy ;a|
|00000a40| 4c 57 41 59 53 0d 3a 64 | 6f 65 73 73 75 62 20 73 |LWAYS.:d|oessub s|
|00000a50| 74 61 20 72 65 6d 72 0d | 20 6c 64 61 20 23 30 0d |ta remr.| lda #0.|
|00000a60| 20 62 65 71 20 3a 69 6e | 71 75 6f 20 3b 61 4c 57 | beq :in|quo ;aLW|
|00000a70| 41 59 53 0d 0d 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |AYS..*--|--------|
|00000a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2a a0 73 45 54 |--------|--.*.sET|
|00000aa0| a0 55 50 a0 41 44 44 2f | 53 55 42 54 a0 50 4f 49 |.UP.ADD/|SUBT.POI|
|00000ab0| 4e 54 45 52 53 a0 41 4e | 44 a0 44 45 43 49 44 45 |NTERS.AN|D.DECIDE|
|00000ac0| 0d 2a a0 57 48 45 54 48 | 45 52 a0 54 4f a0 41 44 |.*.WHETH|ER.TO.AD|
|00000ad0| 44 a0 4f 52 a0 53 55 42 | 54 52 41 43 54 3a 0d 2a |D.OR.SUB|TRACT:.*|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b00| 2d 2d 2d 2d 0d 0d 61 64 | 64 6f 72 73 75 62 20 65 |----..ad|dorsub e|
|00000b10| 6e 74 0d 20 6a 73 72 20 | 73 65 74 70 6e 74 0d 20 |nt. jsr |setpnt. |
|00000b20| 6c 64 61 20 6e 75 6d 68 | 65 78 2b 31 0d 20 73 65 |lda numh|ex+1. se|
|00000b30| 63 0d 20 73 62 63 20 7a | 6c 65 6e 2b 31 20 3b 74 |c. sbc z|len+1 ;t|
|00000b40| 48 49 53 a0 43 4f 55 4e | 54 53 a0 23 a0 4f 46 a0 |HIS.COUN|TS.#.OF.|
|00000b50| 50 41 47 45 53 0d 20 74 | 61 78 20 3b a0 4e 45 45 |PAGES. t|ax ;.NEE|
|00000b60| 44 49 4e 47 a0 41 54 54 | 45 4e 54 49 4f 4e 0d 20 |DING.ATT|ENTION. |
|00000b70| 73 65 63 0d 20 6c 64 79 | 20 6e 75 6d 68 65 78 0d |sec. ldy| numhex.|
|00000b80| 20 62 69 74 20 73 69 67 | 6e 0d 20 62 70 6c 20 3a | bit sig|n. bpl :|
|00000b90| 73 75 62 73 74 72 20 3b | 73 55 42 54 52 41 43 54 |substr ;|sUBTRACT|
|00000ba0| a0 49 46 a0 53 49 47 4e | a0 2d 0d 3b a0 45 4c 53 |.IF.SIGN|.-.;.ELS|
|00000bb0| 45 a0 46 41 4c 4c a0 49 | 4e 54 4f a0 41 44 44 3a |E.FALL.I|NTO.ADD:|
|00000bc0| 0d 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.*------|--------|
|00000bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2a a0 72 4f 55 54 |--------|-.*.rOUT|
|00000bf0| 49 4e 45 a0 54 4f a0 41 | 44 44 a0 53 54 52 49 4e |INE.TO.A|DD.STRIN|
|00000c00| 47 a0 41 54 a0 28 70 6c | 29 a0 54 4f a0 54 48 41 |G.AT.(pl|).TO.THA|
|00000c10| 54 0d 2a a0 41 54 a0 28 | 71 6c 29 a0 4c 45 41 56 |T.*.AT.(|ql).LEAV|
|00000c20| 49 4e 47 a0 53 55 4d a0 | 49 4e a0 28 70 6c 29 3a |ING.SUM.|IN.(pl):|
|00000c30| 0d 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.*------|--------|
|00000c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 0d 3a 61 64 64 73 |--------|-..:adds|
|00000c60| 74 72 20 63 6c 63 0d 20 | 69 6e 79 0d 3a 73 6b 69 |tr clc. |iny.:ski|
|00000c70| 70 20 64 65 79 0d 20 6c | 64 61 20 28 70 6c 29 2c |p dey. l|da (pl),|
|00000c80| 79 0d 20 61 64 63 20 28 | 71 6c 29 2c 79 0d 20 73 |y. adc (|ql),y. s|
|00000c90| 74 61 20 28 70 6c 29 2c | 79 0d 20 74 79 61 0d 20 |ta (pl),|y. tya. |
|00000ca0| 62 6e 65 20 3a 73 6b 69 | 70 0d 20 64 65 63 20 70 |bne :ski|p. dec p|
|00000cb0| 6c 2b 31 0d 20 64 65 63 | 20 71 6c 2b 31 0d 20 64 |l+1. dec| ql+1. d|
|00000cc0| 65 78 0d 20 62 70 6c 20 | 3a 73 6b 69 70 20 3b 77 |ex. bpl |:skip ;w|
|00000cd0| 45 a0 44 4f a0 4f 4e 4c | 59 a0 46 55 4c 4c a0 50 |E.DO.ONL|Y.FULL.P|
|00000ce0| 41 47 45 53 0d 20 62 63 | 73 20 3a 73 6b 69 70 20 |AGES. bc|s :skip |
|00000cf0| 3b 64 4f a0 41 4e 4f 54 | 48 45 52 a0 50 41 47 45 |;dO.ANOT|HER.PAGE|
|00000d00| a0 49 46 a0 43 41 52 52 | 59 0d 20 72 74 73 0d 0d |.IF.CARR|Y. rts..|
|00000d10| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d30| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 2a a0 72 4f 55 54 49 |--------|.*.rOUTI|
|00000d40| 4e 45 a0 54 4f a0 53 55 | 42 54 52 41 43 54 a0 53 |NE.TO.SU|BTRACT.S|
|00000d50| 54 52 49 4e 47 a0 41 54 | a0 28 70 6c 29 a0 54 4f |TRING.AT|.(pl).TO|
|00000d60| 0d 2a a0 54 48 41 54 a0 | 41 54 a0 28 71 6c 29 a0 |.*.THAT.|AT.(ql).|
|00000d70| 4c 45 41 56 49 4e 47 a0 | 44 49 46 46 4e 43 45 a0 |LEAVING.|DIFFNCE.|
|00000d80| 49 4e a0 28 70 6c 29 3a | 0d 2a 2d 2d 2d 2d 2d 2d |IN.(pl):|.*------|
|00000d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000db0| 2d 0d 0d 3a 73 6b 70 20 | 64 65 79 0d 3a 73 75 62 |-..:skp |dey.:sub|
|00000dc0| 73 74 72 20 6c 64 61 20 | 28 70 6c 29 2c 79 0d 20 |str lda |(pl),y. |
|00000dd0| 73 62 63 20 28 71 6c 29 | 2c 79 0d 20 73 74 61 20 |sbc (ql)|,y. sta |
|00000de0| 28 70 6c 29 2c 79 0d 20 | 74 79 61 0d 20 62 6e 65 |(pl),y. |tya. bne|
|00000df0| 20 3a 73 6b 70 0d 20 64 | 65 63 20 70 6c 2b 31 0d | :skp. d|ec pl+1.|
|00000e00| 20 64 65 63 20 71 6c 2b | 31 0d 20 64 65 78 0d 20 | dec ql+|1. dex. |
|00000e10| 62 70 6c 20 3a 73 6b 70 | 0d 20 62 63 63 20 3a 73 |bpl :skp|. bcc :s|
|00000e20| 6b 70 20 3b 61 4e 4f 54 | 48 45 52 a0 50 41 47 45 |kp ;aNOT|HER.PAGE|
|00000e30| a0 49 46 a0 42 4f 52 52 | 4f 57 0d 20 72 74 73 0d |.IF.BORR|OW. rts.|
|00000e40| 0d 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.*------|--------|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 2d 2d 2d 2d 0d 2a a0 72 | 4f 55 54 49 4a 45 a0 54 |----.*.r|OUTIJE.T|
|00000e70| 4f a0 4d 4f 56 45 a0 73 | 75 6d 73 74 72 a0 54 4f |O.MOVE.s|umstr.TO|
|00000e80| a0 74 65 6d 70 73 74 72 | 0d 2a a0 28 6f 4e 4c 59 |.tempstr|.*.(oNLY|
|00000e90| a0 4d 4f 56 45 53 a0 46 | 55 4c 4c a0 50 41 47 45 |.MOVES.F|ULL.PAGE|
|00000ea0| 53 2e 29 0d 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |S.).*---|--------|
|00000eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ec0| 2d 2d 2d 2d 2d 2d 2d 0d | 0d 6d 6f 76 73 74 72 32 |-------.|.movstr2|
|00000ed0| 20 6c 64 78 20 6e 75 6d | 68 65 78 2b 31 20 3b 6d | ldx num|hex+1 ;m|
|00000ee0| 4f 56 45 a0 53 55 4d a0 | 53 54 52 49 4e 47 a0 54 |OVE.SUM.|STRING.T|
|00000ef0| 4f a0 54 45 4d 50 a0 53 | 54 52 0d 20 6c 64 61 20 |O.TEMP.S|TR. lda |
|00000f00| 23 3e 73 75 6d 73 74 72 | 0d 20 73 74 61 20 70 6c |#>sumstr|. sta pl|
|00000f10| 2b 31 0d 20 6c 64 61 20 | 23 3e 74 65 6d 70 73 74 |+1. lda |#>tempst|
|00000f20| 72 0d 20 73 74 61 20 71 | 6c 2b 31 0d 20 62 6e 65 |r. sta q|l+1. bne|
|00000f30| 20 6d 76 73 20 3b 61 4c | 57 41 59 53 0d 0d 2a 2d | mvs ;aL|WAYS..*-|
|00000f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f60| 2d 0d 2a a0 72 4f 55 54 | 49 4e 45 a0 54 4f a0 4d |-.*.rOUT|INE.TO.M|
|00000f70| 4f 56 45 a0 70 77 72 73 | 74 72 a0 54 4f a0 74 65 |OVE.pwrs|tr.TO.te|
|00000f80| 6d 70 73 74 72 0d 2a a0 | 28 6f 4e 4c 59 a0 4d 4f |mpstr.*.|(oNLY.MO|
|00000f90| 56 45 53 a0 46 55 4c 4c | a0 50 41 47 45 53 2e 29 |VES.FULL|.PAGES.)|
|00000fa0| 0d 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.*------|--------|
|00000fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fc0| 2d 2d 2d 2d 0d 0d 6d 6f | 76 73 74 72 20 65 6e 74 |----..mo|vstr ent|
|00000fd0| 20 3b 6d 4f 56 45 a0 50 | 4f 57 45 52 a0 53 54 52 | ;mOVE.P|OWER.STR|
|00000fe0| a0 54 4f a0 54 45 4d 50 | a0 53 54 52 49 4e 47 0d |.TO.TEMP|.STRING.|
|00000ff0| 20 6c 64 61 20 23 3e 74 | 65 6d 70 73 74 72 0d 20 | lda #>t|empstr. |
|00001000| 63 6c 63 0d 20 61 64 63 | 20 7a 6c 65 6e 2b 31 0d |clc. adc| zlen+1.|
|00001010| 20 73 74 61 20 71 6c 2b | 31 0d 20 61 64 63 20 23 | sta ql+|1. adc #|
|00001020| 3e 70 77 72 73 74 72 2d | 74 65 6d 70 73 74 72 0d |>pwrstr-|tempstr.|
|00001030| 20 73 74 61 20 70 6c 2b | 31 0d 20 73 65 63 0d 20 | sta pl+|1. sec. |
|00001040| 6c 64 61 20 6e 75 6d 68 | 65 78 2b 31 0d 20 73 62 |lda numh|ex+1. sb|
|00001050| 63 20 7a 6c 65 6e 2b 31 | 0d 20 74 61 78 0d 6d 76 |c zlen+1|. tax.mv|
|00001060| 73 20 6c 64 79 20 23 30 | 0d 20 73 74 79 20 71 6c |s ldy #0|. sty ql|
|00001070| 0d 20 73 74 79 20 70 6c | 0d 3a 6d 76 20 6c 64 61 |. sty pl|.:mv lda|
|00001080| 20 28 70 6c 29 2c 79 0d | 20 73 74 61 20 28 71 6c | (pl),y.| sta (ql|
|00001090| 29 2c 79 0d 20 69 6e 79 | 0d 20 62 6e 65 20 3a 6d |),y. iny|. bne :m|
|000010a0| 76 0d 20 69 6e 63 20 70 | 6c 2b 31 0d 20 69 6e 63 |v. inc p|l+1. inc|
|000010b0| 20 71 6c 2b 31 0d 20 64 | 65 78 0d 20 62 70 6c 20 | ql+1. d|ex. bpl |
|000010c0| 3a 6d 76 0d 20 72 74 73 | 0d 0d 2a 2d 2d 2d 2d 2d |:mv. rts|..*-----|
|000010d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 2a a0 72 4f |--------|---.*.rO|
|000010f0| 55 54 49 4e 45 a0 54 4f | a0 5a 45 52 4f a0 53 54 |UTINE.TO|.ZERO.ST|
|00001100| 52 49 4e 47 a0 41 54 a0 | 28 70 6c 29 3a 0d 2a a0 |RING.AT.|(pl):.*.|
|00001110| 28 6e 55 4d 42 45 52 a0 | 4f 46 a0 50 41 47 45 53 |(nUMBER.|OF.PAGES|
|00001120| a0 49 4e a0 6e 75 6d 68 | 65 78 2b 31 29 0d 2a 2d |.IN.numh|ex+1).*-|
|00001130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00001150| 0d 7a 73 74 72 6e 67 20 | 65 6e 74 20 3b 7a 45 52 |.zstrng |ent ;zER|
|00001160| 4f a0 41 a0 53 54 52 49 | 4e 47 0d 20 6c 64 79 20 |O.A.STRI|NG. ldy |
|00001170| 23 30 0d 20 74 79 61 0d | 20 6c 64 78 20 6e 75 6d |#0. tya.| ldx num|
|00001180| 68 65 78 2b 31 0d 3a 7a | 73 20 73 74 61 20 28 70 |hex+1.:z|s sta (p|
|00001190| 6c 29 2c 79 0d 20 69 6e | 79 0d 20 62 6e 65 20 3a |l),y. in|y. bne :|
|000011a0| 7a 73 0d 20 69 6e 63 20 | 70 6c 2b 31 0d 20 64 65 |zs. inc |pl+1. de|
|000011b0| 78 0d 20 62 70 6c 20 3a | 7a 73 0d 20 72 74 73 0d |x. bpl :|zs. rts.|
|000011c0| 0d 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.*------|--------|
|000011d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011e0| 2d 2d 2d 2d 0d 2a a0 72 | 4f 55 54 49 4e 45 a0 54 |----.*.r|OUTINE.T|
|000011f0| 4f a0 4d 55 4c 54 49 50 | 4c 59 a0 73 75 6d 73 74 |O.MULTIP|LY.sumst|
|00001200| 72 a0 42 59 a0 31 30 2e | 0d 2a a0 75 53 45 44 a0 |r.BY.10.|.*.uSED.|
|00001210| 4f 4e 4c 59 a0 42 59 a0 | 46 49 4e 41 4c a0 50 52 |ONLY.BY.|FINAL.PR|
|00001220| 49 4e 54 49 4e 47 2e 0d | 2a 2d 2d 2d 2d 2d 2d 2d |INTING..|*-------|
|00001230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 0d 6d 75 6c |--------|---..mul|
|00001250| 74 65 6e 20 65 6e 74 0d | 20 6a 73 72 20 6d 6f 76 |ten ent.| jsr mov|
|00001260| 73 74 72 32 0d 20 73 74 | 61 64 72 20 73 75 6d 73 |str2. st|adr sums|
|00001270| 74 72 3b 70 6c 0d 20 6a | 73 72 20 7a 73 74 72 6e |tr;pl. j|sr zstrn|
|00001280| 67 0d 20 6a 73 72 20 73 | 65 74 70 6e 74 0d 20 6c |g. jsr s|etpnt. l|
|00001290| 64 79 20 6e 75 6d 68 65 | 78 0d 20 61 73 6c 20 64 |dy numhe|x. asl d|
|000012a0| 65 63 66 6c 61 67 20 3b | 73 48 49 46 54 a0 33 a0 |ecflag ;|sHIFT.3.|
|000012b0| 43 59 43 4c 45 a0 43 4f | 55 4e 54 0d 20 62 63 63 |CYCLE.CO|UNT. bcc|
|000012c0| 20 3a 6e 65 78 64 69 67 | 20 3b 62 52 41 4e 43 48 | :nexdig| ;bRANCH|
|000012d0| a0 49 46 a0 4e 4f 54 a0 | 33 52 44 a0 54 49 4d 45 |.IF.NOT.|3RD.TIME|
|000012e0| 0d 20 62 6e 65 20 3a 74 | 79 0d 20 6c 64 61 20 23 |. bne :t|y. lda #|
|000012f0| 25 30 30 31 30 31 30 30 | 30 20 3b 72 45 53 45 54 |%0010100|0 ;rESET|
|00001300| a0 43 4f 55 4e 54 0d 20 | 73 74 61 20 64 65 63 66 |.COUNT. |sta decf|
|00001310| 6c 61 67 0d 3a 74 79 20 | 74 79 61 20 3b 64 45 43 |lag.:ty |tya ;dEC|
|00001320| 52 45 41 53 45 a0 4c 45 | 4e 47 54 48 a0 54 4f a0 |REASE.LE|NGTH.TO.|
|00001330| 50 52 4f 43 45 53 53 2c | 0d 20 62 6e 65 20 3a 64 |PROCESS,|. bne :d|
|00001340| 6e 20 3b a0 46 4f 52 a0 | 45 58 54 52 41 a0 53 50 |n ;.FOR.|EXTRA.SP|
|00001350| 45 45 44 0d 20 64 65 63 | 20 6e 75 6d 68 65 78 2b |EED. dec| numhex+|
|00001360| 31 0d 3a 64 6e 20 64 65 | 63 20 6e 75 6d 68 65 78 |1.:dn de|c numhex|
|00001370| 0d 3a 6e 65 78 64 69 67 | 20 6c 64 61 20 28 71 6c |.:nexdig| lda (ql|
|00001380| 29 2c 79 20 3b 75 53 45 | a0 44 49 47 49 54 a0 41 |),y ;uSE|.DIGIT.A|
|00001390| 53 a0 49 4e 44 45 58 a0 | 49 4e 54 4f 0d 20 74 61 |S.INDEX.|INTO. ta|
|000013a0| 78 20 3b a0 4d 55 4c 54 | 49 50 4c 49 43 41 54 49 |x ;.MULT|IPLICATI|
|000013b0| 4f 4e a0 54 41 42 4c 45 | 0d 20 6c 64 61 20 6d 74 |ON.TABLE|. lda mt|
|000013c0| 62 6c 6f 77 2c 78 0d 20 | 61 64 63 20 28 70 6c 29 |blow,x. |adc (pl)|
|000013d0| 2c 79 0d 20 73 74 61 20 | 28 70 6c 29 2c 79 0d 20 |,y. sta |(pl),y. |
|000013e0| 74 79 61 0d 20 62 6e 65 | 20 3a 6e 64 65 0d 20 64 |tya. bne| :nde. d|
|000013f0| 65 63 20 71 6c 2b 31 0d | 20 64 65 63 20 70 6c 2b |ec ql+1.| dec pl+|
|00001400| 31 0d 3a 6e 64 65 20 64 | 65 79 0d 20 6c 64 61 20 |1.:nde d|ey. lda |
|00001410| 6d 74 62 6c 68 69 2c 78 | 0d 20 61 64 63 20 23 30 |mtblhi,x|. adc #0|
|00001420| 0d 20 73 74 61 20 28 70 | 6c 29 2c 79 0d 20 74 79 |. sta (p|l),y. ty|
|00001430| 61 0d 20 62 6e 65 20 3a | 6e 65 78 64 69 67 0d 20 |a. bne :|nexdig. |
|00001440| 6c 64 61 20 70 6c 2b 31 | 0d 20 65 6f 72 20 23 3e |lda pl+1|. eor #>|
|00001450| 73 75 6d 73 74 72 0d 20 | 62 6e 65 20 3a 6e 65 78 |sumstr. |bne :nex|
|00001460| 64 69 67 0d 20 72 74 73 | 0d 0d 73 65 74 70 6e 74 |dig. rts|..setpnt|
|00001470| 20 6c 64 61 20 23 30 0d | 20 73 74 61 20 70 6c 0d | lda #0.| sta pl.|
|00001480| 20 73 74 61 20 71 6c 0d | 20 6c 64 61 20 6e 75 6d | sta ql.| lda num|
|00001490| 68 65 78 2b 31 0d 20 63 | 6c 63 0d 20 61 64 63 20 |hex+1. c|lc. adc |
|000014a0| 23 3e 73 75 6d 73 74 72 | 0d 20 73 74 61 20 70 6c |#>sumstr|. sta pl|
|000014b0| 2b 31 0d 20 61 64 63 20 | 23 3e 74 65 6d 70 73 74 |+1. adc |#>tempst|
|000014c0| 72 2d 73 75 6d 73 74 72 | 0d 20 73 74 61 20 71 6c |r-sumstr|. sta ql|
|000014d0| 2b 31 0d 20 72 74 73 0d | 0d 2a 3d 3d 3d 3d 3d 3d |+1. rts.|.*======|
|000014e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000014f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001500| 0d 2a a0 74 41 42 4c 45 | a0 4f 46 a0 4d 55 4c 54 |.*.tABLE|.OF.MULT|
|00001510| 49 50 4c 45 53 a0 4f 46 | a0 31 30 a0 55 50 a0 54 |IPLES.OF|.10.UP.T|
|00001520| 4f a0 31 30 2a 24 66 66 | 0d 2a a0 75 53 45 44 a0 |O.10*$ff|.*.uSED.|
|00001530| 4f 4e 4c 59 a0 42 59 a0 | 46 49 4e 41 4c a0 50 52 |ONLY.BY.|FINAL.PR|
|00001540| 49 4e 54 4f 55 54 2e 0d | 2a a0 6c 4f 57 a0 42 59 |INTOUT..|*.lOW.BY|
|00001550| 54 45 53 a0 4f 46 a0 50 | 52 4f 44 55 43 54 53 3a |TES.OF.P|RODUCTS:|
|00001560| 0d 0d 6d 74 62 6c 6f 77 | 0d 20 6c 73 74 20 6f 66 |..mtblow|. lst of|
|00001570| 66 0d 5d 61 20 3d 20 30 | 0d 20 6c 75 70 20 24 31 |f.]a = 0|. lup $1|
|00001580| 30 30 0d 20 64 66 62 20 | 5d 61 2a 31 30 0d 5d 61 |00. dfb |]a*10.]a|
|00001590| 20 3d 20 5d 61 2b 31 0d | 20 2d 2d 5e 0d 20 6c 73 | = ]a+1.| --^. ls|
|000015a0| 74 0d 2a 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |t.*=====|========|
|000015b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 2a a0 68 49 |========|===.*.hI|
|000015c0| 47 48 a0 42 59 54 45 53 | a0 4f 46 a0 50 52 4f 44 |GH.BYTES|.OF.PROD|
|000015d0| 55 43 54 53 3a 0d 0d 6d | 74 62 6c 68 69 0d 20 6c |UCTS:..m|tblhi. l|
|000015e0| 73 74 20 6f 66 66 0d 5d | 61 20 3d 20 30 0d 20 6c |st off.]|a = 0. l|
|000015f0| 75 70 20 24 31 30 30 0d | 20 64 66 62 20 3e 5d 61 |up $100.| dfb >]a|
|00001600| 2a 31 30 0d 5d 61 20 3d | 20 5d 61 2b 31 0d 20 2d |*10.]a =| ]a+1. -|
|00001610| 2d 5e 0d 20 6c 73 74 0d | 0d 20 65 72 72 20 5e 73 |-^. lst.|. err ^s|
|00001620| 75 6d 73 74 72 0d 0d 20 | 6c 73 74 20 6f 66 66 0d |umstr.. |lst off.|
+--------+-------------------------+-------------------------+--------+--------+