Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

retro/native: add ! (save current to disk) and @ (load current from disk) keys to block editor. Use with caution: these will erase disk contents.

Browse source 
FossilOrigin-Name: eb4a85ce6ef790cabbfa3a2ad2e971eff72ce809c19be21d0852109482e07867
This commit is contained in:
crc 2019-02-20 20:13:21 +00:00
parent f4668e05d0
commit 914fbf9a99
2 changed files with 19 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
interfaces/native/image.c
View file

@ -1,6 +1,6 @@
#include <stdint.h>
int32_t ngaImageCells = 55458;
int32_t ngaImage[] = { 1793,13833,55437,55457,201906,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
int32_t ngaImageCells = 55564;
int32_t ngaImage[] = { 1793,13833,55510,55563,201906,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
7,10,8,10,9,10,10,10,11,10,12,10,13,10,14,10,15,10,16,10,
17,10,18,10,19,10,20,10,21,10,22,10,23,10,24,10,25,10,26,10,
68223234,1,2575,85000450,1,656912,355,339,268505089,66,65,135205121,66,10,101384453,0,9,10,2049,59,
@ -51,7 +51,7 @@ int32_t ngaImage[] = { 1793,13833,55437,55457,201906,0,10,1,10,2,10,3,10,4,10,5,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,59,0,98,58,105,110,105,116,105,97,108,105,122,101,
0,0,0,0,0,0,59,0,112,121,0,107,0,0,0,108,111,99,107,0,
0,0,0,0,45,45,53,45,45,45,45,45,45,45,45,45,54,45,45,45,
0,0,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
@ -2772,4 +2772,10 @@ int32_t ngaImage[] = { 1793,13833,55437,55457,201906,0,10,1,10,2,10,3,10,4,10,5,
114,58,107,101,121,60,105,62,0,2049,48505,2049,48369,10,55371,55410,147,101,100,105,
116,111,114,58,107,101,121,60,121,62,0,3841,13947,2049,48459,10,55393,55432,147,101,
100,105,116,111,114,58,107,101,121,60,113,62,0,2049,2428,4097,49234,10,55415,55454,
147,101,100,105,116,111,114,58,107,101,121,60,96,62,0,2049,49120,10,0 };
147,101,100,105,116,111,114,58,107,101,121,60,96,62,0,2049,49120,10,55437,55474,
147,101,100,105,116,111,114,58,107,101,121,60,33,62,0,1,13988,1,12893,1,
512,2049,3167,3841,13947,1,2,19,2049,13522,1,13988,1,512,17,1,12893,1,512,2049,
3167,3841,13947,1,2,19,2049,2908,2049,13522,10,55457,55527,147,101,100,105,116,111,114,
58,107,101,121,60,64,62,0,3841,13947,1,2,19,2049,13418,1,12893,1,13988,1,
512,2049,3167,3841,13947,1,2,19,2049,2908,2049,13418,1,12893,1,13988,1,512,17,1,
512,2049,3167,10,0 };

9
interfaces/native/x86/Block-Editor.forth
View file

@ -349,3 +349,12 @@ These are helpful to quickly navigate through a block.
:editor:key<q> TRUE !DoneEditing ;
:editor:key<`> tob:initialize ;
~~~
~~~
:editor:key<!>
&Block &Sector #512 copy @CurrentBlock #2 * ata:write
&Block #512 + &Sector #512 copy @CurrentBlock #2 * n:inc ata:write ;
:editor:key<@>
@CurrentBlock #2 * ata:read &Sector &Block #512 copy
@CurrentBlock #2 * n:inc ata:read &Sector &Block #512 + #512 copy ;
~~~