// array elements defined with arithmatic operations
    byte oamaddrs[] = {$00*4, $08*4, $10*4, $18*4}

    // code with an arithmatic sizeof keyword
    clc
    adc #sizeof(SPR_OBJ)

    // use of the lo and hi keywords on an immediate integer passed as a macro param
    inline jsrind_imd(pproc)
    {
      lda #lo(pproc)
      ora #hi(pproc)
      if(not zero) {
        assign_16i(_jsrind_temp, pproc)
        jsrind_f()
      }
    }

    // use of the lo and hi keywords on a pointer variable passed as a macro param
    inline jsrind(pproc)
    {
      lda pproc + 0
      ora pproc + 1
      if(not zero) {
        assign_16_16(_jsrind_temp, pproc)
        jsrind_f()
      }
    }

PAD1_TEST           EQU $10     ; Используются для повторной проверки джойстика
PAD2_TEST           EQU $11
JOYPAD1             EQU $12     ; Значения кнопок для Joypad 1 (см. маску PAD_*)
JOYPAD2             EQU $13     ; Значения кнопок для Joypad 2 (см. маску PAD_*)

JOYPAD_PORT1        EQU $4016   ; Порты контроллеров
JOYPAD_PORT2        EQU $4017

PAD_A               EQU %10000000
PAD_B               EQU %01000000
PAD_SELECT          EQU %00100000
PAD_START           EQU %00010000
PAD_UP              EQU %00001000
PAD_DOWN            EQU %00000100
PAD_LEFT            EQU %00000010
PAD_RIGHT           EQU %00000001

; Прочитать кнопки контроллеров.
; Причем читаются два раза, и если два чтения не совпадают, то оно не засчитывается.
; Поместить результат в переменные JOYPAD1 и JOYPAD2 как битовую маску.
PAD_READ
    JSR     PAD_STROBE
    LDA     JOYPAD1
    STA     PAD1_TEST
    LDA     JOYPAD2
    STA     PAD2_TEST
    JSR     PAD_STROBE
    LDA     JOYPAD1
    CMP     PAD1_TEST
    BNE     PAD_DRE
    LDA     JOYPAD2
    CMP     PAD2_TEST
    BNE     PAD_DRE
    RTS
PAD_DRE                         ; Ошибка чтения (или ложное срабатывание, точно не понятно зачем читать по два раза)
    LDA     #0
    STA     JOYPAD1
    STA     JOYPAD2
    RTS

; Вспомогательная процедура для PAD_READ.
; Делаем 8 последовательных чтений, получаем 8 байт о состоянии кнопок.
; Чтобы было проще проверять пакуем эту информацию в 1 байт.
PAD_STROBE
    LDA     #1
    STA     JOYPAD_PORT1
    LDA     #0
    STA     JOYPAD_PORT1
    TAX
    LDY     #8
JOY1
    TXA
    ASL
    TAX
    LDA     JOYPAD_PORT1
    JSR     IS_PRESSED
    BNE     JOY1
    STX     JOYPAD1
    LDX     #0
    LDY     #8
JOY2
    TXA
    ASL
    TAX
    LDA     JOYPAD_PORT2
    JSR     IS_PRESSED
    BNE     JOY2
    STX     JOYPAD2
    RTS
IS_PRESSED
    AND     #3
    BEQ     NOT_PRESSED
    INX
NOT_PRESSED
    DEY
    RTS

; Проверка нажатий на кнопки.
    LDA     JOYPAD1
    AND     #PAD_SELECT
    BNE     SELECT_PRESSED      ; SELECT
    LDA     JOYPAD1
    AND     #PAD_UP
    BNE     UP_PRESSED          ; UP

if(AX==0) jmp Metka

void  Func(char a, short b, long c);

push DWORD PTR c
push WORD PTR b
push WORD PTR a
call Func