;П/п определения названия и серийноео номера винчес-
           ;тера
           ;(C) GAI software, 1996
           ;Если прерывание по вектору 4, то нет контроллера
           ;<<Альтпро>> для винта

           HDD$STA=177740
           HDD$DAN=HDD$STA+16

           MOV   #HDD$STA,R5
           MOV   #HDD$DAN,R4
           MOV   #23,(R5)
           TSTB  (R5)
           BPL   .-2
           BITB  #10,(R5)
           BNE   .-4
           MOV   #12,R2
           CALL  PROP
           MOV   #10.,R2
           MOV   #NUMBER,R3
           CALL  TYPE
           MOV   #7.,R2
           CALL  PROP
           MOV   #MODEL,R3
           MOV   #24,R2
           CALL  TYPE
           MOV   #400-12-10.-7.-24,R2
           CALL  PROP
           MOV   #TXT,R1
           CLR   R2
           EMT   20
           EMT   6
           RET

PROP:
1:         CALL  RWORD
           SOB   R2,1
           RET
TYPE:
1:         CALL  RWORD
           COM   R0
           SWAB  R0
           MOVB  R0,(R3)+
           SWAB  R0
           MOVB  R0,(R3)+
           SOB   R2,1
           RET
RWORD:     TSTB  (R5)
           BPL   .-2
           MOV   (R4),R0
           RET
TXT:       .ASCII /Серийный номер: /
NUMBER:    .BLKB 20.,40   ;Второе число - код байта
           ;Здесь получается серийный номер
           .ASCII <12>/Модель: /
MODEL:     .BLKB 50,40    ;Второе число - код байта
           ;А здесь - модель
           .BYTE 0
           .EVEN
           .END