; itest .MODEL SMALL include msystem.mac include sys.mac include conio.mac include stov.mac include mbios.mac include say.m include diskete.m include install.m include install.e size_com = 10000+256 len_stack= 15000 .CODE BEGIN START,100h,_main legal db 'HH !!! ',0 secto db 0 error db FALSE f_s db '%S',0 f_b db '%B',0 f_@b db '@B',0 func main initcon release <* size_com,0> initsys initvars ; p argn , if$ argv <1,* diskbuf> stob <* diskbuf>, endif$ if$ halt <1> endif$ initdisk argn , if$ argv <2,* diskbuf> stob <* diskbuf>, endif$ ; pp 쭮 ᪥ ⥭ ⢠ ᤥ savepars if$ diskrdwr and status, 11111000b ; p ⥭ if$ mov error, TRUE endif$ endif$ restpars ; p pp p if$ say <@ legal,@ f_s> else$ say <@ legal+2,@ f_s> endif$ mov BX, diskbuf mov AL, [BX] sub AL, FILL_CHAR mov status, AL say <@ status,@ f_b> endf END START