* output string
* sort routine
 org $1000
lhtoa equ $ffde :latoh equ $ffe1 :lrdx1 equ $ffe4
lprx1 equ $ffe7 :lprtn equ $ffea :ltomn equ $ffed
*
 ldx #ldat1: ldu #ldat2
lsrt0
 lda ,x+   : sta ,u+   : cpx #ldat2: bne lsrt0 : stu laend
 ldd #ldat2: jsr lprnt : ldx #ldat2
lsrt1
 leau 1,x  : cmpu laend: beq lsrte
lsrt2
 lda ,x    : cmpa ,u   : bls lsrt3 : ldb ,u    : sta ,u    : stb ,x
lsrt3
 leau 1,u  : cmpu laend: bne lsrt2: leax 1,x  : bra lsrt1
lsrte
 ldd #ldat2: jsr lprnt : rts
*
lprnt std ladr0
lpr00
 lda #$10  : sta lcnt1 : ldx #lprbf
lpr01
 lda #$20  : sta ,x+   : ldu ladr0 : lda ,u+    : stu ladr0
 jsr lhtoa : std ,x+2  : dec lcnt1 : bne lpr01
 ldd #$0d0a: std ,x+2  : clr ,x    : ldx #lprbf : jmp lprtn
*
ldat1
 fcb 33 : fcb 14  : fcb 24  : fcb 45
 fcb $83: fcb 04  : fcb 26  : fcb 15
 fcb 53 : fcb 15  : fcb 64  : fcb 55
 fcb 03 : fcb 43  : fcb 14  : fcb 75
ldat2 rmb $100
*
lcnt1 rmb 1 :ladr0 rmb 2 :laend rmb 2
lprbf rmb $80
 end