0 REM Copy OPLL ROM into K5 mapper of GR8NET
1 REM Developed 25-Nov-2018 by Eugeny Brychkov
10 DEFINTA-Z:A=0:B=0:AD=0:I=0:P=0:A=PEEK(&HF6C6):B=PEEK(&HF6C7):IFB>127THENB=B-256
15 AD=B*256+A
20 PRINT"Copying OPLL ROM":PRINT"into K5 mapper"
30 FOR I=0 TO 15:P=I\8:A=&H6000+(I MOD 8)*1024
40 PRINT"O";:CALLNETLDRAM(182+I\8,&H6000+(I MOD 8)*1024,1024,AD)
50 PRINTCHR$(8);"o";:CALLNETLDBUF(I\8,&H6000+(I MOD 8)*1024,1024,AD)
55 PRINTCHR$(8);".";
60 NEXT I:PRINT:PRINT
70 _SYSTEM