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

   1 ; Exemple simple d'empilage et de dépilage
   2 ; Jean Privat (c) 2011
   3          CALL    main
   4          STOP
   5 main:    SUBSP   2,i         ; empile un mot #a
   6          LDA     10,i
   7          STA     0,s
   8 ;
   9          SUBSP   2,i         ; empile un autre mot #b
  10          LDA     20,i
  11          STA     0,s
  12 ;
  13          DECO    0,s
  14          DECO    2,s
  15 ;
  16          ADDSP   2,i         ; dépile un mot #b
  17          DECO    0,s
  18 ;
  19          ADDSP   2,i         ; dépile un mot #a
  20          RET0
  21 a:       .EQUATE 0           ; #2d symbole utilisé pour activer le débogueur de Pep/8
  22 b:       .EQUATE 0           ; #2d symbole utilisé pour activer le débogueur de Pep/8
  23          .END