home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / SOURCES / ATARI_SRC.ZIP / atari source / HDX_BACK / HDLFILE / OSBIND.S < prev    next >
Encoding:
Text File  |  2001-02-09  |  681 b   |  42 lines
  1. ;
  2. ;    ostraps.s    trap calls for GEMDOS,BIOS & XBIOS
  3. ;
  4.     .text
  5.     .globl    _gemdos
  6.     .globl    _bios
  7.     .globl    _xbios
  8.  
  9.  
  10. ;
  11. ;    trap14    Taken straight from the hitchhikers guide
  12. ;
  13. _xbios:
  14.     move.l    (sp)+,saveret    ;pop return address
  15.     trap    #14
  16.     move.l    saveret,-(sp)    ;restore return address
  17.     rts
  18.  
  19. ;
  20. ;    trap13    Virtually identical to trap14
  21. ;
  22. _bios:
  23.     move.l    (sp)+,saveret    ;pop return address
  24.     trap    #13
  25.     move.l    saveret,-(sp)    ;restore return address
  26.     rts
  27.  
  28. ;
  29. ;    trap1    Virtually identical to trap13
  30. ;
  31. _gemdos:
  32.     move.l    (sp)+,saveret    ;pop return address
  33.     trap    #1
  34.     move.l    saveret,-(sp)    ;restore return address
  35.     rts
  36.  
  37.     .bss
  38. saveret:
  39.     .ds.l    1        ;storage for return address
  40.  
  41.     .end
  42.