home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1989 / USER1089.MSA / MED_LOW.S < prev    next >
Text File  |  1985-11-19  |  1KB  |  44 lines
  1. * AUTO program to select medium
  2. * or low resolution screen mode
  3. * By R.A.Waddilove
  4. * (c) Atari St User
  5.  
  6.   PEA prompt(PC)   Print prompt
  7.   MOVE.W #9,-(A7)
  8.   TRAP #1          BDOS 9
  9.   ADD.L #6,A7      Tidy stack
  10. input
  11.   MOVE.W #8,-(A7)  Wait for key
  12.   TRAP #1          BDOS 8
  13.   ADD.L #2,A7      Tidy stack
  14.   AND.W #$DF,D0    Force upper case
  15.   CMP.W #'L',D0    L pressed?
  16.   BEQ low          Yes
  17.   CMP.W #'M',D0    M pressed?
  18.   BNE input        No - goto input
  19.   MOVE.W #1,-(A7)  Set medium res.
  20.   BRA exit         Skip next bit
  21. low
  22.   MOVE.W #0,-(A7)  Set low res.
  23. exit
  24.   MOVE.L #-1,-(A7) Dummy parameter
  25.   MOVE.L #-1,-(A7) Dummy parameter
  26.   MOVE.W #5,-(A7)
  27.   TRAP #14         XBIOS 5
  28.   ADD.L #12,A7     Tidy stack
  29.   MOVE.W #0,-(A7)  Return to Desktop
  30.   TRAP #1          BDOS 1
  31.  
  32. prompt
  33.   DC.B "*****************",13,10
  34.   DC.B "*               *",13,10
  35.   DC.B "* Medium or Low *",13,10
  36.   DC.B "*  resolution?  *",13,10
  37.   DC.B "*               *",13,10
  38.   DC.B "* Press  M or L *",13,10
  39.   DC.B "*               *",13,10
  40.   DC.B "*****************",13,10
  41.   DC.B 0
  42.   EVEN
  43.   END
  44.