/************************** I2ICE TUTORIAL SCREEN #21 **************************/
menu=1
define literally P   = 'include scr.20 nolist'
define literally R   = 'include scr.21 nolist'
define literally RTN = 'include scr.21 nolist'
define literally N   = 'include scr.22 nolist'
define literally M   = 'include scr.2 nolist'
Map 0 length 3k hs
include ioproc
mapio 0 length 40 ice(ioproc)
source = false
presrc = 0
postsrc = 0
load cmker2.abs
base = hex
define pointer top = $
reset break
cls
/*******************************************************************************/
'                                                     ------------------------'
'To make use of IOPROC, you must cite it when you    | SCR21: GO WITH IOPROC  |'
'map I/O ports.  Previously when you mapped I/O, you | M = Go to main menu    |'
'entered "MAPIO 0 LENGTH 40 ICE".  This time, enter  | N = Next screen        |'
'    MAPIO 0 LENGTH 40 ICE(IOPROC) <Enter>           | P = Previous screen    |'
'                                                    | Q = Quit tutorial      |'
'Let''s see what difference this PROC makes in the    | R = Rewrite SCR21      |'
'emulation display.  Enter the following command:    | SCR# = Screen desired  |'
'    GO FROM TOP <Enter>                              ------------------------'
'Ignore the question marks and respond with 150'
'<Enter> for Paid and 108 <Enter> for Price.'
' '
'NOTE: I2ICE has the ability to display source code for ASM< FORTRAN, Pascal,'
'and PL/M programs.  To see how the source code display feature works and to'
'understand it''s requirements go to MOD_R.'
'-------------------------------------------------------------------------------'