home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / IntelliBots 1.0.1 / IntelliBots / IBots / goal.asm < prev    next >
Encoding:
Assembly Source File  |  1995-07-26  |  893 b   |  23 lines  |  [TEXT/IBot]
  1. ;******************************************************
  2. ;TITLE:        GOAL.ASM
  3. ;CREATED BY:   Intelligent Technologies
  4. ;DESCRIPTION:  Move the IBot from starting position #1 on the
  5. ;              Arena locale to the goal
  6. ;NOTES:        This program is designed only for the Arena locale
  7. ;Name             Date          Description
  8. ;---------------- ------------- -------------------
  9. ;ITI              July 22, 1995 created the program
  10. ;******************************************************
  11.  
  12.     .NAME    "Goal"
  13.     
  14. Find_Goal
  15.     COPR    #ChassisMove,#3        ;move IBot 3 units
  16.     COPR    #ChassisTurn,#90    ;turn IBot chassis 90 degrees - turn right
  17.     COPR    #ChassisMove,#3        ;move IBot 3 units
  18.     COPR    #ChassisTurn,#270    ;turn IBot chassis 270 degrees - turn left
  19.     COPR    #ChassisMove,#15    ;move IBot 15 units
  20.     COPR    #ChassisTurn,#90    ;turn IBot chassis 90 degrees - turn right
  21.     COPR    #ChassisMove,#4        ;move IBot 4 units
  22.     HALT
  23.