Anathema
@vie_fastueuse
Приходит 30-летний разраб к врачу:
— Я кодить могу всего три раза в неделю и то днём.
— Ну так для вашего возраста это нормально!
— А коллеге 35 лет, он говорит, что каждый день по ночам кодит и пилит два пет-проекта.
— Голубчик, ну а кто вам мешает говорить то же само
CR0Reg dd ?
cli
mov eax, cr0
mov CR0Reg,eax
and eax,0xFFFEFFFF
mov cr0, eax
Да и гранж тот же не так уж и плох, как и пих-пох отфильтрованный.
Цимес восьмидесятых в том, что весь отстой потихоньку отфильтровался, осталось только качество. Сейчас то же самое с евродэнсом девяностых происходит.
В семидесятых-восьмидесятых даже трамвайный контролер обязан был выглядеть как Химэн.
https://ru.wikipedia.org/wiki/%D0%A4%D0%BE%D1%80%D1%82_(%D1%8F%D0%B7%D1%8B%D0%BA_%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D1%8F)#%D0%9F%D1%80%D0%B8%D0%BC%D0%B5%D1%80%D1%8B_%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC
2) Язык и авпраду классный, на нём один из моих самых любимых Hallo World написан:
.( Привет Мир)
(Да, это весь код)
include /boot/support.4th
include /boot/color.4th
include /boot/delay.4th
include /boot/check-password.4th
only forth definitions
: bootmsg ( -- )
loader_color? dup ( -- bool bool )
if 7 fg 4 bg then
." Booting..."
if me then
cr
;
\ pci-device-count pci-id
\
\ Counts the number of instances of pci-id in the system and reports
\ it to the user.
: pci-device-count
0= if ( interpreted ) get_arguments then
0= if ." Need an argument" cr abort then
\ First argument is 0 when we're interprated. See support.4th
\ for get_arguments reading the rest of the line and parsing it
\ stack: argN lenN ... arg1 len1 N
hex ?number decimal
0= if ." Bad pci-id given (must be legal hex value)" cr abort then
dup pcibios-device-count ." Found " . ." instances of " hex . decimal cr
;
also forth definitions also builtins
builtin: pci-device-count