d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

changed interface for cs[ab]

Browse source
This commit is contained in:
eck 1990-08-21 10:17:49 +00:00
parent 3fb20f5201
commit 797f90a022
5 changed files with 6 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
mach/m68k2/libem/csa.s
View file

@ -1,13 +1,11 @@
.define .csa .define .csa2
.sect .text .sect .text
.sect .rom .sect .rom
.sect .data .sect .data
.sect .bss .sect .bss
.sect .text .sect .text
.csa: .csa2:
move.l (sp)+,a0 ! case descriptor
move (sp)+,d0 ! index
move.l (a0)+,a1 ! default address move.l (a0)+,a1 ! default address
sub (a0)+,d0 ! index - lower bound sub (a0)+,d0 ! index - lower bound
blt 1f blt 1f

2
mach/m68k2/libem/csa4.s
View file

@ -6,8 +6,6 @@
.sect .text .sect .text
.csa4: .csa4:
move.l (sp)+,a0 ! case descriptor
move.l (sp)+,d0 ! index
move.l (a0)+,a1 ! default address move.l (a0)+,a1 ! default address
sub.l (a0)+,d0 ! index - lower bound sub.l (a0)+,d0 ! index - lower bound
blt 1f blt 1f

6
mach/m68k2/libem/csb.s
View file

@ -1,13 +1,11 @@
.define .csb .define .csb2
.sect .text .sect .text
.sect .rom .sect .rom
.sect .data .sect .data
.sect .bss .sect .bss
.sect .text .sect .text
.csb: .csb2:
move.l (sp)+,a0 ! case descriptor
move (sp)+,d0 ! index
move.l (a0)+,a1 ! default jump address move.l (a0)+,a1 ! default jump address
move.w (a0)+,d1 ! # entries move.w (a0)+,d1 ! # entries
beq 2f beq 2f

4
mach/m68k2/libem/csb4.s
View file

@ -6,10 +6,8 @@
.sect .text .sect .text
.csb4: .csb4:
move.l (sp)+,a0 ! case descriptor
move.l (sp)+,d0 ! index
move.l (a0)+,a1 ! default jump address move.l (a0)+,a1 ! default jump address
move.w (a0)+,d1 ! # entries move.l (a0)+,d1 ! # entries
beq 2f beq 2f
1: 1:
cmp.l (a0)+,d0 cmp.l (a0)+,d0

2
mach/m68k2/libem/mon.s
View file

@ -12,5 +12,5 @@
jmp EXIT jmp EXIT
.sect .data .sect .data
fmt: .asciz "system call %d not implemented" fmt: .asciz "system call %d not implemented\n"
.align 2 .align 2