Хорошо, что ты созрел на стек, но пока это не совсем спорт высоких достижений. Нужно полностью предсдвинуть, в процедурах вывода убрать сдвиги. И убрать тормозные mov a,d и mov a,e. xchg тоже не нужен (кроме x_0)
pop h\ ldax d\ ora l\ inr e \ ldax d\ ora h\ inr e

Удалось изыскать небольшие резервы и в умеренно-консервативном варианте, еще добавил blitы, потом выложу. В принципе оттуда можно кое-что пересадить и в спортивные достековые варианты.