CONSTSTRING (13) VSN="24 JAN 80 1" EXTERNALINTEGERFNSPEC DLOWER ACR(INTEGER I) DYNAMICROUTINESPEC RSTRG(STRINGNAME S) DYNAMICROUTINESPEC DUMP(INTEGER A,B,C,D) EXTERNALROUTINESPEC PROMPT(STRING (255) S) EXTERNALROUTINESPEC RDINT(INTEGERNAME I) ! EXTERNALROUTINE MAKE EMPTY(STRING (255) S) INTEGER VA,F,J PROMPT("VA: ") RDINT(VA) UNLESS 16<= VA>>18 <=31 AND VA&X'3FF'=0 START PRINTSTRING("ADDRESS ??") NEWLINE RETURN FINISH PRINTSTRING("CURRENTLY CONTAINS:") NEWLINE DUMP(VA,VA+X'20',-1,16) PROMPT("GO AHEAD? ") RSTRG(S) UNTIL S="YES" OR S="yes" OR CHARNO(S,1)='N' RETURN IF 'Y'#CHARNO(S,1)#'y' J=DLOWER ACR(2) IF J#0 START PRINTSTRING("DLOWER ACR FLAG =") WRITE(J,1) NEWLINE RETURN FINISH STRING(VA)="EMPTY" PRINTSTRING("DONE") NEWLINE END ; ! MAKE EMPTY ENDOFFILE