; part of the GUI for BGE

;;PixHL   LD A,E
;PixHL_e LD A,E  ; есть подобная процедура но для ED в 'Add.asm'
;        RRA
;        SCF
;        RRA
;        RRA
;        AND #5F
;        LD H,A
;        XOR D
;        AND #07
;        XOR D
;        RRCA
;        RRCA
;        RRCA
;        LD L,A
;        LD A,E
;        XOR H
;        AND #07
;        XOR H
;        LD H,A
;        RET

; PixHL_e ld a,d        ; теперь процедура в 'Add.asm'
;         ld d,e
;         ld e,a
;         call PixHL    ; процедура в 'Add.asm'
;         ld a,d
;         ld d,e
;         ld e,a
;        ret


;RASCH   LD A,E
;        AND #18
;        OR #40
;        LD H,A
;        LD A,E
;        AND #07
;        RRCA
;        RRCA
;        RRCA
;        ADD A,D
;        LD L,A
;        RET

;RASCHA  LD A,E
;        AND #18
;        RRCA
;        RRCA
;        RRCA
;        OR #58
;        LD H,A
;        LD A,E
;        AND #07
;        RRCA
;        RRCA
;        RRCA
;        ADD A,D
;        LD L,A
;        RET

;INC_YY  LD A,H
;        ADD A,7
;        LD H,A
;INC_Y   INC H
;        LD A,H
;        AND 7
;        RET NZ
;        LD A,L
;        ADD A,32
;        LD L,A
;        RET C
;        LD A,H
;        SUB 8
;        LD H,A
;        RET

;DEC_YY  CALL DEC_Y
;        LD A,H
;        SUB 7
;        LD H,A
;        RET

;DEC_Y   DEC H
;        LD A,H
;        CPL
;        AND 7
;        RET NZ
;        LD A,L
;        SUB 32
;        LD L,A
;        RET C
;        LD A,H
;        ADD A,8
;        LD H,A
;        RET

;TAB_HL  LD H,0
;        LD L,A
;        ADD HL,HL
;        ADD HL,BC
;        HLFHL
;        RET

;RAMKA_gui
;        LD A,(IX+0)
;        CP #FF
;        RET Z
;        LD D,A
;        LD A,(IX+1)
;        CP #FF
;        RET Z
;        LD E,A
;        PUSH DE
;        CALL RASCH
;        XOR A
;        LD (Pf2),A
;        LD A,(IX+3)
;        LD (Hg8),A
;        ADD A,E
;        CP #19
;        JR C,OOK2
;        LD A,#C9
;        LD (Pf2),A
;        LD A,#18
;        SUB E
;        LD (Hg8),A
;OOK2    LD A,#01
;        LD (bcc+2),A
;        LD A,(IX+2)
;        LD (Ln8),A
;        ADD A,D
;        CP #21
;        JR C,OOK1
;        LD A,#00
;        LD (bcc+2),A
;        LD A,#20
;        SUB D
;        LD (Ln8),A
;OOK1    CALL OnLn
;        POP DE
;        CALL Vert8
;        RET

;Vert8   CALL RASCH
;        PUSH HL
;bcc     LD BC,#0180
;        LD A,0
;Ln8     EQU $-1
;        DEC A
;        ADD A,D
;        LD D,A
;        CALL RASCH
;        POP DE
;        EX DE,HL
;        INC H
;        INC D
;        LD A,0
;Hg8     EQU $-1
;        EX AF,AF'
;        JR PFZ
;PfP     LD A,(HL)
;        XOR C
;        LD (HL),A
;        LD A,(DE)
;        XOR B
;        LD (DE),A
;        INC H
;        INC D
;PFZ     INC H
;        INC D
;        INC H
;        INC D
;        LD A,(HL)
;        XOR C
;        LD (HL),A
;        LD A,(DE)
;        XOR B
;        LD (DE),A
;        INC H
;        INC D
;        LD A,(HL)
;        XOR C
;        LD (HL),A
;        LD A,(DE)
;        XOR B
;        LD (DE),A
;        INC H
;        INC D
;        INC H
;        INC D
;        INC H
;        INC D
;        EX AF,AF'
;        DEC A
;        JR Z,Pf2
;        EX AF,AF'
;        LD A,(HL)
;        XOR C
;        LD (HL),A
;        LD A,(DE)
;        XOR B
;        LD (DE),A
;        INC H
;        INC D
;        LD A,L
;        ADD A,32
;        LD L,A
;        LD A,E
;        ADD A,32
;        LD E,A
;        JR C,PfP
;        LD A,H
;        SUB 8
;        LD H,A
;        LD A,D
;        SUB 8
;        LD D,A
;        JR PfP

;Pf2     RET
;OnLn    LD C,#99
;        LD A,(Ln8)
;        SUB #21
;        NEG
;        ADD A,#3F
;        ADD A,A
;        ADD A,A
;        LD DE,Sett8
;        ADD A,E
;        LD E,A
;        JR NC,IF8
;        INC D
;IF8     PUSH DE
;        RET

;Sett8   DUP 32
;        LD A,(HL)
;        XOR C
;        LD (HL),A
;        INC L
;        EDUP
;        RET


;SetAtr_gui           ; код заменён v3.12 /DA
;        PUSH AF
;        CALL RASCHA_
;;        POP AF           ; есть аналог в Add.asm , туда и перекинем /DA
;;        LD DE,#20
;;.Lp12   PUSH BC
;;        PUSH HL
;;.Lp13   LD (HL),A
;;        INC HL
;;        DJNZ .Lp13
;;        POP HL
;;        POP BC
;;        ADD HL,DE
;;        DEC C
;;        JR NZ,.Lp12
;;        RET
;       jp  SetAtr.pa    ; в Add.asm

;SetAtr_gui    ld l,a         ; v 3.12 /DA переехала в 'Add.asm'
;             jp SetAtrW.e    ; in Add.asm

; Прикол:)
;JPHL    JP (HL)

;Sprite  PUSH HL        ; в ResGUI.asm /DA
;        PUSH BC
;las1    LD A,(DE)
;        LD (HL),A
;        INC L
;        INC DE
;        DJNZ las1
;        POP BC
;        POP HL
;        CALL INC_Y
;        DEC C
;        JR NZ,Sprite
;        RET





;-------------------------------------------------------------
; Перенёс GET_HEXa_gui и GET_NUM_gui в 'ResGUI.asm'
; здесь нехватило места                      /DA v3.12
;-------------------------------------------------------------
