MSX Village forum

 
it will be
 
ld hl, 2
 
ld a,l
out ($FE),a ; Well if it is a MAPPER of 16bits, insert ld a, h out ($Fb),a
 
push hl
 
di
ld hl, $0000
call $016e
ld de, $8000
ld bc, $4000
 
.loop: in a,($98) ; iirc there is "INI" or "INIR" in z80 that will remplace all these inloop instructions.
ld (de),a
inc de
dec bc
ld a,b
or c
jr nz, .loop
 
pop hl
inc hl
ld a,l
out ($FE),a ; Well if it is a MAPPER of 16bits, insert ld a, h out ($Fb),a
 
push hl
 
.... repeated to copy all the 212*256 bytes, if you want to keep it simple, just waste the extra space of all 4th RAM segment.
 
then
 
ei
ret
 
For a code like this , a few things are needed to be preset,
 
1) BASIC listing must be in page3 ($C00 =&gtWink, so you will *free* the page2 *window*, and to select in that windows any RAM segment.
 
2) you needs to have the PLAYSONIQ SLOT/SSLOT viewable in page2, and that is custom of every MSX config ¿There is a standard way, asks to the DOS2 guys?.
 

 
10 'SAVE"007.ASC",A
20 ON STOP GOSUB360:STOP ON:N=1
30 SET ADJUST(8,-0):WIDTH 80:COLOR 1,15:CLS:'MODE TEXTE NOIR ET BLANC
40 PRINT"1) LANCER LE 'SOFTFIXE' SYNCHRO H SUR NMS8280 AVEC VDP9958
50 A$=INKEY$:IF A$=""THEN50
60 PRINT"   (PRESSER UNE TOUCHE LORSQUE LE SCREEN 8 SERA CENTRE...)
70 A$=INKEY$:IF A$=""THEN70
80 SET VIDEO 2,0,0:COLOR 1,15,5
90 SCREEN8,,,,,2:A$=INKEY$:IF A$=""THEN90
100 SCREEN8,,,,,3:'MODE ENTRELACE FIXE LA STABILITE
110 SCREEN0:PRINT"2) LANCER L'INITIALISATION DU RAM DISK
120 A$=INKEY$:IF A$=""THEN120
130 PRINT"   (PATIENTER QUELQUES INSTANTS...)
140 PRINT"
150 CALL RAMDISK(0):CALL RAMDISK(4000):'RAMDISK
160 PRINT"3) LANCER LA NUMERISATION A LA VOLEE
170 PRINT"
180 PRINT"   OPERATIONS POSSIBLES:
190 PRINT"   [STOP] => FAIRE UN ARRET SUR IMAGE
200 PRINT"   [CTRL]+[STOP] => SAUVER UNE/DES IMAGES
210 PRINT"   [CTRL]+[STOP]+[ESPACE] => QUITTER LA NUMERISATION
220 PRINT"
230 A$=INKEY$:IF A$=""THEN230
240 SCREEN8:COLOR 255,255,255
250 COPY SCREEN0:ON STOP GOSUB 260:STOP ON:GOTO250
260 COPYSCREEN0:BSAVE"H:IMAGE"+MID$(STR$(N),2)+".SC8",0,&HD3FF,S:N=N+1:A$=INKEY$:IFA$=""THEN250
270 SET VIDEO 0,0,0:SCREEN0:COLOR 1,15,15
280 PRINT"4) LANCER LA VISIONNEUSE
290 PRINT"
295 PRINT"   OPERATIONS POSSIBLES:
300 PRINT"   [STOP] => FAIRE UN ARRET SUR IMAGE
310 PRINT"   [CTRL]+[STOP] => QUITTER LE PROGRAMME
320 ON STOP GOSUB360:STOP ON:A$=INKEY$:IF A$=""THEN320
330 SET VIDEO 0,0,0:N=1
340 COLOR ,,0:SCREEN8
350 BLOAD"H:IMAGE"+MID$(STR$(N),2)+".SC8",S:N=N+1:GOTO350
360 SET VIDEO 0,0,0:SCREEN0:COLOR 1,15,15:WIDTH 80