From a15861c07cab60eaf09c28226d0c7761b4fd8235 Mon Sep 17 00:00:00 2001 From: Anatoliy Belyanskiy Date: Tue, 31 Oct 2023 02:07:49 +1000 Subject: [PATCH] ... --- constants/SP2000.inc | 229 ++++++++++++++++++++++++++++++++++++++++++- macroses/macros.z80 | 42 ++++---- 2 files changed, 247 insertions(+), 24 deletions(-) diff --git a/constants/SP2000.inc b/constants/SP2000.inc index 8224f4c..1189674 100644 --- a/constants/SP2000.inc +++ b/constants/SP2000.inc @@ -1899,6 +1899,55 @@ ATA: ; .Master EQU #A0 ; .Slave EQU #B0 ; +; 浜様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様 +; ｀モ 痳ガ 艪キ/瓱? +; +; Z80 敖陳 +; bus Buf +; 陳堕調<>団陳陳陳陳陳賃陳<> Low Byte +; 1 +; 団陳 敖陳 +; Buf Reg +; 青調陳>団賃陳環>団潰 HDD bus +; 2 3 +; 青陳 青陳 +; +; 青陳陳陳陳陳<> High Byte +; +; 1. 皀┘ ≡ュ 爛痰牀, 牀 爛痰 諷, A8 = 0 +; 襯 荐 HDD 腑爛 ＜筌 1 ムイ鈞瘴 牀罐瘁. +; 讓 よ┤ , 痰琥┤ 礒キ. +; +; 2.1 皀┘ 爛痰 諷, A8 = 0 +; 襯 荐 HDD 腑爛 ＜筌 1 ムイ鈞瘴 牀罐瘁. +; 讓 よ┤ , 痰琥┤ 礒キ 薀│モ瘴 +; 爛痰爛 3 +; +; 2.2 皀┘ 爛痰 諷, A8 = 1 +; 襯 ├ 爛痰 3 腑爛 ＜筌 1 ムイ鈞瘴 牀罐瘁. +; - 痰琥┤ - HDD 轤 キ 襦モ瘴 +; +; 3. 瘡 ≡ュ 爛痰牀, 牀 爛痰 諷, A8 = 1 +; 襯 荐 Z80 腑爛 ＜筌 1 ムイ鈞瘴 荐 HDD. +; 讓 よ┤ , 痰琥┤ 礒キ. +; +; 4.1 瘡 爛痰 諷, A8 = 0 +; 襯 荐 Z80 腑爛 ＜筌 2 ムイ鈞瘴 爛痰 3. +; 讓 よ┤ , 痰琥┤ 礒キ Θモ瘴 甄イ竡薀 +; 罔. HDD 轤 キ 襦モ瘴. +; +; 4.2 瘡 爛痰 諷, A8 = 1 +; 襯 ├ 爛痰 3 ムイ鈞瘴 荐 HDD - よ┤ . +; - 痰琥┤ - 腑爛 ＜筌 2 ムイモ瘴 牀罐瘁 +; +; 腑 祗 4.2 皓モ瘴 3, 絎硼 ム罔 ※ゃ +; え? +; 皰 艪 ムイ 4.2 ≡ィ ┐モ 4.1, 皰琺 竅←│モ +; 矗┌ム WRH イ┃聶 , ━ ÷М ムオ鈑モ 竄 +; 牀絎Δキ 皰. 皰 Б錺 甎讌碎 る OUTI +; か 瓱 瓮皰 HDD +; +; 藩様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様 ENDMODULE ;----------------------------------------------------------------------- @@ -2035,16 +2084,16 @@ REG: ; 腑痰 む皰 か┃ ┃ ※瓱 ; 牀腑, M1 IO. ｭ ↑メ皀 祀 爛琺┘ も▲爐┼瘡. OR ＜ぅ 皰讓 -; 爬 も▲爨ぅ┬ 爛琺. 竇え 皀ェ爬皀鍖 跏 AND 矜磴 S, 甄 腑 !Q +; 爬 も▲爨ぅ┬ 爛琺. 竇え 跏 AND 矜磴 S, 甄 腑 !Q ; 皰Ε - ┃ 甅鍮瘴. 甄 ┃ 甅鍮瘴 ▲ 0, 皰 1 ┐驍 覃 ア覃 矗┌ム D, ; ムュえ 痼イ┤ 矗┌ム 皰讓 CTH2 - 瘍驍腮 か┃ ┃ 皰琺 皋モ ェ※瓱 皰, メ碎 ; ┼ モ. 皋モ, イ┃ ムュえ 跏 D Δモ 閧 皋, 甄 腑 モ AND, ; ≒牀 襤ぅ 皰Ε 1, 皰 艪 瓱 M1 IO ┃▲珀襯 腑爛 OR, ↑メ皀 祀 皰讓 ; 爬 も▲爨ぅ┬ ┃. え 矜磴 ≒覈モ瘴 S, 艪 驍 〓КΝ痰 ムイ碎 竅 !Д D !Q -; 爬 ムュぅ 0 1. ムュ ＜ぅ 皰讓 痰牀 甄イ竡薀 甄 ┃皰〓 エ皰〓 +; 爬 ムュぅ 0 1. ムュ ＜ぅ 皰讓 痰牀 甄イ竡薀 甄 ┃皰〓 エ皰〓 ; む皋 3 4 ┴瓮. 甄イ竡薑 む皋 ┃皰 甄 む皋 ┃ 矜錚│モ キム罔 ┃ ; 瓮￥. 牀腑, ┃ キム珮モ瘴 甄 ムュ む ┃ む ． ┃. 甄 皰膈ゥ, 皰 〓 -; ∇ガ 牀爬甌→ 甄イォ ┃┬ Лメ 甄イ竡薀 Лメ皀. む ┃ 腑爛 °膈覃 +; ∇ガ 牀爬甌→ 甄イォ ┃┬ Лメ 甄イ竡薀 Лメ皀. む ┃ 腑爛 °膈覃 ; む 甃ｃ ←閧 皰 艪 ┃ ─ ＜ぅ ≡ ラ ※瓮碎 轤 ＜ぅ キ 1 1))) ─ ┃ ; 甅━モ瘴 腑爛 IO M1 竅※ S Ε┘ ?絅 D C?, 皰牀 甃キ矚 皰讓 甄 皰 ; 牀皋鈞 ア襯 瘍驍腮. @@ -2053,6 +2102,180 @@ REG: ; ; ;=======================================================================; +;敖陳陳陳陳陳陳陳陳陳陳陳陳陳陳堕陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳 +; -絅 ┐ギ矗ム 敖陳陳陳陳陳陳陳 +; 跪皀 Sprinter RGB Registers 団陳> RED +; (瓱讚 祚牀薀) & Video DACs 団陳> GREEN +; 団陳> BLUE +;団陳陳陳陳陳陳陳陳陳陳陳陳陳陳 青陳陳賃堕陳陳陳 +; 敖堕陳 敖陳陳陳 崖 敖陳賃陳陳賃陳陳 +; CPU 陳調 MXA団陳 Video 団電調MODEPixelPAL 団陳 +; Adress 陳調 団陳 MEM 団電調Reg AtribReg 団陳 +; 団 団陳 団電調 Reg 団陳 +; Y-port 陳調 団陳 団電調 .. +; Graf Reg 陳調 団陳 崖 .. +; 敖陳陳陳陳陳朕 団 団陳 崖 .. +; Mode 団陳 団陳 団電調 団陳 +; Counter 団陳 団陳 団疏調 団陳 +; 青陳陳陳陳陳潰 団 団陳 青詑珍陳賃珍陳陳 +; 崢 Adress 陳調 団陳 崖 青陳陳陳>超 +; 把 From MODE 陳調 団陳 垣陳陳陳陳陳陳陳>超 +; 敖陳陳陳陳朕 団 団陳 青陳陳陳陳陳陳陳>超 +; Line/Pix 団陳 団陳 +; Counters 団陳 団陳 +; 青陳陳陳陳潰 団 団陳 +; 把 Pixel/PAL 陳調 団陳 +; 把 Registers 陳調 団陳 +; 青祖陳 青陳陳陳 +; +; 藩様様様様様様様様様様様様様様様様様様様様様様様様様様様様様 +;団陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳 +; ｀モ ※ぅ矗ム? +; +; むメ ※ぅ諷 甌痰←錺 16 ； +; 爬 荐 諷 ※ぅ- - 32 ；. +; ､∇ガキ 甎讌竡矚 ぎ 3 . +; 踸 筥腑瓷 むメ罔 ※ぅ- 爛め←錺 甌｀ 256 +; ┃┤ 1024 . ┃┬ むメ竡矚 腑爛 Y-port, 硅 +; ┃┬ 10 よ━ ； むメ 牀罐瘁. +; 皀痰〓 爛Θ ※ぅ- 爛め←錺 甌｀ ｀ ├ +; 32- 8Kb 痰, 皰琺 お鈑鈞瘴 ム〓 ※ +; 5- 7- 痰肓 閧 ZX-Spectrum. ム 痰肓 モ瘴 +; 皀 Ε Y-port-. ムオ鈑キ┘ 爛Θ むメ罔 牀├〓え矚 +; ム 痰肓 . , Ε メ 5- 甎オ矗祠≡ +; 痰罐 Ε矚 竅←キ 痰 50h , 皰 ※ぅ閧豎 +; ＜ぅ むメ碎瘴 筥腑瓷. +; オ痰 むメ罔 錢錺矚 Ε 甎オ矗祠≡. +; 皋腑瓷 ※ぅ- ━ゥ矚 32 甎オ矗祠≡ 蹣, ├ +; 皰琺 爛讚 Ν 甎讌碎 24, 皰 艪 +; 痰讚襯 痰肓 甎讌竡矚 か 矗 諷 爛Θ +; 蹣. +; +; 爛め←錺 甌｀ ｀ Лメ, 皰琺 Ν +; ェ※瓱 竅←│碎 爛Θ 皰÷Ε ┃筮爼罔. +; Δ Лメ皰 Кム 甌癶モ痰≪モ む矣 8x8 爛Θ +; 320 皰腑 ┃┬. 瓮 蹣 40x32 Лメ. ├腑瓷 +; ━ゥ矚 64x64 Лメ, 痰 ├ ┴ モ +; 蹣, 痰 絎え矚 ゛痰 ━祀赱 罔縲├罔 +; 茱 竍. Δ Лメ皀 Ν 竅※碎 瓣 +; 爛Θ, 碎 ぎ 竅→ 爛Θ ｀爐ム 茱 竍. +; 甅↓襯 爛Θ, 竅←│ガ襯 Лメ: +; ZX-40 皀痰覃 爛Θ 40 瓱〓 痰牀 ┼ 1 瓱〓 +; Лメ皰. ｭ Ε 甎オ矗祠≡┤. +; ZX-80 皀痰覃 爛Θ 80 瓱〓 痰牀 ┼ 2 瓱〓 +; Лメ皰. +; GR-256-8 筥腑瓷┤ 爛Θ 320x256 皰腑, 256 罌モ. ｭ Ε +; 8x8 皰腑 256 罌モ き Лメ皰 +; GR-16-16 筥腑瓷┤ 爛Θ 640x256 皰腑, 16 罌モ. ｭ Ε +; 16x8 皰腑 16 罌モ き Лメ皰 +; 皀讚襯 爛Θ: +; BORDER Лメ皰 諱▲腮モ瘴 罌モ ｀爐ム +; BLANK Лメ皰 皀キ +; INT-Mode 爛Θ キム罔 瓱 INT ぅ痰≪モ 皰讓 +; Лメ 爛Θ BLANK Б錺 竅←│碎 INT +; 礒 メ皰, 碎 ぎ 竅→ 40 ━祀赱 INT む +; +; 皰 痰 - 42MHz ム┏ - 6 き皰諷 罔 +; +; ┴ 甎爛ぅ闔矚 甄イ竡薑 ÷М: +; +; 1 - 襦爲 ┴瓮ォ 皀痰〓 爛Θ +; 筥腑瓷 爛Θ - 絎痰 絎 +; 2 - 襦爲 矗─竄 皀痰〓 爛Θ +; Ε 襦爲 ┴瓮 筥腑瓷 爛Θ +; 3 - 襦爲 3- 矗 瘡 RGB 爛痰琺 +; か 爛Θ 640 皰腑, 爛Θ 320 絎痰 絎 +; 4 - 襦爲 甄 爛Θ 蹣 +; 襦爲 牀├〓え矚 え 腑硅爛 ム┏ +; 5 - 罔 瓱 諷 牀罐瘁 +; メ皀痰▲, 襯 蓊矚 皰讓 礒 +; 6 - 襦爲 3- 矗 瘡 RGB 爛痰琺 +; +; 瓮 腮モ瘴 4. むメ か 爛Θ 爛ぅ錺矚 +; 瘍モ腮 ▲珥┴ 爬М. 腮鈞瘴 8 皰腑 320- +; 爛Θ ▲珥┴ 8 痰牀 爬М. +; ウ━ モ瘴 16 ；, ├ 皰琺 12 鈞 むメ む +; 8x8 筥腑瓷 爛Θ. 皀痰〓 爛Θ 轤 Ε ；硅 +; 鈞 むメ 諷 蹣, メ讓 ┃腑. +; 痰∵┘瘴 4 ； 爛Θ 鈞 甌＝癶キ 爛Θ. ､┃ ； +; モ 筥腑瓷┤ ┼ 皀痰覃 爛Θ Лメ. 薀 え +; ； モ 爛Θ 320 ┼ 640 皰腑. 痰∵縺 ； +; 皀痰〓 爛Θ 錢闔矚 ぎキ┘ むメ 諷, +; 筥腑瓷 鈞 き ├ 4- 256-皋罌モ諷 矗 +; +; 閧覓 皰 ≡ 閨. 瓷鈑キ┘ 皰, 艪 か +; 筥腑瓷 皀痰〓 爛Θ ├キ錺矚 むメ罔 +; Кキキ┘ モ瘴 ム 痰肓 矗肓 50..5F 瘍鈞瘴 +; 筥腑瓷━ . イ礇 皙モ碎, 艪 閧┘ 筥腑瓷 +; 皀痰〓 爛Θ むメ罔 甌≡ガ ▲爿 矗モ 痺碎. +; 襤 諷 蹣 Ε 痺薀痰←閧赱 ｀ +; 爛Θ ェ※瓱 ぅ痰※皀讚 爛Θ 蹣. +; +; 6- . 皀┘ 矗. 皀痰〓 爛Θ むメ 矗 +; 甌痰←錺 10 ；. 8 ； - 矗─竄. 1 ； - ┴瓮. +; 1 ； - FLASH. 皰 ； 皋腑瓷 ムオ鈑モ あ 矗 +; 痰皰 FLASH. 甄 矗 か 矗─竄 甌鈞 +; 皰 FLASH ゛遒モ瘴. +; 筥腑瓷 爛Θ むメ 矗 甌痰←錺 8 ； +; ┴瓮 2 ； ム 矗, 瘍 4- 皀, +; ぅ爨 1 ム┏ か 瓱縲 ├キキ 爛Θ +; 矗 Лメ皀. +; 薀 え ； むメ 甎讌礇矚 か Гカキ 矗 +; 皀痰〓 筥腑瓷 爛Θ. 痰∵┘瘴 むメ +; 竅←│鈞瘴 "1" ≡ 矗 щモ瘴 +; 1024- 皰諷 ┃┤ 筥腑瓷 爛Θ. +; +; 1. ぅ瘡 腮モ ぅ痰〓碎 覃 爛Θ, 瘍覃 +; 皀 4. むメ 錢錺矚 むメ ┴瓮ォ 皀痰〓 +; 爛Θ. ┴瓮ォ 瘠モ瘴 瓩※覃 爛痰 +; ム覃 襪※竄覃 ； 腮モ ぅ痰〓碎 6- 皀. +; +; 2. 襦モ瘴 矗─竄. むメ 皓モ瘴 むメ +; ┴瓮ォ ├▲痰 オ矗祠≡ . +; 甄 ムイ 轤━ 4- 皀 ° 瘍 筥腑瓷┤ 爛Θ, 皰 +; むメ 矗─竄 痰※矚 む磽━ 甌癶モ痰≪モ 矣 ┴瓮鏗 +; 筥腑瓷 爛Θ. ィ痰 矗─竄 筥腑瓷 爛Θ +; 錢錺矚 爛痰牀 ┴瓮. +; +; 3. 皀┘ 矗 か 爛Θ 640 皰腑. イ礇 モ碎 +; 艪 筥腑瓷 爛Θ 640 皰腑, 4 痰琥 ； 爛痰 +; ┴瓮 瓷珮鈞瘴 祀鍖 轤 皀 よ ； +; むメ щ鈞瘴 皀 腑硅爛 ；, 皰琺 ° 瓷牀 +; 6- 皀. 爍├礇矚 16 罌モ 皰腦. +; +;団陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳 +; 蹍牀┘. +; 1. オ痰覃 爛Θ むメ罔 ♀錢錺矚 皙鉗━ ィ +; 甎讌┘ оヨキ 皰讓 か 筥ｃ罔 甌↑メ皋諷 +; ZX-Spectrum. .. Sprinter-1 AY. ( AY む磽 モ) +; 2. 鈑キ┘ 筥腑瓷 爛Θ むメ罔. +; 轤 ぎ痰皰膈 →鈑碎 痰聶 50..5F ─ ├ +; 牀罐瘁. +; 踸ム: +; LD A,50h +; OUT (PAGE3),A +; 甄 甎キ 轤 C000..FFFF ＜ぅ 甌ぅ爨碎 +; 襯 筥腑瓷 閧 (▲爿ゥ, ゥ ┬ 甅↓ ) +; 3. 痰→ ム ┃┬. +; 筥腑瓷 , 礒 ° 瓷, 甌痰 ├ 256-皋 ┃┤ +; 1024 . ＜ぅ ※き 皰讓 き ┃. むメ +; 皓鉗┘瘴 腮甄 皚 400h 筥Ж腑瓷 むメ竡 き +; 皀 Ε 閾ォ 閧. +; ├キキ ム ┃┬ ぎ 襤メ皋 ム ┃┬ 珥. +; LD A,40h +; OUT (Y_port),A +; 甄 甎キ 轤 むメ ※ぅ- ＜ぅ +; 絎え碎瘴 64- ┃ 蹣 (腮 瓣ム繝, 0-) +; 4. Δ覃 む ※ぅ- Кム 8x8 Ε °碎 +; 竅←キ 遏 Лメ皰. むメ ↓竄爬 む メ碎 +; よ┘ 矗 ； むメ ┃┬ よ┘ 矗 ； ム ┃┬. +; 硅 000..2FFh ┃閻 錢闔矚 牀痰覓 覓, 皰琺 +; Ν 甎讌碎 か 襤 蹣. +; 硅 300h..3A0h 錢闔矚 爛Θ 蹣. +; 硅 3E0h..3FFh - 硅 矗. +; むメ む 諷, 皰牀 襤え矚 Лメ皰 モ瘴 +; 爛Θ 蹣. +;青陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳 ;__________________________________________________________________________________________________________# ; MACRO _mGET_FAT_START slot_num ; .correct EQU (SLOT3 and slot_num)*2 diff --git a/macroses/macros.z80 b/macroses/macros.z80 index 9c8895e..ce455f4 100644 --- a/macroses/macros.z80 +++ b/macroses/macros.z80 @@ -135,30 +135,30 @@ ;======================================= MACRO FRAM_ON IN A,(FastRAM.ON) - IFN NORM_FastRAM - PUSH BC - ;PUSH AF - LD BC,#1FFD - XOR A - OUT (C),A - OUT (FastRAM.SLOT0),A - ;POP AF - POP BC - ENDIF + ; IFN NORM_FastRAM + ; PUSH BC + ; ;PUSH AF + ; LD BC,#1FFD + ; XOR A + ; OUT (C),A + ; OUT (FastRAM.SLOT0),A + ; ;POP AF + ; POP BC + ; ENDIF ENDM MACRO FRAM_OFF IN A,(FastRAM.OFF) - IFN NORM_FastRAM - PUSH BC - ;PUSH AF - LD BC,#1FFD - LD A,1 - OUT (C),A - XOR A - OUT (FastRAM.SLOT0),A - ;POP AF - POP BC - ENDIF + ; IFN NORM_FastRAM + ; PUSH BC + ; ;PUSH AF + ; LD BC,#1FFD + ; LD A,1 + ; OUT (C),A + ; XOR A + ; OUT (FastRAM.SLOT0),A + ; ;POP AF + ; POP BC + ; ENDIF ENDM ;=======================================