charles wrote:maybe optimize?
If you are thinking the code you included is an optimized version of the previous code you are wrong.
Hans Wessels
Moderators: simonsunnyboy, Mug UK, Zorro 2, Moderator Team
charles wrote:maybe optimize?
charles wrote:it s onlt optimal compared to what i had previously listed , a logical shift is a form of divide or multiply so if compared that way too , it may be equal in speed
Code: Select all
* Created by TT-Digger v7
* Thu Dec 04 11:48:20 2008
* TT-Digger v7
* TEXT 238 bytes, segment starts at STARTADR
* DATA 8 bytes, segment starts at VARTAB
* BSS 32 bytes, segment starts at BssA5
* SYMBOLS 252 bytes
* FLAG 0000
.XREF INIT,MKLSTOS,END,GOSUB,VALPARF,VALPARI,LOCALC,VFFTOI,ISTOF,LMOD
.XREF RETURN
.XDEF STARTADR,BssA5,VARTAB,DATASTAR,DATAENDE,MEMSIZE,_LPOKE
.TEXT
STARTADR:
movea.l a7,a2
moveq #15,d0
lea STARTADR(pc),a7
jsr INIT.l
move.l #$3E3E3E3E,d0
lea -32756(a5),a0
bsr MKLSTOS
pea 22
pea -2147483648.l
pea 1024
jsr _LPOKE.l
move.l #$3C3C3C3C,d0
lea -32756(a5),a0
bsr MKLSTOS
bsr END
_LPOKE:
bsr GOSUB
lea -32768(a5),a0
bsr VALPARF
lea -32764(a5),a0
bsr VALPARI
lea -32760(a5),a0
bsr LOCALC
L94:
movea.l -32768(a5),a0
bsr VFFTOI
swap d0
movea.l -32768(a5),a0
bsr ISTOF
moveq #0,d0
movea.l -32760(a5),a2
move.b (a2),d0
movea.l -32764(a5),a2
add.l (a2),d0
move.l d0,-(a7)
movea.l -32768(a5),a0
bsr VFFTOI
andi.l #65535,d0
tst.l d0
bpl.s L152
addi.l #255,d0
L152:
moveq #8,d1
asr.l d1,d0
movea.l (a7)+,a0
move.b d0,(a0)
movea.l -32760(a5),a2
addq.b #1,(a2)
moveq #0,d0
movea.l -32760(a5),a2
move.b (a2),d0
movea.l -32764(a5),a2
add.l (a2),d0
move.l d0,-(a7)
movea.l -32768(a5),a0
bsr VFFTOI
andi.l #65535,d0
move.l #256,d1
bsr LMOD
movea.l (a7)+,a0
move.b d0,(a0)
movea.l -32760(a5),a2
addq.b #1,(a2)
moveq #0,d0
movea.l -32760(a5),a2
move.b (a2),d0
subq.l #3,d0
ble L94
bra RETURN
bsr END
.DATA
VARTAB:
dc.w 0,18,2052,256
.BSS
BssA5:
DATASTAR:
DATAENDE:
ds.b 32
U278:
end
lp wrote:It starts at _LPOKE
GroovyBee wrote:lp wrote:It starts at _LPOKE
Blurgh! Thats some ugly assembly code. Mind you, the BASIC source isn't good either.
Users browsing this forum: No registered users and 2 guests