home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !MAGS / INSIDENF / IINFO54.ZIP / IINFO54.MSA / PROGRAMS_68KTOGFA_ROUTINE.S < prev    next >
Text File  |  1987-04-21  |  971b  |  21 lines
  1.  
  2.  ;**************************************************
  3.  ;* An example 68000 Routine to Invert your Screen *
  4.  ;* This Routine should be called from GFA-BASIC   *
  5.  ;**************************************************
  6.  
  7. start         pea inverter(pc)     ;Push Address of Routine
  8.               move.w #38,-(sp)     ;XBIOS Superx Function
  9.               trap #14             ;And Call it in Supervisor Mode
  10.               addq.l #6,sp         ;Tidy Stack
  11. exit          rts                  ;& Return Control to GFA-BASIC
  12.  
  13. inverter      move.l $44e,a0       ;Get Screen Address
  14.               moveq #0,d0          ;Clear D0
  15.               move.b #$7d,d0
  16.               rol.w #8,d0          ;Setup 32000 Size in D0 
  17. invertloop    not.l 0(a0,d0.l)     ;Invert Longword
  18.               subq.l #4,d0         ;Decrement Size by Longword
  19.               bpl.s invertloop     ;Do this until 32000 Bytes Inverted
  20.               rts                  ;Return to exit above
  21.