dnl # compile with: https://github.com/DW0RKiN/M4_FORTH
dnl # z80 output : https://pastebin.com/z2Rv1fvr
dnl
include(`../M4/FIRST.M4')dnl
ORG 0x8000
INIT(60000)
define({USE_FONT_5x8})

PCONSTANT(22,10,_10)
PCONSTANT(22,99,_99)
PCONSTANT(22,0, _tmp_print)
PCONSTANT(22,0, _tmp2)
PPUSH_VALUE(22,99,_tmp3)

PUSH(_99)
PUSH(_tmp3)
PUSH(_tmp2)

PUSH(20) FOR

dnl #PUMUL(b)	( p3 p2 p1 -- p3 p2 p1 )	[p1] = [p3] * [p2]
    PUMUL(22)

    _2DUP SWAP

dnl # ( 99 old new -- 99 new old new old )

   PUSH(22) MOVE

dnl # ( 99 new old -- 99 new _10 old _tmp_print )

   PUSH(_10) SWAP PUSH(_tmp_print)

dnl # PUDOT(b)	( p3 p2 p1 -- p3 px py )	print [p2], [py]= 0, [px]=first_number

    PUDOT(22) CR

dnl # ( 99 new _10 old _tmp_print -- 99 new old )

    DROP NIP
NEXT

DROP DROP DROP
DEPTH UDOT CR

STOP