64'er

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

/ 64'er / 64ER_CD.iso / 87xx / 8703a.d64 / arith13.src < prev next >

Wrap

Text File | 1995-03-30 | 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 ;