; printf header
%pragma once
bits 16

; Set :: int8 *dst -> int8 ch -> int16 n -> void
%define set(x,y,z)  _set x,y,z

%macro _set 3
  mov ax,%3
  push ax
  mov ax,%2
  push ax
  mov ax,%1
  push ax
  call Set
  add sp,0x0006
%endmacro

%macro breakpoint 0
   %%loop:
      nop
      jmp %%loop
%endmacro

; pf :: int8 *fmt -> ... -> void
%macro pf 1
    jmp %%begin
 %%fmtstr:
    db %1
    db 0x00

 %%begin:
    mov ax,%%fmtstr
    push ax
    call Printf
    add sp,0x02
%endmacro

%macro pf 2
    mov ax,%2
    push ax
    pf %1
    add sp,0x02
%endmacro

%macro pf 3
    mov ax,%3
    push ax
    mov ax,%2
    push ax
    pf %1
    add sp,0x04
%endmacro

%macro pf 4
    mov ax,%4
    push ax
    mov ax,%3
    push ax
    mov ax,%2
    push ax
    pf %1
    add sp,0x06
%endmacro

%macro pf 5
    mov ax,%5
    push ax
    mov ax,%4
    push ax
    mov ax,%3
    push ax
    mov ax,%2
    push ax
    pf %1
    add sp,0x06
%endmacro

%ifdef psasm
    global Putcharrm
    global Putcharpm
    global Move
    global Set
    global Length
    global Printf
    global Putstring
%else
   extern Putcharrm
   extern Putcharpm
   extern Move
   extern Set
   extern Length
   extern Printf
   extern Putstring
%endif
%define Putchar     Putcharpm