Студентам с вопросами о лабораторных работах сюда

l_inc · 28 апр 2009

AHAPXUCT
Опять двадцать пять... Попробую объяснить более подробно.

хэндл становился частью буфера и чтение на нем обрывалось
Нажмите, чтобы раскрыть...

Хэндл не становился частью буфера. Само слово handle - это часть адреса, а именно - смещение. Ваша инструкция
mov handle,ax
равносильная следующей:
mov ds:handle, ax
, т.е. адрес, по которому записывается значение регистра ax вычисляется следующим образом: ds*10h + handle, где handle - это некое число, являющееся смещением переменной handle относительно начала сегмента данных. Очевидно, что при изменении значения ds также изменится и значение выражения ds*10h + handle. В Вашем случае
mov handle, ax
запишет значение регистра ax в область видеопамяти, т.к. Вы сами засунули в ds указатель на область видеопамяти (уменьшенный в 16 (10h) раз, если быть точным).
Аналогично инструкция
mov bx,handle
, которая равносильна инструкции
mov bx,ds:handle
будет брать данные не из памяти, где реально лежит переменная handle, а из области видеопамяти (а у Вас там в Вашем последнем коде ничего даже близко похожего на хэндл открытого файла нету). Теперь какие есть выходы:
1) Настроить, например, es на начало сегмента данных (т.е. присвоить ему старое значение ds) и выполнять обращение к сегменту данных через переопределение сегмента:
mov bx,es:handle
2) Вернуть значение ds на место перед тем, как обращаться к сегменту данных (а также изменять его на новое значение тоже после обращения к сегменту данных), в частности к переменной handle.
3) Хранить значение хэндла не в сегменте данных, а, например, в стеке.

Как я уже сказал, нет необходимости открывать файл повторно. А Вы упорно оставляете вызов функции 3Dh. Если убрать кусок кода, обращающийся к этой фунции, то проблема решается простой перестановкой инструкций подмены ds и обращения к handle. Ну и следите же Вы наконец, чтобы НИ ОДНО обращение к handle — ни чтение ни запись — не происходило через новый указывающий на видеопамять ds!
Ну и собственно... не знаю... если так задумано, что сохранённый файл должен хранить помимо самих символов ещё и их цвета... ну что ж... по большому счёту можно это оставить и так.

AHAPXUCT · 28 апр 2009

l_inc Я извиняюсь, но возник глюк : После изменений с файлами как Вы сказали, все работает отлично , если только я не нажму "этот злополучный Ентер"
Я давно заметил но не оброщал внимание, если нажать на ентер а потом стрелками перейти на освободиашееся место - то курсор зеленеет
Странно потому что если я держу пробел и добиваюсь того же еффекта (перехода на новый ряд) никакой зелени, и файл сохроняется отлично
А с ентером Глюки !
А ведь ентер я в принцыпе пробелами и делаю ! Я измеряю растояние от последнего символа в строке и заполняю его пробелами
Опять я чето упустил, или чтото о чем я не знаю ?

Вот последняя версия кода :

Код (Text):

; редактор

.model small

.stack 100h

.data

InfoMess db 'Text editor.',0ah,0dh

db 'Any key - run programm',0ah,0dh,'$'

Xmax equ 80

Ymax equ 25

entr db 0ah,0dh,'$'

tab equ 09h

cOff db 10,13,'saving... !','$',10,13

FileName db 'asm_file.txt',0

beginMessage DB 10,13,'enter file name !$',10,13

Handle DW ?

.code

MoveCursor proc

cmp dl,0

jge mc_next1

mov dl,Xmax-1

dec dh

cmp dh,0

jge test_cur

xor dx,dx

jmp test_cur

mc_next1:

cmp dl,Xmax-1

jle mc_next2

xor dl,dl

inc dh

cmp dh,Ymax-1

jle mov_cur

mov dl,Xmax-1

mov dh,Ymax-1

jmp test_cur

mc_next2:

cmp dh,0

jge mc_next3

xor dh,dh

jmp test_cur

mc_next3:

cmp dh,Ymax-1

jle test_cur

mov dh,Ymax-1

test_cur:

call AddrSym

cmp si,bp

jg no_move

mov_cur:

xor bx,bx

mov ax,0200h

int 10h

ret

no_move:

mov dx,bx

ret

MoveCursor endp

DelSym proc

call AddrSym

dec bp

mov cx,bp

sub cx,si

mov di,si

inc si

shl si,1

shl di,1

push ds

push es

