= i; putc (i, fobj); = segtab [y]. len +4; c + = i; putc (i, fobj); = 0; c + = i; putc (i, fobj); = y +1; c + = i; putc (i, fobj); = 0; c + = i; putc (i, fobj); = 0; c + = i; putc ( i, fobj); = fopen (fname [y], В«rbВ»); (char x = 0; x
{i = getc (ftmp); c + = i; (i, fobj);
} (ftmp); = 0-c; putc (i, fobj);
} [pmdf] = ' 0';// запис - таблиця посилань (модифікаторів)
c = 0; = 0x9c; c + = i; putc (i, fobj); = 2 * strlen (modif) +1; c + = i; putc (i, fobj); = 0; c + = i; putc (i, fobj); = 0xc8; c + = i; putc (i, fobj); = modif [0]; c + = i; putc (i, fobj); = 0x54; c + = i; putc (i, fobj); = modif [1]; c + = i; putc (i, fobj); (y = 2; y
{i = 0xc4; c + = i; putc (i, fobj); = modif [y]; c + = i; putc (i, fobj); = 0x54; c + = i; putc ( i, fobj); = modif [y +1]; c + = i; putc (i, fobj);
} = 0-c; putc (i, fobj); (fobj, В«% c% c% c% c% c% c% c% c% c% cВ», 0x8a, 0x7 , 0x0,
xc1, 0x0, 0x2, 0x2, 0x0, 0x0, 0xaa);
// запис - кінець об'єктного файлу
/////////////////////system information (); (); (В»SYMTAB n");// вивід на екран таблиць:
printf (В»name disp seg n");// SYMTAB, SEGTAB і табл. посилань (i = 0; i
// printf (В«modifikatory n");
// for (i = 0; i
getch (); (0);// вихід з транслятора.
} stk2pol (char st [80], char pol [4] [8])// розбиття рядка на поля
{fl = 0, k = 0, j = 0;// внутр. перем.-лічильники та прапори = 0; ((st [i]! = ' 0') && (st [i]! = ' n'))// повторювати поки не кінець рядка
{if ((st [i] == '') | | (st [i] == ',') | | (st [i] = = ' ') | | (j == 8))
{if (fl)// if роздільник - перехід на
{pol [k] [j] = ' 0';// заполн. наступного поля
j = 0; + +; (k == 4) return;// max кол-во полів = 4 = 0;
}
} if (st [i] == ';') {for (; k <= 3; k + +) pol [k] [0] = ' 0';
return;// if коментар - поля нульові
} {fl = 1;// запис символу в поточне поле
pol [k] [j] = st [i]; + +;
} + +;
} [k] [j] = ' 0'; + +; (; k <= 3; k + +)...
