Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/rubout.mac
There is 1 other file named rubout.mac in the archive. Click here to see a list.
COMMENT! SIMULA specification;
OPTIONS(/E:QUICK,RUBOUT);
PROCEDURE RUBOUT;;
COMMENT: Version 2, january 1975, $ke Blomberg;

!;! MACRO-10 code

TITLE	RUBOUT		;!PROCEDURE TO RUBOUT TEKTRONIX SCREEN
ENTRY	RUBOUT		;!************************************

ESC=33
RUB=14
ac1=1

RUBOUT:	movei	ac1,ESC 	;!rubout screen
	ttcall	1,ac1
	movei	ac1,RUB
	ttcall	1,ac1
	movei	ac1,ac1		;!sleep 1 second
	calli	ac1,31
	popj	17,		;!return to SIMULA program
	END;