DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦0e1c97cfb⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »CHKD.SRC«

Derivation

└─⟦c9df7130d⟧ Bits:30005915 Pascal MT+ Release 5.2 (Jet-80)
    └─ ⟦this⟧ »CHKD.SRC«

TextFile

;RANGE CHECK SUBROUTINES
;
	NAME CHKD
	ENTRY CHKDE,CHKHL
	EXT ILE,IGE,RNGERR
;
CHKDE:	CALL	IGE		;MAKE SURE THAT THE UPPER BOUND IS
	JNC	RNGERR		;GREATER THAN/ EQUAL TO DE
	MOV	H,B
	MOV	L,C
	CALL	ILE		;MAKE SURE THAT THE LOWER BOUND IS
	RC			;LESS THAN/ EQUAL TO DE
	JMP	RNGERR		;OOOPS!!
;
;
CHKHL:	PUSH	H		;SAVE HL
	PUSH	H		;SAVE IT AGAIN
	CALL	ILE		;MAKE SURE HL IS LESS THAN/ EQUAL TO
	JNC	RNGERR		;THE UPPER BOUND
	POP	H		;GET A NEW HL
	MOV	D,B
	MOV	E,C
	CALL	IGE		;MAKE SURE THAT HL IS GREATER THAN/EQUAL TO
	POP	H		;GET A NEW HL
	RC			;THE LOWER BOUND
	JMP	RNGERR		;ERROR
«eof»