frenzy/factory.asm

B>type factory.asm

.title	"Robot Factory & MaMa Otto"
.sbttl	"FRENZY"
.ident	FACTORY
.insert equs
.extern RtoAx,PLOT,V.ZERO
; MACROS
RD=8	;room drop
XX=120+RD	;x of left edge
YY=48+RD	;y of top corner
.define START[Pat,Xoff,Yoff]=[
	lxi	h,Pat#
	lxi	d,((Yoff+YY)<8)!(Xoff+XX)
	call	%START
]
.define DRAW[Pat,Xoff,Yoff]=[
	lxi	d,Pat#
	lxi	h,((Yoff+YY)<8)!(Xoff+XX)
	call	%DRAW
]
.define COLOR[Ctable]=[
	lxi	h,Ctable
	call	%Color
]
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;	ROBOT FACTORY
;_______________________________
FACTORY::
	lda	RoomCnt
	bit	3,a
	jz	..8
	bit	2,a
	jz	Plant		;do mama otto 1
	jmp	Compu		;2
..8:	bit	2,a
	jnz	MaMa		;2
; 4-factory is farthest
	COLOR	FCOLS
	DRAW	PTA,3,3
	DRAW	PTB,4,18
	DRAW	PTC,12,16
; 4 vectored parts (Conveyor,Handle,WhirlCCW,WhirlCW)
	START	C.IDLE,8,8
	START	H.IDLE,28,32
	START	W.CCW,14,29
	mvi	TPRIME(x),1
	START	W.CW,19,36
	mvi	TPRIME(x),1
	pop	B		;wcw save vector pointers
	pop	B		;wccw
	pop	D		;handle
	pop	X		;conveyor
..n:	call	NEXT.J#
	lda	Robots
	ora	a
	jm	..go
	cpi	13
	jrnc	..n
; start one up
..go:	lxi	h,C.PART#	;go conveyor
	call	ChangePat		
	WAIT	50
	push	d		;ex ix,iy
	xtix
	pop	d
	lxi	h,H.GO#
	call	ChangePat
	WAIT	60
	FORK	FROBOT#
	WAIT	90
	lxi	h,H.IDLE#
	Call	ChangePat
	push	d		;ex ix,iy
	xtix
	pop	d
	WAIT	30		;idle
	jmpr	..n
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;	Mother Otto
;_______________________________
MaMa:	call	M.TALK#
	COLOR	MCOLS
	DRAW	MAL,4,4
	DRAW	MAR,20,4
	call	Sleep
..sl:	call	NEXT.J
	lda	CACKLE+1	;ottos hit
	ora	a
	jrnz	..xsl		;stay asleep
	lda	Vectors		;check on man
	bit	INEPT,a
	jrz	..sl
	call	UnM
	jmpr	..xdl
..xsl:	call	Sleep		;erase old
	call	Angry
	lxi	d,(82<8)!110
	FORK	MSUPER#
	lxi	d,(82<8)!170
	FORK	MSUPER
	lxi	d,(40<8)!148
	FORK	MSUPER
	lxi	d,(90<8)!148
	FORK	MSUPER
..dl:	call	NEXT.J
	lda	Vectors		;check on man
	bit	INEPT,a
	jrz	..dl
	call	AngryM		;erase old mouth
..xdl:	call	Smile	
	jmp	JobDEL#		;no need for me any more
;draw smile
Smile:	DRAW	MASML,4,30
	DRAW	MASMR,20,30
	RET
;draw eyes and mouth angry
Angry:	DRAW	MAEL,11,9
	DRAW	MAER,21,9
	COLOR	ECOLS
AngryM: DRAW	MAFL,4,30
	DRAW	MAFR,20,30
	ret
;draw eyes and mouth sleep
Sleep:	DRAW	MASL,4,13
	DRAW	MASR,20,13
