; NEXT Z80n extensions
; Use after DEFB 237 e.g.
; DEFB 237,MUL for MUL D,E
;
SWAPNIB EQU 35
MIRROR  EQU 36
TEST    EQU 39;+data byte
BSLA    EQU 40
BSRA    EQU 41
BSRL    EQU 42
BSRF    EQU 43
BRLC    EQU 44
MUL     EQU 48
ADDHL_A EQU 49
ADDDE_A EQU 50
ADDBC_A EQU 51
ADDHL_W EQU 52 ;Suffix W
ADDDE_W EQU 53 ;after DEFB
ADDBC_W EQU 54 ;e.g.DEFW W
PUSH_W  EQU 138;+HIGH,LOW
OUTINB  EQU 144
NEXTREG EQU 145;Suffix R,N
NEXTREGA EQU 146;Suffix N
PIXELDN EQU 147
PIXELAD EQU 148
SETAE   EQU 149
JP_BC   EQU 151
LDIX    EQU 164
LDWS    EQU 165
LDDX    EQU 172
LDIRX   EQU 180
LDPIRX  EQU 183
LDDRX   EQU 188
NEXTX   EQU 237 ;Prefix ED
;
; EXAMPLES
;
      ORG  44444
      DEFB NEXTX,NEXTREG
      DEFB 18,32
      DEFB NEXTX,NEXTREGA
      DEFB 19
      ENT
TEST1 LD   DE,516;D=2 E=4
      DEFB NEXTX,MUL;DE=8
      DEFB NEXTX,ADDDE_W
      DEFW 0-8
      PUSH DE ;Return 8-8
      JR   RETBC
;
;PUSH_W expects high byte
;first: to PUSH #ABCD use
      DEFB NEXTX,PUSH_W
      DEFW #CDAB ; or
TEST2 DEFB NEXTX,PUSH_W
      DEFB #AB,#CD
RETBC POP  BC    ;=43981
      RET

;THANKS Anthony Ball & Ped