contrib/pep8analysis/tests/privat/05-simul_3n.pep

   1 ; Semaine 5
   2 ; Simulation de l'adressage indirect triple
   3 ; Jean Privat (C) 2010
   4 ;
   5 ; Expression à simuler (n'existe pas en Pep/8)
   6 ; CHARO b,3n ; mem[mem[mem[mem[b]]]]
   7 ;
   8 ; Simulation avec adressages immédiats et indexés
   9          LDX     b,i         ; X <- b
  10          LDX     0,x         ; X <- mem[X+0] = mem[b] = c
  11          LDX     0,x         ; X <- mem[X+0] = mem[c] = d
  12          LDX     0,x         ; X <- mem[X+0] = mem[d] = e
  13          CHARO   0,x         ; mem[X+0] = mem[e] = '!'
  14 ;
  15 ; Simulation avec adressages directs et indirects
  16          LDA     b,n         ; A <- mem[mem[b]] = mem[c] = d
  17          STA     ptr,d       ; mem[ptr] <- A = d
  18          LDA     ptr,n       ; A <- mem[mem[ptr]] = mem[d] = e
  19          STA     ptr,d       ; mem[ptr] <- A = e
  20          CHARO   ptr,n       ; mem[mem[ptr]] = mem[e] = '!'
  21 ;
  22          STOP
  23 b:       .ADDRSS c
  24 c:       .ADDRSS d
  25 d:       .ADDRSS e
  26 e:       .BYTE   '!'
  27 ptr:     .BLOCK  2           ; #2h
  28          .END