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

⟦88238b7ac⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »FPSQR.SRC«

Derivation

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

TextFile

; SQUARE A FLOATING POINT NUMBER
;
	NAME FPSQR
	ENTRY FPSQR,L118
	EXT FMULT
;
L118:
FPSQR:	POP	H	;GET RETURN ADDRESS
	POP	D	;GET FLOATING POINT NUMBER
	POP	B
	PUSH	B	;RESTORE FLOATING POINT NUMBER
	PUSH	D
	PUSH	B	;MAKE A COPY OF IT
	PUSH	D
	PUSH	H	;RESTORE RETURN ADDRESS
	JMP	FMULT	;AND MULTIPLY
;
«eof»