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

Updates py65 Version

Browse Source
This commit is contained in:
Carsten Strotmann 2022-08-18 13:31:10 +02:00
parent c9aff2c819
commit 01ddb5643c
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
6502/py65/6502f83.fb
View File

File diff suppressed because one or more lines are too long

16
6502/py65/6502f83.fth
View File

@ -20,7 +20,7 @@ ende 123
\ *** Block No. 1, Hexblock 1 \ *** Block No. 1, Hexblock 1
\ volksFORTH Loadscreen for py65 target cas 15juli2020 \ volksFORTH Loadscreen for py65 target cas 02aug2020
forth definitions forth definitions
: (C [compile] ( ; IMMEDIATE \ : ) ; IMMEDIATE : (C [compile] ( ; IMMEDIATE \ : ) ; IMMEDIATE
@ -58,7 +58,7 @@ HERE DUP ORIGIN!
\ *** Block No. 3, Hexblock 3 \ *** Block No. 3, Hexblock 3
\ Coldstartvalues and user variables cas 15juli2020 \ Coldstartvalues and user variables cas 02aug2020
\ \
0 JMP 0 JSR HERE 2- >LABEL >WAKE 0 JMP 0 JSR HERE 2- >LABEL >WAKE
@ -67,7 +67,7 @@ HERE DUP ORIGIN!
0D6 ALLOT 0D6 ALLOT
\ Bootlabel \ Bootlabel
," VOLKSFORTH-83 3.8 py65 15july2020 CS" ," VolksForth-83 3.8.1 py65 02aug2020 CS"
@ -172,7 +172,7 @@ USER UDP \ POINTS TO NEXT FREE ADDR IN USER
\ *** Block No. 9, Hexblock 9 \ *** Block No. 9, Hexblock 9
\ MANIPULATE SYSTEM POINTERS 29JAN85BP) \ MANIPULATE SYSTEM POINTERS 29JAN85BP) cas 02aug2020
CODE SP@ ( -- ADDR) CODE SP@ ( -- ADDR)
SP LDA N STA SP 1+ LDA N 1+ STA SP LDA N STA SP 1+ LDA N 1+ STA
@ -628,12 +628,12 @@ CODE U< ( U1 U2 -- FLAG)
\ *** Block No. 33, Hexblock 21 \ *** Block No. 33, Hexblock 21
\ COMPARISION WORDS 24DEC83KS) \ COMPARISION WORDS 24DEC83KS) cas 02aug2020
| : 0< 8000 AND 0<> ; | : 0< 8000 AND 0<> ;
: > ( N1 N2 -- FLAG) SWAP < ; : > ( N1 N2 -- FLAG) SWAP < ;
: 0> ( N -- FLAG) NEGATE 0< ; : 0> ( N -- FLAG) DUP 0< SWAP 0= OR NOT ;
: 0<> ( N -- FLAG) 0= NOT ; : 0<> ( N -- FLAG) 0= NOT ;
: U> ( U1 U2 -- FLAG) SWAP U< ; : U> ( U1 U2 -- FLAG) SWAP U< ;
: = ( N1 N2 -- FLAG) - 0= ; : = ( N1 N2 -- FLAG) - 0= ;
@ -2300,7 +2300,7 @@ HOST TARGET
\ *** Block No. 121, Hexblock 79 \ *** Block No. 121, Hexblock 79
\ 'COLD 07JUN85BP) cas 15juli2020 \ 'COLD 07JUN85BP) cas 02aug2020
| : INIT-VOCABULARYS VOC-LINK @ | : INIT-VOCABULARYS VOC-LINK @
BEGIN DUP 2- @ OVER 4 - ! @ ?DUP 0= UNTIL ; BEGIN DUP 2- @ OVER 4 - ! @ ?DUP 0= UNTIL ;
@ -2309,7 +2309,7 @@ HOST TARGET
DEFER 'COLD ' NOOP IS 'COLD DEFER 'COLD ' NOOP IS 'COLD
| : (COLD INIT-VOCABULARYS INIT-BUFFERS PAGE 'COLD ONLYFORTH | : (COLD INIT-VOCABULARYS INIT-BUFFERS PAGE 'COLD ONLYFORTH
." volksFORTH-83 3.8 py65 202007" CR RESTART ; -2 ALLOT ." volksFORTH-83 3.8.1 py65 202008" CR RESTART ; -2 ALLOT
DEFER 'RESTART ' NOOP IS 'RESTART DEFER 'RESTART ' NOOP IS 'RESTART
| : (RESTART ['] (QUIT IS 'QUIT | : (RESTART ['] (QUIT IS 'QUIT

BIN
6502/py65/vfpy65.bin
View File

Binary file not shown.