$a left=6 $a invert = 0 $a tab=4,8,12,16,20,24,29,32,36,40 $b20 $lmc vax-11 imp77 $l2m @run @time @library @reference @manual $n $a pageno=1 $a indent=2 $n $lc adjwsl $b $t1 specification: $b %externalintegerfn ADJWSL(%integer WSSIZE) $b $t1 definition: $b sets the current limit of a process's working set to wssize. The existing working set limit is returned as a result to allow the previous value to be reset if required. $b3 $n $lc arc cos $b $t1 specification: $b %externallongrealfn ARC COS(%longreal X) $b $t1 definition: $b returns the angle in radians whose cosine is x. The argument x must lie in the range -1 <= x <= 1. $b3 $n $lc arc sin $b $t1 specification: $b %externallongrealfn ARC SIN(%longreal X) $b $t1 definition: $b returns the angle in radians whose sine is x. The argument x must lie in the range -1 <= x <= 1. $b3 $n $lc arc tan $b $t1 specification: $b %externallongrealfn ARC TAN(%longreal X, Y) $b $t1 definition: $b returns the angle in radians whose tangent is y/x. $b3 $n $lc batch mode $b $t1 specification: $b %externalpredicate BATCH MODE $b $t1 definition: $b returns true if the process is running in batch mode, false otherwise. $b3 $n $lc canctrlc $b $t1 specification: $b %externalroutine CANCTRLC $B $t1 definition: $b disables trapping of CTRL/C. $b3 $n $lc canexh $b $t1 specification: $b %externalroutine CANEXH(%integer BLKADDR) $b $t1 definition: $b cancels an exit handler previously declared using the .dclexh function. The argument is the address of the exit control block returned by .dclexh. $b3 $n $lc charno $b $t1 specification: $b %externalbyteintegermap CHARNO(_s_t_r_i_n_g(*)%name S, %integer N) $b $t1 definition: $b returns the address of the 'n'th character in string 's'. $b3 $n $lc cliparam $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(127)%fn CLIPARAM $B $t1 definition: $b $b3 $n $lc close input $b $t1 specification: $b %externalroutine CLOSE INPUT $B $t1 definition: $b closes the file associated with currently selected input stream. $b3 $n $lc close output $b $t1 specification: $b %externalroutine CLOSE OUTPUT $B $t1 definition: $b closes the file associated with currently selected output stream. $b3 $n $lc connect time $b $t1 specification: $b %externalintegerfn CONNECT TIME $B $t1 definition: $b $b3 $n $lc console int $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(63) CONSOLE INT $B $t1 definition: $b $b3 $n $lc cos $b $t1 specification: $b %externallongrealfn COS(%longreal X) $b $t1 definition: $b returns the cosine of the angle x (expressed in radians). $b3 $n $lc cpu limit $b $t1 specification: $b %externalintegerfn CPU LIMIT $B $t1 definition: $b $b3 $n $lc cpu time $b $t1 specification: $b %externalintegerfn CPU TIME $B $t1 definition: $b $b3 $n $lc crelog $b $t1 specification: $b %externalroutine CRELOG(_s_t_r_i_n_g(63) LOGNAM, EQUIV) $b $t1 definition: $b $b3 $n $lc current default $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(127)%fn CURRENT DEFAULT $B $t1 definition: $b returns the current default file-specification. $b3 $n $lc current prompt $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(63)%fn CURRENT PROMPT $B $t1 definition: $b returns the prompt string associated with the currently selected input stream. $b3 $n $lc date $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(11)%fn DATE $b $t1 definition: $b returns the date in the form DD-MMM-YY. $b3 $n $lc dclexh $b $t1 specification: $b %externalintegerfn DCLEXH(%routine HAND(%integername STATUS)) $b $t1 definition: $b $b3 $n $lc def stream $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc delete $b $t1 specification: $b %externalroutine DELETE(_s_t_r_i_n_g(127) FILESPEC) $b $t1 definition: $b deletes the specified file. $b3 $n $lc delta connect $b $t1 specification: $b %externalintegerfn DELTA CONNECT $B $t1 definition: $b returns the elapsed time in seconds since either $b0 $t3 - log on $b0 $t3 - the last call on CONNECT TIME $b0 $t3 - the last call on DELTA CONNECT $b3 $n $lc delta cpu $b $t1 specification: $b %externalintegerfn DELTA CPU $B $t1 definition: $b returns the cpu time in milliseconds since either $b0 $t3 - log on $b0 $t3 - the last call on CPU TIME $b0 $t3 - the last call on DELTA CONNECT $b3 $n $lc delta page $b $t1 specification: $b %externalintegerfn DELTA PAGE $B $t1 definition: $b returns the number of page faults since either $b0 $t3 - log on $b0 $t3 - the last call on PAGE FAULTS $b0 $t3 - the last call on DELTA PAGE $b3 $n $lc digit $b $t1 specification: $b %externalpredicate DIGIT(%integer N) $b $t1 definition: $b returns true if '0' <= n <= '9', false otherwise. $b3 $n $lc disable echo $b $t1 specification: $b %externalroutine DISABLE ECHO $B $t1 definition: $b disables echoing of input from the currently selected input stream. If the currently selected stream is not a terminal then the call will have no effect. Echoing can be renabled by calling ENABLE ECHO. $b3 $n $lc enable echo $b $t1 specification: $b %externalroutine ENABLE ECHO $B $t1 definition: $b reenables echoing of input from the currently selected input stream. If the currently selected stream is not a terminal, then the call will have no effect. $b3 $n $lc end of input $b $t1 specification: $b %externalpredicate END OF INPUT $B $t1 definition: $b $b3 $n $lc error message $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(127) ERROR MESSAGE $B $t1 definition: $b $b3 $n $lc event $b $t1 specification: $b %externalintegerfn EVENT $B $t1 definition: $b $b3 $n $lc event info $b $t1 specification: $b %externalintegerfn EVENT INFO $B $t1 definition: $b $b3 $n $lc exists $b $t1 specification: $b %externalpredicate EXISTS(_s_t_r_i_n_g(127) FILESPEC) $B $t1 definition: $b $b3 $n $lc exp $b $t1 specification: $b %externallongrealfn EXP(%longreal X) $b $t1 definition: $b returns the value of 'e' raised to the power x. $b3 $n $lc expand $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(127)_f_n_s_p_e_c EXPAND(_s_t_r_i_n_g(127) FILNAM) $B $t1 definition: $b $b3 $n $lc expand tabs $b $t1 specification: $b %externalroutine EXPAND TABS $B $t1 definition: $b $b3 $n $lc explode $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc frac pt $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc getjpi $b $t1 specification: $b %externalintegerfn GETJPI(%integer N) $b $t1 definition: $b $b3 $n $lc imp type $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc in file name $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(127)%fn IN FILE NAME $B $t1 definition: $b $b3 $n $lc in pos $b $t1 specification: $b %externalintegerfn IN POS $B $t1 definition: $b $b3 $n $lc in stream $b $t1 specification: $b %externalintegerfn IN STREAM $B $t1 definition: $b returns the stream number of the currently selected input stream. $b3 $n $lc in type $b $t1 specification: $b %externalintegerfn IN TYPE $B $t1 definition: $b returns the type of device associated with the currently selected input stream coded as follows: $b $t4 0: $t6 null .(nl:) $b0 $t4 1: $t6 terminal $b0 $t4 2: $t6 record structured file $b0 $t4 3: $t6 block structured file $b0 $t4 4: $t6 other $b3 $n $lc int $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc int pt $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc itos $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc length $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc letter $b $t1 specification: $b %externalpredicate LETTER(%integer N) $b $t1 definition: $b returns true if 'a' <= n <= 'z' or .'A' <= n <= .'Z', false otherwise. $b3 $n $lc log $b $t1 specification: $b %externallongrealfn LOG(%longreal X) $b $t1 definition: $b returns the natural logarithm (to the base 'e') of x. (x > 0) $b3 $n $lc log ten $b $t1 specification: $b %externallongrealfn LOGTEN(%longreal X) $b $t1 definition: $b returns the common logarithm (to the base 10) of x. (x > 0) $b3 $n $lc mod $b $t1 specification: $b %externallongrealfn MOD(%longreal X) $b $t1 definition: $b returns the modulus of x. $b3 $n $lc newline $b $t1 specification: $b %externalroutine NEWLINE $B $t1 definition: $b $b3 $n $lc newlines $b $t1 specification: $b %externalroutine NEWLINES(%integer N) $b $t1 definition: $b $b3 $n $lc newpage $b $t1 specification: $b %externalroutine NEWPAGE $B $t1 definition: $b $b3 $n $lc next ch $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc next item $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(1)%fn NEXT ITEM $B $t1 definition: $b $b3 $n $lc next symbol $b $t1 specification: $b %externalintegerfunction NEXT SYMBOL $b $t1 definition: $b returns a copy of the next symbol in the currently selected input stream. The symbol is not removed from the input stream and can be accessed by another call on NEXTSYMBOL or a call on READ SYMBOL. $b3 $n $lc on ctrlc $b $t1 specification: $b %externalroutine ON CTRLC(%routine R) $b $t1 definition: $b $b3 $n $lc open append $b $t1 specification: $b %externalroutine OPEN APPEND(%integer STR, _s_t_r_i_n_g(127) FILESPEC) $b $t1 definition: $b $b3 $n $lc open input $b $t1 specification: $b %externalroutine OPEN INPUT(%integer STR, _s_t_r_i_n_g(127) FILESPEC) $B $t1 definition: $b $b3 $n $lc open output $b $t1 specification: $b %externalroutine OPEN OUTPUT(%integer STR, _s_t_r_i_n_g(127) FILESPEC) $B $t1 definition: $b $b3 $n $lc out file name $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(127)%fn OUT FILE NAME $B $t1 definition: $b $b3 $n $lc out pos $b $t1 specification: $b %externalintegerfn OUT POS $B $t1 definition: $b $b3 $n $lc out stream $b $t1 specification: $b %externalintegerfn OUT STREAM $B $t1 definition: $b returns the stream number of the currently selected output stream. $b3 $n $lc out type $b $t1 specification: $b %externalintegerfn OUT TYPE $B $t1 definition: $b returns the type of device associated with the currently selected output stream coded as follows: $b $t4 0: $t6 null .(nl:) $b0 $t4 1: $t6 terminal $b0 $t4 2: $t6 record structured file $b0 $t4 3: $t6 block structured file $b0 $t4 4: $t6 other $b3 $n $lc page faults $b $t1 specification: $b %externalintegerfn PAGE FAULTS $B $t1 definition: $b $b3 $n $lc phex $b $t1 specification: $b %externalroutine PHEX(%integer N) $b $t1 definition: $b $b3 $n $lc poctal $b $t1 specification: $b %externalroutine POCTAL(%integer N) $b $t1 definition: $b $b3 $n $lc print $b $t1 specification: $b %externalroutine PRINTCH(%integer N) $b $t1 definition: $b $b3 $n $lc print ch $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc print fl $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc print record $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc print string $b $t1 specification: $b %externalroutine PRINT STRING(_s_t_r_i_n_g(255) S) $b $t1 definition: $b $b3 $n $lc print symbol $b $t1 specification: $b %externalroutine PRINT SYMBOL(%integer N) $b $t1 definition: $b $b3 $n $lc process name $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(15)%fn PROCESS NAME $B $t1 definition: $b $b3 $n $lc prompt $b $t1 specification: $b %externalroutine PROMPT(_s_t_r_i_n_g(63) S) $b $t1 definition: $b associates the prompt string 's' with the currently selected input stream. This string is output as a prompt to the user during subsequent read operations provided the device associated with the current stream is a terminal and no input is pending. $b3 $n $lc random integer $b $t1 specification: $b %externalintegerfn RANDOM INTEGER $B $t1 definition: $b returns a random integer in the range 0 to 999. $b3 $n $lc random real $b $t1 specification: $b %externallongrealfn RANDOM REAL $B $t1 definition: $b returns a random real in the range 0 to < 1. $b3 $n $lc read $b $t1 specification: $b %externalroutine READ(%name X) $b $t1 definition: $b $b3 $n $lc read ch $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc read item $b $t1 specification: $b %externalroutine READ ITEM(_s_t_r_i_n_g(1)%name S) $b $t1 definition: $b $b3 $n $lc read record $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc read sq $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc read string $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc read symbol $b $t1 specification: $b %externalroutine READ SYMBOL(%name N) $b $t1 definition: $b the next symbol is taken from the currently selected input stream and is assigned to the parameter. $b3 $n $lc rem $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc remove trap $b $t1 specification: $b %externalroutine REMOVE TRAP $B $t1 definition: $b $b3 $n $lc reset input $b $t1 specification: $b %externalroutine RESET INPUT $B $t1 definition: $b $b3 $n $lc reset output $b $t1 specification: $b %externalroutine RESET OUTPUT $B $t1 definition: $b $b3 $n $lc reset randoms $b $t1 specification: $b %externalroutine RESET RANDOMS $B $t1 definition: $b $b3 $n $lc select input $b $t1 specification: $b %externalroutine SELECT INPUT(%integer STR) $b $t1 definition: $b $b3 $n $lc select output $b $t1 specification: $b %externalroutine SELECT OUTPUT(%integer STR) $b $t1 definition: $b $b3 $n $lc set default $b $t1 specification: $b %externalroutine SET DEFAULT(_s_t_r_i_n_g(127) S) $b $t1 definition: $b $b3 $n $lc set margin $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc set stack $b $t1 specification: $b %externalroutine SET STACK(%integer INC) $b $t1 definition: $b $b3 $n $lc set streams $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc set trap $b $t1 specification: $b %externalroutine SET TRAP(%routine R) $b $t1 definition: $b $b3 $n $lc sin $b $t1 specification: $b %external? $b $t1 definition: $b returns the sine of the angle x (expressed in radians). $b3 $n $lc size of $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc skip ch $b $t1 specification: $b %externalroutine SKIP CH $B $t1 definition: $b $b3 $n $lc skip item $b $t1 specification: $b %externalroutine SKIP ITEM $B $t1 definition: $b $b3 $n $lc skip symbol $b $t1 specification: $b %externalroutine SKIP SYMBOL $B $t1 definition: $b skips the nextsymbol in the currently selected input stream. $b3 $n $lc space $b $t1 specification: $b %externalroutine SPACE $B $t1 definition: $b outputs a single space character on the currently selected output stream. $b3 $n $lc spaces $b $t1 specification: $b %externalroutine SPACES(%integer N) $b $t1 definition: $b outputs 'n' space characters on the currently selected output stream. $b3 $n $lc sqrt $b $t1 specification: $b %externallongrealfn SQRT(%longreal X) $b $t1 definition: $b returns the positive square root of x. THe argument x must be >= 0. $b3 $n $lc sub event $b $t1 specification: $b %externalintegerfn SUB EVENT $B $t1 definition: $b $b3 $n $lc substring $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc suppress echo $b $t1 specification: $b %externalroutine SUPPRESS ECHO $B $t1 definition: $b $b3 $n $lc sysmess $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc tab $b $t1 specification: $b %externalroutine TAB(%integer COL) $b $t1 definition: $b $b3 $n $lc tan $b $t1 specification: $b %external? $b $t1 definition: $b returns the tangent of the angle x (expressed in radians). $b3 $n $lc time $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc translate $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(63)%fn TRANSLATE(_s_t_r_i_n_g(63) LOG) $b $t1 definition: $b $b3 $n $lc trnlog $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(63)%fn TRNLOG(_s_t_r_i_n_g(63) LOG) $b $t1 definition: $b $b3 $n $lc type of $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc user info $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc username $b $t1 specification: $b _e_x_t_e_r_n_a_l_s_t_r_i_n_g(12)%fn USERNAME $B $t1 definition: $b $b3 $n $lc verifying $b $t1 specification: $b %externalpredicate VERIFYING $B $t1 definition: $b $b3 $n $lc write $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $lc write sq $b $t1 specification: $b %external? $b $t1 definition: $b $b3 $n $a tab=3,6,9,12,15,20,23,26,29,32,37,40,43,46,49,54,57,60,63,66 $t1 0 $t3 NUL $t6 32 $t8 space $t11 64 $t13 $@ $t16 96 $t18 ` $b0 $t1 1 $t3 SOH $t6 33 $t8 ! $t11 65 $t13 A $t16 97 $t18 a $b0 $t1 2 $t3 STX $t6 34 $t8 " $t11 66 $t13 B $t16 98 $t18 b $b0 $t1 3 $t3 ETX $t6 35 $t8 # $t11 67 $t13 C $t16 99 $t18 c $b0 $t1 4 $t3 EOT $t6 36 $t8 $$ $t11 68 $t13 D $t16 100 $t18 d $b0 $t1 5 $t3 ENQ $t6 37 $t8 $% $t11 69 $t13 E $t16 101 $t18 e $b0 $t1 6 $t3 ACK $t6 38 $t8 & $t11 70 $t13 F $t16 102 $t18 f $b0 $t1 7 $t3 BEL $t6 39 $t8 ' $t11 71 $t13 G $t16 103 $t18 g $b $t1 8 $t3 BS $t6 40 $t8 ( $t11 72 $t13 H $t16 104 $t18 h $b0 $t1 9 $t3 HT $t6 41 $t8 ) $t11 73 $t13 I $t16 105 $t18 i $b0 $t1 10 $t3 LF(NL) $t6 42 $t8 * $t11 74 $t13 J $t16 106 $t18 j $b0 $t1 11 $t3 VT $t6 43 $t8 + $t11 75 $t13 K $t16 107 $t18 k $b0 $t1 12 $t3 FF $t6 44 $t8 , $t11 76 $t13 L $t16 108 $t18 l $b0 $t1 13 $t3 CR $t6 45 $t8 - $t11 77 $t13 M $t16 109 $t18 m $b0 $t1 14 $t3 SO $t6 46 $t8 $. $t11 78 $t13 N $t16 110 $t18 n $b0 $t1 15 $t3 SI $t6 47 $t8 / $t11 79 $t13 O $t16 111 $t18 o $b $t1 16 $t3 DLE $t6 48 $t8 0 $t11 80 $t13 P $t16 112 $t18 p $b0 $t1 17 $t3 DC1 $t6 49 $t8 1 $t11 81 $t13 Q $t16 113 $t18 q $b0 $t1 18 $t3 DC2 $t6 50 $t8 2 $t11 82 $t13 R $t16 114 $t18 r $b0 $t1 19 $t3 DC3 $t6 51 $t8 3 $t11 83 $t13 S $t16 115 $t18 s $b0 $t1 20 $t3 DC4 $t6 52 $t8 4 $t11 84 $t13 T $t16 116 $t18 t $b0 $t1 21 $t3 NAK $t6 53 $t8 5 $t11 85 $t13 U $t16 117 $t18 u $b0 $t1 22 $t3 SYN $t6 54 $t8 6 $t11 86 $t13 V $t16 118 $t18 v $b0 $t1 23 $t3 ETB $t6 55 $t8 7 $t11 87 $t13 W $t16 119 $t18 w $b $t1 24 $t3 CAN $t6 56 $t8 8 $t11 88 $t13 X $t16 120 $t18 x $b0 $t1 25 $t3 EM $t6 57 $t8 9 $t11 89 $t13 Y $t16 121 $t18 y $b0 $t1 26 $t3 SUB $t6 58 $t8 : $t11 90 $t13 Z $t16 122 $t18 z $b0 $t1 27 $t3 ESC $t6 59 $t8 ; $t11 91 $t13 [ $t16 123 $t18 { $b0 $t1 28 $t3 FS $t6 60 $t8 < $t11 92 $t13 \ $t16 124 $t18 | $b0 $t1 29 $t3 GS $t6 61 $t8 = $t11 93 $t13 ] $t16 125 $t18 } $b0 $t1 30 $t3 RS $t6 62 $t8 > $t11 94 $t13 ^ $t16 126 $t18 ~ $b0 $t1 31 $t3 US $t6 63 $t8 ? $t11 95 $t13 $_ $t16 127 $t18 DEL $b0 $e