izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 13:18:05 +11:00
Code Issues Releases Wiki Activity

Rename A!, A@ and A, to C!*, C@* and C,*

Browse Source 
Also, rename "Addressed devices" to "Indirect memory access".

I do this because I need to add indirect versions of !, @ and ,
to allow boostrapping directly to EEPROM and that A,, thing I've
added to assemblers felt like really bad names.

With this change, I'd like to generalize the use of the * suffix
for aliases.
This commit is contained in:
Virgil Dupras 2020-12-07 19:06:58 -05:00
parent c5bf0ade1b
commit e5a983ab7f
12 changed files with 137 additions and 131 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arch/z80/sms/xcomp.fs
View File

@ -13,7 +13,7 @@ SYSVARS 0x73 + CONSTANT CPORT_MEM
0xdd CONSTANT CPORT_D2 0xdd CONSTANT CPORT_D2
SYSVARS 0x74 + CONSTANT PAD_MEM SYSVARS 0x74 + CONSTANT PAD_MEM
5 LOAD ( z80 assembler ) 5 LOAD ( z80 assembler )
: ZFILL, ( u ) 0 DO 0 A, LOOP ; : ZFILL, ( u ) 0 DO 0 C,* LOOP ;
262 LOAD ( xcomp ) 262 LOAD ( xcomp )
524 LOAD ( font compiler ) 524 LOAD ( font compiler )
165 LOAD ( Sega ROM signer ) 165 LOAD ( Sega ROM signer )

2
arch/z80/sms/xcompkbd.fs
View File

@ -14,7 +14,7 @@ SYSVARS 0x73 + CONSTANT CPORT_MEM
0xdd CONSTANT CPORT_D2 0xdd CONSTANT CPORT_D2
SYSVARS 0x74 + CONSTANT PS2_MEM SYSVARS 0x74 + CONSTANT PS2_MEM
5 LOAD ( z80 assembler ) 5 LOAD ( z80 assembler )
: ZFILL, ( u ) 0 DO 0 A, LOOP ; : ZFILL, ( u ) 0 DO 0 C,* LOOP ;
262 LOAD ( xcomp ) 262 LOAD ( xcomp )
524 LOAD ( font compiler ) 524 LOAD ( font compiler )
165 LOAD ( Sega ROM signer ) 165 LOAD ( Sega ROM signer )

2
arch/z80/sms/xcompsdc.fs
View File

@ -15,7 +15,7 @@ SYSVARS 0x73 + CONSTANT CPORT_MEM
0xdd CONSTANT CPORT_D2 0xdd CONSTANT CPORT_D2
SYSVARS 0x74 + CONSTANT PS2_MEM SYSVARS 0x74 + CONSTANT PS2_MEM
5 LOAD ( z80 assembler ) 5 LOAD ( z80 assembler )
: ZFILL, ( u ) 0 DO 0 A, LOOP ; : ZFILL, ( u ) 0 DO 0 C,* LOOP ;
262 LOAD ( xcomp ) 262 LOAD ( xcomp )
524 LOAD ( font compiler ) 524 LOAD ( font compiler )
165 LOAD ( Sega ROM signer ) 165 LOAD ( Sega ROM signer )

2
arch/z80/sms/xcomptextmode.fs
View File

@ -15,7 +15,7 @@ SYSVARS 0x73 + CONSTANT CPORT_MEM
0xdd CONSTANT CPORT_D2 0xdd CONSTANT CPORT_D2
SYSVARS 0x74 + CONSTANT PS2_MEM SYSVARS 0x74 + CONSTANT PS2_MEM
5 LOAD ( z80 assembler ) 5 LOAD ( z80 assembler )
: ZFILL, ( u ) 0 DO 0 A, LOOP ; : ZFILL, ( u ) 0 DO 0 C,* LOOP ;
262 LOAD ( xcomp ) 262 LOAD ( xcomp )
523 LOAD ( font compiler ) 523 LOAD ( font compiler )
165 LOAD ( Sega ROM signer ) 165 LOAD ( Sega ROM signer )

190
blk.fs
View File

