Бытовой ретро-компьютер своими руками
http://forum.pk-fpga.ru/

test
http://forum.pk-fpga.ru/viewtopic.php?f=41&t=5460
Страница 1 из 1

Автор:  Voland [ 07 окт 2013, 22:45 ]
Заголовок сообщения:  test

<link rel="stylesheet" type="text/css" href="http://yandex.st/highlightjs/6.1/styles/vs.min.css" />
<script type="text/javascript" src="http://yandex.st/highlightjs/6.1/highlight.min.js"></script>
<script type="text/javascript">
// <![CDATA[
function expandCode(e) {
var c = e.parentNode.nextSibling.firstChild;
if (c.style.maxHeight == 'none') {
c.style.maxHeight = '200px';
e.innerHTML = '{L_EXPAND_VIEW}';
}
else {
c.style.maxHeight = 'none';
e.innerHTML = '{L_COLLAPSE_VIEW}';
}
}
function highlightInit() {
var boxes = document.getElementsByTagName('code');
for (i = 0; i < boxes.length; i++) {
if (boxes[i].innerHTML.indexOf('<span') < 0) {
hljs.highlightBlock(boxes[i], null, true);
}
if (boxes[i].scrollHeight > boxes[i].offsetHeight + 1) {
boxes[i].parentNode.previousSibling.innerHTML += ' &middot; <a href="#" onclick="expandCode(this); return false;">{L_EXPAND_VIEW}</a>';
}
}
}
onload_functions.push('highlightInit()');
// ]]>
</script>


/*
* Hello World in gas/NetBSD
* AT/T-Syntax
*
* Compile:
* gas hw.s
* ld -s -o hw a.out
*/

.data

msg:
.string "Hello World\n"

len:
.long . - msg


.text
.globl _start

_start:
push $len /* Laenge */
push $msg /* Adresse */
push $1 /* Stdout */
movl $0x4, %eax /* write */
call _syscall
addl $12, %esp /* Stack bereinigen */

push $0
movl $0x1, %eax /* exit */
call _syscall

_syscall:
int $0x80
ret



TList=Class(TObject)
Private
Some: String;
Public
Procedure Inside; // Suxx
End;{TList}

Procedure CopyFile(InFileName,var OutFileName:String);
Const
BufSize=4096; (* Huh? *)
Var
InFile,OutFile:TStream;
Buffer:Array[1..BufSize] Of Byte;
ReadBufSize:Integer;
Begin
InFile:=Nil;
OutFile:=Nil;
Try
InFile:=TFileStream.Create(InFileName,fmOpenRead);
OutFile:=TFileStream.Create(OutFileName,fmCreate);
Repeat
ReadBufSize:=InFile.Read(Buffer,BufSize);
OutFile.Write(Buffer,ReadBufSize);
Until ReadBufSize<>BufSize;
Log('File '''+InFileName+''' copied'#13#10);
Finally
InFile.Free;
OutFile.Free;
End;{Try}
End;{CopyFile}


http://mail11.ru

vdi.zip [549.05 KiB]
Скачиваний: 237
vdi.zip [549.05 KiB]
Скачиваний: 237
vdi.zip [549.05 KiB]
Скачиваний: 237




vdi.zip [549.05 KiB]
Скачиваний: 237


[icode]div.codebox pre[/icode]


















Название Скриншоты (@), описание (#) Год выпуска Жанр Автор bin, source, path on CF img Проверено в ОС Проверено на модели БК
Cybernoid @ @ @ # 1997 Стрелялка Иванов Н.В. bin MK-DOS БК11М



























Фамилия Имя Email Платеж Сайт
Иванов Петр ivanov@gmail.com $50.00 http://www.ivanov.ua
Петров Иван petrov@yandex.ru $50.00 http://www.petrov.com.ru
Сергеев Михаил sergeed@mail.ru $100.00 http://www.sergeev.ru
Михайлов Потап medvedev@rambler.ru $50.00 http://www.yandex.com


Вложения:

Страница 1 из 1 Часовой пояс: UTC + 3 часа
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/