👴🏽 👨🏽‍✈️ 👩‍❤️‍💋‍👩 DCPU-16 के लिए टेट्रिस 📋 👩🏿‍🏭 🙇

जैसा कि पहले से ही हैबरे पर लिखा गया है , Minecraft के विकासकर्ता, व्यापक रूप से संकीर्ण सर्कल में जाना जाता है, मार्कस "नॉच" पर्ससन वर्तमान में एक नया गेम विकसित करने में व्यस्त है, जो अंतरिक्ष में 281,474,976,712,644 में जगह लेगा।

Minecraft की तरह, खेल गैर-मानक होगा: मुख्य "चाल" एक पूरी तरह से उत्सर्जित प्रोसेसर है, जिसके नियंत्रण में स्पेसशिप बिग ... एर, यूनिवर्स के विस्तार को हल करेगा। चूंकि वर्ष 0x10 ^सी में खेल के पात्रों (खेल, वास्तव में, ऐसा कहा जाता है) 1980 से सीधे मिला, इसकी विशेषताओं में डीसीपीयू -16 प्रोसेसर मोटे तौर पर उस युग से मेल खाता है: 128 किलोबाइट्स रैम, 100 किग्रार्ट्ज़, निर्देशों का एक सरल सेट।

इस तथ्य के बावजूद कि खेल अभी भी विकास के एक बहुत ही प्रारंभिक चरण में है, प्रोसेसर विनिर्देश पहले से ही समीक्षा के लिए उपलब्ध है - और समुदाय पहले से ही बन रहे हैं, जिनमें से प्रतिभागी एक गैर-मौजूद मंच के लिए सभी प्रकार के दिलचस्प टुकड़ों का विकास कर रहे हैं। आपका विनम्र सेवक इन लोगों में से है, और इस पोस्ट में मैं इन चीजों में से एक के बारे में बात करना चाहता हूं: DCPU-16 के लिए टेट्रिस कार्यान्वयन।

(और तुरंत अस्वीकरण: वीडियो में संगीत कलात्मक के लिए अलग से लगाया गया है, इसलिए बोलने के लिए, अभिव्यक्ति के लिए; डीसीपीयू अब तक ध्वनि उत्पादन की अनुमति नहीं देता है)

"इनसाइड" के बारे में विस्तार से डीसीपीयू -16

तो कल्पना किस बारे में बात कर रही है? यह प्रोसेसर 16-बिट होगा (आप बाइट्स के बारे में भूल सकते हैं - केवल डबल-बाइट शब्द एक्सेस किए गए हैं), हमारे पास 12 रजिस्टर हैं (उनमें से 3 एसपी , पीसी और ओ सर्विस प्रकार के हैं), बिल्कुल मेमोरी के 65,536 शब्द हैं (अर्थात 128 किलोबाइट), 15 मूल और 1 अतिरिक्त ओपकोड, निर्देश 1 से 3 शब्दों में लेते हैं, यह सब लगभग 100 हजार चक्र प्रति सेकंड की आवृत्ति के साथ अनुकरण किया जाएगा (चक्र की संख्या ओपोड पर निर्भर करती है और क्या "बड़े दोस्तों" को ऑपरेंड के रूप में उपयोग किया जाता है )।
बेसिक ऑपकोड असम्बद्ध हैं - असाइनमेंट, अंकगणित (भिन्नात्मक संख्याओं को केवल निश्चित सटीकता के साथ दर्शाया गया है, दशमलव बिंदु के बाद 16 बिट्स - वे अतिप्रवाह रजिस्टर में गिर जाते हैं, ओ जब विभाजित होते हैं), बिट संचालन, स्थिति जाँच। कोई बदलाव नहीं है, कृपया ध्यान दें: वे सीधे पीसी रजिस्टर में मूल्यों को निर्दिष्ट करके किया जाता है (जैसा कि आप अनुमान लगा सकते हैं, यह उस निर्देश को इंगित करता है जिसे अगले निष्पादित किया जाएगा)। हालत परीक्षण बस निम्नलिखित कथन को छोड़ देते हैं, यदि शर्त पूरी नहीं होती है, तो सशर्त संक्रमण सत्यापन और सामान्य संक्रमण के संयोजन से किए जाते हैं। केवल गैर-बुनियादी ओपकोड उपप्रकार को कॉल करने के लिए है, स्टैक के शीर्ष पर रिटर्न एड्रेस डालता है और निर्दिष्ट पते पर संक्रमण करता है।

