123456789101112131415161718192021222324252627282930313233343536 |
- .define .rck
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- .rck:
- pop bc
- pop ix
- 3: pop hl
- push hl
- ld e,(ix)
- ld d,(ix+1)
- ld a,h
- xor d ! check sign bit to catch overflow with subtract
- jp m,1f
- sbc hl,de
- jr 2f
- 1: xor d ! now a equals (original) h again
- 2: call m,e.rck
- pop de
- push de
- ld l,(ix+2)
- ld h,(ix+3)
- ld a,h
- xor d ! check sign bit to catch overflow with subtract
- jp m,1f
- sbc hl,de
- jr 2f
- 1: xor d ! now a equals (original) h again
- 2: call m,e.rck
- push bc
- pop ix
- jp (ix)
|