ソースを参照

zasm: complete mnemonic argspecs harmonization

master
Virgil Dupras 3年前
コミット
7ace3032ef
19個のファイルの変更43行の追加43行の削除
  1. +4
    -4
      blk/200
  2. +3
    -3
      blk/238
  3. +6
    -6
      blk/240
  4. +2
    -2
      blk/242
  5. +3
    -3
      blk/249
  6. +6
    -6
      blk/284
  7. +2
    -2
      blk/286
  8. +2
    -2
      blk/290
  9. +1
    -1
      blk/310
  10. +2
    -2
      blk/313
  11. +1
    -1
      blk/319
  12. +1
    -1
      blk/320
  13. +2
    -2
      blk/327
  14. +1
    -1
      blk/329
  15. +1
    -1
      blk/331
  16. +1
    -1
      blk/494
  17. +2
    -2
      blk/502
  18. +2
    -2
      blk/583
  19. +1
    -1
      blk/624

+ 4
- 4
blk/200 ファイルの表示

@@ -3,11 +3,11 @@ Z80 Assembler
201 Guide 208 Instructions list
212 Loader 213 Variables & consts
215 Utils 216 OP1
218 OP1r 220 OP1qq
218 OP1r 220 OP1d
222 OP1rr 224 OP2
226 OP2n 228 OP2rn
226 OP2i 228 OP2ri
230 OP2br 232 OProt
234 OP2r 236 OP2ss
238 OP3ddnn 240 OP3nn
234 OP2r 236 OP2d
238 OP3di 240 OP3i
242 Specials 246 Flow
249 Macros

+ 3
- 3
blk/238 ファイルの表示

@@ -1,5 +1,5 @@
( d n -- )
: OP3dn
( d i -- )
: OP3di
CREATE C,
DOES>
C@ ( d n op )
@@ -8,4 +8,4 @@
OR A,
A,,
;
0x01 OP3dn LDdn,
0x01 OP3di LDdi,

+ 6
- 6
blk/240 ファイルの表示

@@ -1,11 +1,11 @@
( n -- )
: OP3n
( i -- )
: OP3i
CREATE C,
DOES>
C@ A,
A,,
;
0xcd OP3n CALL,
0xc3 OP3n JP,
0x22 OP3n LD(n)HL, 0x2a OP3n LDHL(n),
0x32 OP3n LD(i)A, 0x3a OP3n LDA(i),
0xcd OP3i CALL,
0xc3 OP3i JP,
0x22 OP3i LD(i)HL, 0x2a OP3i LDHL(i),
0x32 OP3i LD(i)A, 0x3a OP3i LDA(i),

+ 2
- 2
blk/242 ファイルの表示

@@ -1,9 +1,9 @@
: LDd(n), ( d n -- )
: LDd(i), ( d i -- )
0xed A,
SWAP <<4 0x4b OR A,
A,,
;
: LD(n)d, ( n d -- )
: LD(i)d, ( i d -- )
0xed A,
<<4 0x43 OR A,
A,,


+ 3
- 3
blk/249 ファイルの表示

@@ -1,9 +1,9 @@
( Macros )
( clear carry + SBC )
: SUBHLd, A ORr, SBCHLd, ;
: PUSH0, DE 0 LDdn, DE PUSH, ;
: PUSH1, DE 1 LDdn, DE PUSH, ;
: PUSHZ, DE 0 LDdn, IFZ, DE INCd, THEN, DE PUSH, ;
: PUSH0, DE 0 LDdi, DE PUSH, ;
: PUSH1, DE 1 LDdi, DE PUSH, ;
: PUSHZ, DE 0 LDdi, IFZ, DE INCd, THEN, DE PUSH, ;
: PUSHA, D 0 LDri, E A LDrr, DE PUSH, ;
: HLZ, A H LDrr, L ORr, ;
: DEZ, A D LDrr, E ORr, ;


+ 6
- 6
blk/284 ファイルの表示

