Apple II User Manual

     40     INPUT "ENTER # BYTES " , B

     50     IF NOT B THEN 40 : REM AT LEAST 1

     60     POKE 778 , B : REM POKE LENGTH

     70     INPUT "ENTER DESTINATION " , A

     80     IF A > PEEK (203) - 1 THEN 70

     90     IF A < PEEK (205) + 1 THEN 70

     100    POKE 776 , A : REM POKE DESTINATION

     110    M = 8 : GOSUB 160 : REM DISPLAY

     120    CALL 768 : REM GOTO $0300

     130    M = A : GOSUB 160 : REM DISPLAY

     140    M = O : GOSUB 160 : REM DISPLAY

     150    PRINT : PRINT : GOTO 30

     160    POKE 60 , 0 : POKE 61 , M

     170    CALL -605 : RETURN : REM XAM8 IN MONITOR

Listing #2

     300:20 89 F6 11 00 08 12 00 00 13 00 00 41 52

         F3 07 FB 00 60

Listing #3

SWEET 16

     $300  20  89  F6   JSR    $F689

     $303  11  00  08   SET    R1  source address

     $306  12  00  00   SET    R2  destination address

                         A

     $309  13  00  00   SET    R3  length

                         B

     $30C  41           LD     @R1

     $30D  52           ST     @R2

     $30E  F3           DCR    R3

     $30F  07           BNZ    $30C

     $311  00           RTN

     $312  60           RTS

Data will be poked from the Integer Basic program:

          "A"       from Line 100

          "B"       from Line 60