A33721.1B

	.TITLE FBCHOR
	.RADIX 16
	.SBTTL ******************************
	.SBTTL * PROGRAMMER: MIKE ALBAUGH   *
	.SBTTL *                            *
	.SBTTL * CHECKER:                   *
	.SBTTL *                            *
	.SBTTL ******************************
;
;DATE INITIATED:	22-MAR-78
;
;PROJECT CHARGE #:	5P221
;
;DISK #:		73
;
;HARDWARE REQUIREMENTS:	MONSTER MAN (FOR DETAILS SEE FILE FUTBAL.MAC)
;
;MEMORY REQUIREMENTS:	THIS SEGMENT -1K ROM
;
;INTERRUPT REQUIREMENTS:-NONE
;
;ASSEMBLY COMMAND STRING:  *FBCHOR,FBCHOR=FBCHOR
;
;LINK COMMAND STRING:	*PP:/L,RK1:FBMAP.LST/A=FUTBAL,FBCHOR,FBCOIN
;
;PROGRAM DESCRIPTION:	MACROS AND TABLES FOR PLAY-CHOREOGRAPHY IN
;			MONSTER-MAN.  USED BY ROUTINES IN FUTBAL
;
	.GLOBL	PTBL,PLTAB,FBCEND,FTAB,HTAB

	.SBTTL DEFINITIONS

	.MACRO END
	.BYTE 0			;END OF THIS MAN'S SEQUENCE
	.ENDM

	.MACRO JOY ATR
	.IF B,ATR
	.BYTE 1,0		;THIS MAN CONTROLLED WITH JOYSTICK, OR DEAD IN ATTRACT
	.IFF
	.BYTE 1,ATR-.-1		;JOYSTICK, OR ROUTINE "ATR" IN ATTRACT
	.ENDC
	.ENDM

	.MACRO WAIT M
	.BYTE 2,M		;WAIT FOR FLAGS UNDER MASK M
	.ENDM

	.MACRO SET F		;SET FLAG F
	.BYTE 3,F
	.ENDM

	.MACRO TRACK N
	.IF NE,N
	.BYTE 4,N*4+32.		;N*4 WITH "OPPONENT" BIT SET
	.IFF
	.BYTE 4,0		;BALL BELONGS TO NEITHER SIDE
	.ENDC
	.ENDM

	.MACRO BLOCK N,A
	.BYTE 5,A*16.+N+8*4&255.+<A/4>	;BLOCK OPPON. "N" FROM ALLY "A"
	.ENDM


	.MACRO PASS LEN,REC		;LEN=LENGTH(MAX), REC=RECEIVER
	.IIF IDN,L,LEN, ..1=128.
	.IIF IDN,S,LEN, ..1=0
	.BYTE 6,..1+REC
	.ENDM

	.MACRO MOVE H,V
	.BYTE V'.+128.,H'.	;BIASED V-POSN, STRAIGHT H
	.ENDM
;THESE SET MEN IN FORMATION

FTAB:	MOVE -8,32		;OFFENSE #1
	MOVE -8,24		;DEFENSE #1
	MOVE -8,16		;O 2
	MOVE -8,8		;D 2
	MOVE -8,0		;O 3
	MOVE -8,-8		;D 3
	MOVE -8,-16		;O 4
	MOVE -8,-24		;D 4
	MOVE -8,-32		;O 5
	MOVE -24,-40		;D 5
	MOVE -16,0		;O 6
	MOVE -24,40		;D 6
	MOVE -16,56		;O 7
	MOVE -32,0		;D 7
HTAB:	MOVE -39,12		;SET MEN IN HUDDLE
	MOVE -30,5
	MOVE -30,-5
	MOVE -39,-12
	MOVE -48,-10
	MOVE -54,0
	MOVE -48,10
	MOVE 0,0		;SET BALL ON SCRIMMAGE LINE
PLTAB: .BYTE 40.,90.
;TABLE OF PLAYS (-1 BECAUSE MCC IS PRE-INCREMENTED)
PTBL:
	O.SWP-1,D.SWP-1
	O.KEEP-1,D.KEEP-1
	O.LPAS-1,D.LPAS-1
	O.SPAS-1,D.SPAS-1
	.SBTTL PLAY-LIBRARY
	.LIST MEB
	.NLIST BYT
O.LPAS:	WAIT 1
	BLOCK 4,0
	END

	WAIT 1
	BLOCK 3,0
	END

	WAIT 1
	BLOCK 2,0
	END

	WAIT 1
	BLOCK 1,0
	END

	WAIT 1
	MOVE 16,-40
	MOVE 48,-40
	MOVE 48,-80
	END

	WAIT 2
	JOY 1$
	BLOCK 7,7
	END

	WAIT 1
	MOVE 40,56
	SET 8
	MOVE 127,80
	WAIT 0
	JOY
	MOVE 127,80		;IN ATTRACT, KEEP MOVING
	END

	MOVE 0,0
	WAIT 1
	MOVE -16,0
	SET 2
	PASS L,7		;"LONG" PASS, AUTO, TO 7
	END

