mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-26 06:18:05 +11:00
Compare commits
No commits in common. "30d6fdb16b6765e4e168d6871fff4f1af765bc3f" and "68ef686c3c0e1304bd871cac5fb27ac0640ba977" have entirely different histories.
30d6fdb16b
...
68ef686c3c
@ -2,7 +2,7 @@
|
||||
; Number of rows in the argspec table
|
||||
.equ ARGSPEC_TBL_CNT 33
|
||||
; Number of rows in the primary instructions table
|
||||
.equ INSTR_TBL_CNT 147
|
||||
.equ INSTR_TBL_CNT 162
|
||||
; size in bytes of each row in the primary instructions table
|
||||
.equ INSTR_TBL_ROWSIZE 6
|
||||
; Instruction IDs They correspond to the index of the table in instrNames
|
||||
@ -84,18 +84,12 @@ checkNOrM:
|
||||
cp 'M'
|
||||
ret
|
||||
|
||||
; Checks whether A is 'n', 'm'
|
||||
checknm:
|
||||
; Checks whether A is 'n', 'm', 'x' or 'y'
|
||||
checknmxy:
|
||||
cp 'n'
|
||||
ret z
|
||||
cp 'm'
|
||||
ret
|
||||
|
||||
checklxy:
|
||||
cp 'l'
|
||||
ret z
|
||||
; Checks whether A is 'x', 'y'
|
||||
checkxy:
|
||||
cp 'x'
|
||||
ret z
|
||||
cp 'y'
|
||||
@ -336,7 +330,6 @@ findInGroup:
|
||||
ret
|
||||
|
||||
; Compare argspec from instruction table in A with argument in (HL).
|
||||
; IX must point to argspec row.
|
||||
; For constant args, it's easy: if A == (HL), it's a success.
|
||||
; If it's not this, then we check if it's a numerical arg.
|
||||
; If A is a group ID, we do something else: we check that (HL) exists in the
|
||||
@ -349,21 +342,11 @@ matchArg:
|
||||
; not an exact match. Before we continue: is A zero? Because if it is,
|
||||
; we have to stop right here: no match possible.
|
||||
or a
|
||||
jr nz, .skip1 ; not a zero, we can continue
|
||||
jr nz, .skip ; not a zero, we can continue
|
||||
; zero, stop here
|
||||
cp 1 ; unset Z
|
||||
ret
|
||||
.skip1:
|
||||
; If our argspec is 'l', then we also match 'x' and 'y'
|
||||
cp 'l'
|
||||
jr nz, .skip2
|
||||
; Does it accept IX and IY?
|
||||
bit 4, (ix+3)
|
||||
ld a, (hl)
|
||||
jp nz, checkxy ; bit set: our result is checkxy
|
||||
; doesn't accept? then we don't match
|
||||
jp unsetZ
|
||||
.skip2:
|
||||
.skip:
|
||||
; Alright, let's start with a special case. Is it part of the special
|
||||
; "BIT" group, 0xc? If yes, we actually expect a number, which will
|
||||
; then be ORed like a regular group index.
|
||||
@ -446,19 +429,78 @@ matchPrimaryRow:
|
||||
|
||||
; Handle like a regular "JP (IX+d)" except that we refuse any displacement: if
|
||||
; a displacement is specified, we error out.
|
||||
handleJPIX:
|
||||
ld a, 0xdd
|
||||
jr handleJPIXY
|
||||
handleJPIY:
|
||||
ld a, 0xfd
|
||||
handleJPIXY:
|
||||
ld (INS_UPCODE), a
|
||||
ld a, (INS_CURARG1+1)
|
||||
or a ; numerical argument *must* be zero
|
||||
cp 0 ; numerical argument *must* be zero
|
||||
jr nz, .error
|
||||
; ok, we're good
|
||||
ld a, 0xe9 ; second upcode
|
||||
ld (INS_UPCODE), a
|
||||
ld c, 1
|
||||
ld (INS_UPCODE+1), a
|
||||
ld c, 2
|
||||
ret
|
||||
.error:
|
||||
ld c, 0
|
||||
ret
|
||||
|
||||
; Handle the first argument of BIT. Sets Z if first argument is valid, unset it
|
||||
; if there's an error.
|
||||
handleBIT:
|
||||
ld a, (INS_CURARG1+1)
|
||||
cp 8
|
||||
jr nc, .error ; >= 8? error
|
||||
; We're good
|
||||
cp a ; ensure Z
|
||||
ret
|
||||
.error:
|
||||
ld c, 0
|
||||
jp unsetZ
|
||||
|
||||
handleBITIX:
|
||||
ld a, 0xdd
|
||||
ld b, 0b01000110
|
||||
jr _handleBITIXY
|
||||
handleBITIY:
|
||||
ld a, 0xfd
|
||||
ld b, 0b01000110
|
||||
jr _handleBITIXY
|
||||
handleSETIX:
|
||||
ld a, 0xdd
|
||||
ld b, 0b11000110
|
||||
jr _handleBITIXY
|
||||
handleSETIY:
|
||||
ld a, 0xfd
|
||||
ld b, 0b11000110
|
||||
jr _handleBITIXY
|
||||
handleRESIX:
|
||||
ld a, 0xdd
|
||||
ld b, 0b10000110
|
||||
jr _handleBITIXY
|
||||
handleRESIY:
|
||||
ld a, 0xfd
|
||||
ld b, 0b10000110
|
||||
_handleBITIXY:
|
||||
ld (INS_UPCODE), a ; first upcode
|
||||
call handleBIT
|
||||
ret nz ; error
|
||||
ld a, 0xcb ; 2nd upcode
|
||||
ld (INS_UPCODE+1), a
|
||||
ld a, (INS_CURARG2+1) ; IXY displacement
|
||||
ld (INS_UPCODE+2), a
|
||||
ld a, (INS_CURARG1+1) ; 0-7
|
||||
rla
|
||||
rla
|
||||
rla
|
||||
or b ; 4th upcode
|
||||
ld (INS_UPCODE+3), a
|
||||
ld c, 4
|
||||
ret
|
||||
|
||||
handleBITR:
|
||||
ld b, 0b01000000
|
||||
jr _handleBITR
|
||||
@ -468,6 +510,8 @@ handleSETR:
|
||||
handleRESR:
|
||||
ld b, 0b10000000
|
||||
_handleBITR:
|
||||
call handleBIT
|
||||
ret nz ; error
|
||||
; get group value
|
||||
ld a, (INS_CURARG2+1) ; group value
|
||||
ld c, a
|
||||
@ -476,7 +520,7 @@ _handleBITR:
|
||||
ld (INS_UPCODE), a
|
||||
; get bit value
|
||||
ld a, (INS_CURARG1+1) ; 0-7
|
||||
rlca ; clears cary if any
|
||||
rla
|
||||
rla
|
||||
rla
|
||||
; Now we have group value in stack, bit value in A (properly shifted)
|
||||
@ -513,40 +557,58 @@ handleIM:
|
||||
ld c, 2
|
||||
ret
|
||||
|
||||
handleLDIXn:
|
||||
ld a, 0xdd
|
||||
jr handleLDIXYn
|
||||
handleLDIYn:
|
||||
ld a, 0xfd
|
||||
handleLDIXYn:
|
||||
ld a, 0x36 ; second upcode
|
||||
ld (INS_UPCODE), a
|
||||
ld a, (INS_CURARG1+1) ; IXY displacement
|
||||
ld a, 0x36 ; second upcode
|
||||
ld (INS_UPCODE+1), a
|
||||
ld a, (INS_CURARG1+1) ; IXY displacement
|
||||
ld (INS_UPCODE+2), a
|
||||
ld a, (INS_CURARG2+1) ; N
|
||||
ld (INS_UPCODE+3), a
|
||||
ld c, 4
|
||||
ret
|
||||
|
||||
handleLDIXr:
|
||||
ld a, 0xdd
|
||||
jr handleLDIXYr
|
||||
handleLDIYr:
|
||||
ld a, 0xfd
|
||||
handleLDIXYr:
|
||||
ld (INS_UPCODE), a
|
||||
ld a, (INS_CURARG2+1) ; group value
|
||||
or 0b01110000 ; second upcode
|
||||
ld (INS_UPCODE+1), a
|
||||
ld a, (INS_CURARG1+1) ; IXY displacement
|
||||
ld (INS_UPCODE+2), a
|
||||
ld c, 3
|
||||
ret
|
||||
|
||||
handleLDIXYr:
|
||||
ld a, (INS_CURARG2+1) ; group value
|
||||
or 0b01110000 ; second upcode
|
||||
ld (INS_UPCODE), a
|
||||
ld a, (INS_CURARG1+1) ; IXY displacement
|
||||
ld (INS_UPCODE+1), a
|
||||
ld c, 2
|
||||
ret
|
||||
|
||||
handleLDrIX:
|
||||
ld a, 0xdd
|
||||
jr handleLDrIXY
|
||||
handleLDrIY:
|
||||
ld a, 0xfd
|
||||
handleLDrIXY:
|
||||
ld a, (INS_CURARG1+1) ; group value
|
||||
rlca \ rla \ rla
|
||||
or 0b01000110 ; second upcode
|
||||
ld (INS_UPCODE), a
|
||||
ld a, (INS_CURARG2+1) ; IXY displacement
|
||||
ld a, (INS_CURARG1+1) ; group value
|
||||
rla \ rla \ rla
|
||||
or 0b01000110 ; second upcode
|
||||
ld (INS_UPCODE+1), a
|
||||
ld c, 2
|
||||
ld a, (INS_CURARG2+1) ; IXY displacement
|
||||
ld (INS_UPCODE+2), a
|
||||
ld c, 3
|
||||
ret
|
||||
|
||||
handleLDrr:
|
||||
; first argument is displaced by 3 bits, second argument is not
|
||||
; displaced and we or that with a leading 0b01000000
|
||||
ld a, (INS_CURARG1+1) ; group value
|
||||
rlca
|
||||
rla
|
||||
rla
|
||||
rla
|
||||
ld c, a ; store it
|
||||
@ -568,39 +630,6 @@ spitUpcode:
|
||||
; First, let's go in IX mode. It's easier to deal with offsets here.
|
||||
push de \ pop ix
|
||||
|
||||
; before we begin, are we in a 'l' argspec? Is it flagged for IX/IY
|
||||
; acceptance? If yes, a 'x' or 'y' instruction? Check this on both
|
||||
; args and if we detect a 'x' or 'y', things are *always* the same:
|
||||
; the upcode is exactly the same as its (HL) counterpart except that
|
||||
; it is preceeded by 0xdd or 0xfd. If we're 'x' or 'y', then it means
|
||||
; that we've already been matched to a 'l' argspec, so after spitting
|
||||
; 0xdd or 0xfd, we can continue as normal.
|
||||
ld a, (ix+1)
|
||||
call checklxy
|
||||
jr z, .isl
|
||||
ld a, (ix+2)
|
||||
call checklxy
|
||||
jr nz, .begin ; no point in checking further.
|
||||
.isl:
|
||||
ld a, (INS_CURARG1)
|
||||
cp 'x'
|
||||
jr z, .isx
|
||||
cp 'y'
|
||||
jr z, .isy
|
||||
ld a, (INS_CURARG2)
|
||||
cp 'x'
|
||||
jr z, .isx
|
||||
cp 'y'
|
||||
jr z, .isy
|
||||
jr .begin
|
||||
.isx:
|
||||
ld a, 0xdd
|
||||
call ioPutB
|
||||
jr .begin
|
||||
.isy:
|
||||
ld a, 0xfd
|
||||
call ioPutB
|
||||
.begin:
|
||||
; Are we a "special instruction"?
|
||||
bit 5, (ix+3)
|
||||
jr z, .normalInstr ; not set: normal instruction
|
||||
@ -615,9 +644,10 @@ spitUpcode:
|
||||
; we begin by writing our "base upcode", which can be one or two bytes
|
||||
ld a, (ix+4) ; first upcode
|
||||
ld (INS_UPCODE), a
|
||||
; from this point, DE points to "where we are" in terms of upcode
|
||||
; writing.
|
||||
ld de, INS_UPCODE+1
|
||||
ld de, INS_UPCODE ; from this point, DE points to "where we are"
|
||||
; in terms of upcode writing.
|
||||
inc de ; make DE point to where we should write next.
|
||||
|
||||
ld c, 1 ; C holds our upcode count
|
||||
|
||||
; Now, let's determine if we have one or two upcode. As a general rule,
|
||||
@ -688,19 +718,13 @@ spitUpcode:
|
||||
ld hl, INS_CURARG1
|
||||
call checkNOrM
|
||||
jr z, .withWord
|
||||
call checknm
|
||||
jr z, .withByte
|
||||
ld a, (INS_CURARG1)
|
||||
call checkxy
|
||||
call checknmxy
|
||||
jr z, .withByte
|
||||
ld a, (ix+2) ; second argspec
|
||||
ld hl, INS_CURARG2
|
||||
call checkNOrM
|
||||
jr z, .withWord
|
||||
call checknm
|
||||
jr z, .withByte
|
||||
ld a, (INS_CURARG2)
|
||||
call checkxy
|
||||
call checknmxy
|
||||
jr z, .withByte
|
||||
; nope, no number, alright, we're finished here
|
||||
jr .writeIO
|
||||
@ -776,14 +800,7 @@ spitUpcode:
|
||||
inc c
|
||||
; to writeIO
|
||||
.writeIO:
|
||||
; Before we write IO, let's check a very specific case: is our first
|
||||
; upcode 0xcb and our byte count == 3? If yes, then swap the two last
|
||||
; bytes. In all instructions except 0xcb ones, IX/IY displacement comes
|
||||
; last, but in all 0xcb instructions, they come 2nd last.
|
||||
call .checkCB
|
||||
; Let's write INS_UPCODE to IO
|
||||
dec c \ inc c ; is C zero?
|
||||
jr z, .numberTruncated
|
||||
ld b, c ; save output byte count
|
||||
ld hl, INS_UPCODE
|
||||
.loopWrite:
|
||||
@ -792,7 +809,7 @@ spitUpcode:
|
||||
jr nz, .ioError
|
||||
inc hl
|
||||
djnz .loopWrite
|
||||
cp a ; ensure Z
|
||||
; Z is set by INC HL
|
||||
jr .end
|
||||
.numberTruncated:
|
||||
; Z already unset
|
||||
@ -808,21 +825,6 @@ spitUpcode:
|
||||
pop de
|
||||
pop ix
|
||||
ret
|
||||
.checkCB:
|
||||
ld a, (INS_UPCODE)
|
||||
cp 0xcb
|
||||
ret nz
|
||||
ld a, c
|
||||
cp 3
|
||||
ret nz
|
||||
; We are in 0xcb + displacement situation. Swap bytes 2 and 3.
|
||||
ld a, (INS_UPCODE+1)
|
||||
ex af, af'
|
||||
ld a, (INS_UPCODE+2)
|
||||
ld (INS_UPCODE+1), a
|
||||
ex af, af'
|
||||
ld (INS_UPCODE+2), a
|
||||
ret
|
||||
|
||||
; Parse argument in (HL) and place it in (DE)
|
||||
; Sets Z on success, reset on error.
|
||||
@ -1064,39 +1066,48 @@ instrNames:
|
||||
; Bit 5: Indicates that this row is handled very specially: the next two bytes
|
||||
; aren't upcode bytes, but a routine address to call to handle this case with
|
||||
; custom code.
|
||||
; Bit 4: When in an 'l' argspec, this means "I accept IX and IY variants".
|
||||
|
||||
instrTBl:
|
||||
.db I_ADC, 'A', 'l', 0, 0x8e , 0 ; ADC A, (HL)
|
||||
.db I_ADC, 'A', 0xb, 0, 0b10001000 , 0 ; ADC A, r
|
||||
.db I_ADC, 'A', 'n', 0, 0xce , 0 ; ADC A, n
|
||||
.db I_ADC, 'h', 0x3, 0x44, 0xed, 0b01001010 ; ADC HL, ss
|
||||
.db I_ADD, 'A', 'l', 0x10, 0x86 , 0 ; ADD A, (HL) + (IX/Y)
|
||||
.db I_ADD, 'A', 'l', 0, 0x86 , 0 ; ADD A, (HL)
|
||||
.db I_ADD, 'A', 0xb, 0, 0b10000000 , 0 ; ADD A, r
|
||||
.db I_ADD, 'A', 'n', 0, 0xc6 , 0 ; ADD A, n
|
||||
.db I_ADD, 'h', 0x3, 4, 0b00001001 , 0 ; ADD HL, ss
|
||||
.db I_ADD, 'X', 0x4, 0x44, 0xdd, 0b00001001 ; ADD IX, pp
|
||||
.db I_ADD, 'Y', 0x5, 0x44, 0xfd, 0b00001001 ; ADD IY, rr
|
||||
.db I_AND, 'l', 0, 0x10, 0xa6 , 0 ; AND (HL) + (IX/Y)
|
||||
.db I_ADD, 'A', 'x', 0, 0xdd, 0x86 ; ADD A, (IX+d)
|
||||
.db I_ADD, 'A', 'y', 0, 0xfd, 0x86 ; ADD A, (IY+d)
|
||||
.db I_AND, 'l', 0, 0, 0xa6 , 0 ; AND (HL)
|
||||
.db I_AND, 0xb, 0, 0, 0b10100000 , 0 ; AND r
|
||||
.db I_AND, 'n', 0, 0, 0xe6 , 0 ; AND n
|
||||
.db I_BIT, 0xc, 'l', 0x53, 0xcb, 0b01000110 ; BIT b, (HL) + (IX/Y)
|
||||
.db I_BIT, 0xc, 0xb, 0x20 \ .dw handleBITR ; BIT b, r
|
||||
.db I_AND, 'x', 0, 0, 0xdd, 0xa6 ; AND (IX+d)
|
||||
.db I_AND, 'y', 0, 0, 0xfd, 0xa6 ; AND (IY+d)
|
||||
.db I_BIT, 0xc, 'l', 0x43, 0xcb, 0b01000110 ; BIT b, (HL)
|
||||
.db I_BIT, 'n', 'x', 0x20 \ .dw handleBITIX ; BIT b, (IX+d)
|
||||
.db I_BIT, 'n', 'y', 0x20 \ .dw handleBITIY ; BIT b, (IY+d)
|
||||
.db I_BIT, 'n', 0xb, 0x20 \ .dw handleBITR ; BIT b, r
|
||||
.db I_CALL,0xa, 'N', 3, 0b11000100 , 0 ; CALL cc, NN
|
||||
.db I_CALL,'N', 0, 0, 0xcd , 0 ; CALL NN
|
||||
.db I_CCF, 0, 0, 0, 0x3f , 0 ; CCF
|
||||
.db I_CP, 'l', 0, 0x10, 0xbe , 0 ; CP (HL) + (IX/Y)
|
||||
.db I_CP, 'l', 0, 0, 0xbe , 0 ; CP (HL)
|
||||
.db I_CP, 0xb, 0, 0, 0b10111000 , 0 ; CP r
|
||||
.db I_CP, 'n', 0, 0, 0xfe , 0 ; CP n
|
||||
.db I_CP, 'x', 0, 0, 0xdd, 0xbe ; CP (IX+d)
|
||||
.db I_CP, 'y', 0, 0, 0xfd, 0xbe ; CP (IY+d)
|
||||
.db I_CPD, 0, 0, 0, 0xed, 0xa9 ; CPD
|
||||
.db I_CPDR,0, 0, 0, 0xed, 0xb9 ; CPDR
|
||||
.db I_CPI, 0, 0, 0, 0xed, 0xa1 ; CPI
|
||||
.db I_CPIR,0, 0, 0, 0xed, 0xb1 ; CPIR
|
||||
.db I_CPL, 0, 0, 0, 0x2f , 0 ; CPL
|
||||
.db I_DAA, 0, 0, 0, 0x27 , 0 ; DAA
|
||||
.db I_DEC, 'l', 0, 0x10, 0x35 , 0 ; DEC (HL) + (IX/Y)
|
||||
.db I_DEC, 'l', 0, 0, 0x35 , 0 ; DEC (HL)
|
||||
.db I_DEC, 'X', 0, 0, 0xdd, 0x2b ; DEC IX
|
||||
.db I_DEC, 'x', 0, 0, 0xdd, 0x35 ; DEC (IX+d)
|
||||
.db I_DEC, 'Y', 0, 0, 0xfd, 0x2b ; DEC IY
|
||||
.db I_DEC, 'y', 0, 0, 0xfd, 0x35 ; DEC (IY+d)
|
||||
.db I_DEC, 0xb, 0, 3, 0b00000101 , 0 ; DEC r
|
||||
.db I_DEC, 0x3, 0, 4, 0b00001011 , 0 ; DEC ss
|
||||
.db I_DI, 0, 0, 0, 0xf3 , 0 ; DI
|
||||
@ -1112,20 +1123,22 @@ instrTBl:
|
||||
.db I_IM, 'n', 0, 0x20 \ .dw handleIM ; IM {0,1,2}
|
||||
.db I_IN, 'A', 'm', 0, 0xdb , 0 ; IN A, (n)
|
||||
.db I_IN, 0xb, 'k', 0x43, 0xed, 0b01000000 ; IN r, (C)
|
||||
.db I_INC, 'l', 0, 0x10, 0x34 , 0 ; INC (HL) + (IX/Y)
|
||||
.db I_INC, 'l', 0, 0, 0x34 , 0 ; INC (HL)
|
||||
.db I_INC, 'X', 0, 0, 0xdd , 0x23 ; INC IX
|
||||
.db I_INC, 'x', 0, 0, 0xdd , 0x34 ; INC (IX+d)
|
||||
.db I_INC, 'Y', 0, 0, 0xfd , 0x23 ; INC IY
|
||||
.db I_INC, 'y', 0, 0, 0xfd , 0x34 ; INC (IY+d)
|
||||
.db I_INC, 0xb, 0, 3, 0b00000100 , 0 ; INC r
|
||||
.db I_INC, 0x3, 0, 4, 0b00000011 , 0 ; INC ss
|
||||
.db I_IND, 0, 0, 0, 0xed, 0xaa ; IND
|
||||
.db I_INDR,0, 0, 0, 0xed, 0xba ; INDR
|
||||
.db I_INI, 0, 0, 0, 0xed, 0xa2 ; INI
|
||||
.db I_INIR,0, 0, 0, 0xed, 0xb2 ; INIR
|
||||
.db I_JP, 'x', 0, 0x20 \ .dw handleJPIXY ; JP (IX)
|
||||
.db I_JP, 'y', 0, 0x20 \ .dw handleJPIXY ; JP (IY)
|
||||
.db I_JP, 'l', 0, 0, 0xe9 , 0 ; JP (HL)
|
||||
.db I_JP, 0xa, 'N', 3, 0b11000010 , 0 ; JP cc, NN
|
||||
.db I_JP, 'N', 0, 0, 0xc3 , 0 ; JP NN
|
||||
.db I_JP, 'x', 0, 0x20 \ .dw handleJPIX ; JP (IX)
|
||||
.db I_JP, 'y', 0, 0x20 \ .dw handleJPIY ; JP (IY)
|
||||
.db I_JR, 'n', 0, 0x80, 0x18 , 0 ; JR e
|
||||
.db I_JR, 'C', 'n', 0x80, 0x38 , 0 ; JR C, e
|
||||
.db I_JR, '=', 'n', 0x80, 0x30 , 0 ; JR NC, e
|
||||
@ -1158,21 +1171,23 @@ instrTBl:
|
||||
.db I_LD, 'Y', 'M', 0, 0xfd, 0x2a ; LD IY, (NN)
|
||||
.db I_LD, 'M', 0x3, 0x44, 0xed, 0b01000011 ; LD (NN), dd
|
||||
.db I_LD, 0x3, 'M', 0x44, 0xed, 0b01001011 ; LD dd, (NN)
|
||||
.db I_LD, 'x', 'n', 0x20 \ .dw handleLDIXYn ; LD (IX+d), n
|
||||
.db I_LD, 'y', 'n', 0x20 \ .dw handleLDIXYn ; LD (IY+d), n
|
||||
.db I_LD, 'x', 0xb, 0x20 \ .dw handleLDIXYr ; LD (IX+d), r
|
||||
.db I_LD, 'y', 0xb, 0x20 \ .dw handleLDIXYr ; LD (IY+d), r
|
||||
.db I_LD, 0xb, 'x', 0x20 \ .dw handleLDrIXY ; LD r, (IX+d)
|
||||
.db I_LD, 0xb, 'y', 0x20 \ .dw handleLDrIXY ; LD r, (IY+d)
|
||||
.db I_LD, 'x', 'n', 0x20 \ .dw handleLDIXn ; LD (IX+d), n
|
||||
.db I_LD, 'y', 'n', 0x20 \ .dw handleLDIYn ; LD (IY+d), n
|
||||
.db I_LD, 'x', 0xb, 0x20 \ .dw handleLDIXr ; LD (IX+d), r
|
||||
.db I_LD, 'y', 0xb, 0x20 \ .dw handleLDIYr ; LD (IY+d), r
|
||||
.db I_LD, 0xb, 'x', 0x20 \ .dw handleLDrIX ; LD r, (IX+d)
|
||||
.db I_LD, 0xb, 'y', 0x20 \ .dw handleLDrIY ; LD r, (IY+d)
|
||||
.db I_LDD, 0, 0, 0, 0xed, 0xa8 ; LDD
|
||||
.db I_LDDR,0, 0, 0, 0xed, 0xb8 ; LDDR
|
||||
.db I_LDI, 0, 0, 0, 0xed, 0xa0 ; LDI
|
||||
.db I_LDIR,0, 0, 0, 0xed, 0xb0 ; LDIR
|
||||
.db I_NEG, 0, 0, 0, 0xed, 0x44 ; NEG
|
||||
.db I_NOP, 0, 0, 0, 0x00 , 0 ; NOP
|
||||
.db I_OR, 'l', 0, 0x10, 0xb6 , 0 ; OR (HL) + (IX/Y)
|
||||
.db I_OR, 'l', 0, 0, 0xb6 , 0 ; OR (HL)
|
||||
.db I_OR, 0xb, 0, 0, 0b10110000 , 0 ; OR r
|
||||
.db I_OR, 'n', 0, 0, 0xf6 , 0 ; OR n
|
||||
.db I_OR, 'x', 0, 0, 0xdd, 0xb6 ; OR (IX+d)
|
||||
.db I_OR, 'y', 0, 0, 0xfd, 0xb6 ; OR (IY+d)
|
||||
.db I_OTDR,0, 0, 0, 0xed, 0xbb ; OTDR
|
||||
.db I_OTIR,0, 0, 0, 0xed, 0xb3 ; OTIR
|
||||
.db I_OUT, 'm', 'A', 0, 0xd3 , 0 ; OUT (n), A
|
||||
@ -1183,19 +1198,19 @@ instrTBl:
|
||||
.db I_PUSH,'X', 0, 0, 0xdd, 0xe5 ; PUSH IX
|
||||
.db I_PUSH,'Y', 0, 0, 0xfd, 0xe5 ; PUSH IY
|
||||
.db I_PUSH,0x1, 0, 4, 0b11000101 , 0 ; PUSH qq
|
||||
.db I_RES, 0xc, 'l', 0x53, 0xcb, 0b10000110 ; RES b, (HL) + (IX/Y)
|
||||
.db I_RES, 0xc, 0xb, 0x20 \ .dw handleRESR ; RES b, r
|
||||
.db I_RES, 0xc, 'l', 0x43, 0xcb, 0b10000110 ; RES b, (HL)
|
||||
.db I_RES, 'n', 'x', 0x20 \ .dw handleRESIX ; RES b, (IX+d)
|
||||
.db I_RES, 'n', 'y', 0x20 \ .dw handleRESIY ; RES b, (IY+d)
|
||||
.db I_RES, 'n', 0xb, 0x20 \ .dw handleRESR ; RES b, r
|
||||
.db I_RET, 0, 0, 0, 0xc9 , 0 ; RET
|
||||
.db I_RET, 0xa, 0, 3, 0b11000000 , 0 ; RET cc
|
||||
.db I_RETI,0, 0, 0, 0xed, 0x4d ; RETI
|
||||
.db I_RETN,0, 0, 0, 0xed, 0x45 ; RETN
|
||||
.db I_RL, 0xb, 0,0x40, 0xcb, 0b00010000 ; RL r
|
||||
.db I_RL, 'l', 0,0x10, 0xcb, 0b00010110 ; RL (HL) + (IX/Y)
|
||||
.db I_RLA, 0, 0, 0, 0x17 , 0 ; RLA
|
||||
.db I_RLC, 0xb, 0,0x40, 0xcb, 0b00000000 ; RLC r
|
||||
.db I_RLCA,0, 0, 0, 0x07 , 0 ; RLCA
|
||||
.db I_RR, 0xb, 0,0x40, 0xcb, 0b00011000 ; RR r
|
||||
.db I_RR, 'l', 0,0x10, 0xcb, 0b00011110 ; RR (HL) + (IX/Y)
|
||||
.db I_RRA, 0, 0, 0, 0x1f , 0 ; RRA
|
||||
.db I_RRC, 0xb, 0,0x40, 0xcb, 0b00001000 ; RRC r
|
||||
.db I_RRCA,0, 0, 0, 0x0f , 0 ; RRCA
|
||||
@ -1203,11 +1218,12 @@ instrTBl:
|
||||
.db I_SBC, 'A', 0xb, 0, 0b10011000 , 0 ; SBC A, r
|
||||
.db I_SBC,'h',0x3,0x44, 0xed, 0b01000010 ; SBC HL, ss
|
||||
.db I_SCF, 0, 0, 0, 0x37 , 0 ; SCF
|
||||
.db I_SET, 0xc, 'l', 0x53, 0xcb, 0b11000110 ; SET b, (HL) + (IX/Y)
|
||||
.db I_SET, 0xc, 0xb, 0x20 \ .dw handleSETR ; SET b, r
|
||||
.db I_SET, 0xc, 'l', 0x43, 0xcb, 0b11000110 ; SET b, (HL)
|
||||
.db I_SET, 'n', 'x', 0x20 \ .dw handleSETIX ; SET b, (IX+d)
|
||||
.db I_SET, 'n', 'y', 0x20 \ .dw handleSETIY ; SET b, (IY+d)
|
||||
.db I_SET, 'n', 0xb, 0x20 \ .dw handleSETR ; SET b, r
|
||||
.db I_SLA, 0xb, 0,0x40, 0xcb, 0b00100000 ; SLA r
|
||||
.db I_SRL, 0xb, 0,0x40, 0xcb, 0b00111000 ; SRL r
|
||||
.db I_SRL, 'l', 0,0x10, 0xcb, 0b00111110 ; SRL (HL) + (IX/Y)
|
||||
.db I_SUB, 'l', 0, 0, 0x96 , 0 ; SUB (HL)
|
||||
.db I_SUB, 0xb, 0, 0, 0b10010000 , 0 ; SUB r
|
||||
.db I_SUB, 'n', 0, 0, 0xd6 , 0 ; SUB n
|
||||
|
||||
@ -142,22 +142,19 @@ ioPutBack:
|
||||
ret
|
||||
|
||||
ioPutB:
|
||||
push hl ; --> lvl 1
|
||||
push hl
|
||||
ld hl, (IO_PC)
|
||||
inc hl
|
||||
ld (IO_PC), hl
|
||||
pop hl ; <-- lvl 1
|
||||
push af ; --> lvl 1
|
||||
pop hl
|
||||
push af
|
||||
call zasmIsFirstPass
|
||||
jr z, .skip
|
||||
pop af ; <-- lvl 1
|
||||
push ix ; --> lvl 1
|
||||
pop af
|
||||
ld ix, IO_OUT_BLK
|
||||
call _blkPutB
|
||||
pop ix ; <-- lvl 1
|
||||
ret
|
||||
jp _blkPutB
|
||||
.skip:
|
||||
pop af ; <-- lvl 1
|
||||
pop af
|
||||
cp a ; ensure Z
|
||||
ret
|
||||
|
||||
|
||||
@ -258,12 +258,17 @@ lcdSendGlyph:
|
||||
ret z ; zero? nothing to do
|
||||
push bc ; --> lvl 1
|
||||
xor a
|
||||
ld (ix+FNT_HEIGHT), a
|
||||
ld b, a
|
||||
ld a, (ix)
|
||||
; TODO: support SRL (IX) and RR (IX) in zasm
|
||||
.shiftLoop:
|
||||
srl (ix)
|
||||
rr (ix+FNT_HEIGHT)
|
||||
srl a
|
||||
rr b
|
||||
dec c
|
||||
jr nz, .shiftLoop
|
||||
ld (ix), a
|
||||
ld a, b
|
||||
ld (ix+FNT_HEIGHT), a
|
||||
pop bc ; <-- lvl 1
|
||||
ret
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -1,177 +0,0 @@
|
||||
jp runTests
|
||||
|
||||
.inc "err.h"
|
||||
.inc "core.asm"
|
||||
.inc "parse.asm"
|
||||
.inc "zasm/const.asm"
|
||||
.inc "lib/util.asm"
|
||||
.inc "zasm/util.asm"
|
||||
.inc "lib/parse.asm"
|
||||
.inc "zasm/parse.asm"
|
||||
.inc "zasm/expr.asm"
|
||||
.equ INS_RAMSTART RAMSTART
|
||||
.inc "zasm/instr.asm"
|
||||
|
||||
zasmGetPC:
|
||||
ret
|
||||
|
||||
zasmIsFirstPass:
|
||||
jp unsetZ
|
||||
|
||||
readWord:
|
||||
readComma:
|
||||
symFindVal:
|
||||
xor a
|
||||
ret
|
||||
|
||||
ioPutB:
|
||||
push hl
|
||||
ld hl, SPITBOWL
|
||||
push af
|
||||
ld a, (SPITCNT)
|
||||
call addHL
|
||||
inc a
|
||||
ld (SPITCNT), a
|
||||
pop af
|
||||
ld (hl), a
|
||||
pop hl
|
||||
cp a
|
||||
ret
|
||||
|
||||
runTests:
|
||||
call testMatchArg
|
||||
call testSpitUpcode
|
||||
xor a
|
||||
halt
|
||||
|
||||
testSpitUpcode:
|
||||
ld ix, .t1
|
||||
call .test
|
||||
ld ix, .t2
|
||||
call .test
|
||||
ld ix, .t3
|
||||
call .test
|
||||
ld ix, .t4
|
||||
call .test
|
||||
ld ix, .t5
|
||||
call .test
|
||||
ret
|
||||
|
||||
.test:
|
||||
; init spitbowl
|
||||
xor a
|
||||
ld (SPITCNT), a
|
||||
ld (SPITBOWL), a
|
||||
ld (SPITBOWL+1), a
|
||||
ld (SPITBOWL+2), a
|
||||
ld (SPITBOWL+3), a
|
||||
push ix \ pop de
|
||||
call intoDE
|
||||
ld a, (ix+2)
|
||||
ld (INS_CURARG1), a
|
||||
ld a, (ix+3)
|
||||
ld (INS_CURARG1+1), a
|
||||
ld a, (ix+4)
|
||||
ld (INS_CURARG1+2), a
|
||||
ld a, (ix+5)
|
||||
ld (INS_CURARG2), a
|
||||
ld a, (ix+6)
|
||||
ld (INS_CURARG2+1), a
|
||||
ld a, (ix+7)
|
||||
ld (INS_CURARG2+2), a
|
||||
call spitUpcode
|
||||
jp nz, fail
|
||||
ld a, (SPITCNT)
|
||||
cp (ix+8)
|
||||
jp nz, fail
|
||||
ld a, (SPITBOWL)
|
||||
cp (ix+9)
|
||||
jp nz, fail
|
||||
ld a, (SPITBOWL+1)
|
||||
cp (ix+10)
|
||||
jp nz, fail
|
||||
ld a, (SPITBOWL+2)
|
||||
cp (ix+11)
|
||||
jp nz, fail
|
||||
ld a, (SPITBOWL+3)
|
||||
cp (ix+12)
|
||||
jp nz, fail
|
||||
jp nexttest
|
||||
|
||||
; Test data is a argspec pointer in instrTBl followed by 2*3 bytes of CURARG
|
||||
; followed by the expected spit, 1 byte cnt + 4 bytes spits.
|
||||
.t1:
|
||||
.dw instrTBl+17*6 ; CCF
|
||||
.db 0, 0, 0
|
||||
.db 0, 0, 0
|
||||
.db 1, 0x3f, 0, 0, 0
|
||||
.t2:
|
||||
.dw instrTBl+10*6 ; AND (IX+0x42)
|
||||
.db 'x', 0x42, 0
|
||||
.db 0, 0, 0
|
||||
.db 3, 0xdd, 0xa6, 0x42, 0
|
||||
.t3:
|
||||
.dw instrTBl+13*6 ; BIT 4, (IX+3)
|
||||
.db 'N', 4, 0
|
||||
.db 'x', 3, 0
|
||||
.db 4, 0xdd, 0xcb, 0x03, 0x66
|
||||
.t4:
|
||||
.dw instrTBl+18*6 ; CP (IX+5)
|
||||
.db 'x', 5, 0
|
||||
.db 0, 0, 0
|
||||
.db 3, 0xdd, 0xbe, 0x05, 0
|
||||
.t5:
|
||||
.dw instrTBl+4*6 ; ADD A, (IX+5)
|
||||
.db 'A', 0, 0
|
||||
.db 'x', 5, 0
|
||||
.db 3, 0xdd, 0x86, 0x05, 0
|
||||
|
||||
testMatchArg:
|
||||
ld iy, .t1
|
||||
call .test
|
||||
ret
|
||||
|
||||
.test:
|
||||
ld hl, SPITBOWL
|
||||
ld a, (iy+2)
|
||||
ld (hl), a
|
||||
push iy \ pop de
|
||||
call intoDE
|
||||
push de \ pop ix
|
||||
ld a, (ix+1)
|
||||
call matchArg
|
||||
jp nz, fail
|
||||
ld a, (iy+3)
|
||||
ld (hl), a
|
||||
ld a, (ix+2)
|
||||
call matchArg
|
||||
jp nz, fail
|
||||
jp nexttest
|
||||
|
||||
; Test data is argspec pointer followed by two bytes: first bytes of our two
|
||||
; CURARG.
|
||||
.t1:
|
||||
.dw instrTBl+4*6 ; ADD A, (IX)
|
||||
.db 'A', 'x'
|
||||
|
||||
nexttest:
|
||||
ld a, (testNum)
|
||||
inc a
|
||||
ld (testNum), a
|
||||
ret
|
||||
|
||||
fail:
|
||||
ld a, (testNum)
|
||||
halt
|
||||
|
||||
testNum: .db 1
|
||||
|
||||
SPITCNT:
|
||||
.db 0
|
||||
SPITBOWL:
|
||||
.db 0, 0, 0, 0
|
||||
|
||||
DIREC_LASTVAL:
|
||||
.db 0, 0
|
||||
|
||||
RAMSTART:
|
||||
@ -19,24 +19,6 @@ ADC HL, DE
|
||||
ADC HL, HL
|
||||
ADC HL, SP
|
||||
ADD A, (HL)
|
||||
ADD A, (IX)
|
||||
ADD A, (IX+1)
|
||||
ADD A, (IX-1)
|
||||
ADD A, (IX+10)
|
||||
ADD A, (IX-10)
|
||||
ADD A, (IX+100)
|
||||
ADD A, (IX-100)
|
||||
ADD A, (IX+127)
|
||||
ADD A, (IX-127)
|
||||
ADD A, (IY)
|
||||
ADD A, (IY+1)
|
||||
ADD A, (IY-1)
|
||||
ADD A, (IY+10)
|
||||
ADD A, (IY-10)
|
||||
ADD A, (IY+100)
|
||||
ADD A, (IY-100)
|
||||
ADD A, (IY+127)
|
||||
ADD A, (IY-127)
|
||||
ADD A, B
|
||||
ADD A, C
|
||||
ADD A, D
|
||||
@ -64,7 +46,40 @@ ADD IY, BC
|
||||
ADD IY, DE
|
||||
ADD IY, IY
|
||||
ADD IY, SP
|
||||
ADD A, (IX)
|
||||
ADD A, (IX+1)
|
||||
ADD A, (IX-1)
|
||||
ADD A, (IX+10)
|
||||
ADD A, (IX-10)
|
||||
ADD A, (IX+100)
|
||||
ADD A, (IX-100)
|
||||
ADD A, (IX+127)
|
||||
ADD A, (IX-127)
|
||||
ADD A, (IY)
|
||||
ADD A, (IY+1)
|
||||
ADD A, (IY-1)
|
||||
ADD A, (IY+10)
|
||||
ADD A, (IY-10)
|
||||
ADD A, (IY+100)
|
||||
ADD A, (IY-100)
|
||||
ADD A, (IY+127)
|
||||
ADD A, (IY-127)
|
||||
AND (HL)
|
||||
AND B
|
||||
AND C
|
||||
AND D
|
||||
AND E
|
||||
AND H
|
||||
AND L
|
||||
AND A
|
||||
AND 1
|
||||
AND 2
|
||||
AND 4
|
||||
AND 8
|
||||
AND 16
|
||||
AND 32
|
||||
AND 64
|
||||
AND 128
|
||||
AND (IX+1)
|
||||
AND (IX-1)
|
||||
AND (IX+10)
|
||||
@ -81,99 +96,84 @@ AND (IY+100)
|
||||
AND (IY-100)
|
||||
AND (IY+127)
|
||||
AND (IY-127)
|
||||
AND B
|
||||
AND C
|
||||
AND D
|
||||
AND E
|
||||
AND H
|
||||
AND L
|
||||
AND A
|
||||
AND 1
|
||||
AND 2
|
||||
AND 4
|
||||
AND 8
|
||||
AND 16
|
||||
AND 32
|
||||
AND 64
|
||||
AND 128
|
||||
BIT 0, (HL)
|
||||
BIT 0, (IX)
|
||||
BIT 0, (IX+1)
|
||||
BIT 0, (IX-1)
|
||||
BIT 0, (IX+10)
|
||||
BIT 0, (IX-10)
|
||||
BIT 0, (IX+100)
|
||||
BIT 0, (IX-100)
|
||||
BIT 0, (IX+127)
|
||||
BIT 0, (IX-127)
|
||||
BIT 0, (IY)
|
||||
BIT 0, (IY+1)
|
||||
BIT 0, (IY-1)
|
||||
BIT 0, (IY+10)
|
||||
BIT 0, (IY-10)
|
||||
BIT 0, (IY+100)
|
||||
BIT 0, (IY-100)
|
||||
BIT 0, (IY+127)
|
||||
BIT 0, (IY-127)
|
||||
BIT 3, (HL)
|
||||
BIT 3, (IX)
|
||||
BIT 3, (IX+1)
|
||||
BIT 3, (IX-1)
|
||||
BIT 3, (IX+10)
|
||||
BIT 3, (IX-10)
|
||||
BIT 3, (IX+100)
|
||||
BIT 3, (IX-100)
|
||||
BIT 3, (IX+127)
|
||||
BIT 3, (IX-127)
|
||||
BIT 3, (IY)
|
||||
BIT 3, (IY+1)
|
||||
BIT 3, (IY-1)
|
||||
BIT 3, (IY+10)
|
||||
BIT 3, (IY-10)
|
||||
BIT 3, (IY+100)
|
||||
BIT 3, (IY-100)
|
||||
BIT 3, (IY+127)
|
||||
BIT 3, (IY-127)
|
||||
BIT 7, (HL)
|
||||
BIT 7, (IX)
|
||||
BIT 7, (IX+1)
|
||||
BIT 7, (IX-1)
|
||||
BIT 7, (IX+10)
|
||||
BIT 7, (IX-10)
|
||||
BIT 7, (IX+100)
|
||||
BIT 7, (IX-100)
|
||||
BIT 7, (IX+127)
|
||||
BIT 7, (IX-127)
|
||||
BIT 7, (IY)
|
||||
BIT 7, (IY+1)
|
||||
BIT 7, (IY-1)
|
||||
BIT 7, (IY+10)
|
||||
BIT 7, (IY-10)
|
||||
BIT 7, (IY+100)
|
||||
BIT 7, (IY-100)
|
||||
BIT 7, (IY+127)
|
||||
BIT 7, (IY-127)
|
||||
BIT 0, B
|
||||
BIT 0, C
|
||||
BIT 0, D
|
||||
BIT 0, E
|
||||
BIT 0, H
|
||||
BIT 0, L
|
||||
BIT 0, A
|
||||
BIT 3, B
|
||||
BIT 3, C
|
||||
BIT 3, D
|
||||
BIT 3, E
|
||||
BIT 3, H
|
||||
BIT 3, L
|
||||
BIT 3, A
|
||||
BIT 7, B
|
||||
BIT 7, C
|
||||
BIT 7, D
|
||||
BIT 7, E
|
||||
BIT 7, H
|
||||
BIT 7, L
|
||||
BIT 7, A
|
||||
BIT 1, (HL)
|
||||
BIT 2, (HL)
|
||||
BIT 4, (HL)
|
||||
BIT 1, (IX)
|
||||
BIT 1, (IX+1)
|
||||
BIT 1, (IX-1)
|
||||
BIT 1, (IX+10)
|
||||
BIT 1, (IX-10)
|
||||
BIT 1, (IX+100)
|
||||
BIT 1, (IX-100)
|
||||
BIT 1, (IX+127)
|
||||
BIT 1, (IX-127)
|
||||
BIT 2, (IX)
|
||||
BIT 2, (IX+1)
|
||||
BIT 2, (IX-1)
|
||||
BIT 2, (IX+10)
|
||||
BIT 2, (IX-10)
|
||||
BIT 2, (IX+100)
|
||||
BIT 2, (IX-100)
|
||||
BIT 2, (IX+127)
|
||||
BIT 2, (IX-127)
|
||||
BIT 4, (IX)
|
||||
BIT 4, (IX+1)
|
||||
BIT 4, (IX-1)
|
||||
BIT 4, (IX+10)
|
||||
BIT 4, (IX-10)
|
||||
BIT 4, (IX+100)
|
||||
BIT 4, (IX-100)
|
||||
BIT 4, (IX+127)
|
||||
BIT 4, (IX-127)
|
||||
BIT 1, (IY)
|
||||
BIT 1, (IY+1)
|
||||
BIT 1, (IY-1)
|
||||
BIT 1, (IY+10)
|
||||
BIT 1, (IY-10)
|
||||
BIT 1, (IY+100)
|
||||
BIT 1, (IY-100)
|
||||
BIT 1, (IY+127)
|
||||
BIT 1, (IY-127)
|
||||
BIT 2, (IY)
|
||||
BIT 2, (IY+1)
|
||||
BIT 2, (IY-1)
|
||||
BIT 2, (IY+10)
|
||||
BIT 2, (IY-10)
|
||||
BIT 2, (IY+100)
|
||||
BIT 2, (IY-100)
|
||||
BIT 2, (IY+127)
|
||||
BIT 2, (IY-127)
|
||||
BIT 4, (IY)
|
||||
BIT 4, (IY+1)
|
||||
BIT 4, (IY-1)
|
||||
BIT 4, (IY+10)
|
||||
BIT 4, (IY-10)
|
||||
BIT 4, (IY+100)
|
||||
BIT 4, (IY-100)
|
||||
BIT 4, (IY+127)
|
||||
BIT 4, (IY-127)
|
||||
BIT 1, B
|
||||
BIT 1, C
|
||||
BIT 1, D
|
||||
BIT 1, E
|
||||
BIT 1, H
|
||||
BIT 1, L
|
||||
BIT 1, A
|
||||
BIT 2, B
|
||||
BIT 2, C
|
||||
BIT 2, D
|
||||
BIT 2, E
|
||||
BIT 2, H
|
||||
BIT 2, L
|
||||
BIT 2, A
|
||||
BIT 4, B
|
||||
BIT 4, C
|
||||
BIT 4, D
|
||||
BIT 4, E
|
||||
BIT 4, H
|
||||
BIT 4, L
|
||||
BIT 4, A
|
||||
CALL Z, 1
|
||||
CALL Z, 2
|
||||
CALL Z, 4
|
||||
@ -320,6 +320,21 @@ CALL 16384
|
||||
CALL 32768
|
||||
CCF
|
||||
CP (HL)
|
||||
CP B
|
||||
CP C
|
||||
CP D
|
||||
CP E
|
||||
CP H
|
||||
CP L
|
||||
CP A
|
||||
CP 1
|
||||
CP 2
|
||||
CP 4
|
||||
CP 8
|
||||
CP 16
|
||||
CP 32
|
||||
CP 64
|
||||
CP 128
|
||||
CP (IX)
|
||||
CP (IX+1)
|
||||
CP (IX-1)
|
||||
@ -338,21 +353,6 @@ CP (IY+100)
|
||||
CP (IY-100)
|
||||
CP (IY+127)
|
||||
CP (IY-127)
|
||||
CP B
|
||||
CP C
|
||||
CP D
|
||||
CP E
|
||||
CP H
|
||||
CP L
|
||||
CP A
|
||||
CP 1
|
||||
CP 2
|
||||
CP 4
|
||||
CP 8
|
||||
CP 16
|
||||
CP 32
|
||||
CP 64
|
||||
CP 128
|
||||
CPD
|
||||
CPDR
|
||||
CPI
|
||||
@ -360,6 +360,7 @@ CPIR
|
||||
CPL
|
||||
DAA
|
||||
DEC (HL)
|
||||
DEC IX
|
||||
DEC (IX)
|
||||
DEC (IX+1)
|
||||
DEC (IX-1)
|
||||
@ -369,6 +370,7 @@ DEC (IX+100)
|
||||
DEC (IX-100)
|
||||
DEC (IX+127)
|
||||
DEC (IX-127)
|
||||
DEC IY
|
||||
DEC (IY)
|
||||
DEC (IY+1)
|
||||
DEC (IY-1)
|
||||
@ -378,8 +380,6 @@ DEC (IY+100)
|
||||
DEC (IY-100)
|
||||
DEC (IY+127)
|
||||
DEC (IY-127)
|
||||
DEC IX
|
||||
DEC IY
|
||||
DEC B
|
||||
DEC C
|
||||
DEC D
|
||||
@ -433,6 +433,7 @@ IN H, (C)
|
||||
IN L, (C)
|
||||
IN A, (C)
|
||||
INC (HL)
|
||||
INC IX
|
||||
INC (IX)
|
||||
INC (IX+1)
|
||||
INC (IX-1)
|
||||
@ -442,6 +443,7 @@ INC (IX+100)
|
||||
INC (IX-100)
|
||||
INC (IX+127)
|
||||
INC (IX-127)
|
||||
INC IY
|
||||
INC (IY)
|
||||
INC (IY+1)
|
||||
INC (IY-1)
|
||||
@ -451,8 +453,6 @@ INC (IY+100)
|
||||
INC (IY-100)
|
||||
INC (IY+127)
|
||||
INC (IY-127)
|
||||
INC IX
|
||||
INC IY
|
||||
INC B
|
||||
INC C
|
||||
INC D
|
||||
@ -468,8 +468,6 @@ IND
|
||||
INDR
|
||||
INI
|
||||
INIR
|
||||
JP (IX)
|
||||
JP (IY)
|
||||
JP (HL)
|
||||
JP Z, 1
|
||||
JP Z, 2
|
||||
@ -615,6 +613,8 @@ JP 4096
|
||||
JP 8192
|
||||
JP 16384
|
||||
JP 32768
|
||||
JP (IX)
|
||||
JP (IY)
|
||||
JR $+1
|
||||
JR $+2
|
||||
JR $+4
|
||||
@ -1576,6 +1576,21 @@ LDIR
|
||||
NEG
|
||||
NOP
|
||||
OR (HL)
|
||||
OR B
|
||||
OR C
|
||||
OR D
|
||||
OR E
|
||||
OR H
|
||||
OR L
|
||||
OR A
|
||||
OR 1
|
||||
OR 2
|
||||
OR 4
|
||||
OR 8
|
||||
OR 16
|
||||
OR 32
|
||||
OR 64
|
||||
OR 128
|
||||
OR (IX)
|
||||
OR (IX+1)
|
||||
OR (IX-1)
|
||||
@ -1594,21 +1609,6 @@ OR (IY+100)
|
||||
OR (IY-100)
|
||||
OR (IY+127)
|
||||
OR (IY-127)
|
||||
OR B
|
||||
OR C
|
||||
OR D
|
||||
OR E
|
||||
OR H
|
||||
OR L
|
||||
OR A
|
||||
OR 1
|
||||
OR 2
|
||||
OR 4
|
||||
OR 8
|
||||
OR 16
|
||||
OR 32
|
||||
OR 64
|
||||
OR 128
|
||||
OTDR
|
||||
OTIR
|
||||
OUT (1), A
|
||||
@ -1638,84 +1638,84 @@ PUSH BC
|
||||
PUSH DE
|
||||
PUSH HL
|
||||
PUSH AF
|
||||
RES 0, (HL)
|
||||
RES 0, (IX)
|
||||
RES 0, (IX+1)
|
||||
RES 0, (IX-1)
|
||||
RES 0, (IX+10)
|
||||
RES 0, (IX-10)
|
||||
RES 0, (IX+100)
|
||||
RES 0, (IX-100)
|
||||
RES 0, (IX+127)
|
||||
RES 0, (IX-127)
|
||||
RES 0, (IY)
|
||||
RES 0, (IY+1)
|
||||
RES 0, (IY-1)
|
||||
RES 0, (IY+10)
|
||||
RES 0, (IY-10)
|
||||
RES 0, (IY+100)
|
||||
RES 0, (IY-100)
|
||||
RES 0, (IY+127)
|
||||
RES 0, (IY-127)
|
||||
RES 3, (HL)
|
||||
RES 3, (IX)
|
||||
RES 3, (IX+1)
|
||||
RES 3, (IX-1)
|
||||
RES 3, (IX+10)
|
||||
RES 3, (IX-10)
|
||||
RES 3, (IX+100)
|
||||
RES 3, (IX-100)
|
||||
RES 3, (IX+127)
|
||||
RES 3, (IX-127)
|
||||
RES 3, (IY)
|
||||
RES 3, (IY+1)
|
||||
RES 3, (IY-1)
|
||||
RES 3, (IY+10)
|
||||
RES 3, (IY-10)
|
||||
RES 3, (IY+100)
|
||||
RES 3, (IY-100)
|
||||
RES 3, (IY+127)
|
||||
RES 3, (IY-127)
|
||||
RES 7, (HL)
|
||||
RES 7, (IX)
|
||||
RES 7, (IX+1)
|
||||
RES 7, (IX-1)
|
||||
RES 7, (IX+10)
|
||||
RES 7, (IX-10)
|
||||
RES 7, (IX+100)
|
||||
RES 7, (IX-100)
|
||||
RES 7, (IX+127)
|
||||
RES 7, (IX-127)
|
||||
RES 7, (IY)
|
||||
RES 7, (IY+1)
|
||||
RES 7, (IY-1)
|
||||
RES 7, (IY+10)
|
||||
RES 7, (IY-10)
|
||||
RES 7, (IY+100)
|
||||
RES 7, (IY-100)
|
||||
RES 7, (IY+127)
|
||||
RES 7, (IY-127)
|
||||
RES 0, B
|
||||
RES 0, C
|
||||
RES 0, D
|
||||
RES 0, E
|
||||
RES 0, H
|
||||
RES 0, L
|
||||
RES 0, A
|
||||
RES 3, B
|
||||
RES 3, C
|
||||
RES 3, D
|
||||
RES 3, E
|
||||
RES 3, H
|
||||
RES 3, L
|
||||
RES 3, A
|
||||
RES 7, B
|
||||
RES 7, C
|
||||
RES 7, D
|
||||
RES 7, E
|
||||
RES 7, H
|
||||
RES 7, L
|
||||
RES 7, A
|
||||
RES 1, (HL)
|
||||
RES 2, (HL)
|
||||
RES 4, (HL)
|
||||
RES 1, (IX)
|
||||
RES 1, (IX+1)
|
||||
RES 1, (IX-1)
|
||||
RES 1, (IX+10)
|
||||
RES 1, (IX-10)
|
||||
RES 1, (IX+100)
|
||||
RES 1, (IX-100)
|
||||
RES 1, (IX+127)
|
||||
RES 1, (IX-127)
|
||||
RES 2, (IX)
|
||||
RES 2, (IX+1)
|
||||
RES 2, (IX-1)
|
||||
RES 2, (IX+10)
|
||||
RES 2, (IX-10)
|
||||
RES 2, (IX+100)
|
||||
RES 2, (IX-100)
|
||||
RES 2, (IX+127)
|
||||
RES 2, (IX-127)
|
||||
RES 4, (IX)
|
||||
RES 4, (IX+1)
|
||||
RES 4, (IX-1)
|
||||
RES 4, (IX+10)
|
||||
RES 4, (IX-10)
|
||||
RES 4, (IX+100)
|
||||
RES 4, (IX-100)
|
||||
RES 4, (IX+127)
|
||||
RES 4, (IX-127)
|
||||
RES 1, (IY)
|
||||
RES 1, (IY+1)
|
||||
RES 1, (IY-1)
|
||||
RES 1, (IY+10)
|
||||
RES 1, (IY-10)
|
||||
RES 1, (IY+100)
|
||||
RES 1, (IY-100)
|
||||
RES 1, (IY+127)
|
||||
RES 1, (IY-127)
|
||||
RES 2, (IY)
|
||||
RES 2, (IY+1)
|
||||
RES 2, (IY-1)
|
||||
RES 2, (IY+10)
|
||||
RES 2, (IY-10)
|
||||
RES 2, (IY+100)
|
||||
RES 2, (IY-100)
|
||||
RES 2, (IY+127)
|
||||
RES 2, (IY-127)
|
||||
RES 4, (IY)
|
||||
RES 4, (IY+1)
|
||||
RES 4, (IY-1)
|
||||
RES 4, (IY+10)
|
||||
RES 4, (IY-10)
|
||||
RES 4, (IY+100)
|
||||
RES 4, (IY-100)
|
||||
RES 4, (IY+127)
|
||||
RES 4, (IY-127)
|
||||
RES 1, B
|
||||
RES 1, C
|
||||
RES 1, D
|
||||
RES 1, E
|
||||
RES 1, H
|
||||
RES 1, L
|
||||
RES 1, A
|
||||
RES 2, B
|
||||
RES 2, C
|
||||
RES 2, D
|
||||
RES 2, E
|
||||
RES 2, H
|
||||
RES 2, L
|
||||
RES 2, A
|
||||
RES 4, B
|
||||
RES 4, C
|
||||
RES 4, D
|
||||
RES 4, E
|
||||
RES 4, H
|
||||
RES 4, L
|
||||
RES 4, A
|
||||
RET
|
||||
RET Z
|
||||
RET NZ
|
||||
@ -1734,25 +1734,6 @@ RL E
|
||||
RL H
|
||||
RL L
|
||||
RL A
|
||||
RL (HL)
|
||||
RL (IX)
|
||||
RL (IX+1)
|
||||
RL (IX-1)
|
||||
RL (IX+10)
|
||||
RL (IX-10)
|
||||
RL (IX+100)
|
||||
RL (IX-100)
|
||||
RL (IX+127)
|
||||
RL (IX-127)
|
||||
RL (IY)
|
||||
RL (IY+1)
|
||||
RL (IY-1)
|
||||
RL (IY+10)
|
||||
RL (IY-10)
|
||||
RL (IY+100)
|
||||
RL (IY-100)
|
||||
RL (IY+127)
|
||||
RL (IY-127)
|
||||
RLA
|
||||
RLC B
|
||||
RLC C
|
||||
@ -1769,25 +1750,6 @@ RR E
|
||||
RR H
|
||||
RR L
|
||||
RR A
|
||||
RR (HL)
|
||||
RR (IX)
|
||||
RR (IX+1)
|
||||
RR (IX-1)
|
||||
RR (IX+10)
|
||||
RR (IX-10)
|
||||
RR (IX+100)
|
||||
RR (IX-100)
|
||||
RR (IX+127)
|
||||
RR (IX-127)
|
||||
RR (IY)
|
||||
RR (IY+1)
|
||||
RR (IY-1)
|
||||
RR (IY+10)
|
||||
RR (IY-10)
|
||||
RR (IY+100)
|
||||
RR (IY-100)
|
||||
RR (IY+127)
|
||||
RR (IY-127)
|
||||
RRA
|
||||
RRC B
|
||||
RRC C
|
||||
@ -1810,84 +1772,84 @@ SBC HL, DE
|
||||
SBC HL, HL
|
||||
SBC HL, SP
|
||||
SCF
|
||||
SET 0, (HL)
|
||||
SET 0, (IX)
|
||||
SET 0, (IX+1)
|
||||
SET 0, (IX-1)
|
||||
SET 0, (IX+10)
|
||||
SET 0, (IX-10)
|
||||
SET 0, (IX+100)
|
||||
SET 0, (IX-100)
|
||||
SET 0, (IX+127)
|
||||
SET 0, (IX-127)
|
||||
SET 0, (IY)
|
||||
SET 0, (IY+1)
|
||||
SET 0, (IY-1)
|
||||
SET 0, (IY+10)
|
||||
SET 0, (IY-10)
|
||||
SET 0, (IY+100)
|
||||
SET 0, (IY-100)
|
||||
SET 0, (IY+127)
|
||||
SET 0, (IY-127)
|
||||
SET 3, (HL)
|
||||
SET 3, (IX)
|
||||
SET 3, (IX+1)
|
||||
SET 3, (IX-1)
|
||||
SET 3, (IX+10)
|
||||
SET 3, (IX-10)
|
||||
SET 3, (IX+100)
|
||||
SET 3, (IX-100)
|
||||
SET 3, (IX+127)
|
||||
SET 3, (IX-127)
|
||||
SET 3, (IY)
|
||||
SET 3, (IY+1)
|
||||
SET 3, (IY-1)
|
||||
SET 3, (IY+10)
|
||||
SET 3, (IY-10)
|
||||
SET 3, (IY+100)
|
||||
SET 3, (IY-100)
|
||||
SET 3, (IY+127)
|
||||
SET 3, (IY-127)
|
||||
SET 7, (HL)
|
||||
SET 7, (IX)
|
||||
SET 7, (IX+1)
|
||||
SET 7, (IX-1)
|
||||
SET 7, (IX+10)
|
||||
SET 7, (IX-10)
|
||||
SET 7, (IX+100)
|
||||
SET 7, (IX-100)
|
||||
SET 7, (IX+127)
|
||||
SET 7, (IX-127)
|
||||
SET 7, (IY)
|
||||
SET 7, (IY+1)
|
||||
SET 7, (IY-1)
|
||||
SET 7, (IY+10)
|
||||
SET 7, (IY-10)
|
||||
SET 7, (IY+100)
|
||||
SET 7, (IY-100)
|
||||
SET 7, (IY+127)
|
||||
SET 7, (IY-127)
|
||||
SET 0, B
|
||||
SET 0, C
|
||||
SET 0, D
|
||||
SET 0, E
|
||||
SET 0, H
|
||||
SET 0, L
|
||||
SET 0, A
|
||||
SET 3, B
|
||||
SET 3, C
|
||||
SET 3, D
|
||||
SET 3, E
|
||||
SET 3, H
|
||||
SET 3, L
|
||||
SET 3, A
|
||||
SET 7, B
|
||||
SET 7, C
|
||||
SET 7, D
|
||||
SET 7, E
|
||||
SET 7, H
|
||||
SET 7, L
|
||||
SET 7, A
|
||||
SET 1, (HL)
|
||||
SET 2, (HL)
|
||||
SET 4, (HL)
|
||||
SET 1, (IX)
|
||||
SET 1, (IX+1)
|
||||
SET 1, (IX-1)
|
||||
SET 1, (IX+10)
|
||||
SET 1, (IX-10)
|
||||
SET 1, (IX+100)
|
||||
SET 1, (IX-100)
|
||||
SET 1, (IX+127)
|
||||
SET 1, (IX-127)
|
||||
SET 2, (IX)
|
||||
SET 2, (IX+1)
|
||||
SET 2, (IX-1)
|
||||
SET 2, (IX+10)
|
||||
SET 2, (IX-10)
|
||||
SET 2, (IX+100)
|
||||
SET 2, (IX-100)
|
||||
SET 2, (IX+127)
|
||||
SET 2, (IX-127)
|
||||
SET 4, (IX)
|
||||
SET 4, (IX+1)
|
||||
SET 4, (IX-1)
|
||||
SET 4, (IX+10)
|
||||
SET 4, (IX-10)
|
||||
SET 4, (IX+100)
|
||||
SET 4, (IX-100)
|
||||
SET 4, (IX+127)
|
||||
SET 4, (IX-127)
|
||||
SET 1, (IY)
|
||||
SET 1, (IY+1)
|
||||
SET 1, (IY-1)
|
||||
SET 1, (IY+10)
|
||||
SET 1, (IY-10)
|
||||
SET 1, (IY+100)
|
||||
SET 1, (IY-100)
|
||||
SET 1, (IY+127)
|
||||
SET 1, (IY-127)
|
||||
SET 2, (IY)
|
||||
SET 2, (IY+1)
|
||||
SET 2, (IY-1)
|
||||
SET 2, (IY+10)
|
||||
SET 2, (IY-10)
|
||||
SET 2, (IY+100)
|
||||
SET 2, (IY-100)
|
||||
SET 2, (IY+127)
|
||||
SET 2, (IY-127)
|
||||
SET 4, (IY)
|
||||
SET 4, (IY+1)
|
||||
SET 4, (IY-1)
|
||||
SET 4, (IY+10)
|
||||
SET 4, (IY-10)
|
||||
SET 4, (IY+100)
|
||||
SET 4, (IY-100)
|
||||
SET 4, (IY+127)
|
||||
SET 4, (IY-127)
|
||||
SET 1, B
|
||||
SET 1, C
|
||||
SET 1, D
|
||||
SET 1, E
|
||||
SET 1, H
|
||||
SET 1, L
|
||||
SET 1, A
|
||||
SET 2, B
|
||||
SET 2, C
|
||||
SET 2, D
|
||||
SET 2, E
|
||||
SET 2, H
|
||||
SET 2, L
|
||||
SET 2, A
|
||||
SET 4, B
|
||||
SET 4, C
|
||||
SET 4, D
|
||||
SET 4, E
|
||||
SET 4, H
|
||||
SET 4, L
|
||||
SET 4, A
|
||||
SLA B
|
||||
SLA C
|
||||
SLA D
|
||||
@ -1902,25 +1864,6 @@ SRL E
|
||||
SRL H
|
||||
SRL L
|
||||
SRL A
|
||||
SRL (HL)
|
||||
SRL (IX)
|
||||
SRL (IX+1)
|
||||
SRL (IX-1)
|
||||
SRL (IX+10)
|
||||
SRL (IX-10)
|
||||
SRL (IX+100)
|
||||
SRL (IX-100)
|
||||
SRL (IX+127)
|
||||
SRL (IX-127)
|
||||
SRL (IY)
|
||||
SRL (IY+1)
|
||||
SRL (IY-1)
|
||||
SRL (IY+10)
|
||||
SRL (IY-10)
|
||||
SRL (IY+100)
|
||||
SRL (IY-100)
|
||||
SRL (IY+127)
|
||||
SRL (IY-127)
|
||||
SUB (HL)
|
||||
SUB B
|
||||
SUB C
|
||||
|
||||
Binary file not shown.
@ -56,12 +56,6 @@ argGrpTbl = {
|
||||
chr(0x0b): "BCDEHLA",
|
||||
}
|
||||
|
||||
# whenever we encounter the "(HL)" version of these instructions, spit IX/IY
|
||||
# too.
|
||||
instrsWithIXY = {
|
||||
'ADD', 'AND', 'BIT', 'CP', 'DEC', 'INC', 'OR', 'RES', 'RL', 'RR', 'SET',
|
||||
'SRL'}
|
||||
|
||||
def cleanupLine(line):
|
||||
line = line.strip()
|
||||
idx = line.rfind(';')
|
||||
@ -113,8 +107,6 @@ def genargs(argspec):
|
||||
return result
|
||||
if argspec in argspecTbl:
|
||||
return [argspecTbl[argspec]]
|
||||
if argspec == chr(0xc): # special BIT "b" group
|
||||
return ['0', '3', '7']
|
||||
grp = argGrpTbl[argspec]
|
||||
return [argspecTbl[a] for a in grp]
|
||||
|
||||
@ -139,14 +131,13 @@ def main():
|
||||
a2 = eval(row[2])
|
||||
args1 = genargs(a1)
|
||||
# special case handling
|
||||
if n in instrsWithIXY and a1 == 'l':
|
||||
args1 += genargs('x')
|
||||
args1 += genargs('y')
|
||||
|
||||
if n == 'JP' and isinstance(a1, str) and a1 in 'xy':
|
||||
# we don't test the displacements for IX/IY because there can't be
|
||||
# any.
|
||||
args1 = args1[:1]
|
||||
if n in {'BIT', 'SET', 'RES'}:
|
||||
# we only want to keep 1, 2, 4
|
||||
args1 = args1[:3]
|
||||
if n in {'JR', 'DJNZ'} and a1 == 'n':
|
||||
args1 = eargs(args1)
|
||||
if n == 'IM':
|
||||
@ -154,9 +145,6 @@ def main():
|
||||
if args1:
|
||||
for arg1 in args1:
|
||||
args2 = genargs(a2)
|
||||
if n in instrsWithIXY and a2 == 'l':
|
||||
args2 += genargs('x')
|
||||
args2 += genargs('y')
|
||||
if args2:
|
||||
if n in {'JR', 'DJNZ'} and a2 == 'n':
|
||||
args2 = eargs(args2)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user