mirror of
https://github.com/alpine9000/amiga_examples
synced 2025-12-08 14:59:01 +00:00
255 lines
4.9 KiB
ArmAsm
255 lines
4.9 KiB
ArmAsm
include "includes.i"
|
|
|
|
xdef UpdatePlayer
|
|
xdef ProcessJoystick
|
|
xdef InitialisePlayer
|
|
xdef HidePlayer
|
|
xdef SetupSpriteData
|
|
xdef ScrollSprites
|
|
xdef deadSprite
|
|
xdef spriteX
|
|
xdef spriteLagX
|
|
xdef spriteY
|
|
xdef UpdatePlayerFallingAnimation
|
|
xdef InstallPlayerColorPalette
|
|
xdef SelectNextPlayerSprite
|
|
|
|
PLAYER_INSTALL_COLOR_PALETTE equ 0
|
|
PLAYER_SPRITE_DATA equ 4
|
|
|
|
InitialisePlayer:
|
|
move.l playerSpriteConfig,a0
|
|
move.l PLAYER_SPRITE_DATA(a0),d0
|
|
add.l #6*PLAYER_SPRITE_VERTICAL_BYTES,d0
|
|
move.l d0,currentSprite
|
|
|
|
move.w #0,spritePlayerFallingAnimation
|
|
move.w #PLAYER_INITIAL_X,spriteX
|
|
move.w #PLAYER_INITIAL_Y,spriteY
|
|
move.w #PLAYER_INITIAL_Y+16,spriteYEnd
|
|
rts
|
|
|
|
|
|
HidePlayer:
|
|
move.w #$f000,spriteX
|
|
rts
|
|
|
|
|
|
ScrollSprites:
|
|
sub.w #1,spriteX
|
|
bra ScrollItemSprites
|
|
rts
|
|
|
|
|
|
UpdatePlayerFallingAnimation:
|
|
move.w spritePlayerFallingAnimation,d0
|
|
lsr.w #1,d0
|
|
mulu.w #PLAYER_SPRITE_VERTICAL_BYTES,d0
|
|
move.l #spriteFalling1,a0
|
|
add.l d0,a0
|
|
move.l a0,currentSprite
|
|
add.w #1,spritePlayerFallingAnimation
|
|
cmp.w #4<<1,spritePlayerFallingAnimation
|
|
blt .dontResetAnimation
|
|
move.w #0,spritePlayerFallingAnimation
|
|
bsr HidePlayer
|
|
.dontResetAnimation:
|
|
rts
|
|
|
|
|
|
UpdatePlayer:
|
|
;; right
|
|
move.l playerSpriteConfig,a0
|
|
move.l PLAYER_SPRITE_DATA(a0),d0
|
|
cmp.w #PLAYER_PAUSE_PIXELS,spriteR
|
|
ble .skipRight
|
|
add.w #PLAYER_MOVE_PIXELS,spriteX
|
|
add.l #7*PLAYER_SPRITE_VERTICAL_BYTES,d0
|
|
move.l d0,currentSprite
|
|
.skipRight
|
|
cmp.w #0,spriteR
|
|
beq .notRight
|
|
sub.w #1,spriteR
|
|
cmp.w #PLAYER_PAUSE_PIXELS,spriteR
|
|
bge .notRight
|
|
add.l #6*PLAYER_SPRITE_VERTICAL_BYTES,d0
|
|
move.l d0,currentSprite
|
|
.notRight:
|
|
;; up
|
|
cmp.w #PLAYER_PAUSE_PIXELS,spriteU
|
|
ble .skipUp
|
|
sub.w #PLAYER_MOVE_PIXELS,spriteY
|
|
sub.w #PLAYER_MOVE_PIXELS,spriteYEnd
|
|
add.l #1*PLAYER_SPRITE_VERTICAL_BYTES,d0
|
|
move.l d0,currentSprite
|
|
.skipUp:
|
|
cmp.w #0,spriteU
|
|
beq .notUp
|
|
sub.w #1,spriteU
|
|
cmp.w #PLAYER_PAUSE_PIXELS,spriteU
|
|
bge .notUp
|
|
move.l d0,currentSprite
|
|
.notUp:
|
|
;; down
|
|
cmp.w #PLAYER_PAUSE_PIXELS,spriteD
|
|
ble .skipDown
|
|
add.w #PLAYER_MOVE_PIXELS,spriteY
|
|
add.w #PLAYER_MOVE_PIXELS,spriteYEnd
|
|
add.l #3*PLAYER_SPRITE_VERTICAL_BYTES,d0
|
|
move.l d0,currentSprite
|
|
.skipDown:
|
|
cmp.w #0,spriteD
|
|
beq .notDown
|
|
sub.w #1,spriteD
|
|
cmp.w #PLAYER_PAUSE_PIXELS,spriteD
|
|
bge .notDown
|
|
add.l #2*PLAYER_SPRITE_VERTICAL_BYTES,d0
|
|
move.l d0,currentSprite
|
|
.notDown:
|
|
;; left
|
|
cmp.w #PLAYER_PAUSE_PIXELS,spriteL
|
|
ble .skipLeft
|
|
sub.w #PLAYER_MOVE_PIXELS,spriteX
|
|
add.l #5*PLAYER_SPRITE_VERTICAL_BYTES,d0
|
|
move.l d0,currentSprite
|
|
.skipLeft
|
|
cmp.w #0,spriteL
|
|
beq .notLeft
|
|
sub.w #1,spriteL
|
|
cmp.w #PLAYER_PAUSE_PIXELS,spriteL
|
|
bge .notLeft
|
|
add.l #4*PLAYER_SPRITE_VERTICAL_BYTES,d0
|
|
move.l d0,currentSprite
|
|
.notLeft:
|
|
cmp.w #$cf,spriteX
|
|
blt .noScroll
|
|
move.w #1,moving
|
|
.noScroll:
|
|
rts
|
|
|
|
|
|
|
|
ProcessJoystick:
|
|
;; 812
|
|
;; 7 3
|
|
;; 654
|
|
jsr ReadJoystick
|
|
cmp.w #0,spriteR
|
|
bne .skip
|
|
cmp.w #0,spriteU
|
|
bne .skip
|
|
cmp.w #0,spriteD
|
|
bne .skip
|
|
cmp.w #0,spriteL
|
|
bne .skip
|
|
|
|
cmp.b #3,joystickpos
|
|
bne .notRight
|
|
move.w #PLAYER_JUMP_PIXELS+PLAYER_PAUSE_PIXELS,spriteR
|
|
.notRight:
|
|
cmp.b #1,joystickpos
|
|
bne .notUp
|
|
move.w #PLAYER_JUMP_PIXELS+PLAYER_PAUSE_PIXELS,spriteU
|
|
.notUp:
|
|
cmp.b #5,joystickpos
|
|
bne .notDown
|
|
move.w #PLAYER_JUMP_PIXELS+PLAYER_PAUSE_PIXELS,spriteD
|
|
.notDown:
|
|
cmp.b #7,joystickpos
|
|
bne .notLeft
|
|
move.w #PLAYER_JUMP_PIXELS+PLAYER_PAUSE_PIXELS,spriteL
|
|
.notLeft:
|
|
.skip:
|
|
rts
|
|
|
|
|
|
SetupSpriteData:
|
|
move.l currentSprite,a0
|
|
move.w spriteLagX,d0
|
|
move.w spriteX,spriteLagX
|
|
move.w d0,d1
|
|
andi #1,d1
|
|
move.b d1,3(a0) ;spriteControl
|
|
lsr.l #1,d0
|
|
move.b d0,1(a0) ;spriteHStart
|
|
move.w spriteY,d0
|
|
move.b d0,(a0) ;spriteVStart
|
|
move.w spriteYEnd,d0
|
|
move.b d0,2(a0) ;spriteVStop
|
|
move.l a0,SPR0PTH(a6)
|
|
|
|
move.l #ITEM_NUM_SLOTS-1,d0
|
|
.loop:
|
|
jsr SetupItemSpriteData
|
|
dbra d0,.loop
|
|
|
|
move.l #deadSprite,SPR1PTH(a6)
|
|
move.l #deadSprite,SPR3PTH(a6)
|
|
move.l #deadSprite,SPR4PTH(a6)
|
|
move.l #deadSprite,SPR5PTH(a6)
|
|
move.l #deadSprite,SPR6PTH(a6)
|
|
move.l #deadSprite,SPR7PTH(a6)
|
|
rts
|
|
|
|
InstallPlayerColorPalette:
|
|
move.l playerSpriteConfig,a0
|
|
move.l PLAYER_INSTALL_COLOR_PALETTE(a0),a1
|
|
jsr (a1)
|
|
rts
|
|
|
|
InstallPigColorPalette:
|
|
include "out/sprite_pig-0-palette.s"
|
|
rts
|
|
|
|
InstallRobotColorPalette:
|
|
include "out/sprite_robot-0-palette.s"
|
|
rts
|
|
|
|
SelectNextPlayerSprite:
|
|
cmp.l #pigPlayerSpriteConfig,playerSpriteConfig
|
|
bne .s1
|
|
move.l #robotPlayerSpriteConfig,playerSpriteConfig
|
|
bra .done
|
|
.s1:
|
|
move.l #pigPlayerSpriteConfig,playerSpriteConfig
|
|
.done:
|
|
bsr InstallPlayerColorPalette
|
|
rts
|
|
|
|
pigPlayerSpriteConfig:
|
|
dc.l InstallPigColorPalette
|
|
dc.l spritePig
|
|
|
|
robotPlayerSpriteConfig:
|
|
dc.l InstallRobotColorPalette
|
|
dc.l spriteRobot
|
|
|
|
playerSpriteConfig:
|
|
dc.l pigPlayerSpriteConfig
|
|
|
|
include "sprite_data.i"
|
|
|
|
spritePlayerFallingAnimation:
|
|
dc.w 0
|
|
currentSpriteOffset:
|
|
dc.l 0
|
|
currentSprite:
|
|
dc.l spritePig
|
|
deadSprite:
|
|
dc.l 0
|
|
spriteR:
|
|
dc.w 0
|
|
spriteL:
|
|
dc.w 0
|
|
spriteU:
|
|
dc.w 0
|
|
spriteD:
|
|
dc.w 0
|
|
spriteLagX:
|
|
dc.w 0
|
|
spriteX:
|
|
dc.w $0
|
|
spriteY:
|
|
dc.w $e4
|
|
spriteYEnd:
|
|
dc.w $f5 |