123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 |
- .define .trp.z
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! 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 iy,13
- push iy
- ld iy,1f
- push iy
- ld iy,2
- push iy
- call WRITE
- pop iy
- pop iy
- pop iy
- pop de
- pop iy
- push de
- jp EXIT
- 2:
- pop hl
- push bc
- ! exx
- ret
- 1: .asciz 'error xxxxx\r\n'
|