%
% split cnc files for google cloud platform device config
% break apart and transmit blocks of machine communication text
%
%%% "c:\_____IMR\750 GAS BLOCK O35 test"
%%% "d0123E25E3ED317F7FE"
%
% stack: program-file device-id
%
!Mach.Device
0 !Mach.Block
%
% clear the current parts of the transfer
%
_Mach.Device &"\*.out" ofconn delfiles

dup !Mach.File
*imrcncpr
0x1A char dup & &

dup _Mach.Device &"\upload.all" ofconn writeb
%%% *machsenf(

dup _Mach.File ".rmk" reextend writeb
{
 isnull ?
 dup 1000 left _Mach.Block hex 4 prezero ^ ^"|=|"
 _Mach.Device &"\" &_Mach.Block &".out" ofconn
"out" log)(
 writeb
 -1000 left
 +:Mach.Block
} loop
pop
_Mach.Block
"Block final" log)(
!Mach.Xblock