Door	jmp -1
Trap	spl >0, 0
	mov Door, 0
TClear	mov Bottom, Bottom+1
	slt Bottom, TClear
	jmp TClear, >TClear
Bottom	dat 0, Clear-TClear