cp opc.d junk
ed - junk >junk2
g/^...[ 	]*$/d
=
v/\*/d
=
v/.........../s/$/	/
g/^0*/s//0/
g/\(.*\)\*\(.*\)/s//#define O\2	\1/
1i
/*
 * operations
 */
.
w opcode.h
q
ed - junk
g/^\(23.\).*/s//\1/
g/_/s/..../	/
v/_/s/.*/	badop/
1s/^/optab:\
/
130,$m0
1i
.data
.
$a
.text
.
/NULL/c
	badop
.
w opcode.s
q
ed - opcode.h >>opcode.s
/WRITC/s/#define //
s/[ 	]/ = /p
w /dev/null
q
ed - junk2
-s/$/\/256 opcodes assigned/p
+s/$/\/256 opcodes #defined/p
w
q
rm junk junk2