pgm.asm

ic tester 1 ic tester 1 ic tester 1

	CALL ICNM40
	AJMP ICX5
ICS40: CJNE R1,#42H,ICS42			;IC 7442
	CALL ICNM42
ASD3:	MOV RELAYS,#02H
	CALL PROGRESS_BAR
	CALL IC7442_45_145_445
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS42: CJNE R1,#43H,ICS43			;IC 7443
	CALL ICNM43
	MOV RELAYS,#02H
	CALL PROGRESS_BAR
	CALL IC7443
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS43: CJNE R1,#44H,ICS44			;IC 7444
	CALL ICNM44
	MOV RELAYS,#02H
	CALL PROGRESS_BAR
	CALL IC7444
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS44: CJNE R1,#45H,ICS45			;IC 7445
	CALL ICNM45
	AJMP ASD3
ICS45: CJNE R1,#46H,ICS46			;IC 7446
	CALL ICNM46
ASD4:	MOV RELAYS,#02H
	CALL PROGRESS_BAR
	CALL IC7447_46_48_248_247_447
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS46: CJNE R1,#47,ICS47			;IC 7447
	CALL ICNM47
	AJMP ASD4
ICS47: CJNE R1,#48H,ICS48			;IC 7448
	CALL ICNM48
	AJMP ASD4
ICS48: CJNE R1,#54H,ICS54			;IC 7454
	CALL ICNM54
	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7454
	MOV GATES,#04H
	CALL ANALYSE
	RET
ICS54: CJNE R1,#64H,ICS64			;IC 7464
	CALL ICNM64
	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7464
	MOV GATES,#04H
	CALL ANALYSE
	RET
ICS64: CJNE R1,#70H,ICS70			;IC 7470
	CALL ICNM70
	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7470
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS70: CJNE R1,#74H,ICS74			;IC 7474
	CALL ICNM74
	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7474
	MOV GATES,#02H
	CALL ANALYSE
	RET
ICS74: CJNE R1,#76H,ICS76			;IC 7476
	CALL ICNM76
	MOV RELAYS,#02H
	CALL PROGRESS_BAR
	CALL IC7476
	MOV GATES,#02H
	CALL ANALYSE
	RET
ICS76: CJNE R1,#77H,ICS77			;IC 7477
	CALL ICNM77
	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7477
	MOV GATES,#04H
	CALL ANALYSE
	RET
ICS77: CJNE R1,#78H,ICS78			;IC 7478
	CALL ICNM78
	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7478
	MOV GATES,#02H
	CALL ANALYSE
	RET
ICS78: CJNE R1,#80H,ICS80			;IC 7480
	CALL ICNM80
	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7480
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS80: CJNE R1,#82H,ICS82			;IC 7482
	CALL ICNM82
	MOV RELAYS,#03H
	CALL PROGRESS_BAR
	CALL IC7482
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS82: CJNE R1,#83H,ICS83			;IC 7483
	CALL ICNM83
	MOV RELAYS,#04H
	CALL PROGRESS_BAR
	CALL IC7483
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS83: CJNE R1,#85H,ICS85			;IC 7485
	CALL ICNM82
	MOV RELAYS,#03H
	CALL PROGRESS_BAR
	CALL IC7482
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS85: CJNE R1,#86H,ICS86			;IC 7486
	CALL ICNM86
ASD7:	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7486
	MOV GATES,#04H
	CALL ANALYSE
	RET
ICS86: CJNE R1,#87H,ICS87			;IC 7487
	CALL ICNM87
	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7487
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS87: CJNE R1,#89H,ICS89			;IC 7489
	CALL ICNM89
	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7489
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS89: CJNE R1,#94H,ICS94			;IC 7494
	CALL ICNM94
	MOV RELAYS,#02H
	CALL PROGRESS_BAR
	CALL IC7494
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS94: CJNE R1,#95H,ICS95			;IC 7495
	CALL ICNM95
	MOV RELAYS,#01H
	CALL PROGRESS_BAR
	CALL IC7495
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS95: CJNE R1,#96H,ICS96			;IC 7496
	CALL ICNM96
	MOV RELAYS,#04H
	CALL PROGRESS_BAR
	CALL IC7496
	MOV GATES,#07H
	CALL ANALYSE
	RET
ICS96: CALL NOTIN_DATABASE			;Display not in Database
	CALL DELAY
	CALL IC_TITLE
	RET
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;			DATABASE FROM 74100 TO 74199
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
DATABASE_SEARCH1:				;Database search for 74100 to 74199
	MOV R1,A
	CJNE R1,#01H,ICT1			;IC 74101
	CALL ICNM101
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74101
	MOV GATES,#07H				;Number of Gates
	CALL ANALYSE
	RET
