; -*- Mode:Lisp; Package:SI; Base:8; Ibase 8 -*-

(declare (special tv-cpt-sync-60hz))

(DEFUN TV-60HZ ()
    (TV-SETUP-CPT TV-CPT-SYNC-60HZ)
    (DO I 0 (1+ I) (= I 100000) (%XBUS-WRITE I 0)))

(SETQ TV-CPT-SYNC-60hz '(
   1.  (1 33) (5 13) 12 12 (11. 12 12) 212 113			;VERT SYNC, CLEAR TVMA
   53.  (1 33) (5 13) 12 12 (11. 12 12) 212 13			;VERT RETRACE
   8.  (1 31)  (5 11) 11 10 (11. 0 0) 200 21		;8 LINES OF MARGIN
   255. (1 31) (5 11) 11 50 (11. 0 40) 200 21
   255. (1 31) (5 11) 11 50 (11. 0 40) 200 21
   255. (1 31) (5 11) 11 50 (11. 0 40) 200 21
   200. (1 31) (5 11) 11 50 (11. 0 40) 200 21
   7. (1 31) (5 11) 11 10 (11. 0 0) 200 21
   1. (1 31) (5 11) 11 10 (11. 0 0) 300 23
))