This page (revision-6) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann 

This page was created on 24-Apr-2010 20:31 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
6 03-Feb-2023 15:21 5 KB Carsten Strotmann to previous
5 24-Apr-2010 20:38 5 KB Carsten Strotmann to previous | to last
4 24-Apr-2010 20:37 5 KB Carsten Strotmann to previous | to last
3 24-Apr-2010 20:37 5 KB Carsten Strotmann to previous | to last
2 24-Apr-2010 20:31 1 KB Carsten Strotmann to previous | to last
1 24-Apr-2010 20:31 2 KB Carsten Strotmann to last

Page References

Incoming links Outgoing links
Mini-OOF
Mini-OOF

Version management

Difference between version and

At line 40 added one line
}}}
At line 42 added 2 lines
!! Mini-OOF Example
{{{
At line 114 removed one line
\ String Ext.
At line 116 removed 42 lines
CR .( loading String extensions )
: S" ASCII " PARSE
HERE 2DUP ! 1+
OVER 1+ ALLOT
2DUP 4 ROLL SWAP ROT
1+ MOVE SWAP ;
CR .( String extensions loaded )
\ 2! 2@ 2variable 2constant
cr .( Loading 2words ...)
\needs code INCLUDE" D:TAS65.F"
code 2! ( d addr -- )
tya setup jsr 3 # ldy
[[ sp )y lda n )y sta dey 0< ?]
1 # ldy poptwo jmp end-code
code 2@ ( addr -- d )
sp x) lda n sta sp )y lda n 1+ sta
sp 2dec 3 # ldy
[[ n )y lda sp )y sta dey 0< ?]
xyNext jmp end-code
: 2VARIABLE ( -- )
create 4 allot ;
: 2CONSTANT ( d -- )
CREATE , , DOES> ( -- d ) 2@ ;
\ 2dup exists
\ 2swap exists
\ 2drop exists
cr .( 2Words loaded. )
This page (revision-6) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann  Top