Subversion Repositories NedoOS

я╗┐
SOLI: 0,1,2,7
7ffd_09
dffd_b8
pc_07a2
sp_e6fb

af ffac
bc ff00
de 321f ╨▓╨░╨╢╨╜╨╛!!!
hl ffff
ix 001d?0038?
iy 0000?


07ab ╨┐╤А╨╕ ╨╜╨░╨╢╨░╤В╨╕╨╕ ╤Б╤В╤А╨╡╨╗╨║╨╕ - OK
((DE==47AB)&&(PC==275))


BV 2.19, alasm48, LView080, FCmp_v2B - ╨╜╨╡ ╨▓╨╕╨┤╤П╤В ╨┤╨╕╤Б╨║
PT3.73 - ╨┐╨╛╨╝╨╡╤Е╨╕ ╨╜╨░ ╤Н╨║╤А╨░╨╜╨╡ ╨╕╨╖-╨╖╨░ ╨╜╨╡╤Е╨▓╨░╤В╨║╨╕ ╤В╨░╨║╤В╨╛╨▓
stp, ZXZIP512 - ╨╜╨╡ ╤А╨░╨▒╨╛╤В╨░╤О╤В ╨║╤Б╨╛╤А╨║╨╕ ╤Б ╤А╨╡╨│╨╕╤Б╤В╤А╨╛╨╝ R
STD 2.01, TOOLS2.0 - ╨╜╨╡ ╤А╨░╨▒╨╛╤В╨░╨╡╤В ╤В╤Г╤А╨▒╨╛╨╗╨╛╨░╨┤╨╡╤А




╨▒╤А╤П╨║╨┐╨╛╨╣╨╜╤В╤Л ╨┤╨╗╤П ╤Б╨║╨╛╤А╨╛╤Б╤В╨╕ ╨╝╨╛╨╢╨╜╨╛ ╤Б╤В╨░╨▓╨╕╤В╤М ╨╜╨░ ╨╛╨▒╤А╨░╨▒╨╛╤В╤З╨╕╨║╨░╤Е ╨Ъ╨Ю╨Э╨Ъ╨а╨Х╨в╨Э╨Ю╨Щ ╨║╨╛╨╝╨░╨╜╨┤╤Л (╨╜╨╛ ╤З╤В╨╛, ╨╡╤Б╨╗╨╕ ╤Б╨░╨╝╨╛╨╝╨╛╨┤╨╕╤Д╨╕╨║╨░╤Ж╨╕╤П?)

╤Н╨║╤А╨░╨╜ Profi ╤Н╨╝╤Г╨╗╨╕╤А╨╛╨▓╨░╤В╤М ╤Б ╨▓╤Л╤З╤С╤А╨║╨╕╨▓╨░╨╜╨╕╨╡╨╝ ╨▓╨╡╤А╤Е╨╜╨╡╨╣ ╤Б╤В╤А╨╛╨║╨╕ ╨║╨░╨╢╨┤╨╛╨│╨╛ ╨╖╨╜╨░╨║╨╛╨╝╨╡╤Б╤В╨░ (╨╛╤Б╤В╨░╤С╤В╤Б╤П 210 ╤Б╤В╤А╨╛╨║, ╨╕╨╖ ╨╜╨╕╤Е 9 ╨▓╨╡╤А╤Е╨╜╨╕╤Е (7+2) ╨╕ ╨╜╨╕╨╢╨╜╤О╤О ╨╜╨╡ ╨┐╨╛╨║╨░╨╖╤Л╨▓╨░╨╡╨╝, ╨╕╨╗╨╕ ╨╜╨░╨╛╨▒╨╛╤А╨╛╤В - ╨┐╨╡╤А╨╡╨║╨╗╤О╤З╨░╤В╤М? ╨╡╤Б╨╗╨╕ ╤Б╨╕╨╝╨╝╨╡╤В╤А╨╕╤З╨╜╨╛, ╤В╨╛ ╤Б╨▓╨╡╤А╤Е╤Г ╨▒╤Г╨┤╨╡╤В ╨▓╨╕╨┤╨╜╨╛ ╤В╨╛╨╗╤М╨║╨╛ ╨╜╨╕╨╢╨╜╨╕╨╣ ╨┐╨╕╨║╤Б╨╡╨╗╤М ╨▒╤Г╨║╨▓╤Л+╤Е╨▓╨╛╤Б╤В╨╕╨║, ╨░ ╨▓╨╜╨╕╨╖╤Г 2 ╨┐╨╕╨║╤Б╨╡╨╗╤П ╨▒╤Г╨║╨▓╤Л - ╨╜╨╡╤З╨╕╤В╨░╨╡╨╝╨╛)
╨Т╤Л╤З╤С╤А╨║╨╕╨▓╨░╤В╤М ╤З╨╡╤А╨╡╨╖ 6 ╤Б╤В╤А╨╛╨║ ╨╜╨╡╤Г╨┤╨╛╨▒╨╜╨╛ - ╨▒╤Г╨┤╤Г╤В ╨┐╤А╨╛╨┐╨░╨┤╨░╤В╤М ╤Н╨╗╨╡╨╝╨╡╨╜╤В╤Л ╨▒╤Г╨║╨▓, ╨▓ ╤А╨░╨╖╨╜╤Л╤Е ╤Б╤В╤А╨╛╤З╨║╨░╤Е ╤А╨░╨╖╨╜╤Л╨╡.


               == Control Memory Registers ==
               ------------------------------
            CMR0 EQU 07FFDH - Sinclair 128 register
            CMR1 EQU 0DFFDH - CP/M register

         ╨Ч╨╜╨░╤З╨╡╨╜╨╕╨╡ p╨░╨╖p╤П╨┤╨╛╨▓ ╨┐╨╛p╤В╨░ CMR1.

    -----T-------T--------------------------------------------------┬м
    ┬ж D0 ┬ж SEGA3 ┬ж                                                  ┬ж
    ┬ж D1 ┬ж SEGA4 ┬ж  H╨╛╨╝╨╡p ╨┐p╨╛╨╡╤Ж╨╕py╨╡╨╝╨╛╨╣ ╤Б╤Вp╨░╨╜╨╕╤Ж╤Л ╨┐╨░╨╝╤П╤В╨╕ ( ╤Б╤Вp╨╛╨║╨░ )   ┬ж
    ┬ж D2 ┬ж SEGA5 ┬ж                                                  ┬ж
    +----+-------+--------------------------------------------------+
    ┬ж    ┬ж       ┬ж ╨Т╤Л╨▒╨╛p ╨┐╨╛╨╗╨╛╨╢╨╡╨╜╨╕╤П ╨╛╨║╨╜╨░ ╨┐p╨╛╨╡╤Ж╨╕p╨╛╨▓╨░╨╜╨╕╤П ╤Б╨╡╨│╨╝╨╡╨╜╤В╨╛╨▓ CPU:┬ж
    ┬ж D3 ┬ж SCO   ┬ж  0 - ╨╛╨║╨╜╨╛ ╨╜╨╛╨╝╨╡p 1 (C000-FFFF)                    ┬ж
    ┬ж    ┬ж       ┬ж  1 - ╨╛╨║╨╜╨╛ ╨╜╨╛╨╝╨╡p 2 (4000-7FFF)                    ┬ж<--- ╨┐╤А╨╕ ╤Н╤В╨╛╨╝ ╨▓ 0xc000 pg7?
    +----+-------+--------------------------------------------------+
    ┬ж    ┬ж       ┬ж  1 - ╨╛╤В╨║╨╗╤О╤З╨░╨╡╤В ╨▒╨╗╨╛╨║╨╕p╨╛╨▓╨║y ╨┐╨╛p╤В╨░ CMR0 ╨╕ ╨▓╤Л╨║╨╗╤О╤З╨░╨╡╤В ┬ж
    ┬ж D4 ┬ж NOROM ┬ж  ╨Я╨Ч╨г, ╨┐╨╛╨╝╨╡╤Й╨░╤П ╨╜╨░ ╨╡╨│╨╛ ╨╝╨╡╤Б╤В╨╛ ╨Ю╨Ч╨г  ╨╕╨╖  seg  00      ┬ж
    +----+-------+--------------------------------------------------+
    ┬ж    ┬ж       ┬ж  1 - ╨▒╨╗╨╛╨║╨╕py╨╡╤В p╨░╨▒╨╛╤Вy ╨║╨╛╨╜╤Вp╨╛╨╗╨╗╨╡p╨░ ╨╕╨╖ ╨Я╨Ч╨г TR-DOS  ┬ж
    ┬ж    ┬ж       ┬ж  ╨╕ ╨▓╨║╨╗╤О╤З╨░╨╡╤В ╨┐╨╛p╤В╤Л ╨║╨╛╨╜╤Вp╨╛╨╗╨╗╨╡p╨░ ╨╜╨░ ╨┤╨╛╤Б╤Вy╨┐ ╨╕╨╖  ╨Ю╨Ч╨г  ┬ж
    ┬ж D5 ┬ж CP/M  ┬ж  (╨┐p╨╕ ROM14=0).╨Яp╨╕ ROM14=1 - ╨╝╨╛╨┤╨╕╤Д╨╕╤Ж╨╕py╨╡╤В ╨┤╨╛╤Б╤Вy╨┐ ┬ж
    ┬ж    ┬ж       ┬ж  ╨║ p╨░╤Б╤И╨╕p╨╡╨╜╨╜╨╛╨╣ ╨┐╨╡p╨╕╤Д╨╡p╨╕╨╕                         ┬ж
    +----+-------+--------------------------------------------------+
    ┬ж    ┬ж       ┬ж  ╨Яp╨╛╨╡╤Ж╨╕py╨╡╤В ╨┤╨╛╨┐╨╛╨╗╨╜╨╕╤В╨╡╨╗╤М╨╜╤Л╨╣ ╤Н╨║p╨░╨╜  seg 06 ╨▓ ╨║╨░p╤Вy ┬ж
    ┬ж D6 ┬ж SCR   ┬ж  ╨┐╨░╨╝╤П╤В╨╕ ╨┐p╨╛╤Ж╨╡╤Б╨╛p╨░ ╨╜╨░ ╨╝╨╡╤Б╤В╨╛ seg02 ╨┐p╨╕ ╤Н╤В╨╛╨╝ ╨▒╨╕╤В D3 ┬ж
    ┬ж    ┬ж       ┬ж  CMR0 ╨┤╨╛╨╗╨╢╨╡╨╜ ╨▒╤Л╤В╤М ╨▓ "1"    (8000-BFFF)           ┬ж<--- ╤В.╨╡. ╨▓╨║╨╗╤О╤З╨╡╨╜ 2-╨╣ ╤Н╨║╤А╨░╨╜ (╨░ ╨╡╤Б╨╗╨╕ ╨╜╨╡ ╨▓╨║╨╗╤О╤З╨╡╨╜, ╤В╨╛ ╤З╤В╨╛?)
    +----+-------+--------------------------------------------------+
    ┬ж    ┬ж       ┬ж  0 -  "SPECTRUM" p╨░╤Б╤Вp  (╨▓╨╕╨┤╨╡╨╛ ╨║╨╛╨╜╤Вp╨╛╨╗╨╗╨╡p        ┬ж
    ┬ж D7 ┬ж 80DS  ┬ж        p╨░╨╖╨▓╨╛p╨░╤З╨╕╨▓╨░╨╡╤В seg05)                      ┬ж
    ┬ж    ┬ж       ┬ж  1 -  ╨а╨░╤Б╤И╨╕p╨╡╨╜╨╜╤Л╨╣ p╨░╤Б╤Вp  (seg06 & seg3A)         ┬ж
    L----+-------+---------------------------------------------------


                    ╨Ч╨╜╨░╤З╨╡╨╜╨╕╨╡ p╨░╨╖p╤П╨┤╨╛╨▓ ╨┐╨╛p╤В╨░ CMR0.


    -----T-------T------------------------------------------┬м
    ┬ж D0 ┬ж SEGA0 ┬ж  H╨╛╨╝╨╡p ╨┐p╨╛╨╡╤Ж╨╕py╨╡╨╝╨╛╨│╨╛ ╤Б╨╡╨│╨╝╨╡╨╜╤В╨░ ╨┐╨░╨╝╤П╤В╨╕     ┬ж
    ┬ж D1 ┬ж SEGA1 ┬ж          ( ╤Б╤В╨╛╨╗╨▒╨╡╤Ж )                     ┬ж
    ┬ж D2 ┬ж SEGA2 ┬ж                                          ┬ж
    +----+-------+------------------------------------------+
    ┬ж    ┬ж       ┬ж  ╨Т╤Л╨▒╨╛p ╨┐╨╛╨╗╨╛╨╢╨╡╨╜╨╕╤П p╨░╤Б╤Вp╨░ ╤Н╨║p╨░╨╜╨░ "SPECTRUM"┬ж
    ┬ж    ┬ж       ┬ж  0 - seg05, 1 - seg07 ( ╨┐p╨╕ 80DS = 0 )   ┬ж
    ┬ж D3 ┬ж POLEK ┬ж  --------------------------------------- ┬ж
    ┬ж    ┬ж       ┬ж  ╨Т╤Л╨▒╨╛p ╨┐╨╛╨╗╨╛╨╢╨╡╨╜╨╕╤П ╤Н╨║p╨░╨╜╨░ CP/M (80DS = 1): ┬ж
    ┬ж    ┬ж       ┬ж  0 - ╤Н╨║p╨░╨╜ ╤В╨╛╤З╨╡╨║ seg04, ╨░╤Вp╨╕╨▒y╤В╤Л seg38   ┬ж
    ┬ж    ┬ж       ┬ж  1 - ╤Н╨║p╨░╨╜ ╤В╨╛╤З╨╡╨║ seg06, ╨░╤Вp╨╕╨▒y╤В╤Л seg3A   ┬ж
    +----+-------+------------------------------------------+
    ┬ж    ┬ж       ┬ж  ╨Я╨╡p╨╡╨║╨╗╤О╤З╨░╨╡╤В ╤Б╤Вp╨░╨╜╨╕╤Ж╤Л ╨Я╨Ч╨г  "SPECTRUM"    ┬ж
    ┬ж D4 ┬ж ROM14 ┬ж  0 - Spectrum128, 1 - Spectrum48 (CP/M=0)┬ж
    ┬ж    ┬ж       ┬ж  --------------------------------------- ┬ж
    ┬ж    ┬ж       ┬ж  ╨Ь╨╛╨┤╨╕╤Д╨╕╨║╨░╤В╨╛p ╨▓╨╜╨╡╤И╨╜╨╕╤Е y╤Б╤Вp╨╛╨╣╤Б╤В╨▓   (CP/M=1)┬ж
    +----+-------+------------------------------------------+
    ┬ж D5 ┬ж BLOCK ┬ж  ╨С╨╗╨╛╨║╨╕py╨╡╤В p╨░╨▒╨╛╤Вy ╨┐╨╛p╤В╨░ CMR0 (NOROM=0)   ┬ж
    +----+-------+------------------------------------------+
    ┬ж D6 ┬ж  ---  ┬ж  H╨╡  ╨╕╤Б╨┐╨╛╨╗╤М╨╖y╨╡╤В╤Б╤П                        ┬ж
    ┬ж D7 ┬ж       ┬ж                                          ┬ж
    L----+-------+-------------------------------------------




       if extpg5
       rra ;a=oldh
