Написание Одномерного массива + Резидентной программы на Assembler

[7747853]

Товарищи, очень нужна помощь "знающих" людей. Сам в этом деле не сведущь, поэтому надеюсь только на вас.
Нужно написать 2 программы:

1)Сформировать одномерный массив A={ai} (i=1...30), где ai вычисляется по формулам ai=(i+75)/100+(i/2+i/3) 0<i<31


2)Разработать алгоритм и написать резидентную программу, выводящую на экран характеристики видеосистемы. При нажатии комбинации клавиш Ctrl/S - вывести на экран данные, Ctrl/X - выгрузить программу из оперативной памяти.


Если возможно, то с объяснением.

[MyLastHit]

Возможно и не исключено что при указании Языка программирования попытки помощи вам, будут гораздо продуктивнее.

[7747853]

Прошу прощения, тормознул, исправил название.
Язык программирования - Ассемблер.

[openatom]

Сообщение от 7747853

Прошу прощения, тормознул, исправил название.
Язык программирования - Ассемблер.

Советую почитать...)
http://shackmaster.narod.ru/tsr.htm

[openatom]

Народ, настрочил прогу, которая выводит характеристики видеосистемы, но она зависает на уровне компиляции, подскажите где ошибки и что нужно исправить?

.286
CSEG SEGMENT
ASSUME CS:CSEG, DS:CSEG, SS:CSEG
org 100h
start:
        jmp init
oldint9 dd ?    
        dw 0ABCDh
int9:
        push AX                 ;Сохранение регистров
        push BX
        push CX
        push DX
        push BP
        push ES
        push DS
        
        xor AX,AX               ;Выход при Ctrl+X
        mov ES,AX
        mov AL,ES:0417h         
        test AL,00000100b       
        jz no
        in AL,60h
        cmp AL,2Dh              ;Сравнение со скан кодом X (2Dh)        
        je unload1
        cmp AL,1Fh              ;Сравнение со скан кодом S (1Fh)
        je stat
no:
        jmp noact
unload1:
        jmp unload
stat:
        mov bx,0000h
    mov cx,64d
    go:
        mov ax,[bx]
    mov di,offset envir+10
    wrd_asc
    add bx,4d
    inc si
    loop go
    
wrd_asc:
        pusha
    mov bx,0F000h
    mov dl,12
    mov cx,4
cccc:
        push cx
    push ax
    and ax,bx
    mov cl,dl
    shr ax,cl
    bin_asc
    mov byte ptr [si],al
    inc si
    pop ax
    shr bx,4
    sub dl,4
    pop cx
    loop cx
    popa
bin_asc:
        cmp al,9
    ja lettr
    add al,30h
    jmp ok
lettr:
        add al,37h
envir db 'Вывод=****h',13,10
    
noact:  
        pop DS          ;Восстановление регистров
        pop ES
        pop BP
        pop DX
        pop CX
        pop BX
        pop AX
        jmp CS:oldint9 ; вернемся к старому обработчику
 
unload: 
        push DS
 
        mov AX,2509h            ;Восстановление исходного
                                ;вектора 9 прерывания
        lds DX,CS:oldint9       
        int 21h
 
        pop DS
 
        mov ES,CS:002Ch         ;Выгрузка окружения
        mov AH,49h
        int 21h
        
        push CS                 ;Выгрузка программы
        pop ES
        mov AH,49h
        int 21h
 
        jmp noact
endrz:
mes_l   db 'Rezident loaded',0Dh,0Ah,'$'
mes_nol db 'Rezident is loaded',0Dh,0Ah,'$'
init:
        mov AX,3509h            ;Проверка на повторную загрузку,
        int 21h                 ;сохранение старого
        cmp ES:[BX-2],0ABCDh    ;и установка нового вектора 9 прер.
        je exit
        mov word ptr oldint9+2,ES
        mov word ptr oldint9,BX
        mov AX,2509h
        mov DX,offset int9
        int 21h         
 
        mov AH,9                
        mov DX,offset mes_l
        int 21h
 
        mov DX,offset endrz     ;Завершаем программу,
        int 27h                 ;оставляя резидентную часть
exit:   
        mov AH,9                
        mov DX,offset mes_nol
        int 21h
        
        mov AX,4C00h
        int 21h
CSEG ENDS
        END start

[DiemonStar]

она зависает на уровне компиляции

что пишет при этом? на что ругается?

[Serge_Bliznykov]

TASM выдаёт ошибки при компиляции. возможно, что это какие-то хитрые макрокоманды.
но мне не очень понятно, что автор программы хотел этим сказать:

    mov di,offset envir+10
    wrd_asc
    add bx,4d
    inc si
    loop go
    
wrd_asc:
    pusha
    mov bx,0F000h
    mov dl,12
    mov cx,4
cccc:
    push cx
    push ax
    and ax,bx
    mov cl,dl
    shr ax,cl
    bin_asc

вот здесь очевидная ошибка - в команде loop нужно указывать метку

    shr bx,4
    sub dl,4
    pop cx
    loop cx
    popa

тут тоже очевидно: метка перехода ok не определена в программе:

bin_asc:
    cmp al,9
    ja lettr
    add al,30h
    jmp ok

это то, что касается компиляции.
на собственно алгоритм я даже не смотрел...