level1F:
PHP
REP #%00110100
LDA $1C		; \
CMP.w #$0000		;  |  compare screen Y position

BCS VARH1f		;  |  with $C0 - desired Y
BCC ZERO1f

LDA $1C
SBC #$0000
STA $24
ADC #$001B
STA $24
PLP
RTS

VARH1f:
LDA $1C		; \
SBC.w #$0000	;  |  set layer 3 Y
STA $24		;  |  to $C0 - desired height
PLP		;  |  if screen Y > or = the value:
RTS		; /

ZERO1f:
 LDA.w #$0000	; \
STA $24		;  |  set layer 3 Y to zero
PLP			;  |  if screen Y < the value
BNE Return1F
LDA $13D4
BNE Return1F
LDA $13
AND #$03
BEQ Return1F
REP #$20
DEC $22
SEP #$20
Return1F:
	RTS