contrib/pep8analysis/tests/privat/08-varlocales.pep

   1 ; Programme qui réserve des variables locales
   2 ; Jean Privat (c) 2010
   3          LDA     1,i
   4          LDX     2,i
   5          CALL    fun
   6          STOP
   7 ;
   8 fun:     SUBSP   4,i         ; réserver #funVar1 #funVar2
   9          STA     funVar1,s   ; funVar1 = A
  10          STX     funVar2,s   ; funVar2 = X
  11 ;        ...
  12          ADDSP   4,i         ; réréserver #funVar1 #funVar2
  13          RET0
  14 funVar1: .EQUATE 2           ; variable locale #2d
  15 funVar2: .EQUATE 0           ; variable locale #2d
  16          .END