pop ds

cld

rep movsw

pop ds

mov word ptr es:[di],0720h

ret

DelSym endp

InsSym proc

cmp bp, 80*25

jae exit_InsSym

call AddrSym

push cx

mov cx,bp

sub cx,si

jcxz no_sym

push si

mov di,bp

mov si,bp

dec si

shl si,1

shl di,1

push ds

push es

pop ds

std

rep movsw

pop ds

pop si

no_sym:

shl si,1

mov word ptr es:[si],ax

inc dl

inc bp

call MoveCursor

pop cx

exit_InsSym:

ret

InsSym endp

AddrSym proc

push cx

push ax

push bx

mov si,dx

xor ax,ax; =0

xor bx,bx; =0

and si,00ffh

mov bl,dh

mov al,dh

shl al,1

shl al,1

mov cx,4

add ax, bx ;

shl ax, cl

add si,ax

pop bx

pop ax

pop cx

ret

AddrSym endp

label1:

push ax

push bx

push cx

push dx

push si

push di

push ds

pop es

xor ax,ax

mov ah,09h

mov dx,offset cOff;beginMessage

int 21h

mov ah,3Ch ;Функция создания файла

mov dx,offset FileName

xor cx,cx ;Атрибуты обычные

int 21h

mov handle,ax

; mov dx,offset FileName ; put offset of filename in dx

; mov al,2 ; access mode -read and write

; mov ah,3Dh ; function 3Dh - open the file

; int 21h

push 0b800h

pop ds

mov ah,40h

mov bx,es:handle ;В BX - номер файла

xor si,si

mov si,bp

add si,bp

xor dx,dx

mov cx,si

int 21h

mov ah,3Eh

mov bx,es:handle

int 21h

; pop ds

pop di

pop si

pop dx

pop cx

pop bx

pop ax

jmp getchar

.startup

mov dx,offset InfoMess

mov ax,0900h

int 21h

mov ax,0c07h

int 21h

run:

mov ax,0f00h

int 10h

mov ah,bh

push ax

mov ax,0003h

int 10h

mov ax,0b800h

mov es,ax

xor dx,dx

xor bp,bp

getchar:

mov ax,0700h

int 21h

cmp al,0dh;enter

jne save

jmp endl

save:

cmp al,9h

jne esc

jmp label1

hz2:

call MoveCursor

call InsSym

dec ch

jmp hz1

esc:

cmp al,27;Esc

jne edit

jmp exit

endl:

mov ch,80

sub ch,dl

hz1:

cmp ch,0

jne hz2

jmp getchar

edit:

mov bx,dx

cmp al,8

jne edit0

test dx,dx

jz getchar

dec dl;сдвинуть курсор влево

call MoveCursor

call DelSym;удалить символ под курсором

jmp getchar

edit0:

cmp al,20h

jb edit1

cmp al,7dh

ja edit1

call InsSym

jmp getchar

edit1:

cmp al,0; расширенный ASCII

jne getchar

mov ax,0700h

int 21h

cmp al,48h; стрелка вверх

jne kDown

dec dh

jmp lSetCursor

kDown:

cmp al,50h; стрелка вниз

jne kLeft

inc dh

jmp lSetCursor

kLeft:

cmp al,4bh; стрелка влево

jne kRigth

dec dl

jmp lSetCursor

kRigth:

cmp al,4dh; стрелка вправо

jne getchar

inc dl

lSetCursor:

call MoveCursor

jmp getchar ; вернутся к опросу клавиатуры

exit:

pop dx

mov ax,0000h

mov al,dl

int 10h

mov ax,0500h

mov al,dh

int 10h

exit1:

mov ax, 4c00h ; закончить программу

int 21h

end

l_inc · 28 апр 2009

AHAPXUCT
Честно говоря, код слишком накручен, чтобы было не лень разбираться. Поэтому так... навскидку... зелёный цвет курсора означает, что Вы заполнили в этом месте в видеопамяти байты цвета в качестве зелёного. По всей видимости, происходит это заполненение здесь:

Код (Text):

no_sym:

shl si,1

mov word ptr es:[si],ax

А вот теперь вопрос: а откуда Вы знаете, что в ax то, что Вам нужно? Видимо, значение ax в этом месте сохранилось ещё с момента вызова функции установки курсора:

Код (Text):

mov_cur:

xor bx,bx

mov ax,0200h

int 10h

ret