ICT1: CJNE R1,#02H,ICT2			;IC 74102
	CALL ICNM102
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74102
	MOV GATES,#07H				;Number of Gates
	CALL ANALYSE
	RET
ICT2: CJNE R1,#03H,ICT3			;IC 74103
	CALL ICNM103
	MOV RELAYS,#03H
	CALL PROGRESS_BAR			
	CALL IC74103
	MOV GATES,#02H				;Number of Gates
	CALL ANALYSE
	RET
ICT3: CJNE R1,#07H,ICT7			;IC 74107
	CALL ICNM107
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74107
	MOV GATES,#02H				;Number of Gates
	CALL ANALYSE
	RET
ICT7: CJNE R1,#08H,ICT8			;IC 74108
	CALL ICNM108
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74108
	MOV GATES,#02H				;Number of Gates
	CALL ANALYSE
	RET
ICT8: CJNE R1,#09H,ICT9			;IC 74109
	CALL ICNM109
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74109
	MOV GATES,#02H				
	CALL ANALYSE
	RET
ICT9: CJNE R1,#12H,ICT12			;IC 74112
	CALL ICNM112
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74112
	MOV GATES,#02H				
	CALL ANALYSE
	RET
ICT12: CJNE R1,#13H,ICT13			;IC 74113
	CALL ICNM113
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74113
	MOV GATES,#02H				
	CALL ANALYSE
	RET
ICT13: CJNE R1,#25H,ICT25			;IC 74125
	CALL ICNM125
	AJMP ASD5
ICT25: CJNE R1,#26H,ICT26			;IC 74126
	CALL ICNM126
	AJMP ICX2
ICT26: CJNE R1,#28H,ICT28			;IC 74128
	CALL ICNM128
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74128
	MOV GATES,#04H				
	CALL ANALYSE
	RET
ICT28: CJNE R1,#30H,ICT30			;IC 74130
	CALL ICNM130
	AJMP ICX2

ICT30: CJNE R1,#32H,ICT32			;IC 74132
	CALL ICNM132
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74132
	MOV GATES,#04H				
	CALL ANALYSE
	RET
ICT32: CJNE R1,#33H,ICT33			;IC 74133
	CALL ICNM133
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74132
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT33: CJNE R1,#34H,ICT34			;IC 74134
	CALL ICNM134
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74134
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT34: CJNE R1,#35H,ICT35			;IC 74135
	CALL ICNM135
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74135
	MOV GATES,#04H				
	CALL ANALYSE
	RET
ICT35: CJNE R1,#36H,ICT36			;IC 74136
	CALL ICNM136
	AJMP ASD7
ICT36: CJNE R1,#37H,ICT37			;IC 74137
	CALL ICNM137
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74137
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT37: CJNE R1,#38H,ICT38			;IC 74138
	CALL ICNM138
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74138
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT38: CJNE R1,#39H,ICT39			;IC 74139
	CALL ICNM139
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74139
	MOV GATES,#02H				
	CALL ANALYSE
	RET
ICT39: CJNE R1,#40H,ICT40			;IC 74140
	CALL ICNM140
	JMP ICX5
ICT40: CJNE R1,#45H,ICT45			;IC 74145
	CALL ICNM145
	JMP ASD3
ICT45: CJNE R1,#47H,ICT47			;IC 74147
	CALL ICNM147
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74147
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT47: CJNE R1,#48H,ICT48			;IC 74148
	CALL ICNM148
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74148
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT48: CJNE R1,#51H,ICT51			;IC 74151
	CALL ICNM151
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74151
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT51: CJNE R1,#52H,ICT52			;IC 74152
	CALL ICNM152
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74152
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT52: CJNE R1,#53H,ICT53			;IC 74153
	CALL ICNM153
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74153
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT53: CJNE R1,#55H,ICT55			;IC 74155
	CALL ICNM155
ASD8:	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74155_156
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT55: CJNE R1,#56H,ICT56			;IC 74156
	CALL ICNM156
	AJMP ASD8
ICT56: CJNE R1,#57H,ICT57			;IC 74157
	CALL ICNM157
ASD9:	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74157_158
	MOV GATES,#04H				
	CALL ANALYSE
	RET
ICT57: CJNE R1,#58H,ICT58			;IC 74158
	CALL ICNM158
	AJMP ASD9
ICT58: CJNE R1,#60H,ICT60			;IC 74160
	CALL ICNM160
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74160
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT60: CJNE R1,#61H,ICT61			;IC 74161
	CALL ICNM161
