; Pseudo-Instruction: fill bytes until offset
%macro pad 1.nolist
times (%1 - ($-$$)) nop
%endmacro

; REGISTERS
%define a al
%define b ch
%define c cl
%define d dh
%define e dl
%define h bh
%define l bl
%define m byte [bx]

; REGISTER PAIRS
%define bc cx
%define de dx
%define hl bx

; INSTRUCTIONS
; data movement
; 'mov' can stay literal
%define mvi mov
%define lxi mov
%macro lda 1
  mov al, byte [%1]
%endmacro
%macro sta 1
  mov byte [%1], al
%endmacro
%macro lhld 1
  mov bx, word [%1]
%endmacro
%macro shld 1
  mov word [%1], bx
%endmacro
%macro ldax 1
  mov al, byte [%1]
%endmacro
%macro stax 1
  mov byte [%1], al
%endmacro
%macro xchg 1
  xchg dx, bx
%endmacro
; addition
%macro add 1
  add al, %1
%endmacro
%macro adi 1
  add al, %1
%endmacro
%macro adc 1
  adc al, %1
%endmacro
%macro aci 1
  adc al, %1
%endmacro
; subtraction
%macro sub 1
  sub al, %1
%endmacro
%macro sui 1
  sub al, %1
%endmacro
%macro sbb 1
  sub al, %1
%endmacro
%macro sbi 1
  sub al, %1
%endmacro
; increment / decrement
%define inr inc
%define dcr dec
%define inx inc
%define dcx dec
; pointer arithmetic
%macro dad 1
  add bx, %1
%endmacro
; 'daa' stays literal

;ANA S     10100SSS          ZSCPA   AND register with A
;ANI #     11100110 db       ZSPCA   AND immediate with A
;ORA S     10110SSS          ZSPCA   OR  register with A
;ORI #     11110110          ZSPCA   OR  immediate with A
;XRA S     10101SSS          ZSPCA   ExclusiveOR register with A
;XRI #     11101110 db       ZSPCA   ExclusiveOR immediate with A

;CMP S     10111SSS          ZSPCA   Compare register with A
;CPI #     11111110          ZSPCA   Compare immediate with A

;RLC       00000111          C       Rotate A left
;RRC       00001111          C       Rotate A right
;RAL       00010111          C       Rotate A left through carry
;RAR       00011111          C       Rotate A right through carry
;CMA       00101111          -       Compliment A
;CMC       00111111          C       Compliment Carry flag
;STC       00110111          C       Set Carry flag
;JMP a     11000011 lb hb    -       Unconditional jump
;Jccc a    11CCC010 lb hb    -       Conditional jump
;CALL a    11001101 lb hb    -       Unconditional subroutine call
;Cccc a    11CCC100 lb hb    -       Conditional subroutine call
;RET       11001001          -       Unconditional return from subroutine
;Rccc      11CCC000          -       Conditional return from subroutine
;RST n     11NNN111          -       Restart (Call n*8)
;PCHL      11101001          -       Jump to address in H:L
;PUSH RP   11RP0101 *2       -       Push register pair on the stack
;POP RP    11RP0001 *2       *2      Pop  register pair from the stack
;XTHL      11100011          -       Swap H:L with top word on stack
;SPHL      11111001          -       Set SP to content of H:L
;IN p      11011011 pa       -       Read input port into A
;OUT p     11010011 pa       -       Write A to output port
;EI        11111011          -       Enable interrupts
;DI        11110011          -       Disable interrupts
;HLT       01110110          -       Halt processor
;NOP       00000000          -       No operation

%macro cnz 1
  jz %%skip
  call near %1
%%skip:
%endmacro