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 ;