         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
  USE'PSEUDO'DST := VM'INUSE;                                           06700000
            ASCII(LOGICAL(HOLD'ADR-ADR),OCTAL,BUFB)                     20215000
    CLEAR'BUFFER;                                                       33630000
$PAGE"                    PROCEDURE  LIST'LDMAP"                        33850010
PROCEDURE LIST'LDMAP;                                                   33850020
BEGIN                                                                   33850030
                                                                        33850040
INTEGER CST'NUM;                                                        33850050
LOGICAL DONE;                                                           33850060
                                                                        33850070
CST'NUM := 1;                                                           33850080
DONE := FALSE;                                                          33850090
BLANKBUF;                                                               33850100
WHILE NOT DONE  DO                                                      33850110
  BEGIN                                                                 33850120
  IF CTRLY THEN                                                         33850130
    BEGIN                                                               33850140
    MOVE BUF := " <CONTROL-Y>";                                         33850150
    PRINTLINE(OUTFILE);                                                 33850160
    RETURN;                                                             33850170
    END;                                                                33850180
  NAME'CST(CST'NUM,LBUF(2));                                            33850190
  IF BUF(4) = " "  THEN                                                 33850200
    DONE := TRUE;                                                       33850210
  ELSE                                                                  33850220
    BEGIN                                                               33850230
    @PBUF := @BUF - 3;                                                  33850240
    PUTNUMP(CST'NUM);                                                   33850250
    CST'NUM := CST'NUM + 1;                                             33850260
    NAME'CST(CST'NUM,LBUF(18));                                         33850270
    IF BUF(36) = " "  THEN                                              33850280
      DONE := TRUE                                                      33850290
    ELSE                                                                33850300
      BEGIN                                                             33850310
      @PBUF := @BUF + 29;                                               33850320
      PUTNUMP(CST'NUM);                                                 33850330
      END;                                                              33850340
    PRINTLINE(OUTFILE);                                                 33850350
    CST'NUM := CST'NUM + 1;                                             33850360
    END;                                                                33850370
  END;                                                                  33850380
END;   << LIST'LDMAP >>                                                 33850390
        FMT'PIN    = 17,                                                34060000
        FMT'LMAP   = 18;                                                34061000
  ELSE                                                                  34951000
    IF STRING = "LMAP" THEN ITEMNUM:= FMT'LMAP                          34952000
   <<LMAP>> LIST'LDMAP;                                                 35381000
      IF CST'NUM <= 255 THEN                                            61061000
      IF CST'NUM <= 191 THEN                                            61096000
                                                                        61101000
        IF CST'NUM <= 255 THEN                                          61171000
        IF CST'NUM <= 191 THEN                                          61226000
      FCLOSE(LDFILE,0,0);                                               67620000