UnM:	DRAW	MAM,12,30
	ret
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;	Electric Plant
;_______________________________
Plant:
	COLOR	PLCOLS
	call	UnReflect
	DRAW	BULB,8,4
	DRAW	BULB,8,20
	DRAW	BULB,28,12
	DRAW	STALK,28,28
	DRAW	RFILL,3,36
	DRAW	FILL,16,36
	DRAW	RFILL,28,36
; 4 vectored parts (W.CW,W.CCW,TL,BL)
	START	TL,12,7
	mvi	TPRIME(x),1
	START	BL,12,16
	mvi	TPRIME(x),1
	START	W.CCW,8,38
	mvi	TPRIME(x),1
	START	W.CW,28,38
	mvi	TPRIME(x),1
; save vector pointers
	pop	b
	pop	d
	pop	h
	pop	x
..loop: call	NEXT.J
	call	HitChk
	jrz	..loop
..Hit:	di
	ldax	b		;stop the whirlies
	res	MOVE,a
	stax	b
	ldax	d
	res	MOVE,a
	stax	d
	mov	a,m
	ani	#((1<MOVE)!(1<WRITE))
	mov	m,a
	mov	a,V.STAT(x)
	ani	#((1<MOVE)!(1<WRITE))
	mov	V.STAT(x),a
	ei
	mvi	a,2
	sta	IqFlg		;go for slow moving
	lxi	b,201h		;100
	call	ADDS#
	jmp	JobDel#
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;	Computer Control
;_______________________________
Compu:
	COLOR	CPCOLS
	call	UnReflect
	DRAW	RTL,4,12
	DRAW	LTL,24,12
	DRAW	Nose,18,15
; 3 vectored parts (CMS,TRCCW,TRCCW)
	START	CMS,16,2
	mvi	TPRIME(x),1
	START	CMouth,12,28
	START	TRCCW,4,4
	mvi	TPRIME(x),1
	START	TRCCW,30,4
	mvi	TPRIME(x),1
; save vector pointers
	pop	x
	pop	h
	pop	d		;mouth
	pop	b		;message
..loop: call	NEXT.J
	call	HitChk
	jrz	..loop
..Hit:	di			;stop tape reels
	ldax	b		;stop message
	ani	#(1<MOVE)
	stax	b
	mov	a,m
	ani	#(1<MOVE)
	mov	m,a
	mov	a,V.STAT(x)
	ani	#(1<MOVE)
	mov	V.STAT(x),a
;do mouth
	push	d
	pop	x
	lxi	h,CMDIE#
	mov	D.P.H(x),h
	mov	D.P.L(x),l
	ei
	mvi	a,5		;no shoot/iq
	sta	IqFlg		;go for Crasho
	lxi	b,201h		;100
	call	ADDS#
	call	C.TALK#
	jmp	JobDel#
;~~~~~~~~~~~~~~~~~~~~
; Check for man bolts
;____________________
PX=1
PY=2
HitChk: lxi	y,BUL1
	call	HC
	lxi	y,BUL1+BLength
	call	HC
	xra	a
	ret
;
HC:	mov	a,PX(y)
	cpi	XX
	rc
	cpi	XX+40
	rnc
	mov	a,PY(y)
	cpi	YY
	rc
	cpi	YY+46
	rnc
	inx	sp	;drop return address
	inx	sp
	ret		;nz
;~~~~~~~~~~~~~~~~~~~~
; Unreflecto the area
;____________________
UnReflect:
	lda	Flip
	ora	a
	jrnz	%FUC

	lxi	x,82b0h
	lxi	d,Hsize
	call	lin0
	mvi	b,11
	call	sid0
	call	lin0
; write grapes on wall
Wallo:	di
	lxi	h,3480h		;((YY-4)<8)!XX
	push	h
	call	HWB#
	pop	h
	call	VWB#
	lxi	h,34a8h		;((YY-4)<8)!(XX+40)
	call	VWB
	lxi	h,6480h		;((YY+44)<8)!XX
	call	HWB
	ei
	ret
