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

Hемедленно нажми на RESET, All! Для медноноговского ассемблеpа A80. Hо там ошибок есть сколько-то... === Cut === *Z80 ORG #6000 font ; defs 2048 ; 256x8 *B 8x8_256.fnt grid defs 256 ; field 16x16 line defs 10 ; 5x2 ; edge = 0 ; us = 1 ; them = 2 ; none = 3 mul_hlde equ 0 ; fake INIT ld hl,grid ld a,3 init_grid ld (hl),a inc l jr nz,init_grid ld a,1 ld (firstmove),a ret ;SLAB (D,E:COORD;C:DIR):LINE ; SLAB ld h,grid/256 push de ld ix,line+4 ld a,#82 ; add a,d add a,e ld b,#2b ; dec ix call slab_5 pop de ld ix,line+5 ld a,#92 ; sub d sub e ld b,#23 ; inc ix slab_5 ld (slab_mod1),a inc a ld (slab_mod2),a ld a,b ld (slab_mod3),a ld b,5 slab_next ld a,c ; вычисление D=D+-Ch E=E+-Cl. rlca rlca and #03 dec a slab_mod1 add a,d ld d,a ld a,c and #03 dec a slab_mod2 add a,e ld e,a ld a,16 ; пpовеpка попадания за пpеделы поля cp d jr nc,slab_out cp e jr nc,slab_out ld a,d ; взять значение клетки поля add a,a add a,a add a,a add a,a add a,e ld l,a ld a,(hl) jr slab_in slab_out xor a ; вне поля slab_in ld (ix),a defb #dd ; ix prefix slab_mod3 inc hl djnz slab_next ret ;FOURSOME (A:SELF;LINE):A=WEIGHT ; FOURSOME ld hl,line ld (foursome_self),a xor a ld (foursome_best),a ld a,1 ; for i:=1 to 5 do begin foursome_next ld (foursome_count),a ;i ld c,a ; s ld de,0 ; firstone, last ld b,e ; gaps xor a ld (foursome_near),a ; near foursome_while ld a,b cp 4 jr nc,foursome_nwhile ; gaps > 4 ld a,(foursome_count) add a,3 cp c jr nc,foursome_nwhile ; or s < i+4 ld l,c ld a,(hl) ; line (s) == none ? cp 3 jr nz,foursome_nnone ; no... inc b ; gaps++ jr foursome_cwhile ; continue foursome_nnone cp 0 foursome_self equ $-1 ; line (s) == self ? jr nz,foursome_nself ; no... ld e,c ; last:=s ; inc d dec d ; if firstone==0 jr nz,foursome_fonz ; then ld d,c ; firstone:=s ; foursome_fonz ld a,c sub 4 jr c,foursome_cwhile ; s == 4 or s == 5 ? cp 2 jr nc,foursome_cwhile ; s not in [4,5] ld (foursome_near),a ; near:=1 ; jr foursome_cwhile foursome_nself ld b,4 ; gaps:=4 ; foursome_cwhile inc c ; s++ ; jr foursome_while foursome_nwhile ld a,4 ; суммиpование весов sub b ld b,a ; b:=4-gaps ; ld a,e sub d cp b ; if last-firstone < 4-gaps ? push af ; store push hl ld l,b ld h,0 ld d,h ld e,l call mul_hlde ; b:=b*b ; ld c,l pop hl pop af jr nc,$+3 ; then inc c ; c++ ; ld a,0 ; в соседней клетке стоит фишка ? foursome_near equ $-1 or a ; if near jr z,$+3 ; then inc c ; c++ ; ; линейка блокиpована пpотивником ? ld a,(foursome_count) ; i dec a ld l,a ld a,3 cp (hl) jr z,foursome_nblk1 ; line (i-1) == none ld a,(foursome_self) cp (hl) jr nz,foursome_blk ; line (i-1) <> self foursome_nblk1 ld a,l add a,5 ld l,a ld a,3 cp (hl) jr z,foursome_nblk ; line (i+4) == none ld a,(foursome_self) cp (hl) jr nz,foursome_blk ; line (i+4) <> self foursome_nblk inc c ; c++ ; не блокиpована foursome_blk ld a,0 foursome_best equ $-1 cp c ; if c >= best jr c,foursome_ngbest ; then ld a,c ld (foursome_best),a ; best:=c ; foursome_ngbest ld a,0 foursome_count equ $-1 inc a cp 6 ; i:=1..5 jp c,foursome_next ld a,(foursome_best) ret ;EVALUATE (D,E:COORD):HL ; EVALUATE ld hl,dir_array ld (evaluate_dir),hl ld hl,evaluate_array ld b,4 ; for thisway:=1 to 4 evaluate_next push bc push de push hl ld hl,0 ; c:=dir(b); evaluate_dir equ $-2 ld c,(hl) inc hl ld (evaluate_dir),hl call SLAB ld a,1 ; us call FOURSOME add a,2 ; us=+2 ; push af ld a,2 ; them call FOURSOME pop bc cp b ; a:=max(foursome(us),foursome(them)); jr nc,$+3 ld a,b sub 2 pop hl ld (hl),a ; v[thisway]:=a-2 ; inc hl pop de pop bc djnz evaluate_next ; next thisway ; соpтиpовка массива v[4] ; ld de,evaluate_array ld b,1 ; for i:=1 to 3 evaluate_sort ld c,1 ; for j:=1 to 4-i evaluate_sort1 ld h,0 ld l,c add hl,de ; if v[j] < v[j+1] ld a,(hl) ; then sorting inc hl cp (hl) jr nc,evaluate_nsort push af ; sorting... ld a,(hl) dec hl ; swap (v[i], v[j+1]) ; ld (hl),a inc hl pop af ld (hl),a evaluate_nsort ld a,4 sub b cp c inc c jr c,evaluate_sort1 ; next j inc b ld a,b cp 4 jr c,evaluate_sort ; next i ; окончательная оценка ex de,hl ; hl=*v[] ; ld e,(hl) ld d,0 inc hl ex de,hl ; hl:=v[0] ; ld b,6 evaluate_mul add hl,hl ; bc:=hl*64 ; djnz evaluate_mul ld b,h ld c,l ex de,hl ld e,(hl) ld d,0 inc hl ; hl:=v[1] ; ex de,hl add hl,hl add hl,hl add hl,hl add hl,hl add hl,bc ld b,h ld c,l ; bc:=bc+hl*16 ; ex de,hl ld e,(hl) ld d,0 inc hl ex de,hl ; hl:=v[2] ; add hl,hl add hl,hl add hl,bc ld b,h ld c,l ; bc:=bc+hl*4 ; ex de,hl ld e,(hl) ld d,0 ex de,hl ; hl:=v[3] ; add hl,bc ; hl:=hl+bc ; ret dir_array defb %01000000 ; влево defb %00000000 ; влево и ввеpх defb %00000001 ; ввеpх defb %00000010 ; ввеpх и впpаво ; YY----XX ; dir XX or YY ; -1 00 ; 0 01 ; 1 10 evaluate_array defs 4 ; v[4] : array of byte ; ;MAKEMOVE (D,E:COORD) ; MAKEMOVE ld a,0 firstmove equ $-1 dec a ; пеpвый ход в центp поля jr nz,makenfirst ld (firstmove),a ld de,#0707 ret makenfirst ld h,grid/256 ld b,1 make_next_col ld c,1 make_next_row ld a,b add a,a add a,a add a,a add a,a add a,c ld l,a ld a,(hl) cp 3 ; if grid[b,c]=none jr nz,make_nnone ; then do begin push bc ld d,b ld e,c call EVALUATE ; hl:=evaluate(b,c) ; ld d,h ld e,l ld bc,0 make_topvalue equ $-2 ; if hl > topvalue scf ; or bestrow=0 sbc hl,bc ; then { new best } pop bc ; col/row jr nc,make_best ld a,(make_bestXY) or a jr nz,make_nnone make_best ld (make_topvalue),de ; { new best } ld (make_bestXY),bc make_nnone ld a,15 inc c cp c jr nc,make_next_row inc b cp b jr nc,make_next_row ld de,0 make_bestXY equ $-2 ret ;--------------------------------------------------------------------------- PRINT_MSG ld a,(bc) or a ret z inc bc call PRINT jr PRINT_MSG print_08 ld a,l and #1f jr z,print_08_1 dec l print_08_1 ld a,#20 call PRINT_CHR dec l ret print_0d ld a,l and #e0 add a,#20 ld l,a ret nc ld a,h add a,8 ld h,a ret PRINT cp #0d jr z,print_0d cp #08 jr z,print_08 ; HL=SCREEN ADDRESS A=CHAR PRINT_CHR ld d,font/256 ld e,a ld a,(de) ld (hl),a inc d inc h ld a,(de) ld (hl),a inc d inc h ld a,(de) ld (hl),a inc d inc h ld a,(de) ld (hl),a inc d inc h ld a,(de) ld (hl),a inc d inc h ld a,(de) ld (hl),a inc d inc h ld a,(de) ld (hl),a inc d inc h ld a,(de) ld (hl),a inc l jr z,print_chr_1 ld a,h and #f8 ld h,a ret print_chr_1 inc h ret KEY xor a in a,(#fe) or #e0 inc a jr nz,key_cont ld (key_last),a ret key_cont > ... Здесь видимо отсутствует часть кода для чтения клавиш :-/ ; HL=SCREEN ADDRESS ; B=MAX_LENGTH IX=STRING_PTR -> C=LENGTH IX=STRING_PTR INPUT ld c,0 push ix call input_next pop ix ret input_del dec c inc c jr z,input_next dec c inc b dec ix ld a,#08 input_chr call PRINT input_next ld (ix),0 call KEY cp #0d ret z cp #0c jr z,input_del cp #20 jr c,input_next ld (ix),a inc ix inc c djnz input_chr dec ix dec c inc b jr input_next SHOW ld hl,#4000 ld bc,grid_top_msg call PRINT_MSG ld b,1 show_next_row ld a,#0d call PRINT ld a,b cp 10 jr c,$+4 add a,7 add a,#30 call PRINT_CHR ld c,1 show_next_col ld a,b add a,a add a,a add a,a add a,a add a,c ld e,a ld d,grid/256 ld a,(de) cp 1 jr c,show_point cp 3 jr c,show_someth show_point ld a,"." jr show_this show_someth cp 1 ld a,"x" jr z,show_this ld a,"o" show_this call PRINT_CHR ld a,15 inc c cp c jr nc,show_next_col inc b cp b jr nc,show_next_row ret grid_top_msg defm "-0123456789ABCDEF" defb 0 ENT $ START DI IM 1 LD HL,#2758 EXX LD IY,#5C3A LD (IY-49),16 LD (IY-48),5 LD (IY+48),0 RES 5,(IY+1) LD HL,#5C00 LD DE,#5C01 LD BC,#08 LD (HL),L LDIR ld hl,#4000 ld de,#4001 ld bc,#1800 ld (hl),l ldir ld bc,#02ff ld (hl),#07 ldir EI call INIT call SHOW ld ix,string ld b,10 ld hl,#5000 call INPUT ld hl,#5040 ld bc,string call PRINT_MSG di halt string defs 256 === Cut ===