1985-04-01 14:44:26 +00:00
|
|
|
.define putchr
|
1987-02-02 12:44:39 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-04-01 14:44:26 +00:00
|
|
|
! output routine in monitor
|
|
|
|
|
CRT = 0x013B
|
|
|
|
|
! output a charcter
|
|
|
|
|
! entry: ascii character in a
|
|
|
|
|
putchr:
|
|
|
|
|
push hl
|
|
|
|
|
push bc
|
|
|
|
|
ld hl,tab
|
|
|
|
|
ld b,5
|
|
|
|
|
1: cp (hl)
|
|
|
|
|
jr z,fetch
|
|
|
|
|
inc hl
|
|
|
|
|
inc hl
|
|
|
|
|
djnz 1b
|
|
|
|
|
2: call CRT
|
|
|
|
|
pop bc
|
|
|
|
|
pop hl
|
|
|
|
|
ret
|
|
|
|
|
fetch: inc hl
|
|
|
|
|
ld a,(hl)
|
|
|
|
|
jr 2b
|
|
|
|
|
! conversion table for nascom characters
|
1987-02-02 12:44:39 +00:00
|
|
|
tab: .data1 0x0D,0x00
|
|
|
|
|
.data1 0x1B,0x1E
|
|
|
|
|
.data1 0x08,0x1D
|
|
|
|
|
.data1 0x0A,0x1F
|
|
|
|
|
.data1 0x7F,0x00
|
