Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Obj41_Main: ; XREF: Obj41_Index
- move.l #Map_obj41,4(a0)
- move.w #$523,2(a0)
- ori.b #4,1(a0)
- move.b #$10,$19(a0)
- move.b #4,$18(a0)
- move.b $28(a0),d0
- bpl.s @skip ; бит 7 задан? если нет, переход
- tst.b ($FFFFFF03).w ; пружины должны показаться?
- bne.s @Show ; если да, переход
- addq.l #4,-4(sp) ; пропустить 4 байта, инструкцию "bsr.w DisplaySprite"
- rts
- @Show: bclr #7,d0 ; уберем-ка бит 7, чтобы не мешал
- addq.b #2,$24(a0) ; перенесено, раньше эта команда была в самом верху, но нам так не надо
- @skip: btst #4,d0 ; does the spring face left/right?
- beq.s loc_DB54 ; if not, branch
- move.b #8,$24(a0) ; use "Obj41_LR" routine
- move.b #1,$1C(a0)
- move.b #3,$1A(a0)
- move.w #$533,2(a0)
- move.b #8,$19(a0)
- loc_DB54:
- btst #5,d0 ; does the spring face downwards?
- beq.s loc_DB66 ; if not, branch
- move.b #$E,$24(a0) ; use "Obj41_Dwn" routine
- bset #1,$22(a0)
- loc_DB66:
- btst #1,d0
- beq.s loc_DB72
- bset #5,2(a0)
- loc_DB72:
- andi.w #$F,d0
- lea Obj41_Powers(pc),a1
- move.w
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement