Emulsion test

Hемедленно нажми на RESET, All! Очень интеpесуют pезультаты теста HА КОHТРОЛЛЕРАХ XT/AT клавиатуp. Hе поленитесь, напишите, что оно вам скажет. Подозpеваю, что обнаpужит эмулятоp... begin 644 ET_100.ZIP M4$L#!!0``@`(`.2A)BEWJ&,WF0$``!$"```)````971?,3`P+B1#I5'/2QM! M%-Y=NRAA!U.0&G*(+WI9*6E7#Z(2%^)F++(Q*S.SD)9"TX.'8#`A2,"+_@F" M?$BBDV-V[^A2"M.?700P]EU;2@OU!R:FXVUD5I/;H&Y@W[WV[_N&M[+^ M;$+3``RA?%<4I/'CSBK2I8YXKW/G^3+!E$*64OU^=I[@G*F#B1_3-`H[;&3Z MC[[U,3B5X+<>1+G'!Q##E"T6'X6B,)3^6=YX'WR/6V^Z'D0>@MCS?CYZ_@W M7H%EX'+]'[JB@*BET?N%U<$&S77<]W MX+Y+^#,=WWX[+0.81<8R>0M"B_=MG.TY[;XSXLP>KFD43"L//Z/[X:E MG7W/AR,'SMHGAS]MPZ@&N-@5AJ5:A46&K5JK0F@366TF >> Area: CODE.ZX >> From: Kirill Frolov, 0:3432/7 >> Subj: EMULATOR TEST >> File: ET_100.ZIP KF> The results of the test ON XT/AT CONTROLLERS are very interesting KF>keyboard. KF> Don't be lazy, write what it tells you. I suspect that KF> will detect the emulator... =8<= Cut here [ET_100.ASM] === L6000: CALL L0D6B LD A,2 CALL L1601 CALL L6104 DB 'PRESS + KEYS!

Hемедленно нажми на RESET, All! Вот веpсия V2.0. Тепеpь не виснет на скоpпионовских контpоллеpах клавиатуpы и не сглючивает на дpебезжащих клавиатуpах, также никаких кнопок нажимать не надо. Работает только пpи наличии BETA-DISK INTERFACE. Исдохник в следующем письме. === Cut === begin 644 ET_200.ZIP M4$L#!!0``@`(`%J2-"E;8W3@W@$``!$"```)````971?,C`P+B1#/9!/;Q)A M$,;G?1'8K+QT;2QIO#C;'B1-^&NCL4$BX$*(;)?L+@TQ)+"I2!MWW6:7DA@3 MK_H!^CG!!Y0XD7#R8/>E`,:/7BR!P]E?;'&RR3/_)Z9/#/]83>?S2)6H'>3 M`&W^F#YB13HEB>F65=6U1K9:145M-4JFIJ.I&";NY=-9Q@+.V5+7=VM!_&I1 MD(VMZ:I%X+*RU](ESU.[) M+)#?=&Y,Y!>]C4E'OG,M`=PFQ^'6[YUIYWER&87]SV"TVFT^L7YEV=654@.- MIE(Q]9:*>JNAW)?/H[&FKA@&%I1=4]&+:&JHM.LFXPL*YY)CLZ2;?V]BP=E[ MG+$R^/DZ8[0^?IYH;^#WH+A-QE@/LG:ZN>OE#&1@(R(>^WUOZ?=A#)0*L2//'7B6XZ1@K*;28LP_<+VA[0XJ M`"`(PHIC[7NNC^AP'8V"I&IW%141RS[X0**28QW:77=DI^!+F,4%J:[F<6[ MG2O7H`9KD4O.`V_$[3S_^-6*='U#U!+`P0*``````!TDC0IKAB,2,````C M````"P```$9)3$5?240N1$E:1E)/3#!&1BV2A9&2($B`()V,DXN?DHZ0(%8R M+C`@*$,I#0I02P$"&0`4``(`"`!:DC0I6V-TX-X!```1`@``"0`````````! M`"``````````971?,C`P+B1#4$L!`AD`"@``````=)(T*?*X8C$C````(P`` M``L``````````0`@````!0(``$9)3$5?240N1$E:4$L%!@`````"``(`<``` M`%$"``#8`@T*R

