Дискуссии вокруг УКНЦ и прочее.

[Alex_K]

Это Вам к form, но вроде вы и сами подтвердили, что смысла особого нет. Знаю только, что народ меняет константу по адресу 016642 и это регулирует задержку.

Вот собственно и команда по этому адресу:

016640  012765  000160  001256    MOV        #000160, 001256(R5)

Задержка может быть разной, в зависимости от быстродействия. В оригинале она была поменьше.
А вот и вызов п/п задержки:

016722  010500                MOV        R5, R0
016724  062700  001256        ADD        #001256, R0
016730  010046                MOV        R0, -(SP)
016732  010500                MOV        R5, R0
016734  062700  001240        ADD        #001240, R0
016740  010046                MOV        R0, -(SP)
016742  004767  164076        CALL       003044

Этой п/п передаются два параметра по ссылке. Т.е. п/п задежки при описании на Паскале будет как procedure L03044(var DEL1,DEL2:integer);.

А по поводу смысла. В первых командах ожидается, что RT-11 освободила свои внутренние буферы при выводе на экран. Ввод идёт по прерываниям, скорость 9600 бод. И чтобы узнать, что вывод закончился, пользовались вот таким методом.

[Advertiser]