Zapple-II/SOFTCARD65.S#040000

╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙█╙ ╤╣╟╡ ЦОДЕ ТО ИНЖОКЕ з╦╟ РОУТИНЕ ОН сОФТЦАРД АНД█╙ ХАНДЛЕ ЦАЛЛС ФРОМ з╦╟ БАЦК ТО ╤╣╟╡█╙ аССУМЕС сОФТЦАРД ИН СЛОТ ╢█╙ бОББИ ╡╟╠╧█╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙╙██═орг ╓╡╟╟╟ ═╩ сЫСТЕМ ПРОГРАМ█═тып ╓фф══╩ ╝сыс██сфтцрд═еяу═╓ц╢╟╟═╩ сОФТЦАРД ИН СЛОТ ╢█цмд═еяу═╓╟╤═╩ зп АДДРЕСС ФОР ЦОММАНД ЦОДЕ ╗╟╛╠╛╡╘█арег═еяу═╓╟╥═╩ пАСС ╤╣╟╡ а РЕГ ТО╞ФРОМ з╦╟█ьрег═еяу═╓╟╦═╩ пАСС ╤╣╟╡ ь РЕГ ТО╞ФРОМ з╦╟█ырег═еяу═╓╟╧═╩ пАСС ╤╣╟╡ ы РЕГ ТО╞ФРОМ з╦╟█аддр═еяу═╓еб═╩ пАСС АДДРЕСС ОФ ╤╣╟╡ РОУТИНЕ ТО ЦАЛЛ ФРОМ з╦╟█аддрх═еяу═╓ец═╩ хИГХ БЫТЕ ОФ АДДРЕСС аддр█флагс═еяу═╓ед═╩ пАСС ╤╣╟╡ ФЛАГС ТО╞ФРОМ з╦╟██╙ мОНИТОР ром РОУТИНЕС█белл═еяу═╓фбдд═╩ сОУНД ТХЕ БЕЛЛ█цоут═еяу═╓фдед═╩ оУТПУТ А ЦХАРАЦТЕР█прбыте═еяу═╓фдда═╩ пРИНТ ХЕЬ БЫТЕ█цроут═еяу═╓фд╦е═╩ пРИНТ ЦАРРИАГЕ РЕТУРН██иобуф═еяу═╓бб╟╟═╩ лОЦАТИОН ОФ пРОдос и╞о БУФФЕР█лдаддр═еяу═╓╟ффд═╩ лОАД ТО ╓╠╟╟╟ ХЕЬ█═══╩ ╗аЦЦОУНТИНГ ФОР Ё БЫТЕ ПРЕФИЬ╘█лдлен ═еяу ═╓фффф═╩ лОАД ИТ АЛЛ██стаддр═еяу ═╓б╦╟╟ ═╩ цОДЕ ВИЛЛ БЕ РЕЛОЦАТЕД ТО ТХИС АДДР██╙ цОДЕ ТО РЕЛОЦАТЕ ЕЖЕРЫТХИНГ ФРОМ релоцъст ТО релоцъен█╙ тО БЕГИН АТ стаддр█╙ зп ╓╟╤╜╟╥ ИС СОУРЦЕ ПОИНТЕР█╙ зп ╓╟╦╜╟╧ ИС ДЕСТ ПОИНТЕР█═лда═ё╪релоцъст═╩█═ста═╓╟╤═╩ СОУРЦЕ лсб█═лда═ё╬релоцъст═╩█═ста═╓╟╥═╩ СОУРЦЕ мсб█═лда═ё╪стаддр═╩█═ста═╓╟╦═╩ ДЕСТ лсб█═лда═ё╬стаддр═╩█═ста═╓╟╧═╩ ДЕСТ мсб█═лды═ё╟═╩█╨лдрл╠═лда═╗╓╟╤╘╛ы═╩ цОПЫ А БЫТЕ█═ста═╗╓╟╦╘╛ы═╩█═инц═╓╟╤═╩ СОУРЦЕ лсб█═бне═╨лдрс╠═╩ иФ НО РОЛЛОЖЕР█═инц═╓╟╥═╩ ИНЦ СОУРЦЕ мсб█╨лдрс╠═инц═╓╟╦═╩ ДЕСТ лсб█═бне═╨лдрс╡═╩ иФ НО РОЛЛОЖЕР█═инц═╓╟╧═╩ ИНЦ ДЕСТ мсб█╨лдрс╡═лда═╓╟╧═╩ ДЕСТ мсб█═цмп═ё╬релоцъен═╩ АТ ЕНД©█═бне═╨лдрл╠═╩ нОПЕ╝ лООП█═лда═╓╟╦═╩ ДЕСТ лсб█═цмп═ё╪релоцъен═╩ АТ ЕНД©█═бне═╨лдрл╠═╩ нОПЕ╝ лООП██═ймп═стаддр═╩ йУМП ТО РЕЛОЦ╖Д ЦОДЕ███релоцъст█═орг═стаддр═╩ аССЕМБЛЕ ФОР ТХИС ОРИГИН██ентры═лда═ё╓╟Ё═╩ сВИТЦХ ТО ╦╟ ЦОЛУМНС█═йср═╓фе╧╣═╩ ╝╝╝█═лда═ё╓╟╟═╩ ╝╝╝█═йср═цоут═╩ ╝╝╝█═йср═првелц═╩ пРИНТ ВЕЛЦОМЕ МЕССАГЕ█═лда═ё╓╟╟═╩ цЛЕАР пРОдос СЫСТЕМ БИТМАП█═лдь═ё╓╟╟═╩█╨л╠═ста═╓бф╣╦╛ь═╩█═инь══╩█═цпь═ё╡╠═╩█═бне═╨л╠═╩█═йср═оп═╩ оПЕН ФИЛЕ█═бея═╨с╠═╩ иФ ЗЕРО╛ НО ЕРРОР█═йср═прбыте═╩ пРИНТ ЕРРОР ЦОДЕ█═йср═проперр═╩ пРИНТ ╒ОПЕН ЕРРОР╒█═ймп═доне═╩ яУИТ█╨с╠═лда═опън═╩ гЕТ ФИЛЕ РЕФ НУМ█═ста═рдън═╩ сТОРЕ ИТ ФОР реад█═йср═рд═╩ рЕАД ФИЛЕ█═бея═╨с╡═╩ иФ ЗЕРО╛ НО ЕРРОР█═йср═прбыте═╩ пРИНТ ЕРРОР ЦОДЕ█═йср═пррдерр═╩ пРИНТ ╒РЕАД ЕРРОР╒█═ймп═доне═╩ яУИТ█╨с╡═лда═рдътц╚╠═╩ мсб█═йср═прбыте═╩ пРИНТ ИТ█═лда═рдътц═╩ лсб█═йср═прбыте═╩ пРИНТ ИТ█═йср═цроут═╩ ╝╝╝█═йср═цл═╩ цЛОСЕ ФИЛЕ█═йср═прсуцц═╩ пРИНТ СУЦЦЕСС МЕССАГЕ██маинлооп█═ста═сфтцрд═╩ пАУСЕ з╦╟╛ РЕСУМЕ ╤╣╟╡█═йср═хандлр═╩ хАНДЛЕ ЦАЛЛС МАДЕ БЫ з╦╟ ЦОДЕ█═ймп═маинлооп═╩ кЕЕП ОН КЕЕПИНГ ОН█доне█═брк══╩ дРОП ТО МОНИТОР██╙ пОИНТЕР ТО МЕССАГЕ ИС ИН зп ╓╟╤╜╓╟╥█╙ уСЕС зп ╓╟╦ АС ТЕМПОРАРЫ█прмсг═лды═ё╟═╩ иНИТИАЛИЗЕ ИНДЕЬ█═лда═╗╓╟╤╘╛ы═╩ лЕНГТХ ОФ СТРИНГ█═ста═╓╟╦═╩ сТОРЕ ЛЕНГТХ ИН ТЕМП█╨л╠═ины══╩ аДЖАНЦЕ ЦХАР ПОИНТЕР█═лда═╗╓╟╤╘╛ы═╩ гЕТ ЦХАР█═йср═цоут═╩ пРИНТ ИТ█═дец═╓╟╦═╩ дЕЦРЕМЕНТ БЫТЕС РЕМАИНИНГ█═бне═╨л╠═╩ лООП█═ртс══╩██╙ пРИНТ ВЕЛЦОМЕ МЕССАГЕ█првелц═лда═ё╪велцоме═╩█═ста═╓╟╤═╩█═лда═ё╬велцоме═╩█═ста═╓╟╥═╩█═йср═прмсг═╩█═йср═цроут═╩█═ртс══╩██╙ пРИНТ ╒ОПЕН ЕРРОР╒█проперр═лда═ё╪оперр═╩█═ста═╓╟╤═╩█═лда═ё╬оперр═╩█═ста═╓╟╥═╩█═йср═прмсг═╩█═лда═ё╪патх═╩█═ста═╓╟╤═╩█═лда═ё╬патх═╩█═ста═╓╟╥═╩█═йср═прмсг═╩█═йср═цроут═╩█═ртс══╩██╙ пРИНТ ╒ЦАН╖Т РЕАД╒█пррдерр═лда═ё╪рдерр═╩█═ста═╓╟╤═╩█═лда═ё╬рдерр═╩█═ста═╓╟╥═╩█═йср═прмсг═╩█═йср═цроут═╩█═ртс══╩██╙ пРИНТ ╒лОАДЕД╒█прсуцц═лда═ё╪патх═╩█═ста═╓╟╤═╩█═лда═ё╬патх═╩█═ста═╓╟╥═╩█═йср═прмсг═╩█═лда═ё╪суццмсг═╩█═ста═╓╟╤═╩█═лда═ё╬суццмсг═╩█═ста═╓╟╥═╩█═йср═прмсг═╩█═йср═цроут═╩█═ртс██╙ фИЛЕ ТО ЛОАД█патх═стр═╒софтцард╦╟╝бин╒█╩паылоад стр ╒мбасиц╝цом╒█паылоад═стр═╒нсвееп╝цом╒██╙ мЕССАГЕС█велцоме═стр═╒зАППЛЕ╜ии лОАДЕР╒█оперр═стр═╒╨ цАН╖Т ОПЕН ╒█рдерр═стр═╒╨ рЕАД ЕРРОР╒█суццмсг═стр═╒ ЛОАДЕД╒██╙ пРОдос пАРАМЕТЕР лИСТ ФОР опен█оп═йср═╓бф╟╟═╩ пРОдос ЦАЛЛ█═дб═╓ц╦═╩ опен█═дв═опъпл═╩ пОИНТЕР ТО ПАРМ ЛИСТ█═ртс══╩█опъпл═дб═Ё═╩ сТАРТ ОФ ПАРАМ ЛИСТ╩ Ё ПАРАМЕТЕРС█опъфп═дв═патх═╩ пОИНТЕР ТО ФИЛЕ ПАТХ█опъфбл═дв═иобуф═╩ пОИНТЕР ТО и╞о БУФФЕР█опън═дб═╟═╩ фИЛЕ РЕФЕРЕНЦЕ НУМБЕР██╙ пРОдос пАРАМЕТЕР лИСТ ФОР опен ╗ФОР ТХЕ ПАЫЛОАД╘█оппл═йср═╓бф╟╟═╩ пРОдос ЦАЛЛ█═дб═╓ц╦═╩ опен█═дв═опплъпл═╩ пОИНТЕР ТО ПАРМ ЛИСТ█═ртс█опплъпл═дб═Ё═╩ сТАРТ ОФ ПАРАМ ЛИСТ╩ Ё ПАРАМЕТЕРС█опплъфп═дв═паылоад═╩ пОИНТЕР ТО ПАЫЛОАД ПАТХ█опплъфбл═дв═иобуф═╩ пОИНТЕР ТО и╞о БУФФЕР█опплън═дб═╟═╩ фИЛЕ РЕФЕРЕНЦЕ НУМБЕР██╙ пРОдос пАРАМЕТЕР лИСТ ФОР реад█рд═йср═╓бф╟╟═╩ пРОдос ЦАЛЛ█═дб═╓ца═╩ реад█═дв═рдъпл═╩ пОИНТЕР ТО ПАРМ ЛИСТ█═ртс══╩█рдъпл═дб═╢═╩ сТАРТ ОФ ПАРАМ ЛИСТ╩ ╢ ПАРАМЕТЕРС█рдън═дб═╟═╩ фИЛЕ РЕФЕРЕНЦЕ НУМБЕР█рдъдб═дв═лдаддр═╩ дАТА БУФФЕР лсб█рдърц═дв═лдлен═╩ рЕЯУЕСТ ЦОУНТ лсб█рдътц═дв═╓╟╟╟╟═╩ тРАНС ЦОУНТ лсб██╙ пРОдос пАРАМЕТЕР лИСТ ФОР реад█рдпл═йср═╓бф╟╟═╩ пРОдос ЦАЛЛ█═дб═╓ца═╩ реад█═дв═рдплъпл═╩ пОИНТЕР ТО ПАРМ ЛИСТ█═ртс█рдплъпл═дб═╢═╩ сТАРТ ОФ ПАРАМ ЛИСТ╩ ╢ ПАРАМЕТЕРС█рдплън═дб═╟═╩ фИЛЕ РЕФЕРЕНЦЕ НУМБЕР█рдплъдб═дв═╓╠╠╟╟═╩ дАТА БУФФЕР лсб█рдплърц═дв═лдлен═╩ рЕЯУЕСТ ЦОУНТ лсб█рдплътц═дв═╓╟╟╟╟═╩ тРАНС ЦОУНТ лсб██╙ пРОдос пАРАМЕТЕР лИСТ ФОР цлосе█цл═йср═╓бф╟╟═╩ пРОдос ЦАЛЛ█═дб═╓цц═╩ цлосе█═дв═цлъпл═╩ пОИНТЕР ТО ПАРМ ЛИСТ█═ртс█цлъпл═дб═╠═╩ сТАРТ ОФ ПАРАМ ЛИСТ╩ ╠ ПАРАМЕТЕР█цлън═дб═╟═╩ фИЛЕ РЕФ НУМ ╗╟ ЦЛОСЕ АЛЛ╘██╙ хАНДЛЕ ЦАЛЛС МАДЕ БЫ з╦╟ ЦОДЕ█хандлр═лда═цмд█═цмп═ё╟═╩ цмд╫╟ МЕАНС ЦОНТИНУЕ РУННИНГ ╤╣╟╡ ЦОДЕ█═бне═╨цмд╠═╩█═пла══╩ цЛЕАН УП СТАЦК█═пла══╩ ╝╝╝█═ймп═доне═╩ цОНТИНУЕ МАИН ╤╣╟╡ РОУТИНЕ█╨цмд╠═цмп═ё╠═╩ цмд╫╠ МЕАНС ЦАЛЛ ╤╣╟╡ РОУТИНЕ ТХЕН РЕТУРН ТО з╦╟█═бне═╨цмд╡═╩█═лда═флагс═╩ лОАД ТХЕ ФЛАГС█═пха══╩ уСЕ СТАЦК ТО МОЖЕ а ТО СТАТУС█═плп══╩ ╝╝╝█═лда═арег═╩ лОАД ТХЕ РЕГИСТЕРС█═лдь═ьрег═╩ ╝╝╝█═лды═ырег═╩ ╝╝╝█═йср═╨доймп═╩ хАЦК ТО АЦХИЕЖЕ АН ИНДИРЕЦТ йср█═ста═арег═╩ сТОРЕ ТХЕ РЕГИСТЕРС█═сть═ьрег═╩ ╝╝╝█═сты═ырег═╩ ╝╝╝█═пхп══╩ мОЖЕ СТАТУС ТО а ЖИА ТХЕ СТАЦК█═пла══╩█═ста═флагс═╩ сТОРЕ ТХЕ ФЛАГС█═ртс══╩ вИЛЛ ГО БАЦК ТО з╦╟█╨цмд╡═цмп═ё╡═╩ цмд╫╡ МЕАНС ЦАЛЛ пРОдос мли ТХЕН РЕТУРН ТО з╦╟█═бне═╨цмдЁ═╩█═йср═╨доймп═╩ пРОдос мли ЦАЛЛ█═ста═арег═╩ сТОРЕ РЕТУРН ЦОДЕ█═ртс══╩ вИЛЛ ГО БАЦК ТО з╦╟█╨цмдЁ═цмп═ёЁ═╩ цмд╫Ё МЕАНС ПЕЕК АТ ТХЕ КЕЫБОАРД ТХЕН РЕТ ТО з╦╟█═бне═╨цмд╢═╩█═бит═╓ц╟╟╟═╩ пЕЕК АТ ТХЕ КЕЫБОАРД СТАТУС█═бми═╨цЁыес═╩ бРАНЦХ ИФ КЕЫСТРОКЕ АЖАИЛАБЛЕ█═лда═ё╟═╩ иФ НО ЦХАРС╛ РЕТУРН ╟ ИН арег█═ймп═╨цЁдоне═╩ ╝╝╝█╨цЁыес═лда═ё╠═╩ оТХЕРВИСЕ РЕТУРН ╠ ИН арег█╨цЁдоне═ста═арег═╩ сТОРЕ ТХЕ ЖАЛУЕ ФОР ТХЕ з╦╟█═ртс══╩ гО БАЦК ТО з╦╟█╨цмд╢═йср═белл═╩ бЕЕП ФОР ЕРРОР█═брк══╩ аНД ДРОП ИНТО МОНИТОР█╨доймп═ймп═╗аддр╘═╩██релоцъен█