Подозреваю, что, после замены инструкции
mov word ptr es:[si],ax
на
mov word ptr es:[si],0720h
курсор зеленеть перестанет. Но багов ещё полно... И ИМХО проще написать с нуля по предложенному FatMoon принципу, чем попереправить все эти баги. И реализация всех действий при этом существенно упростится.

murder · 28 апр 2009

Вот для примера процедура print выводит буфер по адресу ds:si длиной cx на экран, при этом учитывается Enter.

Код (Text):

org 100h

mov ax,3

int 10h

mov cx,16

mov si,text

call print

int 16h

ret

text db 'asdasdasd',13,'qweqwe'

print:pusha

push 0B800h

pop es

xor di,di

xor ax,ax

mov bx,160

textout:movsb

inc di

sub bx,2

cmp byte[ds:si],13

jne @f

inc si

dec cx

add di,bx

mov bx,160

@@:

cmp di,4000

ja @f

dec cx

jne textout

@@:

popa

ret

l_inc · 28 апр 2009

murder
А вот к примеру по сути та же самая процедура, только парой строк короче :

Код (Text):

mov ah,09h

int 21h

AHAPXUCT · 28 апр 2009

l_inc
murder и всем остальным СПАСИБО за сотруднечество !
l_inc Ваше предположение по поводу

Код (Text):

mov word ptr es:[si],0720h

оказалось верным, только пришлось сделать копию всей процедуры InsSym вместе с этой заменой строго для кнопки Ентер (ах не зря стоит в изначальной версии этой же процедуры )
Всем еще раз спасибо и с наступающим вас праздником 9го Мая !

FatMoon · 29 апр 2009

Насчет кнопок согласен, но с ентером не так просто (по крайней мере для меня было) , ведь перекинуть курсор в начало нового ряда это и ежу понятно как сделать, а как переместить весь текст за ним ? вот в чем дело
Нажмите, чтобы раскрыть...

Р-р-р... Если делать как ты, то в самом деле сложновато. А если вставлять 2 байта в массив в памяти (не видео-памяти!!!), а потом печатать на экран, то ... все прекрасно само без твоего участия напечатается с новой строки после энтера. Именно 0dh 0ah надо вставлять, иначе может быть либо затертая строка, либо начало строки от середины экрана =)

Noga · 29 апр 2009

Доброго времени суток,

Я на досуге написал простой сканер портов и столкнулся с проблемой.

Я заношу открытые порты вот так:

Код (Text):

.data?

EditText db 1000 dup(?)

.code

ConThr proc

....

mov ebx,dword ptr [sin.sin_port]

bswap ebx

shr ebx,16

invoke wsprintf,ADDR szPort,ADDR ifmt,ebx

invoke lstrcat,offset EditText,ADDR szPort

invoke lstrcat,offset EditText,ADDR comma

next:

....

Соответственно после повторного сканирования, те же порты дописываются в массив например (145, 240, 912, 145, 240, 912). Как мне лучше всего обнулить массив ?

И еще один вопрос. Я встречал конструкции, где используется $CTA0

Например вот :

Код (Text):

push ebx

push $CTA0('%i')

push offset szPort

call wsprintfA

Я предполагаю, что это макрос, где можно его взять?

Y_Mur · 29 апр 2009

Noga

Я предполагаю, что это макрос, где можно его взять?
Нажмите, чтобы раскрыть...

в KmdKit 1.8 by Four-F

FatMoon · 29 апр 2009

Как мне лучше всего обнулить массив ?
Нажмите, чтобы раскрыть...

в простейшем случае записать 0 в начало.
mov byte ptr EditText,0
Но красивше (поскольку это все-таки ассемблер) сделать как-то так:

Код (Text):

mov [ptEditText], EditText ;before loop. Make a pointer to string position

...

...

invoke wsprintf, ptEditText, "%i %s", ebx, ", " ; Is that right???

;MSDN note:

;It is important to note that wsprintf uses the C calling convention (_cdecl),

;rather than the standard call (_stdcall) calling convention. As a result, it is

;the responsibility of the calling process to pop arguments off the stack, and

;arguments are pushed on the stack from right to left.

add ptEditText, eax ;Now you can again do wsprintf, to continue string formation

...

...

mov byte ptr [ptEditText], 0 ;before output

Чего-то я тут мог наврать, насчет косвенной адресации не проснулся еще. Но смысл должен быть понятен. И чего-то там с порядком аргументов и освобождением стека, не зря наверно написано...

FatMoon · 29 апр 2009

