Cleanup BASIC sources
This commit is contained in:
Kilian committed
1 parent
385de7a111
commit
25236f542d
36 files changed
+319
-2909
No files matched your search
-319
@@ -31,7 +31,6 @@ FSUBT:
|
||||
; ----------------------------------------------------------------------------
|
||||
; Commodore BASIC V2 Easter Egg
|
||||
; ----------------------------------------------------------------------------
|
||||
.ifdef CONFIG_EASTER_EGG
|
||||
EASTER_EGG:
|
||||
lda LINNUM
|
||||
cmp #<6502
|
||||
@@ -58,7 +57,6 @@ LD766:
|
||||
dec FORPNT
|
||||
bne LD758
|
||||
rts
|
||||
.endif
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
; SHIFT SMALLER ARGUMENT MORE THAN 7 BITS
|
||||
@@ -86,11 +84,7 @@ L365B:
|
||||
lda ARG
|
||||
FADD2:
|
||||
tay
|
||||
.ifdef KBD
|
||||
beq RTS4
|
||||
.else
|
||||
beq RTS3
|
||||
.endif
|
||||
sec
|
||||
sbc FAC
|
||||
beq FADD3
|
||||
@@ -126,11 +120,9 @@ L369B:
|
||||
eor #$FF
|
||||
adc ARGEXTENSION
|
||||
sta FACEXTENSION
|
||||
.ifndef CONFIG_SMALL
|
||||
lda 4,y
|
||||
sbc 4,x
|
||||
sta FAC+4
|
||||
.endif
|
||||
lda 3,y
|
||||
sbc 3,x
|
||||
sta FAC+3
|
||||
@@ -158,24 +150,13 @@ L36C7:
|
||||
stx FAC+1
|
||||
ldx FAC+3
|
||||
stx FAC+2
|
||||
.ifdef CONFIG_SMALL
|
||||
ldx FACEXTENSION
|
||||
stx FAC+3
|
||||
.else
|
||||
ldx FAC+4
|
||||
stx FAC+3
|
||||
ldx FACEXTENSION
|
||||
stx FAC+4
|
||||
.endif
|
||||
sty FACEXTENSION
|
||||
adc #$08
|
||||
.ifdef CONFIG_2B
|
||||
; bugfix?
|
||||
; fix does not exist on AppleSoft 2
|
||||
cmp #(MANTISSA_BYTES+1)*8
|
||||
.else
|
||||
cmp #MANTISSA_BYTES*8
|
||||
.endif
|
||||
bne L36C7
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
@@ -196,11 +177,9 @@ STA_IN_FAC_SIGN:
|
||||
FADD4:
|
||||
adc ARGEXTENSION
|
||||
sta FACEXTENSION
|
||||
.ifndef CONFIG_SMALL
|
||||
lda FAC+4
|
||||
adc ARG+4
|
||||
sta FAC+4
|
||||
.endif
|
||||
lda FAC+3
|
||||
adc ARG+3
|
||||
sta FAC+3
|
||||
@@ -218,9 +197,7 @@ FADD4:
|
||||
NORMALIZE_FAC3:
|
||||
adc #$01
|
||||
asl FACEXTENSION
|
||||
.ifndef CONFIG_SMALL
|
||||
rol FAC+4
|
||||
.endif
|
||||
rol FAC+3
|
||||
rol FAC+2
|
||||
rol FAC+1
|
||||
@@ -237,51 +214,11 @@ NORMALIZE_FAC5:
|
||||
NORMALIZE_FAC6:
|
||||
inc FAC
|
||||
beq OVERFLOW
|
||||
.ifndef CONFIG_ROR_WORKAROUND
|
||||
ror FAC+1
|
||||
ror FAC+2
|
||||
ror FAC+3
|
||||
.ifndef CONFIG_SMALL
|
||||
ror FAC+4
|
||||
.endif
|
||||
ror FACEXTENSION
|
||||
.else
|
||||
lda #$00
|
||||
bcc L372E
|
||||
lda #$80
|
||||
L372E:
|
||||
lsr FAC+1
|
||||
ora FAC+1
|
||||
sta FAC+1
|
||||
lda #$00
|
||||
bcc L373A
|
||||
lda #$80
|
||||
L373A:
|
||||
lsr FAC+2
|
||||
ora FAC+2
|
||||
sta FAC+2
|
||||
lda #$00
|
||||
bcc L3746
|
||||
lda #$80
|
||||
L3746:
|
||||
lsr FAC+3
|
||||
ora FAC+3
|
||||
sta FAC+3
|
||||
lda #$00
|
||||
bcc L3752
|
||||
lda #$80
|
||||
L3752:
|
||||
lsr FAC+4
|
||||
ora FAC+4
|
||||
sta FAC+4
|
||||
lda #$00
|
||||
bcc L375E
|
||||
lda #$80
|
||||
L375E:
|
||||
lsr FACEXTENSION
|
||||
ora FACEXTENSION
|
||||
sta FACEXTENSION
|
||||
.endif
|
||||
L3764:
|
||||
rts
|
||||
|
||||
@@ -306,11 +243,9 @@ COMPLEMENT_FAC_MANTISSA:
|
||||
lda FAC+3
|
||||
eor #$FF
|
||||
sta FAC+3
|
||||
.ifndef CONFIG_SMALL
|
||||
lda FAC+4
|
||||
eor #$FF
|
||||
sta FAC+4
|
||||
.endif
|
||||
lda FACEXTENSION
|
||||
eor #$FF
|
||||
sta FACEXTENSION
|
||||
@@ -321,10 +256,8 @@ COMPLEMENT_FAC_MANTISSA:
|
||||
; INCREMENT FAC MANTISSA
|
||||
; ----------------------------------------------------------------------------
|
||||
INCREMENT_FAC_MANTISSA:
|
||||
.ifndef CONFIG_SMALL
|
||||
inc FAC+4
|
||||
bne RTS12
|
||||
.endif
|
||||
inc FAC+3
|
||||
bne RTS12
|
||||
inc FAC+2
|
||||
@@ -346,16 +279,10 @@ OVERFLOW:
|
||||
SHIFT_RIGHT1:
|
||||
ldx #RESULT-1
|
||||
SHIFT_RIGHT2:
|
||||
.ifdef CONFIG_SMALL
|
||||
ldy 3,x
|
||||
.else
|
||||
ldy 4,x
|
||||
.endif
|
||||
sty FACEXTENSION
|
||||
.ifndef CONFIG_SMALL
|
||||
ldy 3,x
|
||||
sty 4,x
|
||||
.endif
|
||||
ldy 2,x
|
||||
sty 3,x
|
||||
ldy 1,x
|
||||
@@ -374,7 +301,6 @@ SHIFT_RIGHT:
|
||||
tay
|
||||
lda FACEXTENSION
|
||||
bcs SHIFT_RIGHT5
|
||||
.ifndef CONFIG_ROR_WORKAROUND
|
||||
LB588:
|
||||
asl 1,x
|
||||
bcc LB58E
|
||||
@@ -389,76 +315,15 @@ LB58E:
|
||||
SHIFT_RIGHT4:
|
||||
ror 2,x
|
||||
ror 3,x
|
||||
.ifndef CONFIG_SMALL
|
||||
ror 4,x
|
||||
.endif
|
||||
ror a
|
||||
iny
|
||||
bne LB588
|
||||
.else
|
||||
L37C4:
|
||||
pha
|
||||
lda 1,x
|
||||
and #$80
|
||||
lsr 1,x
|
||||
ora 1,x
|
||||
sta 1,x
|
||||
.byte $24
|
||||
SHIFT_RIGHT4:
|
||||
pha
|
||||
lda #$00
|
||||
bcc L37D7
|
||||
lda #$80
|
||||
L37D7:
|
||||
lsr 2,x
|
||||
ora 2,x
|
||||
sta 2,x
|
||||
lda #$00
|
||||
bcc L37E3
|
||||
lda #$80
|
||||
L37E3:
|
||||
lsr 3,x
|
||||
ora 3,x
|
||||
sta 3,x
|
||||
lda #$00
|
||||
bcc L37EF
|
||||
lda #$80
|
||||
L37EF:
|
||||
lsr 4,x
|
||||
ora 4,x
|
||||
sta 4,x
|
||||
pla
|
||||
php
|
||||
lsr a
|
||||
plp
|
||||
bcc L37FD
|
||||
ora #$80
|
||||
L37FD:
|
||||
iny
|
||||
bne L37C4
|
||||
.endif
|
||||
SHIFT_RIGHT5:
|
||||
clc
|
||||
rts
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
.ifdef CONFIG_SMALL
|
||||
CON_ONE:
|
||||
.byte $81,$00,$00,$00
|
||||
POLY_LOG:
|
||||
.byte $02
|
||||
.byte $80,$19,$56,$62
|
||||
.byte $80,$76,$22,$F3
|
||||
.byte $82,$38,$AA,$40
|
||||
CON_SQR_HALF:
|
||||
.byte $80,$35,$04,$F3
|
||||
CON_SQR_TWO:
|
||||
.byte $81,$35,$04,$F3
|
||||
CON_NEG_HALF:
|
||||
.byte $80,$80,$00,$00
|
||||
CON_LOG_TWO:
|
||||
.byte $80,$31,$72,$18
|
||||
.else
|
||||
CON_ONE:
|
||||
.byte $81,$00,$00,$00,$00
|
||||
POLY_LOG:
|
||||
@@ -475,7 +340,6 @@ CON_NEG_HALF:
|
||||
.byte $80,$80,$00,$00,$00
|
||||
CON_LOG_TWO:
|
||||
.byte $80,$31,$72,$17,$F8
|
||||
.endif
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
; "LOG" FUNCTION
|
||||
@@ -522,25 +386,17 @@ FMULT:
|
||||
; FAC = ARG * FAC
|
||||
; ----------------------------------------------------------------------------
|
||||
FMULTT:
|
||||
.ifndef CONFIG_11
|
||||
beq L3903
|
||||
.else
|
||||
jeq L3903
|
||||
.endif
|
||||
jsr ADD_EXPONENTS
|
||||
lda #$00
|
||||
sta RESULT
|
||||
sta RESULT+1
|
||||
sta RESULT+2
|
||||
.ifndef CONFIG_SMALL
|
||||
sta RESULT+3
|
||||
.endif
|
||||
lda FACEXTENSION
|
||||
jsr MULTIPLY1
|
||||
.ifndef CONFIG_SMALL
|
||||
lda FAC+4
|
||||
jsr MULTIPLY1
|
||||
.endif
|
||||
lda FAC+3
|
||||
jsr MULTIPLY1
|
||||
lda FAC+2
|
||||
@@ -562,11 +418,9 @@ L38A7:
|
||||
tay
|
||||
bcc L38C3
|
||||
clc
|
||||
.ifndef CONFIG_SMALL
|
||||
lda RESULT+3
|
||||
adc ARG+4
|
||||
sta RESULT+3
|
||||
.endif
|
||||
lda RESULT+2
|
||||
adc ARG+3
|
||||
sta RESULT+2
|
||||
@@ -577,56 +431,11 @@ L38A7:
|
||||
adc ARG+1
|
||||
sta RESULT
|
||||
L38C3:
|
||||
.ifndef CONFIG_ROR_WORKAROUND
|
||||
ror RESULT
|
||||
ror RESULT+1
|
||||
.ifdef APPLE_BAD_BYTE
|
||||
; this seems to be a bad byte in the dump
|
||||
.byte RESULT+2,RESULT+2 ; XXX BUG!
|
||||
.else
|
||||
ror RESULT+2
|
||||
.endif
|
||||
.ifndef CONFIG_SMALL
|
||||
ror RESULT+3
|
||||
.endif
|
||||
ror FACEXTENSION
|
||||
.else
|
||||
lda #$00
|
||||
bcc L38C9
|
||||
lda #$80
|
||||
L38C9:
|
||||
lsr RESULT
|
||||
ora RESULT
|
||||
sta RESULT
|
||||
lda #$00
|
||||
bcc L38D5
|
||||
lda #$80
|
||||
L38D5:
|
||||
lsr RESULT+1
|
||||
ora RESULT+1
|
||||
sta RESULT+1
|
||||
lda #$00
|
||||
bcc L38E1
|
||||
lda #$80
|
||||
L38E1:
|
||||
lsr RESULT+2
|
||||
ora RESULT+2
|
||||
sta RESULT+2
|
||||
lda #$00
|
||||
bcc L38ED
|
||||
lda #$80
|
||||
L38ED:
|
||||
lsr RESULT+3
|
||||
ora RESULT+3
|
||||
sta RESULT+3
|
||||
lda #$00
|
||||
bcc L38F9
|
||||
lda #$80
|
||||
L38F9:
|
||||
lsr FACEXTENSION
|
||||
ora FACEXTENSION
|
||||
sta FACEXTENSION
|
||||
.endif
|
||||
tya
|
||||
lsr a
|
||||
bne L38A7
|
||||
@@ -640,11 +449,9 @@ LOAD_ARG_FROM_YA:
|
||||
sta INDEX
|
||||
sty INDEX+1
|
||||
ldy #BYTES_FP-1
|
||||
.ifndef CONFIG_SMALL
|
||||
lda (INDEX),y
|
||||
sta ARG+4
|
||||
dey
|
||||
.endif
|
||||
lda (INDEX),y
|
||||
sta ARG+3
|
||||
dey
|
||||
@@ -732,11 +539,7 @@ L3970:
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
CONTEN:
|
||||
.ifdef CONFIG_SMALL
|
||||
.byte $84,$20,$00,$00
|
||||
.else
|
||||
.byte $84,$20,$00,$00,$00
|
||||
.endif
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
; DIVIDE FAC BY 10
|
||||
@@ -785,11 +588,9 @@ L39A1:
|
||||
bne L39B7
|
||||
ldy ARG+3
|
||||
cpy FAC+3
|
||||
.ifndef CONFIG_SMALL
|
||||
bne L39B7
|
||||
ldy ARG+4
|
||||
cpy FAC+4
|
||||
.endif
|
||||
L39B7:
|
||||
php
|
||||
rol a
|
||||
@@ -804,9 +605,7 @@ L39C4:
|
||||
bcs L39D5
|
||||
L39C7:
|
||||
asl ARG_LAST
|
||||
.ifndef CONFIG_SMALL
|
||||
rol ARG+3
|
||||
.endif
|
||||
rol ARG+2
|
||||
rol ARG+1
|
||||
bcs L39B7
|
||||
@@ -814,11 +613,9 @@ L39C7:
|
||||
bpl L39B7
|
||||
L39D5:
|
||||
tay
|
||||
.ifndef CONFIG_SMALL
|
||||
lda ARG+4
|
||||
sbc FAC+4
|
||||
sta ARG+4
|
||||
.endif
|
||||
lda ARG+3
|
||||
sbc FAC+3
|
||||
sta ARG+3
|
||||
@@ -857,10 +654,8 @@ COPY_RESULT_INTO_FAC:
|
||||
sta FAC+2
|
||||
lda RESULT+2
|
||||
sta FAC+3
|
||||
.ifndef CONFIG_SMALL
|
||||
lda RESULT+3
|
||||
sta FAC+4
|
||||
.endif
|
||||
jmp NORMALIZE_FAC2
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
@@ -870,11 +665,9 @@ LOAD_FAC_FROM_YA:
|
||||
sta INDEX
|
||||
sty INDEX+1
|
||||
ldy #MANTISSA_BYTES
|
||||
.ifndef CONFIG_SMALL
|
||||
lda (INDEX),y
|
||||
sta FAC+4
|
||||
dey
|
||||
.endif
|
||||
lda (INDEX),y
|
||||
sta FAC+3
|
||||
dey
|
||||
@@ -921,11 +714,9 @@ STORE_FAC_AT_YX_ROUNDED:
|
||||
stx INDEX
|
||||
sty INDEX+1
|
||||
ldy #MANTISSA_BYTES
|
||||
.ifndef CONFIG_SMALL
|
||||
lda FAC+4
|
||||
sta (INDEX),y
|
||||
dey
|
||||
.endif
|
||||
lda FAC+3
|
||||
sta (INDEX),y
|
||||
dey
|
||||
@@ -1043,9 +834,7 @@ FLOAT1:
|
||||
; ----------------------------------------------------------------------------
|
||||
FLOAT2:
|
||||
lda #$00
|
||||
.ifndef CONFIG_SMALL
|
||||
sta FAC+4
|
||||
.endif
|
||||
sta FAC+3
|
||||
LDB21:
|
||||
stx FAC
|
||||
@@ -1092,12 +881,10 @@ FCOMP2:
|
||||
cmp FAC+2
|
||||
bne L3B0A
|
||||
iny
|
||||
.ifndef CONFIG_SMALL
|
||||
lda (DEST),y
|
||||
cmp FAC+3
|
||||
bne L3B0A
|
||||
iny
|
||||
.endif
|
||||
lda #$7F
|
||||
cmp FACEXTENSION
|
||||
lda (DEST),y
|
||||
@@ -1175,9 +962,7 @@ QINT3:
|
||||
sta FAC+1
|
||||
sta FAC+2
|
||||
sta FAC+3
|
||||
.ifndef CONFIG_SMALL
|
||||
sta FAC+4
|
||||
.endif
|
||||
tay
|
||||
RTS17:
|
||||
rts
|
||||
@@ -1197,12 +982,6 @@ L3B6F:
|
||||
dex
|
||||
bpl L3B6F
|
||||
bcc FIN2
|
||||
.ifdef SYM1
|
||||
cmp #$26
|
||||
bne LDABB
|
||||
jmp LCDFE
|
||||
LDABB:
|
||||
.endif
|
||||
cmp #$2D
|
||||
bne L3B7E
|
||||
stx SERLEN
|
||||
@@ -1231,17 +1010,7 @@ FIN3:
|
||||
beq FIN4
|
||||
bne FIN6
|
||||
L3BA6:
|
||||
.ifndef CONFIG_ROR_WORKAROUND
|
||||
ror EXPSGN
|
||||
.else
|
||||
lda #$00
|
||||
bcc L3BAC
|
||||
lda #$80
|
||||
L3BAC:
|
||||
lsr EXPSGN
|
||||
ora EXPSGN
|
||||
sta EXPSGN
|
||||
.endif
|
||||
FIN4:
|
||||
jsr CHRGET
|
||||
FIN5:
|
||||
@@ -1258,17 +1027,7 @@ FIN6:
|
||||
; FOUND A DECIMAL POINT
|
||||
; ----------------------------------------------------------------------------
|
||||
FIN10:
|
||||
.ifndef CONFIG_ROR_WORKAROUND
|
||||
ror LOWTR
|
||||
.else
|
||||
lda #$00
|
||||
bcc L3BC9
|
||||
lda #$80
|
||||
L3BC9:
|
||||
lsr LOWTR
|
||||
ora LOWTR
|
||||
sta LOWTR
|
||||
.endif
|
||||
bit LOWTR
|
||||
bvc FIN1
|
||||
|
||||
@@ -1336,20 +1095,11 @@ GETEXP:
|
||||
lda EXPON
|
||||
cmp #MAX_EXPON
|
||||
bcc L3C2C
|
||||
.ifdef CONFIG_10A
|
||||
lda #$64
|
||||
.endif
|
||||
bit EXPSGN
|
||||
.ifdef CONFIG_10A
|
||||
bmi L3C3A
|
||||
.else
|
||||
bmi LDC70
|
||||
.endif
|
||||
jmp OVERFLOW
|
||||
LDC70:
|
||||
.ifndef CONFIG_10A
|
||||
lda #$0B
|
||||
.endif
|
||||
L3C2C:
|
||||
asl a
|
||||
asl a
|
||||
@@ -1366,40 +1116,20 @@ L3C3A:
|
||||
jmp FIN4
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
.ifdef CONFIG_SMALL
|
||||
; these values are /1000 of what the labels say
|
||||
CON_99999999_9:
|
||||
.byte $91,$43,$4F,$F8
|
||||
CON_999999999:
|
||||
.byte $94,$74,$23,$F7
|
||||
CON_BILLION:
|
||||
.byte $94,$74,$24,$00
|
||||
.else
|
||||
CON_99999999_9:
|
||||
.byte $9B,$3E,$BC,$1F,$FD
|
||||
CON_999999999:
|
||||
.ifndef CONFIG_10A
|
||||
.byte $9E,$6E,$6B,$27,$FE
|
||||
.else
|
||||
.byte $9E,$6E,$6B,$27,$FD
|
||||
.endif
|
||||
CON_BILLION:
|
||||
.byte $9E,$6E,$6B,$28,$00
|
||||
.endif
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
; PRINT "IN <LINE #>"
|
||||
; ----------------------------------------------------------------------------
|
||||
INPRT:
|
||||
.ifdef KBD
|
||||
jsr LFE0B
|
||||
.byte " in"
|
||||
.byte 0
|
||||
.else
|
||||
lda #<QT_IN
|
||||
ldy #>QT_IN
|
||||
jsr GOSTROUT2
|
||||
.endif
|
||||
lda CURLIN+1
|
||||
ldx CURLIN
|
||||
|
||||
@@ -1451,11 +1181,7 @@ L3C8C:
|
||||
lda #<CON_BILLION
|
||||
ldy #>CON_BILLION
|
||||
jsr FMULT
|
||||
.ifdef CONFIG_SMALL
|
||||
lda #<-6 ; exponent adjustment
|
||||
.else
|
||||
lda #<-9
|
||||
.endif
|
||||
L3C95:
|
||||
sta INDX
|
||||
; ----------------------------------------------------------------------------
|
||||
@@ -1533,11 +1259,9 @@ LDD3A:
|
||||
L3CF6:
|
||||
lda FAC_LAST
|
||||
clc
|
||||
.ifndef CONFIG_SMALL
|
||||
adc DECTBL+3,y
|
||||
sta FAC+4
|
||||
lda FAC+3
|
||||
.endif
|
||||
adc DECTBL+2,y
|
||||
sta FAC+3
|
||||
lda FAC+2
|
||||
@@ -1562,9 +1286,7 @@ L3D23:
|
||||
iny
|
||||
iny
|
||||
iny
|
||||
.ifndef CONFIG_SMALL
|
||||
iny
|
||||
.endif
|
||||
sty VARPNT
|
||||
ldy STRNG2
|
||||
iny
|
||||
@@ -1584,10 +1306,6 @@ L3D3E:
|
||||
and #$80
|
||||
tax
|
||||
cpy #DECTBL_END-DECTBL
|
||||
.ifdef CONFIG_CBM_ALL
|
||||
beq LDD96
|
||||
cpy #$3C ; XXX
|
||||
.endif
|
||||
bne L3CF6
|
||||
; ----------------------------------------------------------------------------
|
||||
; NINE DIGITS HAVE BEEN STORED IN STRING. NOW LOOK
|
||||
@@ -1644,25 +1362,13 @@ L3D94:
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
CON_HALF:
|
||||
.ifdef CONFIG_SMALL
|
||||
.byte $80,$00,$00,$00
|
||||
.else
|
||||
.byte $80,$00,$00,$00,$00
|
||||
.endif
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
; POWERS OF 10 FROM 1E8 DOWN TO 1,
|
||||
; AS 32-BIT INTEGERS, WITH ALTERNATING SIGNS
|
||||
; ----------------------------------------------------------------------------
|
||||
DECTBL:
|
||||
.ifdef CONFIG_SMALL
|
||||
.byte $FE,$79,$60 ; -100000
|
||||
.byte $00,$27,$10 ; 10000
|
||||
.byte $FF,$FC,$18 ; -1000
|
||||
.byte $00,$00,$64 ; 100
|
||||
.byte $FF,$FF,$F6 ; -10
|
||||
.byte $00,$00,$01 ; 1
|
||||
.else
|
||||
.byte $FA,$0A,$1F,$00 ; -100000000
|
||||
.byte $00,$98,$96,$80 ; 10000000
|
||||
.byte $FF,$F0,$BD,$C0 ; -1000000
|
||||
@@ -1672,19 +1378,8 @@ DECTBL:
|
||||
.byte $FF,$FF,$FF,$9C ; -100
|
||||
.byte $00,$00,$00,$0A ; 10
|
||||
.byte $FF,$FF,$FF,$FF ; -1
|
||||
.endif
|
||||
DECTBL_END:
|
||||
.ifdef CONFIG_CBM_ALL
|
||||
.byte $FF,$DF,$0A,$80 ; TI$
|
||||
.byte $00,$03,$4B,$C0
|
||||
.byte $FF,$FF,$73,$60
|
||||
.byte $00,$00,$0E,$10
|
||||
.byte $FF,$FF,$FD,$A8
|
||||
.byte $00,$00,$00,$3C
|
||||
.endif
|
||||
.ifdef CONFIG_2
|
||||
C_ZERO = CON_HALF + 2
|
||||
.endif
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
; "SQR" FUNCTION
|
||||
@@ -1744,19 +1439,6 @@ L3E0F:
|
||||
rts
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
.ifdef CONFIG_SMALL
|
||||
CON_LOG_E:
|
||||
.byte $81,$38,$AA,$3B
|
||||
POLY_EXP:
|
||||
.byte $06
|
||||
.byte $74,$63,$90,$8C
|
||||
.byte $77,$23,$0C,$AB
|
||||
.byte $7A,$1E,$94,$00
|
||||
.byte $7C,$63,$42,$80
|
||||
.byte $7E,$75,$FE,$D0
|
||||
.byte $80,$31,$72,$15
|
||||
.byte $81,$00,$00,$00
|
||||
.else
|
||||
CON_LOG_E:
|
||||
.byte $81,$38,$AA,$3B,$29
|
||||
POLY_EXP:
|
||||
@@ -1769,7 +1451,6 @@ POLY_EXP:
|
||||
.byte $7E,$75,$FD,$E7,$C6
|
||||
.byte $80,$31,$72,$18,$10
|
||||
.byte $81,$00,$00,$00,$00
|
||||
.endif
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
; "EXP" FUNCTION
|
||||
|
||||
Reference in new issue
Block a user