
             ORG PgnAdr      ; адрес старта модуля

WinLoupeSt   call WinLoupe

           ld a,ARW_DEFAULT
           call GUI
           xor a
          ret


WinLoupe   ; код плагина

              ld hl,(ARW_X)
              push hl          ; позиция курсора в экране

              ld de,0
              ld bc,(WinXU.csx)
              ld a,b
              cp 24
             jr c,1F
              ld d,8
1             ld a,c
              cp 32
             jr c,1F
              ld e,8
1             ld a,e
              add a,l
             ret c
              ld l,a
              ld a,h
              add a,d
             ret c
              cp 192
             ret nc
              ld h,a
              ld de,(WinXU.dx)
              ld bc,(WinXU.dsx)

              ld a,h
              sub d
             ret c
              cp b
             jr z,1F
             ret nc

1             ld a,l
              sub e
             ret c
              cp c
             jr z,1F
             ret nc

1           ; hl - координаты в окне



















           ret



;.bSprs

;            DB 128,0,2,0,8,0,32,0              ; +0  за пределами
;            DB 128,85,0,85,0,85,0,85           ; +8  маска на пустоте
;            DB 128,0,0,0,0,0,0,0               ; +16 пусто
;            DB 128,85,42,85,42,85,42,85        ; +24 маска на пикселе
;            DB 254,254,254,254,254,254,254,1   ; +32 пиксель
;

; WinXU               ; positions of the currently saved window / позиции текущего сохранённого окна
                    ; used when copying, converting x8<->x1 and in 'Modify' .
                    ; / используется при копировании, переводе x8<->x1 и в 'Изменить'.
; WinXU.x        DB 0  ;+0   - позиция в знакоместах по x
; WinXU.y        DB 0  ;+1   - позиция в знакоместах по y
; WinXU.csx      DB 0  ;+2   - размер в знакоместах по x
; WinXU.csy      DB 0  ;+3   - размер в знакоместах по y
; WinXU.dx       DB 0  ;+4   - смещение начала пикселей по х
; WinXU.dy       DB 0  ;+5   - смещение начала пикселей по y
; WinXU.px       DB 0  ;+6   - позиция в пикселях по x
; WinXU.py       DB 0  ;+7   - позиция в пикселях по y
; WinXU.dsx      DB 0  ;+8   - размер в пикселях по x
; WinXU.dsy      DB 0  ;+9   - размер в пикселях по y
;--------------------------------------------------------
LENwinLoupe EQU $-PgnAdr

         ASSERT $ < #C000
         savebin "WinLoupe.adw",PgnAdr,LENwinLoupe
         DISPLAY "Lenght WinLoupe : ",/a,LENwinLoupe