; nedod.inc - упрощенная модификация языка Д ; для платформонезависимой работы. ; К сожалению только на английском (когда она писалась ; у меня ещё не было русских букв в компьютере) macro use_symbol {symbol:mov ah, 9 mov bl, 31 mov cx, 1 int 10h ret } macro chr c { mov al, c call symbol } macro use_postion { position: mov ah,2 int 10h ret } macro pos x, y { mov dl, x mov dh, y call position } macro mode m, p { xor ah,ah mov al, m int 10h mov ah,5 mov al, p int 10h mov ah, 2 mov bh, p int 10h } macro use_clr { clrscr: mov dx, 0 @@: pos dl, dh chr ' ' inc dl cmp dl, 80 jne @b mov dl, 0 inc dh cmp dh, 26 jne @b ret } macro clr { call clrscr } macro use_msg {message: mov ah,0Fh int 10h mov ah,3 int 10h lodsb mov bl, al @@: mov ah,9 lodsb cmp al,0 je @f mov cx,1 int 10h mov ah,2 inc dl int 10h jmp @b @@: ret } macro msg m { lea si, [m] call message } macro trunoff { mov ax,5301h mov bx,0 int 15h ; подключиться к APM BIOS mov ax,530fh mov bx,1 mov cx,1 int 15h ; запустить сервис BIOS mov ax,5307h mov bx,1 mov cx,3 int 15h ; выключить компьютер }