home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / alt_os / mint / mfs6011 / source / minixfs / kludge.s < prev    next >
Text File  |  1993-11-25  |  790b  |  43 lines
  1. |
  2. | This is a variant of the method use in 'ofake' to use pseudo drives in
  3. | an installable filesystem. Basically mediach, rwabs and getbpb have to
  4. | be faked by intercepting their vectors. It works but it's a kludge, this
  5. | kind of thing shouldn't be necessary.
  6. |
  7.  
  8. .globl _kludge_rwabs,_kludge_mediach,_kludge_getbpb
  9.  
  10. _kludge_rwabs:
  11.     movml    d0-d1,sp@-
  12.     movel     _shadmap,d0
  13.     movew    sp@(0x16),d1
  14.     btst    d1,d0
  15.     bne    ret0
  16.     movml    sp@+,d0-d1
  17.     movel    _old_rwabs,sp@-
  18.     rts
  19.  
  20. _kludge_mediach:
  21.     movml    d0-d1,sp@-
  22.     movel    _shadmap,d0
  23.     movew    sp@(0xc),d1
  24.     btst    d1,d0
  25.     bne    ret0
  26.     movml    sp@+,d0-d1
  27.     movel    _old_mediach,sp@-
  28.     rts
  29.  
  30. _kludge_getbpb:
  31.     movml    d0-d1,sp@-
  32.     movel    _shadmap,d0
  33.     movew    sp@(0xc),d1
  34.     btst    d1,d0
  35.     bne     ret0
  36.     movml    sp@+,d0-d1
  37.     movel    _old_getbpb,sp@-
  38.     rts
  39.     
  40. ret0:    movml    sp@+,d0-d1
  41.     movq    #0,d0
  42.     rts    
  43.