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

Пусть враги твои, All, умрут без сыновей! тест на вражеский компьютер. написан Илуватар знает когда. на правильной тачке моргает синим, на неправильной - красным. оно, хе-хе, в шторме. :) ── { Begin } ─────────────────────────────────────────── { emultest.C } ── ;тест на эмулятор ; DRIVE EQU #5CF6 IM2TB EQU #BE00 ORG #6000:DI LD SP,#6000 LD HL,#0000:PUSH HL LD HL,#3D2F:PUSH HL LD HL,IM2TB,A,H,I,A LD (HL),H:INC (HL),L:JR NZ,$-#03 INC H:LD (HL),H,L,H LD (HL),#C9 IM 2 LD A,(DRIVE):OR #3C:CALL TOPRFF LD A,#08:CALL TOPR1F,INTRQ LOOP LD D,#00,A,#C3,HL,RETURN LD (#5CC2),A,(#5CC3),HL LD (RETURN+#01),SP LD HL,#2740:PUSH HL LD HL,#0039 .7 PUSH HL LD HL,#2A53:PUSH HL LD A,#08,C,#1F JP #3D2F RETURN LD SP,#0000 CALL INTRQ LD A,#20:CALL TOPR1F,INTRQ LD A,(#5CCD) BIT 0,A LD A,#02:JR Z,ENEMY DEC A ENEMY CALL FILL XOR A:CALL FILL LD B,#0F WAIT EI:HALT XOR A:IN (#FE):CPL:AND #1F RET NZ DJNZ WAIT JR LOOP ;*************************************** ; FILL PUSH AF,BC EI:HALT OUT (#FE) ADD A,A,A,A,A,A LD (FILL1+#01),SP LD B,#30,D,A,E,A,SP,#5B00 .8 PUSH DE DJNZ $-#08 FILL1 LD SP,#0000 POP BC,AF RET ;*************************************** ; INTRQ LD IX,#3EF5:CALL DOS:DI:RET TOPR1F LD C,#1F:JR TOPR TOPRFF LD C,#FF TOPR LD IX,#2A53 DOS PUSH IX:JP #3D2F ── { End } ───────────────────────────────────────────── { emultest.C } ── [ WBR, Oleg. ] [ 11:28 9 May XXXV A.S. ]

Пусть враги твои, Kirill, умрут без сыновей! 9 May 2000 at 18:48, Kirill Frolov ═> Oleg Grigoriev: OG>> тест на вражеский компьютер. написан Илуватар знает когда. на OG>> правильной тачке моргает синим, на неправильной - красным. OG>> оно, хе-хе, в шторме. :) KF> В R80 мигает синим. сакс. дубль два. может отличаться бОльшей неустойчивостью - стоит собирать статистику. ── { Begin } ─────────────────────────────────────────── { emultest.C } ── ;тест на эмулятор ; DRIVE EQU #5CF6 IM2TB EQU #BE00 ORG #6000:DI ; LD SP,#6000 ; LD HL,#0000:PUSH HL ; LD HL,#3D2F:PUSH HL LD HL,IM2TB,A,H,I,A LD (HL),H:INC (HL),L:JR NZ,$-#03 INC H:LD (HL),H,L,H LD (HL),#C9 IM 2 LD A,(DRIVE):OR #3C:CALL TOPRFF LD A,#08:CALL TOPR1F,INTRQ LD B,#0A EI:HALT DJNZ $-#02 LOOP XOR A:LD (ENEMY+#01),A CALL TEST1 CALL TEST2 CALL TEST3 LD A,#20:CALL TOPR1F,INTRQ ENEMY LD A,#00 OR A:LD A,#01:JR Z,$+#03:INC A CALL FILL XOR A:CALL FILL LD B,#0A WAIT EI:HALT XOR A:IN (#FE):CPL:AND #1F RET NZ DJNZ WAIT JR LOOP ;*************************************** TEST1 LD D,#00,A,#C3,HL,TEST1R LD (#5CC2),A,(#5CC3),HL LD (TEST1R+#01),SP LD HL,#2740:PUSH HL LD HL,#2A53:PUSH HL LD A,#08,C,#1F JP #3D2F TEST1R LD SP,#0000 CALL INTRQ LD A,(#5CCD):AND #01 LD B,A LD A,(ENEMY+#01):OR B LD (ENEMY+#01),A RET ;*************************************** TEST2 LD D,#00,A,#C3,HL,TEST2R LD (#5CC2),A,(#5CC3),HL LD (TEST2R+#01),SP LD HL,#2740:PUSH HL LD B,#08,HL,#2A55 PUSH HL:DJNZ $-#01 LD HL,#2A53:PUSH HL LD A,#08,C,#1F JP #3D2F TEST2R LD SP,#0000 CALL INTRQ LD A,(#5CCD):AND #01:XOR #01 LD B,A LD A,(ENEMY+#01):OR B LD (ENEMY+#01),A RET ;*************************************** TEST3 LD D,#00,A,#C3,HL,TEST3R LD (#5CC2),A,(#5CC3),HL LD (TEST3R+#01),SP LD HL,#2740:PUSH HL LD B,#00,HL,#2A55 PUSH HL:DJNZ $-#01 LD HL,#2A53:PUSH HL LD A,#08,C,#1F JP #3D2F TEST3R LD SP,#0000 CALL INTRQ LD A,(#5CCD):AND #01 LD B,A LD A,(ENEMY+#01):OR B LD (ENEMY+#01),A RET ;*************************************** ; FILL PUSH AF,BC EI:HALT OUT (#FE) ADD A,A,A,A,A,A LD (FILL1+#01),SP LD B,#30,D,A,E,A,SP,#5B00 .8 PUSH DE DJNZ $-#08 FILL1 LD SP,#0000 POP BC,AF RET ;*************************************** ; INTRQ LD IX,#3EF5:CALL DOS:DI:RET TOPR1F LD C,#1F:JR TOPR TOPRFF LD C,#FF TOPR LD IX,#2A53 DOS PUSH IX:JP #3D2F ── { End } ───────────────────────────────────────────── { emultest.C } ── KF> В R80 пока всё pаботает слишком пpавильно, даже и не поймёшь эмулятоp KF> это или что... А CP/M-ка виснет :-) Hо пpавда вместе с эмулятоpом и KF> писюком ;-( ничего, прорвёмся. :) у меня есть ещё один рубеж - забить на попытки учесть скорп и ужесточить временные интервалы. правда, на скорпе придётся турбой щёлкать... пока не хочу. [ WBR, Oleg. ] [ 21:38 14 May XXXV A.S. ]