;;; $D620: Setup - PLM $D6F2 (collision reaction, special, BTS Wrecked Ship 80h. Wrecked Ship chozo hand trigger) ;;;
{
;; Returns:
;;     Carry: Set. Unconditional collision

; Enemy 0 is presumed to be the chozo statue
$84:D620 A9 01 00    LDA #$0001             ;\
$84:D623 22 DC 81 80 JSL $8081DC[$80:81DC]  ;} If area main boss is not dead: go to BRANCH_RETURN
$84:D627 90 4E       BCC $4E    [$D677]     ;/
$84:D629 AD 02 0B    LDA $0B02  [$7E:0B02]  ;\
$84:D62C 29 0F 00    AND #$000F             ;|
$84:D62F C9 03 00    CMP #$0003             ;} If [collision direction] != down: go to BRANCH_RETURN
$84:D632 D0 43       BNE $43    [$D677]     ;/
$84:D634 AD 1C 0A    LDA $0A1C  [$7E:0A1C]  ;\
$84:D637 C9 1D 00    CMP #$001D             ;} If [Samus pose] != facing right - morph ball - no springball - on ground:
$84:D63A F0 0A       BEQ $0A    [$D646]     ;/
$84:D63C C9 79 00    CMP #$0079             ;\
$84:D63F F0 05       BEQ $05    [$D646]     ;|
$84:D641 C9 7A 00    CMP #$007A             ;} If [Samus pose] != morph ball - spring ball - on ground: go to BRANCH_RETURN
$84:D644 D0 31       BNE $31    [$D677]     ;/
$84:D646 A9 01 00    LDA #$0001             ;\
$84:D649 8D B4 0F    STA $0FB4  [$7E:0FB4]  ;} Enemy 0 activation flag = 1
$84:D64C A9 02 02    LDA #$0202             ;\
$84:D64F 8F 27 CD 7E STA $7ECD27[$7E:CD27]  ;} Scrolls 7/8 = green
$84:D653 A9 01 01    LDA #$0101             ;\
$84:D656 8F 2D CD 7E STA $7ECD2D[$7E:CD2D]  ;} Scrolls Dh/Eh = blue
$84:D65A BE 87 1C    LDX $1C87,y[$7E:1CCB]  ;\
$84:D65D BF 02 00 7F LDA $7F0002,x[$7F:11D6];|
$84:D661 29 FF 0F    AND #$0FFF             ;} Make PLM block air
$84:D664 9F 02 00 7F STA $7F0002,x[$7F:11D6];/
$84:D668 A9 00 00    LDA #$0000             ;\
$84:D66B 22 84 F0 90 JSL $90F084[$90:F084]  ;} Run Samus command - lock Samus
$84:D66F 22 D7 83 84 JSL $8483D7[$84:83D7]  ;\
$84:D673             dx 17, 1D, D6F8        ;} Spawn PLM $D6F8 (clear slope access for Wrecked Ship chozo)
; BRANCH_RETURN
$84:D677 A9 00 00    LDA #$0000             ;\
$84:D67A 99 37 1C    STA $1C37,y[$7E:1C7B]  ;} PLM ID = 0
$84:D67D 38          SEC                    ;\
$84:D67E 60          RTS                    ;} Return carry set
}