mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
50 lines
657 B
ArmAsm
50 lines
657 B
ArmAsm
.text
|
|
.globl _init
|
|
.globl _wboot
|
|
.globl _bios
|
|
.globl _dskia
|
|
.globl _dskic
|
|
.globl _setimask
|
|
*
|
|
ccp = $18000 ccp entry point
|
|
rtp = $1dc00 rtp entry point
|
|
*
|
|
_init: lea entry,a0
|
|
move.l a0,$8C
|
|
lea _dskia,a0
|
|
move.l a0,$3fc
|
|
clr.l d0
|
|
move.l #rtp,$84 setup rtp trap
|
|
move #$2000,sr
|
|
jmp ccp
|
|
*
|
|
_wboot: clr.l d0
|
|
jmp ccp
|
|
*
|
|
entry: move.l d2,-(a7)
|
|
move.l d1,-(a7)
|
|
move.w d0,-(a7)
|
|
jsr _bios
|
|
add #10,a7
|
|
rte
|
|
*
|
|
_dskia: link a6,#0
|
|
movem.l d0-d7/a0-a5,-(a7)
|
|
jsr _dskic
|
|
movem.l (a7)+,d0-d7/a0-a5
|
|
unlk a6
|
|
rte
|
|
*
|
|
_setimask: move sr,d0
|
|
lsr #8,d0
|
|
and.l #7,d0
|
|
move sr,d1
|
|
ror.w #8,d1
|
|
and.w #$fff8,d1
|
|
add.w 4(a7),d1
|
|
ror.w #8,d1
|
|
move d1,sr
|
|
rts
|
|
*
|
|
.end
|