__Line_NoClip_ASM example

.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, 67
    push hl
    ld hl, 20
    push hl
    ld ix, 0
    add ix, sp
    ld a, 40
    ld (ix+5), a
    ld a, 10
    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
    ex de, hl
    or a
    sbc hl, hl
    sbc hl, de
    pop de
    push de
    add hl, de
    ld (err), hl
    or a
    sbc hl, 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
    ex de, hl
    ld a, (sx)
    add a, 2
    ld e, a
    ld d, 0
    dec de
    dec de
    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
    ld hl, (e2)
    sbc hl, de
    jp p, eol
    ld hl, (err)
    add hl, de
    ld (err), hl
    ld a, (y)
    ld h, a
    ld a, (sy)
    add a, h
    ld (y), a

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

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