@ -58,19 +58,19 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
256 /MOD SWAP 256 /MOD SWAP
; ;
: PC H@ ORG @ - BIN( @ + ; : PC H@ ORG @ - BIN( @ + ;
( A, spits an assembled byte, A,, spits an assembled word ( C,* spits an assembled byte, A,, spits an assembled word
Both increase PC. ) Both increase PC. )
: A,, SPLITB A, A, ; : A,, SPLITB C,* C,* ;
: <<3 3 LSHIFT ; : <<4 4 LSHIFT ; : <<3 3 LSHIFT ; : <<4 4 LSHIFT ;
( As a general rule, IX and IY are equivalent to spitting an ( As a general rule, IX and IY are equivalent to spitting an
extra 0xdd / 0xfd and then spit the equivalent of HL ) extra 0xdd / 0xfd and then spit the equivalent of HL )
: IX 0xdd A, HL ; : IY 0xfd A, HL ; : IX 0xdd C,* HL ; : IY 0xfd C,* HL ;
: _ix+- 0xff AND 0xdd A, (HL) ; : _ix+- 0xff AND 0xdd C,* (HL) ;
: _iy+- 0xff AND 0xfd A, (HL) ; : _iy+- 0xff AND 0xfd C,* (HL) ;
: IX+ _ix+- ; : IX- 0 -^ _ix+- ; : IX+ _ix+- ; : IX- 0 -^ _ix+- ;
: IY+ _iy+- ; : IY- 0 -^ _iy+- ; : IY+ _iy+- ; : IY- 0 -^ _iy+- ;
( ----- 008 ) ( ----- 008 )
: OP1 CREATE C, DOES> C@ A, ; : OP1 CREATE C, DOES> C@ C,* ;
0xf3 OP1 DI, 0xfb OP1 EI, 0xf3 OP1 DI, 0xfb OP1 EI,
0xeb OP1 EXDEHL, 0xd9 OP1 EXX, 0xeb OP1 EXDEHL, 0xd9 OP1 EXX,
0x08 OP1 EXAFAF', 0xe3 OP1 EX(SP)HL, 0x08 OP1 EXAFAF', 0xe3 OP1 EX(SP)HL,
@ -99,22 +99,22 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
C@ ( r op ) C@ ( r op )
SWAP ( op r ) SWAP ( op r )
<<3 ( op r<<3 ) <<3 ( op r<<3 )
OR A, OR C,*
; ;
0x04 OP1r INCr, 0x05 OP1r DECr, 0x04 OP1r INCr, 0x05 OP1r DECr,
: INC(IXY+), INCr, A, ; : INC(IXY+), INCr, C,* ;
: DEC(IXY+), DECr, A, ; : DEC(IXY+), DECr, C,* ;
( also works for c ) ( also works for c )
0xc0 OP1r RETc, 0xc0 OP1r RETc,
( ----- 011 ) ( ----- 011 )
: OP1r0 ( r -- ) : OP1r0 ( r -- )
CREATE C, DOES> CREATE C, DOES>
C@ ( r op ) OR A, ; C@ ( r op ) OR C,* ;
0x80 OP1r0 ADDr, 0x88 OP1r0 ADCr, 0x80 OP1r0 ADDr, 0x88 OP1r0 ADCr,
0xa0 OP1r0 ANDr, 0xb8 OP1r0 CPr, 0xa0 OP1r0 ANDr, 0xb8 OP1r0 CPr,
0xb0 OP1r0 ORr, 0x90 OP1r0 SUBr, 0xb0 OP1r0 ORr, 0x90 OP1r0 SUBr,
0x98 OP1r0 SBCr, 0xa8 OP1r0 XORr, 0x98 OP1r0 SBCr, 0xa8 OP1r0 XORr,
: CP(IXY+), CPr, A, ; : CP(IXY+), CPr, C,* ;
( ----- 012 ) ( ----- 012 )
: OP1d : OP1d
CREATE C, CREATE C,
@ -122,20 +122,20 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
C@ ( d op ) C@ ( d op )
SWAP ( op d ) SWAP ( op d )
<<4 ( op d<<4 ) <<4 ( op d<<4 )
OR A, OR C,*
; ;
0xc5 OP1d PUSH, 0xc1 OP1d POP, 0xc5 OP1d PUSH, 0xc1 OP1d POP,
0x03 OP1d INCd, 0x0b OP1d DECd, 0x03 OP1d INCd, 0x0b OP1d DECd,
0x09 OP1d ADDHLd, 0x09 OP1d ADDHLd,
: ADDIXd, 0xdd A, ADDHLd, ; : ADDIXIX, HL ADDIXd, ; : ADDIXd, 0xdd C,* ADDHLd, ; : ADDIXIX, HL ADDIXd, ;
: ADDIYd, 0xfd A, ADDHLd, ; : ADDIYIY, HL ADDIYd, ; : ADDIYd, 0xfd C,* ADDHLd, ; : ADDIYIY, HL ADDIYd, ;
( ----- 013 ) ( ----- 013 )
: _1rr : _1rr
C@ ( rd rr op ) C@ ( rd rr op )
ROT ( rr op rd ) ROT ( rr op rd )
<<3 ( rr op rd<<3 ) <<3 ( rr op rd<<3 )
OR OR A, OR OR C,*
; ;
( rd rr ) ( rd rr )
@ -150,7 +150,7 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
: LDIXYr, : LDIXYr,
( dd/fd has already been spit ) ( dd/fd has already been spit )
LDrr, ( ixy+- ) LDrr, ( ixy+- )
A, C,*
; ;
( rd ixy+- HL ) ( rd ixy+- HL )
@ -160,7 +160,7 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
LDIXYr, LDIXYr,
; ;
( ----- 015 ) ( ----- 015 )
: OP2 CREATE , DOES> @ 256 /MOD A, A, ; : OP2 CREATE , DOES> @ 256 /MOD C,* C,* ;
0xeda1 OP2 CPI, 0xedb1 OP2 CPIR, 0xeda1 OP2 CPI, 0xedb1 OP2 CPIR,
0xeda9 OP2 CPD, 0xedb9 OP2 CPDR, 0xeda9 OP2 CPD, 0xedb9 OP2 CPDR,
0xed46 OP2 IM0, 0xed56 OP2 IM1, 0xed46 OP2 IM0, 0xed56 OP2 IM1,
@ -173,7 +173,7 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
: OP2i ( i -- ) : OP2i ( i -- )
CREATE C, CREATE C,
DOES> DOES>
C@ A, A, C@ C,* C,*
; ;
0xd3 OP2i OUTiA, 0xd3 OP2i OUTiA,
0xdb OP2i INAi, 0xdb OP2i INAi,
@ -190,7 +190,7 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
C@ ( r i op ) C@ ( r i op )
ROT ( i op r ) ROT ( i op r )
<<3 ( i op r<<3 ) <<3 ( i op r<<3 )
OR A, A, OR C,* C,*
; ;
0x06 OP2ri LDri, 0x06 OP2ri LDri,
( ----- 018 ) ( ----- 018 )
@ -198,11 +198,11 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
: OP2br : OP2br
CREATE C, CREATE C,
DOES> DOES>
0xcb A, 0xcb C,*
C@ ( b r op ) C@ ( b r op )
ROT ( r op b ) ROT ( r op b )
<<3 ( r op b<<3 ) <<3 ( r op b<<3 )
OR OR A, OR OR C,*
; ;
0xc0 OP2br SET, 0xc0 OP2br SET,
0x80 OP2br RES, 0x80 OP2br RES,
@ -212,9 +212,9 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
: OProt ( r -- ) : OProt ( r -- )
CREATE C, CREATE C,
DOES> DOES>
0xcb A, 0xcb C,*
C@ ( r op ) C@ ( r op )
OR A, OR C,*
; ;
0x10 OProt RL, 0x10 OProt RL,
0x00 OProt RLC, 0x00 OProt RLC,
@ -230,9 +230,9 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
CREATE , CREATE ,
DOES> DOES>
@ SPLITB SWAP ( r lsb msb ) @ SPLITB SWAP ( r lsb msb )
A, ( r lsb ) C,* ( r lsb )
SWAP <<3 ( lsb r<<3 ) SWAP <<3 ( lsb r<<3 )
OR A, OR C,*
; ;
0xed41 OP2r OUT(C)r, 0xed41 OP2r OUT(C)r,
0xed40 OP2r INr(C), 0xed40 OP2r INr(C),
@ -240,10 +240,10 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
: OP2d ( d -- ) : OP2d ( d -- )
CREATE C, CREATE C,
DOES> DOES>
0xed A, 0xed C,*
C@ SWAP ( op d ) C@ SWAP ( op d )
<<4 ( op d<< 4 ) <<4 ( op d<< 4 )
OR A, OR C,*
; ;
0x4a OP2d ADCHLd, 0x4a OP2d ADCHLd,
0x42 OP2d SBCHLd, 0x42 OP2d SBCHLd,
@ -255,7 +255,7 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
C@ ( d n op ) C@ ( d n op )
ROT ( n op d ) ROT ( n op d )
<<4 ( n op d<<4 ) <<4 ( n op d<<4 )
OR A, OR C,*
A,, A,,
; ;
0x01 OP3di LDdi, 0x01 OP3di LDdi,
@ -264,7 +264,7 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
: OP3i : OP3i
CREATE C, CREATE C,
DOES> DOES>
C@ A, C@ C,*
A,, A,,
; ;
0xcd OP3i CALL, 0xcd OP3i CALL,
@ -273,21 +273,21 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
0x32 OP3i LD(i)A, 0x3a OP3i LDA(i), 0x32 OP3i LD(i)A, 0x3a OP3i LDA(i),
( ----- 024 ) ( ----- 024 )
: LDd(i), ( d i -- ) : LDd(i), ( d i -- )
0xed A, 0xed C,*
SWAP <<4 0x4b OR A, SWAP <<4 0x4b OR C,*
A,, A,,
; ;
: LD(i)d, ( i d -- ) : LD(i)d, ( i d -- )
0xed A, 0xed C,*
<<4 0x43 OR A, <<4 0x43 OR C,*
A,, A,,
; ;
: RST, 0xc7 OR A, ; : RST, 0xc7 OR C,* ;
: JP(IX), IX DROP JP(HL), ; : JP(IX), IX DROP JP(HL), ;
: JP(IY), IY DROP JP(HL), ; : JP(IY), IY DROP JP(HL), ;
( ----- 025 ) ( ----- 025 )
: JPc, SWAP <<3 0xc2 OR A, A,, ; : JPc, SWAP <<3 0xc2 OR C,* A,, ;
: BCALL, BIN( @ + CALL, ; : BCALL, BIN( @ + CALL, ;
: BJP, BIN( @ + JP, ; : BJP, BIN( @ + JP, ;
: BJPc, BIN( @ + JPc, ; : BJPc, BIN( @ + JPc, ;
@ -305,7 +305,7 @@ CREATE lblnext 0 , ( stable ABI until set in B300 )
: BEGIN, PC ; : BEGIN, PC ;
: BSET PC SWAP ! ; : BSET PC SWAP ! ;
( same as BSET, but we need to write a placeholder ) ( same as BSET, but we need to write a placeholder )
: FJR, PC 0 A, ; : FJR, PC 0 C,* ;
: IFZ, JRNZ, FJR, ; : IFZ, JRNZ, FJR, ;
: IFNZ, JRZ, FJR, ; : IFNZ, JRZ, FJR, ;
: IFC, JRNC, FJR, ; : IFC, JRNC, FJR, ;
@ -315,15 +315,15 @@ CREATE lblnext 0 , ( stable ABI until set in B300 )
-^ 1- ( l off ) -^ 1- ( l off )
( warning: l is a PC offset, not a mem addr! ) ( warning: l is a PC offset, not a mem addr! )
SWAP ORG @ + BIN( @ - ( off addr ) SWAP ORG @ + BIN( @ - ( off addr )
A! ; C!* ;
( ----- 027 ) ( ----- 027 )
: FWR BSET 0 A, ; : FWR BSET 0 C,* ;
: FSET @ THEN, ; : FSET @ THEN, ;
: BREAK, FJR, 0x8000 OR ; : BREAK, FJR, 0x8000 OR ;
: BREAK?, DUP 0x8000 AND IF : BREAK?, DUP 0x8000 AND IF
0x7fff AND 1 ALLOT THEN, -1 ALLOT 0x7fff AND 1 ALLOT THEN, -1 ALLOT
THEN ; THEN ;
: AGAIN, BREAK?, PC - 1- A, ; : AGAIN, BREAK?, PC - 1- C,* ;
: BWR @ AGAIN, ; : BWR @ AGAIN, ;
( ----- 028 ) ( ----- 028 )
( Macros ) ( Macros )
@ -359,9 +359,9 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
256 /MOD SWAP 256 /MOD SWAP
; ;
: PC H@ ORG @ - BIN( @ + ; : PC H@ ORG @ - BIN( @ + ;
: A,, SPLITB A, A, ; : A,, SPLITB C,* C,* ;
( ----- 033 ) ( ----- 033 )
: OP1 CREATE C, DOES> C@ A, ; : OP1 CREATE C, DOES> C@ C,* ;
0xc3 OP1 RET, 0xfa OP1 CLI, 0xfb OP1 STI, 0xc3 OP1 RET, 0xfa OP1 CLI, 0xfb OP1 STI,
0xf4 OP1 HLT, 0xfc OP1 CLD, 0xfd OP1 STD, 0xf4 OP1 HLT, 0xfc OP1 CLD, 0xfd OP1 STD,
0x90 OP1 NOP, 0x98 OP1 CBW, 0x90 OP1 NOP, 0x98 OP1 CBW,
@ -374,12 +374,12 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
0x75 OP1 JNZ, 0x72 OP1 JC, 0x73 OP1 JNC, 0x75 OP1 JNZ, 0x72 OP1 JC, 0x73 OP1 JNC,
0xe8 OP1 CALL, 0xe8 OP1 CALL,
: OP1r CREATE C, DOES> C@ + A, ; : OP1r CREATE C, DOES> C@ + C,* ;
0x40 OP1r INCx, 0x48 OP1r DECx, 0x40 OP1r INCx, 0x48 OP1r DECx,
0x58 OP1r POPx, 0x50 OP1r PUSHx, 0x58 OP1r POPx, 0x50 OP1r PUSHx,
( ----- 034 ) ( ----- 034 )
: OPr0 ( reg op ) CREATE C, C, DOES> : OPr0 ( reg op ) CREATE C, C, DOES>
C@+ A, C@ <<3 OR 0xc0 OR A, ; C@+ C,* C@ <<3 OR 0xc0 OR C,* ;
0 0xd0 OPr0 ROLr1, 0 0xd1 OPr0 ROLx1, 4 0xf6 OPr0 MULr, 0 0xd0 OPr0 ROLr1, 0 0xd1 OPr0 ROLx1, 4 0xf6 OPr0 MULr,
1 0xd0 OPr0 RORr1, 1 0xd1 OPr0 RORx1, 4 0xf7 OPr0 MULx, 1 0xd0 OPr0 RORr1, 1 0xd1 OPr0 RORx1, 4 0xf7 OPr0 MULx,
4 0xd0 OPr0 SHLr1, 4 0xd1 OPr0 SHLx1, 6 0xf6 OPr0 DIVr, 4 0xd0 OPr0 SHLr1, 4 0xd1 OPr0 SHLx1, 6 0xf6 OPr0 DIVr,
@ -389,65 +389,65 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
4 0xd2 OPr0 SHLrCL, 4 0xd3 OPr0 SHLxCL, 4 0xd2 OPr0 SHLrCL, 4 0xd3 OPr0 SHLxCL,
5 0xd2 OPr0 SHRrCL, 5 0xd3 OPr0 SHRxCL, 5 0xd2 OPr0 SHRrCL, 5 0xd3 OPr0 SHRxCL,
( ----- 035 ) ( ----- 035 )
: OPrr CREATE C, DOES> C@ A, <<3 OR 0xc0 OR A, ; : OPrr CREATE C, DOES> C@ C,* <<3 OR 0xc0 OR C,* ;
0x31 OPrr XORxx, 0x30 OPrr XORrr, 0x31 OPrr XORxx, 0x30 OPrr XORrr,
0x88 OPrr MOVrr, 0x89 OPrr MOVxx, 0x28 OPrr SUBrr, 0x88 OPrr MOVrr, 0x89 OPrr MOVxx, 0x28 OPrr SUBrr,
0x29 OPrr SUBxx, 0x08 OPrr ORrr, 0x09 OPrr ORxx, 0x29 OPrr SUBxx, 0x08 OPrr ORrr, 0x09 OPrr ORxx,
0x38 OPrr CMPrr, 0x39 OPrr CMPxx, 0x00 OPrr ADDrr, 0x38 OPrr CMPrr, 0x39 OPrr CMPxx, 0x00 OPrr ADDrr,
0x01 OPrr ADDxx, 0x20 OPrr ANDrr, 0x21 OPrr ANDxx, 0x01 OPrr ADDxx, 0x20 OPrr ANDrr, 0x21 OPrr ANDxx,
( ----- 036 ) ( ----- 036 )
: OPm ( modrm op ) CREATE C, C, DOES> C@+ A, C@ OR A, ; : OPm ( modrm op ) CREATE C, C, DOES> C@+ C,* C@ OR C,* ;
0 0xff OPm INC[w], 0 0xfe OPm INC[b], 0 0xff OPm INC[w], 0 0xfe OPm INC[b],
0x8 0xff OPm DEC[w], 0x8 0xfe OPm DEC[b], 0x8 0xff OPm DEC[w], 0x8 0xfe OPm DEC[b],
0x30 0xff OPm PUSH[w], 0 0x8f OPm POP[w], 0x30 0xff OPm PUSH[w], 0 0x8f OPm POP[w],
: OPm+ ( modrm op ) CREATE C, C, DOES> : OPm+ ( modrm op ) CREATE C, C, DOES>
( m off ) C@+ A, C@ ROT OR A, A, ; ( m off ) C@+ C,* C@ ROT OR C,* C,* ;
0x40 0xff OPm+ INC[w]+, 0x40 0xfe OPm+ INC[b]+, 0x40 0xff OPm+ INC[w]+, 0x40 0xfe OPm+ INC[b]+,
0x48 0xff OPm+ DEC[w]+, 0x48 0xfe OPm+ DEC[b]+, 0x48 0xff OPm+ DEC[w]+, 0x48 0xfe OPm+ DEC[b]+,
0x70 0xff OPm+ PUSH[w]+, 0x40 0x8f OPm+ POP[w]+, 0x70 0xff OPm+ PUSH[w]+, 0x40 0x8f OPm+ POP[w]+,
( ----- 037 ) ( ----- 037 )
: OPrm CREATE C, DOES> C@ A, SWAP 3 LSHIFT OR A, ; : OPrm CREATE C, DOES> C@ C,* SWAP 3 LSHIFT OR C,* ;
0x8a OPrm MOVr[], 0x8b OPrm MOVx[], 0x8a OPrm MOVr[], 0x8b OPrm MOVx[],
0x3a OPrm CMPr[], 0x3b OPrm CMPx[], 0x3a OPrm CMPr[], 0x3b OPrm CMPx[],
: OPmr CREATE C, DOES> C@ A, 3 LSHIFT OR A, ; : OPmr CREATE C, DOES> C@ C,* 3 LSHIFT OR C,* ;
0x88 OPmr MOV[]r, 0x89 OPmr MOV[]x, 0x88 OPmr MOV[]r, 0x89 OPmr MOV[]x,
: OPrm+ ( r m off ) CREATE C, DOES> : OPrm+ ( r m off ) CREATE C, DOES>
C@ A, ROT 3 LSHIFT ROT OR 0x40 OR A, A, ; C@ C,* ROT 3 LSHIFT ROT OR 0x40 OR C,* C,* ;
0x8a OPrm+ MOVr[]+, 0x8b OPrm+ MOVx[]+, 0x8a OPrm+ MOVr[]+, 0x8b OPrm+ MOVx[]+,
0x3a OPrm+ CMPr[]+, 0x3b OPrm+ CMPx[]+, 0x3a OPrm+ CMPr[]+, 0x3b OPrm+ CMPx[]+,
: OPm+r ( m off r ) CREATE C, DOES> : OPm+r ( m off r ) CREATE C, DOES>
C@ A, 3 LSHIFT ROT OR 0x40 OR A, A, ; C@ C,* 3 LSHIFT ROT OR 0x40 OR C,* C,* ;
0x88 OPm+r MOV[]+r, 0x89 OPm+r MOV[]+x, 0x88 OPm+r MOV[]+r, 0x89 OPm+r MOV[]+x,
( ----- 038 ) ( ----- 038 )
: OPi CREATE C, DOES> C@ A, A, ; : OPi CREATE C, DOES> C@ C,* C,* ;
0x04 OPi ADDALi, 0x24 OPi ANDALi, 0x2c OPi SUBALi, 0x04 OPi ADDALi, 0x24 OPi ANDALi, 0x2c OPi SUBALi,
0xcd OPi INT, 0xcd OPi INT,
: OPI CREATE C, DOES> C@ A, A,, ; : OPI CREATE C, DOES> C@ C,* A,, ;
0x05 OPI ADDAXI, 0x25 OPI ANDAXI, 0x2d OPI SUBAXI, 0x05 OPI ADDAXI, 0x25 OPI ANDAXI, 0x2d OPI SUBAXI,
( ----- 040 ) ( ----- 040 )
: MOVri, SWAP 0xb0 OR A, A, ; : MOVri, SWAP 0xb0 OR C,* C,* ;
: MOVxI, SWAP 0xb8 OR A, A,, ; : MOVxI, SWAP 0xb8 OR C,* A,, ;
: MOVsx, 0x8e A, SWAP <<3 OR 0xc0 OR A, ; : MOVsx, 0x8e C,* SWAP <<3 OR 0xc0 OR C,* ;
: MOVrm, 0x8a A, SWAP <<3 0x6 OR A, A,, ; : MOVrm, 0x8a C,* SWAP <<3 0x6 OR C,* A,, ;
: MOVxm, 0x8b A, SWAP <<3 0x6 OR A, A,, ; : MOVxm, 0x8b C,* SWAP <<3 0x6 OR C,* A,, ;
: MOVmr, 0x88 A, <<3 0x6 OR A, A,, ; : MOVmr, 0x88 C,* <<3 0x6 OR C,* A,, ;
: MOVmx, 0x89 A, <<3 0x6 OR A, A,, ; : MOVmx, 0x89 C,* <<3 0x6 OR C,* A,, ;
: PUSHs, <<3 0x06 OR A, ; : POPs, <<3 0x07 OR A, ; : PUSHs, <<3 0x06 OR C,* ; : POPs, <<3 0x07 OR C,* ;
: SUBxi, 0x83 A, SWAP 0xe8 OR A, A, ; : SUBxi, 0x83 C,* SWAP 0xe8 OR C,* C,* ;
: ADDxi, 0x83 A, SWAP 0xc0 OR A, A, ; : ADDxi, 0x83 C,* SWAP 0xc0 OR C,* C,* ;
: JMPr, 0xff A, 7 AND 0xe0 OR A, ; : JMPr, 0xff C,* 7 AND 0xe0 OR C,* ;
: JMPf, ( seg off ) 0xea A, SPLITB A, A, A,, ; : JMPf, ( seg off ) 0xea C,* SPLITB C,* C,* A,, ;
( ----- 041 ) ( ----- 041 )
( Place BEGIN, where you want to jump back and AGAIN after ( Place BEGIN, where you want to jump back and AGAIN after
a relative jump operator. Just like BSET and BWR. ) a relative jump operator. Just like BSET and BWR. )
: BEGIN, PC ; : BEGIN, PC ;
: BSET PC SWAP ! ; : BSET PC SWAP ! ;
( same as BSET, but we need to write a placeholder ) ( same as BSET, but we need to write a placeholder )
: FJR, PC 0 A, ; : FJR, PC 0 C,* ;
: IFZ, JNZ, FJR, ; : IFZ, JNZ, FJR, ;
: IFNZ, JZ, FJR, ; : IFNZ, JZ, FJR, ;
: IFC, JNC, FJR, ; : IFC, JNC, FJR, ;
@ -457,12 +457,12 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
-^ 1- ( l off ) -^ 1- ( l off )
( warning: l is a PC offset, not a mem addr! ) ( warning: l is a PC offset, not a mem addr! )
SWAP ORG @ + BIN( @ - ( off addr ) SWAP ORG @ + BIN( @ - ( off addr )
A! ; C!* ;
( ----- 042 ) ( ----- 042 )
: FWRs BSET 0 A, ; : FWRs BSET 0 C,* ;
: FSET @ THEN, ; : FSET @ THEN, ;
( TODO: add BREAK, ) ( TODO: add BREAK, )
: RPCs, PC - 1- DUP 128 + 0xff > IF ABORT" PC ovfl" THEN A, ; : RPCs, PC - 1- DUP 128 + 0xff > IF ABORT" PC ovfl" THEN C,* ;
: RPCn, PC - 2- A,, ; : RPCn, PC - 2- A,, ;
: AGAIN, ( BREAK?, ) RPCs, ; : AGAIN, ( BREAK?, ) RPCs, ;
( Use RPCx with appropriate JMP/CALL op. Example: ( Use RPCx with appropriate JMP/CALL op. Example:
@ -485,9 +485,9 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
; ;
( We divide by 2 because each PC represents a word. ) ( We divide by 2 because each PC represents a word. )
: PC H@ ORG @ - 1 RSHIFT ; : PC H@ ORG @ - 1 RSHIFT ;
( A, spits an assembled byte, A,, spits an assembled word ( C,* spits an assembled byte, A,, spits an assembled word
Both increase PC. ) Both increase PC. )
: A,, SPLITB A, A, ; : A,, SPLITB C,* C,* ;
( ----- 052 ) ( ----- 052 )
: _oor ." arg out of range: " .X SPC ." PC: " PC .X NL ABORT ; : _oor ." arg out of range: " .X SPC ." PC: " PC .X NL ABORT ;
: _r8c DUP 7 > IF _oor THEN ; : _r8c DUP 7 > IF _oor THEN ;
@ -527,14 +527,14 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
( 0000 KKKK dddd KKKK ) ( 0000 KKKK dddd KKKK )
: OPRdK CREATE C, DOES> C@ ( rd K op ) : OPRdK CREATE C, DOES> C@ ( rd K op )
OVER _r256c 0xf0 AND 4 RSHIFT OR ( rd K op' ) OVER _r256c 0xf0 AND 4 RSHIFT OR ( rd K op' )
ROT _r16+c 4 LSHIFT ROT 0x0f AND OR ( op' rdK ) A, A, ; ROT _r16+c 4 LSHIFT ROT 0x0f AND OR ( op' rdK ) C,* C,* ;
0x70 OPRdK ANDI, 0x30 OPRdK CPI, 0xe0 OPRdK LDI, 0x70 OPRdK ANDI, 0x30 OPRdK CPI, 0xe0 OPRdK LDI,
0x60 OPRdK ORI, 0x40 OPRdK SBCI, 0x60 OPRdK SBR, 0x60 OPRdK ORI, 0x40 OPRdK SBCI, 0x60 OPRdK SBR,
0x50 OPRdK SUBI, 0x50 OPRdK SUBI,
( 0000 0000 AAAA Abbb ) ( 0000 0000 AAAA Abbb )
: OPAb CREATE C, DOES> C@ ( A b op ) : OPAb CREATE C, DOES> C@ ( A b op )
ROT _r32c 3 LSHIFT ROT _r8c OR A, A, ; ROT _r32c 3 LSHIFT ROT _r8c OR C,* C,* ;
0x98 OPAb CBI, 0x9a OPAb SBI, 0x99 OPAb SBIC, 0x98 OPAb CBI, 0x9a OPAb SBI, 0x99 OPAb SBIC,
0x9b OPAb SBIS, 0x9b OPAb SBIS,
( ----- 056 ) ( ----- 056 )
@ -594,7 +594,7 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
: LBL! ( l -- ) PC SWAP ! ; : LBL! ( l -- ) PC SWAP ! ;
: LBL, ( l op -- ) SWAP @ 1- SWAP EXECUTE A,, ; : LBL, ( l op -- ) SWAP @ 1- SWAP EXECUTE A,, ;
: SKIP, PC 0 A,, ; : SKIP, PC 0 A,, ;
: TO, ( opw pc ) ( TODO: use A! instead of ! ) : TO, ( opw pc ) ( TODO: use !* instead of ! )
( warning: pc is a PC offset, not a mem addr! ) ( warning: pc is a PC offset, not a mem addr! )
2 * ORG @ + PC 1- H@ ( opw addr tgt hbkp ) 2 * ORG @ + PC 1- H@ ( opw addr tgt hbkp )
ROT HERE ! ( opw tgt hbkp ) SWAP ROT EXECUTE H@ ! ( hbkp ) ROT HERE ! ( opw tgt hbkp ) SWAP ROT EXECUTE H@ ! ( hbkp )
@ -956,16 +956,16 @@ VARIABLE aspprevx
0xc0 ( b msb lsb 0xc0 ) _cmd DROP asprdy ; 0xc0 ( b msb lsb 0xc0 ) _cmd DROP asprdy ;
( ----- 165 ) ( ----- 165 )
( Sega ROM signer. See doc/sega.txt ) ( Sega ROM signer. See doc/sega.txt )
: A!+^ ( a c -- a+1 ) OVER A! 1+ ; : C!*+^ ( a c -- a+1 ) OVER C!* 1+ ;
: segasig ( addr size -- ) : segasig ( addr size -- )
0x2000 OVER LSHIFT ( a sz bytesz ) 0x2000 OVER LSHIFT ( a sz bytesz )
ROT TUCK + 0x10 - ( sz a end ) ROT TUCK + 0x10 - ( sz a end )
TUCK SWAP 0 ROT> ( sz end sum end a ) DO ( sz end sum ) TUCK SWAP 0 ROT> ( sz end sum end a ) DO ( sz end sum )
I A@ + LOOP ( sz end sum ) SWAP ( sz sum end ) I C@* + LOOP ( sz end sum ) SWAP ( sz sum end )
'T' A!+^ 'M' A!+^ 'R' A!+^ 0x20 A!+^ 'S' A!+^ 'E' A!+^ 'T' C!*+^ 'M' C!*+^ 'R' C!*+^ 0x20 C!*+^ 'S' C!*+^
'G' A!+^ 'A' A!+^ 0 A!+^ 0 A!+^ 'E' C!*+^ 'G' C!*+^ 'A' C!*+^ 0 C!*+^ 0 C!*+^
( sum's LSB ) OVER A!+^ ( MSB ) SWAP 8 RSHIFT OVER A! 1+ ( sum's LSB ) OVER C!*+^ ( MSB ) SWAP 8 RSHIFT OVER C!* 1+
( sz end ) 0 A!+^ 0 A!+^ 0 A!+^ SWAP 0x4a + SWAP A! ; ( sz end ) 0 C!*+^ 0 C!*+^ 0 C!*+^ SWAP 0x4a + SWAP C!* ;
( ----- 260 ) ( ----- 260 )
Cross compilation program Cross compilation program
@ -1079,9 +1079,9 @@ NOP, NOP, NOP, NOP, NOP, NOP, ( unused )
0 JP, ( RST 10 ) NOP, NOP, ( 13, oflw ) 0 JP, ( RST 10 ) NOP, NOP, ( 13, oflw )
NOP, NOP, NOP, NOP, NOP, ( unused ) NOP, NOP, NOP, NOP, NOP, ( unused )
0 JP, ( 1a, next ) NOP, NOP, NOP, ( unused ) 0 JP, ( 1a, next ) NOP, NOP, NOP, ( unused )
0 JP, ( RST 20 ) 0 A, 0 A, 0 A, 0 A, 0 A, ( unused ) 0 JP, ( RST 20 ) 0 C,* 0 C,* 0 C,* 0 C,* 0 C,* ( unused )
0 JP, ( RST 28 ) 0 A, 0 A, 0 A, 0 A, 0 A, ( unused ) 0 JP, ( RST 28 ) 0 C,* 0 C,* 0 C,* 0 C,* 0 C,* ( unused )
0 JP, ( RST 30 ) 0 A, 0 A, 0 A, 0 A, 0 A, ( unused ) 0 JP, ( RST 30 ) 0 C,* 0 C,* 0 C,* 0 C,* 0 C,* ( unused )
0 JP, ( RST 38 ) 0 JP, ( RST 38 )
( ----- 284 ) ( ----- 284 )
PC ORG @ 1 + ! ( main ) PC ORG @ 1 + ! ( main )
@ -1746,9 +1746,9 @@ with "390 LOAD"
DUP I C! DUP I C!
LOOP DROP ; LOOP DROP ;
: ALLOT0 ( n -- ) H@ OVER 0 FILL ALLOT ; : ALLOT0 ( n -- ) H@ OVER 0 FILL ALLOT ;
SYSVARS 0x3e + :** A@ SYSVARS 0x3e + :** C@*
SYSVARS 0x40 + :** A! SYSVARS 0x40 + :** C!*
SYSVARS 0x42 + :** A, SYSVARS 0x42 + :** C,*
( ----- 356 ) ( ----- 356 )
SYSVARS 0x53 + :** EMIT SYSVARS 0x53 + :** EMIT
: STYPE C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ; : STYPE C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ;
@ -1881,23 +1881,23 @@ SYSVARS 0x0c + :** C<*
( ----- 367 ) ( ----- 367 )
: MOVE ( a1 a2 u -- ) : MOVE ( a1 a2 u -- )
?DUP IF ( u ) 0 DO ( a1 a2 ) ?DUP IF ( u ) 0 DO ( a1 a2 )
OVER I + A@ ( src dst x ) OVER I + C@* ( src dst x )
OVER I + ( src dst x dst ) OVER I + ( src dst x dst )
A! ( src dst ) C!* ( src dst )
LOOP THEN 2DROP ; LOOP THEN 2DROP ;
: MOVE- ( a1 a2 u -- ) : MOVE- ( a1 a2 u -- )
?DUP IF ( u ) 0 DO ( a1 a2 ) ?DUP IF ( u ) 0 DO ( a1 a2 )
OVER I' + I - 1- A@ ( src dst x ) OVER I' + I - 1- C@* ( src dst x )
OVER I' + I - 1- ( src dst x dst ) OVER I' + I - 1- ( src dst x dst )
A! ( src dst ) C!* ( src dst )
LOOP THEN 2DROP ; LOOP THEN 2DROP ;
: MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ; : MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;
( ----- 368 ) ( ----- 368 )
: MOVEW ( src dst u -- ) : MOVEW ( src dst u -- )
( u ) 0 DO ( u ) 0 DO
SWAP DUP I 1 LSHIFT + A@ ( dst src x ) SWAP DUP I 1 LSHIFT + C@* ( dst src x )
ROT TUCK I 1 LSHIFT + ( src dst x dst ) ROT TUCK I 1 LSHIFT + ( src dst x dst )
A! ( src dst ) C!* ( src dst )
LOOP 2DROP ; LOOP 2DROP ;
: PREV 3 - DUP @ - ; : PREV 3 - DUP @ - ;
: [entry] ( w -- ) : [entry] ( w -- )
@ -2143,7 +2143,7 @@ SYSVARS 0x55 + :** KEY
['] (emit) ['] EMIT **! ['] (key) ['] KEY **! ['] (emit) ['] EMIT **! ['] (key) ['] KEY **!
['] CRLF ['] NL **! ['] CRLF ['] NL **!
['] (boot<) ['] C<* **! ['] (boot<) ['] C<* **!
['] C@ ['] A@ **! ['] C! ['] A! **! ['] C, ['] A, **! ['] C@ ['] C@* **! ['] C! ['] C!* **! ['] C, ['] C,* **!
( boot< always has a char waiting. 06 == C<?* ) ( boot< always has a char waiting. 06 == C<?* )
1 0x06 RAM+ ! INTERPRET 1 0x06 RAM+ ! INTERPRET
RDLN$ LIT" _sys" [entry] RDLN$ LIT" _sys" [entry]
@ -2549,12 +2549,12 @@ Load range: B445-B461
( ----- 445 ) ( ----- 445 )
VARIABLE lblexec VARIABLE lblnext VARIABLE lblexec VARIABLE lblnext
H@ ORG ! H@ ORG !
JMPn, 0 A,, ( 00, main ) 0 A, ( 03, boot driveno ) JMPn, 0 A,, ( 00, main ) 0 C,* ( 03, boot driveno )
0 A,, ( 04, BOOT ) 0 A,, ( 04, BOOT )
0 A,, ( 06, uflw ) 0 A,, ( 08, LATEST ) 0 A,, ( unused ) 0 A,, ( 06, uflw ) 0 A,, ( 08, LATEST ) 0 A,, ( unused )
0 A, 0 A,, ( 0b, EXIT ) 0 C,* 0 A,, ( 0b, EXIT )
0 A,, 0 A,, ( unused ) 0 A,, ( 13, oflw ) 0 A,, 0 A,, ( unused ) 0 A,, ( 13, oflw )
0 A,, 0 A,, 0 A, ( unused ) 0 A,, 0 A,, 0 C,* ( unused )
JMPn, 0 A,, ( 1a, next ) JMPn, 0 A,, ( 1a, next )
( ----- 446 ) ( ----- 446 )
( TODO: move these words with other native words. ) ( TODO: move these words with other native words. )

BIN
cvm/stage.bin
View File

Binary file not shown.

4
doc/avr.txt
View File

@ -97,11 +97,11 @@ Example to write 0x1234 to the first byte of the first page:
asperase 0x1234 0 aspfb! 0 aspfp! asperase 0x1234 0 aspfb! 0 aspfp!
Please note that aspfb! deals with *words*, not bytes. If, for Please note that aspfb! deals with *words*, not bytes. If, for
example, you want to hook it to A!*, make sure you use MOVEW example, you want to hook it to C!*, make sure you use MOVEW
instead of MOVE. You will need to create a wrapper word around instead of MOVE. You will need to create a wrapper word around
aspfb! that divides dst addr by 2 because MOVEW use byte-based aspfb! that divides dst addr by 2 because MOVEW use byte-based
addresses but aspfb! uses word-based ones. You also have to make addresses but aspfb! uses word-based ones. You also have to make
sure that A@* points to @ (or another word-based fetcher) sure that C@* points to @ (or another word-based fetcher)
instead of its default value of C@. instead of its default value of C@.
# Access EEPROM # Access EEPROM

12
doc/dict.txt
View File

@ -52,8 +52,8 @@ $ - Initialize
literal. If not found, aborts. literal. If not found, aborts.
, n -- Write n in HERE and advance it. , n -- Write n in HERE and advance it.
ALLOT n -- Move HERE by n bytes ALLOT n -- Move HERE by n bytes
A, b -- Indirect C,
C, b -- Write byte b in HERE and advance it. C, b -- Write byte b in HERE and advance it.
C,* b -- Indirect C,
FIND w -- a f Like '?, but for w. FIND w -- a f Like '?, but for w.
EMPTY -- Rewind HERE and CURRENT where they were at EMPTY -- Rewind HERE and CURRENT where they were at
system initialization. system initialization.
@ -155,12 +155,12 @@ J -- n Copy RS third item to PS
! n a -- Store n in address a ! n a -- Store n in address a
? a -- Print value of addr a ? a -- Print value of addr a
+! n a -- Increase value of addr a by n +! n a -- Increase value of addr a by n
A@ a -- c Indirect C@
A! c a -- Indirect C!
C@ a -- c Set c to byte at address a C@ a -- c Set c to byte at address a
C@* a -- c Indirect C@
C@+ a -- a+1 c Fetch c from a and inc a. C@+ a -- a+1 c Fetch c from a and inc a.
C@- a -- a-1 c Fetch c from a and dec a. C@- a -- a-1 c Fetch c from a and dec a.
C! c a -- Store byte c in address a C! c a -- Store byte c in address a
C!* c a -- Indirect C!
C!+ c a -- a+1 Store byte c in a and inc a. C!+ c a -- a+1 Store byte c in a and inc a.
C!- c a -- a-1 Store byte c in a and dec a. C!- c a -- a-1 Store byte c in a and dec a.
*! a al -- Change alias al's addr to a. *! a al -- Change alias al's addr to a.
@ -178,14 +178,14 @@ MOVE- a1 a2 u -- Copy u bytes from a1 to a2, starting
MOVE, a u -- Copy u bytes from a to HERE. MOVE, a u -- Copy u bytes from a to HERE.
MOVEW src dst u -- Same as MOVE, but with words MOVEW src dst u -- Same as MOVE, but with words
Important note: MOVE* use A@ and A! instead of C@ and C! See Important note: MOVE* use C@* and C!* instead of C@ and C! See
"Addressed devices" in usage.txt. "Indirect memory access" in usage.txt.
MOVEW notes: this word's purpose is to interface with word- MOVEW notes: this word's purpose is to interface with word-
based systems. src and dst are addressed as *bytes* but u is a based systems. src and dst are addressed as *bytes* but u is a
*word* count. Every iteration increases src and dst by 2. This *word* count. Every iteration increases src and dst by 2. This
shouldn't be used on regular memory, it will yield weird shouldn't be used on regular memory, it will yield weird
results. Use it with A! ialias pointing to a word-based target. results. Use it with C!* ialias pointing to a word-based target.
# Arithmetic / Bits # Arithmetic / Bits

18
doc/hw/at28.txt
View File

@ -31,12 +31,14 @@ I don't think you need a schematic. It's really simple.
# Writing contents to the AT28 # Writing contents to the AT28
There is an AT28! writer word in B400 which is A!-compatible There is an AT28! writer word in B400 which is C!*-compatible
(see "Addressed devices" in doc/usage.txt) and and waits until (see "Indirect memory access" in doc/usage.txt) and and waits
the write is complete before returning. If you use C! directly, until the write is complete before returning. If you use C!
bytes you write might not have the time to completely write directly, bytes you write might not have the time to completely
themselves before you write another one. write themselves before you write another one.
To use, set A! with "' AT28! ' A! **!". Once this is done, you To use, set C!* with "' AT28! ' C!* **!". Once this is done, you
can use MOVE, or /tools/upload, both will call A! and do the can use MOVE, or /tools/upload, both will call C!* and do the
right thing. Unset A! with "' C! ' A! **!" afterwards. right thing. Unset C!* with "' C! ' C!* **!" afterwards.
B400 also has AT28, which is the same as AT28!, but for C,.

12
doc/impl.txt
View File

@ -159,9 +159,9 @@ offsets, but thankfully, there aren't many system variables.
Here's a list of them: Here's a list of them:
SYSVARS FUTURE USES +3c BLK(* SYSVARS FUTURE USES +3c BLK(*
+02 CURRENT +3e A@ ialias +02 CURRENT +3e C@*
+04 HERE +40 A! ialias +04 HERE +40 C!*
+06 C<? +42 A, ialias +06 C<? +42 C,*
+08 C<* override +44 FUTURE USES +08 C<* override +44 FUTURE USES
+0a NL ialias +51 CURRENTPTR +0a NL ialias +51 CURRENTPTR
+0c C<* +53 EMIT ialias +0c C<* +53 EMIT ialias
@ -226,9 +226,9 @@ few things:
EMIT -> (emit) EMIT -> (emit)
KEY -> (key) KEY -> (key)
NL -> CRLF NL -> CRLF
A@ -> C@ C@* -> C@
A! -> C! C!* -> C!
A, -> C, C,* -> C,
3. Set "C<*", the word that C< calls, to (boot<). 3. Set "C<*", the word that C< calls, to (boot<).
4. Call INTERPRET which interprets boot source code until 4. Call INTERPRET which interprets boot source code until
ASCII EOT (4) is met. This usually initializes drivers. ASCII EOT (4) is met. This usually initializes drivers.

22
doc/usage.txt
View File

@ -82,18 +82,22 @@ addresses in RAM (because the core code is designed to run from
ROM, we can't have regular variables). You are unlikely to ROM, we can't have regular variables). You are unlikely to
need ialiases in regular code. need ialiases in regular code.
# Addressed devices Aliases and ialiases generally have their name end with "*".
Core words such as KEY and EMIT, which are ialiases, are
exceptions.
A@, A! and A, are the indirect versions of C@, C! and C,. They # Indirect memory access
are ialias words and initially point to C@, C! and C,.
Addressed device words can be useful to "pipe" processing to C@*, C!*, and C,* are the indirect versions of C@, C! and C,.
places outside of regular memory. They are ialias words and initially point to C@, C! and C,.
All MOVE words use A@ and A! instead of C@ and C!. This gives a Indirect memory access words can be useful to "pipe" processing
lot of flexibility to those words, allowing for complex data to places outside of regular memory.
transfers. The cost of the indirection is small because of the
optimized ways aliases are built. Many core words, such as MOVE, use indirect memory access. This
gives a lot of flexibility to those words, allowing for complex
data transfers. The cost of the indirection is small because of
the optimized ways aliases are built.
# Disk blocks # Disk blocks

2
tools/upload.c
View File

@ -42,7 +42,7 @@ int main(int argc, char **argv)
} }
char s[0x40]; char s[0x40];
sprintf(s, sprintf(s,
": _ 0x%04x 0x%04x DO KEY DUP .x I A! LOOP ; _", ": _ 0x%04x 0x%04x DO KEY DUP .x I C!* LOOP ; _",
memptr+bytecount, memptr); memptr+bytecount, memptr);
sendcmd(fd, s); sendcmd(fd, s);