100 CALL CLEAR
110 PRINT " MINI-MEMORY DUMPPROGRAMMA *************************"
120 PRINT ::::::::::
130 DIM KAR(10)
140 CALL PEEK(32736,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,C0,C1,C2,C3,C4,C5,C6,C7,C8,C9)
150 CALL PEEK(32766,D0,D1)
>7FE0->7FFF into A0-A9, B0-B9, C0-C9, D0-D1
160 CALL PEEK(28702,E1,E2)
170 CALL LOAD(28702,127,248)
701E (LFAM) into E1-E2
701E (LFAM) >7F, >F8
180 CALL LOAD(32760,65,32,32,32,32,32,127,14*16)
>7FF8 "A ",>7F, >E0
190 CALL LOAD(32736,2,0,32,0,2,1,112,0,2,2,16,0,4,32,96,40,4,91)
AORG >7FE0
LI R0,>2000
LI R1,>7000
LI R2,>1000
BLWP @>6028 VMBW (copy >7000->7FFF to V>2000)
B *R11
200 CALL LINK("A")
210 INPUT "WELKE FILENAME KIEST U ? DSK1.":A$
220 IF LEN(A$)>10 THEN 210
230 FOR I=1 TO LEN(A$)
240 KAR(I)=ASC(SEG$(A$,I,1))
250 NEXT I
260 CALL POKEV(7936,6,0,32,0,0,0,16,0,0,5+LEN(A$),68,83,75,49,46,KAR(1),KAR(2),KAR(3),KAR(4),KAR(5))
270 CALL POKEV(7956,KAR(6),KAR(7),KAR(8),KAR(9),KAR(10))
FN=len(FILENAME), FNx=substr(FN,x)
V>1F00 >06, >00, >20, >00, >00, >00, >10, >00
V>1F08 >00, 5+FN,"DSK1." , FN1
V>1F10 FN2, FN3, FN4, FN5, FN6, FN7, FN8, FN9
V>1F18 FN10
280 CALL LOAD(32736,2,0,31,9,200,0,131,86,4,32,96,56,0,8,4,91)
AORG >7FE0
LI R0,>1F09
MOV R0,@>8356
BLWP @>6038 DSRLNK
DATA >0008 DSR linkage
B *R11
290 CALL POKEV(12256,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,C0,C1,C2,C3,C4,C5,C6,C7,C8,C9)
300 CALL POKEV(12286,D0,D1)
V>2FE0 values from >7FE0->7FFF
** These are the top of MiniMemory values replaced by copy routine
310 CALL POKEV(8222,E1,E2)
V>201E values from >701E (LFAM)
(At this point, VDP RAM >2000->2FFF contains an exact copy of >7000->7FFF)
320 CALL LINK("A")
330 PRINT "MINI-MEMORY IS NU GEDUMPT ONDER DE NAAM :";"DSK1."&A$
340 CALL LOAD(32736,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,C0,C1,C2,C3,C4,C5,C6,C7,C8,C9)
350 CALL LOAD(32766,D0,D1)
360 CALL LOAD(28702,E1,E2)
Restore >7FE0->7FFF and >701E (LFAM)
370 END