File: paramcount.s

package info (click to toggle)
cc65 2.19-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 20,268 kB
  • sloc: ansic: 117,151; asm: 66,339; pascal: 4,248; makefile: 1,009; perl: 607
file content (20 lines) | stat: -rw-r--r-- 482 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
; Test ca65's handling of the .paramcount read-only variable.
; .paramcount should see all given arguments, even when they are empty.

.macro  push    r1, r2, r3, r4, r5, r6
        .out    .sprintf(" .paramcount = %u", .paramcount)
.if     .paramcount <> 0
.ifblank        r1
        .warning        "r1 is blank!"
.exitmacro
.endif
        lda     r1
        pha

        push    r2, r3, r4, r5, r6
.endif
.endmacro

        push    1, , {}
        push    1, ,
        push    1