home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / asm_programming / EXAMPLE.S < prev    next >
Encoding:
Text File  |  1995-11-12  |  1.3 KB  |  59 lines
  1.  
  2. **************************************************************
  3. *                                                            *
  4. *  Flat-Real-Mode + X/Y Modes trial by Jedi from Sector One  *
  5. *   To be assembled by GEMA the best tool for heavy code !   *
  6. *                                                            *
  7. **************************************************************
  8.  
  9.         header
  10.         real
  11.  
  12. * The following line calls the initFRM routine that sets your CPU in FRM.
  13. * This is not needed by this ugly demo, but such a routine is always very
  14. * useful. If you just want to test it despite a running memory manager such as
  15. * EMM or QEMM, just comment or the following line.
  16.  
  17. ;        bsr initFRM
  18.  
  19. hop     intoff
  20.         bsr xmode
  21.         move #$a000,d
  22.         move d,es
  23.  
  24.         d+
  25.  
  26. nioc    bsr vsync
  27.         move #80*240,c
  28.  
  29.         xor di,di
  30. .tutu   stos.b
  31.         inc.b a
  32.         dbf .tutu
  33.         inc.b a
  34.  
  35. * Press [Escape] to logout !
  36.  
  37.         move.b a,d
  38.         in.b #$60,a
  39.         cmp.b #129,a
  40.         beq.s outta
  41.         move.b d,a
  42.  
  43.         bra nioc
  44.  
  45. outta   bsr txtmode
  46.  
  47.         inton
  48.         move #$4c00,a
  49.         trap #$21
  50.  
  51.         include xymode.si
  52.         include frm.si
  53.  
  54. * Don't forget the stack
  55.  
  56.         segment
  57.         ds.l 128
  58.         stack
  59.