यह ऑपरेंड्स के साथ दिलचस्प है: साधारण रजिस्टरों के अलावा, किसी दिए गए पते पर मेमोरी, एड्रेस + रजिस्टर वैल्यू पर मेमोरी और सीधे सेट वैल्यू, विशेष मान हैं POP , PEEK और PUSH (हाँ - ये ऑपरेशन नहीं हैं, लेकिन ऑपरेंड!), जो, सबसे पहले, एक्सेस की अनुमति देते हैं। स्टैक के शीर्ष पर (आम तौर पर बोलते हुए, आप सीधे सेवा रजिस्टर द्वारा बताई गई मेमोरी तक पहुंच नहीं सकते हैं), और दूसरी बात, एसपी मान को एक से घटाएं या बढ़ाएं। परिणामस्वरूप, SET PUSH, X का उपयोग करते हुए , आप स्टैक में मान रख सकते हैं, SET X, POP - इसे वहां से ले जा सकते हैं, और SET X, PEEK - मान को स्टैक से लिए बिना कॉपी कर सकते हैं। SET X, PUSH जैसे सच्चे, अजीब निर्माण स्वीकार्य हो जाते हैं; POP, X और यहां तक कि SET POP, PUSH सेट करें । वे जो कर रहे हैं उसे समझना अब बहुत तुच्छ नहीं है।

अंत में, स्मृति के बारे में। स्टैक पहले ही ऊपर उल्लेखित किया गया है - चूंकि आरंभीकरण के दौरान सभी रजिस्टर 0 हैं, यह 0xFFFF से शुरू होता है (पहले PUSH पहले एक के बाद एक एसपी को कम करेगा , और उसके बाद ही मूल्य लिखें) और नीचे बढ़ें। इसके अलावा, यह ज्ञात हो गया कि एक वीडियो बफर 0x8000 के पते पर स्थित है - प्रदर्शन में प्रत्येक में 32 वर्णों की 12 लाइनें हैं, वे लाइन द्वारा लाइन में संग्रहीत हैं, प्रत्येक शब्द एक वर्ण से मेल खाता है। सच है, दुर्भाग्य से, 16 बिट्स में से, केवल 7 कम-ऑर्डर बिट्स चरित्र कोड में गए (सिरिलिक वर्णमाला के लिए समर्थन प्रदान करने के लिए यह बहुत अधिक विकृत करना आवश्यक होगा) - 8 बिट बिट ब्लिंकिंग के लिए जिम्मेदार है, पृष्ठभूमि रंग के लिए अगले 4 और चरित्र रंग के लिए सबसे पुराना 4 है। 16 रंग, CGA पैलेट (RGBI) का उपयोग किया जाता है ।

प्रदर्शन तक पहुंच के अलावा, कीबोर्ड से पात्रों को पढ़ने की क्षमता है: 16 बाइट्स के आकार के साथ 0x9000 पर एक चक्रीय बफर इसके लिए डिज़ाइन किया गया है। काम करने के लिए बफर के लिए, आपको अगले चरित्र के लिए एक पॉइंटर को स्टोर करने की आवश्यकता है - जैसे ही मेमोरी में मूल्य नॉनज़रो हो जाता है, आपको इसे पढ़ने की ज़रूरत है, 0 लिखें और पॉइंटर को 1 से बढ़ाएं (जब आप 0x9010 तक पहुंचते हैं, तो इसे 0x9000 पर रीसेट करें)। नॉच ने यह सब बताने के लिए अपने स्वयं के उदाहरण का हवाला दिया ।

