home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / indent-1.9.1-src.tgz / tar.out / fsf / indent / vaxc-make.com < prev    next >
Text File  |  1996-09-28  |  1KB  |  69 lines
  1. $!XXXXXXXXXXXXXXXXXXXXXXXX FILE VAXC-MAKE.COM XXXXXXXXXXXXXXXXXXXXXXXXX
  2. $!++
  3. $! BCOPY from GNU Sources, This module is not included in 
  4. $! VAXCRTL.
  5. $!--
  6. $    ON WARNING THEN CONTINUE
  7. $    MACRO/OBJ=BCOPY.OBJ SYS$INPUT
  8.     .TITLE    BCOPY    Copy bytes from one array to another
  9.     .IDENT    /1.00/
  10.  
  11.     .PSECT    $CODE,LONG,PIC,REL,SHR,EXE,RD,NOWRT
  12.  
  13. ; bcopy(from, to, size)
  14.  
  15.     .ENTRY    BCOPY,^M<R2,R3,R4,R5,R6>
  16.     MOVL    4(AP),R1
  17.     MOVL    8(AP),R3
  18.     MOVL    12(AP),R6
  19.     CMPL    R1,R3
  20.     BGTR    2$        ; NORMAL FORWARD CASE
  21.     BLSS    3$        ; OVERLAPPING, MUST DO BACKWARDS
  22.     RET            ; EQUAL, NOTHING TO DO
  23. 1$:
  24.     SUBL2    R0,R6
  25.     MOVC3    R0,(R1),(R3)
  26. 2$:
  27.     MOVZWL    #65535,R0
  28.     CMPL    R6,R0
  29.     BGTR    1$
  30.     MOVC3    R6,(R1),(R3)
  31.     RET
  32. 3$:
  33.     ADDL2    R6,R1
  34.     ADDL2    R6,R3
  35.     MOVZWL    #65535,R0
  36.     BRW    5$
  37. 4$:
  38.     SUBL2    R0,R6
  39.     SUBL2    R0,R1
  40.     SUBL2    R0,R3
  41.     MOVC3    R0,(R1),(R3)
  42.     MOVZWL    #65535,R0
  43.     SUBL2    R0,R1
  44.     SUBL2    R0,R3
  45. 5$:
  46.     CMPL    R6,R0
  47.     BGTR    4$
  48.     SUBL2    R6,R1
  49.     SUBL2    R6,R3
  50.     MOVC3    R6,(R1),(R3)
  51.     RET
  52.  
  53.     .END
  54. $    COMPILE :== "CC"
  55. $    COMPILE ARGS.C           
  56. $    COMPILE BACKUP.C         
  57. $    COMPILE GLOBS.C          
  58. $    COMPILE INDENT.C         
  59. $    COMPILE IO.C             
  60. $    COMPILE LEXI.C           
  61. $    COMPILE MEMCPY.C         
  62. $    COMPILE PARSE.C          
  63. $    COMPILE PR_COMMENT.C     
  64. $    LINK INDENT,ARGS,BACKUP,GLOBS,IO, -
  65.          LEXI,MEMCPY,PARSE,PR_COMMENT,BCOPY, -
  66.          SYS$INPUT/OPT
  67. SYS$LIBRARY:VAXCRTL.EXE/SHARE
  68. $!XXXXXXXXXXXXXXXXXXXXXXXXXXX END OF FILE VAXC-MAKE.COM XXXXXXXXXXXXXXXXXXXXXXXXXXX
  69.