home *** CD-ROM | disk | FTP | other *** search
/ Kyūkyoku!! X68000 Emulator / X68000Book.dat / mac / OLS / X68000 / Ko-Window / kow142s.lzh / wsrv / hcheck.s < prev    next >
Text File  |  1994-06-21  |  475b  |  32 lines
  1. ***    hfont keep checker
  2. ***    1994 Ogasawara Hiroyuki
  3. ***
  4.         .include doscall.mac
  5.         .global    _HfontCheck
  6. _HfontCheck:
  7.     keepcheck:
  8.         move.l    4(sp),a2
  9.         clr.l    -(sp)
  10.         DOS    _SUPER
  11.         move.l    d0,(sp)
  12.         moveq.l    #1,d2
  13.  
  14.     searchloop:
  15.         move.l    (a2),a2
  16.         cmp.l    #'hfon',$104(a2)
  17.         bne    nextsearch
  18.         cmp.l    #'t1 C',$108(a2)
  19.         beq    findit
  20.     nextsearch:
  21.         tst.l    (a2)
  22.         bne    searchloop
  23.  
  24.     notfound:
  25.         moveq.l    #0,d2
  26.     findit:
  27.         DOS    _SUPER
  28.         addq.l    #4,sp
  29.         move.l    d2,d0
  30.         rts
  31.  
  32.