/* ----------------------------------------------------------------P. S. O---
 *  FIRST UPDATE : Dec. 14. 1990   fail
 *                   2.  4. 1991  all ok !
 *  LIB Ver      : 1.00
 * --------------------------------------------------------------------------
 * Fuse_su		      : 2048     [32 * 64]
 * Internal Security Fuse     : 1
 * -------------------------------------------------------------------------- */
declaration
  dataunit : bit 
  ;
  functions
    Program  
    Read
    Verify
    Blank_Check
    Security
    Auto
  ;
  Manufactures
    SIGNETICS
  ;
  Devices
    dPLHS16L8A
    dPLHS16L8B
  ;
		/*  ΥΝΝΝΝΈΥΝΝΝΝΈ        */
  chips =  C5,  /* [³ 1     20 ³] VCC   */
           C4,  /* [³ 2     19 ³] VFS   */
	   C3,  /* [³ 3     18 ³] FS    */
	   C2,  /* [³ 4     17 ³] PV    */
	   C1,  /* [³ 5     16 ³] FN    */
           C0,  /* [³ 6     15 ³] C6    */
	   R5,  /* [³ 7     14 ³] R0    */
	   R4,  /* [³ 8     13 ³] R1    */
	   R3,  /* [³ 9     12 ³] R2    */
	  GND,  /* [³ 10    11 ³] STROBE*/
		/*  ΤΝΝΝΝΝΝΝΝΝΝΎ        */
	STROBE, R2, R1, R0, C6, FN, PV, FS, VFS, VCC;
	
  $v2 = FS;
  $v3 = VCC;
endd

int col[65] = { 63, 64, 65, 66, 67, 68, 69, 70, 54, 55,  
                56, 57, 58, 59, 60, 61, 45, 46, 47, 48,
                49, 50, 51, 52, 36, 37, 38, 39, 40, 41, 
                42, 43, 27, 28, 29, 30, 31, 32, 33, 34, 
                18, 19, 20, 21, 22, 23, 24, 25,  9, 10, 
                11, 12, 13, 14, 15, 16,  0,  1,  2,  3,
                 4,  5,  6,  7};
int row[33] = {  3,  2,  1,  0,  5,  4, 33, 32,  7,  6, 
		31, 30,  9,  8, 29, 28, 11, 10, 27, 26,
		13, 12, 25, 24, 15, 14, 23, 22, 17, 16,
		19, 18};

int disp_flag, index;
/* -----------------------------------------------------------------------
 * Display processing
 * ----------------------------------------------------------------------- */
int disp(option, p)
int option, p;
{
  if(disp_flag == 1) return(p);
  if(p == 0) {
    if     (option == 'p') @Display 26, index, "Programming ...";    
    else if(option == 'r') @Display 26, index, "Reading ...";      
    else if(option == 'b') @Display 26, index, "Blank checking ...";
    else if(option == 'v') @Display 26, index, "Verifying ...   ";
    else if(option == 's') @Display 26, index, "Securing ...";
  }
  else {   
    if     (option == 'p') @Display 26, index, "Program OK!    ";
    else if(option == 'r') @Display 26, index, "Read OK!   ";
    else if(option == 'b') @Display 26, index, "Blank check OK!   ";
    else if(option == 'v') @Display 26, index, "Verification OK!";
    else if(option == 's') @Display 26, index, "Security OK!";
    index ++;
  }
}
/* -----------------------------------------------------------------------
 * init() ---> inital processing
 * ----------------------------------------------------------------------- */
int init()
{
  @Vout 1,    17.50;
  @Vout 2,    17.50;    /* Vhh2 */
  @Vout 3,     8.75;    /* Vccp */
  @Out  GND,  	 @G;
  @Delay 10, @Ms;  

  @Out VCC,     @W;
  @Out C[0..6], @W;
  @Out R[0..5], @W; 
  @Out FS,      @W;
  @Out VFS,     @W;
  @Out STROBE,  @W;
  @Out FN,      @Z;
  @Out PV,      @W;
  
  @Out VCC,     @L;
  @Out C[0..6], @L;
  @Out R[0..5], @L; 
  @Out FS,      @L;
  @Out VFS,     @L;
  @Out STROBE,  @H;
  @Out PV,      @L;

  @Delay 1, @Ms;
}
/* -----------------------------------------------------------------------
 * Read data from device
 * Blank check
 * Verify
 * ----------------------------------------------------------------------- */
