Python на Assembler (Tasm)

Сегодня напишем в текстовом режиме с использованием прерываний BIOS и DOS змейку на Assembler. Для этого нужно знать основы, уметь ассемблировать (Tasm) и компоновать (Tlink) код.

Для начала напишем основу — змейку, которая перемещается в одном направлении по игровому полю. Змейка будет состоять из символа "*", координаты каждого символа хранятся в памяти.

Посмотреть код

model	small

.data					;Сегмент данных. Храним координаты тела змейки
snake	dw 0000h
		dw 0001h
		dw 0002h
		dw 0003h
		dw 0004h
		dw 7CCh dup('?')

.stack 100h

.code
;В начале сегмента кода будем размещать процедуры
delay proc
        push cx
	mov ah,0
	int 1Ah 
	add dx,3
	mov bx,dx
repeat:   
	int 1Ah
	cmp dx,bx
	jl repeat
	pop cx
	ret
delay endp

start:
	mov ax,@data
	mov ds,ax
	mov es,ax

	mov ax,0003h
	int	10h 			;Очищаем игровое поле

	mov cx,5
	mov ax,0A2Ah
	int 10h 			;Выводим змейку из 5 символов "*"


	mov si,8			;Индекс координаты символа головы
	xor di,di			;Индекс координаты символа хвоста
	mov cx,0001h		;Регистр cx используем для управления головой. При сложении от значения cx будет изменяться координата x или y

main:				;Основной цикл
	call delay
        xor bh,bh
	mov ax,[snake+si]		;Берем координату головы из памяти
	add ax,cx		        ;Изменяем координату x
	inc si				
	inc si
	mov [snake+si],ax		;Заносим в память новую координату головы змеи
	mov dx,ax			
	mov ax,0200h
	int 10h 			;Вызываем прерывание. Перемещаем курсор
	mov ah,02h
	mov dl,002Ah
	int 21h			;Прерывание выводит символ '*'
	
	mov ax,0200h 		
	mov dx,[snake+di]
	int 10h
	mov ax,0200h
	mov dl,0020h
	int 21h			;Выводим пробел, тем самым удаляя хвост
	inc di
	inc di
jmp main
end	start        

Добавим процедуру «key_press» обработки нажатия клавиши и присваивания значения регистру CX, отвечающему за направление головы.

Управление стрелками.

key_press

key_press proc
	mov ax, 0100h
	int 16h
	jz en 			;Без нажатия выходим
	xor ah, ah
	int 16h
	cmp ah, 50h
	jne up
	cmp cx,0FF00h		;Сравниваем чтобы не пойти на себя
	je en
	mov cx,0100h
	jmp en
up:	cmp ah,48h
	jne left
	cmp cx,0100h
	je en
	mov cx,0FF00h
	jmp en
left: cmp ah,4Bh
	jne right
	cmp cx,0001h
	je en
	mov cx,0FFFFh
	jmp en
right: cmp cx,0FFFFh
	je en
	mov cx,0001h
en:
	ret
key_press endp

Вызовем её сразу после вызова процедуры delay:

main:
	call delay
    call key_press

Накормим змейку, создаём процедуру «add_food». Эта процедура будет на игровом поле размещать еду, символы "$". В качестве случайных чисел будем брать время.

add_food

add_food proc
sc:	
	inc bl              ;В регистре BL рандомное число
	cmp bx,50h    ;Проверяем границу числа
	jng ex
	shr bl,1           ;Если больше, делим на 2 логическим сдвигом
	jmp sc
ex:
	mov dl,bl         ;Запись координаты
sc2:	
	cmp bx,19h
	jng ex2
	shr bl,2
	jmp sc2
ex2:
	mov dh,bl         ;Запись координаты
	mov ax,0200h
	int 10h
	mov ax,0800h
	int 10h
	cmp al,2Ah       ;Проверяем пустое ли место
	je sc
    cmp al,40h      
    je sc                  ;Если нет повторяем
	mov ax,0200h
	mov dl,0024h
	int 21h
	ret
add_food endp

Вызовем 1 раз в начале.

    mov bl,51h
    call add_food
main:

Делаем проверку, съела змея еду или нет. Если съела, вызываем процедуру «add_food» и не удаляем хвост.

Проверку добавляем в код перед выводом символа головы:

        mov ah,02h
	int 10h 			;Вызываем прерывание. Перемещаем курсор

	mov ax,0800h
	int 10h                     ;Читает символ 
	mov dh,al

	mov ah,02h
	mov dl,002Ah
	int 21h 			;Прерывание выводит символ '*'

	cmp dh,24h
	jne next
	call add_food
	jmp main
next:	

Усложним игру. После того, как питон съест 5 символов, в хвосте будет появляться символ "@". Пишем счетчик и вывод символа:

shit

;В сегмент данных добавим строчку
.data
tick	dw 0			;Счетчик
--------------------------------------------------------------------

	cmp dh,24h
	jne next

	push cx				;В стек регистр
	mov cx,[tick]
	inc cx
	cmp cx,5
	jne exl
	xor cx,cx
	mov ax,0200h 		
	mov dx,[snake+di-2]
	int 10h
	mov ax,0200h
	mov dl,0040h
	int 21h
exl:mov [tick],cx
	pop cx

	call add_food
	jmp main
next:	

Какая игра без Game Over. Пишем процедуру проверки границы поля, а также врезание в себя и символ "@".

game_over

game_over proc
;Проверяем границы
	cmp dl,50h
	je exit
	cmp dl,0
	jl exit
	cmp dh,0
	jl exit
	cmp dh,19h
	je exit
;Проверяем символы
	cmp al,2Ah
	je exit
	cmp al,40h
	je exit
	jmp good
exit: 
    mov ax,4c00h
    int 21h
good:
	ret
game_over endp

Вызываем её после считывания символа:

	mov ax,0800h
	int 10h 			;Считываем символ

	call game_over

	mov dh,al

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

magic

	inc si				
	inc si
	cmp si,7CAh
	jne nex
	xor si,si
nex:	

---------------------------------------------------------------------

	inc di
	inc di
	cmp di,7CCh
	jne main
	xor di,di

Ну вот и всё, также можно добавить меню с выбором уровня, паузу, заставку Game Over, счет очков.

По ссылке архив с исходным кодом, exe'шником и DosBox для тех, у кого не запустится.

С прошедшим днём программиста!