A dotted line

LineDemo

;
; Zeichnet 80 Pixel in einer gepunkteten Linie
; Die Linie besteht aus 10 Segmenten a 8 Pixeln.
;
#include "../ti83plus.inc"
.db $BB,$6D
.org 9D95h
.db t2ByteTok
	ld a,10      ;Zähler
	ld b,0       ;Koordinate
	ld hl,$9340  ;Bildschirmspeicher (0,0)
loop:
	ld (hl),170  ;Dotted: 10101010 Muster.
	ld c,a       ;Zähler in C speichern
	ld a,b       ;Koordinate (liegt in B) in A laden.
	add a,13     ;13 zu a hinzufügen
	ld b,a       ;Neuen Wert (eine Zeile und eine Spalte weiter unten/rechts) in B bringen.
	add a,$40    ;0x40 zu A addieren
	ld l,a       ;A in L speichern.
	ld a,c       ;Zähler (in C) wieder in A laden.
	dec a        ;Zähler in A verringern
	cp 0         ;Ist Zähler = 0?
	jp nz,loop   ;Wenn nein, dann zurück zu "loop"
	bcall(486Ah) ;Zeichnen
	ret          ;Fertsch.
.end