Statistics: Posted by Yuri — 22 Aug 2026 21:11

Ни где не видел упоминания о применении интересной, на мой взгляд, для "процессоров на рассыпухе" микросхемы 531ВГ1(74S482).

Statistics: Posted by Mixa64 — 22 Aug 2026 07:46

Statistics: Posted by Black_Cat — 21 Aug 2026 15:56

Orion_ALS_161.zip

Statistics: Posted by FizikS — 21 Aug 2026 09:41

DATA.zip

Statistics: Posted by FizikS — 21 Aug 2026 08:09

Statistics: Posted by askfind — 19 Aug 2026 15:37

С детства помню что это полубайт. А тут вдруг 8. Или это игра слов?)

Statistics: Posted by Mixa64 — 19 Aug 2026 10:19

• реализовал-таки для Z80 поддержку AF' (со штрихом). пришлось в лексере прям гвоздями прибить обработку этого случая, получилось некрасиво, но что поделать...
• добавил компилятор. теперь можно создавать блоки циклов и условий как в языках высокого уровня, где выражения в условиях записываются обычными операторами.

• .8080 -- устанавливает синтаксис команд процессора i8080;
• .8085 -- устанавливает синтаксис команд процессора i8085;
• .z80 -- устанавливает синтаксис команд процессора Z80;
• .z80compat -- устанавливает синтаксис команд процессора Z80, но ограничивает набор командами процессора i8080.

• .cpu 8080 = .8080
• .cpu 8085 = .8085
• .cpu z80 = .z80
• .cpu z80compat = .z80compat

• .charset koi7n0 -- устанавливает кодовую таблицу КОИ-7 Н0;
• .charset koi7n1 -- устанавливает кодовую таблицу КОИ-7 Н1;
• .charset koi7n2 -- устанавливает кодовую таблицу КОИ-7 Н2;
• .charset koi8r -- устанавливает кодовую таблицу KOI8-R.

• .print text -- выводит диагностическое сообщение text, кавычки не требуются.

• .error text -- выводит сообщение text как сообщение об ошибке, кавычки не требуются.

• .ifdef var_name -- истинно, если имя var_name определено;
• .ifndef var_name -- истинно, если имя var_name не определено;
• .if expr -- истинно, если результат выражения expr отличен от нуля;
• .elif expr -- альтернативная ветка условия с проверкой истинности выражения expr;
• .else -- альтернативная ветка, блок кода транслируется, если выражение в условии в .if/.elif было ложно;
• .ifb arg -- истинно, если строка arg пустая;
• .ifnb arg -- истинно, если строка arg не пустая;
• .endif -- завершает блок условной трансляции.

• .rept expr[, var_name] -- создаёт блок кода, который повторяется вычисленное в expr количество раз. дополнительно через запятую в директиве можно объявить локальную переменную, используемую как параметр цикла. значение переменной начинается с нуля и увеличивается на 1;
• .irp arg, { arg_list } -- создаёт блок кода, который повторяется для каждого элемента списка arg_list, значение элемента подставляется в arg;
• .irpc arg, "string" -- создаёт блок кода, который повторяется для каждого символа строки string, текущий символ подставляется в arg;
• .endm -- завершает блок повтора.

• .while expr -- создаёт блок кода, который повторяется, пока вычисленное значение выражения expr имеет ненулевое значение;
• .endm -- завершает блок цикла.

• .macro name [params] -- создаёт макрос с именем name и необязательными параметрами params;
• .endm -- завершает блок макроса.

• req -- обязательный параметр. будет сгенерирована ошибка, если макрос будет вызван без указания этого параметра;
• rest -- вся оставшаяся часть строки параметров, включая запятые, заносится в этот параметр, этот тип может иметь только последний параметр.

.macro calc expr.print calc=&expr.endmcalc 2+2

.macro calc expr.print calc=&expr.endmcalc =2+2

• .exitm -- завершает трансляцию текущего макроса и прерывает циклы; применима к: .rept, .while, .irp, .irpc, .macro.

• .org expr -- устанавливает текущий адрес трансляции равным значению выражения expr.

• .align expr[, fill] -- выравнивает текущий адрес трансляции по границе, заданной значением expr, результат выражения expr должен быть степенью двойки. необязательный параметр fill указывает, каким значением требуется заполнять пустоты. по умолчанию для заполнения используется нулевое значение.

• name .equ expr -- задаёт имени name постоянное значение, вычисленное из expr, значение не может быть изменено;
• name .set expr -- задаёт имени name значение, вычисленное из expr, значение может быть изменено последующим .set.

var2 = 123

• .db expr[, expr, ...] -- размещает в выходном файле последовательность байтов, значения выражений должны находиться в диапазоне -128..255, строковые литералы автоматически разворачиваются в последовательность байтов;
• .dw expr[, expr, ...] -- размещает в выходном файле последовательность 16-разрядных слов, значения выражений должны находиться в диапазоне -32768..65535;
• .ds expr -- резервирует область адресного пространства, значение выражения expr определяет, сколько байт необходимо зарезервировать.

• .defb = .db
• .defw = .dw
• .defs = .ds

• .include file -- подключает файл file исходного кода, имя файла можно указывать без кавычек.

• .end -- завершает трансляцию исходного файла.

• .8080, .8085, .z80, .z80compat, .cpu, .charset, .print, .error

label:

• при определении глобальной метки;
• при установке нового адреса трансляции директивой .org;
• внутри макроса, объявленного директивой .macro.

• MOD -- взятие остатка от деления;
• AND -- побитовая "И";
• OR -- побитовая "ИЛИ";
• XOR -- побитовая "исключающее ИЛИ";
• SHR -- сдвиг вправо;
• SHL -- сдвиг влево;
• LT -- "меньше";
• GT -- "больше";
• LE -- "меньше или равно";
• GE -- "больше или равно";
• EQ -- "равно";
• NE -- "не равно";
• NOT -- унарный оператор логического отрицания;
• LOW -- унарный оператор взятия младшего байта 16-разрядного числа;
• HIGH -- унарный оператор взятия старшего байта 16-разрядного числа;
• ABS -- унарный оператор взятия абсолютного значения.

.if varA & 0x80 == varB & 0x80....endif

• ** -- возведение в степень, имеет приоритет выше умножения и деления;
• <? -- оператор нахождения минимума;
• >? -- оператор нахождения максимума.

• 0b01010101 -- двоичное число;
• 0o377 или 0q377 -- восьмеричное число;
• 0xAA55 -- шестнадцатеричное число.

• 01010101b -- двоичное число;
• 377o или 377q -- восьмеричное число;
• 0AA55h -- шестнадцатеричное число.

• $AA55.

• M_E -- значение числа e;
• M_PI -- значение числа π.

• SIN, COS, TAN, SQRT, LN, LG, LOG2, ROUND, FLOOR, CEIL

a = 123b = 456c = 789result = \((((a + b) * c) XOR (a SHL 4)) \+ (sqrt (a * b) * 100) \- (log2 (c) * 50)) \AND 65535

  ld    bc, de          ;  ld    b, d  :  ld   c, e  ld    bc, hl          ;  ld    b, h  :  ld   c, l  ld    de, bc          ;  ld    d, b  :  ld   e, c  ld    de, hl          ;  ld    d, h  :  ld   e, l  ld    hl, bc          ;  ld    h, b  :  ld   l, c  ld    hl, de          ;  ld    h, d  :  ld   l, e  ld    hl, sp          ;  ld    h, 0  :  add  hl, sp  ex    af', af         ;  ex    af, af'  ex    hl, de          ;  ex    de, hl  ex    hl, (sp)        ;  ex    (sp), hl  ex    ix, (sp)        ;  ex    (sp), ix  ex    iy, (sp)        ;  ex    (sp), iy  add   de, bc          ;  ex    de, hl  :  add   hl, bc  :  ex    de, hl  add   de, de          ;  ex    de, hl  :  add   hl, hl  :  ex    de, hl  add   de, hl          ;  ex    de, hl  :  add   hl, de  :  ex    de, hl  add   de, sp          ;  ex    de, hl  :  add   hl, sp  :  ex    de, hl  adc   de, bc          ;  ex    de, hl  :  adc   hl, bc  :  ex    de, hl  adc   de, de          ;  ex    de, hl  :  adc   hl, hl  :  ex    de, hl  adc   de, hl          ;  ex    de, hl  :  adc   hl, de  :  ex    de, hl  adc   de, sp          ;  ex    de, hl  :  adc   hl, sp  :  ex    de, hl  sbc   de, bc          ;  ex    de, hl  :  sbc   hl, bc  :  ex    de, hl  sbc   de, de          ;  ex    de, hl  :  sbc   hl, hl  :  ex    de, hl  sbc   de, hl          ;  ex    de, hl  :  sbc   hl, de  :  ex    de, hl  sbc   de, sp          ;  ex    de, hl  :  sbc   hl, sp  :  ex    de, hl  rl    bc              ;  rl    c  :  rl  b  rl    de              ;  rl    e  :  rl  d  rl    hl              ;  rl    l  :  rl  h  rr    bc              ;  rr    b  :  rr  c  rr    de              ;  rr    d  :  rr  e  rr    hl              ;  rr    h  :  rr  l  sla   bc              ;  sla   c  :  rl  b  sla   de              ;  sla   e  :  rl  d  sla   hl              ;  add   hl, hl  sll   bc              ;  sli   c  :  rl  b  sll   de              ;  sli   e  :  rl  d  sll   hl              ;  sli   l  :  rl  h  sli   bc              ;  sli   c  :  rl  b  sli   de              ;  sli   e  :  rl  d  sli   hl              ;  sli   l  :  rl  h  sra   bc              ;  sra   b  :  rr  c  sra   de              ;  sra   d  :  rr  e  sra   hl              ;  sra   h  :  rr  l  srl   bc              ;  srl   b  :  rr  c  srl   de              ;  srl   d  :  rr  e  srl   hl              ;  srl   h  :  rr  l

  ld    a, (++bc)         ;  inc   bc          :  ld    a, (bc)  ld    (--de), a         ;  dec   de          :  ld    (de), a  ld    (hl++), imm8      ;  ld    (hl), imm8  :  inc   hl  ld    (++iy + d), imm8  ;  inc   iy          :  ld    (iy + d), imm8  and   (--ix)            ;  dec   ix          :  and   (ix + 0)  bit   3, (hl--)         ;  bit   3, (hl)     :  dec   hl

  jr    !nz, label        ;  jr    z, label  jr    !nc, label        ;  jr    c, label  jr    !z, label         ;  jr    nz, label  jr    !c, label         ;  jr    nc, label  jp    !nz, label        ;  jp    z, label  jp    !nc, label        ;  jp    c, label  jp    !po, label        ;  jp    pe, label  jp    !p, label         ;  jp    m, label  jp    !z, label         ;  jp    nz, label  jp    !c, label         ;  jp    nc, label  jp    !pe, label        ;  jp    po, label  jp    !m, label         ;  jp    p, label  call  !nz, label        ;  call  z, label  call  !nc, label        ;  call  c, label  call  !po, label        ;  call  pe, label  call  !p, label         ;  call  m, label  call  !z, label         ;  call  nz, label  call  !c, label         ;  call  nc, label  call  !pe, label        ;  call  po, label  call  !m, label         ;  call  p, label  ret   !nz               ;  ret   z  ret   !nc               ;  ret   c  ret   !po               ;  ret   pe  ret   !p                ;  ret   m  ret   !z                ;  ret   nz  ret   !c                ;  ret   nc  ret   !pe               ;  ret   po  ret   !m                ;  ret   p

ld    (123 + iy ++ - offset), c

• @if/@elif/@else/@endif -- условия;
• @while/@endw -- циклы с предусловием;
• @repeat/@until -- циклы с постусловием;
• @break -- безусловный выход из цикла;
• @break_if -- условный выход из цикла;
• @continue -- безусловный переход на условие цикла;
• @continue_if -- условный переход на условие цикла.

• в выражениях можно использовать только регистры, регистровые пары, числа, именованные константы и метки, переменные в памяти использовать в выражениях нельзя;
• смешивать 8-разрядные и 16-разрядные регистры в выражения нельзя;
• операторы умножения, деления и взятия остатка не могут быть применены к регистрам;
• если выражение требует вычислений или проверка условия выполняется не с аккумулятором, то содержимое аккумулятора будет потеряно, для 16-разрядных вычислений в роли аккумулятора используется пара HL.

@if a < 0x10lxih, 0x1111@elif a < 0x20lxih, 0x2222@elif a < 0x30lxih, 0x3333@elif a < 0x40lxih, 0x4444@elselxih, 0x5555@endif

ORG00000:FE 10CPI10h0002:D2 0B 00JNCLBL10005:21 11 11LXIH, 1111h0008:C3 2F 00JMPLBL5000B:FE 20LBL1:CPI20h000D:D2 16 00JNCLBL20010:21 22 22LXIH, 2222h0013:C3 2F 00JMPLBL50016:FE 30LBL2:CPI30h0018:D2 21 00JNCLBL3001B:21 33 33LXIH, 3333h001E:C3 2F 00JMPLBL50021:FE 40LBL3:CPI40h0023:D2 2C 00JNCLBL40026:21 44 44LXIH, 4444h0029:C3 2F 00JMPLBL5002C:21 55 55LBL4:LXIH, 5555h002F:LBL5:

mvia, 123@while --acall 0x1111@endw

ORG00000:3E 7BMVIA, 7Bh0002:C3 08 00JMPLBL20005:CD 11 11LBL1:CALL1111h0008:3DLBL2:DCRA0009:C2 05 00JNZLBL1

mvia, 123@repeatcall 0x1111@until !--a

ORG00000:3E 7BMVIA, 7Bh0002:CD 11 11LBL1:CALL1111h0005:3DDCRA0006:C2 02 00JNZLBL1

Statistics: Posted by vital72 — 18 Aug 2026 22:55

Statistics: Posted by FizikS — 18 Aug 2026 20:31

Statistics: Posted by Mondx — 18 Aug 2026 18:19

А в чём отличие от 74хх? Не уж то скорость учитывается?

Statistics: Posted by FizikS — 18 Aug 2026 16:43

Statistics: Posted by Mondx — 18 Aug 2026 15:04

Начал клепать модельки...

Statistics: Posted by Mondx — 18 Aug 2026 14:38

Statistics: Posted by ra3qdp — 18 Aug 2026 14:10