ifdef device
    em device
FI
define device a 0t3693
pf "[%8x]  flow %2x: ", $1, ((*(($1)+0t16))&0xFF)
printbits "CD:CTS:IXON:INXOFF:TXBLKD:IXANY:NEEDTX:KBDSCAN", ((*(($1)+0t16))&0xFF)
printf "\n"
pf "  cflag     %4x: ", ((*(($1)+0t18))&0xFFFF)
cbaud (((*(($1)+0t18))&0xFFFF))
pf "  modem     %2x: ", ((*(($1)+0t17))&0xFF)
printbits "TX_CRC_ENAB:RTS:SDLC_CRC_16:TX_ENABLE:SEND_BREAK:DTR",((*(($1)+0t17))&0xFF)
printcase "TX5:TX7:TX6:TX8" (((*(($1)+0t17))&0xFF)&0x60 ) >> 3
pf "\n"
pf "  txcnt:    %8x        cmdad: %8x\n  txptr:    %8x        datad: %8x", (*(($1)+0t0)), (*(($1)+0t8)), (*(($1)+0t4)), (*(($1)+0t12))
pf "  vector: %4x ", (*(($1)+0t36))
IF ((*(($1)+0t36))) < 10
  pf "ATBUSINTVEC"
  printcase "0:1:2:3:4:5:6:7:8:9:10:11:12:13:14:15", (*(($1)+0t36))
elseif ((*(($1)+0t36))) > F
  pf "MBUSINTVEC"
  printcase "0:1:2:3:4:5:6:7:8:9:10:11:12:13:14:15", (*(($1)+0t36)) - 10
FI
pf "\n  p_proc:   %8x(%y)\n", (*(($1)+0t28)), (*(($1)+0t28))
pf "  c_proc:   %8x(%y)\n", (*(($1)+0t32)), (*(($1)+0t32))
pf "  tx:       %8x(%y)   rx: %8x(%y)\n", (*(($1)+0t44)), (*(($1)+0t44)),(*(($1)+0t52)),(*(($1)+0t52))
pf "  ex:       %8x(%y)   sr: %8x(%y)  ir: %8x(%y)\n", (*(($1)+0t48)), (*(($1)+0t48)), (*(($1)+0t56)), (*(($1)+0t56)), (*(($1)+0t40)), (*(($1)+0t40))
.
ifdef device+
    em device+
FI
define device+ 1 0t32
cm device *$1
sa 1 $1+4
ec 1
nx.
ifdef bdevsw
  em bdevsw
FI
define bdevsw a 0t591
printf "d_open     %8x(%y)\n", (*(($1)+0t0)),(*(($1)+0t0))
printf "d_close    %8x(%y)\n", (*(($1)+0t4)),(*(($1)+0t4))
printf "d_strategy %8x(%y)\n", (*(($1)+0t8)),(*(($1)+0t8))
printf "d_print    %8x(%y)\n", (*(($1)+0t12)),(*(($1)+0t12))
printf "d_size     %8x(%y)\n", (*(($1)+0t16)),(*(($1)+0t16))
printf "d_xpoll    %8x(%y)\n", (*(($1)+0t20)),(*(($1)+0t20))
printf "d_xhalt    %8x(%y)\n", (*(($1)+0t24)),(*(($1)+0t24))
printf "d_name     %S\n",  (*(($1)+0t28))
printf "d_tab      %8x\n", (*(($1)+0t32))
printf "d_flag     %8x\n", *(*(($1)+0t36))
printf "d_cpu      %8x\n", (*(($1)+0t40))
.
ifdef bdevsw+
    em bdevsw+
FI
define bdevsw+ i 0t34
cm bdevsw $1
sa 1 $1+0t44
ec 1
nx.
ifdef bdevsw#
    em bdevsw#
FI
define bdevsw# i 0t38
sa 1 bdevsw+(0t44 * $1)
cm bdevsw $1
.
ifdef cdevsw
  em cdevsw
FI
define cdevsw a 0t755
printf "d_open     %8x(%y)\n", (*(($1)+0t0)),(*(($1)+0t0))
printf "d_close    %8x(%y)\n", (*(($1)+0t4)),(*(($1)+0t4))
printf "d_read     %8x(%y)\n", (*(($1)+0t8)),(*(($1)+0t8))
printf "d_write    %8x(%y)\n", (*(($1)+0t12)),(*(($1)+0t12))
printf "d_ioctl    %8x(%y)\n", (*(($1)+0t16)),(*(($1)+0t16))
printf "d_mmap     %8x(%y)\n", (*(($1)+0t20)),(*(($1)+0t20))
printf "d_segmap   %8x(%y)\n", (*(($1)+0t24)),(*(($1)+0t24))
printf "d_xpoll    %8x(%y)\n", (*(($1)+0t32)),(*(($1)+0t32))
printf "d_xhalt    %8x(%y)\n", (*(($1)+0t36)),(*(($1)+0t36))
printf "d_ttys     %8x\n", (*(($1)+0t40))
printf "d_str      %8x\n", (*(($1)+0t44))
printf "d_name     %S\n",  (*(($1)+0t48))
printf "d_flag     %8x\n", *(*(($1)+0t52))
printf "d_cpu      %8x\n", (*(($1)+0t56))
.
ifdef cdevsw+
    em cdevsw+
FI
define cdevsw+ i 0t34
cm cdevsw $1
sa 1 $1+0t60
ec 1
nx.
ifdef cdevsw#
    em cdevsw#
FI
define cdevsw# i 0t38
sa 1 cdevsw+(0t60 * $1)
cm cdevsw $1
.
ifdef conssw
  em conssw
FI
define conssw "" 0t364
printf "*co       %8x(%y)\n", (*((conssw)+0t0)),(*((conssw)+0t0))
printf "co_dev    %8x\n", (*((conssw)+0t4))
printf "*ci       %8x(%y)\n", (*((conssw)+0t8)),(*((conssw)+0t8))
printf "co_odev   %8x\n", (*((conssw)+0t16))
printf "co_idev   %8x\n", (*((conssw)+0t12))
printf "co_lines  %8x\n", (*((conssw)+0t20))
printf "co_break  %8x\n", ((*((conssw)+0t24))&0xFF)
.
ifdef fmodsw
  em fmodsw
FI
define fmodsw a 0t154
printf "f_name  %S\n", ($1)+0t0
printf "f_str   %8x\n", (*(($1)+0t12))
printf "f_flag  %8x\n", (*(($1)+0t16))
printf "f_cpu   %8x\n", (*((conssw)+0t12))
.
ifdef fmodsw+
    em fmodsw+
FI
define fmodsw+ i 0t34
cm fmodsw $1
sa 1 $1+0t24
ec 1
nx.
ifdef fmodsw#
    em fmodsw#
FI
define fmodsw# i 0t38
sa 1 fmodsw+(0t24 * $1)
cm fmodsw $1
.