#!/bin/awk -f

BEGIN{ section=0
  print "l function n,n&0xff"
  print "h function n,n>>8"

  print "JS macro reg,label"
  print "  ldi h(label-1)"
  print "  xpah reg"
  print "  ldi l(label-1)"
  print "  xpal reg"
  print "  xppc reg"
  print "  endm"

  print "  intsyntax -0oct,+0hex,+x'hex'"
}
/[ 	]\.LOCAL/{ ++section; sub(/\.LOCAL/,"; .LOCAL") }
/\$/{ gsub(/\$/,sprintf("_%d_",section)) }
/[ 	]\.TITLE/{ sub(/\.TITLE/,";.TITLE") }
/[ 	]\.PAGE/{ sub(/\.PAGE/,";.PAGE") }
/[ 	]\.END/{ sub(/\.END/,";.END") }
/[ 	]\.=/{ sub(/\.=/,"org ") }
/\./{ gsub(/\./,"$") }
{ print }
