6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-01-28 00:31:16 +00:00
Code Issues Projects Releases Wiki Activity

Move load +load thru +thru --> from vf-cbm-core to vf-cbm-bufs

Browse Source
This commit is contained in:
Philip Zembrod 2021-04-02 00:33:57 +02:00
parent 798fcb3620
commit c7ced3bb60
2 changed files with 20 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
6502/C64/src/vf-cbm-bufs.fth
View File

@ -1,6 +1,24 @@
\ *** Block No. 102, Hexblock 66 \ *** Block No. 102, Hexblock 66
66 fthpage 66 fthpage
( load +load thru +thru --> )
: load ( blk --)
?dup 0= ?exit blk push blk !
>in push >in off
.status interpret ;
: +load ( offset --) blk @ + load ;
: thru ( from to --)
1+ swap DO I load LOOP ;
: +thru ( off0 off1 --)
1+ swap DO I +load LOOP ;
: -->
1 blk +! >in off .status ; immediate
( buffer mechanism 15dec83ks) ( buffer mechanism 15dec83ks)
User file 0 file ! User file 0 file !

31
6502/C64/src/vf-cbm-core.fth
View File

@ -2122,7 +2122,7 @@ Code ?stack
\ *** Block No. 92, Hexblock 5c \ *** Block No. 92, Hexblock 5c
5c fthpage 5c fthpage
( .status push load 08sep84ks) ( .status push 08sep84ks)
Defer .status ' noop Is .status Defer .status ' noop Is .status
@ -2132,37 +2132,10 @@ Defer .status ' noop Is .status
r> swap dup >r @ >r pull >r >r ; r> swap dup >r @ >r pull >r >r ;
restrict restrict
: load ( blk --)
?dup 0= ?exit blk push blk !
>in push >in off
.status interpret ;
\ *** Block No. 93, Hexblock 5d \ *** Block No. 93, Hexblock 5d
5d fthpage 5d fthpage
( +load thru +thru --> rdepth depth ks) ( rdepth depth ks)
: +load ( offset --) blk @ + load ;
: thru ( from to --)
1+ swap DO I load LOOP ;
: +thru ( off0 off1 --)
1+ swap DO I +load LOOP ;
: -->
1 blk +! >in off .status ; immediate
: rdepth ( -- +n) r0 @ rp@ 2+ - 2/ ; : rdepth ( -- +n) r0 @ rp@ 2+ - 2/ ;