form, вот смотри что в ассемблере получается
(после pascal трансляции)
Код:
.TY TPQQQ1.MAC
        .TITLE  TPQQQ1
        .MCALL  .TTYIN

        .RADIX  10
        .GLOBL  $RESR5,$RESR6,$FILE,$END
        .GLOBL  $BEGIN,$VER
L0:
        JSR     %7,$B127
        .GLOBL  $B127
        BIS     #^O10000,@#^O44
        .TTYIN
        CMPB    R0,#27.
        BNE     1$
        .TTYIN
 1$:    CMPB    R0,#13.
        BNE     2$
        .TTYIN
 2$:    MOVB    R0, 2(SP)

        MOV     (6),2(6)
        ADD     #2,%6
        RTS     %7
        $VER=12.
$BEGIN:

        MOV     #6,-(6)
        .GLOBL  $B70
        JSR     %7,$B70
        MOV     (6)+,%5
        MOV     (6),(5)+
        MOV     2(6),(5)+
        MOV     %5,$RESR5
        MOV     #14,-(6)
        CLR     -(6)
        JSR     %7,$B20
        .GLOBL  $B20
        MOV             #L1,-(6)
        MOV     #21,-(6)
        MOV     #21,-(6)
        JSR     %7,$B32
        .GLOBL  $B32
        MOV     #15,-(6)
        CLR     -(6)
        JSR     %7,$B20
        JSR     %7,$B36
        .GLOBL  $B36
        MOV     %5,-(6)
        JSR     %7,L0
        MOV             #L2,-(6)
        MOV     #8,-(6)
        MOV     #8,-(6)
        JSR     %7,$B32
        JSR     %7,$B36
        MOV     %5,-(6)
        JSR     %7,L0
        MOV             #L3,-(6)
        MOV     #3,-(6)
        MOV     #3,-(6)
        JSR     %7,$B32
        MOV     @%5,-(6)
        MOV     #7,-(6)
        JSR     %7,$B24
        .GLOBL  $B24
        JSR     %7,$B36
        JMP     $END
L1:     .WORD   24942
        .WORD   28022
        .WORD   29801
        .WORD   8293
        .WORD   24684
        .WORD   30050
        .WORD   8288
        .WORD   27755
        .WORD   30561
        .WORD   31593
        .WORD   117
L2:     .WORD   26741
        .WORD   29728
        .WORD   8569
        .WORD   8481
        .WORD   0
L3:     .WORD   22850
        .WORD   69
        .END


.