 jsr get_YN see if guy wants a list of available models
 fdb w_Lsttab
 fdb 0
 bne 00f
 ldd #STDERR write out heading
 sys ind,w_Tabhdr
 ldu #DNT print device name table
10 ldy #Tab_mod copy model name
 ldb #8
 leax DNTname,u
11 lda ,x+
 sta ,y+
 decb
 bne 11b
 ldd DNTcyl,u
 ldx #Tab_cyl
 jsr cvtdec
 ldd DNTheads,u
 ldx #Tab_hds
 jsr cvtdec
 ldd DNTst,u
 ldx #Tab_spt
 jsr cvtdec
 ldd #STDERR
 sys ind,w_Tabdet
20 leau DNTsize,u bump to next entry
 cmpu #DNTend end of table?
 blo 10b
00 ldd #STDERR write out prompt
 sys write,Model,ModelS
 data
Model fcc $d,'Disk Model Name: '
ModelS equ *-Model
*
Badmodel fcc '********' Illegal model name
*
w_Lsttab fcb write
 fdb 00f,01f-00f
00 fcc $d,'Do you want a list of available models? '
01
*
w_Tabhdr fcb write
 fdb 00f,01f-00f
00 fcc $d,'Model Name    Cylinders    Heads   Sectors/Track'
   fcc $d,'==========    =========    =====   ============='
01
*
w_Tabdet fcb write
 fdb 00f,01f-00f
00 fcc $d
Tab_mod fcc '********'
   fcc '     '
Tab_cyl fcc '   ***'
   fcc '     '
Tab_hds fcc '    **'
   fcc '     '
Tab_spt fcc '    **'
01
 text
