Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102/bios/ldbiosa.s

@@ -0,0 +1,41 @@
+	.text
+	.globl	_bios
+	.globl	_biosinit
+	.globl	_cbios
+	.globl	_dskia
+	.globl	_dskic
+	.globl	_setimask
+*
+*
+*
+*
+_bios:	link	a6,#0
+	move.l	d2,-(a7)
+	move.l	d1,-(a7)
+	move.w	d0,-(a7)
+	move	#$2000,sr
+	lea	_dskia,a0
+	move.l	a0,$3fc
+	jsr	_cbios
+	unlk	a6
+	rts
+*
+_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