/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / mer128.arc / PI.MAKER.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 6d 61 6b 65 72 0d 2a | 3d 3d 3d 3d 3d 3d 3d 3d |.maker.*|========|
|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 | 44 4f 45 53 a0 54 48 45 |.MODULE.|DOES.THE|
|00000070| a0 4d 41 49 4e a0 43 4f | 4d 50 55 54 41 54 49 4f |.MAIN.CO|MPUTATIO|
|00000080| 4e a0 4f 46 a0 70 69 0d | 2a a0 42 59 a0 4d 45 41 |N.OF.pi.|*.BY.MEA|
|00000090| 4e 53 a0 4f 46 a0 41 a0 | 57 45 4c 4c a0 4b 4e 4f |NS.OF.A.|WELL.KNO|
|000000a0| 57 4e a0 50 41 49 52 a0 | 4f 46 a0 53 45 52 49 45 |WN.PAIR.|OF.SERIE|
|000000b0| 53 2e 0d 0d 20 72 65 6c | 0d 73 61 76 6f 62 6a 20 |S... rel|.savobj |
|000000c0| 6b 62 64 20 27 73 41 56 | 45 a0 4f 42 4a 45 43 54 |kbd 'sAV|E.OBJECT|
|000000d0| a0 43 4f 44 45 3f a0 28 | 31 3d 79 2c a0 30 3d 6e |.CODE?.(|1=y,.0=n|
|000000e0| 29 27 0d 20 64 6f 20 73 | 61 76 6f 62 6a 0d 20 64 |)'. do s|avobj. d|
|000000f0| 73 6b 20 27 50 49 2e 4d | 41 4b 45 52 27 0d 20 66 |sk 'PI.M|AKER'. f|
|00000100| 69 6e 0d 0d 20 74 72 0d | 20 65 78 70 20 6f 66 66 |in.. tr.| exp off|
|00000110| 0d 0d 20 75 73 65 20 27 | 50 49 2e 4d 41 43 52 4f |.. use '|PI.MACRO|
|00000120| 53 27 0d 0d 7a 73 74 72 | 6e 67 20 65 78 74 0d 64 |S'..zstr|ng ext.d|
|00000130| 69 76 73 74 72 20 65 78 | 74 0d 64 69 76 73 74 72 |ivstr ex|t.divstr|
|00000140| 30 20 65 78 74 0d 6d 6f | 76 73 74 72 20 65 78 74 |0 ext.mo|vstr ext|
|00000150| 0d 61 64 64 6f 72 73 75 | 62 20 65 78 74 0d 73 65 |.addorsu|b ext.se|
|00000160| 74 72 6f 6d 20 65 78 74 | 0d 0d 76 69 64 6f 75 74 |trom ext|..vidout|
|00000170| 20 3d 20 24 63 30 30 63 | 0d 65 73 63 61 70 65 20 | = $c00c|.escape |
|00000180| 3d 20 24 63 30 31 65 0d | 77 69 6e 64 6f 77 20 3d |= $c01e.|window =|
|00000190| 20 24 63 30 32 64 0d 0d | 6d 61 6b 65 70 69 20 65 | $c02d..|makepi e|
|000001a0| 6e 74 0d 20 6c 64 78 20 | 23 64 65 63 66 6c 61 67 |nt. ldx |#decflag|
|000001b0| 2d 32 20 3b 73 41 56 45 | a0 5a 45 52 4f a0 50 41 |-2 ;sAVE|.ZERO.PA|
|000001c0| 47 45 0d 3a 73 61 76 65 | 7a 20 6c 64 61 20 32 2c |GE.:save|z lda 2,|
|000001d0| 78 20 3b a0 54 4f a0 42 | 45 a0 55 53 45 44 0d 20 |x ;.TO.B|E.USED. |
|000001e0| 73 74 61 20 73 61 76 65 | 2c 78 0d 20 64 65 78 0d |sta save|,x. dex.|
|000001f0| 20 62 70 6c 20 3a 73 61 | 76 65 7a 0d 20 73 74 78 | bpl :sa|vez. stx|
|00000200| 20 73 69 67 6e 20 3b 69 | 4e 49 54 a0 2b a0 53 49 | sign ;i|NIT.+.SI|
|00000210| 47 4e 0d 20 73 74 78 20 | 77 68 69 63 68 73 65 72 |GN. stx |whichser|
|00000220| 20 3b a0 41 4e 44 a0 31 | 53 54 a0 53 45 52 49 45 | ;.AND.1|ST.SERIE|
|00000230| 53 a0 46 4c 41 47 0d 20 | 6c 64 61 20 23 27 54 27 |S.FLAG. |lda #'T'|
|00000240| 0d 20 6a 73 72 20 65 73 | 63 61 70 65 20 3b 73 45 |. jsr es|cape ;sE|
|00000250| 54 a0 54 4f 50 a0 4f 46 | a0 57 49 4e 44 4f 57 0d |T.TOP.OF|.WINDOW.|
|00000260| 20 6c 64 61 20 6e 75 6d | 68 65 78 2b 31 0d 20 63 | lda num|hex+1. c|
|00000270| 6c 63 0d 20 61 64 63 20 | 23 3e 70 77 72 73 74 72 |lc. adc |#>pwrstr|
|00000280| 0d 20 73 74 61 20 70 77 | 72 73 74 65 6e 64 20 3b |. sta pw|rstend ;|
|00000290| 70 4f 49 4e 54 45 52 a0 | 54 4f a0 45 4e 44 a0 4f |pOINTER.|TO.END.O|
|000002a0| 46 a0 70 77 72 73 74 72 | 0d 20 73 74 61 64 72 20 |F.pwrstr|. stadr |
|000002b0| 73 75 6d 73 74 72 3b 70 | 6c 0d 20 73 74 61 20 72 |sumstr;p|l. sta r|
|000002c0| 61 6d 30 20 3b 72 61 6d | a0 55 50 a0 46 4f 52 a0 |am0 ;ram|.UP.FOR.|
|000002d0| 45 4e 54 49 52 45 a0 43 | 4f 4d 50 55 54 41 54 49 |ENTIRE.C|OMPUTATI|
|000002e0| 4f 4e 0d 20 6a 73 72 20 | 7a 73 74 72 6e 67 0d 20 |ON. jsr |zstrng. |
|000002f0| 73 74 61 64 72 20 32 35 | 3b 63 75 72 64 69 76 20 |stadr 25|;curdiv |
|00000300| 3b 70 52 45 50 41 52 45 | a0 54 4f a0 44 49 56 49 |;pREPARE|.TO.DIVI|
|00000310| 44 45 a0 42 59 a0 32 35 | 0d 73 74 61 72 74 73 65 |DE.BY.25|.startse|
|00000320| 72 20 73 74 61 64 72 20 | 31 3b 6f 64 64 20 3b 69 |r stadr |1;odd ;i|
|00000330| 4e 49 54 a0 54 48 45 a0 | 4f 44 44 a0 44 49 56 49 |NIT.THE.|ODD.DIVI|
|00000340| 53 4f 52 53 0d 20 73 74 | 61 20 7a 6c 65 6e 20 3b |SORS. st|a zlen ;|
|00000350| 69 4e 49 54 a0 30 a0 4c | 45 41 44 49 4e 47 a0 5a |iNIT.0.L|EADING.Z|
|00000360| 45 52 4f 53 a0 28 55 53 | 45 44 a0 54 4f 0d 20 73 |EROS.(US|ED.TO. s|
|00000370| 74 61 20 7a 6c 65 6e 2b | 31 20 3b a0 41 56 4f 49 |ta zlen+|1 ;.AVOI|
|00000380| 44 a0 55 4e 4e 45 45 44 | 45 44 a0 43 4f 4d 50 55 |D.UNNEED|ED.COMPU|
|00000390| 54 41 54 49 4f 4e 53 0d | 20 73 74 61 64 72 20 70 |TATIONS.| stadr p|
|000003a0| 77 72 73 74 72 3b 70 6c | 20 3b a0 4f 46 a0 53 54 |wrstr;pl| ;.OF.ST|
|000003b0| 52 49 4e 47 53 a0 4f 46 | a0 5a 45 52 4f 45 53 2e |RINGS.OF|.ZEROES.|
|000003c0| 29 0d 20 6a 73 72 20 7a | 73 74 72 6e 67 20 3b 7a |). jsr z|strng ;z|
|000003d0| 45 52 4f a0 50 4f 57 45 | 52 a0 53 54 52 49 4e 47 |ERO.POWE|R.STRING|
|000003e0| 0d 20 6c 64 61 20 23 31 | 36 20 3b 6e 55 4d 45 52 |. lda #1|6 ;nUMER|
|000003f0| 41 54 4f 52 a0 4f 46 a0 | 31 53 54 a0 53 45 52 49 |ATOR.OF.|1ST.SERI|
|00000400| 45 53 0d 20 62 69 74 20 | 77 68 69 63 68 73 65 72 |ES. bit |whichser|
|00000410| 0d 20 62 6d 69 20 3a 73 | 65 74 62 65 67 20 3b 62 |. bmi :s|etbeg ;b|
|00000420| 52 41 4e 43 48 a0 49 46 | a0 44 4f 49 4e 47 a0 31 |RANCH.IF|.DOING.1|
|00000430| 53 54 a0 53 45 52 49 45 | 53 0d 20 6c 64 61 20 23 |ST.SERIE|S. lda #|
|00000440| 34 20 3b 6e 55 4d 45 52 | 41 54 4f 52 a0 4f 46 a0 |4 ;nUMER|ATOR.OF.|
|00000450| 32 4e 44 a0 53 45 52 49 | 45 53 0d 3a 73 65 74 62 |2ND.SERI|ES.:setb|
|00000460| 65 67 20 73 74 61 20 70 | 77 72 73 74 72 20 3b 73 |eg sta p|wrstr ;s|
|00000470| 45 54 a0 31 53 54 a0 44 | 49 47 49 54 a0 4f 46 a0 |ET.1ST.D|IGIT.OF.|
|00000480| 50 4f 57 45 52 a0 53 54 | 52 0d 20 73 74 61 64 72 |POWER.ST|R. stadr|
|00000490| 20 35 3b 64 69 76 72 20 | 3b 70 52 45 50 41 52 45 | 5;divr |;pREPARE|
|000004a0| a0 54 4f a0 44 49 56 49 | 44 45 a0 42 59 a0 35 0d |.TO.DIVI|DE.BY.5.|
|000004b0| 20 62 69 74 20 77 68 69 | 63 68 73 65 72 0d 20 62 | bit whi|chser. b|
|000004c0| 6d 69 20 3a 66 72 73 74 | 64 69 76 0d 20 73 74 61 |mi :frst|div. sta|
|000004d0| 64 72 20 32 33 39 3b 64 | 69 76 72 20 3b 70 52 45 |dr 239;d|ivr ;pRE|
|000004e0| 50 41 52 45 a0 54 4f a0 | 44 49 56 49 44 45 a0 42 |PARE.TO.|DIVIDE.B|
|000004f0| 59 a0 32 33 39 0d 3a 66 | 72 73 74 64 69 76 20 6a |Y.239.:f|rstdiv j|
|00000500| 73 72 20 64 69 76 73 74 | 72 30 20 3b 64 49 56 49 |sr divst|r0 ;dIVI|
|00000510| 44 45 a0 31 53 54 a0 54 | 45 52 4d a0 42 59 a0 35 |DE.1ST.T|ERM.BY.5|
|00000520| a0 4f 52 a0 32 33 39 0d | 3a 73 65 72 6c 6f 6f 70 |.OR.239.|:serloop|
|00000530| 20 6a 73 72 20 6d 6f 76 | 73 74 72 20 3b 6d 4f 56 | jsr mov|str ;mOV|
|00000540| 45 a0 50 4f 57 45 52 a0 | 53 54 52 49 4e 47 a0 54 |E.POWER.|STRING.T|
|00000550| 4f a0 54 45 4d 50 a0 53 | 54 52 0d 20 6c 64 61 20 |O.TEMP.S|TR. lda |
|00000560| 7a 6c 65 6e 20 3b 62 59 | 50 41 53 53 a0 4c 45 41 |zlen ;bY|PASS.LEA|
|00000570| 44 49 4e 47 a0 30 53 0d | 20 73 74 61 20 70 6c 0d |DING.0S.| sta pl.|
|00000580| 20 6c 64 61 20 7a 6c 65 | 6e 2b 31 0d 20 63 6c 63 | lda zle|n+1. clc|
|00000590| 0d 20 61 64 63 20 23 3e | 74 65 6d 70 73 74 72 0d |. adc #>|tempstr.|
|000005a0| 20 73 74 61 20 70 6c 2b | 31 0d 20 6d 6f 76 64 20 | sta pl+|1. movd |
|000005b0| 6f 64 64 3b 64 69 76 72 | 20 3b 70 52 45 50 41 52 |odd;divr| ;pREPAR|
|000005c0| 45 a0 54 4f a0 44 49 56 | 49 44 45 a0 42 59 a0 54 |E.TO.DIV|IDE.BY.T|
|000005d0| 48 45 a0 4f 44 44 53 0d | 20 6a 73 72 20 64 69 76 |HE.ODDS.| jsr div|
|000005e0| 73 74 72 0d 20 6a 73 72 | 20 73 65 74 72 6f 6d 0d |str. jsr| setrom.|
|000005f0| 20 6c 64 61 20 23 27 2e | 27 20 3b 70 52 49 4e 54 | lda #'.|' ;pRINT|
|00000600| a0 41 a0 44 4f 54 a0 46 | 4f 52 a0 45 41 43 48 a0 |.A.DOT.F|OR.EACH.|
|00000610| 54 45 52 4d 0d 20 62 69 | 74 20 77 68 69 63 68 73 |TERM. bi|t whichs|
|00000620| 65 72 20 3b a0 4f 46 a0 | 31 53 54 a0 53 45 52 49 |er ;.OF.|1ST.SERI|
|00000630| 45 53 2c a0 41 4e 44 a0 | 41 a0 2b 0d 20 62 6d 69 |ES,.AND.|A.+. bmi|
|00000640| 20 3a 73 68 6f 77 20 3b | a0 46 4f 52 a0 54 48 4f | :show ;|.FOR.THO|
|00000650| 53 45 a0 4f 46 a0 32 4e | 44 a0 53 45 52 49 45 53 |SE.OF.2N|D.SERIES|
|00000660| 0d 20 6c 64 61 20 23 27 | 2b 27 0d 3a 73 68 6f 77 |. lda #'|+'.:show|
|00000670| 20 6a 73 72 20 76 69 64 | 6f 75 74 0d 20 73 74 61 | jsr vid|out. sta|
|00000680| 20 72 61 6d 30 20 3b 74 | 55 52 4e a0 72 61 6d a0 | ram0 ;t|URN.ram.|
|00000690| 42 41 43 4b a0 4f 4e 21 | 0d 20 6a 73 72 20 61 64 |BACK.ON!|. jsr ad|
|000006a0| 64 6f 72 73 75 62 20 3b | 61 44 44 2f 53 55 42 54 |dorsub ;|aDD/SUBT|
|000006b0| 52 41 43 54 a0 52 45 53 | 55 4c 54 a0 54 4f a0 53 |RACT.RES|ULT.TO.S|
|000006c0| 55 4d a0 53 54 52 0d 20 | 72 6f 72 20 73 69 67 6e |UM.STR. |ror sign|
|000006d0| 0d 20 69 6e 63 64 20 6f | 64 64 20 3b 62 55 4d 50 |. incd o|dd ;bUMP|
|000006e0| a0 54 4f a0 54 48 45 a0 | 4e 45 58 54 a0 4f 44 44 |.TO.THE.|NEXT.ODD|
|000006f0| a0 49 4e 54 45 47 45 52 | 0d 20 69 6e 63 20 6f 64 |.INTEGER|. inc od|
|00000700| 64 0d 20 6d 6f 76 64 20 | 63 75 72 64 69 76 3b 64 |d. movd |curdiv;d|
|00000710| 69 76 72 20 3b 64 49 56 | 49 44 45 a0 50 4f 57 45 |ivr ;dIV|IDE.POWE|
|00000720| 52 a0 53 54 52 49 4e 47 | a0 42 59 0d 20 6a 73 72 |R.STRING|.BY. jsr|
|00000730| 20 64 69 76 73 74 72 30 | 20 3b a0 35 2a 35 a0 4f | divstr0| ;.5*5.O|
|00000740| 52 a0 32 33 39 2a 32 33 | 39 0d 20 62 65 71 20 3a |R.239*23|9. beq :|
|00000750| 73 65 72 6c 6f 6f 70 20 | 3b 6c 4f 4f 50 a0 54 49 |serloop |;lOOP.TI|
|00000760| 4c 4c a0 54 48 49 53 a0 | 53 45 52 49 45 53 a0 53 |LL.THIS.|SERIES.S|
|00000770| 54 41 42 4c 45 0d 20 62 | 69 74 20 77 68 69 63 68 |TABLE. b|it which|
|00000780| 73 65 72 0d 20 62 70 6c | 20 3a 64 6f 6e 65 20 3b |ser. bpl| :done ;|
|00000790| 62 52 41 4e 43 48 a0 49 | 46 a0 42 4f 54 48 a0 41 |bRANCH.I|F.BOTH.A|
|000007a0| 52 45 a0 44 4f 4e 45 0d | 20 6c 73 72 20 77 68 69 |RE.DONE.| lsr whi|
|000007b0| 63 68 73 65 72 0d 20 6c | 73 72 20 73 69 67 6e 20 |chser. l|sr sign |
|000007c0| 3b 69 4e 49 54 a0 2d a0 | 53 49 47 4e a0 46 4f 52 |;iNIT.-.|SIGN.FOR|
|000007d0| a0 32 4e 44 a0 53 45 52 | 49 45 53 0d 20 73 74 61 |.2ND.SER|IES. sta|
|000007e0| 64 72 20 32 33 39 2a 32 | 33 39 3b 63 75 72 64 69 |dr 239*2|39;curdi|
|000007f0| 76 0d 20 6a 6d 70 20 73 | 74 61 72 74 73 65 72 20 |v. jmp s|tartser |
|00000800| 3b 64 4f a0 53 45 43 4f | 4e 44 a0 53 45 52 49 45 |;dO.SECO|ND.SERIE|
|00000810| 53 a0 28 44 49 56 a0 32 | 33 39 2a 32 33 39 29 0d |S.(DIV.2|39*239).|
|00000820| 3a 64 6f 6e 65 20 6a 73 | 72 20 73 65 74 72 6f 6d |:done js|r setrom|
|00000830| 20 3b 72 6f 6d a0 4f 4e | 0d 20 6c 64 61 20 23 24 | ;rom.ON|. lda #$|
|00000840| 64 20 3b 70 52 49 4e 54 | a0 41 4e a0 45 4d 50 54 |d ;pRINT|.AN.EMPT|
|00000850| 59 a0 4c 49 4e 45 a0 42 | 45 4c 4f 57 a0 44 4f 54 |Y.LINE.B|ELOW.DOT|
|00000860| 53 0d 20 6a 73 72 20 76 | 69 64 6f 75 74 0d 20 6c |S. jsr v|idout. l|
|00000870| 64 61 20 23 30 20 3b 77 | 49 4e 44 4f 57 a0 54 4f |da #0 ;w|INDOW.TO|
|00000880| 50 0d 20 74 61 78 20 3b | 77 49 4e 44 4f 57 a0 4c |P. tax ;|wINDOW.L|
|00000890| 45 46 54 0d 20 63 6c 63 | 20 3b 3d a0 53 45 54 a0 |EFT. clc| ;=.SET.|
|000008a0| 54 4f 50 a0 4c 45 46 54 | 0d 20 6a 6d 70 20 77 69 |TOP.LEFT|. jmp wi|
|000008b0| 6e 64 6f 77 20 3b 73 45 | 54 a0 57 49 4e 44 4f 57 |ndow ;sE|T.WINDOW|
|000008c0| a0 54 4f a0 54 4f 50 a0 | 4f 46 a0 53 43 52 45 45 |.TO.TOP.|OF.SCREE|
|000008d0| 4e 0d 3b a0 41 4e 44 a0 | 45 58 49 54 a0 54 4f a0 |N.;.AND.|EXIT.TO.|
|000008e0| 70 69 2e 6d 61 69 6e 0d | 3b 70 69 a0 49 53 a0 49 |pi.main.|;pi.IS.I|
|000008f0| 4e a0 4d 45 4d 4f 52 59 | a0 28 42 55 54 a0 49 4e |N.MEMORY|.(BUT.IN|
|00000900| a0 48 45 58 29 0d 0d 20 | 6c 73 74 20 6f 66 66 0d |.HEX).. |lst off.|
+--------+-------------------------+-------------------------+--------+--------+