Advertisement
Guest User

Untitled

a guest
Oct 4th, 2017
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Obj41_Main:                            ; XREF: Obj41_Index
  2.                 move.l  #Map_obj41,4(a0)
  3.                 move.w  #$523,2(a0)
  4.                 ori.b   #4,1(a0)
  5.                 move.b  #$10,$19(a0)
  6.                 move.b  #4,$18(a0)
  7.                 move.b  $28(a0),d0
  8.                 bpl.s   @skip           ; бит 7 задан? если нет, переход
  9.                 tst.b   ($FFFFFF03).w   ; пружины должны показаться?
  10.                 bne.s   @Show           ; если да, переход
  11.                 addq.l  #4,-4(sp)       ; пропустить 4 байта, инструкцию "bsr.w        DisplaySprite"
  12.                 rts
  13.  
  14.         @Show:  bclr    #7,d0           ; уберем-ка бит 7, чтобы не мешал
  15.                 addq.b  #2,$24(a0)      ; перенесено, раньше эта команда была в самом верху, но нам так не надо
  16.  
  17.         @skip:  btst    #4,d0           ; does the spring face left/right?
  18.         beq.s   loc_DB54    ; if not, branch
  19.         move.b  #8,$24(a0)  ; use "Obj41_LR" routine
  20.         move.b  #1,$1C(a0)
  21.         move.b  #3,$1A(a0)
  22.         move.w  #$533,2(a0)
  23.         move.b  #8,$19(a0)
  24.  
  25. loc_DB54:
  26.         btst    #5,d0       ; does the spring face downwards?
  27.         beq.s   loc_DB66    ; if not, branch
  28.         move.b  #$E,$24(a0) ; use "Obj41_Dwn" routine
  29.         bset    #1,$22(a0)
  30.  
  31. loc_DB66:
  32.         btst    #1,d0
  33.         beq.s   loc_DB72
  34.         bset    #5,2(a0)
  35.  
  36. loc_DB72:
  37.         andi.w  #$F,d0
  38.         lea Obj41_Powers(pc),a1
  39.         move.w
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement