( Слова для работы с AY-3-8910/8912. Порты подключения:
          #FFFD out: выбор регистра
                 in: чтение выбранного регистра
          #BFFD out: запись в выбранный регистр ) HEX
: AY@ ( -- c ) \ чтение c из выбранного регистра
01 C, FFFD , ED C, 78 C, \ LD BC,#FFFD IN A,(C)
08 C, AF C, DF C, ; IMMEDIATE \ XOR A EX AF,AF RST PUT_AA
: AY! ( c -- ) \ запись c в выбранный регистр
E7 C, 08 C, 01 C, BFFD , \ RST GET_AA EX AF,AF LD BC,#BFFD
ED C, 79 C, ; IMMEDIATE \ OUT (C),A
: AY^ ( c -- ) \ выбор регистра c
E7 C, 08 C, 01 C, FFFD , \ RST GET_AA EX AF,AF LD BC,#FFFD
ED C, 79 C, ; IMMEDIATE \ OUT (C),A
\ Далее следуют аналоги оператора и ф-ции SOUND для YAMAH'и
: SOUND! ( val reg -- ) AY^ AY! ;
: SOUND@ ( reg -- val ) AY^ AY@ ; DECIMAL