SUBASIC/MACROS_STACK.inc at main · mengstr/SUBASIC · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
;--------------------------------------------------------------------------------------------

   .macro PUSH var
        DEC SP
        INDEXEDWR var SP
    .endm

;--------------------------------------------------------------------------------------------

    .macro POP var
        INDEXEDRD SP var
        INC SP
    .endm

;--------------------------------------------------------------------------------------------

  .macro CALL addr
        PUSH @ra
        JMP addr
@ra:    .data $+1
    .endm

;--------------------------------------------------------------------------------------------

    .macro RET
        POP @j
        .data 0,0
@j:     .data 0x555555
    .endm

;--------------------------------------------------------------------------------------------