ZXNet эхоконференция «code.zx»

Kirill Frolov at 21-04-98 => Igor Krauklis .... [...] Привет, Kirill & Igor! IK>> Люди, а есть ли у кого-нидудь IK>> подпрограммка ввода строки ? KF> У "кого-нидудь" может и есть. А куда ее и откуда вводить ? KF> С клавы типа инпута в бейсике ? Если для виевера, то... LD B,42; символы в строке LD HL,lab2 PUSH HL LD HL,adr_str;адрес тек. строки LD DE,string ;строка, что будет lab1 LD A,(HL) ;напечатана INC HL CP #D RET Z ;здесь можно опросить ;на наличие упр. ;символов LD (DE),A INC DE DJNZ lab1 CP #D RET NZ INC HL; в HL адрес след. строки. RET lab2 ..... ;теперь можно и напечатать. Если хотите, чтобы Спек работал с полной отдачей, можно позаботится о скорости. INC RR, на 2 такта больше, чем INC R, и INC RR не влияет на флаги. Этим можно воспользоватся. Многие системные програм- меры забывают, что у Z80 есть стек. Его использоание в чтении данных дает ускорение в 2, а то и больше раз. Притом, что трата памяти при разумном использовании незначительна. Конечно, когда стеком пользуются в таких целях, прерывания обязательно надо запретить! И еще: на скорпе magic в таких местах нажимать не следует. ..... ; в HL адрес экрана LD (savesp+1),SP LD C,H LD B,32; печать по 2 символа EXX DI LD SP,strind LD B,#F0; маска EXX P64_0 EXX POP DE LD H,#60 LD L,D LD D,H LD A,(DE) INC D AND B LD C,A LD A,(HL) INC H AND #F OR C EXX LD (HL),A INC H .... .... LD H,C INC L DJNZ p64_0 savesp LD SP,0 ; здесь стек EI RET ; вот и вернулись.. Это был фрагмент процедуры печати строки на 64 символа. [...] С наилучшими пожеланиями, PHOENIX -+- ZXASM 3.0