mirror of
https://github.com/cc65/cc65.git
synced 2024-10-12 00:23:53 +00:00
Removed the switch routines
git-svn-id: svn://svn.cc65.org/cc65/trunk@1020 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
4fb253cef0
commit
5e7e3d4b81
@ -117,7 +117,6 @@ OBJS = add.o \
|
|||||||
lsubeq.o \
|
lsubeq.o \
|
||||||
lsubeqsp.o \
|
lsubeqsp.o \
|
||||||
lswap.o \
|
lswap.o \
|
||||||
lswitch.o \
|
|
||||||
lt.o \
|
lt.o \
|
||||||
ltest.o \
|
ltest.o \
|
||||||
ludiv.o \
|
ludiv.o \
|
||||||
@ -181,7 +180,6 @@ OBJS = add.o \
|
|||||||
subeqsp.o \
|
subeqsp.o \
|
||||||
subysp.o \
|
subysp.o \
|
||||||
swap.o \
|
swap.o \
|
||||||
switch.o \
|
|
||||||
test.o \
|
test.o \
|
||||||
tosint.o \
|
tosint.o \
|
||||||
toslong.o \
|
toslong.o \
|
||||||
|
@ -1,87 +0,0 @@
|
|||||||
;
|
|
||||||
; Ullrich von Bassewitz, 17.08.1998
|
|
||||||
;
|
|
||||||
; CC65 runtime: switch statement with long selector
|
|
||||||
;
|
|
||||||
|
|
||||||
; Subroutine to handle a switch statement with an long selector. The table
|
|
||||||
; is located at the return address from the function. It contains the negative
|
|
||||||
; of the case label count as first word, followed by three words for each case
|
|
||||||
; label, the first two being the value, and the last one the label to jump
|
|
||||||
; to in case of a match. The default case is located at the end of the table.
|
|
||||||
|
|
||||||
.export lswitch
|
|
||||||
.importzp sreg, ptr1, ptr2, ptr3
|
|
||||||
|
|
||||||
lswitch:
|
|
||||||
sta ptr1
|
|
||||||
stx ptr1+1 ; Save AX
|
|
||||||
clc
|
|
||||||
pla
|
|
||||||
adc #1
|
|
||||||
sta ptr2
|
|
||||||
pla
|
|
||||||
adc #0
|
|
||||||
sta ptr2+1 ; Get pointer to table
|
|
||||||
|
|
||||||
ldy #0
|
|
||||||
lda (ptr2),y
|
|
||||||
sta ptr3
|
|
||||||
iny
|
|
||||||
lda (ptr2),y
|
|
||||||
sta ptr3+1 ; Remember the count of labels
|
|
||||||
|
|
||||||
clc ; Skip the label count
|
|
||||||
lda ptr2
|
|
||||||
adc #2
|
|
||||||
sta ptr2
|
|
||||||
bcc L2
|
|
||||||
inc ptr2+1
|
|
||||||
bne L2 ; Branch always
|
|
||||||
|
|
||||||
; Search for the label
|
|
||||||
|
|
||||||
L0: ldy #0
|
|
||||||
lda (ptr2),y
|
|
||||||
cmp ptr1
|
|
||||||
bne L1
|
|
||||||
iny
|
|
||||||
lda (ptr2),y
|
|
||||||
cmp ptr1+1
|
|
||||||
bne L1
|
|
||||||
iny
|
|
||||||
lda (ptr2),y
|
|
||||||
cmp sreg
|
|
||||||
bne L1
|
|
||||||
iny
|
|
||||||
lda (ptr2),y
|
|
||||||
cmp sreg+1
|
|
||||||
beq L3
|
|
||||||
L1: clc
|
|
||||||
lda ptr2
|
|
||||||
adc #6 ; Skip table entry
|
|
||||||
sta ptr2
|
|
||||||
bcc L2
|
|
||||||
inc ptr2+1
|
|
||||||
|
|
||||||
; Check if there are any labels left
|
|
||||||
|
|
||||||
L2: inc ptr3
|
|
||||||
bne L0
|
|
||||||
inc ptr3+1
|
|
||||||
bne L0
|
|
||||||
|
|
||||||
; Out of labels
|
|
||||||
|
|
||||||
jmp (ptr2)
|
|
||||||
|
|
||||||
; Label found
|
|
||||||
|
|
||||||
L3: ldy #4 ; Jump label offset
|
|
||||||
lda (ptr2),y
|
|
||||||
sta ptr3
|
|
||||||
iny
|
|
||||||
lda (ptr2),y
|
|
||||||
sta ptr3+1
|
|
||||||
jmp (ptr3)
|
|
||||||
|
|
@ -1,88 +0,0 @@
|
|||||||
;
|
|
||||||
; Ullrich von Bassewitz, 17.08.1998
|
|
||||||
;
|
|
||||||
; CC65 runtime: switch statement with int selector
|
|
||||||
;
|
|
||||||
|
|
||||||
; Subroutine to handle a switch statement with an int selector. The table
|
|
||||||
; is located at the return address from the function. It contains the negative
|
|
||||||
; of the case label count as first word, followed by two words for each case
|
|
||||||
; label, the first one being the value, and the second one the label to jump
|
|
||||||
; to in case of a match. The default case is located at the end of the table.
|
|
||||||
|
|
||||||
.export switch
|
|
||||||
.importzp ptr1, ptr2, ptr3
|
|
||||||
|
|
||||||
switch: sta ptr1
|
|
||||||
stx ptr1+1 ; Save AX
|
|
||||||
clc
|
|
||||||
pla
|
|
||||||
adc #1
|
|
||||||
sta ptr2
|
|
||||||
pla
|
|
||||||
adc #0
|
|
||||||
sta ptr2+1 ; Get pointer to table
|
|
||||||
|
|
||||||
ldy #0
|
|
||||||
lda (ptr2),y
|
|
||||||
sta ptr3
|
|
||||||
iny
|
|
||||||
lda (ptr2),y
|
|
||||||
sta ptr3+1 ; Remember the count of labels
|
|
||||||
|
|
||||||
ldy #0
|
|
||||||
clc ; Skip the label count
|
|
||||||
lda ptr2
|
|
||||||
adc #2
|
|
||||||
sta ptr2
|
|
||||||
bcc L2
|
|
||||||
inc ptr2+1
|
|
||||||
bne L2 ; Branch always
|
|
||||||
|
|
||||||
; Search for the label
|
|
||||||
|
|
||||||
L0: lda (ptr2),y
|
|
||||||
iny
|
|
||||||
cmp ptr1
|
|
||||||
beq L4
|
|
||||||
L1: iny
|
|
||||||
iny
|
|
||||||
iny ; Overflow only here
|
|
||||||
bne L2
|
|
||||||
inc ptr2+1 ; Bump high byte
|
|
||||||
|
|
||||||
; Check if there are any labels left
|
|
||||||
|
|
||||||
L2: inc ptr3
|
|
||||||
bne L0
|
|
||||||
inc ptr3+1
|
|
||||||
bne L0
|
|
||||||
|
|
||||||
; Out of labels
|
|
||||||
|
|
||||||
tya
|
|
||||||
clc
|
|
||||||
adc ptr2
|
|
||||||
sta ptr2
|
|
||||||
bcc L3
|
|
||||||
inc ptr2+1
|
|
||||||
L3: jmp (ptr2)
|
|
||||||
|
|
||||||
|
|
||||||
; Check high byte
|
|
||||||
|
|
||||||
L4: lda (ptr2),y
|
|
||||||
cmp ptr1+1
|
|
||||||
bne L1
|
|
||||||
|
|
||||||
; Label found
|
|
||||||
|
|
||||||
iny
|
|
||||||
lda (ptr2),y
|
|
||||||
sta ptr3
|
|
||||||
iny
|
|
||||||
lda (ptr2),y
|
|
||||||
sta ptr3+1
|
|
||||||
jmp (ptr3)
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user