[Reduction] #527-529: nec_delay

libs/BorlandC/cnecdely.asm

@@ -0,0 +1,183 @@
+cnecdely_10010	proc near
+@@arg_0		= word ptr  4
+
+		push	bp
+		mov	bp, sp
+		push	si
+		push	di
+		xor	ax, ax
+		mov	es, ax
+		assume es:nothing
+		test	byte ptr es:501h, 8
+		jz	short @@loc_10039
+		mov	ax, 0CD4h
+		test	byte ptr es:54Ch, 20h
+		jz	short @@loc_10052
+		test	byte ptr es:459h, 8
+		jz	short @@loc_10052
+		mov	ax, 1388h
+		jmp	short @@loc_10052
+
+@@loc_10039:
+		mov	ax, 0C4Bh
+		test	byte ptr es:54Ch, 20h
+		jnz	short @@loc_10052
+		mov	ax, 9B3h
+		test	byte ptr es:53Ch, 80h
+		jnz	short @@loc_10052
+		mov	ax, 627h
+
+@@loc_10052:
+		mov	dx, [bp+@@arg_0]
+		cmp	dx, 1
+		jb	short @@loc_10085
+		jz	short @@loc_1005F
+		mul	dx
+		inc	dx
+
+@@loc_1005F:
+		dec	dx
+		mov	bx, 64h
+		xchg	ax, cx
+		xchg	ax, dx
+		xor	dx, dx
+		div	bx
+		xchg	ax, cx
+		div	bx
+		mov	bx, cx
+		inc	bx
+		mov	cx, ax
+		mov	dx, 60h
+		mov	ah, 40h
+
+@@loc_10076:
+		in	al, dx
+		test	al, ah
+		jz	short @@loc_10076
+
+@@loc_1007B:
+		in	al, dx
+		test	al, ah
+		jnz	short @@loc_1007B
+		loop	@@loc_10076
+		dec	bx
+		jnz	short @@loc_10076
+
+@@loc_10085:
+		pop	di
+		pop	si
+		pop	bp
+		ret
+cnecdely_10010	endp
+
+cnecdely_10089	proc near
+@@arg_0		= word ptr  4
+
+		push	bp
+		mov	bp, sp
+		push	si
+		push	di
+
+@@loc_1008E:
+		pushf
+		cli
+		in	ax, 5Eh
+		xchg	ax, cx
+		in	ax, 5Ch
+		xchg	ax, bx
+		in	ax, 5Eh
+		popf
+		cmp	cx, ax
+		jnz	short @@loc_1008E
+		mov	cl, ch
+		xor	ch, ch
+		xor	si, si
+		mov	di, 133h
+		mov	ax, [bp+@@arg_0]
+		cmp	ax, 1
+		jb	short @@loc_100F5
+		jz	short @@loc_100CB
+		cmp	ax, 2
+		jnz	short @@loc_100B9
+		shl	di, 1
+		jmp	short @@loc_100CB
+
+@@loc_100B9:
+		mov	si, 0C00h
+		mul	si
+		xchg	ax, si
+		xchg	ax, dx
+		xor	dx, dx
+		mov	di, 0Ah
+		div	di
+		xchg	ax, si
+		div	di
+		xchg	ax, di
+
+@@loc_100CB:
+		mov	dx, cx
+		add	bx, di
+		adc	cx, si
+
+@@loc_100D1:
+		pushf
+		cli
+		in	ax, 5Eh
+		xchg	ax, si
+		in	ax, 5Ch
+		xchg	ax, di
+		in	ax, 5Eh
+		popf
+		cmp	si, ax
+		jnz	short @@loc_100D1
+		mov	al, ah
+		mov	ah, dh
+		cmp	al, dl
+		mov	dl, al
+		adc	dh, 0
+		cmp	dx, cx
+		jb	short @@loc_100D1
+		ja	short @@loc_100F5
+		cmp	di, bx
+		jb	short @@loc_100D1
+
+@@loc_100F5:
+		pop	di
+		pop	si
+		pop	bp
+		ret
+cnecdely_10089	endp
+
+		public ___nec_delay
+___nec_delay	proc DIST
+@@arg_0		= word ptr cPtrSize + 2
+
+		push	bp
+		mov	bp, sp
+		push	si
+		push	di
+		mov	dx, [bp+@@arg_0]
+		xor	ax, ax
+		mov	es, ax
+		test	byte ptr es:458h, 80h
+		jnz	short @@loc_10117
+		mov	es, ax
+		test	byte ptr es:45Bh, 4
+		jz	short @@loc_1011D
+
+@@loc_10117:
+		push	dx
+		call	cnecdely_10089
+		jmp	short @@loc_10121
+
+@@loc_1011D:
+		push	dx
+		call	cnecdely_10010
+
+@@loc_10121:
+		pop	cx
+		pop	di
+		pop	si
+		pop	bp
+		ret
+___nec_delay	endp