[Cyan]<CedarChest6.0>Robotics>Quadrant.robot!1

Quadrant.Robot

Created Tuesday, May 22, 1984 1:13 pm PDT

Eric Nickell, July 6, 1985 1:34:50 pm PDT

Aim at the 'other guy'.

Begin:

LDI #0; --Assume first quadrant

LDA HY;

SUB MY;

BAG #Quad12; --Branch if in quads 1 or 2

LDI #2, I; --Add two to index register

Quad12: LDA HX;

SUB MX;

BAG #Quad14;

LDI #1, I;

Quad14: LDI FirTab, I; --Fire at 0, 64, 128, or 192

FIR #0, I;

FIR #64, I;

FIR #32, I;

FIR #16, I;

FIR #48, I;

TRN #32, I;

SPD #2;

FIR #8, I;

FIR #72, I;

FIR #40, I;

FIR #56, I;

SPD #0;

JMP #Begin;

FirTab: 0;

64;

192;

128;