/******************** ICE-1500 (DOS) TUTORIAL SCREEN #25 **********************/
menu = 1
define literally PR  = 'include scr.24 nolist'
define literally R   = 'include scr.25 nolist'
define literally RTN = 'include scr.25 nolist'
define literally N   = 'include scr.26 nolist'
define literally M   = 'include scr.2  nolist'
map 0k length 12k ice
load messg
cls
/******************************************************************************/
'The code clears the carry bit (location 0066H), then  ------------------------'
'performs a subtract instruction (0067H), and a jump. | SCR25:  ASM 2          |'
'If the carry bit is set instead of being cleared     | N  = Next screen       |'
'(0066H), the loop will execute one more time.        | R  = Rewrite SCR25     |'
'                                                     | PR = Previous screen   |'
'Use the ASM command to change the program code.      | M  = Go to main menu   |'
'Start the ASM command at location 066H.  Note that   | Q  = Quit tutorial     |'
'the SETB C command occupies the same number of       | SCR# = Screen desired  |'
'bytes as the original CLR C command.  Enter:          ------------------------'
' '
'   ASM 066H =  <Enter>'
'     SETB C  <Enter>  '
'     <Enter>          <-- this last <Enter> terminates the ASM command'
'------------------------------------------------------------------------------'
ASM #28 to #29   /*  Re-display ASM code for clarity  */