;;;;;;;;;;;;;;;;;;;;;;;;;
;; Foliage the Para-Plant
;; For Morton's Empire
;;;;;;;;;;;;;;;;;;;;;;;;;


;;; INIT Routine wrapper
print "INIT ",pc
    PHY
    STZ $C2,y
    PLY : PHY
    JSR SubHorzPos
    TYA
    STA $157C,x
    PLY
RTS

;;; Main Routine wrapper
print "MAIN ",pc
    PHB : PHK : PLB
    JSL MainRt
    PLB
RTS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Main routine
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

MainRt:
    JSR SubGFX