Конечно наврал... Причем круто... такой адресации вообще не существует =) Но вот это работающий код, толко что проверил: (fasm)

Код (Text):

include 'win32ax.inc'

.data

sFrmt db "%i %s",0

sComma db ", ",0

align 4

NumArray dd 915, 124, 8080, 9099, 16350, 4

ptEditText dd ?

EditText db 1000 dup(?)

.code

start:

mov [ptEditText], EditText ;before loop. Make a pointer to string position

mov ebx, 6

mov esi, NumArray

@lp:

invoke wsprintf, [ptEditText], sFrmt, dword [esi], sComma

add esi,4

add [ptEditText], eax ;Now we can again do wsprintf, to continue string formation

add esp, 16

dec ebx

jnz @lp

mov esi, [ptEditText]

mov byte ptr (esi-2), 0 ;remove last comma =)

invoke MessageBox,HWND_DESKTOP,EditText,"Win32 Assembly",MB_OK

invoke ExitProcess,0

.end start

FatMoon · 29 апр 2009

как всегда, без редактирования... Вдогонку: если не понятно, к чему это я - это иллюстрация к созданию такой же строки, как у тебя, БЕЗ lstrcat, с очисткой стека после wsprintf, и без дублирования строки. Естественно, чтоб было без дублирования, надо перед формированием новой строки заново сделать mov [ptEditText], EditText

FatMoon · 29 апр 2009

епрст, верните редактирование!!!
вдогонку: вот что значит не привыкший к С и вызовам wsprintf... конечно же, запятую отдельно вовсе не надо, ее включить в шаблон форматирования =)

Код (Text):

.data

sFrmt db "%i, ",0

; sComma db ", ",0

...

invoke wsprintf, [ptEditText], sFrmt, dword [esi]

...

add esp, 12

...

Noga · 29 апр 2009

Y_Mur
FatMoon

Спасибо!

Noga · 30 апр 2009

Доброго времени суток.

У меня возникла проблема в данных кусках кода http://www.everfall.com/paste/id.php?sqw0p7oge3sk

А именно:

Я пытаюсь закрыть тред, но программа падает на этом куске. Олли говорит, что Invalid Handle.

Если я закоменчу:

Код (Text):

invoke getservbyport,eax,ADDR ProtoTCP ; db "TCP",0

mov esi,eax ;â esi óêàçàòåëü íà SERVENT

mov esi,[esi+4]

mov esi,[esi]

mov pServ,esi

То всё работает.

P.S. Медленно конечно сканит, но в ближайшем будущем я это поправлю ).

Noga · 30 апр 2009

Может мне необходимо что-то сохранять?

Student · 2 май 2009

У меня два вопроса. 1. Для выполнения задания необходимо знать как умножаются перестановки и как находится обратная перестановка. Я посмотрел десяток книг по дискретной математике, в некоторых есть раздел "Перестановки", но необходимая информация отсутствует. Объясните кому несложно или подскажите книгу где это есть.
2. Нужно написать программу для нахождения остовного графа методом обхода в ширину. Я реализовал это на Builder 6.0 в следующем виде. Но проблема в том что остовной цикл это минимальный подграф не имеющий циклов. Т.е. при создании должны учитываться веса ребер, которые в данной задаче задаются растоянием между точками. И я не могу понять как это привязать к условию.

Код (Text):

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include <stdlib.h>

#include <conio.h>

#include <stdio.h>

#include <math.h>

#include <iostream.h>

#include <alloc.h>

#define QUEUE struct queue

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

//стуктура элемента очереди

QUEUE

{

int info ;

QUEUE *next ;

};

//координаты точек

int koord[5][2] =

{

{200, 100},

{100, 200},

{200,400},

{500,100},

{400, 300}

};

//матрица смежности

int edge[12][2] =

{{0,1},{0,4},{1,0},{1,2},{2,1},{2,3},{2,4},{3,2},{3,4},{4,0},{4,2},{4,3}};

int vess (int x0, int y0, int x1, int y1)

{

}

int fnd(int z,int v)

{

for(int i=0;i<16;i++)

{

if(edge[i][0]==z && edge[i][1]==v ) return 1;

}

return 0;

}

//рисование линии

void line(int x0, int y0, int x1, int y1)

{

Form1->Image1->Canvas->MoveTo(x0, y0);

Form1->Image1->Canvas->LineTo(x1, y1);

}

//установка цветы линии

void setcolor(int color)