1$:	MOVE -50,0
	SET 10
	BLOCK 7,7
	END
D.LPAS:	WAIT 2
	TRACK 0
	END

	WAIT 2
	TRACK 0
	END

	WAIT 2
	TRACK 0
	END

	WAIT 2
	MOVE 8,-56
	TRACK 0
	END

	WAIT 2
	TRACK 7
	END

	WAIT 2
	MOVE 0,56
	TRACK 0
	END

	MOVE -32,0
	JOY
	WAIT 1
	TRACK 5
	END

O.SPAS:	WAIT 1
	BLOCK 4,0
	END

	WAIT 1
	BLOCK 3,0
	END

	WAIT 1
	BLOCK 2,0
	END

	WAIT 1
	BLOCK 1,0
	END

	WAIT 1
	MOVE 16,-40
	MOVE 48,-40
	SET 8			;KEY DEFENSE IN ATTRACT
	MOVE 48,-80
	WAIT 0
	JOY 1$
	END

	WAIT 2
	JOY 2$
	BLOCK 7,5
	END

	WAIT 1
	MOVE 40,56
	MOVE 127,80
	END

	MOVE 0,0
	WAIT 1
	MOVE -16,0
	SET 2
	PASS S,5		;SHORT PASS TO 5
	END

1$:	MOVE 127,-80		;GO FOR IT IN ATTRACT
	END
	
2$:	MOVE -40,0
	SET 10
	BLOCK 7,5
	END
D.SPAS:	WAIT 2
	MOVE 8,40
	TRACK 0
	END

	WAIT 2
	TRACK 0
	END

	WAIT 2
	TRACK 0
	END

	WAIT 2
	TRACK 0
	END

	WAIT 2
	MOVE 8,-56
	TRACK 0
	END

	WAIT 2
	TRACK 5
	END

	MOVE -32,0
	JOY
	WAIT 1
	TRACK 7
	END

O.SWP:	WAIT 1
	MOVE 0,8
	BLOCK 3,6
	END

	WAIT 1
	MOVE -12,40
	BLOCK 5,6
	END

	WAIT 1
	BLOCK 2,6
	END

	WAIT 1
	MOVE -16,42
	BLOCK 7,6
	END

	WAIT 1
	BLOCK 1,6		;MAYBE BLOCK 7
	END

	WAIT 2
	JOY
	MOVE -20,40
	SET 8			;KEY DEFENSE IN ATTRACT
	MOVE 0,56
	MOVE 127,80
	END

	WAIT 1
	MOVE 0,40
	BLOCK 4,6
	END

	MOVE 0,0
	WAIT 1
	MOVE -16,0
	SET 2
	END

D.SWP:	WAIT 2
	MOVE 0,24
	TRACK 0
	END

	WAIT 2
	TRACK 0
	END

	WAIT 2
	TRACK 0
	END

	WAIT 2
	TRACK 0
	END

	WAIT 2
	MOVE 8,-72
	TRACK 0
	END

	WAIT 2
	MOVE -24,-16
	TRACK 0
	END

	MOVE -32,0
	JOY
	WAIT 1
	MOVE -16,-40
	WAIT 8
	TRACK 0
	END

O.KEEP:	WAIT 1
	BLOCK 4,6
	END
	
	WAIT 1
	BLOCK 3,6
	END
	
	WAIT 1
	BLOCK 2,6
	END
	
	WAIT 1
	MOVE -8,-16
	BLOCK 1,6
	END
	
	WAIT 1
	BLOCK 6,6
	END
	
	WAIT 2
	JOY
	MOVE -10,-28
	SET 8			;KEY DEFENSE IN ATTRACT
	MOVE 4,-30
	MOVE 127,-32
	END
	
	WAIT 1
	MOVE 16,40
	MOVE 127,48
	END
	
	MOVE 0,0
	WAIT 1
	MOVE -16,0
	SET 2
	END
D.KEEP:	WAIT 2
	TRACK 0
	END
	
	WAIT 2
	MOVE 0,-16
	TRACK 0
	END
	
	WAIT 2
	MOVE 3,-8
	TRACK 0
	END
	
	WAIT 2
	MOVE 0,4
	TRACK 0
	END
	
	WAIT 1
	MOVE -16,-32
	WAIT 2
	TRACK 0
	END
	
	WAIT 2
	MOVE 0,+64
	TRACK 0
	END
	
	MOVE -32,0
	JOY
	WAIT 1
	TRACK 7
	END

FBCEND:
	.END