MACRO                                                          00001000
&LBL     TSOGET                                                         00002000
         SVC   203                                                      00003000
         DC    X'01',X'0D'                                              00004000
         MEND                                                           00005000