1985-03-29 21:44:50 +00:00
|
|
|
.define .trp.z
|
1987-02-02 13:30:20 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-03-29 21:44:50 +00:00
|
|
|
|
|
|
|
|
! changed into output routine to print errornumber
|
|
|
|
|
|
|
|
|
|
.trp.z:
|
|
|
|
|
! exx
|
|
|
|
|
pop bc
|
|
|
|
|
pop hl !error number
|
|
|
|
|
push hl
|
|
|
|
|
ld de,15
|
|
|
|
|
sbc hl,de
|
|
|
|
|
jp p,1f ! error no >= 16?
|
|
|
|
|
pop hl
|
|
|
|
|
push hl ! save error no on stack
|
|
|
|
|
push bc
|
|
|
|
|
push ix
|
|
|
|
|
push hl ! test bit "error no" of ignmask
|
|
|
|
|
ld hl,(ignmask)
|
|
|
|
|
ex (sp),hl
|
|
|
|
|
push hl
|
|
|
|
|
ld hl,2
|
|
|
|
|
call .inn
|
|
|
|
|
pop hl
|
|
|
|
|
pop ix
|
|
|
|
|
pop bc
|
|
|
|
|
ld a,h
|
|
|
|
|
or l
|
|
|
|
|
jr z,2f ! if bit <> 0 error
|
|
|
|
|
1:
|
|
|
|
|
pop hl
|
|
|
|
|
push iy
|
|
|
|
|
push de
|
|
|
|
|
ld iy,1f+6
|
|
|
|
|
call outdec
|
|
|
|
|
ld de,1f
|
|
|
|
|
call pstrng
|
|
|
|
|
pop de
|
|
|
|
|
pop iy
|
|
|
|
|
jp 0x20
|
|
|
|
|
2:
|
|
|
|
|
pop hl
|
|
|
|
|
push bc
|
|
|
|
|
! exx
|
|
|
|
|
ret
|
|
|
|
|
1: .asciz 'error xxxxx\r\n'
|
|
|
|
|
|
