393 lines
8.4 KiB
Awk
393 lines
8.4 KiB
Awk
#! /usr/bin/awk -f
|
|
#
|
|
# create IOCS call interface from iocs.h
|
|
#
|
|
# written by Yasha (ITOH Yasufumi)
|
|
# public domain
|
|
#
|
|
# $NetBSD: makeiocscalls.awk,v 1.1 1998/09/01 19:53:54 itohy Exp $
|
|
|
|
BEGIN {
|
|
argsiz["l"] = 4; argsiz["w"] = 2
|
|
argsiz["lb31"] = 4; argsiz["wb8"] = 2
|
|
|
|
for (i = 0; i < 16; i++) {
|
|
reg = substr("d0d1d2d3d4d5d6d7a0a1a2a3a4a5a6a7", i*2+1, 2)
|
|
regno[reg] = i
|
|
}
|
|
}
|
|
|
|
$1 == "/*" && ($2 ~ /^[0-9a-f][0-9a-f]$/ || $2 == "(none)") {
|
|
funcnam=""
|
|
iocsno=$2
|
|
narg=0
|
|
retd2=0
|
|
err_d0=0
|
|
noret=0
|
|
c_md=0
|
|
b_super=0
|
|
sp_regst=0
|
|
b_curmod = 0
|
|
b_curpat = 0
|
|
b_scroll = 0
|
|
iocs_trap15=0
|
|
for (i = 3; i <= NF && $i != "*/" && $i != ";"; i++) {
|
|
arg[narg] = $i
|
|
narg++
|
|
}
|
|
if ($i == ";") {
|
|
# process opts
|
|
for (i++; i <= NF && $i != "*/"; i++) {
|
|
if ($i == "retd2")
|
|
retd2 = 1
|
|
else if ($i == "err_d0")
|
|
err_d0 = 1
|
|
else if ($i == "noret")
|
|
noret = 1
|
|
else if ($i == "c_md")
|
|
c_md = 1
|
|
else if ($i == "b_super")
|
|
b_super = 1
|
|
else if ($i == "sp_regst")
|
|
sp_regst = 1
|
|
else if ($i == "b_curmod")
|
|
b_curmod = 1
|
|
else if ($i == "b_curpat")
|
|
b_curpat = 1
|
|
else if ($i == "b_scroll")
|
|
b_scroll = 1
|
|
else if ($i == "trap15")
|
|
iocs_trap15 = 1
|
|
else {
|
|
print FILENAME ":" NR ": unknown opt", $i
|
|
exit(1)
|
|
}
|
|
}
|
|
}
|
|
if ($i != "*/") {
|
|
print FILENAME ":" NR ": malformed input line:" $0
|
|
exit(1)
|
|
}
|
|
|
|
# find out func name
|
|
printf "|"
|
|
for (i++; i <= NF; i++) {
|
|
printf " %s", $i
|
|
if ($i ~ /^\**IOCS_[A-Z0-9_]*$/) {
|
|
funcnam = $i
|
|
while (funcnam ~ /^\*/)
|
|
funcnam = substr(funcnam, 2, length(funcnam) -1)
|
|
}
|
|
}
|
|
print ""
|
|
if (!funcnam) {
|
|
print FILENAME ":" NR ": can't find function name"
|
|
exit(1)
|
|
}
|
|
|
|
# output assembly code
|
|
print "\t.text\n\t.even"
|
|
print "\t.globl\t_" funcnam
|
|
print "_" funcnam ":"
|
|
|
|
# SAVE REGISTERS
|
|
for (i = 0; i < 16; i++) {
|
|
savereg[i] = 0
|
|
}
|
|
for (i = 0; i < narg; i++) {
|
|
r = arg[i]
|
|
if (r ~ /^o[ad][0-7]$/)
|
|
r = substr(r, 2, 2)
|
|
else if (r ~ /^d[0-7]=/)
|
|
r = substr(r, 1, 2)
|
|
if (r != "d0" && !regno[r]) {
|
|
print FILENAME ":" NR ": unknown arg type:", arg[i]
|
|
exit(1)
|
|
}
|
|
if (r !~ /^[da][01]$/) # may not be saved
|
|
savereg[regno[r]] = r
|
|
}
|
|
# count reg to save
|
|
nsave = 0
|
|
for (i = 0; i < 16; i++) {
|
|
if (savereg[i])
|
|
nsave++
|
|
}
|
|
|
|
if (iocs_trap15) {
|
|
print "\tmoveml\td2-d7/a2-a6,sp@-"
|
|
nsave = 11
|
|
} else if (nsave == 1 || nsave == 2){
|
|
# use movel
|
|
for (i = 0; i < 16; i++) {
|
|
if (savereg[i])
|
|
print "\tmovel\t" savereg[i] ",sp@-"
|
|
}
|
|
} else if (nsave > 2) {
|
|
# use moveml
|
|
saveregs = ""
|
|
for (i = 0; i < 16; i++) {
|
|
if (savereg[i])
|
|
saveregs = saveregs "/" savereg[i]
|
|
}
|
|
saveregs = substr(saveregs, 2, length(saveregs) - 1)
|
|
print "\tmoveml\t" saveregs ",sp@-"
|
|
}
|
|
|
|
# LOAD ARGS
|
|
# XXX this should be more intelligent
|
|
argoff = nsave * 4 + 4
|
|
# input arguments for IOCS call
|
|
iarg = ""
|
|
niarg = 0
|
|
iarg_incorder = 1
|
|
immarg = ""
|
|
nimmarg = 0
|
|
for (i = 0; i < narg && arg[i] ~ /^[ad]/; i++) {
|
|
a = arg[i]
|
|
if (a ~ /^d[1-7]=[0-9][0-9]*$/) {
|
|
immarg = immarg " " a
|
|
nimmarg++
|
|
} else {
|
|
if (iarg) {
|
|
if (regno[a1] >= regno[a])
|
|
iarg_incorder = 0
|
|
}
|
|
a1 = a
|
|
iarg = iarg "/" a
|
|
niarg++
|
|
}
|
|
}
|
|
oarg = ""
|
|
noarg = 0
|
|
for ( ; i < narg; i++) {
|
|
if (arg[i] ~ /^[o]d[0-7]/) {
|
|
oarg = oarg " " arg[i]
|
|
noarg++
|
|
} else {
|
|
print "unknown arg:", arg[i]
|
|
exit(1)
|
|
}
|
|
}
|
|
# remove leading char
|
|
iarg = substr(iarg, 2, length(iarg) - 1);
|
|
immarg = substr(immarg, 2, length(immarg) - 1);
|
|
oarg = substr(oarg, 2, length(oarg) - 1);
|
|
# load input args
|
|
if (niarg == 0)
|
|
;
|
|
else if (niarg == 1 && iarg !~ /\=/) {
|
|
print "\tmovel\tsp@(" argoff ")," iarg "\t| 1arg"
|
|
} else if (iarg_incorder && iarg !~ /\=/) {
|
|
print "\tmoveml\tsp@(" argoff ")," iarg "\t| inc order"
|
|
} else if (iarg == "a1/d1") {
|
|
print "\tmoveal\tsp@(" argoff "),a1"
|
|
print "\tmovel\tsp@(" argoff + 4 "),d1"
|
|
} else if (iarg == "d1/a1/d2") {
|
|
print "\tmoveml\tsp@(" argoff "),d1-d2/a1"
|
|
print "\texg\td2,a1"
|
|
} else if (iarg == "a1/a2/d1") {
|
|
print "\tmoveml\tsp@(" argoff "),a1/a2"
|
|
print "\tmovel\tsp@(" argoff + 8 "),d1"
|
|
} else if (iarg == "a1/a2/d1/d2") {
|
|
print "\tmoveml\tsp@(" argoff "),d1-d2/a1-a2"
|
|
print "\texg\td1,a1"
|
|
print "\texg\td2,a2"
|
|
} else if (iarg == "a1/d1/d2") {
|
|
print "\tmoveml\tsp@(" argoff "),d0-d2"
|
|
print "\tmovel\td0,a1"
|
|
} else if (iarg == "d1=bb") {
|
|
print "\tmoveq\t#0,d1"
|
|
print "\tmoveb\tsp@(" argoff + 3 "),d1"
|
|
print "\tlslw\t#8,d1"
|
|
print "\tmoveb\tsp@(" argoff + 7 "),d1"
|
|
niarg = 2
|
|
} else if (iarg == "d1=ww") {
|
|
print "\tmovew\tsp@(" argoff + 2 "),d1"
|
|
print "\tswap\td1"
|
|
print "\tmovew\tsp@(" argoff + 6 "),d1"
|
|
niarg = 2
|
|
} else if (iarg == "d1=hsv") {
|
|
print "\tmoveb\tsp@(" argoff + 3 "),d1"
|
|
print "\tswap\td1"
|
|
print "\tmoveb\tsp@(" argoff + 7 "),d1"
|
|
print "\tlslw\t#8,d1"
|
|
print "\tmoveb\tsp@(" argoff + 11 "),d1"
|
|
print "\tandl\t#0x00ff1f1f,d1"
|
|
niarg = 3
|
|
} else if (iarg == "a1/d1=bb") {
|
|
print "\tmoveal\tsp@(" argoff "),a1"
|
|
print "\tmoveq\t#0,d1"
|
|
print "\tmoveb\tsp@(" argoff + 7 "),d1"
|
|
print "\tlslw\t#8,d1"
|
|
print "\tmoveb sp@(" argoff + 11 "),d1"
|
|
niarg = 3
|
|
} else if (iarg == "d1/d2=ww") {
|
|
print "\tmovel\tsp@(" argoff "),d1"
|
|
print "\tmovew\tsp@(" argoff + 6 "),d2"
|
|
print "\tswap\td2"
|
|
print "\tmovew\tsp@(" argoff + 10 "),d2"
|
|
niarg = 3
|
|
} else if (iarg == "d1=ww/a1") {
|
|
print "\tmoveml\tsp@(" argoff "),d0-d1/a1"
|
|
print "\tswap\td1"
|
|
print "\tmovew\td0,d1"
|
|
print "\tswap\td1"
|
|
niarg = 3
|
|
} else if (iarg == "d1=ww/d2=ww") {
|
|
print "\tmoveml\tsp@(" argoff "),d1-d2"
|
|
print "\tswap\td1"
|
|
print "\tmovew\td2,d1"
|
|
print "\tmovew\tsp@(" argoff + 10 "),d2"
|
|
print "\tswap\td2"
|
|
print "\tmovew\tsp@(" argoff + 14 "),d2"
|
|
niarg = 4
|
|
} else {
|
|
print "unsupported iarg:", iarg
|
|
exit(1)
|
|
}
|
|
argoff += niarg * 4
|
|
|
|
if (sp_regst) {
|
|
print "\tandl\t#0x80000000,d1"
|
|
print "\tmoveb\td0,d1"
|
|
}
|
|
|
|
if (b_curmod) {
|
|
print "\tmoveq\t#1,d0"
|
|
print "\tcmpl\td1,d0"
|
|
# print "\tbcss\tLerr"
|
|
print "\tbcss\t6f"
|
|
}
|
|
|
|
if (b_curpat) {
|
|
print "\ttstw\td2"
|
|
# print "\tbeqs\tLerr"
|
|
print "\tbeqs\t6f"
|
|
}
|
|
|
|
if (b_super) {
|
|
print "\tmoval\tsp@+,a0"
|
|
print "\tmoval\tsp@,a1"
|
|
}
|
|
|
|
# load imm args
|
|
if (nimmarg) {
|
|
for (i = 0; i < narg && arg[i] ~ /^[ad]/; i++) {
|
|
a = arg[i]
|
|
if (a ~ /^d[1-7]=[0-9][0-9]*$/) {
|
|
r = substr(a, 1, 2)
|
|
v = substr(a, 4, length(a)-3)
|
|
print "\tmoveq\t#" v "," r
|
|
}
|
|
}
|
|
}
|
|
|
|
if (c_md) {
|
|
# -1: flush(3), -2: set default(2), other: set by the value(4)
|
|
print "\tmovel\td2,d0"
|
|
print "\taddql\t#1,d0"
|
|
print "\tbeqs\tLcachemd"
|
|
print "\tmoveq\t#2,d1"
|
|
print "\taddql\t#1,d0"
|
|
print "\tbnes\tLcachemd"
|
|
print "\tmoveq\t#4,d1"
|
|
print "Lcachemd:"
|
|
}
|
|
|
|
if (b_scroll) {
|
|
# d1 has 16
|
|
print "\tcmpl\td1,d2"
|
|
print "\tbcss\tLscriocs"
|
|
print "\tmovel\td2,d1"
|
|
print "Lscriocs:"
|
|
}
|
|
|
|
if (iocs_trap15) {
|
|
print "\tmoveal\tsp@(" argoff "),a0 | inregs"
|
|
print "\tmoveml\ta0@,d0-d7/a1-a6"
|
|
argoff += 4
|
|
}
|
|
|
|
if (iocsno != "(none)") {
|
|
if (iocsno ~ /^[89abcdef]./)
|
|
iocsno = "ffffff" iocsno
|
|
print "\tmoveq\t#0x" iocsno ",d0"
|
|
}
|
|
print "\ttrap\t#15"
|
|
|
|
if (iocs_trap15) {
|
|
print "\tmoveal\tsp@(" argoff "),a0 | outregs"
|
|
print "\tmoveml\td0-d7/a1-a6,a0@"
|
|
}
|
|
|
|
if (err_d0 && noarg) {
|
|
print "\ttstl\td0"
|
|
# print "\tbnes\tLerr"
|
|
print "\tbnes\t6f"
|
|
}
|
|
|
|
# SAVERESULTS
|
|
# XXX this should be more intelligent
|
|
if (noarg == 0)
|
|
;
|
|
else if (oarg == "od2") {
|
|
print "\tmoveal\tsp@(" argoff "),a0"
|
|
argoff += 4
|
|
print "\tmovel\td2,a0@"
|
|
} else if (oarg == "od1 od2 od0") {
|
|
print "\tmoveml\tsp@(" argoff "),a0/a1"
|
|
argoff += 8
|
|
print "\tmovel\td1,a0@"
|
|
print "\tmovel\td2,a1@"
|
|
print "\tmoveal\tsp@(" argoff "),a0"
|
|
argoff += 4
|
|
print "\tmovel\td0,a0@"
|
|
} else if (oarg == "od2 od3") {
|
|
print "\tmoveml\tsp@(" argoff "),a0/a1"
|
|
argoff += 8
|
|
print "\tmovel\td2,a0@"
|
|
print "\tmovel\td3,a1@"
|
|
} else if (oarg == "od2 od3 od4 od5") {
|
|
print "\tmoveml\tsp@(" argoff "),a0/a1"
|
|
argoff += 8
|
|
print "\tmovel\td2,a0@"
|
|
print "\tmovel\td3,a1@"
|
|
print "\tmoveml\tsp@(" argoff "),a0/a1"
|
|
argoff += 8
|
|
print "\tmovel\td4,a0@"
|
|
print "\tmovel\td5,a1@"
|
|
} else {
|
|
print "unsupported oarg:", oarg
|
|
exit(1)
|
|
}
|
|
|
|
if ((err_d0 && noarg) || b_curmod || b_curpat)
|
|
# print "Lerr:"
|
|
print "6:"
|
|
|
|
# return value
|
|
if (retd2)
|
|
print "\tmovel\td2,d0"
|
|
|
|
# RESTORE REGISTERS
|
|
if (iocs_trap15) {
|
|
print "\tmoveml\tsp@+,d2-d7/a2-a6"
|
|
} else if (nsave == 1 || nsave == 2){
|
|
# use movel
|
|
for (i = 16 - 1; i >= 0; i--) {
|
|
if (savereg[i])
|
|
print "\tmovel\tsp@+," savereg[i]
|
|
}
|
|
} else if (nsave > 2) {
|
|
# use moveml
|
|
print "\tmoveml\tsp@+," saveregs
|
|
}
|
|
|
|
|
|
if (b_super)
|
|
print "\tjmp\ta0@"
|
|
else if (!noret)
|
|
print "\trts"
|
|
}
|