tiles:
	db $AC,$AE
prop:
	db $6E,$00
print "MAIN ",pc
PHB : PHK : PLB
	JSR MainCode
	PLB
print "INIT ",pc
	RTL
MainCode:
	JSR Graphics
	LDA #$00
	%SubOffScreen()
	JSL $01A7DC
	BCC Return
	STZ $14C8,x
	STZ $00 : STZ $01
	LDA #$1B : STA $02
	LDA #$01
	%SpawnSmoke()
Return:
	RTS
Graphics:
	%GetDrawInfo()
	REP #$20
	LDA $00
	STA $0300|!Base2,y
	SEP #$20
	LDA !1602,x
	TAX
	LDA tiles,x
	STA $0302|!Base2,y
	LDX $15E9|!Base2
	LDA !157C,x
	TAX
	LDA #$02
	ORA $24
	ORA prop,x
	STA $0303|!Base2,y
	LDX $15E9|!Base2
	TDC
	LDY #$02
	JSL $01B7B3|!BankB
	RTS