Page 1 of 2

128>48 с открытыми страницами.

PostPosted: 30 Jan 2010, 21:38
by robat_e
Как перейти из 128 басик в 48 с отркрытыми страницами? Всмысле на ассемблере. Где-то был исходник у меня, да видать проебал.

Re: 128>48 с открытыми страницами.

PostPosted: 30 Jan 2010, 21:52
by нолька
res 4,(iy+1) ?

Re: 128>48 с открытыми страницами.

PostPosted: 30 Jan 2010, 22:05
by robat_e
Чё, правда? smile

Re: 128>48 с открытыми страницами.

PostPosted: 30 Jan 2010, 23:41
by CAMAHACYKE
Не вкуриваю, тебе 48й режим нужен или токо ПЗУ 48?
Если ПЗУ, то просто бит 4 установи в 1 в порту 7FFD.
А если режим 48 и с открытыми страницами, так это все равно что 128 режим.

Re: 128>48 с открытыми страницами.

PostPosted: 31 Jan 2010, 06:37
by robat_e
CAMAHACYKE wrote:А если режим 48 и с открытыми страницами, так это все равно что 128 режим.

Мне надо 48 со страницами.

Re: 128>48 с открытыми страницами.

PostPosted: 31 Jan 2010, 22:58
by KOE
ld a, page number
set 4,a
ld bc,7ffd
out (c),a

Re: 128>48 с открытыми страницами.

PostPosted: 01 Feb 2010, 07:30
by нолька
KOE wrote:ld a, page number set 4,a ld bc,7ffd out ©,a

это что за говнокод biggrin

Re: 128>48 с открытыми страницами.

PostPosted: 01 Feb 2010, 12:35
by deathsoft
Бугага (даже я накожу проще)
Code: Select all

ld a, page | 0x10
ld bc, 0x7ffd
out (c), a

Re: 128>48 с открытыми страницами.

PostPosted: 01 Feb 2010, 13:23
by lvd
Code: Select all

  XOR A
  DEC A
  LD B,A
  LD C,A
  RES 7,B
  RES 1,C
  RES 4,A
  AND (7-page)
  CPL
  OUT (C),A

Re: 128>48 с открытыми страницами.

PostPosted: 01 Feb 2010, 13:27
by lvd
Кстати, ответ на вопрос.
Code: Select all

  ld a,#10
  ld bc,#7ffd
  out (c),a
  jp 0

Аналог usr0 в басиц128 (дополнительных условий, если что, в вопросе не было, так что ответ верный).