forked from KolibriOS/kolibrios
159 lines
3.4 KiB
Plaintext
159 lines
3.4 KiB
Plaintext
; --------------------------------------------------------------------------
|
|
; FILE: TImpulse.Asm
|
|
; DATE: November 9, 2008
|
|
; --------------------------------------------------------------------------
|
|
|
|
; --------------------------------------------------------------------------
|
|
; IMPULSE
|
|
; --------------------------------------------------------------------------
|
|
virtual at 0
|
|
loc50:
|
|
.pTrekData PVOID ?
|
|
.dbl_POWER DOUBLE ?
|
|
.__padded__ BYTES 2
|
|
.size = $
|
|
end virtual
|
|
; --------------------------------------------------------------------------
|
|
align PROC_ALIGN
|
|
TImpulse_Main:
|
|
mcBeginLocals loc50.size
|
|
|
|
mcLoadGameDataPtr esi
|
|
mcStoreLocal loc50.pTrekData, esi
|
|
|
|
mov [esi + TREKDATA.IDIDIT], 0
|
|
|
|
mov cl, DEV_IMPULSE_ENGINES
|
|
call TArray_IsDamaged
|
|
jc .L40
|
|
|
|
fld [glb_dbl_30]
|
|
fld [esi + TREKDATA.ENERGY]
|
|
mc_CMP_ST0_ST1
|
|
jc .L5
|
|
jz .L5
|
|
|
|
call TMove_GetCourseDistance
|
|
|
|
mcLoadLocal esi, loc50.pTrekData
|
|
fldz
|
|
fld [esi + TREKDATA.DIREC]
|
|
mc_CMP_ST0_ST1
|
|
jc .done
|
|
|
|
fld [esi + TREKDATA.DIST]
|
|
fld [glb_dbl_100]
|
|
fmulp
|
|
fld [glb_dbl_20]
|
|
faddp
|
|
fstp [esp + loc50.dbl_POWER]
|
|
|
|
fld [esi + TREKDATA.ENERGY]
|
|
fld [esp + loc50.dbl_POWER]
|
|
mc_CMP_ST0_ST1
|
|
jc .L20
|
|
|
|
.L5:
|
|
call TConsole_ScrollUp
|
|
call TConsole_SetCrewMsgAttr
|
|
mov ecx, 576
|
|
call TConsole_Prout
|
|
mov ecx, 577
|
|
call TConsole_Prout
|
|
|
|
mcLoadLocal esi, loc50.pTrekData
|
|
fld [glb_dbl_30]
|
|
fld [esi + TREKDATA.ENERGY]
|
|
mc_CMP_ST0_ST1
|
|
jnc .L10
|
|
|
|
mov ecx, 578
|
|
call TConsole_Prout
|
|
jmp .done
|
|
|
|
.L10:
|
|
mov ecx, 579
|
|
call TConsole_Prout
|
|
|
|
mcLoadLocal esi, loc50.pTrekData
|
|
fld [esi + TREKDATA.ENERGY]
|
|
fld [glb_dbl_20]
|
|
fsubp
|
|
fld [glb_dbl_0dot01]
|
|
fmulp
|
|
fld [glb_dbl_0dot05]
|
|
fsubp
|
|
|
|
mov cl, 1
|
|
call TConsole_CramFloat
|
|
|
|
mov ecx, 580
|
|
call TConsole_Prout
|
|
jmp .done
|
|
|
|
.L20:
|
|
mcLoadLocal esi, loc50.pTrekData
|
|
fld [esi + TREKDATA.DIST]
|
|
fld [glb_dbl_0dot095]
|
|
fdivp
|
|
fstp [esi + TREKDATA.TIME]
|
|
|
|
fld [esi + TREKDATA.REMTIME]
|
|
fld [esi + TREKDATA.TIME]
|
|
mc_CMP_ST0_ST1
|
|
jc .L30
|
|
|
|
call TConsole_SetCrewMsgAttr
|
|
mov ecx, 581
|
|
call TConsole_Prout
|
|
mov ecx, 582
|
|
call TConsole_Prout
|
|
mov ecx, 583
|
|
call TConsole_Prout
|
|
|
|
mcLoad8bitsToReg32 ecx, 158
|
|
call TGame_JA
|
|
jnc .done
|
|
|
|
.L30:
|
|
call TMove_Move
|
|
mcLoadLocal esi, loc50.pTrekData
|
|
inc [esi + TREKDATA.IDIDIT]
|
|
|
|
cmp [esi + TREKDATA.ALLDONE], 0
|
|
jne .done
|
|
|
|
fld [esi + TREKDATA.DIST]
|
|
fld [glb_dbl_100]
|
|
fmulp
|
|
fld [glb_dbl_20]
|
|
faddp
|
|
fld [esi + TREKDATA.ENERGY]
|
|
fsubrp
|
|
fstp [esi + TREKDATA.ENERGY]
|
|
|
|
fld [esi + TREKDATA.DIST]
|
|
fld [glb_dbl_0dot095]
|
|
fdivp
|
|
fstp [esi + TREKDATA.TIME]
|
|
|
|
fld [esi + TREKDATA.ENERGY]
|
|
fldz
|
|
mc_CMP_ST0_ST1
|
|
jc .done
|
|
|
|
mov al, 4
|
|
call TFinish_Main
|
|
jmp .done
|
|
|
|
.L40:
|
|
call TConsole_ScrollUp
|
|
mov ecx, 584
|
|
call TConsole_ProutGameMsg
|
|
|
|
.done:
|
|
mcEndLocals loc50.size
|
|
ret
|
|
|
|
; --- EOF ---
|