**************************************************************
*                                                            *
*  Flat-Real-Mode + X/Y Modes trial by Jedi from Sector One  *
*   To be assembled by GEMA the best tool for heavy code !   *
*                                                            *
**************************************************************

        header
        real

* The following line calls the initFRM routine that sets your CPU in FRM.
* This is not needed by this ugly demo, but such a routine is always very
* useful. If you just want to test it despite a running memory manager such as
* EMM or QEMM, just comment or the following line.

;        bsr initFRM

hop     intoff
        bsr xmode
        move #$a000,d
        move d,es

        d+

nioc    bsr vsync
        move #80*240,c

        xor di,di
.tutu   stos.b
        inc.b a
        dbf .tutu
        inc.b a

* Press [Escape] to logout !

        move.b a,d
        in.b #$60,a
        cmp.b #129,a
        beq.s outta
        move.b d,a

        bra nioc

outta   bsr txtmode

        inton
        move #$4c00,a
        trap #$21

        include xymode.si
        include frm.si

* Don't forget the stack

        segment
        ds.l 128
        stack