int verifyf(address, data, option)
int address, data, option;
{
  int	tmp;

  @Display 67, 9, address, @d;
  @Store tmp;

  if     (option == 'r')     @Load data;	/* Read data	   */
  else if(option == 'b') {			/* Blank check     */
    if(data & 1 != 1)        @Exit;
  }
  else if(option == 's') {			/* Blank check     */
    if(data & 1 != 0)        @Exit;
  }
  else if(option == 'v') {			/* Verify check    */
    if ((tmp&1) != (data&1)) @Exit;
  }
  else if(option == 'p') {			/* Program verify check    */
    if ((tmp&1) != (data&1)) @Exit;
  }   
}
/* -----------------------------------------------------------------------
 * 1 bit(s) data process
 * ----------------------------------------------------------------------- */
int top(option)
int option;   					/* Read, Program.. or more */
{
  int i, j, tmp;
  int pgm_d,					/* Program data     */
      read_d;					/* Read data        */
      
  disp(option, 0);
  pgm_d = read_d = 0;     
  
  init();
  
  for(i=0; i<64; i++) {
    for(j=0; j<32; j++) { 
      tmp = i * 32 + j;
      @Set 0, tmp;
      @Store pgm_d;
         
      @Out C[0..6], col[i];
      @Out R[0..5], row[j];

      @Out VCC, @O; 
      if(option == 'p' && pgm_d == 0) {		/* Program bit 	*/
        @Out PV,    @H;
        @Out FS,    @O;
        @Out STROBE,@L;
        @Delay 10, @Us;
        @Out FS,    @F; 
        @Out STROBE,@H;
        @Out PV,    @L;
      }
      @Out STROBE, @L; 
      @In FN, read_d;
      @Out STROBE, @H;
      @Out VCC,    @F;
      verifyf(tmp, read_d, option);
    }
  }
  disp(option, 1);  
}
/* -----------------------------------------------------------------------
 * Security device
 * ----------------------------------------------------------------------- */
int security_device()
{
  int read_d;
  
  disp('s', 0);

  read_d = 0;

  init();

  @Out C[0..6], 127;
  @Out R[0..5], 37;
  @Out VCC,     @O; 
  @Out PV,      @H;
  @Out VFS,     @O;
  @Out STROBE,  @L;
  @Delay 10, @Us;
  @Out VFS,     @F; 
  @Out STROBE,  @H;
  @Out PV,      @L;

  @Out C[0..6], 45;
  @Out R[0..5], 63;
  @Out STROBE,  @L; 
  @In FN, read_d;
  @Out STROBE,  @H;
  if(read_d != 1); /* @Exit; */
  @Out VCC,     @F;
  
  disp_flag = 1;
  top('s');
  disp_flag = 0;
  disp('s', 1);
}
/* -----------------------------------------------------------------------
 * MAIN Program
 * ----------------------------------------------------------------------- */
int main()
{
  index = 6;
  disp_flag = 0;

  @Set 0, 0;

  if     (FUNCTION == Program) {
    top('p');					/* Program device     */
    top('v');					/* Verify device      */
  }
  else if(FUNCTION == Security) {
    security_device();				/* Security device    */
  }
  else if(FUNCTION == Read) {           	/* Read device        */
    top('r');	
    @CheckSumOn;
  }
  else if(FUNCTION == Blank_Check) top('b');	/* Blank check device */
  else if(FUNCTION == Verify)      top('v');	/* Verify device      */
  else if(FUNCTION == Auto) {
    top('b');					/* Blank check device */
    top('p');					/* Program device     */
    top('v');					/* Verify device      */
    security_device();	                        /* Security device    */
  }
}
/* ------------------------------- End of program ------------------------ */