42 lines
830 B
ArmAsm
42 lines
830 B
ArmAsm
//
|
|
// XHDI entry point
|
|
//
|
|
.extern _xhdi_call
|
|
|
|
.globl _xhdi_vec
|
|
.globl _xhdi_sd_install
|
|
|
|
//
|
|
// this is where the XHDI cookie points to:
|
|
//
|
|
|
|
.text
|
|
dc.b 'B','A','S','_'
|
|
_xhdi_vec:
|
|
lea -12(sp),sp // save all used registers according to XHDI spec
|
|
movem.l d1/a0-a1,(sp)
|
|
|
|
pea 16(sp) // forward address of parameters on stack
|
|
jsr _xhdi_call // to internal routine
|
|
addq.l #4,sp // correct stack
|
|
|
|
movem.l (sp),d1/a0-a1 // restore registers
|
|
lea 12(sp),sp
|
|
rts
|
|
|
|
.bss
|
|
_old_vector:
|
|
.ds.l 1
|
|
|
|
.text
|
|
|
|
//
|
|
// trap #0 handler to bring the address of the disk routines into TOS
|
|
//
|
|
_xhdi_sd_install:
|
|
move.l 4(sp),d0 // address of the old XHDI vector
|
|
move.l d0,_old_vector // save it - just in case we need it later
|
|
move.l #_xhdi_vec,d0 // return our BaS vector to TOS
|
|
move.l d0,a0 //
|
|
rte
|