home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / load_char.s < prev    next >
Text File  |  1995-03-17  |  621b  |  48 lines
  1. move.l    d0,gfxbase
  2. lea    diskfontname,a1
  3. jsr    -408(a6)    
  4. beq.L    error
  5. move.l    d0,fontlbase    
  6. move.l    fontlbase,a6    
  7. lea    textattr,a0
  8. jsr    -30(a6)        
  9. beq.L    error        
  10. move.l    d0,fontbase    
  11. ;
  12. move.l    fontbase,a0
  13. jsr    -66(a6)
  14.  
  15. ;
  16. move.l        gfxbase,a6    
  17. move.l        fontbase,a1    
  18. jsr        -78(a6)    
  19. move.l        $04,a6    
  20. move.l        fontlbase,a1
  21. jsr        -414(a6)
  22. move.l        gfxbase,a1    
  23. jsr        -414(a6)
  24. error:
  25. rts
  26. even
  27. kurt:
  28. dc.l     0
  29. even
  30. diskfontname:
  31. dc.b     "diskfont.library",0
  32. even
  33. ; --------------------------------------
  34. fontname:
  35. dc.b     "high.font",0
  36. even
  37. textattr:
  38. dc.l    fontname
  39. dc.w    17
  40. dc.w    0
  41. ; --------------------------------------
  42. fontlbase:
  43. dc.l    0
  44. fontbase:
  45. dc.l    0
  46.  
  47.  
  48.