#!/bin/sh

#
# pons: maakt van X1 handcode weer een 5 gats binair ponsbandje
# Leest van stdin; schrijft naar stdout:  pons < file > uit
# invoerfile mag de output van x1hand zijn met adres/debug info t/m ':' per regel
#
# 2025 Copyright GH Rolf
#

TMPF=/tmp/script.$$

cat - > $TMPF <<\EOF
1,$s/10/./g
1,$s/11/+/g
1,$s/12/-/g
1,$s/13/A/g
1,$s/14/B/g
1,$s/15/C/g
1,$s/16/P/g
1,$s/17/Z/g
1,$s/18/E/g
1,$s/19/F/g
1,$s/20/H/g
1,$s/21/K/g
1,$s/22/L/g
1,$s/23/R/g
1,$s/24/S/g
1,$s/25/T/g
1,$s/26/W/g
1,$s/27/U/g
1,$s/28/Y/g
1,$s/29/N/g
1,$s/30/D/g
1,$s/31/X/g
EOF

sed '1,$s/^[^:]*://' |
		sed -f $TMPF |
		tr -d ' \012\t' |
		tr 'OIJGMQV0123456789.+\-ABCPZEFHKLRSTWUYNDX' '\000\001\002\003\004\005\006\000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037'
rm -f $TMPF
