瀏覽代碼

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,


Loading…
取消
儲存