;flip style
%FUC:	lxi	x,864fh		;flip version
	lxi	d,-Hsize
	call	lin1
	mvi	b,11
	call	sid1
	call	lin1
	jmp	wallo
;
Lin0:	mvi	b,5
	push	x
	pop	h
	lda	Wcolor
..loop: mov	m,a
	inx	h
	djnz	..loop
	mvi	b,1
;	jmp	Sid0
;
Sid0:	lda	Wcolor
	ani	0F0h
	mov	c,a
..loop: mov	a,0(x)
	ani	0Fh
	ora	c
	mov	0(x),a
	mov	a,5(x)
	ani	0Fh
	ora	c
	mov	5(x),a
	dadx	d
	djnz	..loop
	ret
;
Lin1:	mvi	b,5
	push	x
	pop	h
	lda	Wcolor
..loop: mov	m,a
	dcx	h
	djnz	..loop
	mvi	b,1
;	jmp	sid1
;
Sid1:	lda	Wcolor
	ani	0Fh
	mov	c,a
..loop: mov	a,0(x)
	ani	0F0h
	ora	c
	mov	0(x),a
	mov	a,-5(x)
	ani	0F0h
	ora	c
	mov	-5(x),a
	dadx	d
	djnz	..loop
	ret
;~~~~~~~~~~~~~~~~~~~~
; Color the area
;____________________
%Color:			;FIX FOR COCKTAIL
	lda	Flip
	ora	a
	jrnz	%FC
	lxi	x,82B0h
	lxi	d,Hsize-5
	mvi	c,12
..y:	mvi	b,5
..x:	mov	a,m
	inx	h
	mov	0(x),a
	inx	x
	djnz	..x
	dadx	d
	dcr	c
	jrnz	..y
	ret
;
%FC:	lxi	x,864fh		;flip version
	lxi	d,-Hsize+5
	mvi	c,12
..y:	mvi	b,5
..x:	mov	a,m
	inx	h
	rlc
	rlc
	rlc
	rlc
	mov	0(x),a
	dcx	x
	djnz	..x
	dadx	d
	dcr	c
	jrnz	..y
	ret
;~~~~~~~~~~~~~~~~~~~~~
; Change (ix) pattern
;_____________________
ChangePat:
	di
	mov	D.P.L(x),l
	mov	D.P.H(x),h
	ei
	ret
;~~~~~~~~~~~~~~~~~~~~~~~~~
; Draw does the xor write
;_________________________
;de=pattern hl=yx
%DRAW:	di
	call	RtoAx
	xchg
	call	PLOT
	ei
	ret
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Start a sub part
; push ix on stack on exit
%START:
	push	d
	push	h
	call	V.ZERO#
	pop	h
	pop	d
	rc
	mov	P.X(x),e
	mov	P.Y(x),d
	mov	D.P.L(x),l
	mov	D.P.H(x),h
	mvi	TIME(x),1
	mvi	TPRIME(x),2
	mvi	V.STAT(x),(1<InUse)!(1<Move)!(1<Write)	
	pop	h		;get return address
	push	x		;save vector pointer
	pchl			;return 
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Set up a square around box 9
;_______________________________
DOWN=3
UP=2
RIGHT=1
LEFT=0
S.ROOM::
	lxi	x,Walls		;set up walls
;reflecto
	set	DOWN,24+9(x)
	set	UP,24+9(x)
	set	RIGHT,24+9(x)
	set	LEFT,24+9(x)
	set	DOWN,24+3(x)
	set	UP,24+15(x)
	set	RIGHT,24+8(x)
	set	LEFT,24+10(x)
;set walls
	set	DOWN,9(x)
	set	UP,9(x)
	set	RIGHT,9(x)
	set	LEFT,9(x)
	set	DOWN,3(x)
	set	UP,15(x)
	set	RIGHT,8(x)
	set	LEFT,10(x)
