Что-то как-то заработало, но до победы далеко

[spamsink]

Компилятор начал делать вид, что как-то работает.

 40000    1  0  (*=L2*)
 40001    2  0 PROGRAM MAIN(INPUT, OUTPUT);
 40001    3  1 VAR I:INTEGER;
 40013    4  2 BEGIN
16 24 00004 15 31 74010     
 40014    5  2 FOR I TO 10 DO
01 010 0021 00 30 00000     
 40015    6  2      WRITELN(I);
10 010 0005 01 003 0050     14 24 74004 15 31 74011     14 24 74004 15 31 74012     01 010 0050 01 004 0021     
01 000 0050 10 006 0004     
 40034    7  0 END.

Относительные адреса почему-то начинаются с 40000 вместо 0, и выделенный жирным адрес не сформировался. Но уже хоть что-то; час назад вообще едва дышал.