http://forumfiles.ru/files/0019/c1/72/27337.png

Навеяно бестолковым топиком кусателя локтей адепта Оберона

Код:
;compile with sjasmplus
 	device zxspectrum128
        ORG #6000
begin

;костылек ужясма
  LD            HL ,$5CB6
  LD            ($5C4F),HL
  LD            DE ,$15AF
  LD            BC ,$0015
  EX            DE ,HL
  LDIR
  EX            DE ,HL
  DEC           HL
  LD            ($5C57),HL
  INC           HL
  LD            ($5C53),HL
  LD            ($5C4B),HL
  LD            (HL)  ,$80
  INC           HL
  LD            ($5C59),HL;E-LINE

;2
 ld hl,$15C6
 ld de,$5C10
 ld bc,$0E
 ldir

;открытие потока
 ld a,2
 call $1601

	ld a,22
	rst 10h

	ld a,2
	rst 10h

	ld a,2
	rst 10h

	ld de,$1234
	ld hl,$5678

prnn:
	call DivDEHLby10
	push hl,de
	add a,"0"
	rst 10h
	pop de,hl
	ld a,h
	or l
	or e
	or d
	jr nz,prnn
	jr $
;http://z80-heaven.wikidot.com/math#toc21
DivDEHLby10:
;Inputs:
;     DEHL
;Outputs:
;     DEHL is the quotient
;     A is the remainder
;     BC is 10

 ld bc,$0D0A
 xor a
 ex de,hl
 add hl,hl 
 rla
 add hl,hl 
 rla
 add hl,hl 
 rla

 add hl,hl 
 rla
 cp c
 jr c,$+4
   sub c
   inc l
 djnz $-7

 ex de,hl
 ld b,16

 add hl,hl
 rla
 cp c
 jr c,$+4
 sub c
 inc l
 djnz $-7
 ret

end
	display /d,end-begin
	savesna "!void.sna",begin

Написано на скорую руку, вывод сделан зеркально. Надеюсь, сработает