1987-02-02 13:30:20 +00:00
|
|
|
.define .nop
|
|
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-03-29 21:44:50 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
! NOP
|
|
|
|
|
! changed into output routine to print linenumber
|
|
|
|
|
! in octal (6 digits)
|
|
|
|
|
|
|
|
|
|
.nop:
|
|
|
|
|
push iy
|
|
|
|
|
ld iy,1f+5
|
|
|
|
|
ld hl,(hol0)
|
|
|
|
|
call outdec
|
|
|
|
|
ld iy,1f+18
|
|
|
|
|
ld hl,0
|
|
|
|
|
add hl,sp
|
|
|
|
|
call octnr
|
1991-08-29 15:08:24 +00:00
|
|
|
ld de,20
|
|
|
|
|
push de
|
1985-03-29 21:44:50 +00:00
|
|
|
ld de,1f
|
1991-08-29 15:08:24 +00:00
|
|
|
push de
|
|
|
|
|
ld de,1
|
|
|
|
|
push de
|
|
|
|
|
call __write
|
|
|
|
|
pop de
|
|
|
|
|
pop de
|
|
|
|
|
pop de
|
1985-03-29 21:44:50 +00:00
|
|
|
pop iy
|
|
|
|
|
ret
|
|
|
|
|
1: .asciz 'test xxxxx 0xxxxxx\r\n'
|
|
|
|
|
|
|
|
|
|
octnr:
|
|
|
|
|
ld b,6
|
|
|
|
|
1: ld a,7
|
|
|
|
|
and l
|
|
|
|
|
add a,'0'
|
|
|
|
|
dec iy
|
|
|
|
|
ld (iy+0),a
|
|
|
|
|
srl h
|
|
|
|
|
rr l
|
|
|
|
|
srl h
|
|
|
|
|
rr l
|
|
|
|
|
srl h
|
|
|
|
|
rr l
|
|
|
|
|
djnz 1b
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
