LOOKUP.MAC/-BF=[344,60]LOOKUP.VGN;1 -,,/;**01.3B/ -2,2 .IDENT /Y01.3B/ ; UPDATE AUDIT CONTROL-9 APR 1981 10:54:34 ; EDIT # 0004 27 Feb 1981 12:21:48 DR0:[344,60]LOOKUP.MAC;7 ; PREVIOUS EDIT 27 Feb 1981 12:18:12 DR0:[344,60]LOOKUP.MAC;6 -10,12 ; MODIFIED BY RAY VAN TASSLE 6 Feb 1981 ; ALLOW FOR NULL LINES IN INPUT (SO YOU CAN READ THE DAMN ; *.CCL FILE WITHOUT KILLING YOUR EYEBALLS ; .MCALL GET$S -18,18 PARLNG = 60. ; 60. bytes per %n% -42,45 .PSECT LMIN: .WORD 0 ; Minimum length of keyword -59,59 CLRB INBF ; In case of null line GET$S #FDB,#INBF,#80. ; Read a line from the file -143,144 MATCH: CLR INBF ; SKIP OVER SYNONYM KEYWORDS MOV #FDB,R0 ; MARK SPOT CALL .MARK GET$S ; READ NEXT RECORD CMPB INBF,#'$ ; IS THIS ANOTHER KEYWORD? BEQ MATCH ; YES, SKIP OVER IT CALL .POINT ; NO, SET UP TO READ IT AGAIN MOV #-1,R0 ; Return FORTRAN .TRUE. /