अंत में, नवीनतम आंकड़ों के अनुसार, आप अपने स्वयं के चरित्र सेट को प्रदर्शन के लिए सेट कर सकते हैं - यह 0x8180 (वीडियो बफर के तुरंत बाद) में स्थित है, प्रत्येक शब्द आकार में एक अक्षर 4x8 पिक्सेल का वर्णन करता है, प्रत्येक बाइट एक कॉलम से मेल खाती है।

जावास्क्रिप्ट एमुलेटर

DCPU-16 डिवाइस बहुत सीधा है, और इसका प्रदर्शन अधिक नहीं है - यही कारण है कि मैंने जावास्क्रिप्ट में इसके लिए एक ऑनलाइन एमुलेटर लिखने का फैसला किया है। बेशक, मैं इस विचार में अकेला नहीं था - अब इस तरह के एमुलेटर पहले से ही बहुत बड़े ढेर हैं, लेकिन इस तरह के पागल प्रोग्रामर ने क्या रोक दिया?

परिणाम एक ऐसी बात है:

http://dcpu.ru/

दरअसल, यह सिर्फ एक एमुलेटर नहीं है, बल्कि एक "थ्री इन वन" शैम्पू - असेंबलर, एमुलेटर और, इसके अलावा, एक डिस्सेम्बलर है। उपरोक्त सभी के लिए सक्षम, अपने स्वयं के प्रतीक तालिका को छोड़कर। लेकिन डिबगिंग करते समय, वर्तमान रेखा को खूबसूरती से हाइलाइट किया जाता है, और जब इसे असेंबल किया जाता है तो भावों की गणना के रूप में इस तरह की एक अजीब बात हो सकती है। मैं Notch से असेंबलर में अधिक मैक्रो को खराब करने की सोच रहा हूं।

खैर, यह उसके बारे में नहीं है। मैं गेय खुदाई को समाप्त करता हूं, मैं लेख के विषय की ओर मुड़ता हूं।

टेट्रिस

जैसा कि सभी जानते हैं, टेट्रिस का आविष्कार 1984 में अलेक्सी पाज़ितनोव ने किया था। निर्माता हमारा हमवतन है, खेल लगभग उसी स्तर के कंप्यूटरों के लिए बनाया गया था जो डीसीपीयू -16 के रूप में है - कार्यान्वयन के लिए बेहतर अनुकूल क्या हो सकता है?

संक्षेप में कोड के बारे में। मुझे प्रतीकों को फिर से परिभाषित करने की संभावना के बारे में नहीं पता था, इसलिए मैंने साधारण प्रतीकों के साथ आकर्षित करने का फैसला किया: एक पंक्ति में दो भरे हुए स्थान - एक सेल। प्रत्येक आकृति (4 में से किसी भी मोड़ में) को 4x4 कोशिकाओं के एक वर्ग में प्रवेश किया जा सकता है, कुल 7 आंकड़ों में - कुल 16 राज्यों में से प्रत्येक में 16 शब्द हैं (मैंने सीधे उन कोडों को संग्रहीत करने का फैसला किया जो स्क्रीन पर लिखे जाएंगे, लेकिन केवल दोहराए जाने पर उन्हें दोहराएं)। यह सब कार्यक्रम के अंत में ढेर हो गया है।

कई उपप्रकार लिखे। उदाहरण के लिए, स्क्रीन पर लाइनों को प्रदर्शित करने के लिए (उनमें से कुछ हैं, "स्कोर:", "स्तर:", "गेम ओवर"), कीबोर्ड से एक चरित्र को पढ़ने के लिए, या यहाँ एक छद्म यादृच्छिक संख्या जनरेटर है:

