add ASM source to generate 100% comp. WEGA 3.2 object

This commit is contained in:
Oliver Lehmann 2008-06-10 04:48:30 +00:00
parent aac25cd785
commit fe2950db0c
1 changed files with 40 additions and 33 deletions

View File

@ -197,7 +197,7 @@ _zpr::
ld |_stkseg+~L1+2|(fp),r7 ld |_stkseg+~L1+2|(fp),r7
ld r6,r7 ld r6,r7
sra r6,#12 sra r6,#12
and r6,#15 andb rl6,#15
subb rh6,rh6 subb rh6,rh6
ldl rr2,|_stkseg+~L1+4|(fp) ldl rr2,|_stkseg+~L1+4|(fp)
ldb rl4,rr2(r6) ldb rl4,rr2(r6)
@ -205,18 +205,18 @@ _zpr::
ld r6,|_stkseg+~L1+2|(fp) ld r6,|_stkseg+~L1+2|(fp)
ldb rl6,rh6 ldb rl6,rh6
extsb r6 extsb r6
and r6,#15 andb rl6,#15
subb rh6,rh6 subb rh6,rh6
ldb rl4,rr2(r6) ldb rl4,rr2(r6)
ldb _kdbstr+1,rl4 ldb _kdbstr+1,rl4
ld r6,|_stkseg+~L1+2|(fp) ld r6,|_stkseg+~L1+2|(fp)
sra r6,#4 sra r6,#4
and r6,#15 andb rl6,#15
subb rh6,rh6 subb rh6,rh6
ldb rl4,rr2(r6) ldb rl4,rr2(r6)
ldb _kdbstr+2,rl4 ldb _kdbstr+2,rl4
ld r6,|_stkseg+~L1+2|(fp) ld r6,|_stkseg+~L1+2|(fp)
and r6,#15 andb rl6,#15
subb rh6,rh6 subb rh6,rh6
ldb rl4,rr2(r6) ldb rl4,rr2(r6)
ldb _kdbstr+3,rl4 ldb _kdbstr+3,rl4
@ -475,9 +475,9 @@ L20009:
and r3,#16128 and r3,#16128
cp r2,r3 cp r2,r3
jpr ne,L109 jpr ne,L109
ld r3,|_stkseg+~L1+20|(fp) ld r7,|_stkseg+~L1+20|(fp)
mult rr2,#10 mult rr6,#10
ld r2,_breakpt+4(r3) ld r2,_breakpt+4(r7)
ld r3,rr4(#38) ld r3,rr4(#38)
dec r3,#2 dec r3,#2
cp r2,r3 cp r2,r3
@ -490,7 +490,7 @@ L110:
cp |_stkseg+~L1+20|(fp),#5 cp |_stkseg+~L1+20|(fp),#5
jpr lt,L113 jpr lt,L113
ldl rr6,#L115 ldl rr6,#L115
L20022: L20020:
callr _printf callr _printf
jpr L120 jpr L120
L113: L113:
@ -556,8 +556,10 @@ L126:
ldl rr6,#L127 ldl rr6,#L127
callr _printf callr _printf
callr _gethex callr _gethex
and r2,#32512 ldl rr4,rr2
ldl |_stkseg+~L1+32|(fp),rr2 and r4,#32512
ldl |_stkseg+~L1+32|(fp),rr4
ldl rr2,rr4
call @rr2 call @rr2
L128: L128:
ldk r7,#10 ldk r7,#10
@ -568,7 +570,9 @@ L131:
callr _printf callr _printf
callr _gethex callr _gethex
and r2,#16128 and r2,#16128
ldl |_stkseg+~L1+8|(fp),rr2 ldl rr4,rr2
and r4,#32512
ldl |_stkseg+~L1+8|(fp),rr4
clr |_stkseg+~L1+20|(fp) clr |_stkseg+~L1+20|(fp)
L135: L135:
ld r3,|_stkseg+~L1+20|(fp) ld r3,|_stkseg+~L1+20|(fp)
@ -583,7 +587,7 @@ L134:
cp |_stkseg+~L1+20|(fp),#5 cp |_stkseg+~L1+20|(fp),#5
jpr lt,L136 jpr lt,L136
ldl rr6,#L137 ldl rr6,#L137
jpr L20022 jpr L20020
L136: L136:
ld r3,|_stkseg+~L1+20|(fp) ld r3,|_stkseg+~L1+20|(fp)
mult rr2,#10 mult rr2,#10
@ -663,8 +667,9 @@ L20010:
ldl rr6,#L150 ldl rr6,#L150
callr _printf callr _printf
callr _gethex callr _gethex
and r2,#32512 ldl rr4,rr2
ldl |_stkseg+~L1+4|(fp),rr2 and r4,#32512
ldl |_stkseg+~L1+4|(fp),rr4
ldl rr6,#L151 ldl rr6,#L151
callr _printf callr _printf
callr _gethex callr _gethex
@ -678,10 +683,10 @@ L20010:
slal rr2,#3 slal rr2,#3
ldl |_stkseg+~L1+28|(fp),rr2 ldl |_stkseg+~L1+28|(fp),rr2
subl rr2,rr2 subl rr2,rr2
L20014: L20012:
ldl |_stkseg+~L1+24|(fp),rr2 ldl |_stkseg+~L1+24|(fp),rr2
cpl rr2,|_stkseg+~L1+28|(fp) cpl rr2,|_stkseg+~L1+28|(fp)
jpr uge,L120 jpr uge,L128
test |_stkseg+~L1+16|(fp) test |_stkseg+~L1+16|(fp)
jpr ne,L156 jpr ne,L156
testl rr2 testl rr2
@ -784,7 +789,7 @@ L166:
L153: L153:
ldl rr2,|_stkseg+~L1+24|(fp) ldl rr2,|_stkseg+~L1+24|(fp)
addl rr2,#1 addl rr2,#1
jpr L20014 jpr L20012
L171: L171:
ldl rr6,#L172 ldl rr6,#L172
callr _printf callr _printf
@ -792,7 +797,7 @@ L171:
ldl rr4,#L196 ldl rr4,#L196
ld r6,#4 ld r6,#4
cpir r2,@rr4,r6,eq cpir r2,@rr4,r6,eq
jpr ne,L120 jpr ne,L128
sll r6,#2 sll r6,#2
neg r6 neg r6
ldl rr4,L197+12(r6) ldl rr4,L197+12(r6)
@ -818,7 +823,7 @@ L176:
cp r2,#89 cp r2,#89
jpr eq,L183 jpr eq,L183
cp r2,#121 cp r2,#121
jpr ne,L120 jpr ne,L128
L183: L183:
ldl rr2,|_stkseg+~L1+28|(fp) ldl rr2,|_stkseg+~L1+28|(fp)
slal rr2,#1 slal rr2,#1
@ -826,13 +831,15 @@ L183:
add r5,r3 add r5,r3
ld r2,|_stkseg+~L1+14|(fp) ld r2,|_stkseg+~L1+14|(fp)
ld @rr4,r2 ld @rr4,r2
jpr L120 jpr L128
L185: L185:
ldl rr6,#L186 ldl rr6,#L186
callr _printf callr _printf
callr _gethex callr _gethex
and r2,#32512 ldl rr4,rr2
ldl |_stkseg+~L1+8|(fp),rr2 and r4,#32512
ldl |_stkseg+~L1+8|(fp),rr4
ldl rr2,rr4
ld r7,@rr2 ld r7,@rr2
callr _zpr callr _zpr
ldl |_stkseg+~L1+42|(fp),rr2 ldl |_stkseg+~L1+42|(fp),rr2
@ -847,7 +854,7 @@ L185:
cp r2,#89 cp r2,#89
jpr eq,L192 jpr eq,L192
cp r2,#121 cp r2,#121
jpr ne,L120 jpr ne,L128
L192: L192:
ldl rr4,#_stkseg+~L1+36 ldl rr4,#_stkseg+~L1+36
add r5,fp add r5,fp
@ -886,10 +893,10 @@ L199:
ldl rr6,#L200 ldl rr6,#L200
callr _printf callr _printf
subl rr2,rr2 subl rr2,rr2
L20015: L20013:
ldl |_stkseg+~L1+24|(fp),rr2 ldl |_stkseg+~L1+24|(fp),rr2
cpl rr2,#16 cpl rr2,#16
jpr ult,L20017 jpr ult,L20015
ldl rr2,|_stkseg+~L1|(fp) ldl rr2,|_stkseg+~L1|(fp)
ld r7,rr2(#34) ld r7,rr2(#34)
callr _zpr callr _zpr
@ -911,7 +918,7 @@ L20015:
ldl rr6,#L208 ldl rr6,#L208
ldl rr4,rr2 ldl rr4,rr2
jpr L20027 jpr L20027
L20017: L20015:
ldl rr2,|_stkseg+~L1+24|(fp) ldl rr2,|_stkseg+~L1+24|(fp)
ldk r2,#0 ldk r2,#0
and r3,#7 and r3,#7
@ -931,14 +938,14 @@ L204:
callr _printf callr _printf
ldl rr2,|_stkseg+~L1+24|(fp) ldl rr2,|_stkseg+~L1+24|(fp)
addl rr2,#1 addl rr2,#1
jpr L20015 jpr L20013
L210: L210:
ldl rr6,#L211 ldl rr6,#L211
callr _printf callr _printf
ldl rr2,|_stkseg+~L1|(fp) ldl rr2,|_stkseg+~L1|(fp)
add r3,#34 add r3,#34
set @rr2,#0 set @rr2,#0
jpr L20020 jpr L20018
L214: L214:
ldl rr6,#L215 ldl rr6,#L215
callr _printf callr _printf
@ -948,19 +955,19 @@ L214:
cp r2,#89 cp r2,#89
jpr eq,L220 jpr eq,L220
cp r2,#121 cp r2,#121
jpr ne,L120 jpr ne,L128
L220: L220:
ldl rr6,|_stkseg+~L1|(fp) ldl rr6,|_stkseg+~L1|(fp)
callr _dump callr _dump
jpr L120 jpr L128
L223: L223:
ldl rr6,#L224 ldl rr6,#L224
jpr L20021 jpr L20019
L226: L226:
ldl rr6,#L227 ldl rr6,#L227
L20021: L20019:
callr _printf callr _printf
L20020: L20018:
ld r7,|_stkseg+~L1+12|(fp) ld r7,|_stkseg+~L1+12|(fp)
callr _rvi callr _rvi
ldk r2,#1 ldk r2,#1