; RegML.dsm
; Machine code for registration
; L. Stewart, September 30, 1983  10:38 AM

$INCLUDE(Lark.d)
$INCLUDE(8086LIB.D)

C_CODE	SEGMENT

C_DATA	SEGMENT
C_DATA	ENDS

ASSUME CS:C_CODE, DS:C_DATA

; from LarkMonIntML.dsm

; read 8259 IRR
_ReadIRR	PROC	NEAR
	MOV	AL,00AH
	OUT	intctl,AL
	IN	AL,intctl
	MOV	BL,AL
	XOR	BH,BH
	RET
_ReadIRR	ENDP

; int DoubleDecrement(px, y)
;	int *px, y;
; subtract a 16 bit integer from a 32 bit integer

_DoubleDecrement	PROC	NEAR
	PUSH	BP
	MOV	BP,SP
	MOV	SI,CX		; SI _ px, BX has y
	SUB	[SI],BX
	SBB	[SI+2],0
	MOV	BX,[SI]		; return ls word
	POP	BP
	RET
_DoubleDecrement	ENDP

PUBLIC	_ReadIRR
PUBLIC	_DoubleDecrement

C_CODE	ENDS
	END