PROGRAM TITLE LINE  
                                  |
                                  v
         +-------------------------------------------------+
         |                                                 |
         +                                                 +             SRC
         .MAIN.  MACRO V05.5  Friday 20-Jan-89 11:08  Page 1              |
                                                                          |
                                                                          v
                                                 +---------------------------------------------------------------+
                                  BIN            |                                             COM               |
              SEQ                  |             +                                              |                +
               |                   v                                                            v
               |         +---------------------+                                 +-------------------------------+
               v         |                     |                                 |                               |
                         +             BEX     +                                 +                               +
               1  LOC    000012         |        LF=     012                     ;SYMBOL FOR LINE FEED
               2   |                    v                .MCALL  .TTYIN, .EXIT
               3   |             +-------------+    +--> .MACRO  CALL    NAME    ;DEFINE A USER MACRO
               4   v             |             |  MD|    .JSR    PC,NAME
               5                 +             +    +--> .ENDM
         A     6 000000  000000G 000000G 000000G         .GLOBAL SUBR1, SUBR2    ;TWO EXTERNAL SUBROUTINES
               7 000000                                  .CSECT  PROG            ;DEFINE A CSECT
               8 000000  012702  000062'         START:  MOV     #BUFFER,R2      ;R2 = ADPS(BUFFER)
         AU    9 000004  000000  000000G         1$      .TTYIN                  ;READ A CHAR INTO R0
              10 000010  110022                          MOVB    R0,(R2)+        ;AND STORE IN BUFFER
              11 000012  120027  000012                  CMPB    R0,#LF          ;WAS II A LINE FEED?
         AU   12 000016  001377                          BNE     1$              ;NOPE - KEEP READING
              13 000020  105022                          CLRB    (R2)+           ;ELSE FLAG END OF LINE WITH ZERO
              14 000022  012703  0000062'                MOV     #BUFFER,R3      ;R3 = ADRS(BUFFER) FOR SUBR1
              15 000026                          MC ---> CALL    SUBR1           ;INVOKE CALL MACRO
              16 000032  004767  000000G                 JSR     PC,SUBR1
              17 000036  103760                          BCS     START           ;GET A NEW LNE IF CARRY SET
              18 000040                          MC ---> CALL    SUBR2           ;ELSE CALL OTHER SUBR.
              19 000044  004767  000000G                 JSR     PC,SUBR2
              20 000050  010067  000004                  MOV     R0,ANSWER       ;AND STORE IN ANSWER
              21 000054                                  .EXIT                   ;RETURN TO RT-11
              22 000056  104350 <-------MEB              EMT     ^O350
              23 000060                          ANSWER: .BLKW                   ;DEFINE ANSWER STORAGE
              24 000062                          BUFFER: .BLKB   72.             ;INPUT LINE BUFFER
              25         000000'                         .END    START
         
  
         .MAIN. 	MACRO V05.5  Friday 20-Jan-88 11:08  Page 1-1
    +--> Symbol table
    |    
    |    ANSWER  000060R     002 LF    = 000012          SUBR1 = ****** GX      .GLOBA= ****** GX       .TTYIN= ****** GX
 SYM|    BUFFER  000062R     002 START   000000R     002 SUBR2 = ****** GX
    |    
    |    . ABS.  000000    000   (RW,I,GBL,ABS,OVR)
    |            000006    001   (RW,I,LCL,REL,CON)
    +--> PROG    000172    002   (RW,I,GBL,REL,OVR)
         Errors detected:  3
  
         *** Assembler statistics


         Work  file  reads: 252
         Work  file writes: 52
         Size of work file: 150 Words  ( 1 Pages)
         Size of core pool: 1792 Words  ( 7 Pages)
         Operating  system: RT-11

         Elapsed time: 00:00:12.24
         DK:EXAMP1,DK:EXAMP1/C:S:R:M:P:C:E=DK:EXAMP1.MAC   <--- COPY OF COMMAND STRING THAT REQUESTED LISTING