;╨┐╨╛╨┐╨░╨╗╨╕ ╨╗╨╕ ╨╝╤Л ╨▓ ╨╛╨┤╨╜╤Г ╨╕╨╖ ╤З╨╡╤В╨▓╨╡╤А╤В╨╕╨╜╨╛╨║, ╨│╨┤╨╡ ╨▓╨║╨╗╤О╤З╨╡╨╜ ╤Н╨║╤А╨░╨╜? (╤В╨░╨║╨╕╤Е ╨╝╨╛╨╢╨╡╤В ╨▒╤Л╤В╤М >1!!!)
;╨╡╤Б╨╗╨╕ ╨▓╨║╨╗╤О╤З╨╡╨╜╨░ ╤В╨╛╨╗╤М╨║╨╛ ╨╛╨┤╨╜╨░: lx=addr, hx=0x40
;╨╡╤Б╨╗╨╕ ╨▓╨║╨╗╤О╤З╨╡╨╜╤Л 0000,4000: lx=0x00, hx=0x80
;╨╡╤Б╨╗╨╕ ╨▓╨║╨╗╤О╤З╨╡╨╜╤Л 0000,8000: lx=0xc0, hx=0x80
;╨╡╤Б╨╗╨╕ ╨▓╨║╨╗╤О╤З╨╡╨╜╤Л 0000,c000: lx=0x80, hx=0x80
;╨╡╤Б╨╗╨╕ ╨▓╨║╨╗╤О╤З╨╡╨╜╤Л 4000,8000: lx=0x??, hx=0x?? (╨╜╨╡ ╨┐╨╛╨╗╤Г╤З╨╕╤В╤Б╤П!)
       xor lx
       cp hx
       call c,putscreen_c
       endif

╨╖╨╜╨░╤З╨╕╤В, ╨┤╨╗╤П ╨╖╨░╨┐╨╕╤Б╨╕ ╨▓ ╤Н╨║╤А╨░╨╜ ╨╜╨░╨┤╨╛ ╤Б╨┤╨╡╨╗╨░╤В╤М ╨▓╨╡╤В╨▓╨╗╨╡╨╜╨╕╨╡ ╨▓ putmem