/******************** ICE-1500 (DOS) TUTORIAL SCREEN #30 **********************/
menu = 1
define literally PR  = 'include scr.29 nolist'
define literally R   = 'include scr.30 nolist'
define literally RTN = 'include scr.30 nolist'
define literally N   = 'include scr.31 nolist'
define literally M   = 'include scr.2  nolist'
map 0k length 12k ice
load messg
ASM 066h = 'setb c'                            /* in case of user entry error */
namescope = rotate
DEFINE PROC CRT = DO 
 CURY = 20T  
 CHAR .DISP_BUFFER LENGTH BUFF_SIZE 
 RETURN FALSE   
 END
DEFINE BRKREG CRTBRK = CHAR_DISPLAY CALL CRT
DEFINE PROC SHOWVAR = DO              /* SHOWVAR PROCEDURE (show variables) */
BASE = decimal                               /* Change base to decimal      */
WRITE SCREEN(14,21)'Buff_size = ',BUFF_SIZE  /* Display BUFF_SIZE           */
WRITE SCREEN(33,21)'Index_ptr = ',INDEX_PTR  /* Display INDEX_PTR           */
BASE = hex                                   /* Change base back to HEX     */
RETURN FALSE                          /* Continue emulation upon return     */
END                                   /* End of SHOWVAR procedure           */
DEFINE BRKREG SHOWBRK = #29 CALL SHOWVAR 
cls
/******************************************************************************/
'                                                      ------------------------'
'Now save the program patch and debug objects on a    | SCR30: SAVE AND PUT    |'
'disk drive (to be recalled in possible future        | N  = Next screen       |'
'debugging sessions).                                 | R  = Rewrite SCR30     |'
'                                                     | PR = Previous screen   |'
'The SAVE command will save portions of code memory   | M  = Go to main menu   |'
'to a disk file.  The PUT command will save debug     | Q  = Quit tutorial     |'
'objects (such as PROCs and BRKREGs) to a disk file.  | SCR# = Screen desired  |'
'                                                      ------------------------'
'Enter the following to save the code and debug objects we have created: '
' '
'   SAVE CODE.SAV #28 TO #29 <Enter>     (#28 is address 0066H, #29 is 006BH)'
' '
'To learn more about saving code with the SAVE command, enter MODC <enter>'
' '
'   PUT DEBUG.SAV CRT, SHOWVAR, CRTBRK, SHOWBRK <Enter>  '
' '
'---------To learn more about saving debug objects, enter MODP <Enter>----------'