:next_rand ; takes no arguments, returns random word in A MUL [rand_seed], 10061 ADD [rand_seed], 1 SET A, [rand_seed] SET PC, POP :rand_seed DAT 0xC00F

सामान्य तौर पर, रैखिक सर्वांगसम विधि (LCG) का मानक कार्यान्वयन। उन्होंने यादृच्छिक पर अभाज्य संख्या 10061 ली - यदि कोई सबसे अच्छा उम्मीदवार है तो वह संशोधनों को स्वीकार करने के लिए तैयार है। किसी भी मामले में, हमारे पास कोई भी क्रिप्टोग्राफी नहीं है, हमें विशेष "यादृच्छिकता" के बारे में चिंता करने की आवश्यकता नहीं है। यह विभिन्न आंकड़े फेंकने लगता है, और भगवान को धन्यवाद देता है। प्रारंभिक रैंड_सेड बीज को निम्नानुसार आरंभीकृत किया जाता है: जब लूप में लॉन्च किया जाता है, तो मूल्य तब तक बढ़ जाता है जब तक उपयोगकर्ता एक कुंजी दबाता है। वे कहते हैं कि पुराने खेलों में "किसी भी कुंजी को दबाएं" भी इसी तरह से था।

अंत में, सबसे चालाक उपप्रक्रिया, जो स्क्रीन से आकृति को मिटा सकती है, और इसे खींच सकती है, और इसके संचालन की संभावना की जांच कर सकती है:

 :show_cur_piece ; display/clear/check current piece (A=0 - clear, A=1 - display, A=2 - check), if A=2 doesn't actually place anything, return B=1 is position is valid, 0 otherwise SET X, [piece_pos] ; place block at [X] (display) SET Y, [cur_piece] ; ...from [Y] (pieces array) SHL Y, 2 BOR Y, [cur_rot] SHL Y, 4 ADD Y, pieces SET I, 0 ; index :piece_cyc1 SET B, [Y] IFE B, 0 SET PC, piece_jmp1 IFG 2, A SET PC, piece_jmp2 IFG X, 0x8000 + 32*12 ADD PC, 3 IFE [X], 0 SET PC, piece_jmp1 SET B, 0 SET PC, POP :piece_jmp2 IFE A, 0 SET B, 0 SET [X], B SET [X + 1], B :piece_jmp1 ADD I, 1 ADD X, 2 ADD Y, 1 SET B, 1 IFE I, 16 SET PC, POP IFB I, 3 SET PC, piece_cyc1 ADD X, 32 - 8 SET PC, piece_cyc1

जैसा कि आप देख सकते हैं, सभी जांच सीधे "जगह में" की जाती है - वीडियो बफर में। यह, ज़ाहिर है, एक छोटा नकारात्मक प्रभाव है - यदि आप आंकड़ा को स्थानांतरित करते हैं, तो आपको पहले इसे मिटाना होगा, फिर इसे एक नई जगह पर रखने की कोशिश करें, और यदि यह विफल हो गया, तो इसे पुराने में फिर से ड्रा करें। मिटाए जाने के कारण हल्की सी पलक झपकती है, लेकिन काम की गति इतनी पर्याप्त थी कि यह ध्यान देने योग्य नहीं थी। दरअसल, आंकड़ा एक सेल कम होने से पहले, यह लगभग 2500 पुनरावृत्तियों को पूरा करने का प्रबंधन करता है (प्रत्येक पर, बफर में एक कुंजी की उपस्थिति की जाँच की जाती है और आंकड़ा पहले स्तर पर बाएं या दाएं घूमता है), दूसरे स्तर पर 2000, तीसरे पर 1500 - और इसी तरह।

