22 lines
397 B
Text
22 lines
397 B
Text
.ORIG 0x3000
|
|
|
|
LEA R1,SRC
|
|
LEA R2,COPY
|
|
|
|
LOOP LDR R3,R1,0
|
|
STR R3,R2,0
|
|
BRZ DONE
|
|
ADD R1,R1,1
|
|
ADD R2,R2,1
|
|
BRNZP LOOP
|
|
|
|
DONE LEA R0,COPY
|
|
PUTS
|
|
|
|
HALT
|
|
|
|
SRC .STRINGZ "What, has this thing appeared again tonight?"
|
|
|
|
COPY .BLKW 128
|
|
|
|
.END
|