;ocupied
	set	InUse,9(x)
	res	DOWN,24+15(x)		;make sure there is
	res	UP,24+21(x)		;a shootable area under
	res	RIGHT,24+14(x)
	res	LEFT,24+15(x)
	res	RIGHT,24+15(x)
	res	LEFT,24+16(x)
	ret				;the factory
;----------------------------
FCOLS:	.byte	77h,77h,77h,77h,77h	;top
	.byte	77h,77h,77h,77h,77h	;0
	.byte	77h,55h,55h,55h,77h	;1
	.byte	77h,55h,55h,55h,77h	;2
	.byte	77h,55h,55h,55h,77h	;3
	.byte	74h,41h,11h,13h,33h	;4
	.byte	74h,46h,66h,63h,33h	;5
	.byte	74h,46h,66h,63h,33h	;6
	.byte	74h,46h,66h,63h,33h	;7
	.byte	74h,46h,66h,63h,33h	;7
	.byte	74h,46h,66h,63h,33h	;7
	.byte	74h,46h,66h,63h,33h	;7

MCOLS:	.byte	77h,77h,77h,77h,77h	;top
	.byte	73h,33h,33h,33h,33h	;0
	.byte	73h,33h,33h,33h,33h	;1
	.byte	73h,33h,33h,33h,33h	;2
	.byte	73h,33h,33h,33h,33h	;3
	.byte	73h,33h,33h,33h,33h	;4
	.byte	73h,33h,33h,33h,33h	;5
	.byte	73h,33h,33h,33h,33h	;6
	.byte	73h,33h,33h,33h,33h	;7
	.byte	73h,33h,33h,33h,33h	;8
	.byte	73h,33h,33h,33h,33h	;9
	.byte	73h,33h,33h,33h,33h	;9

ECOLS:	.byte	77h,77h,77h,77h,77h	;top
	.byte	73h,33h,33h,33h,33h	;0
	.byte	73h,33h,33h,33h,33h	;1
	.byte	73h,33h,33h,33h,33h	;2
	.byte	73h,33h,33h,33h,33h	;3
	.byte	73h,31h,33h,13h,33h	;4
	.byte	73h,33h,33h,33h,33h	;5
	.byte	73h,33h,33h,33h,33h	;6
	.byte	73h,33h,33h,33h,33h	;7
	.byte	73h,33h,33h,33h,33h	;8
	.byte	73h,33h,33h,33h,33h	;9
	.byte	73h,33h,33h,33h,33h	;9

CPCOLS: .byte	77h,77h,77h,77h,77h	;top
	.byte	76h,66h,22h,26h,66h	;0
	.byte	76h,66h,22h,26h,66h	;1
	.byte	76h,66h,22h,26h,66h	;2
	.byte	76h,66h,0cch,0c6h,66h	;3
	.byte	7ch,3ch,33h,3ch,3ch	;4
	.byte	7ch,3ch,33h,3ch,3ch	;5
	.byte	7ch,3ch,11h,1ch,3ch	;6
	.byte	7ch,3ch,11h,1ch,3ch	;7
	.byte	7ch,3ch,11h,1ch,3ch	;8
	.byte	7ch,3ch,11h,1ch,3ch	;9
	.byte	7ch,0cch,11h,1ch,0cch	;9

PLCOLS: .byte	77h,77h,77h,77h,77h	;0
	.byte	73h,33h,33h,33h,33h	;1
	.byte	73h,33h,55h,53h,33h	;2
	.byte	73h,33h,55h,53h,33h	;3
	.byte	73h,66h,55h,53h,33h	;4
	.byte	73h,66h,55h,53h,33h	;5
	.byte	73h,33h,55h,56h,63h	;6
	.byte	73h,33h,55h,56h,63h	;7
	.byte	73h,66h,55h,56h,63h	;8
	.byte	73h,66h,55h,56h,63h	;9
	.byte	77h,77h,77h,77h,77h	;10
	.byte	73h,33h,33h,33h,33h	;11

	.end