Учебники

Попугай — Филиалы

Январь 7, 2019

Код становится немного скучным без контроля потока; для начала, попугай знает о ветвлении и ярлыках. Операция ветвления эквивалентна переходу Perl: 

         branch TERRY
JOHN:    print "fjords\n"
         branch END
MICHAEL: print " pining"
         branch GRAHAM
TERRY:   print "It's"
         branch MICHAEL
GRAHAM:  print " for the "
         branch JOHN
END:     end

Он также может выполнять простые тесты, чтобы увидеть, содержит ли регистр истинное значение: 

         set I1, 12
         set I2, 5
         mod I3, I2, I2
         if I3, REMAIND, DIVISOR
         
REMAIND: print "5 divides 12 with remainder "
         print I3
         branch DONE
         
DIVISOR: print "5 is an integer divisor of 12"

DONE:    print "\n"
         end

Вот как это будет выглядеть в Perl для сравнения: 

$i1 = 12;
$i2 = 5;
$i3 = $i1 % $i2;

if ($i3) {
   print "5 divides 12 with remainder ";
   print $i3;
} else {
   print "5 is an integer divisor of 12";
}

print "\n";
exit;

Попугай Оператор

У нас есть полный спектр числовых компараторов: eq, ne, lt, gt, le и ge. Обратите внимание, что вы не можете использовать эти операторы для аргументов разнородных типов; вам даже может понадобиться добавить суффикс _i или _n к оператору, чтобы указать, какой тип аргумента вы используете, хотя ассемблер должен это угадать вам, когда вы это прочитаете.

42
Share: