cursor

ZXNet echo conference «code.zx»

From Nik Aleksandrovich To All 6 May 2004

I'm glad to welcome you, All! I am writing to you from a burning tank... people!!!!!!!! please..... Throw in a cursor program, it worked with the gray one too... preferably dynamic.... plzzzzz I’m writing a program, please help, because someone has the source code.... thanks in advance.... Best regards, Niko Sun ATM-turbo rulezzz!!! mail: niko-sun@rin.ru Si yo leter, All ...

From Ivan Kuvshinov To Nik Aleksandrovich 9 May 2004

NA> @RealName: NA> Ik Aleksandrovich What does this mean? And about the cursor - I remember Slava (?) talked about dynamic rendering, during a long construction period frame to improve controllability when braking. KIA

From Kirill Frolov To Nik Aleksandrovich 9 May 2004

Press RESET immediately, Nik Aleksandrovich! On Thu, 06 May 04 19:43:01 +0400, Nik Aleksandrovich wrote: NA> people!!!!!! NA> please..... NA> throw away the cursor program, it worked with the gray one too... NA> preferably dynamic.... plzzzz NA> I’m writing a program, help, because someone has the source code.... NA> thanks in advance.... For ZXASM3.00. TEST EQU 1 ; mouth to 0 for final compilation KEYBCOORD EQU #0200 PHONCOORD EQU #0215 SETSCOORD EQU #1300 D.I. IF TEST ELSE LD HL,(23873) LD(L_MULX),HL ENDIF ; GENERATION OF THICK FONT LD HL,#3D00 LD DE,FONT-256 LD (23606),DE INC D MK_FNT0 LD BC,4 LDIR LD B,4 MK_FNT1 LD A,(HL) SRL A OR(HL) INC HL LD(DE),A INC DE DJNZ MK_FNT1 LD A,H CP #40 JR C,MK_FNT0 LD (IY-48),1 LD (IY-49),11 ; DETERMINING THE PRESENCE OF A MOUSE: LD DE,10000 MDD1_LD BC,#FADF IN A,(C) CP#FF JR NZ,MDD_ DEC DE LD A,D OR E JR NZ,MDD1_ LD A,#C9 ; DISCONNECT LD(MOUSDRV),A ; MICE;--------------------------------------- ; ОТРИСОВКА ЭКРАHА MDD_ LD A,#0F LD (#5C8D),A LD (#5C48),A CALL #0D6B LD HL,EXITTXT LD BC,#0100 CALL PRINT LD A,2 CALL #1601 LD HL,KEYBTXT LD BC,KEYBCOORD CALL PRINT LD HL,PHONTXT0 LD BC,PHONCOORD CALL PRINT LD HL,COPYTXT LD BC,#0000 CALL PRINT LD HL,SETSTXT LD BC,SETSCOORD CALL PRINT CALL INDVOL CALL RECALC LD (IY+48),#08 XOR A LD (LH),A CALL SETLINE MDD0 CALL CLICK LD A,(MOUSDRV) DEC A JR Z,MDD2 LD A,#78 LD (KMOUSTX),A LD A,#01 LD (MOUSDRV),A LD A,#FF LD (CONTRB),A JR MDD3 MDD2 LD A,#20 LD (KMOUSTX),A LD A,#FF LD (CONTRB),A LD A,#C9 LD (MOUSDRV),A MDD3 LD HL,HELPTXT LD BC,#0D15 CALL PRINT ;------------------------------------- ; ГЛАВHЫЙ ЦИКЛ -- ОЖИДАHИЕ СОБЫТИЯ WKEY CALL HEAR XOR A IN A,(#FE) OR #E0 INC A JR NZ,WKEY ; КЛАВИША HАЖАТА CALL MOUSDRV LD A,(CONTRB) OR #F8 INC A JR NZ,WKEY WKEY00 LD HL,#FFFF LD (CHKCOOR),HL WKEY0 LD A,1 LD (A_STAT),ARES 5,(IY+1) CALL HEAR CALL #02BF CALL MOUSDRV BIT 5,(IY+1) JR NZ,WKEY1 LD A,(CONTRB) OR #F8 INC A JR NZ,MBUTT INC A LD (MULSCL),A LD HL,(COORD) CHKCOOR EQU $+1 LD DE,0 OR A SBC HL,DE JR Z,WKEY0 CALL A_PLACE LD HL,(COORD) LD (CHKCOOR),HL JR WKEY0 ;--------------------------------------- ; ОБРАБОТКА КЛИКА МЫШЬЮ MBUTT XOR A LD (A_STAT),A CALL A_PLACE CALL CLICK MBUTT0 LD HL,OBJTBL LD BC,6 MBUTT1 LD A,(HL) INC A JR Z,WKEY PUSH HL LD A,(COORD+1) RRA : RRA RRA : AND #1F CP (HL) JR C,MBUTX INC HL CP (HL) JR NC,MBUTX LD A,(COORD) RRA : RRA RRA : AND #1F INC HL CP (HL) JR C,MBUTX INC HL CP (HL) JR NC,MBUTX INC HL LD E,(HL) INC HL LD D,(HL) EX DE,HL POP DE JP (HL) MBUTX POP HL ADD HL,BC JR MBUTT1 WKEY1 XOR A LD (A_STAT),A CALL A_PLACE CALL #1F54 JR NC,QUIT LD A,(#5C08) CP #20 JR NZ,SKEY CALL CLICK LHCON LH EQU $+1 LD A,0 OR ALD HL,PHONTXT0 JR NZ,$+5 LD HL,PHONTXT1 CPL LD (LH),A CALL SETLINE LD BC,PHONCOORD CALL PRINT LD B,10 PUSH BC CALL HEAR POP BC DJNZ $-5 JP WKEY ;-------------------------------------- ; ВЫХОД ИЗ ПРОГРАММЫ QUIT IF TEST RET ENDIF XOR A LD (LH),A CALL SETLINE DI XOR A LD BC,#7FFD OUT (C),A RST #00 ;-------------------------------------- ; ОБРАБОТКА HАЖАТИЯ HА КЛАВИШУ SKEY LD HL,KEYTBL LD DE,5 LD B,1 SKEY1 CP (HL) JR Z,SKEY2 ADD HL,DE DJNZ SKEY1 CP #07 JP Z,SAVE CP #4B JP Z,MDD0 CP #2B JR Z,INCVOL CP #2D JR Z,DECVOL CP #4E JR Z,NRMMUL CP #3E JR Z,INCLUDE CP #3C JP NZ,WKEY ; УПРАВЛЕHИЕ МHОЖИТЕЛЕМ ДЛЯ DTMF ; ГЕHЕРАТОРА +/-/set DECMUL LD HL,(L_MULX) MULSCL EQU $+1 LD DE,1 OR A SBC HL,DE JR KMUL INCMUL LD HL,(L_MULX) LD DE,(MULSCL) ADD HL,DE KMUL LD (L_MULX),HL INC E LD A,E CP 50 JR C,$+3 DEC A LD (MULSCL),A CALL CLICK CALL RECALC JP WKEY00 NRMMUL LD HL,NORM_MULLD (L_MULX),HL CALL CLICK CALL RECALC JP WKEY ; УПРАВЛЕHИЕ ГРОМКОСТЬЮ +/-/set DECVOL LD A,(VOLUME) OR A JR Z,$+3 DEC A JR KVOL INCVOL LD A,(VOLUME) CP #0F JR NC,$+3 INC A KVOL LD (VOLUME),A CALL CLICK CALL INDVOL CALL HEAR CALL HEAR JP WKEY00 ;-------------------------------------- SKEY2 PUSH HL CALL CLICK LD A,#E0 LD (TWX2),A LD (TWX3),A LD (TWX4),A LD (TWX1),A LD HL,#00FE LD (TWX),HL POP HL SKEY3 INC HL LD E,(HL) : INC HL LD D,(HL) : INC HL PUSH DE LD E,(HL) : INC HL LD D,(HL) PUSH DE LD BC,-KEYTBL-4 ADD HL,BC LD A,L DEC H INC H : SUB 5 : JR NC,$-3 LD A,H : LD H,#FF INC H : SUB 4 : JR NC,$-3 ADD A,4 : LD L,A ADD A,A : ADD A,A ADD A,L : LD L,A LD A,H : ADD A,A ADD A,A : LD H,A LD BC,KEYBCOORD+257 ADD HL,BC LD A,H RRCA RRCA RRCA LD H,A AND #E0 OR L LD L,A LD A,H AND #03 OR #58 LD H,A LD (LKADDR),HL LD A,%01110010 CALL LGKEY POP DEEXX POP DE CALL TWT LD A,(LH) CALL SETLINE LKADDR EQU $+1 LD HL,0 LD A,%00001111 CALL LGKEY LD HL,#2758 EXX JP WKEY LGKEY LD B,3 LD DE,32-3 LGKEY1 LD (HL),A : INC L LD (HL),A : INC L LD (HL),A : INC L LD (HL),A ADD HL,DE DJNZ LGKEY1 RET ; ОЗВУЧИВАHИЕ КЛИКА МЫШЬЮ CLICK LD HL,CLICK_T LD C,#FD CLICK1 LD B,#FF : OUTI LD B,#BF : OUTI LD A,(HL) : INC A JP NZ,CLICK1 RET CLICK_T DB 7,%11111101 DB 2,15,3,0 DB 9,16 DB 12,0,11,100 DB 13,0 DB #FF ; ОБРАБОТКА HАЖАТИЯ МЫШЬЮ HА ЦИФРУ MKEY LD A,#F8 LD (TWX2),A LD (TWX3),A LD (TWX4),A LD (TWX1),A LD HL,#FADF LD (TWX),HL LD A,(COORD+1) RRA : RRA RRA : AND #1F SUB KEYBCOORD/256 AND #0C : LD B,A ADD A,A : ADD A,A ADD A,B : LD B,A LD A,(COORD) RRA : RRA RRA : AND #1F SUB KEYBCOORD256 LD C,#FF INC C : SUB 5 : JR NC,$-3 LD A,C : ADD A,A : ADD A,A ADD A,C : ADD A,B LD C,A : LD B,0 LD HL,KEYTBL ADD HL,BC JP SKEY3 ; УПРАВЛЕHИЕ ГРОМКОСТЬЮ ОТ МЫШИ MVOL LD A,(COORD) RRA : RRARRA : AND #1F SUB VOLDISP JR NC,$+3 XOR A CP 16 JR C,$+4 LD A,15 LD (VOLUME),A CALL INDVOL LD A,1 LD (A_STAT),A CALL A_PLACE CALL HEAR CALL HEAR LD A,(COORD+1) PUSH AF CALL MOUSDRV POP AF LD (COORD+1),A LD A,(COORD) CP L_MVOL*8+4 JR NC,$+4 LD A,L_MVOL*8+4 CP R_MVOL*8-8 JR C,$+4 LD A,R_MVOL*8-8 LD (COORD),A XOR A LD (A_STAT),A CALL A_PLACE LD A,(CONTRB) OR #F8 INC A JP Z,WKEY JP MBUTT0 ; ОТРИСОВКА ИHДИКАТОРА ГРОМКОСТИ INDVOL LD A,(VOLUME) LD C,A INC C LD HL,VOLTXT LD B,15 INDVOL1 DEC C LD A,#8F JR NZ,$+5 INC C LD A,#7C LD (HL),A INC HL DJNZ INDVOL1 LD HL,SETSTXT LD BC,SETSCOORD JP PRINT ;---------------------------------------- ;TWO_TONE_GENERATOR ; ; DE AND DE' = FREQUENCY (HЕ В ГЕРЦАХ!) ; ; TWT DI LD A,(LH) OR A LD A,(BRDCOL) JR Z,$+4 OR #20 LD (TWH1),A LD (TWH2),A OR #08 LD (TWH3),A LD (TWH4),A TWX EQU $+1 LD BC,0 PUSH BC EXX POP BCTW1 ADD HL,DE BIT 7,H JP Z,TW3 TWH1 EQU $+1 : LD A,#00 OUT (#FE),A EXX IN A,(C) TWX1 EQU $+1 : OR #E0 INC A JP NZ,TW2 RET TW2 ADD HL,DE BIT 7,H JP Z,TW4 TWH2 EQU $+1 : LD A,#00 OUT (#FE),A EXX IN A,(C) TWX2 EQU $+1 : OR #E0 INC A JP NZ,TW1 RET TW3 EXX TWH3 EQU $+1 : LD A,#00 OUT (#FE),A IN A,(C) TWX3 EQU $+1 : OR #E0 INC A JP NZ,TW2 RET TW4 EXX TWH4 EQU $+1 : LD A,#00 OUT (#FE),A IN A,(C) TWX4 EQU $+1 : OR #E0 INC A JP NZ,TW1 RET ; ; Each key on a DTMF keypad produces ; 2 frequencies simultaneously (one ; from the high group and another from ; the low group). ; ; ------------------------- ;Low Group ! Q ! ABC ! DEF ! ! ; 697 Hz-! 1 ! 2 ! 3 ! A ! ; ! ! ! ! ! ; !-----!-----!-----!-----! ; ! GHI ! JKL ! MNO ! ! ; 770 Hz-! 4 ! 5 ! 6 ! B ! ; ! ! ! ! ! ; !-----!-----!-----!-----! ; ! PRS ! TUV ! WXY ! ! ; 852 Hz-! 7 ! 8 ! 9 ! C ! ; ! ! ! ! ! ; !-----!-----!-----!-----! ; ! ! OPER! ! ! ; 941 Hz-! * ! 0! # ! D! ; ! ! Z! ! ! ; !-----!-----!-----!-----! ; 1209 1336 1477 1633 ; (High Group--in Hz) ; FRQTB0 DW 6970,7700,8520,9410 FRQTB1 DW 12090,13360,14770,16330 ; ; ; ;N=F*(32768/Fw) Fw=3500000/(176*2) ; ;N=F*3.295524571 ; ; ; F(Hz) N(DE) F(Hz) N(DE) ; ; 697 2297 1209 3984 ; 770 2538 1336 4403 ; 852 2808 1477 4867 ; 941 3101 1633 5382 ; ; TABLE OF CORRESPONDENCE OF DIGIT CODES ; AND DTMF FREQUENCIES KEYTBL DB "1" : DW 2297.3984 DB "2" : DW 2297.4403 DB "3" : DW 2297.4867 DB "A" : DW 2297.5382 DB "4" : DW 2538.3984 DB "5" : DW 2538.4403 DB "6" : DW 2538.4867 DB "B" : DW 2538.5382 DB "7" : DW 2808.3984 DB "8" : DW 2808.4403 DB "9" : DW 2808.4867 DB "C" : DW 2808.5382 DB "*" : DW 3101,3984 DB "0" : DW 3101,4403 DB "#" : DW 3101.4867 DB "D" : DW 3101.5382 PRINT LD A,C LD(PR1),A LD A,B DEC A LD(PR0),A PRINT1 PUSH HL LD A,#16 RST #10 PR0 EQU $+1 LD A,0 INC A LD(PR0),A RST #10 PR1 EQU $+1 LD A,0 RST #10 POP HL PRINT0 LD A,(HL) INC A RET Z DEC A CP#0A INC HL JR Z,PRINT1PUSH HL RST #10 POP HL JR PRINT0 ;----------------------------------- ; PICTURES FOR SCREEN KEYBTXT DB "LGGGGGLGGGGGLGGGGGLGGGGGK",#0A DB "K K K K K",#0A DB "K 1 K 2 K 3 K A K",#0A DB "K q Kabc Kdef K K",#0A DB "LGGGGGLGGGGGLGGGGGLGGGGGK",#0A DB "K K K K K",#0A DB "K 4 K 5 K 6 K B K",#0A DB "Kghi Kjkl Kmno K K",#0A DB "LGGGGGLGGGGGLGGGGGLGGGGGK",#0A DB "K K K K K",#0A DB "K 7 K 8 K 9 K C K",#0A DB "Кprs Кtuv Кwxy К К",#0A DB "LGGGGGLGGGGGLGGGGGLGGGGGK",#0A DB "K K z K K K",#0A DB "K * K 0 K # K D K", #0A DB "K KoperK K K",#0A DB "YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYB",#0A DB #FF PHONTXT0 DB " ",#0A DB "YGGGGGGZH",#0A DB "Y MMMM F",#0A DB "OMHDMMYOMH",#0A DB "MMH OMM",#0A DB "Y Zh",#0A DB "K E",#0A DB "OMMMMMMMMMH",#0A DB " ",#0A DB " ",#0A DB #FF PHONTXT1 DB "YGK/",#0A DB "Y K-",#0A DB "K MK",#0A DB "KE",#0A DB "KE",#0A DB "KE",#0A DB "KE",#0A DB "K GK",#0A DB "Zh K",#0A DB "ZhMK" DB #FF HELPTXT DB " ",#13,1,"SPACE",#13,0 DB "key",#0A DB "on/off line",#0A,#0A DB " ",#13,1,"K",#13,0 DB "empston",#0A DB "mouse[" KMOUSTX DB "x]" DB #FFCOPYTXT DB " Vicomm-Beeper ver 1.2 by FK0'98" DB #FF EXITTXT DB #13,1,"BREAK",#13,0 DB " for exit " DB #13,1,"EDIT",#13,0 DB " for saving" DB #FF CALCTXT DB "Multiplyer (" DB #13,1,"<",#13,0,"/" DB #13,1,">",#13,0,") : " DB " " DB #13,1,"N",#13,0 DB "=21598" DB #FF CALCDISP EQU 19 NORM_MUL EQU 21598 ; 20862 ? SETSTXT DB "Volume " DB "(",#13,1,"-",#13,0,"/" DB #13,1,"+",#13,0,") П" VOLTXT DB "||||||||||||||||" DB #FF VOLDISP EQU 13 L_MVOL EQU #0D R_MVOL EQU #1E ; ТАБЛИЦА КООРДИHАТ В ЭКРАHЕ И АДРЕСОВ ; ПОДПРОГРАММ ДЛЯ МЫШИ OBJTBL DB #17,#18,#00,#0E : DW QUIT DB #02,#0F,#15,#20 : DW LHCON DB #02,#12,#00,#14 : DW MKEY DB #10,#12,#13,#20 : DW MDD0 DB #13,#14,L_MVOL,R_MVOL : DW MVOL DB #13,#14,#08,#09 : DW DECVOL DB #13,#14,#0A,#0B : DW INCVOL DB #15,#16,#0C,#0D : DW DECMUL DB #15,#16,#0E,#0F : DW INCMUL DB #15,#16,#19,#20 : DW NRMMUL DB #17,#18,#11,#20 : DW MSAVE DB #FF BRK PUSH HL LD HL,#0066 EX (SP),HL JP #3D2F ;------------------------------------- ; ОЗВУЧИВАHИЕ ЛИHИИ В ТЕЧЕHИИ ; HЕКОТОРОГО ВРЕМЕHИ HEAR LD A,(LH) OR A JR Z,WRING LD BC,#FFFD LD A,8 OUT (C),A LD B,#BFLD DE,1024 HEAR1 IN A,(#FE) RLA RLA VOLUME EQU $+1 LD A,5 JR C,$+3 XOR A OUT (C),A DEC DE LD A,D OR E JP NZ,HEAR1 RET ;----------------------------------- ; ОЖИДАHИЕ ЗВОHКА WRING EI : HALT : DI : RET ;------------------------------------- ; ON/OFF HOOK SETLINE LD A,(LH) OR A BRDCOL EQU $+1 LD A,#01 JR Z,$+4 OR #28 OUT (#FE),A RET ;-------------------------------------- ; ПЕРЕРАСЧЕТ ЧАСТОТ БИПЕРА RECALC LD HL,KEYTBL XOR A RECALC1 INC HL PUSH AF LD C,A AND #FC LD B,A LD A,C SUB B PUSH AF LD A,C SRL A SRL A LD DE,FRQTB0 CALL RECALC2 POP AF LD DE,FRQTB1 CALL RECALC2 POP AF INC A CP 16 JR C,RECALC1 LD HL,#2758 EXX LD HL,CALCTXT LD BC,#1500 CALL PRINT LD A,#16 RST #10 LD A,#15 RST #10 LD A,CALCDISP RST #10 LD BC,(L_MULX) CALL #2D2B JP #2DE3 RECALC2 PUSH HL PUSH DE LD BC,0 H_MULX EQU $+1 LD DE,0 EXX POP HL ADD A,A ADD A,L LD L,A JR NC,$+3INC H LD C,(HL) INC HL LD B,(HL) L_MULX EQU $+1 LD DE,NORM_MUL ;----------------------------------- ; HL'HL=DE'DE*BC'BC MULT LD A,#20 LD HL,0 EXX LD HL,0 EXX MUL0 EX DE,HL ADD HL,HL EX DE,HL EX AF,AF' ADD HL,HL EXX ADC HL,HL EX DE,HL EX AF,AF' ADC HL,HL EX DE,HL JR NC,MUL1 EXX ADD HL,BC EXX ADC HL,BC MUL1 EXX DEC A JP NZ,MUL0 EXX EX DE,HL POP HL LD (HL),E INC HL LD (HL),D INC HL RET ;------------------------------------- ; СОХРАHЕHИЕ КОHФИГУРАЦИИ В ФАЙЛ SAVE CALL CLICK MSAVE IF TEST LD A,7 OUT (#FE),A EI : HALT : DI LD A,1 OUT (#FE),A JP WKEY ENDIF LD HL,(L_MULX) LD (23873),HL LD HL,(23641) LD (HL),#AA INC HL LD (HL),#01 INC HL LD (HL),#00 LD HL,QUIT PUSH HL LD (23613),SP LD (IY),#FF LD HL,0 LD (#5D0F),HL LD DE,(23787) LD HL,#5D3B LD BC,#0106 CALL #3D13 POP HL JP WKEY ;--------------------------------------ДРАЙВЕР МЫШИ С АКСЕЛЕРАЦИЕЙ OLDCO DEFW 0 ; COORD DEFW 0 ;small (flavonoid, y-color) CONTRB DEFB #FF ;small snowflakes - snow MOUSDRV LD BC,#FBDF LD DE,(OLDCO) LD HL,(COORD) IN A,(C) ;shell X LD (OLDCO),A SUB E JR Z,MSEx0 JP P,MSEx1 NEG CALL MSElog NEG ADD A,L JR C,MSEx XOR A JR MSEx MSEx1 CALL MSElog ADD A,L JR C,MSEx11 CP 254 ;max X JR C,MSEx MSEx11 LD A,254;max X MSExe LD L,A MSEx0 LD B,#FF ; IN A,(C) LD (OLDCO+1),A SUB D JR Z,MSEy0 JP M,MSEy1 CALL MSElog NEG ADD A,H JR C,MSEye XOR A JR MSEye MSEy1 NEG CALL MSElog ADD A,H JR C,MSEy11 CP 190 ;max Y JR C,MSEye MSEy11 LD A,190 ;max Y MSEye LD H,A MSEy0 LD (COORD),HL LD B,#FA ; IN A,(C) LD (CONTRB),A RET ; MSElog CP 4 ;not to mention RET C ADD A,A JR C,MSElgC CP 8*2 RET C ADD A,8 JR C,MSElgC CP 120 RET C MSElgC LD A,120 RET ;-------------------------------------- ПРОЦЕДУРА ВЫВОДА СТРЕЛКИ МЫШИ A_PLACE CALL A_OFF LD A,(A_STAT) OR A RET Z CALL A_ON RET A_ON DI LD BC,(COORD) LD A,16 LD (A_LNS),A LD A,B CP 176 JR C,A_ON1 SUB 192 NEG LD (A_LNS),A A_ON1 LD A,B CALL #22B1 LD (A_L0+1),A LD IY,A_BUFF LD IX,ARROW LD A,(A_LNS) LD B,A PUSH HL LD (A_SCRA),HL EXX POP HL EXX A_L5 EXX LD E,(IX) INC IX LD D,(IX) INC IX LD B,0 LD C,B A_L0 LD A,0 ;! OR A JR Z,A_L2 A_L1 SRL D RR B SRL E RR C DEC A JR NZ,A_L1 A_L2 LD A,(HL) LD (IY),A INC IY LD A,D CPL AND (HL) XOR E LD (HL),A LD A,L INC A AND %00011111 JR Z,A_L3 INC L LD A,(HL) LD (IY),A INC IY LD A,B CPL AND (HL) XOR C LD (HL),A DEC L A_L3 INC H LD A,H AND 7 JR NZ,A_L4 LD A,L ADD A,32 LD L,A JR C,A_L4 LD A,H SUB 8 LD H,A A_L4 EXX DJNZ A_L5 LD A,#FF LD (A_STT1),A LD IY,#5C3A LD HL,#2758 EXX RET A_OFF LD A,(A_STT1) OR A RET Z LD HL,A_BUFF LD DE,(A_SCRA) LD A,(A_LNS) LD B,A A_REST1 LD A,(HL) LD (DE),A INC HL LD A,E INC A AND #1F JR Z,A_REST2 INC E LD A,(HL) INC HL LD (DE),A DEC E A_REST2 INC D LD A,D AND 7 JR NZ,A_REST3 LD A,E ADD A,32 LD E,A JR C,A_REST3 LD A,D SUB 8 LD D,A A_REST3 DJNZ A_REST1 XOR A LD (A_STT1),A RET A_STAT DEFB 0 A_STT1 DEFB 0 A_LNS DEFB 0 A_SCRA DEFW 0 ARROW DB %00000000,%11000000 DB %01000000,%11100000 DB %01100000,%11110000 DB %01110000,%11111000 DB %01111000,%11111100 DB %01111100,%11111110 DB %01111110,%11111111 DB %01111000,%11111110 DB %01001000,%11111100 DB %00001000,%00011100 DB %00000100,%00001110 DB %00000100,%00001110 DB %00000010,%00000111 DB %00000010,%00000111 DB %00000000,%00000011 DB 0,#00 A_BUFF DEFS 48 FONT

From Vlad Sotnikov To Ivan Kuvshinov 10 May 2004

Hello Ivan! May 09, 2004 (it was 02:55 then) Ivan Kuvshinov in his letter to Nik Aleksandrovich wrote: NA>> @RealName: NA>> Ik Aleksandrovich IK> What does this mean? "IK>" - what does this mean? :) IK> And about the cursor - I remember Slava (?) talked about IK> dynamic rendering, during a long construction period IK> frame to improve controllability when braking. Look at our arrow in Net Walk. Rules :) Vega/ex-Style Group. FIDO: 2:5030/1512 ZXNET: 500:812/19 E-mail: vega56@mail.ru ICQ: 144932679

From Ivan Kuvshinov To Vlad Sotnikov 11 May 2004

NA>>> @RealName: NA>>> Ik Aleksandrovich IK>> What does this mean? VS> "IK>" - what does this mean? :) I mean that the Russian "H" has turned into a line feed. KIA

From Nik Aleksandrovich To Vlad Sotnikov 12 May 2004

And how is your niche, Vlad! I am writing to you from a burning tank... Mon 10 May 2004 22:50:08, Vlad Sotnikov -> Ivan Kuvshinov: IK>> And about the cursor - I remember Slava (?) talked about IK>> dynamic rendering, during a long construction period IK>> frame to improve controllability when braking. VS> Look at our arrow in Net Walk. Rules :) and share the sources???? copyright respected.... Best regards, Niko Sun ATM-turbo rulezzz!!! mail: niko-sun@rin.ru Si yo leter, Vlad ... icq 250109788