ASX1:	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74161_163
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT61: CJNE R1,#63H,ICT63			;IC 74163
	CALL ICNM163
	AJMP ASX1
ICT63: CJNE R1,#64H,ICT64			;IC 74164
	CALL ICNM164
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74164
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT64: CJNE R1,#65H,ICT65			;IC 74165
	CALL ICNM165
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74165
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT65: CJNE R1,#66H,ICT66			;IC 74166
	CALL ICNM166
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74166
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT66: CJNE R1,#71H,ICT71			;IC 74171
	CALL ICNM171
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74171
	MOV GATES,#04H				
	CALL ANALYSE
	RET
ICT71: CJNE R1,#73H,ICT73			;IC 74173
	CALL ICNM173
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74173
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT73: CJNE R1,#74H,ICT74			;IC 74174
	CALL ICNM174
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74174
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT74: CJNE R1,#75H,ICT75			;IC 74175
	CALL ICNM175
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74175
	MOV GATES,#04H				
	CALL ANALYSE
	RET
ICT75: CJNE R1,#76H,ICT76			;IC 74176
	CALL ICNM176
ASX2:	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74176_77
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT76: CJNE R1,#77H,ICT77			;IC 74177
	CALL ICNM177
	AJMP ASX2
ICT77: CJNE R1,#80H,ICT80			;IC 74180
	CALL ICNM180
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74180
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT80: CJNE R1,#82H,ICT82			;IC 74182
	CALL ICNM182
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74182
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT82: CJNE R1,#90H,ICT90			;IC 74190
	CALL ICNM190
ASX3:	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74190_191
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT90: CJNE R1,#91H,ICT91			;IC 74191
	CALL ICNM191
	AJMP ASX3
ICT91: CJNE R1,#92H,ICT92			;IC 74192
	CALL ICNM192
ASX4:	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74192_193
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT92: CJNE R1,#93H,ICT93			;IC 74193
	CALL ICNM193
	AJMP ASX4
ICT93: CJNE R1,#94H,ICT94			;IC 74194
	CALL ICNM194
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74194
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT94: CJNE R1,#95H,ICT95			;IC 74195
	CALL ICNM195
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74195
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT95: CJNE R1,#97H,ICT97			;IC 74197
	CALL ICNM197
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74197
	MOV GATES,#07H				
	CALL ANALYSE
	RET
ICT97: CALL NOTIN_DATABASE			;Display not in Database
	CALL DELAY
	CALL IC_TITLE
	RET
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;			DATABASE FROM 74200 TO 74299
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
DATABASE_SEARCH2:				;Database search for 74200 to 74299
	MOV R1,A
	CJNE R1,#42H,ICW42			;IC 74242
	CALL ICNM242
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74242
	MOV GATES,#07H				;Number of Gates
	CALL ANALYSE
	RET
ICW42: CJNE R1,#43H,ICW43			;IC 74243
	CALL ICNM243
	MOV RELAYS,#01H
	CALL PROGRESS_BAR			
	CALL IC74243
	MOV GATES,#07H				;Number of Gates
	CALL ANALYSE
	RET
ICW43: CJNE R1,#47H,ICW47			;IC 74247
	CALL ICNM247
	JMP ASD4
ICW47: CJNE R1,#48H,ICW48			;IC 74248
	CALL ICNM248
	JMP ASD4
ICW48: CJNE R1,#49H,ICW49			;IC 74249
	CALL ICNM249
	JMP ASD4
ICW49: CJNE R1,#51H,ICW51			;IC 74251
	CALL ICNM251
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74251
	MOV GATES,#07H				;Number of Gates
	CALL ANALYSE
	RET
ICW51: CJNE R1,#53H,ICW53			;IC 74253
	CALL ICNM253
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74253
	MOV GATES,#07H				;Number of Gates
	CALL ANALYSE
	RET
ICW53: CJNE R1,#56H,ICW56			;IC 74256
	CALL ICNM256
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74256
	MOV GATES,#02H				;Number of Gates
	CALL ANALYSE
	RET
ICW56: CJNE R1,#57H,ICW57			;IC 74257
	CALL ICNM257
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74257
	MOV GATES,#04H				;Number of Gates
	CALL ANALYSE
	RET
ICW57: CJNE R1,#58H,ICW58			;IC 74258
	CALL ICNM258
	MOV RELAYS,#02H
	CALL PROGRESS_BAR			
	CALL IC74258
	MOV GATES,#02H				;Number of Gates
	CALL ANALYSE
	RET
ICW58: CJNE R1,#59H,ICW59			;IC 74259