@@ -1,13 +1,13 @@
PC ORG @ 1 + ! ( main )
SP PS_ADDR LDdn, IX RS_ADDR LDdn,
SP PS_ADDR LDdi, IX RS_ADDR LDdi,
( LATEST is a label to the latest entry of the dict. It is
written at offset 0x08 by the process or person building
Forth. )
BIN( @ 0x08 + LDHL(n),
SYSVARS 0x02 ( CURRENT ) + LD(n)HL,
BIN( @ 0x08 + LDHL(i),
SYSVARS 0x02 ( CURRENT ) + LD(i)HL,
HERESTART [IF]
HL HERESTART LDdn,
HL HERESTART LDdi,
[THEN]
SYSVARS 0x04 + LD(n)HL, ( RAM+04 == HERE )
DE BIN( @ 0x04 ( BOOT ) + LDd(n),
SYSVARS 0x04 + LD(i)HL, ( RAM+04 == HERE )
DE BIN( @ 0x04 ( BOOT ) + LDd(i),
JR, L1 FWR ( execute, B287 )

+ 2
- 2
blk/286 ファイルの表示

@@ -6,8 +6,8 @@ lblnext BSET PC ORG @ 0x1b + ! ( next )
IX PUSH, EX(SP)HL, ( do EX to count the IX push in SP )
SP SUBHLd, HL POP,
IFNC, ( SP <= IX? overflow )
SP PS_ADDR LDdn, IX RS_ADDR LDdn,
DE BIN( @ 0x13 ( oflw ) + LDd(n),
SP PS_ADDR LDdi, IX RS_ADDR LDdi,
DE BIN( @ 0x13 ( oflw ) + LDd(i),
JR, L2 FWR ( execute, B287 )
THEN,
LDA(BC), E A LDrr, BC INCd,


+ 2
- 2
blk/290 ファイルの表示

@@ -1,5 +1,5 @@
lbluflw BSET ( abortUnderflow )
DE BIN( @ 0x06 ( uflw ) + LDd(n),
DE BIN( @ 0x06 ( uflw ) + LDd(i),
JR, lblexec BWR
lblchkPS BSET ( chkPS )
( Note that you only need to call this in words that push
@@ -8,7 +8,7 @@ lblchkPS BSET ( chkPS )
EXX,
( We have the return address for this very call on the stack
and protected registers. 2- is to compensate that. )
HL PS_ADDR 2- LDdn,
HL PS_ADDR 2- LDdi,
SP SUBHLd,
EXX,
CNC RETc, ( PS_ADDR >= SP? good )


+ 1
- 1
blk/310 ファイルの表示

@@ -8,7 +8,7 @@ CODE PICK EXX, ( protect BC )
B (HL) LDrr,
( check PS range before returning )
EXDEHL,
HL PS_ADDR LDdn,
HL PS_ADDR LDdi,
DE SUBHLd,
IFC, EXX, lbluflw @ JP, THEN,
BC PUSH,


+ 2
- 2
blk/313 ファイルの表示

@@ -1,10 +1,10 @@
CODE S0
HL PS_ADDR LDdn,
HL PS_ADDR LDdi,
HL PUSH,
;CODE

CODE 'S
HL 0 LDdn,
HL 0 LDdi,
SP ADDHLd,
HL PUSH,
;CODE

+ 1
- 1
blk/319 ファイルの表示

@@ -1,7 +1,7 @@
CODE * EXX, ( protect BC )
( DE * BC -> DE (high) and HL (low) )
DE POP, BC POP, chkPS,
HL 0 LDdn,
HL 0 LDdi,
A 0x10 LDri,
BEGIN,
HL ADDHLd,


+ 1
- 1
blk/320 ファイルの表示

@@ -4,7 +4,7 @@
CODE /MOD EXX, ( protect BC )
DE POP, BC POP, chkPS,
A B LDrr, B 16 LDri,
HL 0 LDdn,
HL 0 LDdi,
BEGIN,
SCF, C RL, RLA,
HL ADCHLd, DE SBCHLd,


+ 2
- 2
blk/327 ファイルの表示

@@ -3,9 +3,9 @@ CODE BYE
;CODE

CODE (resSP)
SP PS_ADDR LDdn,
SP PS_ADDR LDdi,
;CODE

CODE (resRS)
IX RS_ADDR LDdn,
IX RS_ADDR LDdi,
;CODE

+ 1
- 1
blk/329 ファイルの表示

@@ -3,7 +3,7 @@ CODE CMP
DE POP,
chkPS,
DE SUBHLd,
DE 0 LDdn,
DE 0 LDdi,
IFNZ, ( < or > )
DE INCd,
IFNC, ( < )


+ 1
- 1
blk/331 ファイルの表示

@@ -7,6 +7,6 @@ CODE 0 PUSH0, ;CODE
CODE 1 PUSH1, ;CODE

CODE -1
HL -1 LDdn,
HL -1 LDdi,
HL PUSH,
;CODE

+ 1
- 1
blk/494 ファイルの表示

@@ -1,6 +1,6 @@
: LINES 24 ; : COLS 80 ;
CODE BYE
HL 0 LDdn,
HL 0 LDdi,
A 0x16 LDri, ( @EXIT )
0x28 RST,
CODE @DCSTAT ( drv -- f ) EXX, ( protect BC )


+ 2
- 2
blk/502 ファイルの表示

@@ -3,7 +3,7 @@
0xff mask. If it was a 0x20, we put a 0x7f mask. )
: @GET,
A 0x03 LDri, ( @GET )
DE COM_DRV_ADDR LDdn,
DE COM_DRV_ADDR LDdi,
0x28 RST, JRNZ, L2 FWR ( maybeerror )
A ORr,
CZ RETc, ( Sending a straight NULL ends the comm. ) ;
@@ -13,4 +13,4 @@
0x28 RST, JRNZ, L3 FWR ( error )
A C LDrr, ;
H@ ORG !
HL DEST_ADDR LDdn, ( cont. )
HL DEST_ADDR LDdi, ( cont. )

+ 2
- 2
blk/583 ファイルの表示

@@ -4,10 +4,10 @@
ACIA_CTL INAi, 0x01 ANDi, ( is ACIA rcv buf full? )
IFZ, ( no, abort ) AF POP, EI, RETI, THEN,
HL PUSH,
HL ACIAW> LDdn, A (HL) LDrr,
HL ACIAW> LDdi, A (HL) LDrr,
HL DECd, (HL) CPr, ( W> == R> ? )
IFNZ, ( buffer not full )
( get wr ptr ) HL ACIA( LDd(n),
( get wr ptr ) HL ACIA( LDd(i),
L ADDr, IFC, H INCr, THEN, L A LDrr,
( fetch/write ) ACIA_IO INAi, (HL) A LDrr,
( advance W> ) ACIAW> LDA(i), A INCr,


+ 1
- 1
blk/624 ファイルの表示

@@ -1,7 +1,7 @@
CODE _blank ( this is way too slow in Forth )
A XORr, VDP_CTLPORT OUTiA,
A 0x40 LDri, VDP_CTLPORT OUTiA,
HL 0x4000 LDdn,
HL 0x4000 LDdi,
BEGIN,
A XORr, VDP_DATAPORT OUTiA,
HL DECd, HLZ,


読み込み中…
キャンセル
保存