home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilsd / explain / !Explain / a / FontEnsure
Encoding:
Text File  |  1994-11-10  |  954 b   |  29 lines
  1. ; FontEnsure font command
  2.  
  3.                 GET             Asm:s.macros
  4.                 GET             Asm:s.regs
  5.                 GET             Asm:s.xswis
  6.                 GET             Asm:s.general
  7.  
  8. main            SAVEs           "r0-r6", 8
  9.  
  10.                 MOV             r6, r1
  11. main1           LDRB            lr, [r6], #1
  12.                 CMP             lr, #" "
  13.                 BGT             main1
  14.  
  15.                 MOV             r2, #10 * 16
  16.                 MOV             r3, #10 * 16
  17.                 MOV             r4, #0
  18.                 MOV             r5, #0
  19.                 SWI             XFont_FindFont
  20.                 MOVVC           r6, #1
  21.                 SWIVC           XFont_LoseFont
  22.                 SUBS            r0, r6, #1
  23.                 SWINE           XOS_CLI
  24. mainX           RETURN_ERR
  25.  
  26.                 =               "Andy Armstrong for Armstrong Walker Ltd. © Armstrong Walker Ltd, 1994", 0
  27.  
  28.                 END
  29.