ack/mach/z80/libem/unim.s

31 lines
356 B
ArmAsm
Raw Normal View History

1985-03-29 21:44:50 +00:00
.define unimpld, e.mon, e.rck, .trp.z, .unimpld
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
.unimpld:
unimpld: ! used in dispatch table to
! catch unimplemented instructions
ld hl,EILLINS
9: push hl
call .trp.z
jp 20
e.mon:
ld hl,EMON
jr 9b
e.rck:
push af
ld a,(ignmask)
bit 1,a
jr nz,8f
ld hl,ERANGE
jr 9b
8:
pop af
ret