DPRINT
         PLA
         STA   RETADR
         PLA
         STA   RETADR+1
         PLA
         STA   ADDR1
         PLA
         STA   ADDR1+1
         LDY   #$00
:LOOP
         LDA   (ADDR1),Y
         BEQ   :EXIT
         JSR   COUT1
         INY
         BNE   :LOOP
:EXIT
         LDA   RETADR+1
         PHA
         LDA   RETADR
         PHA
         RTS