मैंने सबसे नेस्टेड लूप का उल्लेख किया है, लेकिन इसे दो और में लपेटा गया है - यदि आंकड़ा गुरुत्वाकर्षण के तहत नीचे नहीं ले जाया जा सकता है, तो पूरी तरह से भरी हुई पंक्तियों की उपस्थिति के लिए एक चेक बनाया जाता है, वे नष्ट हो जाते हैं, एक नया आंकड़ा चुना जाता है (वास्तव में, इसे अग्रिम में चुना जाता है या खींचा जाता है फ़ील्ड "अगला:", और यहाँ चुनाव "एक कदम आगे" किया जाता है) और ऊपर से ग्लास में फेंक दिया जाता है। यदि इसे छोड़ना संभव नहीं है, तो बाहरी चक्र भी पूरा हो गया है और एक सुंदर ब्लिंकिंग शिलालेख "गेम ओवर" तैयार किया गया है।

भरी हुई पंक्तियों की जाँच करना नीचे से ऊपर की ओर जाता है, दो पॉइंटर्स का उपयोग करके वर्तमान "लिखित" और वर्तमान "रीड" लाइन। सबसे पहले, "पठनीय" तब तक उठता है जब तक यह बहुत ऊपर तक नहीं पहुंचता है या एक अपूर्ण पंक्ति से मिलता है। फिर "पठनीय" लाइन से कोशिकाओं को "राइट करने योग्य" एक में कॉपी किया जाता है और दोनों 1 लाइन ऊंची हो जाती हैं। अनुकूलन की एक जोड़ी: नकल नहीं होती है अगर दोनों बिंदु एक ही पंक्ति के अनुरूप होते हैं, तो "पठनीय" लाइन को रोकने का प्रयास करता है यदि यह पहले से ही बहुत ऊपर है या यदि पहले से ही मिट चुकी लाइनों की संख्या 4 के बराबर हो गई है (आप एक बार में अधिक नहीं कर सकते हैं)। नतीजतन, यह काफी तेज़ी से काम करता है, आप रह सकते हैं।

 :scan_lines ; search for complete lines, remove them and move all other down; update score & level SET A, 0x8000 + 32*11 + 11 ; start of next line to fill SET B, A ; start of next line to check SET J, 0 ; num of lines skipped :scan_cyc2 SET I, 0 ; horizontal index SET X, B :scan_cyc1 IFE [X], 0 SET PC, scan_jmp1 ADD X, 2 ADD I, 1 IFG 10, I SET PC, scan_cyc1 ADD J, 1 ; no gaps found, increase num of complete rows SUB B, 32 IFE J, 4 SET PC, scan_jmp1 IFG B, 0x8000 SET PC, scan_cyc2 :scan_jmp1 ; found a gap, or no more gaps can be found IFE A, B SET PC, scan_jmp2 ; no need to move anything, continue SET I, 0 :scan_cyc3 SET [A], [B] ADD I, 1 ADD A, 1 ADD B, 1 IFG 20, I SET PC, scan_cyc3 SUB A, 20 SUB B, 20 :scan_jmp2 SUB A, 32 IFG 0x8000, A SET PC, scan_end SUB B, 32 IFE J, 4 SET PC, scan_jmp1 IFG 0x8000, B SET PC, scan_jmp1 SET PC, scan_cyc2 :scan_end IFE J, 0 SET PC, POP ADD [lines], J SET J, [lines_score + J] MUL J, [level] ADD [score], J JSR update_score IFG 10, [lines] SET PC, POP SET [lines], 0 ADD [level], 1 JSR update_level SET PC, POP

इसे चलाने के लिए पूर्ण स्रोत यहां उपलब्ध है - " dcpu.ru एमुलेटर में " बटन ढूंढें , और पहले से ही - " रन " बटन।

संदर्भ

पुनश्च हाँ, मैं मदद नहीं कर सकता, लेकिन घमंड - खुद पायदान ने उपरोक्त सभी प्रयासों के परिणाम की प्रशंसा की :)

DCPU-16 के लिए टेट्रिस

"इनसाइड" के बारे में विस्तार से डीसीपीयू -16

जावास्क्रिप्ट एमुलेटर

टेट्रिस

संदर्भ

More articles: