;;; -*- mode:LISP; Package:GREY; Base:8 -*-

;; Copyright LISP Machine, Inc. 1984
;;    See filename "Copyright" for
;; licensing and release information.


;;;;SRAM SOURCE FOR MEDIUM RESOLUTION COLOR BOARD:
;;;;assembly-time conditionalization for REV 0 and REV 1:


;Instruction fields are:

;FCN<4-0>   BLANK   CSYNC   VSYNC   FG   CYC.CTL<1-0>   VMA.CTL<2-0>   BRANCH.CTL<1-0>


; Conditional assembly:
; ((IF-REVISION ...numbers ...)
;  ... code ...)
;

(DEFCONST SRAM-SOURCE

'(
			;BEGINNING OF CAMERA PROGRAM

			;Grab odd field

 (6
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;6 equalizer pulses
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1st, 3rd, & 5th
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;pulses, coincident
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;with line syncs
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;7 SYNC
 (PROC	BLANK  	-	-	PROC	HOLD	-	)	;88 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-   	))
								;Raster is at bottom
								;right of screen
 (6
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			19.			RPCT	)	;serrated VSYNC pulse
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;80 SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)	;15 -SYNC
 (			4.			RPCT	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 (WAIT	BLANK	-	-	-	HOLD	-	))
 
 (5
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;5 equalizer pulses
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;7 SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;88 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-   	))
 
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;1 more equalizer
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;pulse(for merging-
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;V+1 at end)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	LOAD	-	)	;1 --> VMA
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	V+1	-	)	;7 SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)	;88 -SYNC
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-   	)
 									;raster is at top
 									;right of screen
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			16.			RPCT	)	;16 blanked full lines
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;***XTRA-WIDE SPACING*
 (4
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;16 SYNC
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	))
 (56.
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;174 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	))
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	BRCOND	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1 more blanked line
 (			2			RPCT	)	;for merging
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;(VSYNCE'S for mixer)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)	
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			56.			RPCT	)	;16 SYNC
 (REFS	BLANK	-	-	REF	HOLD	-	)	;174 -SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 
 
 (			227.			RPCT	)	;227 unblanked lines
 (REF	BLANK	-	-	REF	HOLD	-	)	;with WAIT's
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	-	-	REF	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (4
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	))	;16 SYNC

 (REF	BLANK	-	-	REF	HOLD	-	)	;174 -SYNC
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)

 (REFCB	BLANK	-	-	REF	HOLD	-	)	;CBG
 (RFSCB	BLANK	-	-	REF	HOLD	-	)
 (PROCB	BLANK	-	-	PROC	HOLD	-	)
 (REFCB	BLANK	-	-	REF	HOLD	-	)

 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)	;Phase correction
 (NOP6	BLANK	-	-	-	HOLD	-	)	;between FG code
 ((IF-VERSION 0.0)
  (NOP4	BLANK	-	FG	-	HOLD	-	)	;and TV code
  )
 ((IF-VERSION 1.0)
  (NOP4	BLANK	-	-	-	HOLD	-	)	;and TV code
  )
 (SPEC8	-	-	FG	-	HOLD	-	)	;Merge into PRCFG

 (PRCFG	-	-	FG	PROC	HOLD	-	)	;***WIDE SPACING***
 (FG0	-	-	FG	VIDEO	V-1	-	)
 (FG1	-	-	FG	VIDEO	V+2	-	)
 (FG2	-	-	FG	VIDEO	V+1	-	)
 (FG3	-	-	FG	VIDEO	V+2	-	)
 
 (34.
 (PRCFG	-	-	FG	PROC	HOLD	-	)
 (FG0	-	-	FG	VIDEO	V-1	-	)
 (FG1	-	-	FG	VIDEO	V+2	-	)
 (FG2	-	-	FG	VIDEO	V+1	-	)
 (FG3	-	-	FG	VIDEO	V+2	-	))
 
 (PRCFG	-	-	FG	PROC	HOLD	-	)
 (FG0	-	-	FG	VIDEO	V-1	-	)
 (FG1	-	-	FG	VIDEO	V+2	-	)
 (FG2A	-	-	FG	VIDEO	V+1	-	)
 (FG3A	-	-	FG	VIDEO   HOLD	-	)
 
 (NOP8	BLANK	-	FG	VIDEO	V+2	-	)
 (REFS	BLANK	-	-	REF	V+STEP	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)	;End of 227 lines
 
 (REF	BLANK	-	-	REF	HOLD	-	)	;Merge
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)

 (			9.			RPCT	)	;9 blanked full lines
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;***XTRA-WIDE SPACING*
 (4
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;16 SYNC
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	))
 (56.
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;174 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	))
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	BRCOND	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1 blanked half line
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			3			RPCT	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;16 SYNC
 (			26.			RPCT	)	;79 -SYNC
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 
 			;Grab even field
 
 (6
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;6 equalizer pulses
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1st, 3rd, & 5th
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;pulses, coincident
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;with line syncs
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;7 SYNC
 (PROC	BLANK  	-	-	PROC	HOLD	-	)	;88 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-   	))
 									;Raster is at bottom
 									;right of screen
 (6
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			19.			RPCT	)	;serrated VSYNC pulse
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;80 SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)	;15 -SYNC
 (			4.			RPCT	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 (WAIT	BLANK	-	-	-	HOLD	-	))
 
 (5
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;5 equalizer pulses
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;7 SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;88 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-   	))
 
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;1 more equalizer
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;pulse(for merging-
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;V+1 at end)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	LOAD	-	)	;STEP+1 --> VMA
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	V+STEP	-	)
 (PROC	BLANK	-	-	PROC	V+1	-	)	;7 SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)	;88 -SYNC
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (REF	BLANK	-	-	REF	HOLD	-   	)
 
 (			31.			RPCT	)	;One half blanked line
 (REF	BLANK	-	-	REF	HOLD	-	)	;(without sync)
 (REFS	BLANK	-	-	REF	HOLD	-	)	;95 -SYNC
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-	)
 									;raster is at top
 									;right of screen
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			16.			RPCT	)	;16 blanked full lines
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;***XTRA-WIDE SPACING*
 (4
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;16 SYNC
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	))
 (56.
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;174 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	))
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	BRCOND	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1 more blanked line
 (			2			RPCT	)	;for merging
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;(no SYNC's at end)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)	
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			56.			RPCT	)	;16 SYNC
 (REFS	BLANK	-	-	REF	HOLD	-	)	;174 -SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 
 
 (			227.			RPCT	)	;227 unblanked lines
 (REF	BLANK	-	-	REF	HOLD	-	)	;with WAIT's
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	-	-	REF	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (4
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	))	;16 SYNC

 (REF	BLANK	-	-	REF	HOLD	-	)	;174 -SYNC
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)

 (REFCB	BLANK	-	-	REF	HOLD	-	)	;CBG
 (RFSCB	BLANK	-	-	REF	HOLD	-	)
 (PROCB	BLANK	-	-	PROC	HOLD	-	)
 (REFCB	BLANK	-	-	REF	HOLD	-	)

 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)	;Phase correction
 (NOP6	BLANK	-	-	-	HOLD	-	)	;between FG code
 ((IF-VERSION 0.0)
  (NOP4	BLANK	-	FG	-	HOLD	-	)	;and TV code
  )
 ((IF-VERSION 1.0)
  (NOP4	BLANK	-	-	-	HOLD	-	)	;and TV code
  )
 (SPEC8	-	-	FG	REF	HOLD	-	)	;Merge into PRCFG

 (PRCFG	-	-	FG	PROC	HOLD	-	)	;***WIDE SPACING***
 (FG0	-	-	FG	VIDEO	V-1	-	)
 (FG1	-	-	FG	VIDEO	V+2	-	)
 (FG2	-	-	FG	VIDEO	V+1	-	)
 (FG3	-	-	FG	VIDEO	V+2	-	)
 
 (34.
 (PRCFG	-	-	FG	PROC	HOLD	-	)
 (FG0	-	-	FG	VIDEO	V-1	-	)
 (FG1	-	-	FG	VIDEO	V+2	-	)
 (FG2	-	-	FG	VIDEO	V+1	-	)
 (FG3	-	-	FG	VIDEO	V+2	-	))
 
 (PRCFG	-	-	FG	PROC	HOLD	-	)
 (FG0	-	-	FG	VIDEO	V-1	-	)
 (FG1	-	-	FG	VIDEO	V+2	-	)
 (FG2A	-	-	FG	VIDEO	V+1	-	)
 (FG3A	-	-	FG	VIDEO	HOLD	-	)
 
 (NOP8	BLANK	-	FG	VIDEO	V+2	-	)
 (REFS	BLANK	-	-	REF	V+STEP	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)	;End of 227 lines
 
 (REF	BLANK	-	-	REF	HOLD	-	)	;Merge
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			8.			RPCT	)	;8 blanked full lines
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;***XTRA-WIDE SPACING*
 (4
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;16 SYNC
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	))
 (56.
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;174 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	))
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	BRCOND	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1 more blanked line
 (			2			RPCT	)	;for merging
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;(no SYNC's at end)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)	
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			56.			RPCT	)	;16 SYNC
 (REFS	BLANK	-	-	REF	HOLD	-	)	;174 -SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	BRZERO	)	;Branch zero
 
 			;END OF CAMERA PROGRAM
 
 (LOC 4000)
 
 			;BEGINNING OF TV PROGRAM
 
 			;Display odd field
 
 (6
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;6 equalizer pulses
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1st, 3rd, & 5th
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;pulses, coincident
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;with line syncs
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;7 SYNC
 (PROC	BLANK  	-	-	PROC	HOLD	-	)	;88 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-   	))
 									;Raster is at bottom
 									;right of screen
 (6
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			19.			RPCT	)	;serrated VSYNC pulse
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;80 SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)	;15 -SYNC
 (			4.			RPCT	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 (WAIT	BLANK	-	-	-	HOLD	-	))
 
 (5
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;5 equalizer pulses
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;7 SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;88 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-   	))
 
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;1 more equalizer
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;pulse(for merging-
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;V+1 at end)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	LOAD	-	)	;0 --> VMA
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;7 SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)	;88 -SYNC
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-   	)
 									;raster is at top
 									;right of screen
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			16.			RPCT	)	;16 blanked full lines
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;***XTRA-WIDE SPACING*
 (4
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;16 SYNC
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	))
 (56.
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;174 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	))
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	BRCOND	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1 more blanked line
 (			2			RPCT	)	;for merging
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;(no SYNC's at end)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)	
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			56.			RPCT	)	;16 SYNC
 (REFS	BLANK	-	-	REF	HOLD	-	)	;174 -SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 
 (			227.			RPCT	)	;227 unblanked lines
 (REF	BLANK	-	-	REF	HOLD	-	)	;with WAIT's
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	-	-	REF	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (4
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	))	;16 SYNC

 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)	;174 -SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)

 (REFCB	BLANK	-	-	REF	HOLD	-	)	;CBG
 (REFCB	BLANK	-	-	REF	HOLD	-	)
 (REFCB	BLANK	-	-	REF	HOLD	-	)
 (REFCB	BLANK	-	-	REF	HOLD	-	)

 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)

 (PRCTV	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (TV0	BLANK	-	-	VIDEO	V+1	-	)
 ((IF-VERSION 0.0)
  (TV1	-	-	-	VIDEO	V+1	-	)
  )
 ((IF-VERSION 1.0)
  (TV1	BLANK	-	-	VIDEO	V+1	-	)	;TV1 has blanking overide on.
  )
 (TV2	-	-	-	VIDEO	V+1	-	)
 (TV3	-	-	-	VIDEO	V+1	-	)
 
 (34.
 (PRCTV	-	-	-	PROC	HOLD	-	)
 (TV0	-	-	-	VIDEO	V+1	-	)
 (TV1	-	-	-	VIDEO	V+1	-	)
 (TV2	-	-	-	VIDEO	V+1	-	)
 (TV3	-	-	-	VIDEO	V+1	-	))
 
 (PRCTV	-	-	-	PROC	HOLD	-	)
 (TV0	-	-	-	VIDEO	V+1	-	)
 (TV1	-	-	-	VIDEO	V+1	-	)
 (TV2	-	-	-	VIDEO	V+1	-	)
 (TV3	-	-	-	VIDEO	V+1	-	)
 
 (PRCTV	-	-	-	PROC	V+STEP	-	)	
 (TV0A	-	-	-	REF	HOLD	-	)	;Finish last TV cycle
 ((IF-VERSION 0.0)
  (EOL	BLANK	-	-	REF	HOLD	-	)
  )
 ((IF-VERSION 1.0)
  (EOL	BLANK	-	-	-	HOLD	-	)	;This is for adjustment of
  )						                ;blanking edge.
 (1
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	))
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)	;End of 227 lines
 
 (REF	BLANK	-	-	REF	HOLD	-	)	;Merge
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			9.			RPCT	)	;9 blanked full lines
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;***XTRA-WIDE SPACING*
 (4
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;16 SYNC
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	))
 (56.
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;174 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	))
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	BRCOND	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1 blanked half line
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			3			RPCT	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;16 SYNC
 (			26.			RPCT	)	;79 -SYNC
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 
 			;Display even field
 
 (6
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;6 equalizer pulses
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1st, 3rd, & 5th
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;pulses, coincident
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;with line syncs
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;7 SYNC
 (PROC	BLANK  	-	-	PROC	HOLD	-	)	;88 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-   	))
 									;Raster is at bottom
 									;right of screen
 (6
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			19.			RPCT	)	;serrated VSYNC pulse
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;80 SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)	;15 -SYNC
 (			4.			RPCT	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 (WAIT	BLANK	-	-	-	HOLD	-	))
 
 (5
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;5 equalizer pulses
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;7 SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;88 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-   	))
 
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;1 more equalizer
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;pulse(for merging-
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;V+1 at end)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	LOAD	-	)	;STEP --> VMA
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	V+STEP	-	)	;7 SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)	;88 -SYNC
 (			28.			RPCT	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (REF	BLANK	-	-	REF	HOLD	-   	)
 
 (			31.			RPCT	)	;One half blanked line
 (REF	BLANK	-	-	REF	HOLD	-	)	;(without sync)
 (REFS	BLANK	-	-	REF	HOLD	-	)	;95 -SYNC
 (PROC	BLANK	-	-	PROC	HOLD	BRCOND	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-	)
 									;raster is at top
 									;right of screen
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			16.			RPCT	)	;16 blanked full lines
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;***XTRA-WIDE SPACING*
 (4
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;16 SYNC
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	))
 (56.
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;174 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	))
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	BRCOND	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1 more blanked line
 (			2			RPCT	)	;for merging
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;(no SYNC's at end)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)	
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			56.			RPCT	)	;16 SYNC
 (REFS	BLANK	-	-	REF	HOLD	-	)	;174 -SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 
 (			227.			RPCT	)	;227 unblanked lines
 (REF	BLANK	-	-	REF	HOLD	-	)	;with WAIT's
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	-	-	REF	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (4
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	))	;16 SYNC

 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)	;174 -SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)

 (REFCB	BLANK	-	-	REF	HOLD	-	)	;CBG
 (REFCB	BLANK	-	-	REF	HOLD	-	)
 (REFCB	BLANK	-	-	REF	HOLD	-	)
 (REFCB	BLANK	-	-	REF	HOLD	-	)

 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)

 (PRCTV	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (TV0	BLANK	-	-	VIDEO	V+1	-	)
 ((IF-VERSION 0.0)
  (TV1	-	-	-	VIDEO	V+1	-	)
  )
 ((IF-VERSION 1.0)
  (TV1	BLANK	-	-	VIDEO	V+1	-	)	;TV1 has blanking overide on.
  )
 (TV2	-	-	-	VIDEO	V+1	-	)
 (TV3	-	-	-	VIDEO	V+1	-	)

 (34.
 (PRCTV	-	-	-	PROC	HOLD	-	)
 (TV0	-	-	-	VIDEO	V+1	-	)
 (TV1	-	-	-	VIDEO	V+1	-	)
 (TV2	-	-	-	VIDEO	V+1	-	)
 (TV3	-	-	-	VIDEO	V+1	-	))
 
 (PRCTV	-	-	-	PROC	HOLD	-	)
 (TV0	-	-	-	VIDEO	V+1	-	)
 (TV1	-	-	-	VIDEO	V+1	-	)
 (TV2	-	-	-	VIDEO	V+1	-	)
 (TV3	-	-	-	VIDEO	V+1	-	)
 
 (PRCTV	-	-	-	PROC	V+STEP	-	)
 (TV0A	-	-	-	REF	HOLD	-	)	;Finish last TV cycle
 ((IF-VERSION 0.0)
  (EOL	BLANK	-	-	REF	HOLD	-	)
  )
 ((IF-VERSION 1.0)
  (EOL	BLANK	-	-	-	HOLD	-	)	;This is for adjustment of
  )						                ;blanking edge.
 (1
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	))
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)	;End of 227 lines
 
 (REF	BLANK	-	-	REF	HOLD	-	)	;Merge
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;***WIDE SPACING***
 (WAIT	BLANK	-	-	-	HOLD	-	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			8.			RPCT	)	;8 blanked full lines
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;***XTRA-WIDE SPACING*
 (4
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)	;16 SYNC
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	))
 (56.
 (PROC	BLANK	-	-	PROC	HOLD	-	)	;174 -SYNC
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	))
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	-	)
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	BRCOND	)
 
 (REF	BLANK	SYNC	-	REF	HOLD	-	)	;1 more blanked line
 (			2			RPCT	)	;for merging
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)	;(no SYNC's at end)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	BRCOND	)	
 (REFS	BLANK	SYNC	-	REF	HOLD	-	)
 (PROC	BLANK	SYNC	-	PROC	HOLD	-	)
 (REF	BLANK	SYNC	-	REF	HOLD	-	)
 (			56.			RPCT	)	;16 SYNC
 (REFS	BLANK	-	-	REF	HOLD	-	)	;174 -SYNC
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRCOND	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REFS	BLANK	-	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (WAIT	BLANK	-	-	-	HOLD	BRZERO	)	;Branch zero
 
 			;END OF TV PROGRAM
 (LOC 7772)
 
 (WAIT	-	-	-	-	HOLD	-	)	;NOP's so timing PROM
 (WAIT	-	-	-	-	HOLD	-	)	;gets loaded with
 (WAIT	-	-	-	-	HOLD	-	)	;valid data at end of
 (WAIT	-	-	-	-	HOLD	-	)	;sync RAM load cycle
 (WAIT	-	-	-	-	HOLD	-	)
 (WAIT	-	-	-	-	HOLD	-	)

 ))


(DEFCONST TEST-SOURCE						;Test load

 '(
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRZERO	)

 (LOC 4000)

 (REFS	BLANK	-      	-	REF	HOLD	-	)
 (PROC	BLANK	-	-	PROC	HOLD	-	)
 (REF	BLANK	-	-	REF	HOLD	BRZERO	)	;Branch Zero

 (LOC 7772)

 (WAIT	-	-	-	-	HOLD	-	)
 (WAIT	-	-	-	-	HOLD	-	)
 (WAIT	-	-	-	-	HOLD	-	)
 (WAIT	-	-	-	-	HOLD	-	)
 (WAIT	-	-	-	-	HOLD	-	)
 (WAIT	-	-	-	-	HOLD	-	)
 ))


(SETQ TEST-OBJECT (ASSEMBLE-SRAM-SOURCE TEST-SOURCE))