REM>dmesg
REM $Id$

DIM asm% 1024
FOR pass% = 0 TO 2 STEP 2
  P% = asm%
  [ OPT pass%
    SWI    "OS_EnterOS"
   .loop%
    LDR    R4, [R0], #4
    STR    R4, [R1], #4
    SUBS   R2, R2, #4
    BNE    loop%
    TEQP   R15, #0
    MOV    R0, R0
    MOV    PC, R14
  ]
NEXT

A% = &02090000
DIM B% &8000
C% = &8000
CALL asm%
IF B%!0 <> &063061 THEN END
bufx% = B%!4
bufr% = B%!8
bufs% = B%!12
buf% = B% + 16

h% = OPENOUT "dmesg/out"
OSCLI "SetType dmesg/out Text"

IF bufr% < bufx% THEN
  i% = bufr%
  WHILE i% < bufx%
    BPUT#h%, buf%?i%
    i% += 1
  ENDWHILE
ELSE
  i% = bufr%
  WHILE i% < bufs%
    BPUT#h%, buf%?i%
    i% += 1
  ENDWHILE
  i% = 0
  WHILE i% < bufx%
    BPUT#h%, buf%?i%
    i% += 1
  ENDWHILE
ENDIF

CLOSE#h%