********************************************************************************
* RAW.JS                                                                       *
* begonnen :07.05.1996 (c) Bastian Schick                                      *
********************************************************************************
* letzte Žnderung :                                                            *

GPU             set 1
                include "\bjl\js\macro\help.mac"


                org $f03f00
gfx_screen::    ds.l 1

                run $f03000


COUNTER         reg 0
ADDRESS         reg 1
LOOP0           reg 2
VALUE           reg 3

ADDRESS.a       reg 0

                movei #gfx_screen,ADDRESS
                load (ADDRESS),ADDRESS
                moveta ADDRESS,ADDRESS.a
                movei #.loop0,LOOP0
                xor VALUE,VALUE

.loop0          movefa ADDRESS.a,ADDRESS
                movei #320*200,COUNTER
.loop1          storew VALUE,(ADDRESS)
                subq #1,COUNTER
                addqt #1,VALUE
                jr nz,.loop1
                addq #2,ADDRESS
                jump (LOOP0)


