1  +- EDIT TEST1.MAC                                               
         +- *R$$                                                         
       +--- */L$$                                                        
       |    ;TEST PROGRAM                                                
       |    START:  MOV     #1000,SP        ;INITIALIZE STACK            
       |            MOV     #MSG,R0         ;POINT R0 TO MESSAGE         
     2 |            JSR     PC,MSGTYP       ;PRINT IT                    
       |            HALT                    ;STOP                        
       |    MSG:    .ASCII/IT WORKS/                                     
       |            .BYTE 15                                             
       |            .BYTE 12                                             
       +---         .BYTE 0                                              
       3 +-                                                              
         +- *B$1J$5D$$                                                   
       +--- *GPROGRAM$$                                                  
     4 |    *OL$$                                                        
  +-   +--- ;PROGRAM*I TO TEST SUBROUTINE MSGTYPE.  TYPES                
5 |         ;"THE TEST PROGRAM WORKS'                                    
  +-        ;ON THE TEMI\IM\RMINAL$$                                     
       6 +- *F/ASCII/$$                                                  
         +- *8CTHE TEST PROGRAM WORKS$$                                  
       +--- *P.BYTE^X                                                    
     7 |    *F.BYTE 0$V$$                                                
       +---         .BYTE 0                                              
   +-                                                                     
   |        *I                                                        
   |                .END
   |
   |        $B/L$$
   |        ;PROGRAM TO TEST SUBROUTINE MSGTYP. TYPES
   |        ;"THE TEST PROGRAM WORKS"
   |        ;ON THE TERMINAL
   |
 8 |        START:       MOV#1000,SP       ;INITIALIZE STACK
   |                     MOV#MSG,R0        ;POINT R0 TO MESSAGE
   |                     JSRPC,MSGTYP      ;PRINT IT
   |                     HALT              ;STOP
   |        MSG:         .ASCII/THE TEST PROGRAM WORKS/
   |                     .BYTE 15
   |                     .BYTE 12
   |                     .BYTE 0
   |                     .END
   +-
        +--
        |   *EX$$
      9 |
        |   .
        +-