{

Form1->Image1->Canvas->Pen->Width=3;

if(color==1)Form1->Image1->Canvas->Pen->Color=clBlue;

else if(color==4)Form1->Image1->Canvas->Pen->Color=clRed;

}

//структура точки

struct point

{

float x,y; //координаты точки

int info; //номер точки

} points[5];

// добавление в конец очереди

void append( QUEUE **q, int item )

{

// указатель на текущий и предшествующий элементы

QUEUE *current = *q, *prev = 0;

QUEUE *new_node = (QUEUE * ) malloc (sizeof(QUEUE) );

new_node -> info = item; // информационная часть

// адресная часть последнего элемента = 0

new_node -> next = 0;

while(current) // пока не конец очереди

{

// переход на следующий элемент

prev = current; current = current->next;

}

if (prev) prev->next = new_node; // если очередь не пуста

else *q = new_node; // если пуста

}

// извлечение первого элемента

int take_out ( QUEUE **q, int *error)

{

QUEUE *old_item = *q ; // начало очереди

int old_info = 0 ;

if ( *q ) // если очередь не пуста

{

old_info = old_item -> info;

*q = ( *q ) -> next;

free (old_item ); // уничтожение элемента

*error = 0;

} else *error = 1;

return ( old_info );

}

int isempty(QUEUE **q)

{

if(*q) return 0; // если очередь не пуста, возвращается 0

else return 1;

}

//подпись точек

void text(int i,int x,int y)

{

Form1->Image1->Canvas->TextOutA(x,y,

"Point "+IntToStr(i)+" ("+IntToStr(x)+", "+IntToStr(y)+" )");

}

int c[5]; //массив раскраски

void __fastcall TForm1::Button1Click(TObject *Sender)

{

QUEUE *q=0;

int err;

int i,j,p;

//инициализация координат точек

for(i=0;i<5;i++)

{

points[i].x=koord[i][0];

points[i].y=koord[i][1];

points[i].info=i;

}

//изображение графа

for(i=0;i<5;i++)

for(j=0;j<5;j++)

{

setcolor(1);

if(fnd(i,j))

line(points[i].x,points[i].y,points[j].x,points[j].y);//ребро

text(i,points[i].x,points[i].y); //вершина

}

//Метод обхода в ширину

// Установить c[i] = -1, для всех i = 0, 1, ..., n-1.

for (i=0;i<5;i++)

c[i]=-1; //расраска вершин

c[0]=0;

append(&q,0); // запомнить в очередь

while( !isempty(&q) ) // пока очередь не пуста

{

p=take_out(&q,&err);// извлечь вершину из очереди

for(i=0;i<5;i++)

if(fnd(p,i)&&c[i]<0)

{

c[i]=p;

append(&q,i); // нераскрашенные смежные

// вершины запомнить в очередь

}

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{ //изображение остовного графа

for(int i=0;i<5;i++) {

setcolor(4);

line(points[c[i]].x,points[c[i]].y,points[i].x,points[i].y);

}

}

//---------------------------------------------------------------------------

P.S. я написал прогу для нахождения количества неугрожающих друг другу сверхферзей. Из будет не 64, а 6 =)

Noga · 4 май 2009

Проблему решил сам.

Sergey777 · 5 май 2009

Здарвствуйте!!!
У кого есть программа для удаления каталогов с подкаталогами!
Нужна для одной образовательной цели!!!

Mikl___ · 5 май 2009

Sergey777
А форматирование винта в образовательных целях не подойдет?

Войти или зарегистрироваться

Студентам с вопросами о лабораторных работах сюда

l_inc New Member

AHAPXUCT New Member

l_inc New Member

murder Member

l_inc New Member

AHAPXUCT New Member

FatMoon New Member

Noga New Member

Y_Mur Active Member

FatMoon New Member

FatMoon New Member

FatMoon New Member

FatMoon New Member

Noga New Member

Noga New Member

Noga New Member

Student New Member

Noga New Member

Sergey777 New Member

Mikl___ Супермодератор Команда форума

Войти или зарегистрироваться

Студентам с вопросами о лабораторных работах сюда

l_inc New Member

AHAPXUCT New Member

l_inc New Member

murder Member

l_inc New Member

AHAPXUCT New Member

FatMoon New Member

Noga New Member

Y_Mur Active Member

FatMoon New Member

FatMoon New Member

FatMoon New Member

FatMoon New Member

Noga New Member

Noga New Member

Noga New Member

Student New Member

Noga New Member

Sergey777 New Member

Mikl___ Супермодератор Команда форума

Быстрый поиск