;File: fig0512.pep
;Computer Systems, Fourth Edition
;Figure 5.12
;
         BR      0x000D      ;Branch around data
         .BLOCK  2           ;Storage for one integer
         .ASCII  " + 1 = \x00"
;
         DECI    0x0003,d    ;Get the number
         DECO    0x0003,d    ;and output it
         STRO    0x0005,d    ;Output " + 1 = "
         LDA     0x0003,d    ;A <- the number
         ADDA    1,i         ;Add one to it
         STA     0x0003,d    ;Store the sum
         DECO    0x0003,d    ;Output the sum
         STOP                
         .END                  
