
CxyPgn
        DISP PgnAdr

BCxy    CALL LOADSCR
       ; LD DE,CUR
       ; CALL SV_ARW
Lpp     LD IX,RMK
        XOR A
      ;  CALL Ramka8
       ; JP C,RES_TSK
        call Ramka1x1colmove
       ret c
      ;  LD A,(ARW_XC)
      ;  LD DE,arwa.x
      ;  LD C,0
      ;  CALL GET_NUM_
         ld hl,(ARW_X)

       push hl             ; маску пикселя
        ld a,l
        and 7
        inc a
        ld b,a
        ld a,1
1       rrca
       djnz 1B
        ld b,8
        ld hl,arwp.dtmp
1       ld (hl),#30  ; "0"
        add a,a
       jr nc,2F
        inc (hl)
2       inc hl
       djnz 1B
       pop hl

       push hl               ; save ARW_X, ARW_Y
         ld a,h
         ex af,af'
         ld a,l          ; x
         ld de,arwp.x
         call PDEC ; Get_NumC0_

      ;  LD A,(ARW_YC)
      ;  LD DE,arwa.y
      ;  LD C,0
      ;  CALL GET_NUM_
         ex af,af'  ; ld a,h
         ld de,arwp.y   ; y
         call PDEC ; Get_NumC0_

      ;  LD A,(ARW_X)
      ;  LD DE,arwp.x
      ;  LD C,0
      ;  CALL GET_NUM_
         ld hl,(ARW_XC)
       push hl             ; save ARW_XC, ARW_YC
         ld a,h
         ex af,af'
         ld a,l         ; xc
         ld de,arwa.x
         call PDEC ; Get_NumC0_

      ;  LD A,(ARW_Y)
      ;  LD DE,arwp.y
      ;  LD C,0
      ;  CALL GET_NUM_
         ex af,af' ; ld a,h        ; yc
         ld de,arwa.y
         call PDEC ; Get_NumC0_

      ;  LD DE,(ARW_XC)
       pop de            ; load ARW_XC, ARW_YC
        CALL RASCHA
        PUSH HL
        LD C,1
        LD DE,adraa
        CALL GET_NUM_
        POP HL
        PUSH HL
        LD C,1
        LD DE,adraah
        CALL CHEX

        pop hl
     ;   push hl
     ;   ld a,(hl)
        ld de,arwa.dt
     ;   call CHEX_A
     ;   POP HL
        call chex_toDE

        LD A,H
        ADD A,A
        ADD A,A
        ADD A,A
        AND #7F
        LD H,A
        LD C,1
        LD DE,adrpa
        PUSH HL
        CALL GET_NUM_
        POP HL
        LD DE,adrpah
        CALL CHEX


    ;    LD DE,(ARW_X)
      pop de            ; load ARW_X, ARW_Y
        CALL PixHL
        ld de,arwp.dtp
        call chex_toDE
        LD C,1
        LD DE,adrpp
        PUSH HL
        CALL GET_NUM_
        POP HL
        LD DE,adrpph
        CALL CHEX

        LD IX,WCOORD
        CALL Window_
        CALL NOKEY_
        CALL WAITKEY_
        CALL NOKEY_
        CALL CLOSE
        JP Lpp

chex_toDE push hl
         ld a,(hl)
         call CHEX_A
         pop hl
        ret

WCOORD  DEFB 9,4,15,17,7,7*8,%00001110
        DEFB 0
        DEFW TCOORD       ; объект-текст
        DEFW #FFFF

TCOORD
  ;  if rus                 ; - удалил из-за нового метода локализации /DA
  ;      DB #80,#e2,#e0,#a8,#a1,#e3,#e2,#eb,#3a,13,13;"Атрибуты:",13,13
  ;  else
  ;      DB "Cells:",13,13
  ;  endif
        MSG_Coord_Attr : DB 13,13

arwa  ;  DB "X ... 000  Y ... 000",13   ; - /DA
        DB #0A : DW adraai            ; DB "X ... "