From Nik Aleksandrovich To Kirill Frolov 12 May 2004

And how is your nothing, Kirill! I am writing to you from a burning tank... Sun 9 May 2004 12:04:08, Kirill Frolov -> Nik Aleksandrovich: thank you very much, I’ll try it out, even though I’m sitting in a storm and ok, but thanks for the entom, there is also a sm!!! helped out!!!! otherwise I have 0 full and writing kada is nonsense!!! This is where libraries come in!!! and who is the ftor??? Best regards, Niko Sun ATM-turbo rulezzz!!! mail: niko-sun@rin.ru Si yo leter, Kirill ... icq 250109788

From Nik Aleksandrovich To Ivan Kuvshinov 12 May 2004

And how is your nothing, Ivan! I am writing to you from a burning tank... Tue 11 May 2004 12:35:10, Ivan Kuvshinov -> Vlad Sotnikov: NA>>>> @RealName: NA>>>> Ik Aleksandrovich IK>>> What does this mean? VS>> "IK>" - what does this mean? :) IK> I mean that the Russian "H" has turned into a line feed. Speak... ;))) it happens ;)) Best regards, Niko Sun ATM-turbo rulezzz!!! mail: niko-sun@rin.ru Si yo leter, Ivan ... icq 250109788

From Ivan Kuvshinov To Nik Aleksandrovich 13 May 2004

IK>> I mean that the Russian "H" has turned into a line feed. NA> please.... ;))) NA> happens ;)) So, won’t you change it to English? Otherwise I just I see Alexandrovich. Petrovich's fart is still missing :))) KIA

From Kirill Frolov To Nik Aleksandrovich 14 May 2004

Press RESET immediately, Nik Aleksandrovich! On Wed, 12 May 04 13:11:33 +0400, Nik Aleksandrovich wrote: NA> thank you, I’ll try it out, even though I’m sitting in a storm and NA> ok, but thank you for that too!!! I'm writing in the fake: there are only two assemblers left, Alasm (4.x) and ZXASM (3.10)... NA> otherwise I have 0 full and writing kada is nonsense!!! Speak Russian, please. NA> this is where the library comes in!!! Which libraries specifically? NA> and who is the author ??? An arrow - like D. Bystrov, I don’t remember. Someone a very long time ago I threw it into the echo chamber in 1998. Mouse driver with acceleration - Mednonogov, while same time... The rest is FK0.