

 ttl UniFLEX Disk Format Program
 sttl Get Disk Parameters
 opt nol
 lib sysdef
 opt lis
 pag
 text
*
* getparams
*  -- Not supported for Floppy Diskettes
*
 global getparams
getparams pshs d,x,y,u
 tst Get_parms +P option set?
 beq 99f no - exit
 ldd #2
 sys write,Get_em,Get_es
 ldd #$00FF
 sys term
99 puls d,x,y,u,pc return
*
Get_em fcc '"+P" Option not supported! - Aborted',$d
Get_es equ *-Get_em
