home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / DRIVERS / SRC / ptys.lzh / miscasm.a < prev    next >
Text File  |  1990-03-08  |  4KB  |  172 lines
  1. *        This software is copyright (C) 1989 by Reimer Mellin        *
  2. *                                                                    *
  3. *        Permission is granted to reproduce and distribute           *
  4. *        this package by any means so long as no fee is charged      *
  5. *        above a nominal handling fee and so long as this            *
  6. *        notice is always included in the copies.                    *
  7. *        Commerical use or incorporation into commercial software    *
  8. *        is prohibited without the written permission of the         *
  9. *        author.                                                     *
  10. *                                                                    *
  11. *        Other rights are reserved except as explicitly granted      *
  12. *        by written permission of the author.                        *
  13. *                Reimer Mellin                                       *
  14. *                                                                    *
  15. *                Sulenstr.8                                          *
  16. *                D-8000 Muenchen 71 (Federal Republic of Germany)    *
  17. *                                                                    *
  18. *           EMAIL:                                                   *
  19. *                mellin@lan.informatik.tu-muenchen.dbp.de            *
  20. *                ram@altger.UUCP                                     *
  21. *                ....!pyramid!tmpmbx!doitcr!ramsys!ram (home)        *
  22. *                                                                    *
  23. *
  24. * $Id: miscasm.a_v 1.2.1.1 89/09/04 13:13:33 ram Exp $
  25. *
  26. * $Log:    miscasm.a_v $
  27. * Revision 1.2.1.1  89/09/04  13:13:33  ram
  28. * added some comments
  29. * 
  30. * Revision 1.2  89/08/31  12:32:39  ram
  31. * copyright message added
  32. * 
  33. *
  34.  
  35.  use <iodev.a>
  36.  use ptydev.a
  37.  use defsfile
  38.  
  39.  psect miscasm,0,0,0,0,0
  40.  
  41. * Hilfs-Funktionen fuer Ptyman, da malloc() nicht verwendet werden kann
  42. *
  43. * _srqmem( size )
  44.  
  45. _srqmem:
  46.  move.l a2,-(sp)
  47.  
  48.  OS9 F$SRqMem
  49.  bcc.s _srqmem90
  50.  
  51.  move.l d1,errno(a6)
  52.  move.l (sp)+,a2
  53.  moveq.l #0,d0
  54.  rts
  55.  
  56. _srqmem90
  57.  move.l a2,d0
  58.  move.l (sp)+,a2
  59.  rts
  60.  
  61. * _srtmem(addr, size)
  62. _srtmem:
  63.  move.l a2,-(sp)
  64.  
  65.  move.l d0,a2
  66.  move.l d1,d0
  67.  OS9 F$SRtMem
  68.  bcc.s _srtmem90
  69.  
  70.  move.l d1,errno(a6)
  71.  
  72.  move.l (sp)+,a2
  73.  moveq.l #-1,d0
  74.  rts
  75.  
  76. _srtmem90
  77.  move.l (sp)+,a2
  78.  moveq.l #0,d0
  79.  rts
  80.  
  81. * wait for pid to finish I/O ( 0 --> free )
  82. iowait:
  83.     tst.w d0
  84.     beq.s io1
  85.     clr.l d1
  86.     os9 F$IOQu
  87.     move.l d1,d0
  88. io1
  89.     rts
  90.  
  91. * getctrlchar(ch) -- return control-char-index in d0
  92. getctrlchar:
  93.  tst.b d0
  94.  beq.s g1
  95.  cmp.b #32,d0
  96.  bge.s g1
  97.  lea PD_BSP(a6),a0  * start of ctl-char array
  98.  moveq.l #8,d1      * length
  99. g2
  100.  cmp.b (a0)+,d0
  101.  beq.s g3
  102.  
  103.  dbra d1,g2
  104. g1
  105.  clr.l d0
  106.  rts
  107. g3
  108.  neg d1             * compute index
  109.  add.w #9,d1
  110.  move.w d1,d0
  111.  rts
  112.  
  113. strcmp: 
  114.  movea.l d0,a1      * simple strcmp
  115.  movea.l d1,a0
  116.  moveq.l #0,d0 :2
  117.  move.l d0,d1
  118.  bra.s _6
  119. _4 tst.b (a1) :2
  120.  beq.s _3
  121. _9
  122. _7
  123. _6 cmpm.b (a0)+,(a1)+ :2
  124.  beq.s _4
  125. _5
  126.  subq.l #1,a0
  127.  subq.l #1,a1
  128.  move.b (a0),d0 :2
  129.  move.b (a1),d1 :2
  130.  sub.l d0,d1 :2
  131.  move.l d1,d0 :2
  132. _3 rts :2
  133.  
  134. memcpy:
  135.     move.l d0,a1        * simple memcpy
  136.     move.l d1,a0
  137.     move.l 4(a7),d0
  138. m1
  139.     move.b (a0)+,(a1)+
  140.     dbra d0,m1
  141.     rts
  142.  
  143. * initbuf
  144. initbuf:
  145.     move.l d0,a0            * dont change this Function !!!!!
  146.     lea in2(pc),a1
  147. in1
  148.     move.b (a1)+,d0
  149.     not.b d0
  150.     cmpi.b #$d,d0
  151.     beq.s in3
  152.     move.b d0,(a0)+
  153.     dbra d1,in1
  154. in3
  155.     move.b d0,(a0)+
  156.     dbra d1,in3
  157.     rts
  158. in2
  159.     dc.b ^' ',^'b',^'y',^' ',^'R',^'e',^'i',^'m'    * dont change !!
  160.     dc.b ^'e',^'r',^' ',^'A',^'.',^' ',^'M',^'e'
  161.     dc.b ^'l',^'l',^'i',^'n',^$d
  162.     align
  163.  
  164. kill:
  165.     tst.w d0
  166.     beq.s k1
  167.     os9 F$Send
  168. k1
  169.     rts
  170.  
  171.  ends
  172.