Игра "Зона" на ДВК

[Alex_K]

И с адреса 1000 по всей видимости объявление внешней процедуры или функции в вызовом типа FORTRAN.

Действительно. В качестве примера:

Скрытый текст

PROGRAM A;
FUNCTION SUMM(VAR A,B:REAL):REAL; FORTRAN;
VAR A,B,C:REAL;
BEGIN
 A:=1; B:=2; C:=SUMM(A,B)
END.

        .GLOBL  $RESR6,$RESR5,$KORE,$SAV10,$VER
        .GLOBL  $BEGIN,FILE,$TTY,$END
        .RADIX  10
        .GLOBL  SUMM
L0:     JSR     %0,$B74
        .GLOBL  $B74
        JSR     %7,$B126
        .GLOBL  $B126
        JSR     %7,SUMM
        MOV     %1,20(6)
        MOV     %0,18(6)
        MOV     $RESR5,%5
        JSR     %0,$B76
        .GLOBL  $B76
        MOV     (6),6(6)
        ADD     #6,%6
        RTS     %7
        $VER=59.
$BEGIN:
        ADD     #12,$KORE
        JSR     %7,$B127
        .GLOBL  $B127
        MOV     #1,-(6)
        JSR     %7,$B88
        .GLOBL  $B88
        MOV     (6)+,@%5
        MOV     (6)+,2(5)
        MOV     #2,-(6)
        JSR     %7,$B88
        MOV     (6)+,4(5)
        MOV     (6)+,6(5)
        CMP     -(6),-(6)
        MOV     %5,-(6)
        MOV     %5,%0
        ADD     #4,%0
        MOV     %0,-(6)
        MOV     #2,-(6)
        MOV     %6,%4
        JSR     %7,L0


        MOV     (6)+,8(5)
        MOV     (6)+,10(5)
        JMP     $END
        .END

[свернуть]