RAMcall

#define scrap $8000
RAMcall:
;IX points to where the code that needs to be copied.
;Preceded by 2-byte size field, followed by the actual routine
;Example:
;  myroutine:
;      .dw myroutine_end-$-2
;      <<code>>
;  myroutine_end:
    push hl
    push de
    push bc
    push af
    push ix
    pop ix
    ld c,(hl)
    inc hl
    ld b,(hl)
    inc hl
    ld de,scrap
    ldir
    pop af
    pop bc
    pop de
    ld hl,scrap
    ex (sp),hl
    ret