(not finished) ez80 asm bresenham

.nolist
#include "ti84pce.inc"
.list

    .assume ADL=1
    .org UserMem-2
    .db tExtTok,tAsm84CeCmp

    call _ClrLCDFull
    ld a, $27
    ld ($E30018), a

    ld hl, $0
    ld (mpLCDPalette), hl
    ld hl, $7C00
    ld (mpLCDPalette+2), hl

    ld hl, 10
    push hl
    ld hl, 20
    push hl
    ld ix, 0
    add ix, sp
    ld a, 10
    ld (ix+5), a
    ld a, 40
    ld (ix+2), a
    ld a, 1
    call __Line_NoClip_ASM
    pop hl
    pop hl

    ld a, $2D
    ld ($E30018), a

    call _HomeUp

    ret

__Line_NoClip_ASM:
    ; arg0: y1 (1byte) x1 (2bytes)
    ; arg2: y2 (1byte) x2 (2bytes)
    ; a = color
    ld (color), a
    ld ix, 0
    add ix, sp
    lea ix, ix+3
    or a
    sbc hl, hl
    push hl
    pop bc
    ld l, (ix+0)
    ld h, (ix+1)
    ld c, (ix+3)
    ld b, (ix+4)
    ld a, c
    ld (x), a
    ld a, b
    ld (x+1), a
    sbc hl, bc
    jp p, +_
    ld a, -1
    ld (sx), a
    jr ++_
_:
    ld a, 1
    ld (sx), a
_:
    ex de, hl
    call _abs24de
    push hl
    or a
    sbc hl, hl
    push hl
    pop bc
    ld l, (ix+2)
    ld c, (ix+5)
    ld a, c
    ld (y), a
    sbc hl, bc
    jp p, +_
    ld a, -1
    ld (sy), a
    jr ++_
_:
    ld a, 1
    ld (sy), a
_:
    ex de, hl
    call _abs24de
    pop de
    add hl, de
    ld (err), hl
    or a
    sbc hl, de
    push de
    push hl
_:
    ld hl, (x)
    ex.s de, hl
    ld a, (y)
    ld l, a
    ld h, 160
    mlt hl
    add hl, hl
    add hl, de
    ld bc, $D40000
    add hl, bc
    ld a, (color)
    ld (hl), a


    ld de, (x)
    ld hl, (ix)
    or a, a
    sbc hl, de
    jp z, +_

    ld hl, (err)
    add hl, hl
    ld (e2), hl

    pop bc
    push bc
    or a, a
    sbc hl, bc
    jp m, e2dx
    ld hl, (err)
    add hl, bc
    ld (err), hl
    ld hl, (x)
    ex.s de, hl
    ld a, (sx)
    ld e, a
    ld d, 0
    add hl, de
    ld a, l
    ld (x), a
    ld a, h
    ld (x+1), a

e2dx:
    pop bc
    pop de
    push de
    push bc
    or a, a
    sbc hl, de
    jp p, eob
    ld hl, (err)
    add hl, de
    ld (err), hl
    ld a, (y)
    ld h, a
    ld a, (sy)
    add a, h
    ld (y), a

eob:
    jp -_
_:
    pop bc
    pop bc
    ret
sx:
    nop
sy:
    nop
x:
    nop
    nop
y:
    nop
err:
    nop
    nop
e2:
    nop
    nop
color:
    nop

    nop
    nop
    nop

__idivs_ASM:
; Performs signed interger division
; Inputs:
;  HL : Operand 1
;  BC : Operand 2
; Outputs:
;  HL = HL/BC
    ex  de,hl
    xor a,a
    sbc hl,hl
    sbc hl,bc
    jp  p,+_
    push    hl
    pop bc
    inc a

_:  or  a,a
    sbc hl,hl
    sbc hl,de
    jp  m,+_
    ex  de,hl
    inc a

_:  add hl,de
    rra
    ld  a,24

_:  ex  de,hl
    adc hl,hl
    ex  de,hl
    adc hl,hl
    add hl,bc
    jr  c,+_
    sbc hl,bc
_:  dec a
    jr  nz,--_

    ex  de,hl
    adc hl,hl
    ret c
    ex  de,hl
    sbc hl,hl
    sbc hl,de
    ret

__imuls_ASM:
__imulu_ASM:
; Performs (un)signed integer multiplication
; Inputs:
;  HL : Operand 1
;  BC : Operand 2
; Outputs:
;  HL = HL*BC
    push    bc
    push    hl
    ex  de,hl
    ld  hl,2
    add hl,sp
    ld  b,(hl)
    mlt bc
    inc hl
    inc hl
    inc hl
    ld  a,d
    ld  d,(hl)
    mlt de
    dec hl
    ld  l,(hl)
    ld  h,a
    mlt hl
    ld  a,l
    add a,e
    add a,c
    pop de
    pop bc
    push    bc
    or  a,a
    sbc hl,hl
    add.s   hl,de
    ex  de,hl
    ld  h,b
    mlt hl
    ld  b,d
    mlt bc
    add hl,bc
    add a,h
    ld  h,a
    pop bc
    ld  d,c
    mlt de
    add hl,hl
    add hl,hl
    add hl,hl
    add hl,hl
    add hl,hl
    add hl,hl
    add hl,hl
    add hl,hl
    add hl,de
    ret

_abs24de:
    sbc hl, hl
    adc hl, de
    jp p, +_
    or a, a
    sbc hl, hl
    sbc hl,de
_:
    ret