useless retro

Поиск по этому блогу

Z80 всё

апреля 19, 2024

Получить ссылку
Facebook
Twitter
Pinterest
Электронная почта
Другие приложения

z80

Получить ссылку
Facebook
Twitter
Pinterest
Электронная почта
Другие приложения

Scenegraphy 1 - жрунал, который сделал мне день

Немного истории: на зимнем Di:Halt 2024 журнал под названием "Сценефоб"появился на Wild compo и занял первое место. После публикации на говноресурсе мудоза99 издание набрало массу пятерок. Я начал читать статьи, пытаясь определить авторов, после упоминания богомерзкого сайта zxrat.ee сразу понял, кто постарался. Мат в статьях это норма, наезды на всех неугодных нерукопожатны, я зашел на канал демопати и задал вопрос - Какого худенького вы пропустили ЭТО? Орги молчали, от местных участников посыпались реплики: мне сильно пригорело, журнал отлично, так держать. В ответ я привел несколько цитат, и к концу дня появилось сообщение: Пройду по некоторым статьям и отмечу вранье мудоза99. HYPE / ХАЙП: ПОСТМОРТЕМ Весь последний год я вижу, что портал выживал за счет новичков вроде aa-dev (которых вы так боялись завывать со стороны) aa-dev это вахрушка ALX с ресурса gaydev.ru, этакий ретродурачок - что-то перевел, что-то недопонял, что-то недоизложил. Долго пытался осилить 6502, но бе

создание файла .TAP

Предыдущая разработка заставила попытаться разобраться с форматом .tap. Описание и сравнение готовых тапок подсказало способ создания(картинка): CreateFile(0,"scr2.tap") f$="Agony MD-P" fs.w=6912 adr.w=16384 ;first block is 19 bytes (17 bytes+flag+checksum) WriteWord(0,$13) ;flag byte (A reg, 00 for headers, ff for data blocks) WriteAsciiCharacter(0,$00) ;first byte of header, indicating a code block WriteAsciiCharacter(0,$03) ;;start to calc checksum cs.a=3 ;Filename (padded with blanks) t$=RSet(f$,10," ") WriteString(0,t$) For i=1 To 10 cs=cs!Asc(Mid(t$,i,1)) Next i ;header info - Length of data block WriteWord(0,fs) cs=cs!(fs&255) cs=cs!(fs/256) ;Code file - address WriteWord(0,adr) cs=cs!(adr&255) cs=cs!(adr/256) ;?? WriteWord(0,0) ;checksum ;Debug Hex(cs) WriteAsciiCharacter(0,cs);=$52) ;length of second block +2 WriteWord(0,fs+2) ;ff for data blocks WriteAsciiCharacter(0,$ff) cs=255 ;data ReadFile(1,"Agony MD-PhT.scr") While No

мемас hellon't

Как-то пропустил этот мем, увидел картинку. Позже нашлось описание: Один парень предлагает вместе слова «нет» говорить «не да». Он англоязычный, так что это звучит как «yesn't» вместо «no». Петиция на Change.org, все дела. Ну и фантазия граждан пошла развивать тему. Говорят, ну тогда уж давайте вместо goodbye – «прощай» - говорить hellon't. То есть «непривет» или даже «нездорОво». А вместо cat тогда будет dogn't. Довольно неплохая задача для тех, кто владеет английским.

Технологии Blogger

useless retro

Поиск по этому блогу

Z80 всё

Комментарии

Отправить комментарий