

;print $_FILE

serial 1 init 2 16550
print @spara(--X )
print @spara(--X , 0)
print @spara(--X , 0,1)
print @spara(--X , 1)
print @spara(--X , 1, 1)

print @spara( --X1 )
print @spara(--X1 , 1)
print @spara(--X2 )
print @spara(--X2,1 )

print @spara("",1 )
print @spara( --Y ,1 )

serial 1 push @spara(--X , 1)

