#!/bin/sh
# A small shell script (using POSIX AWK) to convert pdpnasm .po files into ILDEC .oct files
# Usage: po2oct.sh input.po output.oct
# Created by Luxferre in 2026, released into the public domain

for l in $(cat "$1"); do
  printf '%d\n' "0$l"
done | awk 'BEGIN{a=0}/[0-9]+/{if($1>4096)a=$1%4096;else{if($1)printf("%04o: %04o\n",a,$1);a++}}' > "$2"