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 - metrics - download

⟦d2124022b⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »CWT.MAC«

Derivation

└─⟦8dcf1351b⟧ Bits:30004118/disk2.imd SW1720/I5 Pascal/MT+ Release 5.5
    └─⟦this⟧ »CWT.MAC« 

TextFile

;----------------------------------------------------------------;
;								 ;
;	MODULE @CWT						 ;
;	LAST UPDATED: SEPT    6 1980				 ;
;								 ;
;----------------------------------------------------------------;

	PUBLIC	@CWT		;WAIT FOR CR
	EXTRN	@GETCHR
	EXTRN	@LFB

FEOLN	EQU	59		;BOOLEAN;
FBUFFER	EQU	194		;ARRAY Æ0..0Å OF BYTE
OPTION	EQU	56		;(FREAD,FWRITE,...FLSTOUT)
FCONIO	EQU	4		;USED BY THIS MODULE

@CWT:
	LHLD	@LFB
	LXI	D,FEOLN
	DAD	D
	MOV	A,M
	RAR
	JC	ITSEOLN		;BR IF LAST THING WAS A CR

	CALL	@GETCHR
	POP	B		
	JMP	@CWT

ITSEOLN:
	MVI	M,0		;TURN EOLN OFF

	LHLD	@LFB
	LXI	D,OPTION
	DAD	D
	MOV	A,M
	CPI	FCONIO
	RNC			;IF CONSOLE THEN WE ARE DONE

	CALL	@GETCHR		;GOBBLE BLANK AND PUT LF IN BUFFER
	POP	B

	LHLD	@LFB
	LXI	D,FBUFFER
	DAD	D
	MOV	A,M
	CPI	0AH		;LF TO GOBBLE?
	RNZ			;RETURN IF DONE

	CALL	@GETCHR		;GOBBLE LF AND PUT NEXT CHAR IN BUFFER
	POP	B
	RET			

	END
«eof»