/******************** ICE-1500 (DOS) TUTORIAL SCREEN #28 **********************/
menu = 1
define literally PR  = 'include scr.27 nolist'
define literally R   = 'include scr.28 nolist'
define literally RTN = 'include scr.28 nolist'
define literally N   = 'include scr.29 nolist'
define literally M   = 'include scr.2  nolist'
define literally modL = 'include scrL.1 nolist'   /* do not execute Mods L, M */
define literally modM = 'include scrM.1 nolist'   /* prerequisites if called  */
                                                  /* from this screen on      */
map 0k length 12k ice
load messg
namescope = rotate
DEFINE PROC CRT = DO 
 CURY = 20T  
 CHAR .DISP_BUFFER LENGTH BUFF_SIZE 
 RETURN FALSE   
 END
DEFINE BRKREG CRTBRK = CHAR_DISPLAY CALL CRT
ASM 066h = 'setb c'                            /* in case of user entry error */
cls 
/******************************************************************************/
'                                                      ------------------------'
'It seems to work.  Verify that the loop is executing | SCR28: TRACE           |'
'the correct number of times by using the TRACE       | N  = Next screen       |'
'feature.  The following command will execute the     | R  = Rewrite SCR28     |'
'program and enter the first instruction of line      | PR = Previous screen   |'
'number 28 (address 64H) into the ICE-5100 trace      | M  = Go to main menu   |'
'buffer.                                              | Q  = Quit tutorial     |'
'                                                     | SCR# = Screen desired  |'
'   GO FROM 0 TIL CHAR_DISPLAY TRACE 64H <Enter>       ------------------------'
' '
'Use the PRINT command to verify that the instruction is being executed  '
'34 times (22 hex).  Look at the frame numbers in the trace display to '
'determine the number of iterations of the ROTATE loop.'
' '
'NOTE: The last instruction executed before a break is entered into the trace'
'buffer regardless of the trace conditions.'
' '
'   PRINT ALL <Enter>'
' '
'--------To learn more about tracing program execution, enter MODL <Enter>------'