End

2000 REM PAUSE ROUTINE 2010 IN$=""

2020 IN*=INKEY$JIFIN$=""THEN2020

2022 IFIN$="H"THENHE$="H"JRETURN

2023 IFIN$="D"THENHE$="D"tRETURN 2025 IFASC(IN$ )=12 THENCLS J GOT0110

2030 IFIN$="5"ORIN$="-"THENRETURNELSE2010 3000 A=INT( J/4096 ) 3010 GOSUB3SOO 3020 J=J-4096*A

Continued on page 20

Block move program

01 46 1A LD BC, 1A46

11 00 65 LD DE, 6500

21 00 43 LD HL, 4300

ED BO LD IR C319 1A JP1A19

; length of program ; to address ; from address ; move

; jump to Basic ready

Load the Editor/Assembler but don't execute it. Instead enter /32590. This will move the editor/assembler from 4300H to 6500H. Load T-Bug and enter the following patches:

location

previous hex

new hex

0 0

Post a comment