Press RESET immediately, All! And here is the source code, guess for yourself which assembler - This was done on purpose to make bad emulators more confused. ;eMULATOR test v2.0 ;(C) kIRILL fROL0FF '2000 ; ; ORG #6000 RESTART CALL #0D6B:LD A,2:CALL #1601 CALL PRINT DB "FROL0FF EMULATOR TEST V2.0" DB #0D,#0D,#FF CALL PRINT:DB #0D,"TESTING",#FF LD C,#1F,A,#08,HL,#2A53 CALL TRDOS LD BC,#1400,HL,STB TST LD A,C:OUT (#FE),A XOR #10:LD C,A PUSH BC,HL CALL PRINT:DB #2E,#FF LD HL,#2A53,BC,#02FF IDX LD A,#34:CALL TRDOS LD A,#3C:CALL TRDOS:DJNZ IDX POP HL:LD B,(HL):INC HL HALT:DJNZ $-1:POP BC:DJNZ TST CALL PRINT:DB "OK!",#0D,#FF LD HL,#5CC2,(HL),#C3 LD HL,RD1FRET,(#5CC3),HL LD HL,#2740,D,0:CALL TRDOS RD1FRET LD HL,14:ADD HL,SP:LD SP,HL LD A,(#5CCD):ADD A,A:JR Z,REAL CALL PRINT DB #0D,"EMULATOR SUXX!",#0D,#FF JR EXIT REAL CALL PRINT DB #0D,"REAL SPECTRUM RULEZ!" DB #0D,#FF EXIT CALL PRINT:DB #0D,#0D DB "PRESS TO EXIT",#0D DB "OR TO RESTART TEST",#0D DB #FF KEY RES 5,(IY+1):HALT:BIT 5,(IY+1) JR Z,KEY:LD A,(#5C08):AND #DF CP "R":JP Z,RESTART CP #0D:JR NZ,KEY LD HL,0TRDOS PUSH HL:JP #3D2F STB DB 2,2,3,5,1,1,3,1,5,10 DB 3,7,6,12,2,4,1,2,3,8 PRINT POP HL PR1 LD A,(HL):INC HL CP #FF:JR Z,PR2 PUSH HL:RST #10:POP HL:JR PR1 PR2 JP (HL) END

Let your enemies, Dmitriy, die without sons! 24 September 2000 at 23:27, Dmitriy Nesmachny ═> Valeriy Kovalev: KF>>>>> And this storm can’t go straight into BASIC KF>>>>> assemble! OG>>>> and does the right thing. never mind, because it doesn’t matter. KF>>> How can I put mine in the REM line in BASIC KF>>> program? KF>>> Load in STS? VK>> randomize usr 15616 VK>> Merge "programm" CODE 23872+257 VK>> return VK>> 23872 - if the bass text starts like this: 1 REM .... DN> Oh! The spirit of the ZX-Review was breathed... :-))) DN> You compile where the thread is, you go into STS, there you use the command "O" (cOpy block) with DN> compiled into bass. As an option. It's all nonsense. this is how it should be: ──{Begin} ──────────────────── ───────────────────── { bload .C } ── ;monoloader for code blocks ; AUTORUN EQU 0 LOAD EQU #61FE START EQU #61FE ORG #5D3B,#6000 M0 DW #0100 DW M2-M1+#01 M1 DB "@D4C0300E0000485D00" D.I. RES 4,(IY+#01) LD HL,BEG+(END-BEG)-#01 LD DE,LOAD+(END-BEG)-#01 LD BC,END-BEG LDDR LDSP,LOAD JP START BEG INCB "hob" ENDM2 DB "@0D80AA",AUTORUN,#00 SIZE EQU M2-M0+1 ──{End} ───────────────────── ────────────────────── { bload .C } ── We ship the object and instantly adjust the extension and length in the doctor. [WBR, Oleg. ] [ 01:01 27 September XXXV A.S. ]