
;
;   Test of console XFC statement
;

            
.print "This program will text the XFC instruction for executing"
.print "console commands.  It will cause the console to display"
.print "the contents of R6 and the PSL."


            .entry      main

            movab       @#_cmd1, r0
            xfc         #XFC$CONSOLE_CMD
            
            movab       @#_cmd2, r0
            xfc         #XFC$CONSOLE_CMD

            ret
            
_cmd1:      .ascic      "SHOW R6"
_cmd2:      .ascic      "SHOW PSL"
            
            .end        main

