64'er 1987 March

home *** CD-ROM | disk | FTP | other *** search

/ 64'er 1987 March / 64er_Magazin_87-03_1987_Markt__Technik_de_Side_A.d64 / arith13.src < prev next >

Wrap

Text File | 2022-10-26 | 24KB | 1,332 lines

.nosy buff = $c000 pflag = $c010 * = $0801 .byte$0f,$08,$0a,$00 .byte$9e,$20,$32,$30 .byte$36,$35,$20,$20 .byte$20,$00,$00,$00 init lda#<[k1+offset] ;nach $c100 sta$5f lda#>[k1+offset] sta$60 lda#<[ende+offset] sta$5a lda#>[ende+offset] sta$5b lda#<ende sta$58 lda#>ende sta$59 jsr $a3bf anfang lda#$00 ;rom ins ram sta$5f lda#$a0 sta$60 lda#$01 sta$5a sta$58 lda#$c0 sta$5b sta$59 jsr $a3bf lda#$e0 sta$60 lda#$00 sta$5f sta$5a sta$58 sta$5b sta$59 jsr $a3bf lda#$35 sta 1 lda#<aendgn sta$fc lda#>aendgn sta$fd lae1 ldy#0 lda($fc),y sta$fe iny lda($fc),y bne lae2 jmp $e39a ;einschaltmeldung lae2 sta$ff iny lda($fc),y sta$cfe0 tay dey clc lda$fc adc#3 sta$fc bcc lae3 inc$fd lae3 lda($fc),y sta($fe),y dey bpl lae3 clc lda$fc adc$cfe0 sta$fc bcc lae1 inc$fd jmp lae1 aendgn .word$b10c .byte 2 adc#9 .word$b154 .byte 2 adc#9 .word$b182 .byte 3 jsr l1 .word$b197 .byte 2 adc#7 .word$b26b .byte 2 ldx#7 .word$b32a .byte 2 ldx#7 .word$b849 .byte 4 lda#<k1 ldy#>k1 .word$b8b6 .byte 3 jsr l2 .word$b8eb .byte 3 jmp l3 .word$b902 .byte 4 jsr l4 nop .word$b921 .byte 4 jsr l5 nop .word$b942 .byte 3 jmp l6 .word$b96b .byte 3 jmp l27 .word$b96f .byte 3 jmp l7 .word$b985 .byte 4 jsr l9 nop .word$b9b2 .byte 4 jsr l10 nop .word$ba3d .byte 5 jsr l11 nop nop .word$ba65 .byte 4 jsr l12 nop .word$ba83 .byte 4 jsr l13 nop .word$ba90 .byte 4 jsr l14 nop .word$bb01 .byte 4 lda#<k2 ldy#>k2 .word$bb3b .byte 4 jsr l15 nop .word$bb25 .byte 2 ldx#$fa .word$bb43 .byte 3 jsr l17 .word$bb87 .byte 3 jmp l18 .word$bb9f .byte 3 jmp l19 .word$bba6 .byte 4 jsr l20 nop .word$bbcc .byte 3 jmp l21 .word$bbdb .byte 4 jsr l22 nop .word$bc00 .byte 3 jmp l23 .word$bc0f .byte 3 jmp l25 .word$bc88 .byte 3 jmp l28 .word$bb4f .byte 4 jsr l30 nop .word$bb5e .byte 4 jsr l31 nop .word$bced .byte 4 jsr l32 nop .word$bcf3 .byte 4 jsr l33 nop .word$a413 .byte 3 jmp l34 .word$a427 .byte 3 jmp l35 .word$ae46 .byte 3 jmp l36 .word$ae76 .byte 3 jmp l37 .word$bf71 .byte 3 jmp l40 .word$be00 .byte 4 lda#<k5 ldy#>k5 .word$be0b .byte 4 lda#<k3 ldy#>k3 .word$be16 .byte 4 lda#<k4 ldy#>k4 .word$ad3b .byte 2 adc#8 .word$ad46 .byte 3 lda$010b,x .word$ad5c .byte 3 sbc$010b,x .word$a755 .byte 2 lda#$0b .word$ad61 .byte 3 lda$0113,x .word$ad66 .byte 13 lda$0114,x sta$3a lda$0116,x sta$7a lda$0115,x .word$a3b2 .byte 2 adc#$16 .word$ad79 .byte 2 adc#$15 .word$a78b .byte 4 lda#<k7 ldy#>k7 .word$bc55 .byte 3 jmp l48 .word$b9fd .byte 43 lda#<krsqr2 ldy#>krsqr2 jsr $b867 lda#<sqr2 ldy#>sqr2 jsr $bb0f lda#<k7 ldy#>k7 jsr $b850 lda#<koeflog ldy#>koeflog jsr $e043 lda#<k8 ldy#>k8 jsr $b867 pla jsr $bd7e lda#<ln2 ldy#>ln2 .word$e079 .byte 1,7 .word$e264 ; cos .byte 4 lda#<k9 ldy#>k9 .word$e26e ; sin .byte 4 lda#<k10 ldy#>k10 .word$e284 .byte 4 lda#<k11 ldy#>k11 .word$e2a0 .byte 4 lda#<k11 ldy#>k11 .word$e2ad .byte 4 lda#<koefsin ldy#>koefsin .word$e04c .byte 3 jsr mul .word$e056 .byte 3 jmp mul .word$e06c .byte 7 jmp l41 nop jsr mul .word$ae9e .byte 4 lda#<pi ldy#>pi .word$b804 .byte 3 jmp l42 .word$be32 .byte 3 jsr l43 .word$bca1 .byte 1,$b0 .word$bccf .byte 1,$b0 .word$bcdf .byte 1,$b0 .word$e029 ;exp .byte 3 jmp exp .word$a03c .byte 2 .byte<[print.-1] .byte>[print.-1] .word$a03e .byte 2 .byte<[print-1] .byte>[print-1] .word$aabc .byte 3 jsr strg .word$b7a4 .byte 3 jmp l46 .word$b1ad .byte 3 jmp l49 .word$e2be .byte 4 ldx#<buff ldy#>buff .word$e2c9 .byte 3 jsr konfac .word$e2d5 .byte 4 lda#<buff ldy#>buff .word$bfed .byte 4 lda#<k15 ldy#>k15 .word$bc55 .byte 3 jmp l50 .word$bce2 .byte 3 jmp l52 .word$e324 .byte 3 jmp atn .word$a9cc .byte 3 jmp l54 .word$b1c5 .byte 4 lda#<k17 ldy#>k17 .word$bf87 .byte 1,$c0 .word$bf95 .byte 1,$c0 .word$bfa9 .byte 1,$c0 .word$e31d .byte 4 lda#<k7 ldy#>k7 .word$e330 .byte 4 lda#<k9 ldy#>k9 .word$e429 .byte 4 lda#<meldung ldy#>meldung .word$aed7 ;not .byte 3 jmp l57 .word$aff0 ;and .byte 3 jmp l58 .word$b279 .byte 6 jsr l59 nop nop nop .word$b333 .byte 6 jsr l60 nop nop nop .word$b1f7 .byte 7 jsr l61 nop nop nop nop .word$ba5b .byte 3 jmp l62 .word$e0c2 .byte 3 jsr konfac .word$e0f6 .byte 3 jmp l21 .word$e092 .byte 2 .word 0 .word$e0cc .byte 4 lda#<k18 ldy#>k18 .word$e2c3 .byte 2 .word$bbd4 .word$ad58 .byte 2 .word rcom+2 .word$b028 .byte 2 .word rcom .word 0 offset = *-$c100 .offs offset * = $c100 k1 .byte$80,0,0,0,0,0,0 ;.5 k2 .byte$84,$20,0,0,0,0,0 ;10 k3 .byte$9e,$6e,$6b,$27,$fc,0,0 ;999999999 k4 .byte$9b,$3e,$bc,$1f,$fc,$cc,$cd ;99999999.9 k5 .byte$9e,$6e,$6b,$28,0,0,0 ;1e9 k8 .byte$80,$80,0,0,0,0,0 sqr2 .byte$81,$35,$04,$f3,$33,$f9,$df ln2 .byte$80,$31,$72,$17,$f7,$d1,$cf krsqr2 .byte$80,$35,$04,$f3,$33,$f9,$df koeflog .byte 5 .byte$7f,$11,$c3,$ac,$85,$23,$13 .byte$7f,$23,$b7,$9e,$cb,$53,$39 .byte$7f,$53,$0d,$a6,$fe,$cc,$12 .byte$80,$13,$bb,$60,$5c,$cb,$27 .byte$80,$76,$38,$4e,$e3,$dd,$14 .byte$82,$38,$aa,$3b,$29,$5b,$f9 koefsin .byte 7 .byte$80,$b1,$31,$32,$33,$a2,$17 .byte$82,$74,$4e,$75,$01,$85,$2d .byte$84,$f1,$83,$11,$e1,$9c,$26 .byte$86,$28,$3c,$19,$24,$e7,$98 .byte$87,$99,$69,$66,$70,$be,$9a .byte$87,$23,$35,$e3,$3b,$a8,$85 .byte$86,$a5,$5d,$e7,$31,$2d,$ea .byte$83,$49,$0f,$da,$a2,$21,$6a k9 .byte$81,$49,$0f,$da,$a2,$21,$6d pi .byte$82,$49,$0f,$da,$a2,$21,$6d k10 .byte$83,$49,$0f,$da,$a2,$21,$6d k11 .byte$7f,0,0,0,0,0,0 strgkon .byte$f6,$e7,$b1,$8d,$60,$00 .byte$00,$e8,$d4,$a5,$10,$00 .byte$ff,$e8,$b7,$89,$18,$00 .byte$00,$02,$54,$0b,$e4,$00 .byte$ff,$ff,$c4,$65,$36,$00 .byte$00,$00,$05,$f5,$e1,$00 .byte$ff,$ff,$ff,$67,$69,$80 .byte$00,$00,$00,$0f,$42,$40 .byte$ff,$ff,$ff,$fe,$79,$60 .byte$00,$00,$00,$00,$27,$10 .byte$ff,$ff,$ff,$ff,$fc,$18 .byte$00,$00,$00,$00,$00,$64 .byte$ff,$ff,$ff,$ff,$ff,$f6 k12 .byte$af,$35,$e6,$20,$f4,$80,0 k13 .byte$af,$35,$e6,$20,$f4,$7f,$ec k14 .byte$ac,$11,$84,$e7,$29,$ff,$f0 k16 .byte$83,$20,0,0,0,0,0 koexpp .byte 2 .byte$7b,$3d,$2e,$42,$ab,$70,$c0 .byte$85,$21,$9d,$d4,$98,$9f,$60 .byte$8b,$3d,$3d,$04,$7f,$73,$4b koexpq .byte 2 .byte$81,0,0,0,0,0,0 .byte$88,$69,$2f,$28,$7a,$e8,$96 .byte$8d,$08,$81,$b1,$7c,$3a,$66 k15 .byte$81,$38,$aa,$3b,$29,$5c,$18 koatnp .byte 5 .byte$7d,$6a,$e5,$71,$c8,$4c,$60 .byte$84,$17,$06,$43,$df,$b1,$65 .byte$87,$5c,$d9,$df,$c7,$68,$fd .byte$89,$50,$5f,$d6,$72,$cf,$fd .byte$8a,$17,$8b,$29,$28,$f2,$22 .byte$89,$14,$08,$33,$c5,$09,$60 koatnq .byte 5 k7 .byte$81,0,0,0,0,0,0 .byte$85,$63,$e7,$1c,$22,$5a,$78 .byte$88,$51,$3e,$9e,$76,$d9,$9d .byte$8a,$14,$1f,$5d,$0b,$2b,$c9 .byte$8a,$30,$37,$31,$c9,$c8,$b2 .byte$89,$14,$08,$33,$c5,$09,$62 k17 .byte$90,$80,0,0,0,0,0 k18 .byte$68,$28,$b1,$46,0,0,0 meldung .byte$93,$0d .byte' **** arith13 von markus' .byte' olbrich **** ' .byte$0d,' 64k ram system ' .byte 0 l1 iny sta($5f),y iny sta($5f),y iny sta($5f),y rts l2 lda$c006,y sbc$c006,x sta$c067 lda$c005,y sbc$c005,x sta$c066 lda$0004,y rts l3 ldx$c066 stx$65 ldx$c067 stx$c066 ldx$70 stx$c067 sty$70 adc#8 cmp#$28 beq l44 jmp $b8db l44 pha lda$62 l51 and#$f8 bne l45 pla jmp $b8f7 l45 pla jmp $b8da l4 lda$c067 adc$c06f sta$c067 lda$c066 adc$c06e sta$c066 lda$65 adc$6d rts l5 rol$c067 rol$c066 rol$65 rol$64 rts l6 ror$65 ror$c066 ror$c067 ror$70 rts l27 lda$c066 eor#$ff sta$c066 lda$c067 eor#$ff sta$c067 inc$70 bne l8 l7 inc$c067 bne l8 inc$c066 bne l8 inc$65 bne l8 jmp$b973 l8 rts l9 ldy$c006,x sty$70 pha lda$c005,x sta$c006,x lda$04,x sta$c005,x pla rts l10 ror$03,x ror$04,x ror$c005,x ror$c006,x rts l11 sta$c02a sta$c02b lda$70 jsr$ba59 lda$c067 jsr$ba59 lda$c066 jsr$ba59 rts l12 lda$c02b adc$c06f sta$c02b lda$c02a adc$c06e sta$c02a lda$29 adc$6d rts l13 ror$29 ror$c02a ror$c02b ror$70 rts l14 ldy#$06 lda($22),y sta$c06f dey lda($22),y sta$c06e dey lda($22),y rts l15 ldy$6d cpy$65 bne l16 ldy$c06e cpy$c066 bne l16 ldy$c06f cpy$c067 l16 rts l17 inx sta$c000,x rts l18 lda$c0fb sta$62 lda$c0fc sta$63 lda$c0fd sta$64 lda$c0fe sta$65 lda$c0ff sta$c066 lda$c000 sta$c067 jmp$b8d7 jmp$bb9f l19 lda$c02a sta$c066 lda$c02b sta$c067 jmp$b8d7 l20 ldy#$06 lda($22),y sta$c067 dey lda($22),y sta$c066 dey lda($22),y rts l21 jsr$bc1b stx$22 ldy#$c0 sty$23 ldy#6 lda$c067 sta($22),y dey lda$c066 sta($22),y dey lda#0 sta$23 lda$65 jmp$bbdf l22 ldy#$06 lda$c067 sta($22),y dey lda$c066 sta($22),y dey lda$65 rts l23 lda$c06e sta$c066 lda$c06f sta$c067 ldx#05 l24 lda$68,x sta$60,x dex bne l24 stx$70 rts l25 lda$c066 sta$c06e lda$c067 sta$c06f ldx#$06 l26 lda$60,x sta$68,x dex bne l26 rts l28 lda($24),y cmp$65 bne l29 iny lda$25 bne l53 lda#$c0 sta$25 l53 lda($24),y cmp$c066 bne l29 iny lda#$7f cmp$70 lda($24),y sbc$c067 jmp$bc90 l29 jmp$bc92 l30 asl$c06f rol$c06e rol$6d rol$6c rts l31 lda$c06f sbc$c067 sta$c06f lda$c06e sbc$c066 sta$c06e lda$6d sbc$65 rts l32 sta$64 sta$65 sta$c066 sta$c067 rts l33 ldy#0 ldx#$0a sty$c066 sty$c067 sty$c061 sty$c062 rts l34 lda$c05c pha lda$c05d pha lda$c061 pha lda$c062 pha ldx#$09 tya jmp$a416 l35 pla tay pla sta$c062 pla sta$c061 pla sta$c05d pla sta$c05c pla jmp$a42a l36 lda$c067 pha lda$c066 pha lda$65 pha jmp$ae49 l37 pla sta$6d pla sta$c06e pla sta$c06f jmp$ae79 l38 lda$c067 clc adc#0 sta$c067 lda$c066 adc#0 sta$c066 lda$65 adc$bf19,y sta$65 lda$64 adc$bf18,y sta$64 lda$63 adc$bf17,y sta$63 lda$62 adc$bf16,y sta$62 jmp$be87 l39 iny iny iny iny iny rts l40 jsr$bc2b beq end bpl ok jmp$b248 ok jsr$bbc7 lda$61 sec sbc#$81 php lsr clc adc#1 plp bcc s1 adc#$7f s1 sta$61 lda#5 sta$67 iter jsr$bbca lda#$5c jsr konarg jsr$bb12 lda#$57 jsr konarg jsr$b86a dec$61 dec$67 bne iter end rts l48 sta$c066 sta$c067 jmp$b8d2 konarg sta$22 ldy#$c0 sty$23 ldy#6 lda($22),y sta$c06f dey lda($22),y sta$c06e dey lda#0 sta$23 lda($22),y jmp $ba94 mul jsr konarg jmp $ba2b l41 sta$71 ldy$72 jsr $ba28 jmp $e073 strg .blck ;beginn strg lda pflag bne le jmp $bddd le ldy#1 lda#$20 bit$66 bpl l1 lda#$2d l1 sta$00ff,y sta$66 sty$71 iny lda#$30 ldx$61 bne l2 jmp$bf04 l2 lda#0 cpx#$80 beq l4 bcs l5 l4 lda#<k12 ;1e14 ldy#>k12 jsr$ba28 lda#$f2 l5 sta$5d l11 lda#<k13 ;99999999999990 ldy#>k13 jsr$bc5b beq l6 bpl l7 l10 lda#<k14 ;9999999999999 ldy#>k14 jsr$bc5b beq l8 bpl l9 l8 jsr$bae2 dec$5d bne l10 l7 jsr$bafe inc$5d bne l11 l9 lda#<k16 ldy#>k16 jsr $b867 l6 jsr$bc9b ldx#1 lda$5d clc adc#$f bmi l12 cmp#$f bcs l13 adc#$ff tax lda#2 l12 sec l13 sbc#2 sta$5e stx$5d txa beq l14 bpl l15 l14 ldy$71 lda#$2e iny sta$00ff,y txa beq l3 lda#$30 iny sta$00ff,y l3 sty$71 l15 ldy#0 ldx#$80 l17 lda$c067 clc adc strgkon+5,y sta$c067 lda$c066 adc strgkon+4,y sta$c066 lda$65 adc strgkon+3,y sta$65 lda$64 adc strgkon+2,y sta$64 lda$63 adc strgkon+1,y sta$63 lda$62 adc strgkon,y sta$62 inx bcs l16 bpl l17 bmi l18 l16 bmi l17 l18 txa bcc l20 eor#$ff adc#$a l20 adc#$2f iny iny iny iny iny iny sty$47 ldy$71 iny tax and#$7f sta$00ff,y dec$5d bne l21 lda#$2e iny sta$00ff,y l21 sty$71 ldy$47 txa eor#$ff and#$80 tax cpy#78 l22 bne l17 jmp$bec4 .bend ;ende von strg l42 lda$c066 ldy$c067 sty$14 sta$15 rts l43 jsr $bc9b pha lda$64 sta$62 lda$65 sta$63 lda$c066 sta$64 lda$c067 sta$65 pla rts exp lda$c066 ldy$c06e sta$c06e sty$c066 lda$c067 ldy$c06f sta$c06f sty$c067 lda$56 sta$70 jsr $b853 jsr $bfb4 lda$61 cmp#$80 bne lex1 lda#<k8 ;-.5 ldy#>k8 jsr $b867 ;plus sec .byte$a6 ;ldx abszero lex1 clc php lda#<koexpp ldy#>koexpp jsr $e043 ldx#<buff ldy#>buff jsr $bbd4 ;fac buff lda#$57 jsr konfac;#3 fac lda#<koexpq ldy#>koexpq sta$71 sty$72 jsr $bc0c ;fac arg lda$61 jsr $ba2b ;mul jsr $e05d ;poly jsr $bbca ;fac #3 lda#<buff ldy#>buff jsr $b867 ;buff+fac jsr $bbc7 ;fac #4 lda#$57 jsr konarg;#3 arg lda#<buff ldy#>buff jsr $bba2 ;buff fac jsr $b853 ;arg-fac lda#$5c jsr konarg;#4 arg jsr $bb12 ;arg/fac plp bcc lex2 lda#<sqr2 ldy#>sqr2 jsr $ba28 ;mul lex2 jmp $e03a ex.test pha ;prueft auf & cmp#$26 ;"&" bne lp1 lda#$ff sta pflag pla jmp $0073 lp1 lda#0 sta pflag pla rts print. jsr ex.test jmp $aa80 ;print# print jsr ex.test jmp $aa9d ;print l46 ldx$c066 bne l47 ldx$c067 stx$65 jmp $0079 l47 jmp $b248 l49 lda$c066 ldy$c067 rts konfac sta$22 ldy#$c0 sty$23 ldy#6 lda($22),y sta$c067 dey lda($22),y sta$c066 dey lda#0 sta$23 lda($22),y jmp $bbaa l50 sta$c066 sta$c067 jmp $b8d2 ;linksb. l52 lda$c067 sta$07 lda#$ff sta l51+1 jsr $b8d2 lda#$f8 sta l51+1 rts atn lda#<koatnp ldy#>koatnp jsr $e043 ldx#<buff ldy#>buff jsr $bbd4 ;fac buff lda#$5c jsr konfac lda#<koatnq ldy#>koatnq jsr $e059 lda#<buff ldy#>buff jsr $bb0f ;/ jmp $e32b l54 lda$c066 sta($49),y iny lda$c067 sta($49),y rts l57 lda$c067 ;not eor#$ff tay lda$c066 eor#$ff jmp $b391 l58 lda$c066 ;and eor$0b sta$07 lda$c067 eor$0b sta$08 jsr $bbfc jsr $b1bf lda$c067 eor$0b and$08 eor$0b tay lda$c066 eor$0b and$07 eor$0b jmp $b391 l59 bpl l59l dex dex dex dex l59l stx$71 rts l60 bpl l60l dex dex dex dex l60l stx$28 rts l61 lda$c066 sta$0102,x lda$c067 rts l62 pha ;rechtsverschieben ldx#$25 ;eines registers lda$c006,x sta$70 lda$c005,x sta$c006,x lda$04,x sta$c005,x lda$03,x sta$04,x lda$02,x sta$03,x lda$01,x sta$02,x lda$68 sta$01,x pla clc rts rcom .blck ;gerundeter vergleich sta$24 sty$25 ldy#0 lda($24),y iny tax bne l1 jmp $bc2b ;null -> vorz. fac l1 lda($24),y eor$66 bpl l2 jmp $bc2f ;versch. vorzeichen l2 cpx$61 beq l3 jmp $bc92 l3 ldy#6 ldx$25 bne l4 lda#$c0 sta$25 sec lda($24),y sbc$c067 sta buff+6 dey lda($24),y sbc$c066 sta buff+5 stx$25 jmp l5 l4 sec lda($24),y sbc$c067 sta buff+6 dey lda($24),y sbc$c066 sta buff+5 l5 dey lda($24),y sbc$65 sta buff+4 dey lda($24),y sbc$64 sta buff+3 dey lda($24),y sbc$63 sta buff+2 dey lda($24),y ora#$80 sbc$62 sta buff+1 php lda buff+6 adc#$10 bcc l6 inc buff+5 bne l6 inc buff+4 bne l6 inc buff+3 bne l6 inc buff+2 bne l6 inc buff+1 bne l6 plp l9 lda#0 ;gleich rts l6 plp bcc l7 ;unterlauf, fac<kon and#$e0 bne l8 lda buff+5 bne l8 lda buff+4 bne l8 lda buff+3 bne l8 lda buff+2 bne l8 lda buff+1 beq l9 ;gleich l8 lda$66 jmp $bc96 l7 lda$66 jmp $bc31 .bend ende ;