Получить из PSP адрес окружения

db  строка_1,0
db  строка_2,0
...
db  строка_т,0,0,х,х
db  строка_запуска_программы,0

mov di,[cs:2ch]
mov es,di
xor di,di;es:di=адрес переменных окружения из PSP[2ch]
;ищем 2 нуля - т.к. строка запуска программы за ними
xor si,si;si=номер строки, строки нумеруются от 0
xor cx,cx
dec cx
mov al,0
findnext:
inc si;увеличим номер строки
repne scasb;ищем ноль в конце
cmp es:di,al
jne findnext
;нашли 2 нуля, пропскаем 2 цифры (xx,0)
add di,2
;теперь в es:di - адрес строки, в si - ее номер
call printnum
call printasciiz
ret
printasciiz proc;печать строки, оканчивающейся на 0
push ds
push es
push di
pop si
pop ds
jmp nxtchar
addchar:
int 29h
nxtchar:
lodsb
cmp al,0
jne addchar
pop ds
ret
endp
printnum proc;печать двухзначного номера в SI
mov al,13
int 29h
int al,10
int 29h
mov ax,si
mov dl,10
div dl
add ax,3030h
int 29h
mov al,ah
int 29h
mov al,' '
int 29h
ret
endp
;проверяется si на равенство искомой строки
;xor di,di;es:di=адрес переменных окружения из PSP[2ch]
;ищем 2 нуля - т.к. строка запуска программы за ними
xor si,si;si=номер строки, строки нумеруются от 0
xor cx,cx
dec cx
mov al,0
findnext:
cmp si,5;ищется 5-я строка:
jne findend
call printasciiz
jmp nxt1
findend:
inc si;увеличим номер строки
repne scasb;ищем ноль в конце
cmp es:di,al
jne findnext
nxt1:
;нашли 2 нуля, конец поиска, печатаем "строка не найдена"
;3. каждую строку еще и проверяешь на присутствие в нем '@'
xor di,di;es:di=адрес переменных окружения из PSP[2ch]
xor bx,bx;адрес текущего символа
xor si,si;si - номер страницы
tst:
mov ax,[es:bx]
inc bx
cmp ax,0;встретились 2 нуля?
je seed
cmp al,0;началась новая строка?
jne nxtchar
mov di,bx;в di-начало строки
inc si;номер строки
nxtchar:
cmp al,'7'
jne tst
call printnum
push si
call printasciiz
pop si
jmp tst
seed:

mov di,[cs:2ch]
mov es,di
xor di,di
xor si,si
xor cx,cx
dec cx
mov al,0
findnext:
inc si
repne scasb
cmp es:[di],al
jne findnext
add di,3
call printnum
call printasciiz
ret
printasciiz proc
push ds
push es
push di
pop si
pop ds
jmp nxtchar
addchar:
int 29h
nxtchar:
lodsb
cmp al,0
jne addchar
pop ds
ret
endp
printnum proc
mov al,13
int 29h
int al,10
int 29h
mov ax,si
mov dl,10
div dl
add ax,3030h
int 29h
mov al,ah
int 29h
mov al,' '
int 29h
ret
endp
xor si,si
xor cx,cx
dec cx
mov al,0
findnext:
cmp si,5
jne findend
call printasciiz
jmp nxt1
findend2:
inc si
repne scasb
cmp es:[di],al
jne findnext2
nxt1:
xor di,di
xor bx,bx
xor si,si
tst:
mov ax, es:[bx]
inc bx
cmp ax,0
je seed
cmp al,0
jne nxtchar2
mov di,bx
inc si
nxtchar2:
cmp al,'7'
jne tst
call printnum
push si
call printasciiz
pop si
jmp tst
seed:

;dumps environment
PSP_Env =   2Ch     ; смещение до сегмента окружения(environment)
 
    org 100h
start:  mov     ax, word [cs:PSP_Env]
    mov     ds,ax
    xor     si,si
    mov dx,si
_loop:  call    prfx
    call    cputs
nxt:    inc dx ; счетчик строк++
    cmp byte [si+1],0
    jnz _loop
;выводим путь, откуда запущена прога
    lodsw
_l1:    mov cx, ax
        call    cputs
        loop    _l1
        ret
; выводим ASCIZ-строку
cputs:  lodsb
    or  al,al
    jz  @F
    int 29h
    jmp cputs
@@: ret
; выводим префикс строки
prfx:   mov ax, 0D0Ah   ; новая строка - CR/LF
    call    cputw
; выводим номер строки
    mov ax, dx
    aam
    xchg    ah, al
    or  ax, '00'
    call    cputw
; выводим пробел и двоеточие
    mov ax,' :'
; выводит 2 байта из AX
cputw:  int 29h
    xchg    ah, al
    int 29h
    ret

span class="kw4"> model tiny
.386
.code
;dumps environment
PSP_Env =   2Ch     ; смещение до сегмента окружения(environment)
 
    org 100h
start:  mov     ax, word [cs:PSP_Env]
    mov     ds,ax
    xor     si,si
    mov dx,si
_loop:  call    prfx
    call    cputs
nxt:    inc dx
    cmp byte ptr [si+1],0
    jnz _loop
;выводим путь, откуда запущена прога
    lodsw
_l1:    movzx   cx, ah
        call    cputs
        loop    _l1
        ret
; выводим ASCIZ-строку
cputs:  lodsb
    or  al,al
    jz  @F
    int 29h
    jmp cputs
@F: ret
; выводим префикс строки
prfx:   mov ax, 0D0Ah   ; новая строка - CR/LF
    call    cputw
; выводим номер строки
    mov ax, dx
    aam
    xchg    ah, al
    or  ax, '00'
    call    cputw
; выводим пробел и двоеточие
    mov ax,' :'
; выводит 2 байта из AX
cputw:  int 29h
    xchg    ah, al
    int 29h
    ret
    end     start