gldav.s 180 B

1234567891011121314151617
  1. #include "sys.h"
  2. .define _gldav
  3. .extern _errno
  4. _gldav:
  5. mov 2(sp),r0
  6. sys local; .data2 0f
  7. bcc 1f
  8. mov r0,_errno
  9. mov $-1,r0
  10. rts pc
  11. 1:
  12. clr r0
  13. rts pc
  14. .sect .data
  15. 0:
  16. sys gldav