.x      DB "000" , #0A : DW  adraai.y ;  " Y ... "
.y      DB "000",13
        DB #17,4,"[ #"                  ; /DA
.dt     DB "00 ]",13                    ; содержание атрибута
;adraa
   ; if rus                 ; - удалил из-за нового метода локализации /DA
   ;     DB #80,#a4,#e0,#a5,#e1,#20,#a0,#e2,#e0," .... 00000",13;Адрес атр
   ; else
   ;     DB "Attr. addr ... 00000",13;Адрес атр
   ; endif
        MSG_Coord_AdrAtr
        DB #17,7,"... "
adraa   DB "00000",13

;adraah  DB "               #0000",13
        DB #17,7,"... #"
adraah  DB "0000",13

;adrpa
   ; if rus                 ; - удалил из-за нового метода локализации /DA
   ;     DB #80,#a4,#e0,#a5,#e1,#20,#af,#aa,#e1," .... 00000",13;Адрес пкс
   ; else
   ;     DB "Pixel addr ... 00000",13;Адрес пкс
   ; endif
        DB #0A : DW adraai.p  ; MSG_Coord_AdrPix
        DB #17,7,"... "
adrpa   DB "00000",13

;adrpah  DB "               #0000",13
        DB #17,7,"... #"
adrpah  DB "0000",13

        DB 15,13

   ; if rus                 ; - удалил из-за нового метода локализации /DA
   ;     DB #8f,#a8,#aa,#e1,#a5,#ab,#a8,#3a,13,13;"Пиксели:",13,13
   ; else
   ;     DB "Pixels:",13,13
   ; endif

        MSG_Coord_Pix : DB 13,13

arwp
      ; DB "X ... 000  Y ... 000",13
        DB #0A : DW adraai               ; DB "X ... "
.x      DB "000" , #0A : DW  adraai.y ; " Y ... "
.y      DB "000",13

        DB " [ #"            ; /DA v 4.0
.dtp    DB "00  %"                ; содержание строки пикселя
.dtmp   DB "10000000"
        DB " ]",13

;adrpp
   ; if rus                 ; - удалил из-за нового метода локализации /DA
   ;     DB #80,#a4,#e0,#a5,#e1,#20,#af,#aa,#e1," .... 00000",13;Адрес пкс
   ; else
   ;     DB "Pixel addr ... 00000",13;Адрес пкс
   ; endif
        DB #0A : DW adraai.p  ; MSG_Coord_AdrPix
        DB #17,7,"... "
adrpp   DB "00000",13

;adrpph  DB "               #0000"
        DB #17,7,"... #"
adrpph  DB "0000",13
        DB #00

adraai  DB "X ... ",#FF
.y      DB "  Y ... ",#FF
.p      MSG_Coord_AdrPix : DB #FF

; RMK     DB 0,0,1,1           ; уехало в 'BGE.asm'

;CHEX    PUSH IX               ; уехало в Add.asm /DA
;        PUSH DE
;        POP IX
;        LD D,H
;        CALL CNV
;        LD D,L
;        INC IX
;        INC IX
;        CALL CNV
;        POP IX
;        RET

;CNV     LD A,D          ; уехало в Add.asm /DA
;        AND #0F
;        CALL TOHEX
;        LD (IX+1),A
;        LD A,D
;        DUP 4
;        SRL A
;        EDUP
;        CALL TOHEX
;        LD (IX+0),A
;        RET

;TOHEX   CP #0A
;        JR C,HTS
;        ADD A,#07
;HTS     ADD A,#30
;        RET

;CUR     DB #FF,#00,#1F,#40,#0F,#60,#07,#70  ; - Теперь курсор не меняем (экономим байты) /DA
;        DB #03,#78,#07,#60,#1F,#40,#BF,#00
;        DB #FF,#00
;        DB #FF,#00

LCxy    EQU $-BCxy
        ENT

        DISPLAY "CoordXY len   :",/a,LCxy
