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;