Compucolor.org – Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/asmtut_disk2-sector.ccvf'

100 PLOT 6,2,15,12,27,24
110 POKE 32941,191:POKE 32940,172:CLEAR 100:PLOT 27,4:PRINT "LOA SCROLL.PRG":PLOT 27,27
120 POKE 33283,173:POKE 33284,191:DU= 49113:POKE DU,128
130 PLOT 6,8,14,3,8,8:PRINT "    A S S E M B L E R   T U T O R I A L   # 4    "
140 PLOT 6,2,3,8,14:PRINT "   - 8 0 8 0 -   I N S T R U C T I O N   S E T   "
150 PLOT 15,3,10,20:PRINT "ENTER THE SUBSECTION AT WHICH YOU WISH TO START"
160 PLOT 3,16,22:PRINT "1. DATA TRANSFER INSTRUCTIONS"
170 PLOT 3,16,23:PRINT "2. ARITHMETIC INSTRUCTIONS"
180 PLOT 3,16,24:PRINT "3. BRANCHING OPERATIONS"
190 PLOT 3,16,25:PRINT "4. INPUT AND OUTPUT INSTRUCTIONS"
195 GOSUB 250:PLOT 3,16,27:INPUT "";I$
200 I= VAL (I$):IF I< 1OR I> 4THEN PLOT 28,11:GOTO 195
210 A$= CHR$ (64+ I)
240 PLOT 6,2,12:GOSUB 260:A$= "TUTE4"+ A$:LOAD A$:RUN
250 FOR I= 10TO 24STEP 2:Z= CALL (I):NEXT
260 FOR I= 24TO 10STEP - 2:Z= CALL (I):NEXT :RETURN